Changeset 31 for trunk/USystem.pas

Timestamp:

Nov 24, 2011, 10:03:48 AM (13 years ago)

Author:

chronos

Message:

• Modified: Item list is separated from MainForm as ItemListForm.
• Modified: Now it is possible to open multiple forms for same operation as View, Edit, Add, List. Open forms are listed in main windows tab list.

File:

• trunk/USystem.pas (modified) (2 diffs)

trunk/USystem.pas

@@ -82 +82 @@
     Base: TChronisBase;
     procedure Load(ObjectId: Integer);
+    procedure Assign(Source: TChronisObject);
   end;
 
@@ -719 +720 @@
 end;
 
+procedure TChronisObject.Assign(Source: TChronisObject);
+begin
+  Id := Source.Id;
+  Table := Source.Table;
+  Schema := Source.Schema;
+  Name := Source.Name;
+  Base := Source.Base;
+  GroupId := Source.GroupId;
+  PrimaryKey := Source.PrimaryKey;
+end;
+
 end.