Changeset 304 for trunk/Forms/UFormMain.lfm

Timestamp:

Aug 11, 2019, 4:53:05 PM (5 years ago)

Author:

chronos

Message:

• Fixed: First game system was rewritten by game system stored in game file.
• Modified: Each TGame instance has own TGameSystem instance and different game systems are assigned.

File:

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

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 826
-  Height = 621
+  Height = 745
   Top = 419
-  Width = 775
+  Width = 930
   Caption = 'xTactics'
-  ClientHeight = 596
-  ClientWidth = 775
-  DesignTimePPI = 120
+  ClientHeight = 711
+  ClientWidth = 930
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnActivate = FormActivate
@@ -15 +15 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '2.0.0.4'
+  LCLVersion = '2.0.2.0'
   WindowState = wsMaximized
   object ToolBar1: TToolBar
     Left = 0
-    Height = 33
+    Height = 40
     Top = 0
-    Width = 775
-    ButtonHeight = 27
-    ButtonWidth = 27
+    Width = 930
+    ButtonHeight = 32
+    ButtonWidth = 32
     Images = Core.ImageListSmall
     ParentFont = False
@@ -36 +36 @@
     end
     object ToolButton3: TToolButton
-      Left = 28
+      Left = 33
       Top = 2
       Action = Core.AGameEnd
     end
     object ToolButton4: TToolButton
-      Left = 55
+      Left = 65
       Top = 2
       Action = Core.AGameRestart
     end
     object ToolButton5: TToolButton
-      Left = 144
+      Left = 173
       Top = 2
       Action = Core.ASettings
     end
     object ToolButton9: TToolButton
-      Left = 140
-      Height = 27
+      Left = 167
+      Height = 32
       Top = 2
       Style = tbsDivider
     end
     object ToolButton11: TToolButton
-      Left = 86
+      Left = 103
       Top = 2
       Action = Core.AGameLoad
     end
     object ToolButton12: TToolButton
-      Left = 113
+      Left = 135
       Top = 2
       Action = Core.AGameSave
     end
     object ToolButton13: TToolButton
-      Left = 171
+      Left = 205
       Top = 2
       Action = Core.AExit
     end
     object ToolButton2: TToolButton
-      Left = 82
-      Height = 27
+      Left = 97
+      Height = 32
       Top = 2
       Style = tbsDivider
@@ -80 +80 @@
   object PanelMain: TPanel
     Left = 0
-    Height = 563
-    Top = 33
-    Width = 775
+    Height = 671
+    Top = 40
+    Width = 930
     Align = alClient
     BevelOuter = bvNone
@@ -90 +90 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageListSmall
-    left = 187
-    top = 40
+    left = 224
+    top = 48
     object MenuItem1: TMenuItem
       Caption = 'Game'
@@ -210 +210 @@
     Interval = 20
     OnTimer = Timer1Timer
-    left = 107
-    top = 219
+    left = 128
+    top = 263
   end
   object ActionList1: TActionList
     Images = Core.ImageListSmall
-    left = 233
-    top = 127
+    left = 280
+    top = 152
     object AToolBarBigIcons: TAction
       Caption = 'Toolbar big icons'
@@ -239 +239 @@
   end
   object PopupMenuToolbar: TPopupMenu
-    left = 377
-    top = 82
+    left = 452
+    top = 98
     object MenuItem18: TMenuItem
       Action = AToolBarBigIcons