source: trunk/Forms/FormNew.lfm

Last change on this file was 106, checked in by chronos, 7 months ago
  • Added: Optionally generated unmergeable movable tiles.
File size: 2.3 KB
Line 
1object FormNew: TFormNew
2 Left = 1029
3 Height = 322
4 Top = 587
5 Width = 514
6 Caption = 'New game'
7 ClientHeight = 322
8 ClientWidth = 514
9 DesignTimePPI = 144
10 LCLVersion = '3.6.0.0'
11 object ButtonCancel: TButton
12 Left = 255
13 Height = 38
14 Top = 271
15 Width = 116
16 Anchors = [akRight, akBottom]
17 Caption = 'Cancel'
18 ModalResult = 2
19 TabOrder = 0
20 end
21 object ButtonOk: TButton
22 Left = 391
23 Height = 38
24 Top = 271
25 Width = 116
26 Anchors = [akRight, akBottom]
27 Caption = 'OK'
28 ModalResult = 1
29 TabOrder = 1
30 end
31 object ScrollBox1: TScrollBox
32 Left = 8
33 Height = 247
34 Top = 8
35 Width = 497
36 HorzScrollBar.Page = 435
37 VertScrollBar.Page = 211
38 Anchors = [akTop, akLeft, akRight, akBottom]
39 ClientHeight = 245
40 ClientWidth = 495
41 TabOrder = 2
42 object Label1: TLabel
43 Left = 16
44 Height = 26
45 Top = 16
46 Width = 93
47 Caption = 'Board size:'
48 ParentColor = False
49 end
50 object ComboBoxSize: TComboBox
51 Left = 173
52 Height = 38
53 Top = 11
54 Width = 262
55 ItemHeight = 0
56 Items.Strings = (
57 '2 x 2'
58 '3 x 3'
59 '4 x 4'
60 '5 x 5'
61 '6 x 6'
62 '7 x 7'
63 '8 x 8'
64 '9 x 9'
65 '10 x 10 '
66 '11 x 11'
67 '12 x 12'
68 )
69 Style = csDropDownList
70 TabOrder = 0
71 OnChange = ComboBoxSizeChange
72 end
73 object CheckBoxUndoEnabled: TCheckBox
74 Left = 16
75 Height = 30
76 Top = 56
77 Width = 145
78 Caption = 'Undo enabled'
79 TabOrder = 1
80 end
81 object CheckBoxRecordHistory: TCheckBox
82 Left = 16
83 Height = 30
84 Top = 88
85 Width = 209
86 Caption = 'Record moves history'
87 TabOrder = 2
88 end
89 object Label2: TLabel
90 Left = 16
91 Height = 26
92 Top = 128
93 Width = 119
94 Caption = 'Disabled tiles:'
95 end
96 object SpinEditDisabledTiles: TSpinEdit
97 Left = 320
98 Height = 43
99 Top = 117
100 Width = 115
101 MaxValue = 10000
102 TabOrder = 3
103 end
104 object Label3: TLabel
105 Left = 16
106 Height = 26
107 Top = 176
108 Width = 160
109 Caption = 'Unmergeable tiles:'
110 end
111 object SpinEditUnmergeableTiles: TSpinEdit
112 Left = 320
113 Height = 43
114 Top = 168
115 Width = 115
116 MaxValue = 10000
117 TabOrder = 4
118 end
119 end
120end
Note: See TracBrowser for help on using the repository browser.