source: trunk/Forms/FormNew.lfm

Last change on this file was 330, checked in by chronos, 5 months ago
  • Fixed: New game symetric map units calcualtion.
  • Fixed: Map preview with cell and unit borders.
  • Fixed: Allow to set preferred game system grid type.
File size: 20.5 KB
Line 
1object FormNew: TFormNew
2 Left = 470
3 Height = 795
4 Top = 353
5 Width = 1096
6 Caption = 'New game'
7 ClientHeight = 795
8 ClientWidth = 1096
9 Constraints.MinHeight = 502
10 Constraints.MinWidth = 667
11 DesignTimePPI = 144
12 OnCreate = FormCreate
13 OnDestroy = FormDestroy
14 OnShow = FormShow
15 Position = poMainFormCenter
16 LCLVersion = '3.4.0.0'
17 object PageControl1: TPageControl
18 Left = 4
19 Height = 677
20 Top = 60
21 Width = 691
22 ActivePage = TabSheetMap
23 Align = alClient
24 BorderSpacing.Around = 4
25 ParentFont = False
26 TabIndex = 2
27 TabOrder = 0
28 OnChange = PageControl1Change
29 object TabSheetMode: TTabSheet
30 Caption = 'Mode'
31 ClientHeight = 639
32 ClientWidth = 683
33 ParentFont = False
34 object Panel3: TPanel
35 Left = 0
36 Height = 639
37 Top = 0
38 Width = 683
39 Align = alClient
40 BevelOuter = bvNone
41 ClientHeight = 639
42 ClientWidth = 683
43 ParentFont = False
44 TabOrder = 0
45 object RadioButtonModeLocal: TRadioButton
46 Left = 10
47 Height = 29
48 Top = 14
49 Width = 65
50 Caption = 'Local'
51 Checked = True
52 ParentFont = False
53 TabOrder = 0
54 TabStop = True
55 OnChange = RadioButtonModeLocalChange
56 end
57 object RadioButtonModeNetworkServer: TRadioButton
58 Left = 10
59 Height = 29
60 Top = 48
61 Width = 144
62 Caption = 'Network server'
63 ParentFont = False
64 TabOrder = 1
65 OnChange = RadioButtonModeLocalChange
66 end
67 object RadioButtonModeNetworkClient: TRadioButton
68 Left = 10
69 Height = 29
70 Top = 160
71 Width = 138
72 Caption = 'Network client'
73 ParentFont = False
74 TabOrder = 2
75 OnChange = RadioButtonModeLocalChange
76 end
77 object EditServerAddress: TEdit
78 Left = 24
79 Height = 33
80 Top = 112
81 Width = 220
82 ParentFont = False
83 TabOrder = 3
84 end
85 object SpinEditServerPort: TSpinEdit
86 Left = 256
87 Height = 33
88 Top = 112
89 Width = 79
90 MaxValue = 65535
91 ParentFont = False
92 TabOrder = 4
93 end
94 object Label11: TLabel
95 Left = 256
96 Height = 25
97 Top = 80
98 Width = 36
99 Caption = 'Port:'
100 ParentColor = False
101 ParentFont = False
102 end
103 object Label12: TLabel
104 Left = 24
105 Height = 25
106 Top = 80
107 Width = 69
108 Caption = 'Address:'
109 ParentColor = False
110 ParentFont = False
111 end
112 object ListViewServers: TListView
113 Left = 26
114 Height = 386
115 Top = 200
116 Width = 334
117 Anchors = [akTop, akLeft, akBottom]
118 Columns = <
119 item
120 Caption = 'Name'
121 Width = 100
122 end
123 item
124 Caption = 'Address'
125 Width = 219
126 end>
127 MultiSelect = True
128 OwnerData = True
129 ParentFont = False
130 PopupMenu = PopupMenuServers
131 ReadOnly = True
132 RowSelect = True
133 TabOrder = 5
134 ViewStyle = vsReport
135 OnData = ListViewServersData
136 OnDblClick = AServerModifyExecute
137 OnKeyPress = ListViewServersKeyPress
138 OnSelectItem = ListViewServersSelectItem
139 end
140 object Button1: TButton
141 Left = 26
142 Height = 38
143 Top = 594
144 Width = 94
145 Action = AServerAdd
146 Anchors = [akLeft, akBottom]
147 ParentFont = False
148 TabOrder = 6
149 end
150 object Button2: TButton
151 Left = 248
152 Height = 38
153 Top = 594
154 Width = 94
155 Action = AServerRemove
156 Anchors = [akLeft, akBottom]
157 ParentFont = False
158 TabOrder = 7
159 end
160 object Button3: TButton
161 Left = 136
162 Height = 38
163 Top = 594
164 Width = 94
165 Action = AServerModify
166 Anchors = [akLeft, akBottom]
167 ParentFont = False
168 TabOrder = 8
169 end
170 end
171 end
172 object TabSheetPlayers: TTabSheet
173 Caption = 'Players'
174 ClientHeight = 639
175 ClientWidth = 683
176 ParentFont = False
177 object Panel2: TPanel
178 Left = 0
179 Height = 639
180 Top = 0
181 Width = 683
182 Align = alClient
183 BevelOuter = bvNone
184 ParentFont = False
185 TabOrder = 0
186 end
187 end
188 object TabSheetMap: TTabSheet
189 Caption = 'Map'
190 ClientHeight = 639
191 ClientWidth = 683
192 OnShow = TabSheetMapShow
193 ParentFont = False
194 object Panel1: TPanel
195 Left = 0
196 Height = 639
197 Top = 0
198 Width = 683
199 Align = alClient
200 BevelOuter = bvNone
201 ClientHeight = 639
202 ClientWidth = 683
203 ParentFont = False
204 TabOrder = 0
205 object Label1: TLabel
206 Left = 8
207 Height = 25
208 Top = 10
209 Width = 89
210 Caption = 'Map width:'
211 ParentColor = False
212 ParentFont = False
213 end
214 object Label2: TLabel
215 Left = 8
216 Height = 25
217 Top = 58
218 Width = 95
219 Caption = 'Map height:'
220 ParentColor = False
221 ParentFont = False
222 end
223 object SpinEditMapSizeX: TSpinEdit
224 Left = 128
225 Height = 33
226 Top = 4
227 Width = 98
228 MinValue = 2
229 OnChange = SpinEditMapSizeXChange
230 ParentFont = False
231 TabOrder = 0
232 Value = 2
233 end
234 object SpinEditMapSizeY: TSpinEdit
235 Left = 128
236 Height = 33
237 Top = 55
238 Width = 98
239 MinValue = 2
240 OnChange = SpinEditMapSizeYChange
241 ParentFont = False
242 TabOrder = 1
243 Value = 2
244 end
245 object TrackBarSizeX: TTrackBar
246 Left = 240
247 Height = 58
248 Top = 8
249 Width = 432
250 Max = 100
251 Min = 2
252 OnChange = TrackBarSizeXChange
253 Position = 2
254 TickStyle = tsNone
255 Anchors = [akTop, akLeft, akRight]
256 ParentFont = False
257 TabOrder = 2
258 end
259 object TrackBarSizeY: TTrackBar
260 Left = 240
261 Height = 58
262 Top = 49
263 Width = 432
264 Max = 100
265 Min = 2
266 OnChange = TrackBarSizeYChange
267 Position = 2
268 TickStyle = tsNone
269 Anchors = [akTop, akLeft, akRight]
270 ParentFont = False
271 TabOrder = 3
272 end
273 object Label5: TLabel
274 Left = 8
275 Height = 25
276 Top = 104
277 Width = 77
278 Caption = 'Grid type:'
279 ParentColor = False
280 ParentFont = False
281 end
282 object ComboBoxGridType: TComboBox
283 Left = 146
284 Height = 33
285 Top = 104
286 Width = 304
287 ItemHeight = 25
288 Items.Strings = (
289 'Hexagon vertical'
290 'Square'
291 'Triangular'
292 'Random'
293 'Isometric'
294 'Hexagon horizontal'
295 )
296 ParentFont = False
297 Style = csDropDownList
298 TabOrder = 4
299 OnChange = ComboBoxGridTypeChange
300 end
301 object ComboBoxMapShape: TComboBox
302 Left = 146
303 Height = 33
304 Top = 144
305 Width = 304
306 ItemHeight = 25
307 Items.Strings = (
308 'Hexagonal'
309 'Square'
310 'Triangular'
311 )
312 ParentFont = False
313 Style = csDropDownList
314 TabOrder = 5
315 OnChange = ComboBoxMapShapeChange
316 end
317 object Label8: TLabel
318 Left = 8
319 Height = 25
320 Top = 144
321 Width = 92
322 Caption = 'Map shape:'
323 ParentColor = False
324 ParentFont = False
325 end
326 object CheckBoxSymetricMap: TCheckBox
327 Left = 8
328 Height = 29
329 Top = 248
330 Width = 134
331 Caption = 'Symetric map'
332 ParentFont = False
333 TabOrder = 6
334 OnChange = CheckBoxSymetricMapChange
335 end
336 object SpinEditVoidPercent: TSpinEdit
337 Left = 216
338 Height = 33
339 Top = 314
340 Width = 106
341 MinValue = 1
342 OnChange = SpinEditVoidPercentChange
343 ParentFont = False
344 TabOrder = 7
345 Value = 1
346 end
347 object CheckBoxVoid: TCheckBox
348 Left = 8
349 Height = 29
350 Top = 318
351 Width = 172
352 Caption = 'Inaccessible places'
353 ParentFont = False
354 TabOrder = 8
355 OnChange = CheckBoxVoidChange
356 end
357 object CheckBoxCity: TCheckBox
358 Left = 8
359 Height = 29
360 Top = 368
361 Width = 67
362 Caption = 'Cities'
363 ParentFont = False
364 TabOrder = 9
365 OnChange = CheckBoxCityChange
366 end
367 object SpinEditCityPercent: TSpinEdit
368 Left = 216
369 Height = 33
370 Top = 360
371 Width = 106
372 MinValue = 1
373 OnChange = SpinEditCityPercentChange
374 ParentFont = False
375 TabOrder = 10
376 Value = 1
377 end
378 object Label4: TLabel
379 Left = 331
380 Height = 25
381 Top = 368
382 Width = 15
383 Caption = '%'
384 ParentColor = False
385 ParentFont = False
386 end
387 object Label3: TLabel
388 Left = 331
389 Height = 25
390 Top = 324
391 Width = 15
392 Caption = '%'
393 ParentColor = False
394 ParentFont = False
395 end
396 object SpinEditNeutralUnits: TSpinEdit
397 Left = 312
398 Height = 33
399 Top = 488
400 Width = 98
401 MaxValue = 99
402 OnChange = SpinEditNeutralUnitsChange
403 ParentFont = False
404 TabOrder = 11
405 Value = 12
406 end
407 object Label7: TLabel
408 Left = 8
409 Height = 25
410 Top = 496
411 Width = 207
412 Caption = 'Max random neutral units:'
413 ParentColor = False
414 ParentFont = False
415 end
416 object EditImageFile: TEdit
417 Left = 144
418 Height = 33
419 Top = 184
420 Width = 415
421 Anchors = [akTop, akLeft, akRight]
422 ParentFont = False
423 TabOrder = 12
424 OnChange = EditImageFileChange
425 end
426 object ButtonImageBrowse: TButton
427 Left = 568
428 Height = 38
429 Top = 182
430 Width = 98
431 Anchors = [akTop, akRight]
432 Caption = 'Browse'
433 ParentFont = False
434 TabOrder = 13
435 OnClick = ButtonImageBrowseClick
436 end
437 object Label9: TLabel
438 Left = 8
439 Height = 25
440 Top = 184
441 Width = 82
442 Caption = 'Image file:'
443 ParentColor = False
444 ParentFont = False
445 end
446 object CheckBoxBridges: TCheckBox
447 Left = 8
448 Height = 29
449 Top = 408
450 Width = 194
451 Caption = 'Bridges between cells'
452 ParentFont = False
453 TabOrder = 14
454 OnChange = CheckBoxBridgesChange
455 end
456 object SpinEditMaxPower: TSpinEdit
457 Left = 312
458 Height = 33
459 Top = 440
460 Width = 98
461 MaxValue = 1000000
462 MinValue = 1
463 OnChange = SpinEditMaxPowerChange
464 ParentFont = False
465 TabOrder = 15
466 Value = 99
467 end
468 object Label10: TLabel
469 Left = 8
470 Height = 25
471 Top = 448
472 Width = 141
473 Caption = 'Max units per cell:'
474 ParentColor = False
475 ParentFont = False
476 end
477 object CheckBoxCyclicMap: TCheckBox
478 Left = 8
479 Height = 29
480 Top = 283
481 Width = 110
482 Caption = 'Cyclic map'
483 ParentFont = False
484 TabOrder = 16
485 OnChange = CheckBoxCyclicMapChange
486 end
487 object Image1: TImage
488 Left = 419
489 Height = 316
490 Top = 272
491 Width = 255
492 Anchors = [akTop, akLeft, akRight]
493 OnResize = Image1Resize
494 end
495 object Label15: TLabel
496 Left = 419
497 Height = 25
498 Top = 240
499 Width = 64
500 Caption = 'Preview:'
501 ParentColor = False
502 ParentFont = False
503 end
504 object ButtonRandomize: TButton
505 Left = 10
506 Height = 38
507 Top = 540
508 Width = 154
509 Caption = 'Randomize'
510 ParentFont = False
511 TabOrder = 17
512 OnClick = ButtonRandomizeClick
513 end
514 end
515 end
516 object TabSheetRules: TTabSheet
517 Caption = 'Rules'
518 ClientHeight = 639
519 ClientWidth = 683
520 ParentFont = False
521 object Panel4: TPanel
522 Left = 0
523 Height = 639
524 Top = 0
525 Width = 683
526 Align = alClient
527 BevelOuter = bvNone
528 ClientHeight = 639
529 ClientWidth = 683
530 ParentFont = False
531 TabOrder = 0
532 object RadioGroupGrowCells: TRadioGroup
533 Left = 14
534 Height = 128
535 Top = 120
536 Width = 312
537 AutoFill = True
538 Caption = 'Growing cells'
539 ChildSizing.LeftRightSpacing = 6
540 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
541 ChildSizing.EnlargeVertical = crsHomogenousChildResize
542 ChildSizing.ShrinkHorizontal = crsScaleChilds
543 ChildSizing.ShrinkVertical = crsScaleChilds
544 ChildSizing.Layout = cclLeftToRightThenTopToBottom
545 ChildSizing.ControlsPerLine = 1
546 ClientHeight = 98
547 ClientWidth = 308
548 Items.Strings = (
549 'None'
550 'Player cities'
551 'Player all'
552 )
553 ParentFont = False
554 TabOrder = 0
555 end
556 object Label6: TLabel
557 Left = 8
558 Height = 25
559 Top = 267
560 Width = 111
561 Caption = 'Win objective:'
562 ParentColor = False
563 ParentFont = False
564 end
565 object ComboBoxWinObjective: TComboBox
566 Left = 216
567 Height = 33
568 Top = 267
569 Width = 328
570 ItemHeight = 25
571 Items.Strings = (
572 'Defeat all oponents'
573 'Defeat all oponents cities'
574 'Capture position'
575 'Stay alive for number of turns'
576 )
577 ParentFont = False
578 Style = csDropDownList
579 TabOrder = 1
580 OnChange = ComboBoxWinObjectiveChange
581 end
582 object RadioGroupGrowAmount: TRadioGroup
583 Left = 14
584 Height = 92
585 Top = 16
586 Width = 305
587 AutoFill = True
588 Caption = 'Per turn grow amount'
589 ChildSizing.LeftRightSpacing = 6
590 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
591 ChildSizing.EnlargeVertical = crsHomogenousChildResize
592 ChildSizing.ShrinkHorizontal = crsScaleChilds
593 ChildSizing.ShrinkVertical = crsScaleChilds
594 ChildSizing.Layout = cclLeftToRightThenTopToBottom
595 ChildSizing.ControlsPerLine = 1
596 ClientHeight = 62
597 ClientWidth = 301
598 Items.Strings = (
599 'By one'
600 'By square root'
601 )
602 ParentFont = False
603 TabOrder = 2
604 end
605 object CheckBoxFogOfWar: TCheckBox
606 Left = 336
607 Height = 29
608 Top = 24
609 Width = 111
610 Caption = 'Fog of war'
611 ParentFont = False
612 TabOrder = 3
613 end
614 object PageControlWinObjective: TPageControl
615 Left = 12
616 Height = 110
617 Top = 314
618 Width = 660
619 ActivePage = TabSheetCaptureEntireMap
620 Anchors = [akTop, akLeft, akRight]
621 ParentFont = False
622 ShowTabs = False
623 TabIndex = 5
624 TabOrder = 4
625 object TabSheetDefeatEnemies: TTabSheet
626 ParentFont = False
627 end
628 object TabSheetCaptureCities: TTabSheet
629 ParentFont = False
630 end
631 object TabSheetCaptureCells: TTabSheet
632 ClientHeight = 102
633 ClientWidth = 652
634 ParentFont = False
635 object Label14: TLabel
636 Left = 8
637 Height = 25
638 Top = 16
639 Width = 147
640 Caption = 'Special cells count:'
641 ParentColor = False
642 ParentFont = False
643 end
644 object SpinEditSpecialCells: TSpinEdit
645 Left = 236
646 Height = 33
647 Top = 8
648 Width = 158
649 MaxValue = 1000
650 MinValue = 1
651 ParentFont = False
652 TabOrder = 0
653 Value = 1
654 end
655 end
656 object TabSheetStayAliveTurns: TTabSheet
657 ClientHeight = 102
658 ClientWidth = 652
659 ParentFont = False
660 object Label13: TLabel
661 Left = 8
662 Height = 25
663 Top = 16
664 Width = 136
665 Caption = 'Number of turns:'
666 ParentColor = False
667 ParentFont = False
668 end
669 object SpinEditTurns: TSpinEdit
670 Left = 236
671 Height = 33
672 Top = 8
673 Width = 158
674 MaxValue = 1000
675 MinValue = 1
676 ParentFont = False
677 TabOrder = 0
678 Value = 1
679 end
680 end
681 object TabSheetNone: TTabSheet
682 ParentFont = False
683 end
684 object TabSheetCaptureEntireMap: TTabSheet
685 ParentFont = False
686 end
687 end
688 end
689 end
690 end
691 object PanelButtons: TPanel
692 Left = 0
693 Height = 54
694 Top = 741
695 Width = 1096
696 Align = alBottom
697 BevelOuter = bvNone
698 ClientHeight = 54
699 ClientWidth = 1096
700 ParentFont = False
701 TabOrder = 1
702 object ButtonOk: TButton
703 Left = 976
704 Height = 38
705 Top = 8
706 Width = 106
707 Anchors = [akRight, akBottom]
708 Caption = 'Ok'
709 ModalResult = 1
710 ParentFont = False
711 TabOrder = 0
712 OnClick = ButtonOkClick
713 end
714 object ButtonCancel: TButton
715 Left = 845
716 Height = 38
717 Top = 8
718 Width = 114
719 Anchors = [akRight, akBottom]
720 Caption = 'Cancel'
721 ModalResult = 2
722 ParentFont = False
723 TabOrder = 1
724 end
725 end
726 object PanelChat: TPanel
727 Left = 705
728 Height = 685
729 Top = 56
730 Width = 391
731 Align = alRight
732 BevelOuter = bvNone
733 ParentFont = False
734 TabOrder = 2
735 end
736 object Splitter1: TSplitter
737 Left = 699
738 Height = 685
739 Top = 56
740 Width = 6
741 Align = alRight
742 ResizeAnchor = akRight
743 end
744 object Panel5: TPanel
745 Left = 0
746 Height = 56
747 Top = 0
748 Width = 1096
749 Align = alTop
750 BevelOuter = bvNone
751 ClientHeight = 56
752 ClientWidth = 1096
753 ParentFont = False
754 TabOrder = 4
755 object Label16: TLabel
756 Left = 12
757 Height = 25
758 Top = 14
759 Width = 111
760 Caption = 'Game system:'
761 ParentColor = False
762 ParentFont = False
763 end
764 object ComboBoxGameSystem: TComboBox
765 Left = 176
766 Height = 33
767 Top = 12
768 Width = 254
769 ItemHeight = 25
770 ParentFont = False
771 Style = csDropDownList
772 TabOrder = 0
773 OnChange = ComboBoxGameSystemChange
774 end
775 object ButtonGameSystems: TButton
776 Left = 443
777 Height = 38
778 Top = 10
779 Width = 113
780 Caption = 'Manage'
781 ParentFont = False
782 TabOrder = 1
783 OnClick = ButtonGameSystemsClick
784 end
785 end
786 object ActionList1: TActionList
787 Images = Core.ImageListSmall
788 Left = 864
789 Top = 216
790 object AServerAdd: TAction
791 Caption = 'Add'
792 OnExecute = AServerAddExecute
793 end
794 object AServerRemove: TAction
795 Caption = 'Remove'
796 OnExecute = AServerRemoveExecute
797 end
798 object AServerModify: TAction
799 Caption = 'Modify'
800 OnExecute = AServerModifyExecute
801 end
802 end
803 object OpenPictureDialog1: TOpenPictureDialog
804 Left = 864
805 Top = 360
806 end
807 object PopupMenuServers: TPopupMenu
808 Left = 864
809 Top = 136
810 object MenuItem4: TMenuItem
811 Action = AServerAdd
812 end
813 object MenuItem6: TMenuItem
814 Action = AServerModify
815 end
816 object MenuItem5: TMenuItem
817 Action = AServerRemove
818 end
819 end
820 object TimerMapPreview: TTimer
821 Interval = 500
822 OnTimer = TimerMapPreviewTimer
823 Left = 864
824 Top = 446
825 end
826end
Note: See TracBrowser for help on using the repository browser.