Changeset 265 for trunk/Forms/UFormNew.lfm

Timestamp:

Jan 15, 2019, 1:03:40 AM (6 years ago)

Author:

chronos

Message:

• Modified: Cell power is now internally represented as unit power (TUnit class).
• Modified: Allow to have only one player in the game.
• Added: New win objective None to just play freely without any win objective.
• Added: New win objective to capture entire map.
• Added: TGameSystem class to represent various game play systems of other existing games.
• Fixed: Clear correctly defender player from unit moves if his cell is captured.
• Fixed: Do not allow to remove too many players to have at least minimum players.

File:

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

trunk/Forms/UFormNew.lfm

@@ -15 +15 @@
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.8.2.0'
+  LCLVersion = '1.8.4.0'
   object PageControl1: TPageControl
     Left = 4
@@ -21 +21 @@
     Top = 4
     Width = 749
-    ActivePage = TabSheetMap
+    ActivePage = TabSheetRules
     Align = alClient
     BorderSpacing.Around = 4
-    TabIndex = 2
+    TabIndex = 3
     TabOrder = 0
     object TabSheetMode: TTabSheet
       Caption = 'Mode'
-      ClientHeight = 651
-      ClientWidth = 743
+      ClientHeight = 655
+      ClientWidth = 739
       object Panel3: TPanel
         Left = 0
@@ -113 +113 @@
             item
               Caption = 'Address'
-              Width = 214
+              Width = 219
             end>
           MultiSelect = True
@@ -158 +158 @@
     object TabSheetPlayers: TTabSheet
       Caption = 'Players'
-      ClientHeight = 651
-      ClientWidth = 743
+      ClientHeight = 655
+      ClientWidth = 739
       object Panel2: TPanel
         Left = 0
-        Height = 651
+        Height = 655
         Top = 0
-        Width = 743
+        Width = 739
         Align = alClient
         BevelOuter = bvNone
-        ClientHeight = 651
-        ClientWidth = 743
+        ClientHeight = 655
+        ClientWidth = 739
         TabOrder = 0
         object ListViewPlayers: TListView
           Left = 4
-          Height = 601
+          Height = 605
           Top = 4
-          Width = 735
+          Width = 731
           Align = alTop
           Anchors = [akTop, akLeft, akRight, akBottom]
@@ -212 +212 @@
           Left = 16
           Height = 25
-          Top = 613
+          Top = 617
           Width = 83
           Action = APlayerAdd
@@ -221 +221 @@
           Left = 120
           Height = 25
-          Top = 613
+          Top = 617
           Width = 83
           Action = APlayerModify
@@ -230 +230 @@
           Left = 224
           Height = 25
-          Top = 613
+          Top = 617
           Width = 83
           Action = APlayerRemove
@@ -240 +240 @@
     object TabSheetMap: TTabSheet
       Caption = 'Map'
-      ClientHeight = 651
-      ClientWidth = 743
+      ClientHeight = 655
+      ClientWidth = 739
       object Panel1: TPanel
         Left = 0
-        Height = 651
+        Height = 655
         Top = 0
-        Width = 743
+        Width = 739
         Align = alClient
         BevelOuter = bvNone
-        ClientHeight = 651
-        ClientWidth = 743
+        ClientHeight = 655
+        ClientWidth = 739
         TabOrder = 0
         object Label1: TLabel
@@ -270 +270 @@
         object SpinEditMapSizeX: TSpinEdit
           Left = 128
-          Height = 36
+          Height = 43
           Top = 4
           Width = 98
@@ -280 +280 @@
         object SpinEditMapSizeY: TSpinEdit
           Left = 128
-          Height = 36
+          Height = 43
           Top = 55
           Width = 98
@@ -290 +290 @@
         object TrackBarSizeX: TTrackBar
           Left = 240
-          Height = 47
+          Height = 58
           Top = 8
-          Width = 492
+          Width = 488
           Max = 100
           Min = 2
@@ -303 +303 @@
         object TrackBarSizeY: TTrackBar
           Left = 240
-          Height = 47
+          Height = 58
           Top = 49
-          Width = 492
+          Width = 488
           Max = 100
           Min = 2
@@ -324 +324 @@
         object ComboBoxGridType: TComboBox
           Left = 146
-          Height = 36
+          Height = 42
           Top = 104
           Width = 208
@@ -340 +340 @@
         object ComboBoxMapShape: TComboBox
           Left = 146
