Changeset 315 for trunk/Packages/Common/ListViewSort.pas

Timestamp:

Jun 19, 2024, 11:15:44 PM (5 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/ListViewSort.pas (moved) (moved from trunk/Packages/Common/UListViewSort.pas ) (11 diffs)

trunk/Packages/Common/ListViewSort.pas

@@ -1 @@
-unit UListViewSort;
+unit ListViewSort;
 
 // Date: 2019-05-17
-
-{$mode delphi}
 
 interface
@@ -9 +7 @@
 uses
   {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils,
-  Controls, DateUtils, Dialogs, fgl, Forms, Grids, StdCtrls, ExtCtrls,
-  LclIntf, LclType, LResources;
+  Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, ExtCtrls,
+  LclIntf, LclType, LResources, Generics.Collections, Generics.Defaults;
 
 type
@@ -19 +17 @@
   TCompareEvent = function (Item1, Item2: TObject): Integer of object;
   TListFilterEvent = procedure (ListViewSort: TListViewSort) of object;
+
+  TObjects = TObjectList<TObject>;
 
   { TListViewSort }
@@ -52 +52 @@
     {$ENDIF}
   public
-    List: TFPGObjectList<TObject>;
-    Source: TFPGObjectList<TObject>;
+    Source: TObjects;
+    List: TObjects;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -136 +136 @@
 constructor TListViewEx.Create(TheOwner: TComponent);
 begin
-  inherited Create(TheOwner);
+  inherited;
   Filter := TListViewFilter.Create(Self);
   Filter.Parent := Self;
@@ -149 +149 @@
 destructor TListViewEx.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -172 +172 @@
 constructor TListViewFilter.Create(AOwner: TComponent);
 begin
-  inherited Create(AOwner);
+  inherited;
   FStringGrid1 := TStringGrid.Create(Self);
   FStringGrid1.Align := alClient;
@@ -338 +338 @@
   ListViewSortCompare: TCompareEvent;
 
-function ListViewCompare(const Item1, Item2: TObject): Integer;
+function ListViewCompare(constref Item1, Item2: TObject): Integer;
 begin
   Result := ListViewSortCompare(Item1, Item2);
@@ -349 +349 @@
   ListViewSortCompare := Compare;
   if (List.Count > 0) then
-    List.Sort(ListViewCompare);
+    List.Sort(TComparer<TObject>.Construct(ListViewCompare));
 end;
 
@@ -355 +355 @@
 begin
   if Assigned(FOnFilter) then FOnFilter(Self)
-  else if Assigned(Source) then
-    List.Assign(Source) else
+  else if Assigned(Source) then begin
     List.Clear;
+    List.AddRange(Source);
+  end else List.Clear;
   if ListView.Items.Count <> List.Count then
     ListView.Items.Count := List.Count;
@@ -412 +413 @@
 begin
   inherited;
-  List := TFPGObjectList<TObject>.Create;
-  List.FreeObjects := False;
+  List := TObjects.Create;
+  List.OwnsObjects := False;
 end;
 
 destructor TListViewSort.Destroy;
 begin
-  List.Free;
+  FreeAndNil(List);
   inherited;
 end;