MathgeomGLS

1
object FormPlotColors: TFormPlotColors
2
  Left = 0
3
  Top = 0
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  BorderIcons = [biSystemMenu]
9
  BorderStyle = bsDialog
10
  Caption = 'Plot Colours'
11
  ClientHeight = 620
12
  ClientWidth = 483
13
  Color = clBtnFace
14
  Font.Charset = DEFAULT_CHARSET
15
  Font.Color = clWindowText
16
  Font.Height = -19
17
  Font.Name = 'Tahoma'
18
  Font.Style = []
19
  FormStyle = fsStayOnTop
20
  KeyPreview = True
21
  Position = poDesigned
22
  OnCloseQuery = FormCloseQuery
23
  OnKeyDown = FormKeyDown
24
  OnShow = FormShow
25
  PixelsPerInch = 168
26
  TextHeight = 23
27
  object Label9: TLabel
28
    Left = 25
29
    Top = 492
30
    Width = 108
31
    Height = 23
32
    Margins.Left = 5
33
    Margins.Top = 5
34
    Margins.Right = 5
35
    Margins.Bottom = 5
36
    Caption = 'Blend factor:'
37
  end
38
  object Label10: TLabel
39
    Left = 245
40
    Top = 492
41
    Width = 105
42
    Height = 23
43
    Margins.Left = 5
44
    Margins.Top = 5
45
    Margins.Right = 5
46
    Margins.Bottom = 5
47
    Caption = 'Move factor:'
48
  end
49
  object GroupBox1: TGroupBox
50
    Left = 14
51
    Top = 11
52
    Width = 436
53
    Height = 210
54
    Margins.Left = 5
55
    Margins.Top = 5
56
    Margins.Right = 5
57
    Margins.Bottom = 5
58
    Caption = '  Upper Plot Color  '
59
    Font.Charset = ANSI_CHARSET
60
    Font.Color = clWindowText
61
    Font.Height = -23
62
    Font.Name = 'Tahoma'
63
    Font.Style = []
64
    ParentFont = False
65
    TabOrder = 0
66
    object Label1: TLabel
67
      Left = 30
68
      Top = 39
69
      Width = 51
70
      Height = 24
71
      Margins.Left = 5
72
      Margins.Top = 5
73
      Margins.Right = 5
74
      Margins.Bottom = 5
75
      Alignment = taRightJustify
76
      Caption = 'Red :'
77
      Font.Charset = DEFAULT_CHARSET
78
      Font.Color = clRed
79
      Font.Height = -19
80
      Font.Name = 'MS Sans Serif'
81
      Font.Style = [fsBold]
82
      ParentFont = False
83
    end
84
    object Label2: TLabel
85
      Left = 12
86
      Top = 77
87
      Width = 69
88
      Height = 23
89
      Margins.Left = 5
90
      Margins.Top = 5
91
      Margins.Right = 5
92
      Margins.Bottom = 5
93
      Alignment = taRightJustify
94
      Caption = 'Green :'
95
      Font.Charset = ANSI_CHARSET
96
      Font.Color = clGreen
97
      Font.Height = -19
98
      Font.Name = 'Tahoma'
99
      Font.Style = [fsBold]
100
      ParentFont = False
101
    end
102
    object Label3: TLabel
103
      Left = 26
104
      Top = 116
105
      Width = 55
106
      Height = 23
107
      Margins.Left = 5
108
      Margins.Top = 5
109
      Margins.Right = 5
110
      Margins.Bottom = 5
111
      Alignment = taRightJustify
112
      Caption = 'Blue :'
113
      Font.Charset = ANSI_CHARSET
114
      Font.Color = clBlue
115
      Font.Height = -19
116
      Font.Name = 'Tahoma'
117
      Font.Style = [fsBold]
118
      ParentFont = False
119
    end
120
    object Label4: TLabel
121
      Left = 9
122
      Top = 154
123
      Width = 72
124
      Height = 28
125
      Margins.Left = 5
126
      Margins.Top = 5
127
      Margins.Right = 5
128
      Margins.Bottom = 5
129
      Alignment = taRightJustify
130
      Caption = 'Alpha :'
131
    end
132
    object UpperRed: TTrackBar
133
      Left = 79
134
      Top = 32
135
      Width = 355
136
      Height = 52
137
      Cursor = crHandPoint
138
      Margins.Left = 5
139
      Margins.Top = 5
140
      Margins.Right = 5
141
      Margins.Bottom = 5
142
      Ctl3D = False
143
      Max = 255
144
      ParentCtl3D = False
145
      PageSize = 8
146
      Position = 128
147
      TabOrder = 0
148
      ThumbLength = 26
149
      TickMarks = tmTopLeft
150
      TickStyle = tsNone
151
      OnChange = UpperRedChange
152
    end
153
    object UpperGreen: TTrackBar
154
      Left = 79
155
      Top = 72
156
      Width = 355
157
      Height = 52
158
      Cursor = crHandPoint
159
      Margins.Left = 5
160
      Margins.Top = 5
161
      Margins.Right = 5
162
      Margins.Bottom = 5
163
      Ctl3D = False
164
      Max = 255
165
      ParentCtl3D = False
166
      PageSize = 8
167
      Position = 128
168
      TabOrder = 1
169
      ThumbLength = 26
170
      TickMarks = tmTopLeft
171
      TickStyle = tsNone
172
      OnChange = UpperGreenChange
173
    end
174
    object UpperBlue: TTrackBar
175
      Left = 79
176
      Top = 114
177
      Width = 355
178
      Height = 52
179
      Cursor = crHandPoint
180
      Margins.Left = 5
181
      Margins.Top = 5
182
      Margins.Right = 5
183
      Margins.Bottom = 5
184
      Ctl3D = False
185
      Max = 255
186
      ParentCtl3D = False
187
      PageSize = 8
188
      Position = 128
189
      TabOrder = 2
190
      ThumbLength = 26
191
      TickMarks = tmTopLeft
192
      TickStyle = tsNone
193
      OnChange = UpperBlueChange
194
    end
195
    object UpperAlpha: TTrackBar
196
      Left = 79
197
      Top = 152
198
      Width = 355
199
      Height = 53
200
      Cursor = crHandPoint
201
      Margins.Left = 5
202
      Margins.Top = 5
203
      Margins.Right = 5
204
      Margins.Bottom = 5
205
      Ctl3D = False
206
      Max = 1000
207
      ParentCtl3D = False
208
      PageSize = 8
209
      Position = 1000
210
      TabOrder = 3
211
      ThumbLength = 26
212
      TickMarks = tmTopLeft
213
      TickStyle = tsNone
214
      OnChange = UpperAlphaChange
215
    end
216
  end
217
  object GroupBox2: TGroupBox
218
    Left = 14
219
    Top = 226
220
    Width = 436
221
    Height = 210
222
    Margins.Left = 5
223
    Margins.Top = 5
224
    Margins.Right = 5
225
    Margins.Bottom = 5
226
    Caption = '  Lower Plot Color  '
227
    Font.Charset = ANSI_CHARSET
228
    Font.Color = clWindowText
229
    Font.Height = -23
230
    Font.Name = 'Tahoma'
231
    Font.Style = []
232
    ParentFont = False
233
    TabOrder = 1
234
    object Label5: TLabel
235
      Left = 30
236
      Top = 39
237
      Width = 51
238
      Height = 24
239
      Margins.Left = 5
240
      Margins.Top = 5
241
      Margins.Right = 5
242
      Margins.Bottom = 5
243
      Alignment = taRightJustify
244
      Caption = 'Red :'
245
      Font.Charset = DEFAULT_CHARSET
246
      Font.Color = clRed
247
      Font.Height = -19
248
      Font.Name = 'MS Sans Serif'
249
      Font.Style = [fsBold]
250
      ParentFont = False
251
    end
252
    object Label6: TLabel
253
      Left = 12
254
      Top = 77
255
      Width = 69
256
      Height = 23
257
      Margins.Left = 5
258
      Margins.Top = 5
259
      Margins.Right = 5
260
      Margins.Bottom = 5
261
      Alignment = taRightJustify
262
      Caption = 'Green :'
263
      Font.Charset = ANSI_CHARSET
264
      Font.Color = clGreen
265
      Font.Height = -19
266
      Font.Name = 'Tahoma'
267
      Font.Style = [fsBold]
268
      ParentFont = False
269
    end
270
    object Label7: TLabel
271
      Left = 26
272
      Top = 116
273
      Width = 55
274
      Height = 23
275
      Margins.Left = 5
276
      Margins.Top = 5
277
      Margins.Right = 5
278
      Margins.Bottom = 5
279
      Alignment = taRightJustify
280
      Caption = 'Blue :'
281
      Font.Charset = ANSI_CHARSET
282
      Font.Color = clBlue
283
      Font.Height = -19
284
      Font.Name = 'Tahoma'
285
      Font.Style = [fsBold]
286
      ParentFont = False
287
    end
288
    object Label8: TLabel
289
      Left = 9
290
      Top = 154
291
      Width = 72
292
      Height = 28
293
      Margins.Left = 5
294
      Margins.Top = 5
295
      Margins.Right = 5
296
      Margins.Bottom = 5
297
      Alignment = taRightJustify
298
      Caption = 'Alpha :'
299
    end
300
    object LowerRed: TTrackBar
301
      Left = 79
302
      Top = 32
303
      Width = 355
304
      Height = 52
305
      Cursor = crHandPoint
306
      Margins.Left = 5
307
      Margins.Top = 5
308
      Margins.Right = 5
309
      Margins.Bottom = 5
310
      Ctl3D = False
311
      Max = 255
312
      ParentCtl3D = False
313
      PageSize = 8
314
      Position = 128
315
      TabOrder = 0
316
      ThumbLength = 26
317
      TickMarks = tmTopLeft
318
      TickStyle = tsNone
319
      OnChange = LowerRedChange
320
    end
321
    object LowerGreen: TTrackBar
322
      Left = 79
323
      Top = 72
324
      Width = 355
325
      Height = 52
326
      Cursor = crHandPoint
327
      Margins.Left = 5
328
      Margins.Top = 5
329
      Margins.Right = 5
330
      Margins.Bottom = 5
331
      Ctl3D = False
332
      Max = 255
333
      ParentCtl3D = False
334
      PageSize = 8
335
      Position = 128
336
      TabOrder = 1
337
      ThumbLength = 26
338
      TickMarks = tmTopLeft
339
      TickStyle = tsNone
340
      OnChange = LowerGreenChange
341
    end
342
    object LowerBlue: TTrackBar
343
      Left = 79
344
      Top = 114
345
      Width = 355
346
      Height = 52
347
      Cursor = crHandPoint
348
      Margins.Left = 5
349
      Margins.Top = 5
350
      Margins.Right = 5
351
      Margins.Bottom = 5
352
      Ctl3D = False
353
      Max = 255
354
      ParentCtl3D = False
355
      PageSize = 8
356
      Position = 128
357
      TabOrder = 2
358
      ThumbLength = 26
359
      TickMarks = tmTopLeft
360
      TickStyle = tsNone
361
      OnChange = LowerBlueChange
362
    end
363
    object LowerAlpha: TTrackBar
364
      Left = 79
365
      Top = 152
366
      Width = 355
367
      Height = 53
368
      Cursor = crHandPoint
369
      Margins.Left = 5
370
      Margins.Top = 5
371
      Margins.Right = 5
372
      Margins.Bottom = 5
373
      Ctl3D = False
374
      Max = 1000
375
      ParentCtl3D = False
376
      PageSize = 8
377
      Position = 1000
378
      TabOrder = 3
379
      ThumbLength = 26
380
      TickMarks = tmTopLeft
381
      TickStyle = tsNone
382
      OnChange = LowerAlphaChange
383
    end
384
  end
385
  object UpperLowerLock: TCheckBox
386
    Left = 53
387
    Top = 445
388
    Width = 358
389
    Height = 29
390
    Margins.Left = 5
391
    Margins.Top = 5
392
    Margins.Right = 5
393
    Margins.Bottom = 5
394
    Caption = 'Lock Lower Color to Upper Color'
395
    Font.Charset = ANSI_CHARSET
396
    Font.Color = clMaroon
397
    Font.Height = -19
398
    Font.Name = 'Tahoma'
399
    Font.Style = [fsBold]
400
    ParentFont = False
401
    TabOrder = 2
402
    OnClick = UpperLowerLockClick
403
  end
404
  object EditBlend: TEdit
405
    Left = 140
406
    Top = 487
407
    Width = 88
408
    Height = 31
409
    Margins.Left = 5
410
    Margins.Top = 5
411
    Margins.Right = 5
412
    Margins.Bottom = 5
413
    TabOrder = 3
414
    OnKeyDown = EditBlendKeyDown
415
    OnKeyPress = EditBlendKeyPress
416
    OnKeyUp = EditBlendKeyUp
417
  end
418
  object EditMove: TEdit
419
    Left = 361
420
    Top = 487
421
    Width = 87
422
    Height = 31
423
    Margins.Left = 5
424
    Margins.Top = 5
425
    Margins.Right = 5
426
    Margins.Bottom = 5
427
    TabOrder = 4
