Changeset 198 for trunk/Forms/UFormNew.lfm

Timestamp:

May 16, 2018, 1:38:11 PM (6 years ago)

Author:

chronos

Message:

• Added: Capture all special cells objective is now functional. Number of such cells can be specified. They are randomly spread across map and such cells are marked with "!" symbol after its number of units.

File:

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

trunk/Forms/UFormNew.lfm

@@ -505 +505 @@
           'Stay alive for number of turns'
         )
+        OnChange = ComboBoxWinObjectiveChange
         Style = csDropDownList
         TabOrder = 1
@@ -540 +541 @@
         TabOrder = 3
       end
-      object Label13: TLabel
-        Left = 8
-        Height = 20
-        Top = 280
-        Width = 111
-        Caption = 'Number of turns:'
-        ParentColor = False
-      end
-      object SpinEditTurns: TSpinEdit
-        Left = 236
-        Height = 28
-        Top = 278
-        Width = 159
-        MaxValue = 1000
-        MinValue = 1
+      object PageControl2: TPageControl
+        Left = 12
+        Height = 78
+        Top = 274
+        Width = 756
+        ActivePage = TabSheetCaptureCities
+        Anchors = [akTop, akLeft, akRight]
+        ShowTabs = False
+        TabIndex = 1
         TabOrder = 4
-        Value = 1
+        object TabSheetDefeatEnemies: TTabSheet
+        end
+        object TabSheetCaptureCities: TTabSheet
+        end
+        object TabSheetCaptureCells: TTabSheet
+          ClientHeight = 70
+          ClientWidth = 748
+          object Label14: TLabel
+            Left = 8
+            Height = 20
+            Top = 16
+            Width = 125
+            Caption = 'Special cells count:'
+            ParentColor = False
+          end
+          object SpinEditSpecialCells: TSpinEdit
+            Left = 236
+            Height = 28
+            Top = 8
+            Width = 159
+            MaxValue = 1000
+            MinValue = 1
+            TabOrder = 0
+            Value = 1
+          end
+        end
+        object TabSheetStayAliveTurns: TTabSheet
+          ClientHeight = 70
+          ClientWidth = 748
+          object Label13: TLabel
+            Left = 8
+            Height = 20
+            Top = 16
+            Width = 111
+            Caption = 'Number of turns:'
+            ParentColor = False
+          end
+          object SpinEditTurns: TSpinEdit
+            Left = 236
+            Height = 28
+            Top = 8
+            Width = 159
+            MaxValue = 1000
+            MinValue = 1
+            TabOrder = 0
+            Value = 1
+          end
+        end
       end
     end