Changeset 315 for trunk/UCore.pas

Timestamp:

Jun 19, 2024, 11:15:44 PM (5 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
-  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UTranslator, DOM,
-  URegistry, ULastOpenedList, UTheme, UAboutDialog, Registry, Menus,
+  UGame, ApplicationInfo, PersistentForm, ScaleDPI, Translator, DOM,
+  RegistryEx, LastOpenedList, Theme, Registry, Menus,
   UFormClient, UPlayer, UGameServer, UGameClient, fgl, UServerList, UGameSystem,
   Graphics, UUnit;
@@ -18 +18 @@
   TCore = class(TDataModule)
     AAbout: TAction;
-    AboutDialog1: TAboutDialog;
     AFullscreen: TAction;
     AToggleFogOfWar: TAction;
@@ -131 +130 @@
 
 uses
-  UFormMain, UFormNew, UFormSettings, UClientAI, UFormKeyShortcuts, UCommon,
-  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI;
+  UFormMain, UFormNew, UFormSettings, UClientAI, UFormKeyShortcuts, Common,
+  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI, FormAbout;
 
 const
@@ -308 +307 @@
 
 procedure TCore.AAboutExecute(Sender: TObject);
-begin
-  AboutDialog1.Show;
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := ApplicationInfo;
+    FormAbout.ShowModal;
+  finally
+    FormAbout.Free;
+  end;
 end;
 
@@ -471 +478 @@
     CoolTranslator1.POFilesFolder := LinuxLanguagesDir;
   {$ENDIF}
-  
+
   GameSystems := TGameSystems.Create;
   Server := TServer.Create;