📄 jvoutlookbarcustomdrawdemomainform.dfm
字号:
object JvOutlookBarCustomDrawDemoMainFrm: TJvOutlookBarCustomDrawDemoMainFrm
Left = 215
Top = 124
AutoScroll = False
Caption =
'Example of custom drawing a TJvOutlookbar using a TJvNavPaneStyl' +
'eManager'
ClientHeight = 265
ClientWidth = 348
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 192
Top = 8
Width = 36
Height = 13
Caption = 'Theme:'
end
object Label2: TLabel
Left = 192
Top = 56
Width = 58
Height = 13
Caption = 'Button Size:'
end
object JvOutlookBar1: TJvOutlookBar
Left = 0
Top = 0
Width = 169
Height = 265
Align = alLeft
Pages = <
item
Buttons = <
item
Caption = 'JvOutlookBarButton1'
ImageIndex = 0
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton2'
ImageIndex = 1
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton3'
ImageIndex = 2
Tag = 0
AutoToggle = False
end>
ButtonSize = olbsLarge
Caption = 'JvOutlookBarPage1'
Color = clBtnShadow
DownFont.Charset = DEFAULT_CHARSET
DownFont.Color = clWindowText
DownFont.Height = -11
DownFont.Name = 'MS Shell Dlg 2'
DownFont.Style = []
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
ParentColor = True
TopButtonIndex = 0
end
item
Buttons = <
item
Caption = 'JvOutlookBarButton4'
ImageIndex = 4
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton5'
ImageIndex = 5
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton6'
ImageIndex = 6
Tag = 0
AutoToggle = False
end>
ButtonSize = olbsLarge
Caption = 'JvOutlookBarPage2'
Color = clBtnShadow
DownFont.Charset = DEFAULT_CHARSET
DownFont.Color = clWindowText
DownFont.Height = -11
DownFont.Name = 'MS Shell Dlg 2'
DownFont.Style = []
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
ParentColor = True
TopButtonIndex = 0
end
item
Buttons = <
item
Caption = 'JvOutlookBarButton7'
ImageIndex = 7
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton8'
ImageIndex = 8
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton9'
ImageIndex = 9
Tag = 0
AutoToggle = False
end>
ButtonSize = olbsLarge
Caption = 'JvOutlookBarPage3'
Color = clBtnShadow
DownFont.Charset = DEFAULT_CHARSET
DownFont.Color = clWindowText
DownFont.Height = -11
DownFont.Name = 'MS Shell Dlg 2'
DownFont.Style = []
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
ParentColor = True
TopButtonIndex = 0
end
item
Buttons = <
item
Caption = 'JvOutlookBarButton10'
ImageIndex = 10
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton11'
ImageIndex = 11
Tag = 0
AutoToggle = False
end
item
Caption = 'JvOutlookBarButton12'
ImageIndex = 12
Tag = 0
AutoToggle = False
end>
ButtonSize = olbsLarge
Caption = 'JvOutlookBarPage4'
Color = clBtnShadow
DownFont.Charset = DEFAULT_CHARSET
DownFont.Color = clWindowText
DownFont.Height = -11
DownFont.Name = 'MS Shell Dlg 2'
DownFont.Style = []
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
ParentColor = True
TopButtonIndex = 0
end>
LargeImages = ImageList2
SmallImages = ImageList1
PageButtonHeight = 24
BorderStyle = bsNone
TabOrder = 0
end
object ComboBox1: TComboBox
Left = 192
Top = 24
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = ComboBox1Change
Items.Strings = (
'nptStandard'
'nptXPBlue'
'nptXPSilver'
'nptXPOlive')
end
object ComboBox2: TComboBox
Left = 192
Top = 72
Width = 145
Height = 21
Style = csDropDownList
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -