📄 fsettings.dfm
字号:
Transparent = True
end
object Label32: TLabel
Left = 8
Top = 60
Width = 58
Height = 13
Caption = 'Border &style:'
FocusControl = cmboxBS6
Transparent = True
end
object Label33: TLabel
Left = 8
Top = 80
Width = 78
Height = 13
Caption = '&Additional styles:'
FocusControl = txtAdditional6
Transparent = True
end
object Label52: TLabel
Left = 8
Top = 36
Width = 60
Height = 13
Caption = 'Bo&rder color:'
FocusControl = clrBorder6
Transparent = True
end
object Label53: TLabel
Left = 168
Top = 36
Width = 62
Height = 13
Caption = 'Border &width:'
FocusControl = cmboxBrWidth6
Transparent = True
end
object clrText6: TJvColorButton
Left = 96
Top = 8
Width = 65
OtherCaption = '&Other...'
Options = []
OnChange = LevelStyleChange
end
object clrBack6: TJvColorButton
Left = 272
Top = 8
Width = 65
OtherCaption = '&Other...'
Options = []
Color = 8179111
OnChange = LevelStyleChange
end
object cmboxBS6: TComboBox
Left = 160
Top = 56
Width = 177
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 2
OnChange = LevelStyleChange
end
object txtAdditional6: TMemo
Left = 160
Top = 80
Width = 177
Height = 73
Hint = 'Use CSS formating for additional styles'
TabOrder = 3
OnChange = LevelStyleChange
end
object clrBorder6: TJvColorButton
Left = 96
Top = 32
Width = 65
OtherCaption = '&Other...'
Options = []
OnChange = LevelStyleChange
end
object cmboxBrWidth6: TComboBox
Left = 272
Top = 32
Width = 65
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 5
OnChange = LevelStyleChange
end
end
object TabSheet16: TTabSheet
Caption = 'Level 7'
ImageIndex = 6
object Label34: TLabel
Left = 8
Top = 12
Width = 50
Height = 13
Caption = '&Text color:'
FocusControl = clrText7
Transparent = True
end
object Label35: TLabel
Left = 168
Top = 12
Width = 87
Height = 13
Caption = '&Background color:'
FocusControl = clrBack7
Transparent = True
end
object Label36: TLabel
Left = 8
Top = 60
Width = 58
Height = 13
Caption = 'Border &style:'
FocusControl = cmboxBS7
Transparent = True
end
object Label37: TLabel
Left = 8
Top = 80
Width = 78
Height = 13
Caption = '&Additional styles:'
FocusControl = txtAdditional7
Transparent = True
end
object Label54: TLabel
Left = 8
Top = 36
Width = 60
Height = 13
Caption = 'Bo&rder color:'
FocusControl = clrBorder7
Transparent = True
end
object Label55: TLabel
Left = 168
Top = 36
Width = 62
Height = 13
Caption = 'Border &width:'
FocusControl = cmboxBrWidth7
Transparent = True
end
object clrText7: TJvColorButton
Left = 96
Top = 8
Width = 65
OtherCaption = '&Other...'
Options = []
OnChange = LevelStyleChange
end
object clrBack7: TJvColorButton
Left = 272
Top = 8
Width = 65
OtherCaption = '&Other...'
Options = []
Color = 15181247
OnChange = LevelStyleChange
end
object cmboxBS7: TComboBox
Left = 160
Top = 56
Width = 177
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 2
OnChange = LevelStyleChange
end
object txtAdditional7: TMemo
Left = 160
Top = 80
Width = 177
Height = 73
Hint = 'Use CSS formating for additional styles'
TabOrder = 3
OnChange = LevelStyleChange
end
object clrBorder7: TJvColorButton
Left = 96
Top = 32
Width = 65
OtherCaption = '&Other...'
Options = []
OnChange = LevelStyleChange
end
object cmboxBrWidth7: TComboBox
Left = 272
Top = 32
Width = 65
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 5
OnChange = LevelStyleChange
end
end
object TabSheet17: TTabSheet
Caption = 'Level 8'
ImageIndex = 7
object Label38: TLabel
Left = 8
Top = 12
Width = 50
Height = 13
Caption = '&Text color:'
FocusControl = clrText8
Transparent = True
end
object Label39: TLabel
Left = 168
Top = 12
Width = 87
Height = 13
Caption = '&Background color:'
FocusControl = clrBack8
Transparent = True
end
object Label40: TLabel
Left = 8
Top = 60
Width = 58
Height = 13
Caption = 'Border &style:'
FocusControl = cmboxBS8
Transparent = True
end
object Label41: TLabel
Left = 8
Top = 80
Width = 78
Height = 13
Caption = '&Additional styles:'
FocusControl = txtAdditional8
Transparent = True
end
object Label56: TLabel
Left = 8
Top = 36
Width = 60
Height = 13
Caption = 'Bo&rder color:'
FocusControl = clrBorder8
Transparent = True
end
object Label57: TLabel
Left = 168
Top = 36
Width = 62
Height = 13
Caption = 'Border &width:'
FocusControl = cmboxBrWidth8
Transparent = True
end
object clrText8: TJvColorButton
Left = 96
Top = 8
Width = 65
OtherCaption = '&Other...'
Options = []
OnChange = LevelStyleChange
end
object clrBack8: TJvColorButton
Left = 272
Top = 8
Width = 65
OtherCaption = '&Other...'
Options = []
Color = 16551313
OnChange = LevelStyleChange
end
object cmboxBS8: TComboBox
Left = 160
Top = 56
Width = 177
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 2
OnChange = LevelStyleChange
end
object txtAdditional8: TMemo
Left = 160
Top = 80
Width = 177
Height = 73
Hint = 'Use CSS formating for additional styles'
TabOrder = 3
OnChange = LevelStyleChange
end
object clrBorder8: TJvColorButton
Left = 96
Top = 32
Width = 65
OtherCaption = '&Other...'
Options = []
OnChange = LevelStyleChange
end
object cmboxBrWidth8: TComboBox
Left = 272
Top = 32
Width = 65
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 5
OnChange = LevelStyleChange
end
end
end
object wbPreview: TEmbeddedWB
Left = 9
Top = 248
Width = 344
Height = 100
TabOrder = 3
DownloadOptions = [DLCTL_OFFLINE]
UserInterfaceOptions = [DISABLE_HELP_MENU, FLAT_SCROLLBAR, DIV_BLOCKDEFAULT]
PrintOptions.Margins.Left = 19.050000000000000000
PrintOptions.Margins.Right = 19.050000000000000000
PrintOptions.Margins.Top = 19.050000000000000000
PrintOptions.Margins.Bottom = 19.050000000000000000
PrintOptions.Header = '&w&bPage &p of &P'
PrintOptions.HTMLHeader.Strings = (
'<HTML></HTML>')
PrintOptions.Footer = '&u&b&d'
PrintOptions.Orientation = poPortrait
ReplaceCaption = False
EnableDDE = False
fpExceptions = True
ControlData = {
4C000000021F0000810F00000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
object TabSheet18: TTabSheet
Caption = 'Fonts'
ImageIndex = 9
object gbTree: TGroupBox
Left = 8
Top = 16
Width = 345
Height = 73
Caption = 'Tree Font'
Enabled = False
TabOrder = 0
object lblTreeFont: TLabel
Left = 8
Top = 30
Width = 31
Height = 13
Caption = 'lblFont'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object cmdTreeFont: TButton
Left = 256
Top = 24
Width = 75
Height = 25
Hint = 'Click here to change tree font'
Caption = 'C&hange'
TabOrder = 0
OnClick = cmdTreeFontClick
end
end
object gbList: TGroupBox
Left = 8
Top = 104
Width = 345
Height = 73
Caption = 'List Font'
Enabled = False
TabOrder = 1
object lblListFont: TLabel
Left = 8
Top = 30
Width = 31
Height = 13
Caption = 'lblFont'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object cmdListFont: TButton
Left = 256
Top = 24
Width = 75
Height = 25
Hint = 'Click here to change list font'
Caption = 'Ch&ange'
TabOrder = 0
OnClick = cmdListFontClick
end
end
object chkboxOverrideList: TCheckBox
Left = 16
Top = 104
Width = 329
Height = 17
Caption = 'O&verride theme list font'
TabOrder = 2
OnClick = chkboxOverrideListClick
end
object chkboxOverrideTree: TCheckBox
Left = 16
Top = 16
Width = 329
Height = 17
Caption = '&Override theme tree font'
TabOrder = 3
OnClick = chkboxOverrideTreeClick
end
end
end
object cmdCancel: TButton
Left = 94
Top = 349
Width = 75
Height = 25
Hint = 'Close this window and don'#39't save changes'
Caption = '&Cancel'
TabOrder = 2
OnClick = cmdCancelClick
end
object cmdClose: TButton
Left = 7
Top = 349
Width = 75
Height = 25
Hint = 'Close this window and ask to save changes'
Caption = 'C&lose'
TabOrder = 1
OnClick = cmdCloseClick
end
object lstSettings: TVirtualStringTree
Left = 0
Top = 0
Width = 177
Height = 337
ButtonStyle = bsTriangle
Colors.FocusedSelectionColor = 13613489
Colors.SelectionRectangleBlendColor = 13613489
Colors.UnfocusedSelectionColor = 15396334
Colors.UnfocusedSelectionBorderColor = 13751260
DragOperations = []
DrawSelectionMode = smBlendedRectangle
EditDelay = 0
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Font.Style = []
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
ParentBackground = False
TabOrder = 3
TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowBackground, toShowButtons, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
TreeOptions.SelectionOptions = [toFullRowSelect]
TreeOptions.StringOptions = [toSaveCaptions]
OnFocusChanged = lstSettingsFocusChanged
OnGetText = lstSettingsGetText
OnGetNodeDataSize = lstSettingsGetNodeDataSize
Columns = <>
end
object GPanel1: TGPanel
Left = 180
Top = 0
Width = 370
Height = 30
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Color_1 = 11848655
Color_2 = 13885923
Color_3 = 15527920
object lblCaption: TLabel
Left = 4
Top = 2
Width = 361
Height = 25
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -19
Font.Name = 'Courier New'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = True
Layout = tlCenter
end
end
object ilFlags: TImageList
Height = 20
Masked = False
Width = 32
Left = 56
Top = 376
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Left = 88
Top = 376
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -