MathgeomGLS

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