source: trunk/Forms/FormNew.lfm

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