Changeset 128 for trunk/Forms/UFormProperties.pas

Timestamp:

Apr 8, 2022, 9:43:55 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use Generics.Collection instead of fgl for better Delphi compatibility.

File:

• trunk/Forms/UFormProperties.pas (modified) (3 diffs)

trunk/Forms/UFormProperties.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8;
+  Menus, ActnList, UContact, UDataFile, UListViewSort, LazUTF8,
+  Generics.Collections;
 
 type
@@ -64 +65 @@
     FProperties: TContactProperties;
     FUpdateCount: Integer;
-    procedure FilterList(List: TFPGObjectList<TObject>);
+    procedure FilterList(List: TObjectList<TObject>);
     procedure SetProperties(AValue: TContactProperties);
     procedure DoUpdateInterface;
@@ -167 +168 @@
 end;
 
-procedure TFormProperties.FilterList(List: TFPGObjectList<TObject>);
+procedure TFormProperties.FilterList(List: TObjectList<TObject>);
 var
   I: Integer;