MathgeomGLS
510 строк · 17.5 Кб
1object TextBlocksForm: TTextBlocksForm
2Left = 0
3Top = 0
4Margins.Left = 5
5Margins.Top = 5
6Margins.Right = 5
7Margins.Bottom = 5
8ActiveControl = RichEdit
9BorderIcons = [biSystemMenu]
10ClientHeight = 882
11ClientWidth = 525
12Color = clBtnFace
13Constraints.MinHeight = 543
14Constraints.MinWidth = 316
15Font.Charset = DEFAULT_CHARSET
16Font.Color = clBlack
17Font.Height = -23
18Font.Name = 'Tahoma'
19Font.Style = []
20FormStyle = fsStayOnTop
21KeyPreview = True
22ShowHint = True
23OnCloseQuery = FormCloseQuery
24OnDestroy = FormDestroy
25OnShow = FormShow
26PixelsPerInch = 168
27DesignSize = (
28525
29882)
30TextHeight = 28
31object Label2: TLabel
32Left = 9
33Top = 292
34Width = 157
35Height = 35
36Hint = 'Enter the x, y location for the tex block'
37Margins.Left = 5
38Margins.Top = 5
39Margins.Right = 5
40Margins.Bottom = 5
41Alignment = taRightJustify
42Anchors = [akTop, akRight]
43AutoSize = False
44Caption = 'Block Location'
45end
46object Label3: TLabel
47Left = 10
48Top = 341
49Width = 156
50Height = 35
51Hint = 'Adjust the line increment'
52Margins.Left = 5
53Margins.Top = 5
54Margins.Right = 5
55Margins.Bottom = 5
56Alignment = taRightJustify
57Anchors = [akTop, akRight]
58AutoSize = False
59Caption = #1042#1099#1089#1086#1090#1072' '#1089#1090#1088#1086#1082#1080
60end
61object ColorButton: TSpeedButton
62Tag = 1
63Left = 287
64Top = 336
65Width = 163
66Height = 40
67Cursor = crHandPoint
68Hint = 'Select the text colour for a single line'
69Margins.Left = 5
70Margins.Top = 5
71Margins.Right = 5
72Margins.Bottom = 5
73Anchors = [akTop, akRight]
74Caption = #1062#1074#1077#1090' &'#1089#1090#1088#1086#1082#1080
75Flat = True
76Font.Charset = DEFAULT_CHARSET
77Font.Color = clMaroon
78Font.Height = -19
79Font.Name = 'Tahoma'
80Font.Style = []
81ParentFont = False
82Spacing = -1
83Visible = False
84OnClick = ColorPanelClick
85end
86object FontButton: TSpeedButton
87Left = 457
88Top = 5
89Width = 40
90Height = 41
91Cursor = crHandPoint
92Hint = 'Select a font for the current text block'
93Margins.Left = 5
94Margins.Top = 5
95Margins.Right = 5
96Margins.Bottom = 5
97Anchors = [akTop, akRight]
98Flat = True
99Glyph.Data = {
10036040000424D3604000000000000360000002800000010000000100000000100
1012000000000000004000000000000000000000000000000000000FF00FF00FF00
102FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
103FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008000
104000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
105FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008000
106000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
107FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008000
108000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
109FF00C0C0C00000008000C0C0C000FF00FF00FF00FF00FF00FF00FF00FF008000
11000008000000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
111FF00FF00FF0000008000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008000
112000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
113FF00FF00FF0000008000FF00FF00C0C0C000FF00FF00FF00FF00FF00FF008000
114000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
115FF00FF00FF00000080000000800000008000FF00FF00FF00FF00FF00FF008000
1160000800000008000000080000000FF00FF008000800080008000FF00FF00FF00
117FF00FF00FF0000008000FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00
118FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C0C0C00080008000FF00
119FF00FF00FF0000008000FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00
120FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080008000FF00
121FF00C0C0C00000008000000080000000800000008000FF00FF00FF00FF00FF00
122FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080008000FF00
123FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
124FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080008000800080008000
1258000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
126FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080008000FF00
127FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
128FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080008000C0C0
129C000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
130FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008000
131800080008000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
132FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
133FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
134Spacing = -1
135OnClick = FontButtonClick
136end
137object Label1: TLabel
138Left = 14
139Top = 14
140Width = 138
141Height = 28
142Margins.Left = 5
143Margins.Top = 5
144Margins.Right = 5
145Margins.Bottom = 5
146Anchors = [akTop, akRight]
147Caption = #1041#1083#1086#1082#1080' '#1090#1077#1082#1089#1090#1072
148end
149object AddButton: TSpeedButton
150Left = 247
151Top = 5
152Width = 40
153Height = 41
154Cursor = crHandPoint
155Hint = 'Add a new text block'
156Margins.Left = 5
157Margins.Top = 5
158Margins.Right = 5
159Margins.Bottom = 5
160Anchors = [akTop, akRight]
161Flat = True
162Glyph.Data = {
163F6000000424DF600000000000000760000002800000010000000100000000100
1640400000000008000000000000000000000001000000010000000000000000000
1658000008000000080800080000000800080008080000080808000C0C0C0000000
166FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F4FFF4FF44FF
16744FFF4FFF4F4F4F4F4FFFF444FF4F4F4F4FFFF4F4FF4F4F4F4FFFF4F4FFF44FF
16844FFFFF4FFFFF4FFF4FFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFF
169FFFFFFFFFFF00FFFFFFFFFFF00000000FFFFFFFF00000000FFFFFFFFFFF00FFF
170FFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFF}
171OnClick = AddButtonClick
172end
173object DeleteButton: TSpeedButton
174Left = 298
175Top = 5
176Width = 40
177Height = 41
178Cursor = crHandPoint
179Hint = 'Delete the selected text block'
180Margins.Left = 5
181Margins.Top = 5
182Margins.Right = 5
183Margins.Bottom = 5
184Anchors = [akTop, akRight]
185Flat = True
186Glyph.Data = {
187F6000000424DF600000000000000760000002800000010000000100000000100
1880400000000008000000000000000000000001000000010000000000000000000
1898000008000000080800080000000800080008080000080808000C0C0C0000000
190FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF999FFF99F
1919FFFFFF9FF9F9FFF9FFFFFF9FF9F999F9FFFFFF9FF9F9F9F9FFFFFF9FF9FF9FF
1929FFFFFF999FFFFFF9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
193FFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF00000000FFFFFFFFFFFFFFFF
194FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
195OnClick = DeleteButtonClick
196end
197object UpButton: TSpeedButton
198Left = 355
199Top = 5
200Width = 41
201Height = 41
202Cursor = crHandPoint
203Hint = 'Move selected text block up'
204Margins.Left = 5
205Margins.Top = 5
206Margins.Right = 5
207Margins.Bottom = 5
208Anchors = [akTop, akRight]
209Flat = True
210Glyph.Data = {
21136030000424D3603000000000000360000002800000010000000100000000100
21218000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
213FF00FFFF00FFFF00FF7A451F7A451F7A451F7A451F7A451F7A451FFF00FFFF00
214FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7A451F7A451FA14D18B14313B8
215360BB22E09A52D0B983A167A451F7A451FFF00FFFF00FFFF00FFFF00FFFF00FF
2167A451FA05B1FC25D18CA5714C54B11BB4515B63A10B42B07B1280BB8543B9C59
217367A451FFF00FFFF00FFFF00FF7A451FA56522D7791FD5701BCF5F16C45417E7
218EBEDE7EBEDB42E09B42D0CC65C41C769559E603F7A451FFF00FFFF00FF7A451F
219D88C26E28923DA781DD36717C65D1EE7EBEDE7EBEDB5340CB6300DC96044CE6F
22058C676637A451FFF00FF7A451FB78128EFA62AE69225DE801FD76C18C9631EE7
221EBEDE7EBEDB6350CB83511CA6448CE705AD4806FAC72537A451F7A451FDAA92E
222F3AF2DEA9824DD801DD86D16CB651FE7EBEDE7EBEDB6350BB83712C96448CF70
2235AD58272C989737A451F7A451FF4C132F6B02AD99A3CE9D0C9CB886ECB6017E7
224EBEDE7EBEDB22F06CB886EE9D0C9CF7763D58270DC98897A451F7A451FF4C032
225F6AC26CF9D53CAD5E5E7EBEDCB886EE7EBEDE7EBEDBC6F4EF7FBFCF4EBEACF7B
22667D58372DC998A7A451F7A451FDAA02DEFA629E38E20C99C68D1D9E2E7EBEDE7
227EBEDE7EBEDE7E9E9EFEBE7CC7D67CE705AD78776CA8B767A451F7A451FB67926
228EA9927E38921D87216C48F62D7DDE3E7EBEDE7EBEDE2E0DDC67458CA6045D075
22960D78777AC75567A451FFF00FF7A451FD38022DC7E1FD76E1ACC590FC0825BDC
230E6EBDEE0E0B85837C45131CB6950CF7560CB806C7A451FFF00FFFF00FF7A451F
231A15F20D06D1BD16518CC5714C2450CBD724DB75B39B7310CC75D41CA674FCC72
2325F9F65427A451FFF00FFFF00FFFF00FF7A451F9E571EBF5416C54D12C1430FBA
2333407B42904BA3B1AC65B41BF62499D5D3B7A451FFF00FFFF00FFFF00FFFF00FF
234FF00FF7A451F7A451FA04A18AF4011B6330BB12A07B04423A155327A451F7A45
2351FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7A451F7A451F7A
236451F7A451F7A451F7A451FFF00FFFF00FFFF00FFFF00FFFF00FF}
237OnClick = UpButtonClick
238end
239object DownButton: TSpeedButton
240Left = 399
241Top = 5
242Width = 40
243Height = 41
244Cursor = crHandPoint
245Hint = 'Move selected text block down'
246Margins.Left = 5
247Margins.Top = 5
248Margins.Right = 5
249Margins.Bottom = 5
250Anchors = [akTop, akRight]
251Flat = True
252Glyph.Data = {
25336030000424D3603000000000000360000002800000010000000100000000100
25418000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
255FF00FFFF00FFFF00FF7A451F7A451F7A451F7A451F7A451F7A451FFF00FFFF00
256FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7A451F7A451FA15532B04423B1
2572A07B6330BAF4011A04A187A451F7A451FFF00FFFF00FFFF00FFFF00FFFF00FF
2587A451F9D5D3BBF6249C65B41BA3B1AB42904BA3407C1430FC54D12BF54169E57
2591E7A451FFF00FFFF00FFFF00FF7A451F9F6542CC725FCA674FC75D41B7310CB7
2605B39BD724DC2450CCC5714D16518D06D1BA15F207A451FFF00FFFF00FF7A451F
261CB806CCF7560CB6950C45131B85837DEE0E0DCE6EBC0825BCC590FD76E1ADC7E
2621FD380227A451FFF00FF7A451FAC7556D78777D07560CA6045C67458E2E0DDE7
263EBEDE7EBEDD7DDE3C48F62D87216E38921EA9927B679267A451F7A451FCA8B76
264D78776CE705ACC7D67EFEBE7E7E9E9E7EBEDE7EBEDE7EBEDD1D9E2C99C68E38E
26520EFA629DAA02D7A451F7A451FDC998AD58372CF7B67F4EBEAF7FBFCBC6F4EE7
266EBEDE7EBEDCB886EE7EBEDCAD5E5CF9D53F6AC26F4C0327A451F7A451FDC9889
267D58270CF7763E9D0C9CB886EB22F06E7EBEDE7EBEDCB6017CB886EE9D0C9D99A
2683CF6B02AF4C1327A451F7A451FC98973D58272CF705AC96448B83712B6350BE7
269EBEDE7EBEDCB651FD86D16DD801DEA9824F3AF2DDAA92E7A451F7A451FAC7253
270D4806FCE705ACA6448B83511B6350CE7EBEDE7EBEDC9631ED76C18DE801FE692
27125EFA62AB781287A451FFF00FF7A451FC67663CE6F58C96044B6300DB5340CE7
272EBEDE7EBEDC65D1ED36717DA781DE28923D88C267A451FFF00FFFF00FF7A451F
2739E603FC76955C65C41B42D0CB42E09E7EBEDE7EBEDC45417CF5F16D5701BD779
2741FA565227A451FFF00FFFF00FFFF00FF7A451F9C5936B8543BB1280BB42B07B6
2753A10BB4515C54B11CA5714C25D18A05B1F7A451FFF00FFFF00FFFF00FFFF00FF
276FF00FF7A451F7A451F983A16A52D0BB22E09B8360BB14313A14D187A451F7A45
2771FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7A451F7A451F7A
278451F7A451F7A451F7A451FFF00FFFF00FFFF00FFFF00FFFF00FF}
279OnClick = DownButtonClick
280end
281object RichEdit: TRichEdit
282Left = 14
283Top = 387
284Width = 483
285Height = 404
286Hint = 'Enter or edit text to be displayed. '
287Margins.Left = 5
288Margins.Top = 5
289Margins.Right = 5
290Margins.Bottom = 5
291Anchors = [akLeft, akTop, akRight, akBottom]
292Color = clWhite
293Font.Charset = RUSSIAN_CHARSET
294Font.Color = clBlack
295Font.Height = -13
296Font.Name = 'Tahoma'
297Font.Style = []
298ParentFont = False
299ScrollBars = ssBoth
300TabOrder = 7
301WordWrap = False
302OnChange = RichEditChange
303end
304object BlockListBox: TCheckListBox
305Left = 14
306Top = 49
307Width = 483
308Height = 177
309Cursor = crHandPoint
310Hint = 'Select a text block to edit'
311Margins.Left = 5
312Margins.Top = 5
313Margins.Right = 5
314Margins.Bottom = 5
315Anchors = [akTop, akRight]
316ItemHeight = 30
317TabOrder = 0
318OnClick = BlockListBoxClick
319OnClickCheck = BlockListBoxClickCheck
320end
321object ApplyBitBtn: TBitBtn
322Left = 42
323Top = 810
324Width = 245
325Height = 48
326Cursor = crHandPoint
327Hint = 'Update any changes made'
328Margins.Left = 5
329Margins.Top = 5
330Margins.Right = 5
331Margins.Bottom = 5
332Anchors = [akRight, akBottom]
333Caption = 'Apply Change'
334Default = True
335Glyph.Data = {
33636030000424D3603000000000000360000002800000010000000100000000100
33718000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
338FF00FFFF00FFFF00FF936035936035936035936035936035936035FF00FFFF00
339FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF936035936035C6923DE3B445F7
340CE4AF7CF4BE3BB47C79940936035936035FF00FFFF00FFFF00FFFF00FFFF00FF
341936035B57A36DD9838F0AD38F3B538F5BC3BF6BE3CF5BB3BF3B63BE1A33DB87F
34238936035FF00FFFF00FFFF00FF936035B27233DC872FE4922DDCA457D7BC8FD7
343C097D8C096D8C199D5B582E69E38E09233B47634936035FF00FFFF00FF936035
344CD6F28DA7B25D2A374F9FDFEF9FDFEF9FDFEF9FDFEF9FDFEF9FDFEDF8E32E08A
3452FD0782C936035FF00FF936035B4652BD3661FD27A37F9FDFED5B69ADA8229DE
346892DDF8A2FD9852DDC8227DD832DDA7B2AD67226B5682C936035936035C05A21
347CE5A17D07D47F9FDFED18C57DA711CDB7B29DC7822F9FDFED2905BD76D1CD56E
34825D26722C25E24936035936035C64C18CA5015CB6A36F9FDFED8AD91CD5F16D0
349641BCF5E0FF9FDFEF9FDFECD7F4CCF5A15CD5B1EC7521B936035936035C24212
350C54613C5480FD5A38CF5FCFFF9FDFEF9FDFEF9FDFEF9FDFEF9FDFEF9FDFECB70
35143C84B12C34917936035936035C15F39C9552DC95124C54918D08464E4BDAEE7
352C8BCE6C5B8F9FDFEF9FDFEF9FDFEC7663FC33E0CB84618936035936035B5704B
353D3765CD4785BD47555D06842CD6239CC5E33C74D1DF9FDFEF7F5F4CA7252C23D
3540FC24119AD5428936035FF00FF936035CD7C64D6816AD7836AD8846BD8856BD8
355846AD77F63F9FDFED59B89D27154D4775CC86F55936035FF00FFFF00FF936035
356B17855D88B7ADA8E7BDA8E7BDA8E7ADA8D79DB8C78D58974D78570D98974D483
35770B07450936035FF00FFFF00FFFF00FF936035B37F5DD79886E09E90E09E8FDF
3589D8EDF9C8CDF9A8ADE9888D38F7DB27B59936035FF00FFFF00FFFF00FFFF00FF
359FF00FF936035936035BE8E71D6A28FE4AEA1E4ADA0D5A08CBE8B6E9360359360
36035FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF93603593603593
3616035936035936035936035FF00FFFF00FFFF00FFFF00FFFF00FF}
362TabOrder = 8
363Visible = False
364OnClick = ApplyBitBtnClick
365end
366object BitBtn1: TBitBtn
367Left = 338
368Top = 810
369Width = 131
370Height = 48
371Cursor = crHandPoint
372Hint = 'Close the text block window'
373Margins.Left = 5
374Margins.Top = 5
375Margins.Right = 5
376Margins.Bottom = 5
377Anchors = [akRight, akBottom]
378Caption = '&Close'
379Glyph.Data = {
380F6000000424DF600000000000000760000002800000010000000100000000100
381040000000000800000000000000000000000100000001000000000000000FFFF
382000000008400FF00FF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
383FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00330000000000
3840333330244444444033333022444444403333302224444440333330222044444
3850333330222044444033333022204444403333302220444440333330222044444
3860333330222044444033333022240444403333302220444440333330222044444
3870333330212044444033333021104444403333300000000000333}
388TabOrder = 9
389OnClick = BitBtn1Click
390end
391object EditLeft: TEdit
392Left = 168
393Top = 287
394Width = 163
395Height = 40
396Hint = 'Enter left location'
397Margins.Left = 5
398Margins.Top = 5
399Margins.Right = 5
400Margins.Bottom = 5
401Anchors = [akTop, akRight]
402AutoSize = False
403TabOrder = 2
404OnKeyDown = EditKeyDown
405OnKeyPress = FloatKeyPress
406OnKeyUp = EditLeftKeyUp
407end
408object EditTop: TEdit
409Left = 334
410Top = 287
411Width = 163
412Height = 40
413Hint = 'Enter top location'
414Margins.Left = 5
415Margins.Top = 5
416Margins.Right = 5
417Margins.Bottom = 5
418Anchors = [akTop, akRight]
419AutoSize = False
420TabOrder = 3
421OnKeyDown = EditKeyDown
422OnKeyPress = FloatKeyPress
423OnKeyUp = EditTopKeyUp
424end
425object EditLineHeight: TEdit
426Left = 168
427Top = 336
428Width = 75
429Height = 40
430Hint = 'Enter a line increment'
431Margins.Left = 5
432Margins.Top = 5
433Margins.Right = 5
434Margins.Bottom = 5
435Anchors = [akTop, akRight]
436AutoSize = False
437TabOrder = 4
438Text = '1'
439OnChange = LineHeightChange
440OnKeyDown = EditKeyDown
441OnKeyPress = IntKeyPress
442OnKeyUp = IntKeyUp
443end
444object UpDown1: TUpDown
445Left = 243
446Top = 336
447Width = 28
448Height = 40
449Cursor = crHandPoint
450Hint = 'Alter the line increment'
451Margins.Left = 5
452Margins.Top = 5
453Margins.Right = 5
454Margins.Bottom = 5
455Anchors = [akTop, akRight]
456Associate = EditLineHeight
457Min = 1
458Position = 1
459TabOrder = 5
460TabStop = True
461Thousands = False
462end
463object ColorPanel: TPanel
464Tag = 1
465Left = 453
466Top = 336
467Width = 42
468Height = 40
469Cursor = crHandPoint
470Hint = 'Select the text colour for a single line'
471Margins.Left = 5
472Margins.Top = 5
473Margins.Right = 5
474Margins.Bottom = 5
475Anchors = [akTop, akRight]
476Color = clWindowText
477ParentBackground = False
478TabOrder = 6
479OnClick = ColorPanelClick
480end
481object EditCaption: TEdit
482Left = 14
483Top = 236
484Width = 481
485Height = 36
486Hint = 'Edit the selected text block caption'
487Margins.Left = 5
488Margins.Top = 5
489Margins.Right = 5
490Margins.Bottom = 5
491Anchors = [akTop, akRight]
492MaxLength = 255
493TabOrder = 1
494OnKeyUp = EditCaptionKeyUp
495end
496object FontDialog: TFontDialog
497Font.Charset = DEFAULT_CHARSET
498Font.Color = clWindowText
499Font.Height = -11
500Font.Name = 'Tahoma'
501Font.Style = []
502Left = 327
503Top = 65
504end
505object ColorDialog: TColorDialog
506Options = [cdFullOpen]
507Left = 161
508Top = 70
509end
510end
511