Changeset 110 for trunk/Forms/FormScore.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/Forms/FormScore.pas (modified) (5 diffs)

trunk/Forms/FormScore.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  FormEx, Score;
+  FormEx, ListViewSort, Score, DateUtils, Generics.Collections;
 
 type
@@ -15 +15 @@
     ButtonClear: TButton;
     ListView1: TListView;
+    ListViewSort1: TListViewSort;
     procedure ButtonClearClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
   private
     FScores: TScores;
     procedure SetScores(AValue: TScores);
+    procedure FilterList(List: TObjectList<TObject>);
   public
     procedure ReloadList;
@@ -35 +39 @@
   SClearQuery = 'Do you really want to clear score history?';
 
-
 { TFormScore }
 
 procedure TFormScore.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < FScores.Count then
-  with FScores[Item.Index] do begin
+  if Item.Index < ListViewSort1.List.Count then
+  with TScore(ListViewSort1.List[Item.Index]) do begin
     Item.Caption := DateTimeToStr(StartTime);
+    Item.Data := ListViewSort1.List[Item.Index];
     Item.SubItems.Add(BoardSize);
     Item.SubItems.Add(IntToStr(Score));
@@ -52 +56 @@
     Item.SubItems.Add(TimeToStr(Duration));
   end;
+end;
+
+function TFormScore.ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+var
+  Score1, Score2: TScore;
+begin
+  Result := 0;
+  if Assigned(Item1) and Assigned(Item2) and (ListViewSort1.Order <> soNone) then begin
+    Score1 := TScore(Item1);
+    Score2 := TScore(Item2);
+    with ListViewSort1 do
+    case Column of
+      0: Result := CompareDateTime(Score1.StartTime, Score2.StartTime);
+      1: Result := CompareString(Score1.BoardSize, Score2.BoardSize);
+      2: Result := CompareInteger(Score1.Score, Score2.Score);
+      3: Result := CompareInteger(Score1.BiggestTile, Score2.BiggestTile);
+      4: Result := CompareInteger(Score1.Moves, Score2.Moves);
+      5: Result := CompareInteger(Score1.UsedUndos, Score2.UsedUndos);
+      6: Result := CompareInteger(Score1.DisabledTiles, Score2.DisabledTiles);
+      7: Result := CompareInteger(Score1.UnmergeableTiles, Score2.UnmergeableTiles);
+      8: Result := CompareDateTime(Score1.Duration, Score2.Duration);
+    end;
+    if ListViewSort1.Order = soDown then Result := -Result;
+  end else Result := 0;
+end;
+
+procedure TFormScore.ListViewSort1Filter(ListViewSort: TListViewSort);
+begin
+  if Assigned(Scores) then Scores.AssignToList(ListViewSort1.List)
+    else begin
+      ListViewSort1.List.Clear;
+    end;
+  FilterList(ListViewSort1.List);
 end;
 
@@ -74 +111 @@
 end;
 
+procedure TFormScore.FilterList(List: TObjectList<TObject>);
+begin
+end;
+
 procedure TFormScore.ReloadList;
 begin
-  if Assigned(FScores) then begin
-    ListView1.Items.Count := FScores.Count;
-  end else ListView1.Items.Count := 0;
-  ListView1.Refresh;
+  ListViewSort1.Refresh;
 end;