Changeset 316 for trunk/Forms/UFormItem.pas

Timestamp:

Jun 19, 2024, 11:53:06 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Forms/UFormItem.pas (modified) (4 diffs)

trunk/Forms/UFormItem.pas

@@ -1 +1 @@
 unit UFormItem;
-
-{$mode delphi}
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UItemList,
-  ExtCtrls, ColorBox, Spin, fgl;
+  ExtCtrls, ColorBox, Spin, Generics.Collections;
 
 type
@@ -23 +21 @@
   private
     FItem: TItem;
-    DataControls: TFPGObjectList<TControl>;
-    DataLabels: TFPGObjectList<TLabel>;
+    DataControls: TObjectList<TControl>;
+    DataLabels: TObjectList<TLabel>;
     procedure ControlChangeExecute(Sender: TObject);
     procedure SetItem(AValue: TItem);
@@ -62 +60 @@
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
   Core.ThemeManager1.UseTheme(Self);
-  DataControls := TFPGObjectList<TControl>.Create;
-  DataLabels := TFPGObjectList<TLabel>.Create;
+  DataControls := TObjectList<TControl>.Create;
+  DataLabels := TObjectList<TLabel>.Create;
 end;