Changeset 390

Timestamp:

Jan 5, 2025, 8:00:55 PM (3 days ago)

Author:

chronos

Message:

• Modifired: Improved controls layout.

Location:

trunk/Forms

Files:

• FormGameSystem.lfm (modified) (1 diff)
• FormNew.lfm (modified) (10 diffs)

trunk/Forms/FormGameSystem.lfm

@@ -60 +60 @@
     Top = 16
     Width = 612
-    ActivePage = TabSheetBuildings
+    ActivePage = TabSheetGeneral
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 3
+    TabIndex = 0
     TabOrder = 4
     object TabSheetGeneral: TTabSheet

trunk/Forms/FormNew.lfm

@@ -527 +527 @@
         Width = 986
         HorzScrollBar.Page = 544
-        VertScrollBar.Page = 424
+        VertScrollBar.Page = 440
         Align = alClient
-        ClientHeight = 632
-        ClientWidth = 982
+        ClientHeight = 634
+        ClientWidth = 984
         ParentFont = False
         TabOrder = 0
         object RadioGroupGrowCells: TRadioGroup
           Left = 14
-          Height = 128
-          Top = 120
+          Height = 136
+          Top = 136
           Width = 312
           AutoFill = True
@@ -547 +547 @@
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 101
+          ClientHeight = 109
           ClientWidth = 310
           Items.Strings = (
@@ -558 +558 @@
         end
         object Label6: TLabel
-          Left = 8
-          Height = 26
-          Top = 266
+          Left = 14
+          Height = 26
+          Top = 286
           Width = 119
           Caption = 'Win objective:'
@@ -568 +568 @@
         object ComboBoxWinObjective: TComboBox
           Left = 216
-          Height = 34
-          Top = 266
+          Height = 38
+          Top = 280
           Width = 328
           ItemHeight = 0
@@ -585 +585 @@
         object RadioGroupGrowAmount: TRadioGroup
           Left = 14
-          Height = 92
+          Height = 104
           Top = 16
-          Width = 305
+          Width = 312
           AutoFill = True
           Caption = 'Per turn grow amount'
@@ -597 +597 @@
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 65
-          ClientWidth = 303
+          ClientHeight = 77
+          ClientWidth = 310
           Items.Strings = (
             'By one'
@@ -607 +607 @@
         end
         object CheckBoxFogOfWar: TCheckBox
-          Left = 336
+          Left = 352
           Height = 30
           Top = 24
-          Width = 112
+          Width = 115
           Caption = 'Fog of war'
           ParentFont = False
@@ -618 +618 @@
           Left = 12
           Height = 110
-          Top = 314
-          Width = 959
+          Top = 330
+          Width = 961
           ActivePage = TabSheetCaptureEntireMap
           Anchors = [akTop, akLeft, akRight]
@@ -633 +633 @@
           end
           object TabSheetCaptureCells: TTabSheet
-            ClientHeight = 67
-            ClientWidth = 949
+            ClientHeight = 106
+            ClientWidth = 951
             ParentFont = False
             object Label14: TLabel
@@ -658 +658 @@
           end
           object TabSheetStayAliveTurns: TTabSheet
-            ClientHeight = 67
-            ClientWidth = 949
+            ClientHeight = 106
+            ClientWidth = 951
             ParentFont = False
             object Label13: TLabel