home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip Hitware 6 A
/
CHIP_HITWARE6_A.iso
/
tools
/
Gcode
/
_SETUP.1
/
gcode95.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
Wrap
Text File
|
1999-02-02
|
35KB
|
1,024 lines
object Form1: TForm1
Left = 162
Top = 60
AutoScroll = False
Caption = 'Gcode [Untitled]'
ClientHeight = 335
ClientWidth = 310
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'System'
Font.Style = [fsBold]
Menu = MainMenu1
ShowHint = True
OnActivate = FormActivate
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 310
Height = 61
Align = alTop
Alignment = taRightJustify
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 160
Top = 41
Width = 91
Height = 15
Caption = 'The present ini file'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 5
Top = 24
Width = 118
Height = 15
Caption = 'Path '
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
Visible = False
end
object SpeedButton1: TSpeedButton
Left = 0
Top = 0
Width = 25
Height = 25
Hint = 'Open'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
555555555555555555555555555555555555555FFFFFFFFFF555550000000000
55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
55555575FFF75555555555700007555555555557777555555555555555555555
5555555555555555555555555555555555555555555555555555}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = FileOpenClick
end
object SpeedButton5: TSpeedButton
Left = 24
Top = 0
Width = 25
Height = 25
Hint = 'Save'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Save1Click
end
object SpeedButton2: TSpeedButton
Left = 48
Top = 0
Width = 25
Height = 25
Hint = 'Save As'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SaveAs1Click
end
object SpeedButton3: TSpeedButton
Left = 72
Top = 0
Width = 25
Height = 25
Hint = 'Print Text'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Print1Click
end
object SpeedButton7: TSpeedButton
Left = 96
Top = 0
Width = 25
Height = 25
Hint = 'Print Plot'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000CE0E0000C40E00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003300000000000000308888888888888800888888888888880088888888888
88800888888888888880000000000000000000000000000000000F8F8F8F8F8F
8F800F8383838383838008F8F8F8F8F858F00838383838385830000000000000
000000000000000000003306FFFFFFFFF0333306777777777033330F6F55555F
F03333076355555F7033330FF6FFFF65F0333307F67773657033330F5F6FFF6F
50333307536F3F6F5033330F5F66666F50333307576666675033330FF5FFFFF5
F0333307F5F37F353033330FFF55555FF0333307F75555533033330FFFFFFFFF
F0333307FFFF7733303333000000000000333300000000000033}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = PrintPlot1Click
end
object SpeedButton8: TSpeedButton
Left = 120
Top = 0
Width = 25
Height = 25
Hint = 'Cut'
Glyph.Data = {
96090000424D9609000000000000360000002800000028000000140000000100
1800000000006009000000000000000000000000000000000000007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFF
FFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFF
FFFFFFFF007F7F007F7F007F7F007F7F007F7F7F7F7F7F00007F00007F7F7F00
7F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F00007F00007F7F7F007F7F
007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFFFFFF
FF007F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFFFFFFFF00
7F7F007F7F007F7F7F7F7F7F0000007F7F007F7F7F00007F7F7F007F7F007F7F
007F7F007F7F7F7F7F7F0000007F7F007F7F7F00007F7F7F007F7F007F7F007F
7F007F7F7F7F7F7F7F7FFFFFFF007F7F7F7F7F7F7F7FFFFFFF007F7F007F7F00
7F7F7F7F7F7F7F7F007F7F007F7F7F7F7F7F7F7FFFFFFF007F7F007F7F007F7F
7F7F7F7F0000007F7F007F7F007F7F7F0000007F7F007F7F007F7F007F7F7F00
00007F7F007F7F007F7F7F00007F7F7F007F7F007F7F007F7F007F7F7F7F7F7F
7F7FFFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFFFF
007F7F007F7F7F7F7F7F7F7FFFFFFF007F7F007F7F007F7F7F7F7F7F0000007F
7F007F7F007F7F7F0000007F7F007F7F007F7F007F7F7F0000007F7F007F7F00
7F7F7F00007F7F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7FFFFFFFFFFFFF
007F7F7F7F7FFFFFFFFFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F
7F7F7F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F0000007F7F007F7F7F
00007F7F7F007F7F007F7F7F7F7F7F0000007F7F007F7F7F00007F7F7F007F7F
007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7FFFFFFFFFFFFF7F7F7F7F7F
7FFFFFFFFFFFFF7F7F7F7F7F7FFFFFFFFFFFFF7F7F7F7F7F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F7F7F7F7F00007F00007F00007F00007F7F7F
7F7F7F7F00007F00007F00007F00007F7F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7F7F7F7F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F7F00007F00007F00007F00007F00007F00007F00
007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F7F00007F7F00FFFFFFFFFFFF7F7F007F0000007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F7F7F7F7F7F7F007F7FFFFFFF7F7F7F7F7F7FFFFFFF007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
0000FFFFFF000000000000FFFFFF000000007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F007F
7F7F7F7F7F7F7F007F7F7F7F7F007F7FFFFFFF007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFF
FFFFFF000000FFFFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F7F7F7F007F7F007F7F007F7FFFFFFF7F
7F7F007F7F7F7F7F007F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFF
FFFFFFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F7F7F7F007F7F007F7F007F7F7F7F7F7F7F7F007F7FFFFFFF007F7F
7F7F7F007F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F0000
00FFFFFFFFFFFFFFFFFF000000007F7F007F7F000000FFFFFFFFFFFFFFFFFF00
0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F007F7F
007F7F007F7F7F7F7F007F7F007F7F7F7F7F007F7FFFFFFF007F7F7F7F7F007F
7FFFFFFF007F7F007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFF00
0000007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7F007F7F7F7F7F007F7F007F7F007F7F7F7F7F007F
7F007F7F007F7F007F7F7F7F7F007F7FFFFFFF007F7F7F7F7F007F7FFFFFFF00
7F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFF000000007F7F007F7F007F7F
007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFF000000007F7F007F7F007F
7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F7F007F7F007F7F007F7F007F7F00
7F7F007F7F7F7F7F007F7FFFFFFF007F7F7F7F7FFFFFFF007F7F007F7F007F7F
000000FFFFFFFFFFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F000000FFFFFFFFFFFF000000007F7F007F7F007F7F007F7F7F7F7FFF
FFFF007F7F7F7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
7F7F7F007F7FFFFFFF7F7F7FFFFFFF007F7F007F7F007F7F000000FFFFFF0000
00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
0000FFFFFF000000007F7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F007F
7F7F7F7FFFFFFF007F7F007F7F007F7F000000000000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000000000
007F7F007F7F007F7F007F7F7F7F7F7F7F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Cut1Click
end
object SpeedButton9: TSpeedButton
Left = 144
Top = 0
Width = 25
Height = 25
Hint = 'Copy'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = N2Click
end
object SpeedButton10: TSpeedButton
Left = 168
Top = 0
Width = 25
Height = 25
Hint = 'Paste'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Paste1Click
end
object SpeedButton11: TSpeedButton
Left = 192
Top = 0
Width = 25
Height = 25
Hint = 'Delete'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Delete1Click
end
object SpeedButton12: TSpeedButton
Left = 216
Top = 0
Width = 25
Height = 25
Hint = 'Compress'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000CE0E0000C40E00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF3344444444444443337777777777777F334FFF000000F
843337777777777777F334488888888844333777F373733777333334FFFFF0F4
33333337F3373337F3333334F000FFF4333333373F33F3373333333348888843
3333333373F73F73333333333480843333333333373F77333333333333444333
3333333333777FF3333333333488843333333333377777FF3333333348888843
333333337737777FF3333334F0F00FF433333337F3737F77F333333488888884
333333F7F3337777FFF3344F0000F0FF44333777FFFFFFF777F3348888888888
843337777777777777F334444444444444333777777777777733}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Compress1Click
end
object SpeedButton13: TSpeedButton
Left = 240
Top = 0
Width = 25
Height = 25
Hint = 'Find'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Find1Click
end
object SpeedButton6: TSpeedButton
Left = 264
Top = 0
Width = 25
Height = 25
Hint = ' Use new INI '
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300333
33333333333773FF333333333330F0033333333333373773FF333333330FFFF0
03333333337F333773FF3333330FFFFFF003333333733FF33773333330FF00FF
FF80333337F3773F3337333330FFFF0FFFF03FFFF7FFF3733F3700000000FFFF
0FF0777777773FF373370000000000FFFFF07FFFFFF377FFF3370CCCCC000000
FF037777773337773F7300CCC000003300307F77733337F37737000C00000033
33307F373333F7F333370000007B703333307FFFF337F7F33337099900BBB033
33307777F37777FF33370999007B700333037777F3373773FF73099900000030
00337777FFFFF7F7773300000000003333337777777777333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = UseNewINI1Click
end
object SpeedButton4: TSpeedButton
Left = 288
Top = 0
Width = 25
Height = 25
Hint = 'Undo'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000CE0E0000C40E00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333399333339
9333333399333339933333339933333993333333993333399333333999933339
9333333399333399993333399993333993333333993333999933333999933339
9333333399333399993333999999333993333333993339999993399999999339
9333333399339999999933339933333993333333993333399333333399333339
9333333399333339933333339993339993333333999333999333333399999999
9333333399999999933333333999999933333333399999993333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Undo1Click
end
object Gauge1: TGauge
Left = 0
Top = 25
Width = 313
Height = 15
Color = clRed
ForeColor = clGreen
BackColor = clNone
MaxValue = 1000
ParentColor = False
Progress = 1
Visible = False
end
object Panel2: TPanel
Left = 192
Top = 24
Width = 121
Height = 17
Caption = 'Pos [ ] Sel [ ]'
TabOrder = 2
end
object AutoplotBox: TCheckBox
Left = 8
Top = 43
Width = 78
Height = 14
Hint = 'Edit changes are immediatly plotted'
Caption = ' Auto Plot'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ScandirBox1: TCheckBox
Left = 88
Top = 41
Width = 65
Height = 17
Hint = 'Start to look for a new DXF file in the current directory'
Caption = ' Scan Dir'
Color = clBtnFace
Ctl3D = True
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = ScandirBox1Click
OnMouseUp = ScandirBox1MouseUp
end
end
object Memo4: TMemo
Left = 0
Top = 61
Width = 185
Height = 274
Align = alLeft
Font.Color = clBlack
Font.Height = -11
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
end
object RichEdit1: TRichEdit
Left = 185
Top = 61
Width = 125
Height = 274
Align = alClient
Font.Color = clBlack
Font.Height = -12
Font.Name = 'System'
Font.Style = [fsBold]
HideSelection = False
HideScrollBars = False
ParentFont = False
PlainText = True
PopupMenu = PopupMenu2
ScrollBars = ssBoth
TabOrder = 2
WordWrap = False
OnChange = RichEdit1Change
OnKeyUp = RichEdit1KeyUp
OnMouseDown = RichEdit1MouseDown
end
object FileListBox1: TFileListBox
Left = 7
Top = 145
Width = 83
Height = 18
ItemHeight = 16
Mask = '*.dxf'
TabOrder = 3
Visible = False
end
object MainMenu1: TMainMenu
Left = 84
Top = 69
object File1: TMenuItem
Caption = '&File'
Hint = 'File related items'
ShortCut = 0
object New1: TMenuItem
Caption = '&New'
ShortCut = 16462
OnClick = New1Click
end
object Open1: TMenuItem
Caption = '&Open ...'
ShortCut = 115
OnClick = FileOpenClick
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 113
OnClick = Save1Click
end
object SaveAs1: TMenuItem
Caption = 'Save &As ...'
ShortCut = 16497
OnClick = SaveAs1Click
end
object SaveasDXF1: TMenuItem
Caption = 'Save As DXF'
ShortCut = 16498
OnClick = SaveasDXF1Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object Print1: TMenuItem
Caption = '&Print Text'
ShortCut = 16464
OnClick = Print1Click
end
object PrintIcon1: TMenuItem
Caption = 'Print &Window'
ShortCut = 16471
OnClick = PrintIcon1Click
end
object PrintPlot1: TMenuItem
Caption = 'Print P&lot'
ShortCut = 16460
OnClick = PrintPlot1Click
end
object PrintSetup1: TMenuItem
Caption = 'Print S&etup'
ShortCut = 16453
OnClick = PrintSetup1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = FileExitClick
end
end
object Edit1: TMenuItem
Caption = '&Edit'
ShortCut = 0
object Undo1: TMenuItem
Caption = '&Undo'
ShortCut = 16469
OnClick = Undo1Click
end
object N6: TMenuItem
Caption = '-'
ShortCut = 0
end
object Cut1: TMenuItem
Caption = 'Cu&t'
ShortCut = 16472
OnClick = Cut1Click
end
object N2: TMenuItem
Caption = '&Copy'
ShortCut = 16451
OnClick = N2Click
end
object Paste1: TMenuItem
Caption = '&Paste'
ShortCut = 16470
OnClick = Paste1Click
end
object Delete1: TMenuItem
Caption = '&Delete'
ShortCut = 16430
OnClick = Delete1Click
end
object N16: TMenuItem
Caption = '-'
ShortCut = 0
end
object swap1: TMenuItem
Caption = '&Swap'
ShortCut = 16467
OnClick = swap1Click
end
object Compress1: TMenuItem
Caption = 'Compress'
ShortCut = 49219
OnClick = Compress1Click
end
object N17: TMenuItem
Caption = '-'
ShortCut = 0
end
object AddLineNumbers1: TMenuItem
Caption = '&Add Line Numbers'
ShortCut = 49230
OnClick = AddLineNumbers1Click
end
object RemoveLineNumbers1: TMenuItem
Caption = '&Remove Line Numbers'
ShortCut = 49234
OnClick = RemoveLineNumbers1Click
end
object N9: TMenuItem
Caption = '-'
ShortCut = 0
end
object ConverttoIncremental1: TMenuItem
Caption = 'Convert to Incremental G91'
ShortCut = 0
OnClick = ConverttoIncremental1Click
end
object ConverttoAbsolute1: TMenuItem
Caption = 'Convert to Absolute G90'
ShortCut = 0
OnClick = ConverttoAbsolute1Click
end
object N10: TMenuItem
Caption = '-'
ShortCut = 0
end
object InchtoMetric1: TMenuItem
Caption = 'Inch to Metric'
ShortCut = 0
OnClick = InchtoMetric1Click
end
object MetrictoInch1: TMenuItem
Caption = 'Metric to Inch'
ShortCut = 0
OnClick = MetrictoInch1Click
end
end
object Misc1: TMenuItem
Caption = '&Misc'
ShortCut = 0
object MovestartingpointForward1: TMenuItem
Caption = 'Move starting point Forward on highlighted code'
ShortCut = 0
OnClick = MovestartingpointForward1Click
end
object N22: TMenuItem
Caption = '-'
ShortCut = 0
end
object AddSemicolons1: TMenuItem
Caption = 'Add Semicolons to line end'
ShortCut = 0
OnClick = AddSemiColons1Click
end
object RemoveSemicolons1: TMenuItem
Caption = 'Remove Semicolons from line end'
ShortCut = 0
OnClick = RemoveSemicolons1Click
end
object N24: TMenuItem
Caption = '-'
ShortCut = 0
end
object Packthefileremoveallspaces1: TMenuItem
Caption = 'Pack the file remove all spaces'
ShortCut = 0
OnClick = Packthefileremoveallspaces1Click
end
object RemoveComments1: TMenuItem
Caption = 'Remove Comments enclosed by labels (71-72)'
Hint = 'See Labels and Translate Table Lines 71 - 72'
ShortCut = 0
OnClick = RemoveComments1Click
end
object N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object SortSmallesttopLargestBottom1: TMenuItem
Caption = 'Sort Objects Acending'
ShortCut = 16449
OnClick = SortSmallesttopLargestBottom1Click
end
object SortObjectsDecending1: TMenuItem
Caption = 'Sort Objects Decending'
ShortCut = 16452
OnClick = SortObjectsDecending1Click
end
object MoveLargestobjecttobottom1: TMenuItem
Caption = 'Largest Object to bottom Only'
ShortCut = 16450
OnClick = MoveLargestobjecttobottom1Click
end
object N20: TMenuItem
Caption = '-'
ShortCut = 0
end
object LineOrderGXYZIJKR1: TMenuItem
Caption = 'Line Order N G M X Y Z I J K R'
ShortCut = 16463
OnClick = LineOrderGXYZIJKR1Click
end
object N5: TMenuItem
Caption = '-'
ShortCut = 0
end
object Translate1: TMenuItem
Caption = 'Translate Using table from setup window'
Hint = 'See Setup Labels line 30 on From : To'
ShortCut = 16468
OnClick = Translate1Click
end
object N19: TMenuItem
Caption = '-'
ShortCut = 0
end
object EditTranslatetable1: TMenuItem
Caption = 'Edit Translate table'
ShortCut = 49236
OnClick = EditTranslatetable1Click
end
object N23: TMenuItem
Caption = '-'
ShortCut = 0
end
object EditcurrentlineasDecimalAscii1: TMenuItem
Caption = 'Edit current line as Decimal Ascii'
ShortCut = 16457
OnClick = EditcurrentlineasDecimalAscii1Click
end
end
object Search1: TMenuItem
Caption = '&Search'
ShortCut = 0
object Find1: TMenuItem
Caption = '&Find ...'
ShortCut = 16454
OnClick = Find1Click
end
object FindNext1: TMenuItem
Caption = 'Find &Next'
ShortCut = 114
OnClick = FindNext1Click
end
object Replace1: TMenuItem
Caption = '&Replace ...'
ShortCut = 16466
OnClick = Replace1Click
end
end
object comm1: TMenuItem
Caption = '&Comm'
ShortCut = 0
object GoToComm1: TMenuItem
Caption = 'Go To Comm'
ShortCut = 117
OnClick = GoToComm1Click
end
end
object Setup1: TMenuItem
Caption = 'S&etup'
Hint = 'Use Create or edit INI Files'
ShortCut = 0
object UseAnotherLayer1: TMenuItem
Caption = 'Use Another Layer'
ShortCut = 123
OnClick = UseAnotherLayer1Click
end
object UseNewINI1: TMenuItem
Caption = '&Use another Machine INI File'
Hint = 'Load an INI file for a new machine. Lathe Mill Etc'
ShortCut = 122
OnClick = UseNewINI1Click
end
object N7: TMenuItem
Caption = '-'
ShortCut = 0
end
object EditCreateINI1: TMenuItem
Caption = 'Edit or Create a New &INI File'
Hint = 'Create or edit an existing INI file'
ShortCut = 121
OnClick = EditCreateINI1Click
end
object N8: TMenuItem
Caption = '-'
ShortCut = 0
end
object DefaultWindows1: TMenuItem
Caption = 'Default Windows'
ShortCut = 120
OnClick = DefaultWindows1Click
end
object ToggleHintsOnOff1: TMenuItem
Caption = 'Toggle Hints On/Off'
RadioItem = True
ShortCut = 119
OnClick = ToggleHintsOnOff1Click
end
object N18: TMenuItem
Caption = '-'
ShortCut = 0
end
object PrintManualrtf1: TMenuItem
Caption = 'Print the Gcode Manual.rtf'
ShortCut = 0
OnClick = PrintManualrtf1Click
end
object About1: TMenuItem
Caption = 'About'
ShortCut = 0
OnClick = About1Click
end
object N21: TMenuItem
Caption = '-'
ShortCut = 0
end
object GotoGcodeWebsite1: TMenuItem
Caption = 'Goto Gcode Web site'
ShortCut = 0
OnClick = GotoGcodeWebsite1Click
end
end
object Help: TMenuItem
Caption = '&Help'
ShortCut = 112
OnClick = HelpClick
end
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Filter =
'All Files (*.*)|*.*|Autocad Dxf files (*.DXF)|*.DXF|Text files (' +
'*.TXT)|*.TXT'
FilterIndex = 0
Options = [ofHideReadOnly]
Left = 125
Top = 69
end
object SaveDialog1: TSaveDialog
FileEditStyle = fsEdit
Filter =
'All Files (*.*)|*.*|Dxf Files(*.dxf)|*.dxf|Text Files (*.txt)|*.' +
'txt'
Left = 45
Top = 106
end
object FindDialog1: TFindDialog
OnFind = Find
Left = 44
Top = 69
end
object ReplaceDialog1: TReplaceDialog
OnFind = Find
OnReplace = Replace
Left = 81
Top = 104
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 8
Top = 70
end
object Timer1: TTimer
Enabled = False
Interval = 2000
OnTimer = Timer1Timer
Left = 124
Top = 105
end
object PopupMenu2: TPopupMenu
Left = 220
Top = 155
object Undo2: TMenuItem
Caption = 'Undo'
ShortCut = 0
OnClick = Undo2Click
end
object N11: TMenuItem
Caption = '-'
ShortCut = 0
end
object Cut2: TMenuItem
Caption = 'Cut'
ShortCut = 0
OnClick = Cut2Click
end
object Copy1: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = Copy1Click
end
object Past1: TMenuItem
Caption = 'Paste'
ShortCut = 0
OnClick = Past1Click
end
object Delete2: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = Delete2Click
end
object N15: TMenuItem
Caption = '-'
ShortCut = 0
end
object Swap2: TMenuItem
Caption = 'Swap'
ShortCut = 0
OnClick = Swap2Click
end
object Compress2: TMenuItem
Caption = 'Compress'
ShortCut = 0
OnClick = Compress2Click
end
object N12: TMenuItem
Caption = '-'
ShortCut = 0
end
object AddLineNumbers2: TMenuItem
Caption = 'Add Line Numbers'
ShortCut = 0
OnClick = AddLineNumbers2Click
end
object RemoveLInrNumbers1: TMenuItem
Caption = 'Remove Numbers'
ShortCut = 0
OnClick = RemoveLInrNumbers1Click
end
object N13: TMenuItem
Caption = '-'
ShortCut = 0
end
object ConvertoIncrementalG911: TMenuItem
Caption = 'Convert to G91'
ShortCut = 0
OnClick = ConvertoIncrementalG911Click
end
object ConverttoAbsoluteG901: TMenuItem
Caption = 'Convert to G90'
ShortCut = 0
OnClick = ConverttoAbsoluteG901Click
end
object InchtoMetric2: TMenuItem
Caption = 'Inch to Metric'
ShortCut = 0
OnClick = InchtoMetric2Click
end
object MetrictoInch2: TMenuItem
Caption = 'Metric to Inch'
ShortCut = 0
OnClick = MetrictoInch2Click
end
object N14: TMenuItem
Caption = '-'
ShortCut = 0
end
end
object Timer2: TTimer
Interval = 2000
OnTimer = Timer2Timer
Left = 192
Top = 64
end
end