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

Timestamp:

Oct 12, 2012, 11:43:43 AM (12 years ago)

Author:

chronos

Message:

• Added: ChronisAppServer base project.
• Modified: Changes in client virtual database layer handling.

File:

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

trunk/Client/Forms/UFormMenu.pas

@@ -31 +31 @@
     PopupMenuObject: TPopupMenu;
     PopupMenuObjectGroup: TPopupMenu;
+    TabControl1: TTabControl;
     TreeViewMenu: TTreeView;
     procedure AObjectEditExecute(Sender: TObject);
@@ -141 +142 @@
       Groups := TListProxy.Create;
       Groups.Client := Core.System.Client;
-      Groups.ObjectName := ObjectGroupTable;
+      Groups.ObjectName := SystemMenuTable;
       Groups.Path := Core.System.Client.Schema;
       Groups.Load;
@@ -153 +154 @@
           Objects := TListProxy.Create;
           Objects.Client := Core.System.Client;
-          Objects.ObjectName := ObjectTable;
+          Objects.ObjectName := SystemObjectTable;
           Objects.Path := Core.System.Client.Schema;
           Objects.Condition := '`Group`="' + Obj.Properties.Values['Id'] + '"';