Changeset 194 for trunk/Forms/UFormNew.lfm

Timestamp:

May 14, 2018, 5:38:45 PM (6 years ago)

Author:

chronos

Message:

• Added: Configurable game parameter maximum units per cell.

File:

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

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
-  Left = 596
-  Height = 617
-  Top = 243
-  Width = 775
+  Left = 387
+  Height = 843
+  Top = 102
+  Width = 1069
   Caption = 'New game'
-  ClientHeight = 617
-  ClientWidth = 775
+  ClientHeight = 843
+  ClientWidth = 1069
   Constraints.MinHeight = 501
   Constraints.MinWidth = 667
@@ -15 +15 @@
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.2.0'
   object PageControl1: TPageControl
     Left = 4
-    Height = 330
+    Height = 556
     Top = 4
-    Width = 767
-    ActivePage = TabSheetMode
+    Width = 1061
+    ActivePage = TabSheet2
     Align = alClient
     BorderSpacing.Around = 4
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 0
     object TabSheetMode: TTabSheet
@@ -180 +180 @@
     object TabSheet2: TTabSheet
       Caption = 'Map'
-      ClientHeight = 297
-      ClientWidth = 759
+      ClientHeight = 523
+      ClientWidth = 1053
       object Label1: TLabel
         Left = 8
@@ -222 +222 @@
         Height = 47
         Top = 8
-        Width = 508
+        Width = 802
         Max = 100
         Min = 2
@@ -235 +235 @@
         Height = 47
         Top = 49
-        Width = 508
+        Width = 802
         Max = 100
         Min = 2
@@ -293 +293 @@
         Height = 27
         Top = 110
-        Width = 271
+        Width = 565
         Anchors = [akTop, akLeft, akRight]
         AutoSize = False
@@ -354 +354 @@
         Left = 408
         Height = 28
-        Top = 352
+        Top = 384
         Width = 98
         MaxValue = 99
-        OnChange = SpinEditMapSizeYChange
         TabOrder = 11
         Value = 12
@@ -364 +363 @@
         Left = 8
         Height = 20
-        Top = 352
+        Top = 384
         Width = 172
         Caption = 'Max random neutral units:'
@@ -373 +372 @@
         Height = 28
         Top = 184
-        Width = 492
+        Width = 786
         Anchors = [akTop, akLeft, akRight]
         TabOrder = 12
       end
       object ButtonImageBrowse: TButton
-        Left = 644
+        Left = 938
         Height = 25
         Top = 192
@@ -402 +401 @@
         Caption = 'Bridges between cells'
         TabOrder = 14
+      end
+      object SpinEditMaxPower: TSpinEdit
+        Left = 408
+        Height = 28
+        Top = 344
+        Width = 98
+        MaxValue = 1000000
+        MinValue = 1
+        OnChange = SpinEditMaxPowerChange
+        TabOrder = 15
+        Value = 99
+      end
+      object Label10: TLabel
+        Left = 8
+        Height = 20
+        Top = 344
+        Width = 119
+        Caption = 'Max units per cell:'
+        ParentColor = False
       end
     end
@@ -491 +509 @@
     Left = 0
     Height = 45
-    Top = 572
-    Width = 775
+    Top = 798
+    Width = 1069
     Align = alBottom
     BevelOuter = bvNone
     ClientHeight = 45
-    ClientWidth = 775
+    ClientWidth = 1069
     TabOrder = 1
     object ButtonOk: TButton
-      Left = 587
+      Left = 881
       Height = 25
       Top = 6
@@ -509 +527 @@
     end
     object ButtonCancel: TButton
-      Left = 691
+      Left = 985
       Height = 25
       Top = 6
@@ -522 +540 @@
     Left = 0
     Height = 228
-    Top = 344
-    Width = 775
+    Top = 570
+    Width = 1069
     Align = alBottom
     BevelOuter = bvNone
@@ -532 +550 @@
     Left = 0
     Height = 6
-    Top = 338
-    Width = 775
+    Top = 564
+    Width = 1069
     Align = alBottom
     ResizeAnchor = akBottom