Changeset 38 for trunk/Forms/UFormNew.lfm

Timestamp:

Mar 8, 2014, 10:34:55 PM (11 years ago)

Author:

chronos

Message:

• Added: Support for cities. Cities can be used as only growing cells.
• Added: Allow to set grow rate as square root of cell power.

File:

• trunk/Forms/UFormNew.lfm (modified) (12 diffs)

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
   Left = 706
-  Height = 516
+  Height = 526
   Top = 455
   Width = 716
   Caption = 'New game'
-  ClientHeight = 516
+  ClientHeight = 526
   ClientWidth = 716
   OnCreate = FormCreate
@@ -14 +14 @@
     Left = 632
     Height = 25
-    Top = 479
+    Top = 490
     Width = 75
+    Anchors = [akRight, akBottom]
     Caption = 'Ok'
     ModalResult = 1
@@ -23 +24 @@
     Left = 544
     Height = 25
-    Top = 480
+    Top = 491
     Width = 75
+    Anchors = [akBottom]
     Caption = 'Cancel'
     ModalResult = 2
@@ -32 +34 @@
     Left = 16
     Height = 24
-    Top = 172
-    Width = 175
+    Top = 276
+    Width = 194
     Caption = 'Inaccessible places'
     OnChange = CheckBoxVoidChange
@@ -89 +91 @@
     Left = 16
     Height = 22
-    Top = 224
-    Width = 88
+    Top = 184
+    Width = 99
     Caption = 'Map width:'
     ParentColor = False
@@ -97 +99 @@
     Left = 136
     Height = 32
-    Top = 219
+    Top = 179
     Width = 98
     MinValue = 2
@@ -107 +109 @@
     Left = 136
     Height = 32
-    Top = 270
+    Top = 230
     Width = 98
     MinValue = 2
@@ -127 +129 @@
     Left = 224
     Height = 32
-    Top = 168
+    Top = 272
     Width = 106
     MinValue = 1
@@ -136 +138 @@
     Left = 339
     Height = 22
-    Top = 173
-    Width = 15
+    Top = 277
+    Width = 17
     Caption = '%'
     ParentColor = False
@@ -144 +146 @@
     Left = 248
     Height = 43
-    Top = 216
+    Top = 176
     Width = 451
     Max = 100
@@ -157 +159 @@
     Left = 248
     Height = 43
-    Top = 264
+    Top = 224
     Width = 451
     Max = 100
@@ -170 +172 @@
     Left = 16
     Height = 22
+    Top = 232
+    Width = 106
+    Caption = 'Map height:'
+    ParentColor = False
+  end
+  object CheckBoxCity: TCheckBox
+    Left = 16
+    Height = 24
+    Top = 316
+    Width = 73
+    Caption = 'Cities'
+    OnChange = CheckBoxCityChange
+    TabOrder = 12
+  end
+  object SpinEditCityPercent: TSpinEdit
+    Left = 224
+    Height = 32
+    Top = 312
+    Width = 106
+    MinValue = 1
+    TabOrder = 13
+    Value = 1
+  end
+  object Label4: TLabel
+    Left = 339
+    Height = 22
+    Top = 317
+    Width = 17
+    Caption = '%'
+    ParentColor = False
+  end
+  object RadioGroupGrowAmount: TRadioGroup
+    Left = 376
+    Height = 76
     Top = 272
-    Width = 94
-    Caption = 'Map height:'
-    ParentColor = False
+    Width = 241
+    AutoFill = True
+    Caption = 'Per turn grow amount'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 52
+    ClientWidth = 237
+    Items.Strings = (
+      'By one'
+      'By square root'
+    )
+    TabOrder = 14
+  end
+  object RadioGroupGrowCells: TRadioGroup
+    Left = 16
+    Height = 105
+    Top = 360
+    Width = 185
+    AutoFill = True
+    Caption = 'Growing cells'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 81
+    ClientWidth = 181
+    Items.Strings = (
+      'None'
+      'Player cities'
+      'Player all'
+    )
+    TabOrder = 15
   end
 end