-          Height = 36
+          Height = 42
           Top = 144
           Width = 208
@@ -365 +365 @@
           Height = 27
           Top = 110
-          Width = 255
+          Width = 251
           Anchors = [akTop, akLeft, akRight]
           AutoSize = False
@@ -373 +373 @@
         object SpinEditVoidPercent: TSpinEdit
           Left = 216
-          Height = 36
+          Height = 43
           Top = 224
           Width = 106
@@ -384 +384 @@
           Height = 30
           Top = 232
-          Width = 187
+          Width = 189
           Caption = 'Inaccessible places'
           OnChange = CheckBoxVoidChange
@@ -393 +393 @@
           Height = 30
           Top = 272
-          Width = 71
+          Width = 73
           Caption = 'Cities'
           OnChange = CheckBoxCityChange
@@ -400 +400 @@
         object SpinEditCityPercent: TSpinEdit
           Left = 216
-          Height = 36
+          Height = 43
           Top = 272
           Width = 106
@@ -425 +425 @@
         object SpinEditNeutralUnits: TSpinEdit
           Left = 408
-          Height = 36
+          Height = 43
           Top = 384
           Width = 98
@@ -442 +442 @@
         object EditImageFile: TEdit
           Left = 144
-          Height = 36
+          Height = 43
           Top = 184
-          Width = 476
+          Width = 472
           Anchors = [akTop, akLeft, akRight]
           TabOrder = 12
         end
         object ButtonImageBrowse: TButton
-          Left = 628
+          Left = 624
           Height = 25
           Top = 192
@@ -470 +470 @@
           Height = 30
           Top = 310
-          Width = 210
+          Width = 212
           Caption = 'Bridges between cells'
           TabOrder = 14
@@ -476 +476 @@
         object SpinEditMaxPower: TSpinEdit
           Left = 408
-          Height = 36
+          Height = 43
           Top = 344
           Width = 98
@@ -497 +497 @@
           Height = 27
           Top = 137
-          Width = 255
+          Width = 251
           Anchors = [akTop, akLeft, akRight]
           AutoSize = False
@@ -507 +507 @@
     object TabSheetRules: TTabSheet
       Caption = 'Rules'
-      ClientHeight = 651
-      ClientWidth = 743
+      ClientHeight = 655
+      ClientWidth = 739
       object Panel4: TPanel
         Left = 0
-        Height = 651
+        Height = 655
         Top = 0
-        Width = 743
+        Width = 739
         Align = alClient
         BevelOuter = bvNone
-        ClientHeight = 651
-        ClientWidth = 743
+        ClientHeight = 655
+        ClientWidth = 739
         TabOrder = 0
         object RadioGroupGrowCells: TRadioGroup
@@ -533 +533 @@
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 77
-          ClientWidth = 308
+          ClientHeight = 78
+          ClientWidth = 310
           Items.Strings = (
             'None'
@@ -552 +552 @@
         object ComboBoxWinObjective: TComboBox
           Left = 224
-          Height = 36
+          Height = 38
           Top = 244
           Width = 328
@@ -580 +580 @@
           ChildSizing.Layout = cclLeftToRightThenTopToBottom
           ChildSizing.ControlsPerLine = 1
-          ClientHeight = 48
-          ClientWidth = 301
+          ClientHeight = 49
+          ClientWidth = 303
           Items.Strings = (
             'By one'
@@ -592 +592 @@
           Height = 30
           Top = 24
-          Width = 113
+          Width = 115
           Caption = 'Fog of war'
           TabOrder = 3
@@ -600 +600 @@
           Height = 78
           Top = 290
-          Width = 720
+          Width = 716
           ActivePage = TabSheetCaptureCities
           Anchors = [akTop, akLeft, akRight]
@@ -611 +611 @@
           end
           object TabSheetCaptureCells: TTabSheet
-            ClientHeight = 72
-            ClientWidth = 714
+            ClientHeight = 74
+            ClientWidth = 706
             object Label14: TLabel
               Left = 8
@@ -633 +633 @@
           end
           object TabSheetStayAliveTurns: TTabSheet
-            ClientHeight = 72
-            ClientWidth = 714
+            ClientHeight = 74
+            ClientWidth = 706
             object Label13: TLabel
               Left = 8
@@ -659 +659 @@
           Height = 30
           Top = 62
-          Width = 360
+          Width = 362
           Caption = 'Set cells without player units as neutral'
           TabOrder = 5