Changeset 70 for trunk/Forms

Timestamp:

Sep 28, 2014, 6:04:57 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for symetric map usable for two players game.

Location:

trunk/Forms

Files:

• UFormNew.lfm (modified) (20 diffs)
• UFormNew.lrt (modified) (1 diff)
• UFormNew.pas (modified) (3 diffs)

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
-  Left = 706
+  Left = 440
   Height = 614
-  Top = 455
+  Top = 178
   Width = 716
   Caption = 'New game'
@@ -127 +127 @@
     object CheckBoxVoid: TCheckBox
       Left = 8
-      Height = 27
+      Height = 24
       Top = 101
-      Width = 198
+      Width = 175
       Caption = 'Inaccessible places'
       OnChange = CheckBoxVoidChange
@@ -136 +136 @@
     object Label1: TLabel
       Left = 8
-      Height = 25
+      Height = 22
       Top = 9
-      Width = 104
+      Width = 88
       Caption = 'Map width:'
       ParentColor = False
@@ -144 +144 @@
     object SpinEditMapSizeX: TSpinEdit
       Left = 128
-      Height = 35
+      Height = 32
       Top = 4
       Width = 98
@@ -154 +154 @@
     object SpinEditMapSizeY: TSpinEdit
       Left = 128
-      Height = 35
+      Height = 32
       Top = 55
       Width = 98
@@ -164 +164 @@
     object SpinEditVoidPercent: TSpinEdit
       Left = 216
-      Height = 35
+      Height = 32
       Top = 97
       Width = 106
@@ -173 +173 @@
     object Label3: TLabel
       Left = 331
-      Height = 25
+      Height = 22
       Top = 102
-      Width = 17
+      Width = 15
       Caption = '%'
       ParentColor = False
@@ -207 +207 @@
     object Label2: TLabel
       Left = 8
-      Height = 25
+      Height = 22
       Top = 57
-      Width = 110
+      Width = 94
       Caption = 'Map height:'
       ParentColor = False
@@ -215 +215 @@
     object CheckBoxCity: TCheckBox
       Left = 8
-      Height = 27
+      Height = 24
       Top = 141
-      Width = 73
+      Width = 68
       Caption = 'Cities'
       OnChange = CheckBoxCityChange
@@ -224 +224 @@
     object SpinEditCityPercent: TSpinEdit
       Left = 216
-      Height = 35
+      Height = 32
       Top = 137
       Width = 106
@@ -233 +233 @@
     object Label4: TLabel
       Left = 331
-      Height = 25
+      Height = 22
       Top = 142
-      Width = 17
+      Width = 15
       Caption = '%'
       ParentColor = False
@@ -253 +253 @@
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 49
+      ClientHeight = 52
       ClientWidth = 301
       Items.Strings = (
@@ -275 +275 @@
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 78
+      ClientHeight = 81
       ClientWidth = 308
       Items.Strings = (
@@ -286 +286 @@
     object ComboBoxGridType: TComboBox
       Left = 473
-      Height = 33
+      Height = 30
       Top = 201
       Width = 208
@@ -300 +300 @@
     object Label5: TLabel
       Left = 336
-      Height = 25
+      Height = 22
       Top = 201
-      Width = 90
+      Width = 79
       Caption = 'Grid type:'
       ParentColor = False
@@ -308 +308 @@
     object Label6: TLabel
       Left = 8
-      Height = 25
+      Height = 22
       Top = 313
-      Width = 129
+      Width = 114
       Caption = 'Win objective:'
       ParentColor = False
@@ -316 +316 @@
     object ComboBoxWinObjective: TComboBox
       Left = 232
-      Height = 33
+      Height = 30
       Top = 305
       Width = 328
@@ -331 +331 @@
     object Label7: TLabel
       Left = 8
-      Height = 25
+      Height = 22
       Top = 348
-      Width = 245
+      Width = 211
       Caption = 'Max random neutral units:'
       ParentColor = False
@@ -339 +339 @@
     object SpinEditNeutralUnits: TSpinEdit
       Left = 384
-      Height = 35
+      Height = 32
       Top = 344
       Width = 98
@@ -346 +346 @@
       TabOrder = 14
       Value = 12
+    end
+    object CheckBoxSymetricMap: TCheckBox
+      Left = 334
+      Height = 24
+      Top = 238
+      Width = 133
+      Caption = 'Symetric map'
+      TabOrder = 15
     end
   end

trunk/Forms/UFormNew.lrt

@@ -20 +20 @@
 TFORMNEW.LABEL6.CAPTION=Win objective:
 TFORMNEW.LABEL7.CAPTION=Max random neutral units:
+TFORMNEW.CHECKBOXSYMETRICMAP.CAPTION=Symetric map
 TFORMNEW.APLAYERMODIFY.CAPTION=Modify player
 TFORMNEW.APLAYERADD.CAPTION=Add player

trunk/Forms/UFormNew.pas

@@ -23 +23 @@
     ButtonPlayerModify: TButton;
     ButtonPlayerRemove: TButton;
+    CheckBoxSymetricMap: TCheckBox;
     CheckBoxCity: TCheckBox;
     CheckBoxVoid: TCheckBox;
@@ -271 +272 @@
   NewItem: TListItem;
 begin
+  CheckBoxSymetricMap.Checked := Game.SymetricMap;
   CheckBoxVoid.Checked := Game.VoidEnabled;
   SpinEditVoidPercent.Value := Game.VoidPercentage;
@@ -306 +308 @@
     TPlayer(Game.Players[I]).Game := Game;
   end;
+  Game.SymetricMap := CheckBoxSymetricMap.Checked;
   Game.VoidEnabled := CheckBoxVoid.Checked;
   Game.VoidPercentage := SpinEditVoidPercent.Value;