Ignore:
Timestamp:
Feb 6, 2018, 3:47:23 PM (7 years ago)
Author:
chronos
Message:
  • Added: A preparation for gameplay over network.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormNew.lfm

    r155 r179  
    11object FormNew: TFormNew
    2   Left = 1176
    3   Height = 501
    4   Top = 331
    5   Width = 677
     2  Left = 596
     3  Height = 617
     4  Top = 243
     5  Width = 775
    66  Caption = 'New game'
    7   ClientHeight = 501
    8   ClientWidth = 677
     7  ClientHeight = 617
     8  ClientWidth = 775
    99  Constraints.MinHeight = 501
    1010  Constraints.MinWidth = 667
     11  DesignTimePPI = 120
     12  OnClose = FormClose
    1113  OnCreate = FormCreate
    1214  OnDestroy = FormDestroy
    1315  OnShow = FormShow
    1416  Position = poMainFormCenter
    15   LCLVersion = '1.8.0.4'
    16   object ButtonCancel: TButton
    17     Left = 454
    18     Height = 25
    19     Top = 459
    20     Width = 75
    21     Anchors = [akRight, akBottom]
    22     Caption = 'Cancel'
    23     ModalResult = 2
    24     TabOrder = 0
    25   end
    26   object ButtonOk: TButton
    27     Left = 558
    28     Height = 25
    29     Top = 459
    30     Width = 75
    31     Anchors = [akRight, akBottom]
    32     Caption = 'Ok'
    33     ModalResult = 1
    34     TabOrder = 1
    35   end
     17  LCLVersion = '1.8.0.6'
    3618  object PageControl1: TPageControl
    3719    Left = 4
    38     Height = 439
     20    Height = 330
    3921    Top = 4
    40     Width = 669
    41     ActivePage = TabSheet2
    42     Align = alTop
    43     Anchors = [akTop, akLeft, akRight, akBottom]
     22    Width = 767
     23    ActivePage = TabSheetMode
     24    Align = alClient
    4425    BorderSpacing.Around = 4
    45     TabIndex = 1
    46     TabOrder = 2
     26    TabIndex = 0
     27    TabOrder = 0
     28    object TabSheetMode: TTabSheet
     29      Caption = 'Mode'
     30      ClientHeight = 297
     31      ClientWidth = 759
     32      object RadioButtonModeLocal: TRadioButton
     33        Left = 10
     34        Height = 24
     35        Top = 14
     36        Width = 59
     37        Caption = 'Local'
     38        OnChange = RadioButtonModeLocalChange
     39        TabOrder = 0
     40      end
     41      object RadioButtonModeNetworkServer: TRadioButton
     42        Left = 10
     43        Height = 24
     44        Top = 48
     45        Width = 123
     46        Caption = 'Network server'
     47        OnChange = RadioButtonModeLocalChange
     48        TabOrder = 1
     49      end
     50      object RadioButtonModeNetworkClient: TRadioButton
     51        Left = 10
     52        Height = 24
     53        Top = 152
     54        Width = 120
     55        Caption = 'Network client'
     56        OnChange = RadioButtonModeLocalChange
     57        TabOrder = 2
     58      end
     59      object EditServerAddress: TEdit
     60        Left = 24
     61        Height = 28
     62        Top = 112
     63        Width = 220
     64        TabOrder = 3
     65      end
     66      object SpinEditServerPort: TSpinEdit
     67        Left = 256
     68        Height = 28
     69        Top = 112
     70        Width = 79
     71        MaxValue = 65535
     72        TabOrder = 4
     73      end
     74      object Label11: TLabel
     75        Left = 256
     76        Height = 20
     77        Top = 88
     78        Width = 30
     79        Caption = 'Port:'
     80        ParentColor = False
     81      end
     82      object Label12: TLabel
     83        Left = 24
     84        Height = 20
     85        Top = 88
     86        Width = 56
     87        Caption = 'Address:'
     88        ParentColor = False
     89      end
     90      object ListViewServers: TListView
     91        Left = 26
     92        Height = 97
     93        Top = 181
     94        Width = 326
     95        Anchors = [akTop, akLeft, akBottom]
     96        Columns = <       
     97          item
     98            Caption = 'Name'
     99            Width = 100
     100          end       
     101          item
     102            Caption = 'Address'
     103            Width = 200
     104          end>
     105        TabOrder = 5
     106        ViewStyle = vsReport
     107      end
     108    end
    47109    object TabSheet1: TTabSheet
    48110      Caption = 'Players'
    49       ClientHeight = 395
    50       ClientWidth = 663
    51       object ListView1: TListView
     111      ClientHeight = 297
     112      ClientWidth = 759
     113      object ListViewPlayers: TListView
    52114        Left = 4
    53         Height = 345
     115        Height = 247
    54116        Top = 4
    55         Width = 655
     117        Width = 751
    56118        Align = alTop
    57119        Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    80142        TabOrder = 0
    81143        ViewStyle = vsReport
    82         OnCustomDrawSubItem = ListView1CustomDrawSubItem
    83         OnData = ListView1Data
    84         OnDblClick = ListView1DblClick
    85         OnKeyPress = ListView1KeyPress
    86         OnKeyUp = ListView1KeyUp
    87         OnSelectItem = ListView1SelectItem
     144        OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem
     145        OnData = ListViewPlayersData
     146        OnDblClick = ListViewPlayersDblClick
     147        OnKeyPress = ListViewPlayersKeyPress
     148        OnKeyUp = ListViewPlayersKeyUp
     149        OnSelectItem = ListViewPlayersSelectItem
    88150      end
    89151      object ButtonPlayerRemove: TButton
    90152        Left = 224
    91153        Height = 25
    92         Top = 357
     154        Top = 259
    93155        Width = 83
    94156        Action = APlayerRemove
    … …  
    99161        Left = 16
    100162        Height = 25
    101         Top = 357
     163        Top = 259
    102164        Width = 83
    103165        Action = APlayerAdd
    … …  
    108170        Left = 120
    109171        Height = 25
    110         Top = 357
     172        Top = 259
    111173        Width = 83
    112174        Action = APlayerModify
    … …  
    118180    object TabSheet2: TTabSheet
    119181      Caption = 'Map'
    120       ClientHeight = 395
    121       ClientWidth = 663
     182      ClientHeight = 297
     183      ClientWidth = 759
    122184      object Label1: TLabel
    123185        Left = 8
    124         Height = 26
     186        Height = 20
    125187        Top = 9
    126         Width = 95
     188        Width = 74
    127189        Caption = 'Map width:'
    128190        ParentColor = False
    … …  
    130192      object Label2: TLabel
    131193        Left = 8
    132         Height = 26
     194        Height = 20
    133195        Top = 57
    134         Width = 102
     196        Width = 79
    135197        Caption = 'Map height:'
    136198        ParentColor = False
    … …  
    138200      object SpinEditMapSizeX: TSpinEdit
    139201        Left = 128
    140         Height = 36
     202        Height = 28
    141203        Top = 4
    142204        Width = 98
    … …  
    148210      object SpinEditMapSizeY: TSpinEdit
    149211        Left = 128
    150         Height = 36
     212        Height = 28
    151213        Top = 55
    152214        Width = 98
    … …  
    160222        Height = 47
    161223        Top = 8
    162         Width = 412
     224        Width = 508
    163225        Max = 100
    164226        Min = 2
    … …  
    173235        Height = 47
    174236        Top = 49
    175         Width = 412
     237        Width = 508
    176238        Max = 100
    177239        Min = 2
    … …  
    184246      object Label5: TLabel
    185247        Left = 8
    186         Height = 26
     248        Height = 20
    187249        Top = 104
    188         Width = 83
     250        Width = 64
    189251        Caption = 'Grid type:'
    190252        ParentColor = False
    … …  
    192254      object ComboBoxGridType: TComboBox
    193255        Left = 146
    194         Height = 40
     256        Height = 28
    195257        Top = 104
    196258        Width = 208
    197         ItemHeight = 0
     259        ItemHeight = 20
    198260        Items.Strings = (
    199261          'Hexagonal'
    … …  
    206268      object ComboBoxMapShape: TComboBox
    207269        Left = 146
    208         Height = 40
     270        Height = 28
    209271        Top = 144
    210272        Width = 208
    211         ItemHeight = 0
     273        ItemHeight = 20
    212274        Items.Strings = (
    213275          'Hexagonal'
    … …  
    221283      object Label8: TLabel
    222284        Left = 8
    223         Height = 26
     285        Height = 20
    224286        Top = 144
    225         Width = 98
     287        Width = 76
    226288        Caption = 'Map shape:'
    227289        ParentColor = False
    … …  
    231293        Height = 27
    232294        Top = 110
    233         Width = 175
     295        Width = 271
    234296        Anchors = [akTop, akLeft, akRight]
    235297        AutoSize = False
    … …  
    239301      object SpinEditVoidPercent: TSpinEdit
    240302        Left = 216
    241         Height = 36
     303        Height = 28
    242304        Top = 224
    243305        Width = 106
    … …  
    248310      object CheckBoxVoid: TCheckBox
    249311        Left = 8
    250         Height = 30
     312        Height = 24
    251313        Top = 232
    252         Width = 187
     314        Width = 149
    253315        Caption = 'Inaccessible places'
    254316        OnChange = CheckBoxVoidChange
    … …  
    257319      object CheckBoxCity: TCheckBox
    258320        Left = 8
    259         Height = 30
     321        Height = 24
    260322        Top = 272
    261         Width = 71
     323        Width = 60
    262324        Caption = 'Cities'
    263325        OnChange = CheckBoxCityChange
    … …  
    266328      object SpinEditCityPercent: TSpinEdit
    267329        Left = 216
    268         Height = 36
     330        Height = 28
    269331        Top = 272
    270332        Width = 106
    … …  
    275337      object Label4: TLabel
    276338        Left = 331
    277         Height = 26
     339        Height = 20
    278340        Top = 272
    279         Width = 15
     341        Width = 12
    280342        Caption = '%'
    281343        ParentColor = False
    … …  
    283345      object Label3: TLabel
    284346        Left = 331
    285         Height = 26
     347        Height = 20
    286348        Top = 232
    287         Width = 15
     349        Width = 12
    288350        Caption = '%'
    289351        ParentColor = False
    … …  
    291353      object SpinEditNeutralUnits: TSpinEdit
    292354        Left = 408
    293         Height = 36
     355        Height = 28
    294356        Top = 352
    295357        Width = 98
    … …  
    301363      object Label7: TLabel
    302364        Left = 8
    303         Height = 26
     365        Height = 20
    304366        Top = 352
    305         Width = 227
     367        Width = 172
    306368        Caption = 'Max random neutral units:'
    307369        ParentColor = False
    … …  
    309371      object EditImageFile: TEdit
    310372        Left = 144
    311         Height = 36
     373        Height = 28
    312374        Top = 184
    313         Width = 396
     375        Width = 492
    314376        Anchors = [akTop, akLeft, akRight]
    315377        TabOrder = 12
    316378      end
    317379      object ButtonImageBrowse: TButton
    318         Left = 548
     380        Left = 644
    319381        Height = 25
    320382        Top = 192
    … …  
    327389      object Label9: TLabel
    328390        Left = 8
    329         Height = 26
     391        Height = 20
    330392        Top = 184
    331         Width = 90
     393        Width = 70
    332394        Caption = 'Image file:'
    333395        ParentColor = False
    … …  
    335397      object CheckBoxBridges: TCheckBox
    336398        Left = 8
    337         Height = 30
     399        Height = 24
    338400        Top = 310
    339         Width = 210
     401        Width = 168
    340402        Caption = 'Bridges between cells'
    341403        TabOrder = 14
    … …  
    344406    object TabSheet3: TTabSheet
    345407      Caption = 'Rules'
    346       ClientHeight = 395
    347       ClientWidth = 663
     408      ClientHeight = 297
     409      ClientWidth = 759
    348410      object RadioGroupGrowCells: TRadioGroup
    349411        Left = 15
    … …  
    360422        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    361423        ChildSizing.ControlsPerLine = 1
    362         ClientHeight = 77
     424        ClientHeight = 80
    363425        ClientWidth = 308
    364426        Items.Strings = (
    … …  
    371433      object Label6: TLabel
    372434        Left = 8
    373         Height = 25
     435        Height = 20
    374436        Top = 248
    375         Width = 111
     437        Width = 94
    376438        Caption = 'Win objective:'
    377439        ParentColor = False
    … …  
    379441      object ComboBoxWinObjective: TComboBox
    380442        Left = 232
    381         Height = 33
     443        Height = 28
    382444        Top = 240
    383445        Width = 328
    384         ItemHeight = 0
     446        ItemHeight = 20
    385447        Items.Strings = (
    386448          'Defeat all oponents'
    … …  
    406468        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    407469        ChildSizing.ControlsPerLine = 1
    408         ClientHeight = 48
     470        ClientHeight = 51
    409471        ClientWidth = 301
    410472        Items.Strings = (
    … …  
    418480        Height = 27
    419481        Top = 24
    420         Width = 503
     482        Width = 599
    421483        Anchors = [akTop, akLeft, akRight]
    422484        AutoSize = False
    … …  
    425487      end
    426488    end
     489  end
     490  object PanelButtons: TPanel
     491    Left = 0
     492    Height = 45
     493    Top = 572
     494    Width = 775
     495    Align = alBottom
     496    BevelOuter = bvNone
     497    ClientHeight = 45
     498    ClientWidth = 775
     499    TabOrder = 1
     500    object ButtonOk: TButton
     501      Left = 587
     502      Height = 25
     503      Top = 6
     504      Width = 75
     505      Anchors = [akRight, akBottom]
     506      Caption = 'Ok'
     507      ModalResult = 1
     508      TabOrder = 0
     509    end
     510    object ButtonCancel: TButton
     511      Left = 691
     512      Height = 25
     513      Top = 6
     514      Width = 75
     515      Anchors = [akRight, akBottom]
     516      Caption = 'Cancel'
     517      ModalResult = 2
     518      TabOrder = 1
     519    end
     520  end
     521  object PanelChat: TPanel
     522    Left = 0
     523    Height = 228
     524    Top = 344
     525    Width = 775
     526    Align = alBottom
     527    BevelOuter = bvNone
     528    TabOrder = 2
     529  end
     530  object Splitter1: TSplitter
     531    Cursor = crVSplit
     532    Left = 0
     533    Height = 6
     534    Top = 338
     535    Width = 775
     536    Align = alBottom
     537    ResizeAnchor = akBottom
    427538  end
    428539  object ActionList1: TActionList
Note: See TracChangeset for help on using the changeset viewer.