-
Notifications
You must be signed in to change notification settings - Fork 0
/
Unit_PW.dfm
521 lines (521 loc) · 14.8 KB
/
Unit_PW.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
object Form_PW: TForm_PW
Left = 0
Top = 0
Caption = 'Image'
ClientHeight = 624
ClientWidth = 767
Color = clBtnFace
Constraints.MinHeight = 200
Constraints.MinWidth = 500
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDefault
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 767
Height = 624
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Panel3: TPanel
Left = 2
Top = 2
Width = 763
Height = 98
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 763
Height = 98
Align = alClient
Caption = 'Drawing'
Color = 16510433
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
object Bevel2: TBevel
Left = 559
Top = 70
Width = 108
Height = 22
end
object Bevel1: TBevel
Left = 583
Top = 16
Width = 84
Height = 22
end
object Label7: TLabel
Left = 8
Top = 51
Width = 29
Height = 14
Caption = 'B&&C '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 179
Top = 51
Width = 30
Height = 14
Caption = 'Mag.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Shape1: TShape
Left = 339
Top = 35
Width = 133
Height = 40
Brush.Color = clMoneyGreen
end
object Label1: TLabel
Left = 485
Top = 72
Width = 72
Height = 16
Caption = 'Intensity : '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 563
Top = 74
Width = 100
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 485
Top = 20
Width = 64
Height = 16
Caption = 'Position : '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 591
Top = 19
Width = 72
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label_Size: TLabel
Left = 350
Top = 48
Width = 90
Height = 14
Alignment = taCenter
AutoSize = False
Caption = '157*103'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 254
Top = 51
Width = 48
Height = 14
Caption = 'Img No.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object SB_Copy: TSpeedButton
Left = 440
Top = 45
Width = 22
Height = 22
Hint = 'COPY ROI to Clipboard'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FFFFFFFFFFF
FFFF33333333333FFFFF3FFFFFFFFF00000F333333333377777F33FFFFFFFF09
990F33333333337F337F333FFFFFFF09990F33333333337F337F3333FFFFFF09
990F33333333337FFF7F33333FFFFF00000F3333333333777773333333FFFFFF
FFFF3333333333333F333333333FFFFF0FFF3333333333337FF333333333FFF0
00FF33333333333777FF333333333F00000F33FFFFF33777777F300000333000
0000377777F33777777730EEE033333000FF37F337F3333777F330EEE0333330
00FF37F337F3333777F330EEE033333000FF37FFF7F333F77733300000333000
03FF3777773337777333333333333333333F3333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SB_CopyClick
end
object Bevel3: TBevel
Left = 583
Top = 43
Width = 84
Height = 22
end
object Label6: TLabel
Left = 591
Top = 46
Width = 72
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 555
Top = 19
Width = 9
Height = 16
Caption = 'X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 555
Top = 46
Width = 9
Height = 16
Caption = 'Y'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Edit_PMin: TEdit
Left = 6
Top = 70
Width = 75
Height = 22
Alignment = taRightJustify
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Text = '0'
OnKeyPress = Edit_PMinKeyPress
OnKeyUp = Edit_PMaxKeyUp
end
object Edit_PMax: TEdit
Left = 91
Top = 70
Width = 75
Height = 22
Alignment = taRightJustify
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Text = '10000'
OnKeyPress = Edit_PMaxKeyPress
OnKeyUp = Edit_PMaxKeyUp
end
object CB_Mag: TComboBox
Left = 179
Top = 70
Width = 60
Height = 22
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Text = '50%'
OnChange = CB_MagChange
Items.Strings = (
'10%'
'25%'
'50%'
'100%')
end
object BB_ReDraw: TBitBtn
Left = 6
Top = 20
Width = 75
Height = 25
Caption = 'Redraw'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = BB_ReDrawClick
end
object Edit_Left: TEdit
Left = 324
Top = 20
Width = 40
Height = 22
BevelOuter = bvRaised
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumbersOnly = True
ParentFont = False
TabOrder = 5
Text = '350'
OnKeyUp = Edit_LeftKeyUp
end
object Edit_Top: TEdit
Left = 370
Top = 20
Width = 40
Height = 22
BevelOuter = bvRaised
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumbersOnly = True
ParentFont = False
TabOrder = 6
Text = '250'
OnKeyUp = Edit_LeftKeyUp
end
object Edit_Right: TEdit
Left = 379
Top = 66
Width = 40
Height = 22
BevelOuter = bvRaised
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumbersOnly = True
ParentFont = False
TabOrder = 7
Text = '700'
OnKeyUp = Edit_LeftKeyUp
end
object Edit_Bottom: TEdit
Left = 425
Top = 66
Width = 40
Height = 22
BevelOuter = bvRaised
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumbersOnly = True
ParentFont = False
TabOrder = 8
Text = '500'
OnKeyUp = Edit_LeftKeyUp
end
object BB_ImgCopy: TBitBtn
Left = 89
Top = 20
Width = 90
Height = 25
Caption = 'Copy Img'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
00337777FFFF77FF7733EEEE0000000003337777777777777333}
NumGlyphs = 2
ParentFont = False
TabOrder = 10
OnClick = BB_ImgCopyClick
end
object BB_Save: TBitBtn
Left = 185
Top = 20
Width = 90
Height = 25
Caption = 'Save Img'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333FFFFFFFFFFFFFFF000000000000000077777777777777770F7777777777
77707F3F3333333333370F988888888888707F733FFFFFFFF3370F8800000000
88707F337777777733370F888888888888707F333FFFFFFFF3370F8800000000
88707F337777777733370F888888888888707F333333333333370F8888888888
88707F333333333333370FFFFFFFFFFFFFF07FFFFFFFFFFFFFF7000000000000
0000777777777777777733333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
TabOrder = 11
OnClick = BB_SaveClick
end
object Edit_No: TEdit
Left = 254
Top = 70
Width = 53
Height = 22
NumbersOnly = True
TabOrder = 3
Text = '1'
end
object UD_Tpro: TUpDown
Left = 307
Top = 70
Width = 16
Height = 22
Associate = Edit_No
Max = 10000
Position = 1
TabOrder = 4
OnClick = UD_TproClick
end
object BC_Auto: TCheckBox
Left = 92
Top = 50
Width = 60
Height = 17
Caption = 'Auto'
TabOrder = 12
end
end
end
object ScrollBox1: TScrollBox
Left = 2
Top = 100
Width = 763
Height = 522
Align = alClient
TabOrder = 1
object Image1: TImage
Left = 0
Top = 0
Width = 2600
Height = 2200
OnMouseDown = Image1MouseDown
OnMouseMove = Image1MouseMove
end
object SS: TSelShape
Left = 48
Top = 32
Width = 65
Height = 65
Brush.Style = bsClear
Pen.Color = clRed
Pen.Width = 2
OnMouseMove = SSMouseMove
SizeSense = 5
MinWidth = 5
MinHeight = 5
MinTop = 0
MinLeft = 0
MaxBottom = 0
MaxRight = 0
SelOption = [ResizeX, ResizeY, MoveX, MoveY]
end
end
end
object SaveDialog1: TSaveDialog
Filter = 'WORD Data|| Double Data||Bitmap Img'
Left = 138
Top = 127
end
end