Changeset 74 for trunk/Forms/FormMain.pas

Timestamp:

Mar 26, 2024, 10:57:56 PM (7 weeks ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/Forms/FormMain.pas

@@ -6 +6 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, LCLType,
   Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, Engine, Platform, Math,
-  DateUtils, GraphType, UPersistentForm, UApplicationInfo, UTranslator,
-  URegistry, UAboutDialog, FormNewGame, FormMap;
+  DateUtils, GraphType, PersistentForm, ApplicationInfo, Translator,
+  RegistryEx, FormAbout, FormNewGame, FormMap;
 
 type
@@ -15 +15 @@
   TFormMain = class(TForm)
     AAbout: TAction;
-    AboutDialog1: TAboutDialog;
     AShowRawImageDesc: TAction;
     AShowMap: TAction;
@@ -248 +247 @@
 
 procedure TFormMain.AAboutExecute(Sender: TObject);
-begin
-  AboutDialog1.Show;
+var
+  FormAbout: TFormAbout;
+begin
+  try
+    FormAbout := TFormAbout.Create(nil);
+    FormAbout.ApplicationInfo := Core.Core.ApplicationInfo;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
 end;