Changeset 85 for trunk/UCore.pas

Timestamp:

Jun 7, 2024, 11:59:43 AM (5 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UTheme, UPersistentForm, UApplicationInfo, UTranslator,
-  URegistry, UAboutDialog, UGame, ActnList, Forms, Controls, Dialogs;
+  Classes, SysUtils, Theme, PersistentForm, ApplicationInfo, Translator,
+  RegistryEx, UGame, ActnList, Forms, Controls, Dialogs;
 
 type
@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
-    AboutDialog1: TAboutDialog;
     AComputer: TAction;
     AHistory: TAction;
@@ -56 +55 @@
   Core: TCore;
 
+
 implementation
 
@@ -61 +61 @@
 
 uses
-  UFormMain, UFormSettings, UFormNew, UFormHelp, UFormComputer,
+  UFormMain, UFormSettings, UFormNew, UFormHelp, UFormComputer, FormAbout,
   UFormHistory;
 
@@ -112 +112 @@
 
 procedure TCore.AAboutExecute(Sender: TObject);
-begin
-  AboutDialog1.Show;
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FormAbout.Free;
+  end;
 end;