foptions.dfm
来自「Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器」· DFM 代码 · 共 2,405 行 · 第 1/5 页
DFM
2,405 行
Left = 272
Top = 72
Width = 81
Height = 22
CustomText = 'More...'
DefaultText = 'Default'
PopupSpacing = 8
SelectionColor = clWindow
ShowSystemColors = True
end
object btnFont: TButton
Left = 312
Top = 16
Width = 41
Height = 23
Caption = 'Font'
TabOrder = 6
OnClick = btnFontClick
end
object chkGutterFont: TCheckBox
Left = 192
Top = 20
Width = 110
Height = 17
Caption = 'Use Gutter Font'
Checked = True
State = cbChecked
TabOrder = 5
end
object chkVisible: TCheckBox
Left = 16
Top = 24
Width = 97
Height = 17
Caption = 'Visible'
Checked = True
State = cbChecked
TabOrder = 0
end
object chkAutosize: TCheckBox
Left = 16
Top = 40
Width = 97
Height = 17
TabStop = False
Caption = 'Autosize'
Checked = True
State = cbChecked
TabOrder = 1
end
object chkLineNum: TCheckBox
Left = 16
Top = 56
Width = 137
Height = 17
TabStop = False
Caption = 'Show Line Numbers'
Checked = True
State = cbChecked
TabOrder = 2
end
object chkZero: TCheckBox
Left = 16
Top = 72
Width = 97
Height = 17
TabStop = False
Caption = 'Start at zero'
TabOrder = 3
end
object chkLeading: TCheckBox
Left = 16
Top = 88
Width = 137
Height = 17
TabStop = False
Caption = 'Show Leading zeros'
TabOrder = 4
end
object pnlStoreGutterFont: TPanel
Left = 210
Top = 40
Width = 144
Height = 28
BevelOuter = bvNone
TabOrder = 7
object lblGutterFont: TLabel
Left = 0
Top = 0
Width = 72
Height = 8
Caption = 'Terminal 8pt'
Font.Charset = OEM_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Terminal'
Font.Style = []
ParentFont = False
end
end
end
object gbRight: TGroupBox
Left = 8
Top = 128
Width = 177
Height = 81
Caption = 'Right Edge'
TabOrder = 1
object lblRightEdge: TLabel
Left = 8
Top = 20
Width = 66
Height = 13
Caption = 'Edge Column:'
end
object lblRightColor: TLabel
Left = 8
Top = 53
Width = 56
Height = 13
Caption = 'Edge Color:'
end
object clrRight: TColorPickerButton
Left = 96
Top = 49
Width = 73
Height = 20
CustomText = 'More...'
DefaultText = 'Default'
PopupSpacing = 8
SelectionColor = clWindow
ShowSystemColors = True
end
object edtRight: TEdit
Left = 96
Top = 16
Width = 73
Height = 21
BevelKind = bkTile
BorderStyle = bsNone
TabOrder = 0
Text = '80'
end
end
object gbSpacing: TGroupBox
Left = 192
Top = 128
Width = 177
Height = 81
Caption = 'Line/Tab Spacing'
TabOrder = 2
object lblExtraLines: TLabel
Left = 8
Top = 20
Width = 57
Height = 13
Caption = 'Extra Lines:'
end
object lblTabWidth: TLabel
Left = 8
Top = 53
Width = 53
Height = 13
Caption = 'Tab Width:'
end
object edtExtraLines: TEdit
Left = 96
Top = 16
Width = 73
Height = 21
BevelKind = bkTile
BorderStyle = bsNone
TabOrder = 0
Text = '0'
end
object edtTabWidth: TEdit
Left = 96
Top = 48
Width = 73
Height = 21
BevelKind = bkTile
BorderStyle = bsNone
TabOrder = 1
Text = '8'
end
end
object gbEditorFont: TGroupBox
Left = 192
Top = 216
Width = 177
Height = 81
Caption = 'Editor Font'
TabOrder = 3
object btnEdtFont: TButton
Left = 128
Top = 48
Width = 41
Height = 23
Caption = 'Font'
TabOrder = 1
OnClick = btnEdtFontClick
end
object pnlFontStore: TPanel
Left = 8
Top = 16
Width = 161
Height = 29
BevelOuter = bvNone
TabOrder = 0
object lblEditorFont: TLabel
Left = 0
Top = 0
Width = 128
Height = 16
Caption = 'Courier New 10pt'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
end
end
end
object gbBookmarks: TGroupBox
Left = 8
Top = 216
Width = 177
Height = 81
Caption = 'Bookmarks'
TabOrder = 4
object chkBKeys: TCheckBox
Left = 8
Top = 24
Width = 145
Height = 17
Caption = 'Bookmark Keys'
Checked = True
State = cbChecked
TabOrder = 0
end
object chkBVisible: TCheckBox
Left = 8
Top = 48
Width = 161
Height = 17
TabStop = False
Caption = 'Bookmarks Visible'
Checked = True
State = cbChecked
TabOrder = 1
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Options'
object gbCaret: TGroupBox
Left = 8
Top = 224
Width = 361
Height = 73
Caption = 'Caret'
TabOrder = 0
object lblCaretInsert: TLabel
Left = 8
Top = 20
Width = 61
Height = 13
Caption = 'Insert caret:'
end
object lblCaretOverwrite: TLabel
Left = 8
Top = 44
Width = 80
Height = 13
Caption = 'Overwrite caret:'
end
object cmbInsertCaret: TComboBox
Left = 112
Top = 16
Width = 241
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = 'Vertical Line'
Items.Strings = (
'Vertical Line'
'Horizontal Line'
'Half Block'
'Block')
end
object cmbOverwriteCaret: TComboBox
Left = 112
Top = 40
Width = 241
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 3
TabOrder = 1
Text = 'Block'
Items.Strings = (
'Vertical Line'
'Horizontal Line'
'Half Block'
'Block')
end
end
object gbOptions: TGroupBox
Left = 8
Top = 8
Width = 361
Height = 209
Caption = '&Options'
TabOrder = 1
object chkAutoIndent: TCheckBox
Left = 8
Top = 16
Width = 97
Height = 17
Caption = 'Auto Indent'
Checked = True
State = cbChecked
TabOrder = 0
end
object chkDDEdit: TCheckBox
Left = 8
Top = 32
Width = 161
Height = 17
TabStop = False
Caption = 'Drag and drop editing'
Checked = True
State = cbChecked
TabOrder = 1
end
object chkDDFiles: TCheckBox
Left = 8
Top = 48
Width = 145
Height = 17
TabStop = False
Caption = 'Drag and drop files'
TabOrder = 2
end
object chkAltColumn: TCheckBox
Left = 8
Top = 64
Width = 161
Height = 17
TabStop = False
Caption = 'Alt sets column mode'
TabOrder = 3
end
object chkHoldColumn: TCheckBox
Left = 8
Top = 80
Width = 145
Height = 17
TabStop = False
Caption = 'Maintain caret column'
TabOrder = 4
end
object chkWantTabs: TCheckBox
Left = 8
Top = 96
Width = 97
Height = 17
Caption = 'Want tabs'
Checked = True
State = cbChecked
TabOrder = 5
end
object chkSmartTabs: TCheckBox
Left = 8
Top = 112
Width = 97
Height = 17
Caption = 'Smart tabs'
Checked = True
State = cbChecked
TabOrder = 6
end
object chkTabDel: TCheckBox
Left = 8
Top = 128
Width = 161
Height = 17
TabStop = False
Caption = 'Smart tab delete'
Checked = True
State = cbChecked
TabOrder = 7
end
object chkRMouseMovesCursor: TCheckBox
Left = 8
Top = 144
Width = 177
Height = 17
TabStop = False
Caption = 'Right mouse moves cursor'
TabOrder = 8
end
object chkEnhanceHome: TCheckBox
Left = 8
Top = 160
Width = 161
Height = 17
TabStop = False
Caption = 'Enhance home key'
TabOrder = 9
end
object chkHideScroll: TCheckBox
Left = 8
Top = 176
Width = 185
Height = 17
TabStop = False
Caption = 'Hide scrollbars as needed'
TabOrder = 10
end
object chkHalfPage: TCheckBox
Left = 192
Top = 16
Width = 129
Height = 17
TabStop = False
Caption = 'Half page scroll'
TabOrder = 11
end
object chkScrollOneLess: TCheckBox
Left = 192
Top = 32
Width = 121
Height = 17
TabStop = False
Caption = 'Scroll by one less'
TabOrder = 12
end
object chkScrollPastEndofFile: TCheckBox
Left = 192
Top = 48
Width = 145
Height = 17
TabStop = False
Caption = 'Scroll past end of file'
TabOrder = 13
end
object chkScrollPastEndofLine: TCheckBox
Left = 192
Top = 64
Width = 145
Height = 17
TabStop = False
Caption = 'Scroll past end of line'
Checked = True
State = cbChecked
TabOrder = 14
end
object chkShowScrollHint: TCheckBox
Left = 192
Top = 80
Width = 137
Height = 17
TabStop = False
Caption = 'Show scroll hint'
Checked = True
State = cbChecked
TabOrder = 15
end
object chkScrollHintFollowsMouse: TCheckBox
Left = 192
Top = 96
Width = 161
Height = 17
TabStop = False
Caption = 'Scroll hint follows mouse'
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?