Changeset 44 for trunk/Forms/UMainForm.lfm

Timestamp:

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

Author:

chronos

Message:

• Added: About dialog.

File:

• trunk/Forms/UMainForm.lfm (modified) (7 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