-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathMainFunc.dfm
More file actions
executable file
·575 lines (575 loc) · 19.6 KB
/
Copy pathMainFunc.dfm
File metadata and controls
executable file
·575 lines (575 loc) · 19.6 KB
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
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
object Form1: TForm1
Left = 0
Top = 0
Width = 1025
Height = 735
AutoSize = True
Caption = #19977#32500#28436#31034#20043#30913#22330#30340#31354#38388#20998#24067
Color = clBtnFace
TransparentColorValue = clGreen
Constraints.MinWidth = 345
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020040000000000E80200001600000028000000200000004000
0000010004000000000000020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
000000000000000000000000000000077777777778F700000000000000000070
000700000078F800000000000000000000077700007707FF0000000000000000
0007770007777877F77700000000000000077770777888887F77770000000000
000787777778FFF877F77777000000000007F777778FFFF8707F777777000000
0007F877778FFFFF7007F777700000000007F877778FFFF870007F7770000000
0007FF77778FFFF870000087700004C0C000FF77778FFFF700000000000000CC
CC00FF77778FFF870000000000000000CC40FF877788F8770700000000000000
07C0FF87778887707700000000000000C4CC8F87778887007700000000000000
04877FF77777770770000000000000000C480FF7777770770000000000000000
408C48F77777077740000000000000000C444787777007740000000000000000
4CC447770000777C000000000000000004C447770007777C0000000000000000
0CCCC0777777777C00000000000000000C4C447787877C740000000000000000
00C4CC07788778400000000000000000044CCC40777C8C000000000000000000
00CCCCC404784C00000000000000000000CCC4CC4C7740000000000000000000
04CCCCCC7C7C000000000000000000000000C4CC77CC40000000000000000000
00004CC4CC400000000000000000000000004CC0C0000000000000000000FF07
FFFFE0007FFFC0001FFFC00003FFC000007FC0000003C0000001E0000001FE00
0003FE000007FE000007820000EF820000FFE10001FFF90001FFF00003FFF800
03FFF80007FFF00007FFF8000FFFF0000FFFF8000FFFF8000FFFF8000FFFF800
1FFFF8001FFFF8003FFFFC007FFFF800FFFFFF007FFFFF01FFFFFF03FFFF}
Menu = MainMenu
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel_Ctrl_Para: TPanel
Left = 0
Top = 0
Width = 189
Height = 681
Constraints.MaxWidth = 234
TabOrder = 0
object up: TImage
Left = 64
Top = 558
Width = 33
Height = 33
Cursor = crHandPoint
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000002000
0000200000000100040000000000000200000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00700000000000000000000000000000070888888888888888888888888888
88800F8888888888888888888888888888800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777700000000000000000077778800FF7777099999999999999990777
78800FF777770999999999999990777778800FF7777709999999999999907777
78800FF777777099999999999907777778800FF7777770999999999999077777
78800FF777777709999999999077777778800FF7777777099999999990777777
78800FF777777770999999990777777778800FF7777777709999999907777777
78800FF777777777099999907777777778800FF7777777770999999077777777
78800FF777777777709999077777777778800FF7777777777099990777777777
78800FF777777777770990777777777778800FF7777777777709907777777777
78800FF777777777777007777777777778800FF7777777777770077777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFF
F8800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF807000000000000000000000000000
0007}
OnMouseDown = upMouseDown
OnMouseUp = upMouseUp
end
object down: TImage
Left = 64
Top = 626
Width = 33
Height = 33
Cursor = crHandPoint
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000002000
0000200000000100040000000000000200000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00700000000000000000000000000000070888888888888888888888888888
88800F8888888888888888888888888888800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777007777777777778800FF7777777777770077777777777
78800FF777777777770990777777777778800FF7777777777709907777777777
78800FF777777777709999077777777778800FF7777777777099990777777777
78800FF777777777099999907777777778800FF7777777770999999077777777
78800FF777777770999999990777777778800FF7777777709999999907777777
78800FF777777709999999999077777778800FF7777777099999999990777777
78800FF777777099999999999907777778800FF7777770999999999999077777
78800FF777770999999999999990777778800FF7777709999999999999907777
78800FF777709999999999999999077778800FF7777000000000000000000777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFF
F8800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF807000000000000000000000000000
0007}
OnMouseDown = downMouseDown
OnMouseUp = downMouseUp
end
object left: TImage
Left = 30
Top = 592
Width = 33
Height = 33
Cursor = crHandPoint
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000002000
0000200000000100040000000000000200000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00700000000000000000000000000000070888888888888888888888888888
88800F8888888888888888888888888888800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777007777
78800FF777777777777777770090777778800FF7777777777777770099907777
78800FF777777777777700999990777778800FF7777777777700999999907777
78800FF777777777009999999990777778800FF7777777009999999999907777
78800FF777770099999999999990777778800FF7770099999999999999907777
78800FF777009999999999999990777778800FF7777700999999999999907777
78800FF777777700999999999990777778800FF7777777770099999999907777
78800FF777777777770099999990777778800FF7777777777777009999907777
78800FF777777777777777009990777778800FF7777777777777777700907777
78800FF777777777777777777700777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFF
F8800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF807000000000000000000000000000
0007}
OnMouseDown = leftMouseDown
OnMouseUp = leftMouseUp
end
object right: TImage
Left = 98
Top = 592
Width = 33
Height = 33
Cursor = crHandPoint
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000002000
0000200000000100040000000000000200000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00700000000000000000000000000000070888888888888888888888888888
88800F8888888888888888888888888888800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777700777777777777777777
78800FF777770900777777777777777778800FF7777709990077777777777777
78800FF777770999990077777777777778800FF7777709999999007777777777
78800FF777770999999999007777777778800FF7777709999999999900777777
78800FF777770999999999999900777778800FF7777709999999999999990077
78800FF777770999999999999999007778800FF7777709999999999999007777
78800FF777770999999999990077777778800FF7777709999999990077777777
78800FF777770999999900777777777778800FF7777709999900777777777777
78800FF777770999007777777777777778800FF7777709007777777777777777
78800FF777770077777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777777777
78800FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFF
F8800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF807000000000000000000000000000
0007}
OnMouseDown = rightMouseDown
OnMouseUp = rightMouseUp
end
object R_equal: TLabel
Left = 48
Top = 131
Width = 17
Height = 13
Caption = 'R ='
end
object mmR: TLabel
Left = 100
Top = 130
Width = 24
Height = 13
Caption = 'mmR'
end
object A_equal: TLabel
Left = 48
Top = 211
Width = 16
Height = 13
Caption = 'A ='
end
object mmA: TLabel
Left = 108
Top = 211
Width = 16
Height = 13
Caption = 'mm'
end
object I_equal: TLabel
Left = 32
Top = 275
Width = 15
Height = 13
Caption = 'I ='
end
object Anp: TLabel
Left = 120
Top = 275
Width = 7
Height = 13
Caption = 'A'
end
object Chinese_Ris: TLabel
Left = 16
Top = 112
Width = 135
Height = 13
Caption = #22278#24418#36733#27969#32447#22280#21322#24452#65306
Constraints.MaxWidth = 155
Constraints.MinWidth = 135
end
object Chinese_Ais: TLabel
Left = 16
Top = 192
Width = 145
Height = 13
Caption = #26041#24418#36733#27969#32447#22280#36793#38271#65306
Constraints.MaxWidth = 155
Constraints.MinWidth = 145
end
object Chinese_moveXYZ: TLabel
Left = 16
Top = 496
Width = 135
Height = 13
Caption = #31227#21160#22352#26631#21407#28857#20301#32622#65306
Constraints.MaxWidth = 155
Constraints.MinWidth = 135
end
object X_equal: TLabel
Left = 32
Top = 512
Width = 16
Height = 13
Caption = 'X ='
end
object Z_equal: TLabel
Left = 112
Top = 512
Width = 16
Height = 13
Caption = 'Z ='
end
object Y_equal: TLabel
Left = 72
Top = 512
Width = 16
Height = 13
Caption = 'Y ='
end
object Attention: TLabel
Left = 39
Top = 16
Width = 84
Height = 13
Caption = #35831#20808#26597#38405#24110#21161#65281
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComboBox_ChoiseCartoon: TComboBox
Left = 20
Top = 48
Width = 129
Height = 21
Cursor = crHandPoint
BiDiMode = bdLeftToRight
Ctl3D = True
DropDownCount = 2
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpFixed
Font.Style = []
ItemHeight = 13
ParentBiDiMode = False
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
Text = #36873#25321#21160#30011#31181#31867
OnChange = ComboBox_ChoiseCartoonChange
Items.Strings = (
#33258#21160#32469' z '#36724#26059#36716
#25163#21160#22810#33258#30001#24230#26059#36716)
end
object GroupBox1: TGroupBox
Left = 16
Top = 360
Width = 145
Height = 113
Caption = #36873#25321#28436#31034#31181#31867
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = #26032#23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object RadioButton1: TRadioButton
Left = 16
Top = 32
Width = 113
Height = 25
Caption = #22278#24418#36733#27969#32447#22280
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #26032#23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 16
Top = 72
Width = 113
Height = 25
Caption = #26041#24418#36733#27969#32447#22280
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #26032#23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RadioButton2Click
end
end
object ScrollBar_R: TScrollBar
Left = 20
Top = 152
Width = 129
Height = 17
Max = 34
PageSize = 0
Position = 17
TabOrder = 2
OnChange = ScrollBar_RChange
end
object Edit_R: TEdit
Left = 72
Top = 128
Width = 25
Height = 21
TabOrder = 3
Text = '17'
end
object ScrollBar_A: TScrollBar
Left = 20
Top = 232
Width = 129
Height = 17
Max = 20
PageSize = 0
Position = 10
TabOrder = 4
OnChange = ScrollBar_AChange
end
object Edit_A: TEdit
Left = 72
Top = 208
Width = 25
Height = 21
TabOrder = 5
Text = '10'
end
object ScrollBar_I: TScrollBar
Left = 20
Top = 304
Width = 129
Height = 17
LargeChange = 12500
Max = 500000
PageSize = 0
Position = 250000
SmallChange = 12500
TabOrder = 6
OnChange = ScrollBar_IChange
end
object Edit_I: TEdit
Left = 56
Top = 272
Width = 57
Height = 21
TabOrder = 7
Text = '3.00000'
end
object RePosition: TButton
Left = 64
Top = 592
Width = 33
Height = 33
Caption = #22797#20301
TabOrder = 8
OnMouseDown = RePositionMouseDown
end
object Edit_X_is: TEdit
Left = 24
Top = 528
Width = 33
Height = 21
TabOrder = 9
Text = '0.0'
end
object Edit_Y_is: TEdit
Left = 64
Top = 528
Width = 33
Height = 21
TabOrder = 10
Text = '0.0'
end
object Edit_Z_is: TEdit
Left = 104
Top = 528
Width = 33
Height = 21
TabOrder = 11
Text = '0.0'
end
end
object Panel_Ctrl_MM: TPanel
Left = 168
Top = 592
Width = 849
Height = 89
TabOrder = 1
object turnMAX: TImage
Left = 352
Top = 32
Width = 33
Height = 33
Cursor = crHandPoint
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000002000
0000200000000100040000000000000200000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00700000000000000000000000000000070888888888888888888888888888
88800F8888888888888888888888888888800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777770007
78800FF777777777777777777770440078800FF7777777777777777777044440
78800FF777777777777777777044440778800FF7777777777777777704444077
78800FF777777777777777704444077778800FF7777777000000070444407777
78800FF7777700FFFFFFF0044407777778800FF77770FFFFFFFFFFF040777777
78800FF7770FFFFF000FFFFF0777777778800FF770FFFFFF000FFFFFF0777777
78800FF770FFFFFF000FFFFFF077777778800FF70FFFFFFF000FFFFFFF077777
78800FF70FFF00000000000FFF07777778800FF70FFF00000000000FFF077777
78800FF70FFF00000000000FFF07777778800FF70FFFFFFF000FFFFFFF077777
78800FF770FFFFFF000FFFFFF077777778800FF770FFFFFF000FFFFFF0777777
78800FF7770FFFFF000FFFFF0777777778800FF77770FFFFFFFFFFF077777777
78800FF7777700FFFFFFF0077777777778800FF7777777000000077777777777
78800FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFF
F8800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF807000000000000000000000000000
0007}
OnMouseDown = turnMAXMouseDown
OnMouseUp = turnMAXMouseUp
end
object turnMIN: TImage
Left = 440
Top = 32
Width = 33
Height = 33
Cursor = crHandPoint
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000002000
0000200000000100040000000000000200000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00700000000000000000000000000000070888888888888888888888888888
88800F8888888888888888888888888888800FF7777777777777777777777777
78800FF777777777777777777777777778800FF7777777777777777777770007
78800FF777777777777777777770440078800FF7777777777777777777044440
78800FF777777777777777777044440778800FF7777777777777777704444077
78800FF777777777777777704444077778800FF7777777000000070444407777
78800FF7777700FFFFFFF0044407777778800FF77770FFFFFFFFFFF040777777
78800FF7770FFFFFFFFFFFFF0777777778800FF770FFFFFFFFFFFFFFF0777777
78800FF770FFFFFFFFFFFFFFF077777778800FF70FFFFFFFFFFFFFFFFF077777
78800FF70FFF00000000000FFF07777778800FF70FFF00000000000FFF077777
78800FF70FFF00000000000FFF07777778800FF70FFFFFFFFFFFFFFFFF077777
78800FF770FFFFFFFFFFFFFFF077777778800FF770FFFFFFFFFFFFFFF0777777
78800FF7770FFFFFFFFFFFFF0777777778800FF77770FFFFFFFFFFF077777777
78800FF7777700FFFFFFF0077777777778800FF7777777000000077777777777
78800FF777777777777777777777777778800FFFFFFFFFFFFFFFFFFFFFFFFFFF
F8800FFFFFFFFFFFFFFFFFFFFFFFFFFFFF807000000000000000000000000000
0007}
OnMouseDown = turnMINMouseDown
OnMouseUp = turnMINMouseUp
end
end
object OpenGL: TPanel
Left = 168
Top = 0
Width = 849
Height = 593
TabOrder = 2
object OpenGLAPPanel: TOpenGLAPPanel
Left = 0
Top = 0
Width = 849
Height = 593
Cursor = crHandPoint
Caption = 'My OpenGL Panel'
DragCursor = crHandPoint
TabOrder = 0
PFDFlags = [f_PFD_DRAW_TO_WINDOW, f_PFD_SUPPORT_OPENGL, f_PFD_DOUBLEBUFFER]
cAccBits = #0
Font3D_Type.Charset = ANSI_CHARSET
Font3D_Type.Color = clNavy
Font3D_Type.Height = -9
Font3D_Type.Name = 'Arial'
Font3D_Type.Style = []
Font3D_MaxDeviation = 1
Font3D_Extrustion = 0.100000001490116
Font2D_Type.Charset = ANSI_CHARSET
Font2D_Type.Color = clNavy
Font2D_Type.Height = -9
Font2D_Type.Name = 'Arial'
Font2D_Type.Style = []
OnMouseDown = OpenGLAPPanelMouseDown
OnMouseMove = OpenGLAPPanelMouseMove
OnMouseUp = OpenGLAPPanelMouseUp
OnInit = OpenGLAPPanelInit
OnResize = OpenGLAPPanelResize
OnPaint = OpenGLAPPanelPaint
end
end
object MainMenu: TMainMenu
Left = 968
Top = 568
object EXIT: TMenuItem
Caption = #36864#20986
OnClick = EXITClick
end
object HELP: TMenuItem
Caption = #24110#21161
object USE: TMenuItem
Caption = #20351#29992#35828#26126
OnClick = USEClick
end
object ABOUT: TMenuItem
Caption = #20851#20110'...'
OnClick = ABOUTClick
end
end
end
object Timer1: TTimer
Interval = 1
OnTimer = Timer1Timer
Left = 928
Top = 568
end
end