Changeset 197 for trunk/Forms

Timestamp:

May 16, 2018, 11:03:48 AM (7 years ago)

Author:

chronos

Message:

• Added: Evaluate win objection to stay alive for defined number of turns. Multiple players can win.

Location:

trunk/Forms

Files:

• UFormNew.lfm (modified) (22 diffs)
• UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
   Left = 387
-  Height = 843
+  Height = 748
   Top = 102
-  Width = 1069
+  Width = 795
   Caption = 'New game'
-  ClientHeight = 843
-  ClientWidth = 1069
+  ClientHeight = 748
+  ClientWidth = 795
   Constraints.MinHeight = 501
   Constraints.MinWidth = 667
@@ -18 +18 @@
   object PageControl1: TPageControl
     Left = 4
-    Height = 556
+    Height = 461
     Top = 4
-    Width = 1061
-    ActivePage = TabSheetMode
+    Width = 787
+    ActivePage = TabSheet3
     Align = alClient
     BorderSpacing.Around = 4
-    TabIndex = 0
+    TabIndex = 3
     TabOrder = 0
     object TabSheetMode: TTabSheet
       Caption = 'Mode'
-      ClientHeight = 523
-      ClientWidth = 1053
+      ClientHeight = 362
+      ClientWidth = 694
       object RadioButtonModeLocal: TRadioButton
         Left = 10
@@ -90 +90 @@
       object ListViewServers: TListView
         Left = 26
-        Height = 291
+        Height = 130
         Top = 181
         Width = 334
@@ -118 +118 @@
         Left = 27
         Height = 31
-        Top = 484
+        Top = 323
         Width = 94
         Action = AServerAdd
@@ -127 +127 @@
         Left = 240
         Height = 31
-        Top = 484
+        Top = 323
         Width = 94
         Action = AServerRemove
@@ -136 +136 @@
         Left = 136
         Height = 30
-        Top = 484
+        Top = 323
         Width = 94
         Action = AServerModify
@@ -145 +145 @@
     object TabSheet1: TTabSheet
       Caption = 'Players'
-      ClientHeight = 297
-      ClientWidth = 759
+      ClientHeight = 428
+      ClientWidth = 779
       object ListViewPlayers: TListView
         Left = 4
-        Height = 247
+        Height = 378
         Top = 4
-        Width = 751
+        Width = 771
         Align = alTop
         Anchors = [akTop, akLeft, akRight, akBottom]
@@ -188 +188 @@
         Left = 224
         Height = 25
-        Top = 259
+        Top = 390
         Width = 83
         Action = APlayerRemove
@@ -197 +197 @@
         Left = 16
         Height = 25
-        Top = 259
+        Top = 390
         Width = 83
         Action = APlayerAdd
@@ -206 +206 @@
         Left = 120
         Height = 25
-        Top = 259
+        Top = 390
         Width = 83
         Action = APlayerModify
@@ -216 +216 @@
     object TabSheet2: TTabSheet
       Caption = 'Map'
-      ClientHeight = 523
-      ClientWidth = 1053
+      ClientHeight = 428
+      ClientWidth = 779
       object Label1: TLabel
         Left = 8
@@ -258 +258 @@
         Height = 47
         Top = 8
-        Width = 802
+        Width = 528
         Max = 100
         Min = 2
@@ -271 +271 @@
         Height = 47
         Top = 49
-        Width = 802
+        Width = 528
         Max = 100
         Min = 2
@@ -329 +329 @@
         Height = 27
         Top = 110
-        Width = 565
+        Width = 291
         Anchors = [akTop, akLeft, akRight]
         AutoSize = False
@@ -408 +408 @@
         Height = 28
         Top = 184
-        Width = 786
+        Width = 512
         Anchors = [akTop, akLeft, akRight]
         TabOrder = 12
       end
       object ButtonImageBrowse: TButton
-        Left = 938
+        Left = 664
         Height = 25
         Top = 192
@@ -460 +460 @@
     object TabSheet3: TTabSheet
       Caption = 'Rules'
-      ClientHeight = 297
-      ClientWidth = 759
+      ClientHeight = 428
+      ClientWidth = 779
       object RadioGroupGrowCells: TRadioGroup
         Left = 15
@@ -534 +534 @@
         Height = 27
         Top = 24
-        Width = 599
+        Width = 619
         Anchors = [akTop, akLeft, akRight]
         AutoSize = False
@@ -540 +540 @@
         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
+        TabOrder = 4
+        Value = 1
+      end
     end
   end
@@ -545 +563 @@
     Left = 0
     Height = 45
-    Top = 798
-    Width = 1069
+    Top = 703
+    Width = 795
     Align = alBottom
     BevelOuter = bvNone
     ClientHeight = 45
-    ClientWidth = 1069
+    ClientWidth = 795
     TabOrder = 1
     object ButtonOk: TButton
-      Left = 881
+      Left = 607
       Height = 25
       Top = 6
@@ -563 +581 @@
     end
     object ButtonCancel: TButton
-      Left = 985
+      Left = 711
       Height = 25
       Top = 6
@@ -576 +594 @@
     Left = 0
     Height = 228
-    Top = 570
-    Width = 1069
+    Top = 475
+    Width = 795
     Align = alBottom
     BevelOuter = bvNone
@@ -586 +604 @@
     Left = 0
     Height = 6
-    Top = 564
-    Width = 1069
+    Top = 469
+    Width = 795
     Align = alBottom
     ResizeAnchor = akBottom

trunk/Forms/UFormNew.pas

@@ -45 +45 @@
     Label11: TLabel;
     Label12: TLabel;
+    Label13: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -72 +73 @@
     RadioGroupGrowAmount: TRadioGroup;
     RadioGroupGrowCells: TRadioGroup;
+    SpinEditTurns: TSpinEdit;
     SpinEditMaxPower: TSpinEdit;
     SpinEditServerPort: TSpinEdit;
@@ -501 +503 @@
     SpinEditServerPort.Value := LocalNetworkPort;
     SpinEditMaxPower.Value := Game.MaxPower;
+    SpinEditTurns.Value := Game.StayAliveForDefinedTurns;
   end;
 end;
@@ -536 +539 @@
     Game.BridgeEnabled := CheckBoxBridges.Checked;
     Game.MaxPower := SpinEditMaxPower.Value;
+    Game.StayAliveForDefinedTurns := SpinEditTurns.Value;
   end;
 end;