Ignore:
Timestamp:
Dec 20, 2021, 7:47:26 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Renamed forms to start their name with Form prefix.
  • Fixed: Drawing game scene.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormNewGame.lfm

    r47 r52  
    11object FormNewGame: TFormNewGame
    2   Left = 579
    3   Height = 542
    4   Top = 226
    5   Width = 846
     2  Left = 479
     3  Height = 650
     4  Top = 392
     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
    1212  OnShow = FormShow
    13   LCLVersion = '2.0.2.0'
     13  LCLVersion = '2.0.12.0'
    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
    39     Top = 8
    40     Width = 49
     37    Left = 12
     38    Height = 25
     39    Top = 10
     40    Width = 59
    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
    … …  
    7575  end
    7676  object ColorButton1: TColorButton
    77     Left = 634
    78     Height = 31
    79     Top = 112
    80     Width = 94
     77    Left = 761
     78    Height = 37
     79    Top = 134
     80    Width = 113
    8181    BorderWidth = 2
    8282    ButtonColorSize = 16
    … …  
    8686  end
    8787  object Label2: TLabel
    88     Left = 500
    89     Height = 20
    90     Top = 116
    91     Width = 51
     88    Left = 600
     89    Height = 25
     90    Top = 139
     91    Width = 62
    9292    Caption = 'Color 1:'
    9393    ParentColor = False
    … …  
    9595  end
    9696  object GroupBox1: TGroupBox
    97     Left = 490
    98     Height = 243
    99     Top = 208
    100     Width = 340
     97    Left = 588
     98    Height = 292
     99    Top = 250
     100    Width = 408
    101101    Caption = 'Control keys'
    102     ClientHeight = 218
    103     ClientWidth = 336
     102    ClientHeight = 262
     103    ClientWidth = 404
    104104    ParentFont = False
    105105    TabOrder = 3
    106106    object EditUp: TEdit
    107       Left = 108
    108       Height = 28
     107      Left = 130
     108      Height = 33
    109109      Top = 2
    110       Width = 100
     110      Width = 120
    111111      OnChange = EditUpChange
    112112      OnKeyDown = EditUpKeyDown
    … …  
    115115    end
    116116    object Label3: TLabel
    117       Left = 8
    118       Height = 20
    119       Top = 12
    120       Width = 22
     117      Left = 10
     118      Height = 25
     119      Top = 14
     120      Width = 27
    121121      Caption = 'Up:'
    122122      ParentColor = False
    … …  
    124124    end
    125125    object Label4: TLabel
    126       Left = 8
    127       Height = 20
    128       Top = 52
    129       Width = 42
     126      Left = 10
     127      Height = 25
     128      Top = 62
     129      Width = 51
    130130      Caption = 'Down:'
    131131      ParentColor = False
    … …  
    133133    end
    134134    object EditDown: TEdit
    135       Left = 108
    136       Height = 28
    137       Top = 40
    138       Width = 100
     135      Left = 130
     136      Height = 33
     137      Top = 48
     138      Width = 120
    139139      OnChange = EditDownChange
    140140      OnKeyDown = EditDownKeyDown
    … …  
    143143    end
    144144    object Label5: TLabel
    145       Left = 8
    146       Height = 20
    147       Top = 92
    148       Width = 28
     145      Left = 10
     146      Height = 25
     147      Top = 110
     148      Width = 33
    149149      Caption = 'Left:'
    150150      ParentColor = False
    … …  
    152152    end
    153153    object EditLeft: TEdit
    154       Left = 108
    155       Height = 28
    156       Top = 82
    157       Width = 100
     154      Left = 130
     155      Height = 33
     156      Top = 98
     157      Width = 120
    158158      OnChange = EditLeftChange
    159159      OnKeyDown = EditLeftKeyDown
    … …  
    162162    end
    163163    object Label6: TLabel
    164       Left = 8
    165       Height = 20
    166       Top = 132
    167       Width = 38
     164      Left = 10
     165      Height = 25
     166      Top = 158
     167      Width = 46
    168168      Caption = 'Right:'
    169169      ParentColor = False
    … …  
    171171    end
    172172    object EditRight: TEdit
    173       Left = 108
    174       Height = 28
    175       Top = 122
    176       Width = 100
     173      Left = 130
     174      Height = 33
     175      Top = 146
     176      Width = 120
    177177      OnChange = EditRightChange
    178178      OnKeyDown = EditRightKeyDown
    … …  
    181181    end
    182182    object Label7: TLabel
    183       Left = 8
    184       Height = 20
    185       Top = 172
    186       Width = 42
     183      Left = 10
     184      Height = 25
     185      Top = 206
     186      Width = 52
    187187      Caption = 'Shoot:'
    188188      ParentColor = False
    … …  
    190190    end
    191191    object EditShoot: TEdit
    192       Left = 108
    193       Height = 28
    194       Top = 162
    195       Width = 100
     192      Left = 130
     193      Height = 33
     194      Top = 194
     195      Width = 120
    196196      OnChange = EditShootChange
    197197      OnKeyDown = EditShootKeyDown
    … …  
    201201  end
    202202  object EditName: TEdit
     203    Left = 720
     204    Height = 33
     205    Top = 36
     206    Width = 264
     207    OnChange = EditNameChange
     208    ParentFont = False
     209    TabOrder = 4
     210  end
     211  object Label8: TLabel
    203212    Left = 600
    204     Height = 28
    205     Top = 30
    206     Width = 220
    207     OnChange = EditNameChange
    208     ParentFont = False
    209     TabOrder = 4
    210   end
    211   object Label8: TLabel
    212     Left = 500
    213     Height = 20
    214     Top = 40
    215     Width = 43
     213    Height = 25
     214    Top = 48
     215    Width = 51
    216216    Caption = 'Name:'
    217217    ParentColor = False
    … …  
    219219  end
    220220  object Label9: TLabel
    221     Left = 500
    222     Height = 20
    223     Top = 145
    224     Width = 51
     221    Left = 600
     222    Height = 25
     223    Top = 174
     224    Width = 62
    225225    Caption = 'Color 2:'
    226226    ParentColor = False
    … …  
    228228  end
    229229  object ColorButton2: TColorButton
    230     Left = 634
    231     Height = 31
    232     Top = 145
    233     Width = 94
     230    Left = 761
     231    Height = 37
     232    Top = 174
     233    Width = 113
    234234    BorderWidth = 2
    235235    ButtonColorSize = 16
    … …  
    239239  end
    240240  object CheckBoxEnabled: TCheckBox
    241     Left = 504
    242     Height = 24
    243     Top = 80
    244     Width = 78
     241    Left = 605
     242    Height = 29
     243    Top = 96
     244    Width = 93
    245245    Caption = 'Enabled'
    246246    OnChange = CheckBoxEnabledChange
     247    ParentFont = False
    247248    TabOrder = 5
    248249  end
Note: See TracChangeset for help on using the changeset viewer.