Changeset 262 for trunk/Forms


Ignore:
Timestamp:
Sep 24, 2018, 11:46:31 PM (6 years ago)
Author:
chronos
Message:
  • Added: New game option to set cells without player units as neutral.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormNew.lfm

    r250 r262  
    550550        object ComboBoxWinObjective: TComboBox
    551551          Left = 224
    552           Height = 40
     552          Height = 36
    553553          Top = 244
    554554          Width = 328
    … …  
    653653          end
    654654        end
     655        object CheckBoxEmptyCellsNeutral: TCheckBox
     656          Left = 336
     657          Height = 30
     658          Top = 62
     659          Width = 360
     660          Caption = 'Set cells without player units as neutral'
     661          TabOrder = 5
     662        end
    655663      end
    656664    end

  • trunk/Forms/UFormNew.pas

    r247 r262  
    3131    ButtonPlayerModify: TButton;
    3232    ButtonPlayerRemove: TButton;
     33    CheckBoxEmptyCellsNeutral: TCheckBox;
    3334    CheckBoxBridges: TCheckBox;
    3435    CheckBoxCity: TCheckBox;
    … …  
    538539    SpinEditTurns.Value := StayAliveForDefinedTurns;
    539540    SpinEditSpecialCells.Value := SpecialCaptureCellCount;
     541    CheckBoxEmptyCellsNeutral.Checked := EmptyCellsNeutral;
    540542  end;
    541543end;
    … …  
    580582    StayAliveForDefinedTurns := SpinEditTurns.Value;
    581583    SpecialCaptureCellCount := SpinEditSpecialCells.Value;
     584    EmptyCellsNeutral := CheckBoxEmptyCellsNeutral.Checked;
    582585  end;
    583586end;

  • trunk/Forms/UFormSettings.lfm

    r243 r262  
    11object FormSettings: TFormSettings
    22  Left = 535
    3   Height = 328
    4   Top = 417
    5   Width = 605
     3  Height = 359
     4  Top = 386
     5  Width = 576
    66  ActiveControl = ButtonOk
    77  Caption = 'Settings'
    8   ClientHeight = 328
    9   ClientWidth = 605
     8  ClientHeight = 359
     9  ClientWidth = 576
    1010  Constraints.MinHeight = 300
    1111  Constraints.MinWidth = 454
    12   DesignTimePPI = 120
     12  DesignTimePPI = 144
    1313  OnClose = FormClose
    1414  OnCreate = FormCreate
    … …  
    1717  LCLVersion = '1.8.2.0'
    1818  object ButtonOk: TButton
    19     Left = 522
     19    Left = 493
    2020    Height = 25
    21     Top = 289
     21    Top = 320
    2222    Width = 75
    2323    Anchors = [akRight, akBottom]
    … …  
    2727  end
    2828  object ButtonCancel: TButton
    29     Left = 427
     29    Left = 398
    3030    Height = 25
    31     Top = 289
     31    Top = 320
    3232    Width = 75
    3333    Anchors = [akRight, akBottom]
    … …  
    3838  object PageControl1: TPageControl
    3939    Left = 8
    40     Height = 273
     40    Height = 304
    4141    Top = 8
    42     Width = 589
    43     ActivePage = TabSheetDebug
     42    Width = 560
     43    ActivePage = TabSheetGeneral
    4444    Align = alTop
    4545    Anchors = [akTop, akLeft, akRight, akBottom]
    4646    BorderSpacing.Around = 8
    47     TabIndex = 1
     47    TabIndex = 0
    4848    TabOrder = 2
    4949    object TabSheetGeneral: TTabSheet
    5050      Caption = 'General'
    51       ClientHeight = 240
    52       ClientWidth = 581
     51      ClientHeight = 260
     52      ClientWidth = 554
    5353      object Panel1: TPanel
    5454        Left = 0
    55         Height = 240
     55        Height = 260
    5656        Top = 0
    57         Width = 581
     57        Width = 554
    5858        Align = alClient
    5959        BevelOuter = bvNone
    60         ClientHeight = 240
    61         ClientWidth = 581
     60        ClientHeight = 260
     61        ClientWidth = 554
    6262        TabOrder = 0
    6363        object Label1: TLabel
    6464          Left = 20
    65           Height = 20
    66           Top = 26
    67           Width = 68
     65          Height = 26
     66          Top = 32
     67          Width = 88
    6868          Caption = 'Language:'
    6969          ParentColor = False
    … …  
    7171        object ComboBoxLanguage: TComboBox
    7272          Left = 178
    73           Height = 28
     73          Height = 40
    7474          Top = 24
    7575          Width = 196
    76           ItemHeight = 20
     76          ItemHeight = 0
    7777          Style = csDropDownList
    7878          TabOrder = 0
    7979        end
    8080        object ComboBoxTheme: TComboBox
    81           Left = 178
    82           Height = 28
    83           Top = 56
     81          Left = 176
     82          Height = 40
     83          Top = 72
    8484          Width = 196
    85           ItemHeight = 20
     85          ItemHeight = 0
    8686          Style = csDropDownList
    8787          TabOrder = 1
    … …  
    8989        object Label6: TLabel
    9090          Left = 20
    91           Height = 20
    92           Top = 58
    93           Width = 48
     91          Height = 26
     92          Top = 80
     93          Width = 63
    9494          Caption = 'Theme:'
    9595          ParentColor = False
    … …  
    9797        object SpinEditAnimSpeed: TSpinEdit
    9898          Left = 232
    99           Height = 28
    100           Top = 110
     99          Height = 36
     100          Top = 120
    101101          Width = 122
    102102          TabOrder = 2
    … …  
    104104        object Label3: TLabel
    105105          Left = 368
    106           Height = 20
    107           Top = 114
    108           Width = 12
     106          Height = 26
     107          Top = 124
     108          Width = 15
    109109          Caption = '%'
    110110          ParentColor = False
    … …  
    112112        object Label2: TLabel
    113113          Left = 20
    114           Height = 20
    115           Top = 110
    116           Width = 116
     114          Height = 26
     115          Top = 120
     116          Width = 150
    117117          Caption = 'Animation speed:'
    118118          ParentColor = False
    … …  
    120120        object CheckBoxAutoSaveTurn: TCheckBox
    121121          Left = 20
    122           Height = 24
    123           Top = 144
    124           Width = 213
     122          Height = 30
     123          Top = 154
     124          Width = 269
    125125          Caption = 'Autosave game on each turn'
    126126          TabOrder = 3
    … …  
    128128        object CheckBoxReopenLastFile: TCheckBox
    129129          Left = 20
    130           Height = 24
    131           Top = 184
    132           Width = 198
     130          Height = 30
     131          Top = 194
     132          Width = 249
    133133          Caption = 'Reopen last game on start'
    134134          TabOrder = 4
    … …  
    138138    object TabSheetDebug: TTabSheet
    139139      Caption = 'Debug'
    140       ClientHeight = 240
    141       ClientWidth = 581
     140      ClientHeight = 260
     141      ClientWidth = 554
    142142      object Panel2: TPanel
    143143        Left = 0
    144         Height = 240
     144        Height = 229
    145145        Top = 0
    146         Width = 581
     146        Width = 583
    147147        Align = alClient
    148148        BevelOuter = bvNone
    149         ClientHeight = 240
    150         ClientWidth = 581
     149        ClientHeight = 229
     150        ClientWidth = 583
    151151        TabOrder = 0
    152152        object CheckBox2: TCheckBox
    … …  
    154154          Height = 24
    155155          Top = 32
    156           Width = 549
     156          Width = 551
    157157          Anchors = [akTop, akLeft, akRight]
    158158          AutoSize = False
    … …  
    163163        object Label4: TLabel
    164164          Left = 14
    165           Height = 20
     165          Height = 26
    166166          Top = 67
    167           Width = 26
     167          Width = 35
    168168          Caption = 'DPI:'
    169169          ParentColor = False
    … …  
    171171        object SpinEditX: TSpinEdit
    172172          Left = 104
    173           Height = 28
     173          Height = 36
    174174          Top = 64
    175175          Width = 96
    … …  
    181181        object Label5: TLabel
    182182          Left = 208
    183           Height = 20
     183          Height = 26
    184184          Top = 67
    185           Width = 7
     185          Width = 10
    186186          Caption = 'x'
    187187          ParentColor = False
    … …  
    189189        object SpinEditY: TSpinEdit
    190190          Left = 232
    191           Height = 28
     191          Height = 36
    192192          Top = 64
    193193          Width = 90
    … …  
    201201          Height = 27
    202202          Top = 136
    203           Width = 553
     203          Width = 555
    204204          Anchors = [akTop, akLeft, akRight]
    205205          AutoSize = False
Note: See TracChangeset for help on using the changeset viewer.