Changeset 22 for trunk/Forms/UItemEdit.pas

Timestamp:

Jun 16, 2011, 12:18:21 PM (13 years ago)

Author:

george

Message:

• Modified: Optimalized reloading of columns list in item list.
• Fixed: Add and modify function.

File:

• trunk/Forms/UItemEdit.pas (modified) (4 diffs)

trunk/Forms/UItemEdit.pas

@@ -28 +28 @@
   public
     Report: TReport;
-    ControlList: TListObject;
     procedure BuildControls;
   end; 
@@ -59 +58 @@
     Data := TDictionaryStringString.Create;
     for I := 0 to Report.Columns.Count - 1 do
-    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
+    if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
+    if TReportColumn(Report.Columns[I]).ColumnName <> MainForm.SelectedObject.PrimaryKey then begin
       DataType := TReportColumn(Report.Columns[I]).CustomType;
-      Data.Add(TReportColumn(Report.Columns[I]).ColumnName, DataType.GetControlValue(TWinControl(ControlList[I])));
+      Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
+        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
     end;
     Database.Update(MainForm.SelectedObject.Table, Data,
-      '`Id` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
+      '`' + MainForm.SelectedObject.PrimaryKey + '` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
   finally
     Data.Free;
@@ -85 +86 @@
   Report := TReport.Create;
   Report.Base := Core.System;
-  ControlList := TListObject.Create;
-  ControlList.OwnsObjects := False;
 end;
 
 procedure TItemEditForm.FormDestroy(Sender: TObject);
 begin
-  ControlList.Free;
   Report.Free;
 end;
@@ -141 +139 @@
         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
         NewControl.Width := (Width div ColumnCount) div 2 - 20;
-        ControlList.Add(NewControl);
+        TReportColumn(Report.Columns[I]).Control := NewControl;
 
         Column := (Column + 1) mod 2;
         if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
       end;
-   end else ControlList.Add(nil);
+   end;
 end;