Changeset 31 for trunk/Forms/UItemAdd.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/Forms/UItemAdd.pas (modified) (5 diffs)

trunk/Forms/UItemAdd.pas

@@ -28 +28 @@
     { private declarations }
   public
+    SelectedObject: TChronisObject;
+    SelectedItemId: Integer;
     Report: TReport;
   end;
@@ -59 +61 @@
     for I := 0 to Report.Columns.Count - 1 do
     if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
-    if TReportColumn(Report.Columns[I]).ColumnName <> MainForm.SelectedObject.PrimaryKey then begin
+    if TReportColumn(Report.Columns[I]).ColumnName <> SelectedObject.PrimaryKey then begin
       DataType := TReportColumn(Report.Columns[I]).CustomType;
       Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
         DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
     end;
-    Database.Insert(MainForm.SelectedObject.Table, Data, MainForm.SelectedObject.Schema);
+    Database.Insert(SelectedObject.Table, Data, SelectedObject.Schema);
   finally
     Data.Free;
   end;
-  MainForm.LoadItemList;
+  //MainForm.LoadItemList;
   Close;
 end;
@@ -82 +84 @@
   Report := TReport.Create;
   Report.Base := Core.System;
+  SelectedObject := TChronisObject.Create;
+  SelectedObject.Base := Core.System;
 end;
 
@@ -87 +91 @@
 begin
   Report.Free;
+  SelectedObject.Free;
 end;
 
@@ -113 +118 @@
     Panel1.Controls[I].Free;
 
-  Report.Load(MainForm.SelectedObject, MainForm.SelectedObject.PrimaryKey + ' = ' +
-    IntToStr(MainForm.SelectedItem));
+  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
+    IntToStr(SelectedItemId));
 
   // Load column names