Ignore:
Timestamp:
Nov 25, 2017, 12:27:33 AM (7 years ago)
Author:
chronos
Message:
  • Modified: Improved New game window.
  • Modified: Used newer version of Common and CoolTranslator packages.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        33backup
        44tunneler.exe
         5tunneler.dbg
         6tunneler.lps
        57heaptrclog.trc
        6 tunneler.lps
         8Components/Common/Languages/*.mo
         9Components/CoolTranslator/Demo/lib

  • trunk/Forms/UNewGameForm.lfm

    r23 r34  
    11object NewGameForm: TNewGameForm
    2   Left = 312
    3   Height = 387
    4   Top = 137
    5   Width = 560
     2  Left = 579
     3  Height = 434
     4  Top = 226
     5  Width = 677
    66  Caption = 'New game'
    7   ClientHeight = 387
    8   ClientWidth = 560
     7  ClientHeight = 434
     8  ClientWidth = 677
     9  OnCreate = FormCreate
     10  OnDestroy = FormDestroy
    911  OnShow = FormShow
    10   LCLVersion = '0.9.31'
     12  LCLVersion = '1.8.0.4'
    1113  object ButtonStart: TButton
    12     Left = 476
     14    Left = 592
    1315    Height = 25
    14     Top = 358
     16    Top = 400
    1517    Width = 75
    1618    Anchors = [akRight, akBottom]
    1719    Caption = 'Start'
    1820    ModalResult = 1
    19     OnClick = ButtonStartClick
    2021    TabOrder = 0
    2122  end
    2223  object ButtonCancel: TButton
    23     Left = 388
     24    Left = 504
    2425    Height = 25
    25     Top = 358
     26    Top = 400
    2627    Width = 75
    2728    Anchors = [akRight, akBottom]
    … …  
    3233  object Label1: TLabel
    3334    Left = 8
    34     Height = 18
    35     Top = 8
    36     Width = 53
     35    Height = 26
     36    Top = 0
     37    Width = 66
    3738    Caption = 'Players:'
    3839    ParentColor = False
    … …  
    4041  object ListView1: TListView
    4142    Left = 8
    42     Height = 320
     43    Height = 368
    4344    Top = 24
    4445    Width = 368
     46    Anchors = [akTop, akLeft, akBottom]
    4547    Checkboxes = True
    4648    Columns = <   
    … …  
    5456      item
    5557        Caption = 'Controls'
    56         Width = 147
     58        Width = 151
    5759      end>
     60    OwnerData = True
    5861    ReadOnly = True
    5962    RowSelect = True
    … …  
    6164    ViewStyle = vsReport
    6265    OnChange = ListView1Change
     66    OnData = ListView1Data
     67    OnSelectItem = ListView1SelectItem
     68  end
     69  object ColorButton1: TColorButton
     70    Left = 504
     71    Height = 25
     72    Top = 64
     73    Width = 75
     74    BorderWidth = 2
     75    ButtonColorSize = 16
     76    ButtonColor = clBlack
     77    OnColorChanged = ColorButton1ColorChanged
     78  end
     79  object Label2: TLabel
     80    Left = 400
     81    Height = 26
     82    Top = 67
     83    Width = 50
     84    Caption = 'Color:'
     85    ParentColor = False
     86  end
     87  object GroupBox1: TGroupBox
     88    Left = 392
     89    Height = 264
     90    Top = 104
     91    Width = 272
     92    Caption = 'Control keys'
     93    ClientHeight = 236
     94    ClientWidth = 268
     95    TabOrder = 3
     96    object EditUp: TEdit
     97      Left = 86
     98      Height = 36
     99      Top = 2
     100      Width = 80
     101      OnChange = EditUpChange
     102      OnKeyDown = EditUpKeyDown
     103      TabOrder = 0
     104    end
     105    object Label3: TLabel
     106      Left = 6
     107      Height = 26
     108      Top = 10
     109      Width = 29
     110      Caption = 'Up:'
     111      ParentColor = False
     112    end
     113    object Label4: TLabel
     114      Left = 6
     115      Height = 26
     116      Top = 42
     117      Width = 54
     118      Caption = 'Down:'
     119      ParentColor = False
     120    end
     121    object EditDown: TEdit
     122      Left = 88
     123      Height = 36
     124      Top = 32
     125      Width = 80
     126      OnChange = EditDownChange
     127      OnKeyDown = EditDownKeyDown
     128      TabOrder = 1
     129    end
     130    object Label5: TLabel
     131      Left = 6
     132      Height = 26
     133      Top = 74
     134      Width = 37
     135      Caption = 'Left:'
     136      ParentColor = False
     137    end
     138    object EditLeft: TEdit
     139      Left = 86
     140      Height = 36
     141      Top = 66
     142      Width = 80
     143      OnChange = EditLeftChange
     144      OnKeyDown = EditLeftKeyDown
     145      TabOrder = 2
     146    end
     147    object Label6: TLabel
     148      Left = 6
     149      Height = 26
     150      Top = 106
     151      Width = 50
     152      Caption = 'Right:'
     153      ParentColor = False
     154    end
     155    object EditRight: TEdit
     156      Left = 86
     157      Height = 36
     158      Top = 98
     159      Width = 80
     160      OnChange = EditRightChange
     161      OnKeyDown = EditRightKeyDown
     162      TabOrder = 3
     163    end
     164    object Label7: TLabel
     165      Left = 6
     166      Height = 26
     167      Top = 138
     168      Width = 55
     169      Caption = 'Shoot:'
     170      ParentColor = False
     171    end
     172    object EditShoot: TEdit
     173      Left = 86
     174      Height = 36
     175      Top = 130
     176      Width = 80
     177      OnChange = EditShootChange
     178      OnKeyDown = EditShootKeyDown
     179      TabOrder = 4
     180    end
     181  end
     182  object EditName: TEdit
     183    Left = 480
     184    Height = 36
     185    Top = 24
     186    Width = 176
     187    OnChange = EditNameChange
     188    OnKeyDown = EditUpKeyDown
     189    TabOrder = 4
     190  end
     191  object Label8: TLabel
     192    Left = 400
     193    Height = 26
     194    Top = 32
     195    Width = 56
     196    Caption = 'Name:'
     197    ParentColor = False
    63198  end
    64199end
Note: See TracChangeset for help on using the changeset viewer.