1object Form1: TForm1
2  Left = 350
3  Height = 573
4  Top = 215
5  Width = 471
6  HorzScrollBar.Page = 471
7  VertScrollBar.Page = 573
8  AutoScroll = True
9  AutoSize = True
10  Caption = 'Pen and Brush'
11  ClientHeight = 573
12  ClientWidth = 471
13  OnCreate = FormCreate
14  OnDestroy = FormDestroy
15  Position = poScreenCenter
16  LCLVersion = '0.9.31'
17  object PaintBox: TPaintBox
18    AnchorSideLeft.Control = Owner
19    AnchorSideTop.Control = Owner
20    AnchorSideRight.Control = Owner
21    AnchorSideRight.Side = asrBottom
22    Left = 11
23    Height = 169
24    Top = 7
25    Width = 449
26    Anchors = [akTop, akLeft, akRight]
27    BorderSpacing.Left = 11
28    BorderSpacing.Top = 7
29    BorderSpacing.Right = 11
30    OnPaint = PaintBoxPaint
31  end
32  object Label3: TLabel
33    AnchorSideLeft.Control = Label1
34    AnchorSideTop.Control = WidthCombo
35    AnchorSideTop.Side = asrCenter
36    Left = 18
37    Height = 16
38    Top = 269
39    Width = 36
40    BorderSpacing.Left = 7
41    Caption = 'Width:'
42    ParentColor = False
43  end
44  object Label4: TLabel
45    AnchorSideLeft.Control = Label1
46    AnchorSideTop.Control = CapsCombo
47    AnchorSideTop.Side = asrCenter
48    Left = 18
49    Height = 16
50    Top = 328
51    Width = 53
52    BorderSpacing.Left = 7
53    Caption = 'End Caps:'
54    ParentColor = False
55  end
56  object Label5: TLabel
57    AnchorSideLeft.Control = Label1
58    AnchorSideTop.Control = JoinCombo
59    AnchorSideTop.Side = asrCenter
60    Left = 18
61    Height = 16
62    Top = 358
63    Width = 53
64    BorderSpacing.Left = 7
65    Caption = 'Join Style:'
66    ParentColor = False
67  end
68  object Label6: TLabel
69    AnchorSideLeft.Control = Label1
70    AnchorSideTop.Control = PenColorBox
71    AnchorSideTop.Side = asrCenter
72    Left = 18
73    Height = 16
74    Top = 299
75    Width = 33
76    BorderSpacing.Left = 7
77    Caption = 'Color:'
78    ParentColor = False
79  end
80  object Bevel1: TBevel
81    AnchorSideLeft.Control = Label1
82    AnchorSideLeft.Side = asrBottom
83    AnchorSideTop.Control = Label1
84    AnchorSideTop.Side = asrCenter
85    AnchorSideRight.Control = Owner
86    AnchorSideRight.Side = asrBottom
87    Left = 88
88    Height = 3
89    Top = 220
90    Width = 372
91    Anchors = [akTop, akLeft, akRight]
92    BorderSpacing.Left = 10
93    BorderSpacing.Right = 11
94  end
95  object Label1: TLabel
96    AnchorSideLeft.Control = Owner
97    AnchorSideTop.Control = FigureCombo
98    AnchorSideTop.Side = asrBottom
99    Left = 11
100    Height = 16
101    Top = 213
102    Width = 67
103    BorderSpacing.Left = 11
104    BorderSpacing.Top = 7
105    Caption = 'Pen options:'
106    ParentColor = False
107  end
108  object Label2: TLabel
109    AnchorSideLeft.Control = Owner
110    AnchorSideTop.Control = JoinCombo
111    AnchorSideTop.Side = asrBottom
112    Left = 11
113    Height = 16
114    Top = 385
115    Width = 77
116    BorderSpacing.Left = 11
117    BorderSpacing.Top = 7
118    Caption = 'Brush options:'
119    ParentColor = False
120  end
121  object Bevel2: TBevel
122    AnchorSideLeft.Control = Bevel1
123    AnchorSideTop.Control = Label2
124    AnchorSideTop.Side = asrCenter
125    AnchorSideRight.Control = Owner
126    AnchorSideRight.Side = asrBottom
127    Left = 88
128    Height = 3
129    Top = 392
130    Width = 372
131    Anchors = [akTop, akLeft, akRight]
132    BorderSpacing.Right = 11
133  end
134  object Label7: TLabel
135    AnchorSideLeft.Control = Label1
136    AnchorSideTop.Control = PenStyleCombo
137    AnchorSideTop.Side = asrCenter
138    Left = 18
139    Height = 16
140    Top = 239
141    Width = 29
142    BorderSpacing.Left = 7
143    Caption = 'Style:'
144    ParentColor = False
145  end
146  object Label8: TLabel
147    AnchorSideLeft.Control = Label2
148    AnchorSideTop.Control = BrushStyleCombo
149    AnchorSideTop.Side = asrCenter
150    Left = 18
151    Height = 16
152    Top = 411
153    Width = 29
154    BorderSpacing.Left = 7
155    Caption = 'Style:'
156    ParentColor = False
157  end
158  object Label9: TLabel
159    AnchorSideLeft.Control = Label1
160    AnchorSideTop.Control = BrushColorBox
161    AnchorSideTop.Side = asrCenter
162    Left = 18
163    Height = 16
164    Top = 441
165    Width = 33
166    BorderSpacing.Left = 7
167    Caption = 'Color:'
168    ParentColor = False
169  end
170  object Label10: TLabel
171    AnchorSideLeft.Control = Label1
172    AnchorSideTop.Control = FigureCombo
173    AnchorSideTop.Side = asrCenter
174    Left = 18
175    Height = 16
176    Top = 186
177    Width = 37
178    BorderSpacing.Left = 7
179    Caption = 'Figure:'
180    ParentColor = False
181  end
182  object Button1: TBitBtn
183    AnchorSideTop.Control = BrushColorBox
184    AnchorSideTop.Side = asrBottom
185    AnchorSideRight.Control = Owner
186    AnchorSideRight.Side = asrBottom
187    AnchorSideBottom.Control = Owner
188    AnchorSideBottom.Side = asrBottom
189    Left = 386
190    Height = 26
191    Top = 471
192    Width = 74
193    Anchors = [akTop, akRight]
194    AutoSize = True
195    BorderSpacing.Around = 11
196    Caption = 'Close'
197    Kind = bkClose
198    NumGlyphs = 0
199    TabOrder = 0
200  end
201  object WidthCombo: TComboBox
202    AnchorSideLeft.Control = Owner
203    AnchorSideTop.Control = PenStyleCombo
204    AnchorSideTop.Side = asrBottom
205    Left = 100
206    Height = 23
207    Top = 266
208    Width = 140
209    AutoSelect = False
210    BorderSpacing.Left = 100
211    BorderSpacing.Top = 7
212    ItemHeight = 15
213    ItemIndex = 0
214    Items.Strings = (
215      '1'
216      '2'
217      '3'
218      '4'
219      '5'
220      '6'
221      '7'
222    )
223    OnChange = PenChange
224    Style = csDropDownList
225    TabOrder = 1
226    Text = '1'
227  end
228  object CapsCombo: TComboBox
229    AnchorSideLeft.Control = Owner
230    AnchorSideTop.Control = PenColorBox
231    AnchorSideTop.Side = asrBottom
232    Left = 100
233    Height = 23
234    Top = 325
235    Width = 140
236    AutoSelect = False
237    BorderSpacing.Left = 100
238    BorderSpacing.Top = 7
239    ItemHeight = 15
240    ItemIndex = 0
241    Items.Strings = (
242      'Round'
243      'Square'
244      'Flat'
245    )
246    OnChange = PenChange
247    Style = csDropDownList
248    TabOrder = 2
249    Text = 'Round'
250  end
251  object JoinCombo: TComboBox
252    AnchorSideLeft.Control = Owner
253    AnchorSideTop.Control = CapsCombo
254    AnchorSideTop.Side = asrBottom
255    Left = 100
256    Height = 23
257    Top = 355
258    Width = 140
259    AutoSelect = False
260    BorderSpacing.Left = 100
261    BorderSpacing.Top = 7
262    ItemHeight = 15
263    ItemIndex = 0
264    Items.Strings = (
265      'Round'
266      'Bevel'
267      'Mitter'
268    )
269    OnChange = PenChange
270    Style = csDropDownList
271    TabOrder = 3
272    Text = 'Round'
273  end
274  object PenColorBox: TColorBox
275    AnchorSideLeft.Control = Owner
276    AnchorSideTop.Control = WidthCombo
277    AnchorSideTop.Side = asrBottom
278    Left = 100
279    Height = 22
280    Top = 296
281    Width = 140
282    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
283    AutoSelect = False
284    BorderSpacing.Left = 100
285    BorderSpacing.Top = 7
286    ItemHeight = 16
287    OnChange = PenChange
288    TabOrder = 4
289  end
290  object PenStyleCombo: TComboBox
291    AnchorSideLeft.Control = Owner
292    AnchorSideTop.Control = Label1
293    AnchorSideTop.Side = asrBottom
294    Left = 100
295    Height = 23
296    Top = 236
297    Width = 140
298    AutoSelect = False
299    BorderSpacing.Left = 100
300    BorderSpacing.Top = 7
301    ItemHeight = 15
302    OnChange = PenChange
303    Style = csDropDownList
304    TabOrder = 5
305  end
306  object BrushStyleCombo: TComboBox
307    AnchorSideLeft.Control = Owner
308    AnchorSideTop.Control = Label2
309    AnchorSideTop.Side = asrBottom
310    Left = 100
311    Height = 23
312    Top = 408
313    Width = 140
314    AutoSelect = False
315    BorderSpacing.Left = 100
316    BorderSpacing.Top = 7
317    ItemHeight = 15
318    OnChange = BrushChange
319    Style = csDropDownList
320    TabOrder = 6
321  end
322  object BrushColorBox: TColorBox
323    AnchorSideLeft.Control = Owner
324    AnchorSideTop.Control = BrushStyleCombo
325    AnchorSideTop.Side = asrBottom
326    Left = 100
327    Height = 22
328    Top = 438
329    Width = 140
330    Selected = clBtnFace
331    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
332    AutoSelect = False
333    BorderSpacing.Left = 100
334    BorderSpacing.Top = 7
335    ItemHeight = 16
336    OnChange = BrushChange
337    TabOrder = 7
338  end
339  object FigureCombo: TComboBox
340    AnchorSideLeft.Control = Owner
341    AnchorSideTop.Control = PaintBox
342    AnchorSideTop.Side = asrBottom
343    Left = 100
344    Height = 23
345    Top = 183
346    Width = 140
347    AutoSelect = False
348    BorderSpacing.Left = 100
349    BorderSpacing.Top = 7
350    ItemHeight = 15
351    ItemIndex = 0
352    Items.Strings = (
353      'Line'
354      'PolyLine'
355      'Ellipse'
356      'Rectangle'
357      'Triangle'
358    )
359    OnChange = FigureComboChange
360    Style = csDropDownList
361    TabOrder = 8
362    Text = 'Line'
363  end
364  object cbCosmetic: TCheckBox
365    AnchorSideLeft.Control = WidthCombo
366    AnchorSideLeft.Side = asrBottom
367    AnchorSideTop.Control = WidthCombo
368    AnchorSideTop.Side = asrCenter
369    Left = 247
370    Height = 19
371    Top = 268
372    Width = 70
373    BorderSpacing.Left = 7
374    Caption = 'Cosmetic'
375    Checked = True
376    OnChange = PenChange
377    State = cbChecked
378    TabOrder = 9
379  end
380  object cbAntialiasing: TCheckBox
381    AnchorSideLeft.Control = FigureCombo
382    AnchorSideLeft.Side = asrBottom
383    AnchorSideTop.Control = FigureCombo
384    AnchorSideTop.Side = asrCenter
385    Left = 247
386    Height = 19
387    Top = 185
388    Width = 82
389    AllowGrayed = True
390    BorderSpacing.Left = 7
391    Caption = 'Antialiasing'
392    OnChange = cbAntialiasingChange
393    TabOrder = 10
394  end
395end
396