Changeset 42 for trunk/Forms/UFormNew.lfm

Timestamp:

Mar 18, 2014, 12:16:04 AM (11 years ago)

Author:

chronos

Message:

• Added: Min and Max buttons on unit move form for easy usual actions.
• Added: Win objective can be selected on New game form.
• Added: Max number of netureal starting units per cell cen be adjusted.
• Added: Unit count is shown in move arrows.

File:

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

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
   Left = 706
-  Height = 505
+  Height = 614
   Top = 455
   Width = 716
   Caption = 'New game'
-  ClientHeight = 505
+  ClientHeight = 614
   ClientWidth = 716
   OnCreate = FormCreate
@@ -97 +97 @@
   object Panel2: TPanel
     Left = 0
-    Height = 330
+    Height = 439
     Top = 175
     Width = 716
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 330
+    ClientHeight = 439
     ClientWidth = 716
     TabOrder = 2
@@ -108 +108 @@
       Left = 624
       Height = 25
-      Top = 283
+      Top = 392
       Width = 75
       Anchors = [akRight, akBottom]
@@ -118 +118 @@
       Left = 535
       Height = 25
-      Top = 283
+      Top = 392
       Width = 75
       Anchors = [akBottom]
@@ -286 +286 @@
     object ComboBoxGridType: TComboBox
       Left = 312
-      Height = 34
+      Height = 30
       Top = 201
       Width = 208
@@ -305 +305 @@
       ParentColor = False
     end
+    object Label6: TLabel
+      Left = 8
+      Height = 22
+      Top = 313
+      Width = 114
+      Caption = 'Win objective:'
+      ParentColor = False
+    end
+    object ComboBoxWinObjective: TComboBox
+      Left = 160
+      Height = 30
+      Top = 305
+      Width = 208
+      ItemHeight = 0
+      Items.Strings = (
+        'Defeat all oponents'
+        'Defeat all oponents cities'
+        'Capture position'
+        'Stay alive for number of turns'
+      )
+      Style = csDropDownList
+      TabOrder = 13
+    end
+    object Label7: TLabel
+      Left = 8
+      Height = 22
+      Top = 348
+      Width = 211
+      Caption = 'Max random neutral units:'
+      ParentColor = False
+    end
+    object SpinEditNeutralUnits: TSpinEdit
+      Left = 272
+      Height = 32
+      Top = 343
+      Width = 98
+      MaxValue = 99
+      OnChange = SpinEditMapSizeYChange
+      TabOrder = 14
+      Value = 12
+    end
   end
   object ActionList1: TActionList