Changeset 44 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: About dialog.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (added)
• UFormAbout.lrj (added)
• UFormAbout.pas (added)
• UMainForm.lfm (modified) (7 diffs)
• UMainForm.pas (modified) (8 diffs)
• UNewGameForm.pas (modified) (3 diffs)

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
   Left = 486
-  Height = 515
+  Height = 618
   Top = 258
-  Width = 642
+  Width = 770
   Caption = 'Tunneler'
-  ClientHeight = 490
-  ClientWidth = 642
-  DesignTimePPI = 120
+  ClientHeight = 584
+  ClientWidth = 770
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnClose = FormClose
@@ -20 +20 @@
     Left = 0
     Height = 28
-    Top = 462
-    Width = 642
+    Top = 556
+    Width = 770
     Panels = <    
       item
-        Width = 62
+        Width = 74
       end    
       item
-        Width = 62
+        Width = 74
       end    
       item
-        Width = 62
+        Width = 74
       end    
       item
-        Width = 62
+        Width = 74
       end    
       item
-        Width = 62
+        Width = 74
       end    
       item
-        Width = 62
+        Width = 74
       end    
       item
-        Width = 62
+        Width = 74
       end>
     ParentFont = False
@@ -49 +49 @@
   object Image1: TImage
     Left = 0
-    Height = 462
+    Height = 556
     Top = 0
-    Width = 642
+    Width = 770
     Align = alClient
     OnMouseLeave = Image1MouseLeave
@@ -59 +59 @@
     Interval = 50
     OnTimer = TimerDrawTimer
-    left = 124
-    top = 63
+    left = 149
+    top = 76
   end
   object MainMenu1: TMainMenu
-    left = 230
-    top = 20
+    left = 276
+    top = 24
     object MenuItem1: TMenuItem
       Caption = 'Game'
@@ -93 +93 @@
     Interval = 20
     OnTimer = TimerEngineTickTimer
-    left = 120
-    top = 130
+    left = 144
+    top = 156
   end
   object ActionList1: TActionList
-    left = 360
-    top = 40
+    left = 432
+    top = 48
     object AFullScreen: TAction
       Caption = 'Fullscreen mode'
@@ -121 +121 @@
     object AAbout: TAction
       Caption = 'About'
+      OnExecute = AAboutExecute
     end
     object AShowRawImageDesc: TAction
@@ -127 +128 @@
     end
   end
-  object CoolTranslator1: TCoolTranslator
-    POFilesFolder = 'Languages'
-    left = 360
-    top = 130
-  end
-  object ApplicationInfo1: TApplicationInfo
-    Identification = 1
-    VersionMajor = 1
-    VersionMinor = 0
-    VersionBugFix = 0
-    VersionSuffix = 'alfa'
-    CompanyName = 'Chronosoft'
-    HomePage = 'https://app.zdechov.net/Tunneler/'
-    AuthorsName = 'Chronos'
-    EmailContact = 'robie@centrum.cz'
-    AppName = 'Tunneler'
-    ReleaseDate = 43573
-    RegistryKey = '\Software\Chronosoft\Tunneler'
-    RegistryRoot = rrKeyCurrentUser
-    License = 'CC0'
-    left = 124
-    top = 220
-  end
   object XMLConfig1: TXMLConfig
     StartEmpty = False
     RootName = 'CONFIG'
     ReadOnly = False
-    left = 124
-    top = 300
+    left = 149
+    top = 360
   end
 end

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);

trunk/Forms/UNewGameForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UCore;
+  ComCtrls, UEngine;
 
 type
@@ -81 +81 @@
 
 uses
-  UMainForm;
+  UCore;
 
 { TNewGameForm }
@@ -275 +275 @@
 procedure TNewGameForm.FormCreate(Sender: TObject);
 begin
-  MainForm.CoolTranslator1.TranslateComponentRecursive(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   Players := TPlayers.Create;
 end;