Changeset 132 for trunk/Packages/Common
- Timestamp:
- Apr 10, 2022, 11:18:50 AM (3 years ago)
- Location:
- trunk/Packages/Common
- Files:
-
- 1 deleted
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common
- Property svn:ignore
-
old new 1 1 lib 2 Common.pas
-
- Property svn:ignore
-
trunk/Packages/Common/UCommon.pas
r127 r132 7 7 {$IFDEF UNIX}baseunix,{$ENDIF} 8 8 Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, Graphics, 9 FileUtil ; //, ShFolder, ShellAPI;9 FileUtil, Generics.Collections; //, ShFolder, ShellAPI; 10 10 11 11 type 12 TObjects = TObjectList<TObject>; 12 13 TArrayOfByte = array of Byte; 13 14 TExceptionEvent = procedure(Sender: TObject; E: Exception) of object; -
trunk/Packages/Common/UListViewSort.pas
r128 r132 6 6 7 7 uses 8 {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils, 9 Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, ExtCtrls, 10 LclIntf, LclType, LResources, Generics.Collections, Generics.Defaults; 8 {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, 9 ComCtrls, SysUtils, Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, 10 ExtCtrls, UCommon, LclIntf, LclType, LResources, Generics.Collections, 11 Generics.Defaults; 11 12 12 13 type … … 17 18 TCompareEvent = function (Item1, Item2: TObject): Integer of object; 18 19 TListFilterEvent = procedure (ListViewSort: TListViewSort) of object; 19 20 TObjects = TObjectList<TObject>;21 20 22 21 { TListViewSort }
Note:
See TracChangeset
for help on using the changeset viewer.