Changeset 316 for trunk/UCore.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -1 +1 @@
 unit UCore;
-
-{$mode delphi}
 
 interface
@@ -9 +7 @@
   UGame, ApplicationInfo, PersistentForm, ScaleDPI, Translator, DOM,
   RegistryEx, LastOpenedList, Theme, Registry, Menus,
-  UFormClient, UPlayer, UGameServer, UGameClient, fgl, UServerList, UGameSystem,
-  Graphics, UUnit;
+  UFormClient, UPlayer, UGameServer, UGameClient, Generics.Collections,
+  UServerList, UGameSystem, Graphics, UUnit;
 
 type
@@ -101 +99 @@
     AutoSaveEnabled: Boolean;
     ReopenLastFile: Boolean;
-    FormClients: TFPGObjectList<TFormClient>;
+    FormClients: TObjectList<TFormClient>;
     LocalClients: TClients;
     ServerList: TServerList;
@@ -495 +493 @@
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
   ForceDirectories(GetAppConfigDir(False));
-  FormClients := TFPGObjectList<TFormClient>.Create;
+  FormClients := TObjectList<TFormClient>.Create;
   ServerList := TServerList.Create;
 end;