Changeset 72 for trunk/Packages/Common/UListViewSort.pas

Timestamp:

Mar 6, 2016, 12:10:38 AM (8 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

File:

• trunk/Packages/Common/UListViewSort.pas (modified) (1 diff)

trunk/Packages/Common/UListViewSort.pas

@@ -119 +119 @@
 var
   I: Integer;
-  NewColumn: TGridColumn;
 begin
   with FStringGrid1 do begin
     Columns.Clear;
     while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1);
-    while Columns.Count < ListView.Columns.Count do NewColumn := Columns.Add;
+    while Columns.Count < ListView.Columns.Count do Columns.Add;
     for I := 0 to ListView.Columns.Count - 1 do begin
       Columns[I].Width := ListView.Columns[I].Width;