Changeset 44 for trunk/Forms/UMainForm.pas

Timestamp:

Apr 19, 2019, 12:02:27 PM (5 years ago)

Author:

chronos

Message:

• Added: About dialog.

File:

• trunk/Forms/UMainForm.pas (modified) (8 diffs)

trunk/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   XMLConf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
-  Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, UCore, UPlatform, Math,
+  Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, UEngine, UPlatform, Math,
   DateUtils, GraphType, UPersistentForm, UApplicationInfo, UCoolTranslator,
   LCLType, URegistry;
@@ -17 +17 @@
   TMainForm = class(TForm)
     AAbout: TAction;
-    ApplicationInfo1: TApplicationInfo;
     AShowRawImageDesc: TAction;
     AShowMap: TAction;
@@ -24 +23 @@
     AFullScreen: TAction;
     ActionList1: TActionList;
-    CoolTranslator1: TCoolTranslator;
     Image1: TImage;
     MainMenu1: TMainMenu;
@@ -39 +37 @@
     TimerEngineTick: TTimer;
     XMLConfig1: TXMLConfig;
+    procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AFullScreenExecute(Sender: TObject);
@@ -77 +76 @@
 
 uses
-  UMapForm, UNewGameForm;
+  UCore, UMapForm, UNewGameForm, UFormAbout;
 
 resourcestring
@@ -136 +135 @@
 
   PersistentForm := TPersistentForm.Create(nil);
-  PersistentForm.RegistryContext := TRegistryContext.Create(ApplicationInfo1.RegistryRoot,
-    ApplicationInfo1.RegistryKey);
+  PersistentForm.RegistryContext := TRegistryContext.Create(Core.ApplicationInfo.RegistryRoot,
+    Core.ApplicationInfo.RegistryKey);
 
   Application.OnDeactivate := FormDeactivate;
@@ -144 +143 @@
   Engine := TEngine.Create;
   Engine.Bitmap := Image1.Picture.Bitmap;
-  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
+  Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('cs');
   LoadConfig;
   Engine.NewGame;
@@ -220 +219 @@
 end;
 
+procedure TMainForm.AAboutExecute(Sender: TObject);
+begin
+  FormAbout := TFormAbout.Create(nil);
+  FormAbout.ShowModal;
+  FreeAndNil(FormAbout);
+end;
+
 procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);