source: trunk/Forms/ufrmscaling.lfm

Last change on this file was 1, checked in by chronos, 11 years ago
  • Import original code of Lazes 0.1 by Nijland (eny)

​http://wiki.lazarus.freepascal.org/Lazarus_Mazes_demo
File size: 4.1 KB
Line 
1object frmScaling: TfrmScaling
2 Left = 961
3 Height = 92
4 Top = 244
5 Width = 463
6 BorderStyle = bsSizeToolWin
7 Caption = 'Play with scaling'
8 ClientHeight = 92
9 ClientWidth = 463
10 Color = clSkyBlue
11 Constraints.MinHeight = 92
12 Constraints.MinWidth = 463
13 Font.CharSet = ANSI_CHARSET
14 Font.Color = clBlue
15 Font.Height = -12
16 Font.Name = 'Verdana'
17 Font.Pitch = fpVariable
18 Font.Quality = fqDraft
19 Font.Style = [fsBold]
20 FormStyle = fsStayOnTop
21 OnClose = FormClose
22 OnCreate = FormCreate
23 LCLVersion = '1.0.2.0'
24 object tbWidth: TTrackBar
25 Left = 64
26 Height = 22
27 Top = 26
28 Width = 150
29 Max = 80
30 Min = 2
31 OnChange = tbWidthChange
32 Position = 15
33 ShowSelRange = False
34 TickStyle = tsNone
35 TabOrder = 0
36 end
37 object Label1: TLabel
38 Left = 8
39 Height = 17
40 Top = 7
41 Width = 72
42 Caption = 'Maze size'
43 Font.CharSet = ANSI_CHARSET
44 Font.Color = clBlue
45 Font.Height = -13
46 Font.Name = 'Verdana'
47 Font.Pitch = fpVariable
48 Font.Quality = fqDraft
49 Font.Style = [fsBold]
50 ParentColor = False
51 ParentFont = False
52 end
53 object tbHeight: TTrackBar
54 Left = 64
55 Height = 22
56 Top = 50
57 Width = 150
58 Max = 80
59 Min = 2
60 OnChange = tbHeightChange
61 Position = 15
62 ShowSelRange = False
63 TickStyle = tsNone
64 TabOrder = 1
65 end
66 object Label2: TLabel
67 Left = 20
68 Height = 15
69 Top = 32
70 Width = 38
71 Caption = 'Width'
72 Font.CharSet = ANSI_CHARSET
73 Font.Color = clBlue
74 Font.Height = -12
75 Font.Name = 'Verdana'
76 Font.Pitch = fpVariable
77 Font.Quality = fqDraft
78 ParentColor = False
79 ParentFont = False
80 end
81 object Label3: TLabel
82 Left = 16
83 Height = 15
84 Top = 56
85 Width = 42
86 Caption = 'Height'
87 Font.CharSet = ANSI_CHARSET
88 Font.Color = clBlue
89 Font.Height = -12
90 Font.Name = 'Verdana'
91 Font.Pitch = fpVariable
92 Font.Quality = fqDraft
93 ParentColor = False
94 ParentFont = False
95 end
96 object cbLocked: TCheckBox
97 Left = 144
98 Height = 18
99 Top = 7
100 Width = 65
101 BidiMode = bdRightToLeft
102 Caption = 'Locked'
103 Checked = True
104 OnChange = cbLockedChange
105 ParentBidiMode = False
106 State = cbChecked
107 TabOrder = 2
108 end
109 object Label4: TLabel
110 Left = 248
111 Height = 17
112 Top = 8
113 Width = 102
114 Caption = 'Drawing scale'
115 Font.CharSet = ANSI_CHARSET
116 Font.Color = clBlue
117 Font.Height = -13
118 Font.Name = 'Verdana'
119 Font.Pitch = fpVariable
120 Font.Quality = fqDraft
121 Font.Style = [fsBold]
122 ParentColor = False
123 ParentFont = False
124 end
125 object Label5: TLabel
126 Left = 260
127 Height = 15
128 Top = 32
129 Width = 38
130 Caption = 'Width'
131 Font.CharSet = ANSI_CHARSET
132 Font.Color = clBlue
133 Font.Height = -12
134 Font.Name = 'Verdana'
135 Font.Pitch = fpVariable
136 Font.Quality = fqDraft
137 ParentColor = False
138 ParentFont = False
139 end
140 object tbWidthDrawing: TTrackBar
141 Left = 304
142 Height = 22
143 Top = 26
144 Width = 150
145 Max = 50
146 Min = 4
147 OnChange = tbWidthDrawingChange
148 Position = 15
149 ShowSelRange = False
150 TickStyle = tsNone
151 TabOrder = 3
152 end
153 object tbHeightDrawing: TTrackBar
154 Left = 304
155 Height = 22
156 Top = 50
157 Width = 150
158 Max = 50
159 Min = 4
160 OnChange = tbHeightDrawingChange
161 Position = 15
162 ShowSelRange = False
163 TickStyle = tsNone
164 TabOrder = 4
165 end
166 object Label6: TLabel
167 Left = 256
168 Height = 15
169 Top = 56
170 Width = 42
171 Caption = 'Height'
172 Font.CharSet = ANSI_CHARSET
173 Font.Color = clBlue
174 Font.Height = -12
175 Font.Name = 'Verdana'
176 Font.Pitch = fpVariable
177 Font.Quality = fqDraft
178 ParentColor = False
179 ParentFont = False
180 end
181 object cbLockedDrawing: TCheckBox
182 Left = 384
183 Height = 18
184 Top = 8
185 Width = 65
186 BidiMode = bdRightToLeft
187 Caption = 'Locked'
188 Checked = True
189 OnChange = cbLockedDrawingChange
190 ParentBidiMode = False
191 State = cbChecked
192 TabOrder = 5
193 end
194end
Note: See TracBrowser for help on using the repository browser.