Changeset 15 for trunk/Forms/UFormRecords.pas

Timestamp:

Mar 22, 2018, 8:31:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Update Common and CollTranslator packages to fix build under Lazarus 1.8.
• Fixed: Some memory leaks.

File:

• trunk/Forms/UFormRecords.pas (modified) (1 diff)

trunk/Forms/UFormRecords.pas

@@ -145 +145 @@
 var
   I: Integer;
-  NewColumn: TListColumn;
 begin
   Table.LoadRecords;
-  ListView1.Columns.Clear;
+
+  ListView1.Columns.BeginUpdate;
+  while ListView1.Columns.Count > Table.Fields.Count do
+    ListView1.Columns[ListView1.ColumnCount - 1].Free;
+  while ListView1.Columns.Count < Table.Fields.Count do
+    ListView1.Columns.Add;
   for I := 0 to Table.Fields.Count - 1 do begin
-    NewColumn := ListView1.Columns.Add;
-    NewColumn.Caption := TField(Table.Fields[I]).TextBefore;
-    NewColumn.Width := 200;
+    ListView1.Columns[I].Caption := TField(Table.Fields[I]).TextBefore;
+    ListView1.Columns[I].Width := 200;
   end;
+  ListView1.Columns.EndUpdate;
 
   ListView1.Items.Count := Table.Records.Count;