Ignore:
Timestamp:
Jul 19, 2024, 9:46:33 PM (4 months ago)
Author:
chronos
Message:
  • Fixed: New game symetric map units calcualtion.
  • Fixed: Map preview with cell and unit borders.
  • Fixed: Allow to set preferred game system grid type.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/FormNew.lfm

    r325 r330  
    2020    Top = 60
    2121    Width = 691
    22     ActivePage = TabSheetRules
     22    ActivePage = TabSheetMap
    2323    Align = alClient
    2424    BorderSpacing.Around = 4
    2525    ParentFont = False
    26     TabIndex = 3
     26    TabIndex = 2
    2727    TabOrder = 0
    2828    OnChange = PageControl1Change
    2929    object TabSheetMode: TTabSheet
    3030      Caption = 'Mode'
    31       ClientHeight = 637
    32       ClientWidth = 681
     31      ClientHeight = 639
     32      ClientWidth = 683
    3333      ParentFont = False
    3434      object Panel3: TPanel
    3535        Left = 0
    36         Height = 637
     36        Height = 639
    3737        Top = 0
    38         Width = 681
     38        Width = 683
    3939        Align = alClient
    4040        BevelOuter = bvNone
    41         ClientHeight = 637
    42         ClientWidth = 681
     41        ClientHeight = 639
     42        ClientWidth = 683
    4343        ParentFont = False
    4444        TabOrder = 0
    4545        object RadioButtonModeLocal: TRadioButton
    4646          Left = 10
    47           Height = 30
     47          Height = 29
    4848          Top = 14
    49           Width = 70
     49          Width = 65
    5050          Caption = 'Local'
    5151          Checked = True
     
    5757        object RadioButtonModeNetworkServer: TRadioButton
    5858          Left = 10
    59           Height = 30
     59          Height = 29
    6060          Top = 48
    61           Width = 155
     61          Width = 144
    6262          Caption = 'Network server'
    6363          ParentFont = False
     
    6767        object RadioButtonModeNetworkClient: TRadioButton
    6868          Left = 10
    69           Height = 30
     69          Height = 29
    7070          Top = 160
    71           Width = 149
     71          Width = 138
    7272          Caption = 'Network client'
    7373          ParentFont = False
     
    7777        object EditServerAddress: TEdit
    7878          Left = 24
    79           Height = 43
     79          Height = 33
    8080          Top = 112
    8181          Width = 220
     
    8585        object SpinEditServerPort: TSpinEdit
    8686          Left = 256
    87           Height = 43
     87          Height = 33
    8888          Top = 112
    8989          Width = 79
     
    9494        object Label11: TLabel
    9595          Left = 256
    96           Height = 26
     96          Height = 25
    9797          Top = 80
    98           Width = 40
     98          Width = 36
    9999          Caption = 'Port:'
    100100          ParentColor = False
     
    103103        object Label12: TLabel
    104104          Left = 24
    105           Height = 26
     105          Height = 25
    106106          Top = 80
    107           Width = 74
     107          Width = 69
    108108          Caption = 'Address:'
    109109          ParentColor = False
     
    112112        object ListViewServers: TListView
    113113          Left = 26
    114           Height = 384
     114          Height = 386
    115115          Top = 200
    116116          Width = 334
     
    141141          Left = 26
    142142          Height = 38
    143           Top = 592
     143          Top = 594
    144144          Width = 94
    145145          Action = AServerAdd
     
    151151          Left = 248
    152152          Height = 38
    153           Top = 592
     153          Top = 594
    154154          Width = 94
    155155          Action = AServerRemove
     
    161161          Left = 136
    162162          Height = 38
    163           Top = 592
     163          Top = 594
    164164          Width = 94
    165165          Action = AServerModify
     
    172172    object TabSheetPlayers: TTabSheet
    173173      Caption = 'Players'
    174       ClientHeight = 637
    175       ClientWidth = 681
     174      ClientHeight = 639
     175      ClientWidth = 683
    176176      ParentFont = False
    177177      object Panel2: TPanel
    178178        Left = 0
    179         Height = 637
     179        Height = 639
    180180        Top = 0
    181         Width = 681
     181        Width = 683
    182182        Align = alClient
    183183        BevelOuter = bvNone
     
    188188    object TabSheetMap: TTabSheet
    189189      Caption = 'Map'
    190       ClientHeight = 637
    191       ClientWidth = 681
     190      ClientHeight = 639
     191      ClientWidth = 683
    192192      OnShow = TabSheetMapShow
    193193      ParentFont = False
    194194      object Panel1: TPanel
    195195        Left = 0
    196         Height = 637
     196        Height = 639
    197197        Top = 0
    198         Width = 681
     198        Width = 683
    199199        Align = alClient
    200200        BevelOuter = bvNone
    201         ClientHeight = 637
    202         ClientWidth = 681
     201        ClientHeight = 639
     202        ClientWidth = 683
    203203        ParentFont = False
    204204        TabOrder = 0
    205205        object Label1: TLabel
    206206          Left = 8
    207           Height = 26
     207          Height = 25
    208208          Top = 10
    209           Width = 94
     209          Width = 89
    210210          Caption = 'Map width:'
    211211          ParentColor = False
     
    214214        object Label2: TLabel
    215215          Left = 8
    216           Height = 26
     216          Height = 25
    217217          Top = 58
    218           Width = 101
     218          Width = 95
    219219          Caption = 'Map height:'
    220220          ParentColor = False
     
    223223        object SpinEditMapSizeX: TSpinEdit
    224224          Left = 128
    225           Height = 43
     225          Height = 33
    226226          Top = 4
    227227          Width = 98
     
    234234        object SpinEditMapSizeY: TSpinEdit
    235235          Left = 128
    236           Height = 43
     236          Height = 33
    237237          Top = 55
    238238          Width = 98
     
    247247          Height = 58
    248248          Top = 8
    249           Width = 430
     249          Width = 432
    250250          Max = 100
    251251          Min = 2
     
    261261          Height = 58
    262262          Top = 49
    263           Width = 430
     263          Width = 432
    264264          Max = 100
    265265          Min = 2
     
    273273        object Label5: TLabel
    274274          Left = 8
    275           Height = 26
     275          Height = 25
    276276          Top = 104
    277           Width = 82
     277          Width = 77
    278278          Caption = 'Grid type:'
    279279          ParentColor = False
     
    282282        object ComboBoxGridType: TComboBox
    283283          Left = 146
    284           Height = 38
     284          Height = 33
    285285          Top = 104
    286286          Width = 304
    287           ItemHeight = 0
     287          ItemHeight = 25
    288288          Items.Strings = (
    289             'Hexagonal'
     289            'Hexagon vertical'
    290290            'Square'
    291291            'Triangular'
    292292            'Random'
    293293            'Isometric'
     294            'Hexagon horizontal'
    294295          )
    295296          ParentFont = False
     
    300301        object ComboBoxMapShape: TComboBox
    301302          Left = 146
    302           Height = 38
     303          Height = 33
    303304          Top = 144
    304305          Width = 304
    305           ItemHeight = 0
     306          ItemHeight = 25
    306307          Items.Strings = (
    307308            'Hexagonal'
     
    316317        object Label8: TLabel
    317318          Left = 8
    318           Height = 26
     319          Height = 25
    319320          Top = 144
    320           Width = 98
     321          Width = 92
    321322          Caption = 'Map shape:'
    322323          ParentColor = False
     
    325326        object CheckBoxSymetricMap: TCheckBox
    326327          Left = 8
    327           Height = 26
     328          Height = 29
    328329          Top = 248
    329           Width = 430
    330           Anchors = [akTop, akLeft, akRight]
    331           AutoSize = False
     330          Width = 134
    332331          Caption = 'Symetric map'
    333332          ParentFont = False
     
    337336        object SpinEditVoidPercent: TSpinEdit
    338337          Left = 216
    339           Height = 43
     338          Height = 33
    340339          Top = 314
    341340          Width = 106
     
    348347        object CheckBoxVoid: TCheckBox
    349348          Left = 8
    350           Height = 30
    351           Top = 324
    352           Width = 189
     349          Height = 29
     350          Top = 318
     351          Width = 172
    353352          Caption = 'Inaccessible places'
    354353          ParentFont = False
     
    358357        object CheckBoxCity: TCheckBox
    359358          Left = 8
    360           Height = 30
     359          Height = 29
    361360          Top = 368
    362           Width = 72
     361          Width = 67
    363362          Caption = 'Cities'
    364363          ParentFont = False
     
    368367        object SpinEditCityPercent: TSpinEdit
    369368          Left = 216
    370           Height = 43
     369          Height = 33
    371370          Top = 360
    372371          Width = 106
     
    379378        object Label4: TLabel
    380379          Left = 331
    381           Height = 26
     380          Height = 25
    382381          Top = 368
    383382          Width = 15
     
    388387        object Label3: TLabel
    389388          Left = 331
    390           Height = 26
     389          Height = 25
    391390          Top = 324
    392391          Width = 15
     
    397396        object SpinEditNeutralUnits: TSpinEdit
    398397          Left = 312
    399           Height = 43
     398          Height = 33
    400399          Top = 488
    401400          Width = 98
     
    408407        object Label7: TLabel
    409408          Left = 8
    410           Height = 26
     409          Height = 25
    411410          Top = 496
    412           Width = 225
     411          Width = 207
    413412          Caption = 'Max random neutral units:'
    414413          ParentColor = False
     
    417416        object EditImageFile: TEdit
    418417          Left = 144
    419           Height = 43
     418          Height = 33
    420419          Top = 184
    421           Width = 413
     420          Width = 415
    422421          Anchors = [akTop, akLeft, akRight]
    423422          ParentFont = False
     
    426425        end
    427426        object ButtonImageBrowse: TButton
    428           Left = 566
     427          Left = 568
    429428          Height = 38
    430           Top = 190
     429          Top = 182
    431430          Width = 98
    432431          Anchors = [akTop, akRight]
     
    438437        object Label9: TLabel
    439438          Left = 8
    440           Height = 26
    441           Top = 191
    442           Width = 90
     439          Height = 25
     440          Top = 184
     441          Width = 82
    443442          Caption = 'Image file:'
    444443          ParentColor = False
     
    447446        object CheckBoxBridges: TCheckBox
    448447          Left = 8
    449           Height = 30
     448          Height = 29
    450449          Top = 408
    451           Width = 211
     450          Width = 194
    452451          Caption = 'Bridges between cells'
    453452          ParentFont = False
     
    457456        object SpinEditMaxPower: TSpinEdit
    458457          Left = 312
    459           Height = 43
     458          Height = 33
    460459          Top = 440
    461460          Width = 98
     
    469468        object Label10: TLabel
    470469          Left = 8
    471           Height = 26
     470          Height = 25
    472471          Top = 448
    473           Width = 155
     472          Width = 141
    474473          Caption = 'Max units per cell:'
    475474          ParentColor = False
     
    478477        object CheckBoxCyclicMap: TCheckBox
    479478          Left = 8
    480           Height = 26
     479          Height = 29
    481480          Top = 283
    482           Width = 430
    483           Anchors = [akTop, akLeft, akRight]
    484           AutoSize = False
     481          Width = 110
    485482          Caption = 'Cyclic map'
    486483          ParentFont = False
     
    492489          Height = 316
    493490          Top = 272
    494           Width = 429
     491          Width = 255
    495492          Anchors = [akTop, akLeft, akRight]
    496493          OnResize = Image1Resize
     
    498495        object Label15: TLabel
    499496          Left = 419
    500           Height = 26
     497          Height = 25
    501498          Top = 240
    502           Width = 71
     499          Width = 64
    503500          Caption = 'Preview:'
    504501          ParentColor = False
     
    519516    object TabSheetRules: TTabSheet
    520517      Caption = 'Rules'
    521       ClientHeight = 637
    522       ClientWidth = 681
     518      ClientHeight = 639
     519      ClientWidth = 683
    523520      ParentFont = False
    524521      object Panel4: TPanel
    525522        Left = 0
    526         Height = 637
     523        Height = 639
    527524        Top = 0
    528         Width = 681
     525        Width = 683
    529526        Align = alClient
    530527        BevelOuter = bvNone
    531         ClientHeight = 637
    532         ClientWidth = 681
     528        ClientHeight = 639
     529        ClientWidth = 683
    533530        ParentFont = False
    534531        TabOrder = 0
    535532        object RadioGroupGrowCells: TRadioGroup
    536533          Left = 14
    537           Height = 106
    538           Top = 104
     534          Height = 128
     535          Top = 120
    539536          Width = 312
    540537          AutoFill = True
     
    547544          ChildSizing.Layout = cclLeftToRightThenTopToBottom
    548545          ChildSizing.ControlsPerLine = 1
    549           ClientHeight = 79
    550           ClientWidth = 310
     546          ClientHeight = 98
     547          ClientWidth = 308
    551548          Items.Strings = (
    552549            'None'
     
    559556        object Label6: TLabel
    560557          Left = 8
    561           Height = 26
    562           Top = 248
    563           Width = 119
     558          Height = 25
     559          Top = 267
     560          Width = 111
    564561          Caption = 'Win objective:'
    565562          ParentColor = False
     
    567564        end
    568565        object ComboBoxWinObjective: TComboBox
    569           Left = 224
    570           Height = 38
    571           Top = 244
     566          Left = 216
     567          Height = 33
     568          Top = 267
    572569          Width = 328
    573           ItemHeight = 0
     570          ItemHeight = 25
    574571          Items.Strings = (
    575572            'Defeat all oponents'
     
    585582        object RadioGroupGrowAmount: TRadioGroup
    586583          Left = 14
    587           Height = 76
     584          Height = 92
    588585          Top = 16
    589586          Width = 305
     
    597594          ChildSizing.Layout = cclLeftToRightThenTopToBottom
    598595          ChildSizing.ControlsPerLine = 1
    599           ClientHeight = 49
    600           ClientWidth = 303
     596          ClientHeight = 62
     597          ClientWidth = 301
    601598          Items.Strings = (
    602599            'By one'
     
    608605        object CheckBoxFogOfWar: TCheckBox
    609606          Left = 336
    610           Height = 30
     607          Height = 29
    611608          Top = 24
    612           Width = 115
     609          Width = 111
    613610          Caption = 'Fog of war'
    614611          ParentFont = False
     
    617614        object PageControlWinObjective: TPageControl
    618615          Left = 12
    619           Height = 78
    620           Top = 290
    621           Width = 658
     616          Height = 110
     617          Top = 314
     618          Width = 660
    622619          ActivePage = TabSheetCaptureEntireMap
    623620          Anchors = [akTop, akLeft, akRight]
     
    633630          end
    634631          object TabSheetCaptureCells: TTabSheet
    635             ClientHeight = 74
    636             ClientWidth = 648
     632            ClientHeight = 102
     633            ClientWidth = 652
    637634            ParentFont = False
    638635            object Label14: TLabel
    639636              Left = 8
    640               Height = 26
     637              Height = 25
    641638              Top = 16
    642               Width = 161
     639              Width = 147
    643640              Caption = 'Special cells count:'
    644641              ParentColor = False
     
    647644            object SpinEditSpecialCells: TSpinEdit
    648645              Left = 236
    649               Height = 43
     646              Height = 33
    650647              Top = 8
    651648              Width = 158
     
    658655          end
    659656          object TabSheetStayAliveTurns: TTabSheet
    660             ClientHeight = 74
    661             ClientWidth = 648
     657            ClientHeight = 102
     658            ClientWidth = 652
    662659            ParentFont = False
    663660            object Label13: TLabel
    664661              Left = 8
    665               Height = 26
     662              Height = 25
    666663              Top = 16
    667               Width = 146
     664              Width = 136
    668665              Caption = 'Number of turns:'
    669666              ParentColor = False
     
    672669            object SpinEditTurns: TSpinEdit
    673670              Left = 236
    674               Height = 43
     671              Height = 33
    675672              Top = 8
    676673              Width = 158
     
    704701    TabOrder = 1
    705702    object ButtonOk: TButton
    706       Left = 981
     703      Left = 976
    707704      Height = 38
    708705      Top = 8
     
    758755    object Label16: TLabel
    759756      Left = 12
    760       Height = 26
    761       Top = 16
    762       Width = 120
     757      Height = 25
     758      Top = 14
     759      Width = 111
    763760      Caption = 'Game system:'
    764761      ParentColor = False
     
    767764    object ComboBoxGameSystem: TComboBox
    768765      Left = 176
    769       Height = 42
    770       Top = 10
     766      Height = 33
     767      Top = 12
    771768      Width = 254
    772       ItemHeight = 0
     769      ItemHeight = 25
    773770      ParentFont = False
    774771      Style = csDropDownList
     
    779776      Left = 443
    780777      Height = 38
    781       Top = 12
     778      Top = 10
    782779      Width = 113
    783780      Caption = 'Manage'
Note: See TracChangeset for help on using the changeset viewer.