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

Timestamp:

Jun 5, 2023, 7:40:45 PM (18 months ago)

Author:

chronos

Message:

• Modified: Update Common and VCard package. Remove U prefix from unit names.

File:

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

trunk/Packages/Common/ListViewSort.pas

@@ -1 @@
-unit UListViewSort;
+unit ListViewSort;
 
 // Date: 2019-05-17
@@ -6 +6 @@
 
 uses
-  {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics,
-  ComCtrls, SysUtils, Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls,
-  ExtCtrls, UCommon, LclIntf, LclType, LResources, Generics.Collections,
-  Generics.Defaults;
+  {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils,
+  Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, ExtCtrls,
+  LclIntf, LclType, LResources, Generics.Collections, Generics.Defaults;
 
 type
@@ -18 +17 @@
   TCompareEvent = function (Item1, Item2: TObject): Integer of object;
   TListFilterEvent = procedure (ListViewSort: TListViewSort) of object;
+
+  TObjects = TObjectList<TObject>;
 
   { TListViewSort }
@@ -148 +149 @@
 destructor TListViewEx.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;