Changeset 55 for trunk/Forms/UFormMain.lfm

Timestamp:

Dec 24, 2022, 7:26:21 PM (21 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Forms/UFormMain.lfm (modified) (7 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 692
-  Height = 618
+  Height = 536
   Top = 479
-  Width = 770
+  Width = 668
   Caption = 'Tunneler'
-  ClientHeight = 584
-  ClientWidth = 770
-  DesignTimePPI = 144
+  ClientHeight = 506
+  ClientWidth = 668
+  DesignTimePPI = 125
   Menu = MainMenu1
   OnClose = FormClose
@@ -16 +16 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '2.0.12.0'
+  LCLVersion = '2.2.4.0'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 27
-    Top = 557
-    Width = 770
+    Height = 24
+    Top = 482
+    Width = 668
     Panels = <    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end>
     ParentFont = False
@@ -49 +49 @@
   object Image1: TImage
     Left = 0
-    Height = 557
+    Height = 482
     Top = 0
-    Width = 770
+    Width = 668
     Align = alClient
     OnResize = Image1Resize
@@ -58 +58 @@
     Interval = 50
     OnTimer = TimerDrawTimer
-    Left = 149
-    Top = 76
+    Left = 129
+    Top = 66
   end
   object MainMenu1: TMainMenu
-    Left = 276
-    Top = 24
+    Left = 240
+    Top = 21
     object MenuItem1: TMenuItem
       Caption = 'Game'
@@ -92 +92 @@
     Interval = 20
     OnTimer = TimerEngineTickTimer
-    Left = 144
-    Top = 156
+    Left = 125
+    Top = 135
   end
   object ActionList1: TActionList
-    Left = 432
-    Top = 48
+    Left = 375
+    Top = 42
     object AFullScreen: TAction
       Caption = 'Fullscreen mode'
@@ -131 +131 @@
     RootName = 'CONFIG'
     ReadOnly = False
-    Left = 149
-    Top = 360
+    Left = 129
+    Top = 313
   end
   object AboutDialog1: TAboutDialog
@@ -138 +138 @@
     ThemeManager = Core.ThemeManager1
     ApplicationInfo = Core.ApplicationInfo
-    Left = 308
-    Top = 181
+    Left = 267
+    Top = 157
   end
 end