Changeset 110 for trunk/Score.pas

Timestamp:

Dec 10, 2024, 11:05:12 AM (5 weeks ago)

Author:

chronos

Message:

• Added: Sorting by individual columns in Score window.

File:

• trunk/Score.pas (modified) (3 diffs)

trunk/Score.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, RegistryEx;
+  Classes, SysUtils, Generics.Collections, RegistryEx, ListViewSort;
 
 type
@@ -31 +31 @@
     procedure SaveToRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
     procedure LoadFromRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
+    procedure AssignToList(List: TObjects);
   end;
 
@@ -121 +122 @@
 end;
 
+procedure TScores.AssignToList(List: TObjects);
+var
+  I: Integer;
+begin
+  while List.Count > Count do List.Delete(List.Count - 1);
+  for I := 0 to List.Count - 1 do List[I] := Items[I];
+  while List.Count < Count do List.Add(Items[List.Count]);
+end;
+
 end.