Changeset 53 for trunk/Client/Forms/UFormMenu.pas

Timestamp:

Apr 3, 2012, 8:31:39 AM (13 years ago)

Author:

chronos

Message:

• Opraveno: Aktualizace seznamu modulů do databáze a použití příznaku modulů "Instalován" pro zjištění, zda vytvářet znova strukturu.

File:

• trunk/Client/Forms/UFormMenu.pas (modified) (2 diffs)

trunk/Client/Forms/UFormMenu.pas

@@ -142 +142 @@
       Groups.Client := Core.System.Client;
       Groups.ObjectName := ObjectGroupTable;
-      Groups.SchemaName := Core.System.Client.Schema;
+      Groups.Path := Core.System.Client.Schema;
       Groups.Load;
       for I := 0 to Groups.Objects.Count - 1 do begin
@@ -154 +154 @@
           Objects.Client := Core.System.Client;
           Objects.ObjectName := ObjectTable;
-          Objects.SchemaName := Core.System.Client.Schema;
+          Objects.Path := Core.System.Client.Schema;
           Objects.Condition := '`Group`="' + Obj.Properties.Values['Id'] + '"';
           Objects.Load;