428
    OnKeyDown = EditBlendKeyDown
429
    OnKeyPress = EditMoveKeyPress
430
    OnKeyUp = EditMoveKeyUp
431
  end
432
  object ApplyBtn: TBitBtn
433
    Left = 14
434
    Top = 541
435
    Width = 210
436
    Height = 52
437
    Cursor = crHandPoint
438
    Hint = 'Update any changes made'
439
    Margins.Left = 5
440
    Margins.Top = 5
441
    Margins.Right = 5
442
    Margins.Bottom = 5
443
    Caption = 'Apply'
444
    Default = True
445
    Glyph.Data = {
446
      36030000424D3603000000000000360000002800000010000000100000000100
447
      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
448
      FF00FFFF00FFFF00FF936035936035936035936035936035936035FF00FFFF00
449
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF936035936035C6923DE3B445F7
450
      CE4AF7CF4BE3BB47C79940936035936035FF00FFFF00FFFF00FFFF00FFFF00FF
451
      936035B57A36DD9838F0AD38F3B538F5BC3BF6BE3CF5BB3BF3B63BE1A33DB87F
452
      38936035FF00FFFF00FFFF00FF936035B27233DC872FE4922DDCA457D7BC8FD7
453
      C097D8C096D8C199D5B582E69E38E09233B47634936035FF00FFFF00FF936035
454
      CD6F28DA7B25D2A374F9FDFEF9FDFEF9FDFEF9FDFEF9FDFEF9FDFEDF8E32E08A
455
      2FD0782C936035FF00FF936035B4652BD3661FD27A37F9FDFED5B69ADA8229DE
456
      892DDF8A2FD9852DDC8227DD832DDA7B2AD67226B5682C936035936035C05A21
457
      CE5A17D07D47F9FDFED18C57DA711CDB7B29DC7822F9FDFED2905BD76D1CD56E
458
      25D26722C25E24936035936035C64C18CA5015CB6A36F9FDFED8AD91CD5F16D0
459
      641BCF5E0FF9FDFEF9FDFECD7F4CCF5A15CD5B1EC7521B936035936035C24212
460
      C54613C5480FD5A38CF5FCFFF9FDFEF9FDFEF9FDFEF9FDFEF9FDFEF9FDFECB70
461
      43C84B12C34917936035936035C15F39C9552DC95124C54918D08464E4BDAEE7
462
      C8BCE6C5B8F9FDFEF9FDFEF9FDFEC7663FC33E0CB84618936035936035B5704B
463
      D3765CD4785BD47555D06842CD6239CC5E33C74D1DF9FDFEF7F5F4CA7252C23D
464
      0FC24119AD5428936035FF00FF936035CD7C64D6816AD7836AD8846BD8856BD8
465
      846AD77F63F9FDFED59B89D27154D4775CC86F55936035FF00FFFF00FF936035
466
      B17855D88B7ADA8E7BDA8E7BDA8E7ADA8D79DB8C78D58974D78570D98974D483
467
      70B07450936035FF00FFFF00FFFF00FF936035B37F5DD79886E09E90E09E8FDF
468
      9D8EDF9C8CDF9A8ADE9888D38F7DB27B59936035FF00FFFF00FFFF00FFFF00FF
469
      FF00FF936035936035BE8E71D6A28FE4AEA1E4ADA0D5A08CBE8B6E9360359360
470
      35FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF93603593603593
471
      6035936035936035936035FF00FFFF00FFFF00FFFF00FFFF00FF}
472
    TabOrder = 5
473
    Visible = False
474
    OnClick = ApplyBtnClick
475
  end
476
  object BitBtn1: TBitBtn
477
    Left = 240
478
    Top = 541
479
    Width = 210
480
    Height = 52
481
    Margins.Left = 5
482
    Margins.Top = 5
483
    Margins.Right = 5
484
    Margins.Bottom = 5
485
    Caption = '&Close'
486
    Glyph.Data = {
487
      F6000000424DF600000000000000760000002800000010000000100000000100
488
      040000000000800000000000000000000000100000001000000000000000FFFF
489
      000000008400FF00FF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
490
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00330000000000
491
      0333330244444444033333022444444403333302224444440333330222044444
492
      0333330222044444033333022204444403333302220444440333330222044444
493
      0333330222044444033333022240444403333302220444440333330222044444
494
      0333330212044444033333021104444403333300000000000333}
495
    TabOrder = 6
496
    OnClick = BitBtn1Click
497
  end
498
end
499