📄 frmoptions.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Begin VB.Form frmOptions
BackColor = &H8000000D&
BorderStyle = 1 'Fixed Single
Caption = "Options"
ClientHeight = 7110
ClientLeft = 45
ClientTop = 435
ClientWidth = 6705
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 474
ScaleMode = 3 'Pixel
ScaleWidth = 447
StartUpPosition = 2 'CenterScreen
Begin MSComctlLib.ImageList imglstDebug
Left = 3060
Top = 3270
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 19
ImageHeight = 18
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOptions.frx":0000
Key = "Break"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOptions.frx":048A
Key = "Step"
EndProperty
EndProperty
End
Begin VB.CommandButton cmdOK
Caption = "&OK"
Height = 375
Left = 1050
TabIndex = 34
Top = 6540
Width = 795
End
Begin VB.CommandButton cmdEditorCancel
Caption = "&Cancel"
Height = 375
Left = 135
TabIndex = 33
Top = 6525
Width = 795
End
Begin TabDlg.SSTab SSTab
Height = 7140
Left = 1995
TabIndex = 0
Top = -15
Width = 4725
_ExtentX = 8334
_ExtentY = 12594
_Version = 393216
Tab = 1
TabHeight = 520
TabCaption(0) = "Editor"
TabPicture(0) = "frmOptions.frx":0914
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1"
Tab(0).Control(1)= "Frame2"
Tab(0).Control(2)= "Frame3"
Tab(0).Control(3)= "cmdEditorDefault"
Tab(0).Control(4)= "Frame9"
Tab(0).ControlCount= 5
TabCaption(1) = "Debug"
TabPicture(1) = "frmOptions.frx":0930
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Frame4"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Frame5"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Frame6"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "cmdDebugDefault"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Frame10"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).ControlCount= 5
TabCaption(2) = "Simulation"
TabPicture(2) = "frmOptions.frx":094C
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "cmdSimDefaults"
Tab(2).Control(1)= "Frame8"
Tab(2).Control(2)= "Frame7"
Tab(2).ControlCount= 3
Begin VB.Frame Frame10
Caption = "Others"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1140
Left = 293
TabIndex = 39
Top = 5190
Width = 4125
Begin VB.CheckBox chkShowGrid
Caption = "Show &Grids"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 330
TabIndex = 41
Top = 675
Width = 1560
End
Begin VB.CheckBox chkShowLineNumber
Caption = "&Show Line Numbers"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 330
TabIndex = 40
Top = 285
Width = 2190
End
End
Begin VB.CommandButton cmdSimDefaults
Caption = "Simulation's Defaults"
Height = 420
Left = -72292
TabIndex = 36
Top = 6510
Width = 1710
End
Begin VB.CommandButton cmdDebugDefault
Caption = "Debug's Defaults"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2708
TabIndex = 35
Top = 6510
Width = 1710
End
Begin VB.Frame Frame9
Caption = "Others"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1365
Left = -74707
TabIndex = 27
Top = 4965
Width = 4125
Begin VB.CheckBox chkSplashScreen
Caption = "Show Splash Screen"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1830
TabIndex = 31
Top = 315
Width = 1950
End
Begin VB.CheckBox chkOpenLastFile
Caption = "Open Last File On Startup "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1830
TabIndex = 30
Top = 810
Width = 2100
End
Begin VB.CheckBox chkAutoComplete
Caption = "&Auto Complete"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 330
TabIndex = 29
Top = 315
Width = 1575
End
Begin VB.CheckBox chkAutoReformat
Caption = "Auto Reformat"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 330
TabIndex = 28
Top = 810
Width = 1560
End
End
Begin VB.CommandButton cmdEditorDefault
Caption = "&Editor's Defaults"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = -72292
TabIndex = 24
ToolTipText = "Click here to Restore Default Values"
Top = 6510
Width = 1710
End
Begin VB.Frame Frame8
Caption = "Sample"
Height = 3135
Left = -74707
TabIndex = 22
Top = 3075
Width = 4125
Begin VB.PictureBox picSample
Height = 2595
Left = 225
ScaleHeight = 169
ScaleMode = 3 'Pixel
ScaleWidth = 241
TabIndex = 23
Top = 360
Width = 3675
Begin VB.Image Image1
Height = 765
Left = 3015
Picture = "frmOptions.frx":0968
Top = 45
Width = 510
End
End
End
Begin VB.Frame Frame7
Caption = "Simulation Window"
Height = 2310
Left = -74707
TabIndex = 19
Top = 580
Width = 4125
Begin VB.Label Label6
Caption = "Effect Colour:"
Height = 225
Left = 330
TabIndex = 43
Top = 1695
Width = 2340
End
Begin VB.Label lblEffectColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 390
Left = 2910
TabIndex = 42
Top = 1612
Width = 390
End
Begin VB.Label lblBackColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 390
Left = 2910
TabIndex = 26
Top = 1020
Width = 390
End
Begin VB.Label lblWPColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 390
Left = 2910
TabIndex = 25
Top = 457
Width = 390
End
Begin VB.Label Label8
Caption = "Background Colour:"
Height = 225
Left = 330
TabIndex = 21
Top = 1117
Width = 2340
End
Begin VB.Label Label7
Caption = "Workpiece Colour:"
Height = 225
Left = 330
TabIndex = 20
Top = 540
Width = 2370
End
End
Begin VB.Frame Frame6
Caption = "Sample"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1635
Left = 293
TabIndex = 17
Top = 3412
Width = 4125
Begin MSFlexGridLib.MSFlexGrid DebugSample
Height = 1275
Left = 315
TabIndex = 18
Top = 255
Width = 3540
_ExtentX = 6244
_ExtentY = 2249
_Version = 393216
Rows = 4
Cols = 3
AllowBigSelection= 0 'False
FocusRect = 0
HighLight = 0
GridLines = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -