Ignore:
Timestamp:
Apr 19, 2019, 11:25:56 AM (6 years ago)
Author:
chronos
Message:
  • Fixed: Configurable player tank colors in New game dialog.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UNewGameForm.lfm

    r39 r43  
    11object NewGameForm: TNewGameForm
    22  Left = 579
    3   Height = 542
     3  Height = 650
    44  Top = 226
    5   Width = 846
     5  Width = 1015
    66  Caption = 'New game'
    7   ClientHeight = 542
    8   ClientWidth = 846
    9   DesignTimePPI = 120
     7  ClientHeight = 650
     8  ClientWidth = 1015
     9  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    … …  
    1313  LCLVersion = '2.0.0.4'
    1414  object ButtonStart: TButton
    15     Left = 740
    16     Height = 31
    17     Top = 500
    18     Width = 94
     15    Left = 888
     16    Height = 37
     17    Top = 600
     18    Width = 113
    1919    Anchors = [akRight, akBottom]
    2020    Caption = 'Start'
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 630
    27     Height = 31
    28     Top = 500
    29     Width = 94
     26    Left = 756
     27    Height = 37
     28    Top = 600
     29    Width = 113
    3030    Anchors = [akRight, akBottom]
    3131    Caption = 'Cancel'
    … …  
    3535  end
    3636  object Label1: TLabel
    37     Left = 10
    38     Height = 20
     37    Left = 12
     38    Height = 26
    3939    Top = 0
    40     Width = 49
     40    Width = 66
    4141    Caption = 'Players:'
    4242    ParentColor = False
    … …  
    4444  end
    4545  object ListView1: TListView
    46     Left = 10
    47     Height = 460
    48     Top = 30
    49     Width = 368
     46    Left = 12
     47    Height = 552
     48    Top = 36
     49    Width = 442
    5050    Anchors = [akTop, akLeft, akBottom]
    5151    Checkboxes = True
    … …  
    5353      item
    5454        Caption = 'Name'
    55         Width = 188
     55        Width = 226
    5656      end   
    5757      item
    5858        Caption = 'Color'
    59         Width = 62
     59        Width = 74
    6060      end   
    6161      item
    6262        Caption = 'Controls'
    63         Width = 189
     63        Width = 227
    6464      end>
    6565    OwnerData = True
    … …  
    7070    ViewStyle = vsReport
    7171    OnChange = ListView1Change
     72    OnCustomDrawSubItem = ListView1CustomDrawSubItem
    7273    OnData = ListView1Data
    7374    OnSelectItem = ListView1SelectItem
    7475  end
    7576  object ColorButton1: TColorButton
    76     Left = 630
    77     Height = 31
    78     Top = 80
    79     Width = 94
     77    Left = 756
     78    Height = 37
     79    Top = 96
     80    Width = 113
    8081    BorderWidth = 2
    8182    ButtonColorSize = 16
    … …  
    8586  end
    8687  object Label2: TLabel
    87     Left = 500
    88     Height = 20
    89     Top = 84
    90     Width = 39
    91     Caption = 'Color:'
     88    Left = 600
     89    Height = 26
     90    Top = 101
     91    Width = 65
     92    Caption = 'Color 1:'
    9293    ParentColor = False
    9394    ParentFont = False
    9495  end
    9596  object GroupBox1: TGroupBox
    96     Left = 490
    97     Height = 330
    98     Top = 130
    99     Width = 340
     97    Left = 588
     98    Height = 368
     99    Top = 184
     100    Width = 408
    100101    Caption = 'Control keys'
    101     ClientHeight = 305
    102     ClientWidth = 336
     102    ClientHeight = 341
     103    ClientWidth = 406
    103104    ParentFont = False
    104105    TabOrder = 3
    105106    object EditUp: TEdit
    106       Left = 108
    107       Height = 28
     107      Left = 130
     108      Height = 43
    108109      Top = 2
    109       Width = 100
     110      Width = 120
    110111      OnChange = EditUpChange
    111112      OnKeyDown = EditUpKeyDown
    … …  
    114115    end
    115116    object Label3: TLabel
    116       Left = 8
    117       Height = 20
    118       Top = 12
    119       Width = 22
     117      Left = 10
     118      Height = 26
     119      Top = 14
     120      Width = 29
    120121      Caption = 'Up:'
    121122      ParentColor = False
    … …  
    123124    end
    124125    object Label4: TLabel
    125       Left = 8
    126       Height = 20
    127       Top = 52
    128       Width = 42
     126      Left = 10
     127      Height = 26
     128      Top = 62
     129      Width = 54
    129130      Caption = 'Down:'
    130131      ParentColor = False
    … …  
    132133    end
    133134    object EditDown: TEdit
    134       Left = 108
    135       Height = 28
    136       Top = 40
    137       Width = 100
     135      Left = 130
     136      Height = 43
     137      Top = 48
     138      Width = 120
    138139      OnChange = EditDownChange
    139140      OnKeyDown = EditDownKeyDown
    … …  
    142143    end
    143144    object Label5: TLabel
    144       Left = 8
    145       Height = 20
    146       Top = 92
    147       Width = 28
     145      Left = 10
     146      Height = 26
     147      Top = 110
     148      Width = 37
    148149      Caption = 'Left:'
    149150      ParentColor = False
    … …  
    151152    end
    152153    object EditLeft: TEdit
    153       Left = 108
    154       Height = 28
    155       Top = 82
    156       Width = 100
     154      Left = 130
     155      Height = 43
     156      Top = 98
     157      Width = 120
    157158      OnChange = EditLeftChange
    158159      OnKeyDown = EditLeftKeyDown
    … …  
    161162    end
    162163    object Label6: TLabel
    163       Left = 8
    164       Height = 20
    165       Top = 132
    166       Width = 38
     164      Left = 10
     165      Height = 26
     166      Top = 158
     167      Width = 50
    167168      Caption = 'Right:'
    168169      ParentColor = False
    … …  
    170171    end
    171172    object EditRight: TEdit
    172       Left = 108
    173       Height = 28
    174       Top = 122
    175       Width = 100
     173      Left = 130
     174      Height = 43
     175      Top = 146
     176      Width = 120
    176177      OnChange = EditRightChange
    177178      OnKeyDown = EditRightKeyDown
    … …  
    180181    end
    181182    object Label7: TLabel
    182       Left = 8
    183       Height = 20
    184       Top = 172
    185       Width = 42
     183      Left = 10
     184      Height = 26
     185      Top = 206
     186      Width = 55
    186187      Caption = 'Shoot:'
    187188      ParentColor = False
    … …  
    189190    end
    190191    object EditShoot: TEdit
    191       Left = 108
    192       Height = 28
    193       Top = 162
    194       Width = 100
     192      Left = 130
     193      Height = 43
     194      Top = 194
     195      Width = 120
    195196      OnChange = EditShootChange
    196197      OnKeyDown = EditShootKeyDown
    … …  
    200201  end
    201202  object EditName: TEdit
     203    Left = 720
     204    Height = 43
     205    Top = 36
     206    Width = 264
     207    OnChange = EditNameChange
     208    ParentFont = False
     209    TabOrder = 4
     210  end
     211  object Label8: TLabel
    202212    Left = 600
    203     Height = 28
    204     Top = 30
    205     Width = 220
    206     OnChange = EditNameChange
    207     ParentFont = False
    208     TabOrder = 4
    209   end
    210   object Label8: TLabel
    211     Left = 500
    212     Height = 20
    213     Top = 40
    214     Width = 43
     213    Height = 26
     214    Top = 48
     215    Width = 56
    215216    Caption = 'Name:'
    216217    ParentColor = False
    217218    ParentFont = False
    218219  end
     220  object Label9: TLabel
     221    Left = 600
     222    Height = 26
     223    Top = 141
     224    Width = 65
     225    Caption = 'Color 2:'
     226    ParentColor = False
     227    ParentFont = False
     228  end
     229  object ColorButton2: TColorButton
     230    Left = 756
     231    Height = 37
     232    Top = 136
     233    Width = 113
     234    BorderWidth = 2
     235    ButtonColorSize = 16
     236    ButtonColor = clBlack
     237    OnColorChanged = ColorButton2ColorChanged
     238    ParentFont = False
     239  end
    219240end
Note: See TracChangeset for help on using the changeset viewer.