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

source: tags/1.2.0/Forms/UFormNew.lfm

Last change on this file was 155, checked in by chronos, 7 years ago
  • Modified: Store player settings for new game separately to current game players.
File size: 10.8 KB
Line 
1object FormNew: TFormNew
2 Left = 1176
3 Height = 501
4 Top = 331
5 Width = 677
6 Caption = 'New game'
7 ClientHeight = 501
8 ClientWidth = 677
9 Constraints.MinHeight = 501
10 Constraints.MinWidth = 667
11 OnCreate = FormCreate
12 OnDestroy = FormDestroy
13 OnShow = FormShow
14 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
36 object PageControl1: TPageControl
37 Left = 4
38 Height = 439
39 Top = 4
40 Width = 669
41 ActivePage = TabSheet2
42 Align = alTop
43 Anchors = [akTop, akLeft, akRight, akBottom]
44 BorderSpacing.Around = 4
45 TabIndex = 1
46 TabOrder = 2
47 object TabSheet1: TTabSheet
48 Caption = 'Players'
49 ClientHeight = 395
50 ClientWidth = 663
51 object ListView1: TListView
52 Left = 4
53 Height = 345
54 Top = 4
55 Width = 655
56 Align = alTop
57 Anchors = [akTop, akLeft, akRight, akBottom]
58 BorderSpacing.Around = 4
59 Columns = <
60 item
61 Caption = 'Name'
62 Width = 200
63 end
64 item
65 Caption = 'Type'
66 Width = 100
67 end
68 item
69 Caption = 'Color'
70 Width = 100
71 end
72 item
73 Caption = 'Start units'
74 Width = 790
75 end>
76 OwnerData = True
77 PopupMenu = PopupMenu1
78 ReadOnly = True
79 RowSelect = True
80 TabOrder = 0
81 ViewStyle = vsReport
82 OnCustomDrawSubItem = ListView1CustomDrawSubItem
83 OnData = ListView1Data
84 OnDblClick = ListView1DblClick
85 OnKeyPress = ListView1KeyPress
86 OnKeyUp = ListView1KeyUp
87 OnSelectItem = ListView1SelectItem
88 end
89 object ButtonPlayerRemove: TButton
90 Left = 224
91 Height = 25
92 Top = 357
93 Width = 83
94 Action = APlayerRemove
95 Anchors = [akLeft, akBottom]
96 TabOrder = 1
97 end
98 object ButtonPlayerAdd: TButton
99 Left = 16
100 Height = 25
101 Top = 357
102 Width = 83
103 Action = APlayerAdd
104 Anchors = [akLeft, akBottom]
105 TabOrder = 2
106 end
107 object ButtonPlayerModify: TButton
108 Left = 120
109 Height = 25
110 Top = 357
111 Width = 83
112 Action = APlayerModify
113 Anchors = [akLeft, akBottom]
114 Caption = 'Modify'
115 TabOrder = 3
116 end
117 end
118 object TabSheet2: TTabSheet
119 Caption = 'Map'
120 ClientHeight = 395
121 ClientWidth = 663
122 object Label1: TLabel
123 Left = 8
124 Height = 26
125 Top = 9
126 Width = 95
127 Caption = 'Map width:'
128 ParentColor = False
129 end
130 object Label2: TLabel
131 Left = 8
132 Height = 26
133 Top = 57
134 Width = 102
135 Caption = 'Map height:'
136 ParentColor = False
137 end
138 object SpinEditMapSizeX: TSpinEdit
139 Left = 128
140 Height = 36
141 Top = 4
142 Width = 98
143 MinValue = 2
144 OnChange = SpinEditMapSizeXChange
145 TabOrder = 0
146 Value = 2
147 end
148 object SpinEditMapSizeY: TSpinEdit
149 Left = 128
150 Height = 36
151 Top = 55
152 Width = 98
153 MinValue = 2
154 OnChange = SpinEditMapSizeYChange
155 TabOrder = 1
156 Value = 2
157 end
158 object TrackBarSizeX: TTrackBar
159 Left = 240
160 Height = 47
161 Top = 8
162 Width = 412
163 Max = 100
164 Min = 2
165 OnChange = TrackBarSizeXChange
166 Position = 2
167 TickStyle = tsNone
168 Anchors = [akTop, akLeft, akRight]
169 TabOrder = 2
170 end
171 object TrackBarSizeY: TTrackBar
172 Left = 240
173 Height = 47
174 Top = 49
175 Width = 412
176 Max = 100
177 Min = 2
178 OnChange = TrackBarSizeYChange
179 Position = 2
180 TickStyle = tsNone
181 Anchors = [akTop, akLeft, akRight]
182 TabOrder = 3
183 end
184 object Label5: TLabel
185 Left = 8
186 Height = 26
187 Top = 104
188 Width = 83
189 Caption = 'Grid type:'
190 ParentColor = False
191 end
192 object ComboBoxGridType: TComboBox
193 Left = 146
194 Height = 40
195 Top = 104
196 Width = 208
197 ItemHeight = 0
198 Items.Strings = (
199 'Hexagonal'
200 'Square'
201 'Triangular'
202 )
203 Style = csDropDownList
204 TabOrder = 4
205 end
206 object ComboBoxMapShape: TComboBox
207 Left = 146
208 Height = 40
209 Top = 144
210 Width = 208
211 ItemHeight = 0
212 Items.Strings = (
213 'Hexagonal'
214 'Square'
215 'Triangular'
216 )
217 OnChange = ComboBoxMapShapeChange
218 Style = csDropDownList
219 TabOrder = 5
220 end
221 object Label8: TLabel
222 Left = 8
223 Height = 26
224 Top = 144
225 Width = 98
226 Caption = 'Map shape:'
227 ParentColor = False
228 end
229 object CheckBoxSymetricMap: TCheckBox
230 Left = 472
231 Height = 27
232 Top = 110
233 Width = 175
234 Anchors = [akTop, akLeft, akRight]
235 AutoSize = False
236 Caption = 'Symetric map'
237 TabOrder = 6
238 end
239 object SpinEditVoidPercent: TSpinEdit
240 Left = 216
241 Height = 36
242 Top = 224
243 Width = 106
244 MinValue = 1
245 TabOrder = 7
246 Value = 1
247 end
248 object CheckBoxVoid: TCheckBox
249 Left = 8
250 Height = 30
251 Top = 232
252 Width = 187
253 Caption = 'Inaccessible places'
254 OnChange = CheckBoxVoidChange
255 TabOrder = 8
256 end
257 object CheckBoxCity: TCheckBox
258 Left = 8
259 Height = 30
260 Top = 272
261 Width = 71
262 Caption = 'Cities'
263 OnChange = CheckBoxCityChange
264 TabOrder = 9
265 end
266 object SpinEditCityPercent: TSpinEdit
267 Left = 216
268 Height = 36
269 Top = 272
270 Width = 106
271 MinValue = 1
272 TabOrder = 10
273 Value = 1
274 end
275 object Label4: TLabel
276 Left = 331
277 Height = 26
278 Top = 272
279 Width = 15
280 Caption = '%'
281 ParentColor = False
282 end
283 object Label3: TLabel
284 Left = 331
285 Height = 26
286 Top = 232
287 Width = 15
288 Caption = '%'
289 ParentColor = False
290 end
291 object SpinEditNeutralUnits: TSpinEdit
292 Left = 408
293 Height = 36
294 Top = 352
295 Width = 98
296 MaxValue = 99
297 OnChange = SpinEditMapSizeYChange
298 TabOrder = 11
299 Value = 12
300 end
301 object Label7: TLabel
302 Left = 8
303 Height = 26
304 Top = 352
305 Width = 227
306 Caption = 'Max random neutral units:'
307 ParentColor = False
308 end
309 object EditImageFile: TEdit
310 Left = 144
311 Height = 36
312 Top = 184
313 Width = 396
314 Anchors = [akTop, akLeft, akRight]
315 TabOrder = 12
316 end
317 object ButtonImageBrowse: TButton
318 Left = 548
319 Height = 25
320 Top = 192
321 Width = 99
322 Anchors = [akTop, akRight]
323 Caption = 'Browse'
324 OnClick = ButtonImageBrowseClick
325 TabOrder = 13
326 end
327 object Label9: TLabel
328 Left = 8
329 Height = 26
330 Top = 184
331 Width = 90
332 Caption = 'Image file:'
333 ParentColor = False
334 end
335 object CheckBoxBridges: TCheckBox
336 Left = 8
337 Height = 30
338 Top = 310
339 Width = 210
340 Caption = 'Bridges between cells'
341 TabOrder = 14
342 end
343 end
344 object TabSheet3: TTabSheet
345 Caption = 'Rules'
346 ClientHeight = 395
347 ClientWidth = 663
348 object RadioGroupGrowCells: TRadioGroup
349 Left = 15
350 Height = 105
351 Top = 104
352 Width = 312
353 AutoFill = True
354 Caption = 'Growing cells'
355 ChildSizing.LeftRightSpacing = 6
356 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
357 ChildSizing.EnlargeVertical = crsHomogenousChildResize
358 ChildSizing.ShrinkHorizontal = crsScaleChilds
359 ChildSizing.ShrinkVertical = crsScaleChilds
360 ChildSizing.Layout = cclLeftToRightThenTopToBottom
361 ChildSizing.ControlsPerLine = 1
362 ClientHeight = 77
363 ClientWidth = 308
364 Items.Strings = (
365 'None'
366 'Player cities'
367 'Player all'
368 )
369 TabOrder = 0
370 end
371 object Label6: TLabel
372 Left = 8
373 Height = 25
374 Top = 248
375 Width = 111
376 Caption = 'Win objective:'
377 ParentColor = False
378 end
379 object ComboBoxWinObjective: TComboBox
380 Left = 232
381 Height = 33
382 Top = 240
383 Width = 328
384 ItemHeight = 0
385 Items.Strings = (
386 'Defeat all oponents'
387 'Defeat all oponents cities'
388 'Capture position'
389 'Stay alive for number of turns'
390 )
391 Style = csDropDownList
392 TabOrder = 1
393 end
394 object RadioGroupGrowAmount: TRadioGroup
395 Left = 15
396 Height = 76
397 Top = 16
398 Width = 305
399 AutoFill = True
400 Caption = 'Per turn grow amount'
401 ChildSizing.LeftRightSpacing = 6
402 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
403 ChildSizing.EnlargeVertical = crsHomogenousChildResize
404 ChildSizing.ShrinkHorizontal = crsScaleChilds
405 ChildSizing.ShrinkVertical = crsScaleChilds
406 ChildSizing.Layout = cclLeftToRightThenTopToBottom
407 ChildSizing.ControlsPerLine = 1
408 ClientHeight = 48
409 ClientWidth = 301
410 Items.Strings = (
411 'By one'
412 'By square root'
413 )
414 TabOrder = 2
415 end
416 object CheckBoxFogOfWar: TCheckBox
417 Left = 336
418 Height = 27
419 Top = 24
420 Width = 503
421 Anchors = [akTop, akLeft, akRight]
422 AutoSize = False
423 Caption = 'Fog of war'
424 TabOrder = 3
425 end
426 end
427 end
428 object ActionList1: TActionList
429 Images = Core.ImageListSmall
430 left = 256
431 top = 440
432 object APlayerModify: TAction
433 Caption = 'Modify player'
434 OnExecute = APlayerModifyExecute
435 end
436 object APlayerAdd: TAction
437 Caption = 'Add'
438 OnExecute = APlayerAddExecute
439 end
440 object APlayerRemove: TAction
441 Caption = 'Remove'
442 OnExecute = APlayerRemoveExecute
443 end
444 end
445 object OpenPictureDialog1: TOpenPictureDialog
446 left = 424
447 top = 440
448 end
449 object PopupMenu1: TPopupMenu
450 left = 128
451 top = 440
452 object MenuItem1: TMenuItem
453 Action = APlayerAdd
454 end
455 object MenuItem2: TMenuItem
456 Action = APlayerModify
457 Default = True
458 end
459 object MenuItem3: TMenuItem
460 Action = APlayerRemove
461 end
462 end
463end
Note: See TracBrowser for help on using the repository browser.