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/UFormNew.lfm

Last change on this file was 179, checked in by chronos, 6 years ago
  • Added: A preparation for gameplay over network.
File size: 13.3 KB
Line 
1object FormNew: TFormNew
2 Left = 596
3 Height = 617
4 Top = 243
5 Width = 775
6 Caption = 'New game'
7 ClientHeight = 617
8 ClientWidth = 775
9 Constraints.MinHeight = 501
10 Constraints.MinWidth = 667
11 DesignTimePPI = 120
12 OnClose = FormClose
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnShow = FormShow
16 Position = poMainFormCenter
17 LCLVersion = '1.8.0.6'
18 object PageControl1: TPageControl
19 Left = 4
20 Height = 330
21 Top = 4
22 Width = 767
23 ActivePage = TabSheetMode
24 Align = alClient
25 BorderSpacing.Around = 4
26 TabIndex = 0
27 TabOrder = 0
28 object TabSheetMode: TTabSheet
29 Caption = 'Mode'
30 ClientHeight = 297
31 ClientWidth = 759
32 object RadioButtonModeLocal: TRadioButton
33 Left = 10
34 Height = 24
35 Top = 14
36 Width = 59
37 Caption = 'Local'
38 OnChange = RadioButtonModeLocalChange
39 TabOrder = 0
40 end
41 object RadioButtonModeNetworkServer: TRadioButton
42 Left = 10
43 Height = 24
44 Top = 48
45 Width = 123
46 Caption = 'Network server'
47 OnChange = RadioButtonModeLocalChange
48 TabOrder = 1
49 end
50 object RadioButtonModeNetworkClient: TRadioButton
51 Left = 10
52 Height = 24
53 Top = 152
54 Width = 120
55 Caption = 'Network client'
56 OnChange = RadioButtonModeLocalChange
57 TabOrder = 2
58 end
59 object EditServerAddress: TEdit
60 Left = 24
61 Height = 28
62 Top = 112
63 Width = 220
64 TabOrder = 3
65 end
66 object SpinEditServerPort: TSpinEdit
67 Left = 256
68 Height = 28
69 Top = 112
70 Width = 79
71 MaxValue = 65535
72 TabOrder = 4
73 end
74 object Label11: TLabel
75 Left = 256
76 Height = 20
77 Top = 88
78 Width = 30
79 Caption = 'Port:'
80 ParentColor = False
81 end
82 object Label12: TLabel
83 Left = 24
84 Height = 20
85 Top = 88
86 Width = 56
87 Caption = 'Address:'
88 ParentColor = False
89 end
90 object ListViewServers: TListView
91 Left = 26
92 Height = 97
93 Top = 181
94 Width = 326
95 Anchors = [akTop, akLeft, akBottom]
96 Columns = <
97 item
98 Caption = 'Name'
99 Width = 100
100 end
101 item
102 Caption = 'Address'
103 Width = 200
104 end>
105 TabOrder = 5
106 ViewStyle = vsReport
107 end
108 end
109 object TabSheet1: TTabSheet
110 Caption = 'Players'
111 ClientHeight = 297
112 ClientWidth = 759
113 object ListViewPlayers: TListView
114 Left = 4
115 Height = 247
116 Top = 4
117 Width = 751
118 Align = alTop
119 Anchors = [akTop, akLeft, akRight, akBottom]
120 BorderSpacing.Around = 4
121 Columns = <
122 item
123 Caption = 'Name'
124 Width = 200
125 end
126 item
127 Caption = 'Type'
128 Width = 100
129 end
130 item
131 Caption = 'Color'
132 Width = 100
133 end
134 item
135 Caption = 'Start units'
136 Width = 790
137 end>
138 OwnerData = True
139 PopupMenu = PopupMenu1
140 ReadOnly = True
141 RowSelect = True
142 TabOrder = 0
143 ViewStyle = vsReport
144 OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem
145 OnData = ListViewPlayersData
146 OnDblClick = ListViewPlayersDblClick
147 OnKeyPress = ListViewPlayersKeyPress
148 OnKeyUp = ListViewPlayersKeyUp
149 OnSelectItem = ListViewPlayersSelectItem
150 end
151 object ButtonPlayerRemove: TButton
152 Left = 224
153 Height = 25
154 Top = 259
155 Width = 83
156 Action = APlayerRemove
157 Anchors = [akLeft, akBottom]
158 TabOrder = 1
159 end
160 object ButtonPlayerAdd: TButton
161 Left = 16
162 Height = 25
163 Top = 259
164 Width = 83
165 Action = APlayerAdd
166 Anchors = [akLeft, akBottom]
167 TabOrder = 2
168 end
169 object ButtonPlayerModify: TButton
170 Left = 120
171 Height = 25
172 Top = 259
173 Width = 83
174 Action = APlayerModify
175 Anchors = [akLeft, akBottom]
176 Caption = 'Modify'
177 TabOrder = 3
178 end
179 end
180 object TabSheet2: TTabSheet
181 Caption = 'Map'
182 ClientHeight = 297
183 ClientWidth = 759
184 object Label1: TLabel
185 Left = 8
186 Height = 20
187 Top = 9
188 Width = 74
189 Caption = 'Map width:'
190 ParentColor = False
191 end
192 object Label2: TLabel
193 Left = 8
194 Height = 20
195 Top = 57
196 Width = 79
197 Caption = 'Map height:'
198 ParentColor = False
199 end
200 object SpinEditMapSizeX: TSpinEdit
201 Left = 128
202 Height = 28
203 Top = 4
204 Width = 98
205 MinValue = 2
206 OnChange = SpinEditMapSizeXChange
207 TabOrder = 0
208 Value = 2
209 end
210 object SpinEditMapSizeY: TSpinEdit
211 Left = 128
212 Height = 28
213 Top = 55
214 Width = 98
215 MinValue = 2
216 OnChange = SpinEditMapSizeYChange
217 TabOrder = 1
218 Value = 2
219 end
220 object TrackBarSizeX: TTrackBar
221 Left = 240
222 Height = 47
223 Top = 8
224 Width = 508
225 Max = 100
226 Min = 2
227 OnChange = TrackBarSizeXChange
228 Position = 2
229 TickStyle = tsNone
230 Anchors = [akTop, akLeft, akRight]
231 TabOrder = 2
232 end
233 object TrackBarSizeY: TTrackBar
234 Left = 240
235 Height = 47
236 Top = 49
237 Width = 508
238 Max = 100
239 Min = 2
240 OnChange = TrackBarSizeYChange
241 Position = 2
242 TickStyle = tsNone
243 Anchors = [akTop, akLeft, akRight]
244 TabOrder = 3
245 end
246 object Label5: TLabel
247 Left = 8
248 Height = 20
249 Top = 104
250 Width = 64
251 Caption = 'Grid type:'
252 ParentColor = False
253 end
254 object ComboBoxGridType: TComboBox
255 Left = 146
256 Height = 28
257 Top = 104
258 Width = 208
259 ItemHeight = 20
260 Items.Strings = (
261 'Hexagonal'
262 'Square'
263 'Triangular'
264 )
265 Style = csDropDownList
266 TabOrder = 4
267 end
268 object ComboBoxMapShape: TComboBox
269 Left = 146
270 Height = 28
271 Top = 144
272 Width = 208
273 ItemHeight = 20
274 Items.Strings = (
275 'Hexagonal'
276 'Square'
277 'Triangular'
278 )
279 OnChange = ComboBoxMapShapeChange
280 Style = csDropDownList
281 TabOrder = 5
282 end
283 object Label8: TLabel
284 Left = 8
285 Height = 20
286 Top = 144
287 Width = 76
288 Caption = 'Map shape:'
289 ParentColor = False
290 end
291 object CheckBoxSymetricMap: TCheckBox
292 Left = 472
293 Height = 27
294 Top = 110
295 Width = 271
296 Anchors = [akTop, akLeft, akRight]
297 AutoSize = False
298 Caption = 'Symetric map'
299 TabOrder = 6
300 end
301 object SpinEditVoidPercent: TSpinEdit
302 Left = 216
303 Height = 28
304 Top = 224
305 Width = 106
306 MinValue = 1
307 TabOrder = 7
308 Value = 1
309 end
310 object CheckBoxVoid: TCheckBox
311 Left = 8
312 Height = 24
313 Top = 232
314 Width = 149
315 Caption = 'Inaccessible places'
316 OnChange = CheckBoxVoidChange
317 TabOrder = 8
318 end
319 object CheckBoxCity: TCheckBox
320 Left = 8
321 Height = 24
322 Top = 272
323 Width = 60
324 Caption = 'Cities'
325 OnChange = CheckBoxCityChange
326 TabOrder = 9
327 end
328 object SpinEditCityPercent: TSpinEdit
329 Left = 216
330 Height = 28
331 Top = 272
332 Width = 106
333 MinValue = 1
334 TabOrder = 10
335 Value = 1
336 end
337 object Label4: TLabel
338 Left = 331
339 Height = 20
340 Top = 272
341 Width = 12
342 Caption = '%'
343 ParentColor = False
344 end
345 object Label3: TLabel
346 Left = 331
347 Height = 20
348 Top = 232
349 Width = 12
350 Caption = '%'
351 ParentColor = False
352 end
353 object SpinEditNeutralUnits: TSpinEdit
354 Left = 408
355 Height = 28
356 Top = 352
357 Width = 98
358 MaxValue = 99
359 OnChange = SpinEditMapSizeYChange
360 TabOrder = 11
361 Value = 12
362 end
363 object Label7: TLabel
364 Left = 8
365 Height = 20
366 Top = 352
367 Width = 172
368 Caption = 'Max random neutral units:'
369 ParentColor = False
370 end
371 object EditImageFile: TEdit
372 Left = 144
373 Height = 28
374 Top = 184
375 Width = 492
376 Anchors = [akTop, akLeft, akRight]
377 TabOrder = 12
378 end
379 object ButtonImageBrowse: TButton
380 Left = 644
381 Height = 25
382 Top = 192
383 Width = 99
384 Anchors = [akTop, akRight]
385 Caption = 'Browse'
386 OnClick = ButtonImageBrowseClick
387 TabOrder = 13
388 end
389 object Label9: TLabel
390 Left = 8
391 Height = 20
392 Top = 184
393 Width = 70
394 Caption = 'Image file:'
395 ParentColor = False
396 end
397 object CheckBoxBridges: TCheckBox
398 Left = 8
399 Height = 24
400 Top = 310
401 Width = 168
402 Caption = 'Bridges between cells'
403 TabOrder = 14
404 end
405 end
406 object TabSheet3: TTabSheet
407 Caption = 'Rules'
408 ClientHeight = 297
409 ClientWidth = 759
410 object RadioGroupGrowCells: TRadioGroup
411 Left = 15
412 Height = 105
413 Top = 104
414 Width = 312
415 AutoFill = True
416 Caption = 'Growing cells'
417 ChildSizing.LeftRightSpacing = 6
418 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
419 ChildSizing.EnlargeVertical = crsHomogenousChildResize
420 ChildSizing.ShrinkHorizontal = crsScaleChilds
421 ChildSizing.ShrinkVertical = crsScaleChilds
422 ChildSizing.Layout = cclLeftToRightThenTopToBottom
423 ChildSizing.ControlsPerLine = 1
424 ClientHeight = 80
425 ClientWidth = 308
426 Items.Strings = (
427 'None'
428 'Player cities'
429 'Player all'
430 )
431 TabOrder = 0
432 end
433 object Label6: TLabel
434 Left = 8
435 Height = 20
436 Top = 248
437 Width = 94
438 Caption = 'Win objective:'
439 ParentColor = False
440 end
441 object ComboBoxWinObjective: TComboBox
442 Left = 232
443 Height = 28
444 Top = 240
445 Width = 328
446 ItemHeight = 20
447 Items.Strings = (
448 'Defeat all oponents'
449 'Defeat all oponents cities'
450 'Capture position'
451 'Stay alive for number of turns'
452 )
453 Style = csDropDownList
454 TabOrder = 1
455 end
456 object RadioGroupGrowAmount: TRadioGroup
457 Left = 15
458 Height = 76
459 Top = 16
460 Width = 305
461 AutoFill = True
462 Caption = 'Per turn grow amount'
463 ChildSizing.LeftRightSpacing = 6
464 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
465 ChildSizing.EnlargeVertical = crsHomogenousChildResize
466 ChildSizing.ShrinkHorizontal = crsScaleChilds
467 ChildSizing.ShrinkVertical = crsScaleChilds
468 ChildSizing.Layout = cclLeftToRightThenTopToBottom
469 ChildSizing.ControlsPerLine = 1
470 ClientHeight = 51
471 ClientWidth = 301
472 Items.Strings = (
473 'By one'
474 'By square root'
475 )
476 TabOrder = 2
477 end
478 object CheckBoxFogOfWar: TCheckBox
479 Left = 336
480 Height = 27
481 Top = 24
482 Width = 599
483 Anchors = [akTop, akLeft, akRight]
484 AutoSize = False
485 Caption = 'Fog of war'
486 TabOrder = 3
487 end
488 end
489 end
490 object PanelButtons: TPanel
491 Left = 0
492 Height = 45
493 Top = 572
494 Width = 775
495 Align = alBottom
496 BevelOuter = bvNone
497 ClientHeight = 45
498 ClientWidth = 775
499 TabOrder = 1
500 object ButtonOk: TButton
501 Left = 587
502 Height = 25
503 Top = 6
504 Width = 75
505 Anchors = [akRight, akBottom]
506 Caption = 'Ok'
507 ModalResult = 1
508 TabOrder = 0
509 end
510 object ButtonCancel: TButton
511 Left = 691
512 Height = 25
513 Top = 6
514 Width = 75
515 Anchors = [akRight, akBottom]
516 Caption = 'Cancel'
517 ModalResult = 2
518 TabOrder = 1
519 end
520 end
521 object PanelChat: TPanel
522 Left = 0
523 Height = 228
524 Top = 344
525 Width = 775
526 Align = alBottom
527 BevelOuter = bvNone
528 TabOrder = 2
529 end
530 object Splitter1: TSplitter
531 Cursor = crVSplit
532 Left = 0
533 Height = 6
534 Top = 338
535 Width = 775
536 Align = alBottom
537 ResizeAnchor = akBottom
538 end
539 object ActionList1: TActionList
540 Images = Core.ImageListSmall
541 left = 256
542 top = 440
543 object APlayerModify: TAction
544 Caption = 'Modify player'
545 OnExecute = APlayerModifyExecute
546 end
547 object APlayerAdd: TAction
548 Caption = 'Add'
549 OnExecute = APlayerAddExecute
550 end
551 object APlayerRemove: TAction
552 Caption = 'Remove'
553 OnExecute = APlayerRemoveExecute
554 end
555 end
556 object OpenPictureDialog1: TOpenPictureDialog
557 left = 424
558 top = 440
559 end
560 object PopupMenu1: TPopupMenu
561 left = 128
562 top = 440
563 object MenuItem1: TMenuItem
564 Action = APlayerAdd
565 end
566 object MenuItem2: TMenuItem
567 Action = APlayerModify
568 Default = True
569 end
570 object MenuItem3: TMenuItem
571 Action = APlayerRemove
572 end
573 end
574end
Note: See TracBrowser for help on using the repository browser.