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

trunk/Forms/UItemView.pas

@@ -40 +40 @@
     { private declarations }
   public
+    SelectedObject: TChronisObject;
+    SelectedItemId: Integer;
     Report: TReport;
     procedure BuildControls;
@@ -72 +74 @@
   TabDataTypeList.OwnsObjects := False;
   TabControl1.Tabs.Clear;
+  SelectedObject := TChronisObject.Create;
+  SelectedObject.Base := Core.System;
 end;
 
@@ -80 +84 @@
   TabObjectList.Free;
   TabDataTypeList.Free;
+  SelectedObject.Free;
 end;
 
@@ -98 +103 @@
 
 procedure TItemViewForm.ButtonEditClick(Sender: TObject);
+var
+  NewItemEditForm: TItemEditForm;
 begin
   Close;
-  ItemEditForm.Show;
+  NewItemEditForm := TItemEditForm.Create(nil);
+  NewItemEditForm.SelectedObject.Assign(SelectedObject);
+  NewItemEditForm.SelectedItemId := SelectedItemId;
+  MainForm.AddTabForm(NewItemEditForm);
 end;
 
@@ -135 +145 @@
   LastTop := 8;
   Column := 0;
-  Report.Load(MainForm.SelectedObject, MainForm.SelectedObject.PrimaryKey + ' = ' +
-    IntToStr(MainForm.SelectedItem));
+  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
+    IntToStr(SelectedItemId));
   for I := PanelControls.ControlCount - 1 downto 0 do
     PanelControls.Controls[I].Free;
@@ -152 +162 @@
       TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
       TabDataTypeList.Add(DataType);
-      TabObjectList.Add(MainForm.SelectedItem);
+      TabObjectList.Add(SelectedItemId);
     end else begin
       NewControl := TLabel.Create(PanelControls);