close Warning: Can't synchronize with repository "(default)" (No changeset 184 in the repository). Look in the Trac log for more information.

source: trunk/Forms/UFormPlayer.lfm

Last change on this file was 183, checked in by chronos, 6 years ago
  • Modified: Units move handling was moved from Core to FormClient as it is game client related functionality.
File size: 2.7 KB
Line 
1object FormPlayer: TFormPlayer
2 Left = 470
3 Height = 344
4 Top = 219
5 Width = 522
6 Caption = 'Player'
7 ClientHeight = 344
8 ClientWidth = 522
9 Constraints.MinHeight = 344
10 Constraints.MinWidth = 522
11 DesignTimePPI = 120
12 OnClose = FormClose
13 OnShow = FormShow
14 Position = poMainFormCenter
15 LCLVersion = '1.8.0.6'
16 object Label1: TLabel
17 Left = 24
18 Height = 20
19 Top = 27
20 Width = 43
21 Caption = 'Name:'
22 ParentColor = False
23 end
24 object EditName: TEdit
25 Left = 168
26 Height = 28
27 Top = 27
28 Width = 339
29 Anchors = [akTop, akLeft, akRight]
30 TabOrder = 0
31 end
32 object ButtonCancel: TButton
33 Left = 278
34 Height = 25
35 Top = 307
36 Width = 75
37 Anchors = [akRight, akBottom]
38 Caption = 'Cancel'
39 ModalResult = 2
40 TabOrder = 1
41 end
42 object ButtonOk: TButton
43 Left = 403
44 Height = 25
45 Top = 307
46 Width = 75
47 Anchors = [akRight, akBottom]
48 Caption = 'Ok'
49 Default = True
50 ModalResult = 1
51 TabOrder = 2
52 end
53 object ComboBoxMode: TComboBox
54 Left = 168
55 Height = 28
56 Top = 72
57 Width = 339
58 Anchors = [akTop, akLeft, akRight]
59 ItemHeight = 20
60 ItemIndex = 0
61 Items.Strings = (
62 'Human'
63 'Computer'
64 )
65 OnChange = ComboBoxModeChange
66 Style = csDropDownList
67 TabOrder = 3
68 Text = 'Human'
69 end
70 object Label2: TLabel
71 Left = 24
72 Height = 20
73 Top = 72
74 Width = 42
75 Caption = 'Mode:'
76 ParentColor = False
77 end
78 object Label3: TLabel
79 Left = 24
80 Height = 20
81 Top = 128
82 Width = 39
83 Caption = 'Color:'
84 ParentColor = False
85 end
86 object ColorBox1: TColorBox
87 Left = 168
88 Height = 26
89 Top = 120
90 Width = 339
91 Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
92 Anchors = [akTop, akLeft, akRight]
93 ItemHeight = 20
94 TabOrder = 4
95 end
96 object Label4: TLabel
97 Left = 24
98 Height = 20
99 Top = 168
100 Width = 74
101 Caption = 'Agressivity:'
102 ParentColor = False
103 end
104 object ComboBoxAgressivity: TComboBox
105 Left = 168
106 Height = 28
107 Top = 168
108 Width = 339
109 Anchors = [akTop, akLeft, akRight]
110 ItemHeight = 20
111 Items.Strings = (
112 'Low'
113 'Medium'
114 'High'
115 ''
116 )
117 Style = csDropDownList
118 TabOrder = 5
119 end
120 object CheckBoxDefensive: TCheckBox
121 Left = 24
122 Height = 24
123 Top = 208
124 Width = 89
125 Caption = 'Defensive'
126 TabOrder = 6
127 end
128 object Label5: TLabel
129 Left = 24
130 Height = 20
131 Top = 248
132 Width = 69
133 Caption = 'Start units:'
134 ParentColor = False
135 end
136 object SpinEditStartUnits: TSpinEdit
137 Left = 224
138 Height = 28
139 Top = 240
140 Width = 112
141 MaxValue = 99
142 TabOrder = 7
143 end
144end
Note: See TracBrowser for help on using the repository browser.