Changeset 74 for trunk/Forms

Timestamp:

Mar 26, 2024, 10:57:56 PM (8 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

trunk/Forms

Files:

• FormMain.lfm (modified) (2 diffs)
• FormMain.pas (modified) (3 diffs)

trunk/Forms/FormMain.lfm

@@ -22 +22 @@
     Top = 555
     Width = 770
-    Panels = <    
+    Panels = <
       item
         Width = 74
-      end    
+      end
       item
         Width = 74
-      end    
+      end
       item
         Width = 74
-      end    
+      end
       item
         Width = 74
-      end    
+      end
       item
         Width = 74
-      end    
+      end
       item
         Width = 74
-      end    
+      end
       item
         Width = 74
@@ -133 +133 @@
     end
   end
-  object AboutDialog1: TAboutDialog
-    Translator = Core.Translator1
-    ThemeManager = Core.ThemeManager1
-    ApplicationInfo = Core.ApplicationInfo
-    Left = 308
-    Top = 181
-  end
 end

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;