Changeset 22 for trunk/USystem.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/USystem.pas (modified) (3 diffs)

trunk/USystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
-  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls;
+  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls;
 
 const
@@ -51 +51 @@
     ColumnName: string;
     VirtualItem: Boolean;
+    Control: TWinControl;
   end;
 
@@ -597 +598 @@
   NewColumn: TListColumn;
 begin
-  AColumns.Clear;
+  while (AColumns.Count < Columns.Count) do
+    AColumns.Add;
+  while (AColumns.Count > Columns.Count) do
+    AColumns.Delete(AColumns.Count - 1);
   for I := 0 to Columns.Count - 1 do
   if not TReportColumn(Columns[I]).VirtualItem then begin
-    NewColumn := AColumns.Add;
-    NewColumn.Caption := TReportColumn(Columns[I]).Caption;
+    AColumns[I].Caption := TReportColumn(Columns[I]).Caption;
   end;
 end;