📄 unitbuttons.dfm
字号:
object FrameButtons: TFrameButtons
Left = 0
Top = 0
Width = 481
Height = 462
TabOrder = 0
OnResize = FrameResize
object sSpeedButton2: TsSpeedButton
Tag = 5
Left = 97
Top = 108
Width = 88
Height = 27
Caption = 'sSpeedButton2'
Flat = True
Spacing = 3
SkinData.SkinSection = 'SPEEDBUTTON'
DisabledGlyphKind = []
TextAlignment = taLeftJustify
end
object sSpeedButton1: TsSpeedButton
Tag = 5
Left = 9
Top = 108
Width = 85
Height = 56
Caption = 'sSpeedButton1'
Flat = True
Layout = blGlyphTop
NumGlyphs = 2
Spacing = 3
Blend = 50
SkinData.SkinSection = 'SPEEDBUTTON'
DisabledGlyphKind = []
ImageIndex = 1
Images = MainForm.ImgList_MultiState
TextAlignment = taLeftJustify
end
object sSpeedButton4: TsSpeedButton
Tag = 5
Left = 169
Top = 334
Width = 140
Height = 102
Caption = 'SpeedButton with'#13#10'DropDownMenu property'
Flat = True
Layout = blGlyphTop
Margin = 4
Spacing = 3
Blend = 50
ButtonStyle = tbsDropDown
SkinData.SkinSection = 'SPEEDBUTTON'
DisabledGlyphKind = []
DropdownMenu = PopupMenu1
ImageIndex = 2
Images = MainForm.ImageList24
end
object sSpeedButton3: TsSpeedButton
Tag = 5
Left = 97
Top = 137
Width = 88
Height = 27
Caption = 'sSpeedButton2'
Flat = True
Spacing = 3
SkinData.SkinSection = 'SPEEDBUTTON'
DisabledGlyphKind = []
TextAlignment = taLeftJustify
end
object sBitBtn1: TsBitBtn
Tag = 5
Left = 9
Top = 67
Width = 85
Height = 38
Caption = 'sBitBtn1'
TabOrder = 0
NumGlyphs = 2
Spacing = 3
Blend = 50
SkinData.SkinSection = 'BUTTON'
DisabledGlyphKind = []
ImageIndex = 0
Images = MainForm.ImgList_MultiState
ShowFocus = False
end
object sPanel3: TsPanel
Left = 193
Top = 67
Width = 112
Height = 110
BevelOuter = bvLowered
Caption = ' '
TabOrder = 1
SkinData.SkinSection = 'PANEL_LOW'
DesignSize = (
112
110)
object sButton4: TsButton
Tag = 5
Left = 11
Top = 12
Width = 90
Height = 25
Anchors = [akLeft, akTop, akRight]
Caption = 'TsButton'
TabOrder = 0
SkinData.SkinSection = 'BUTTON'
end
object sButton5: TsButton
Tag = 5
Left = 11
Top = 39
Width = 90
Height = 25
Anchors = [akLeft, akTop, akRight]
Caption = 'TsButton'
TabOrder = 1
SkinData.SkinSection = 'BUTTON'
end
object sButton6: TsButton
Tag = 5
Left = 11
Top = 66
Width = 90
Height = 25
Anchors = [akLeft, akTop, akRight]
Caption = 'TsButton'
TabOrder = 2
SkinData.SkinSection = 'BUTTON'
end
end
object sToolBar2: TsToolBar
Left = 9
Top = 4
Width = 312
Height = 48
Align = alNone
BorderWidth = 2
ButtonHeight = 34
ButtonWidth = 34
Flat = True
Images = MainForm.ImageList24
TabOrder = 2
Transparent = True
SkinData.SkinSection = 'TOOLBAR'
object ToolButton1: TToolButton
Tag = 5
Left = 0
Top = 0
Caption = '1'
ImageIndex = 3
end
object ToolButton4: TToolButton
Tag = 5
Left = 34
Top = 0
Caption = 'ToolButton4'
DropdownMenu = PopupMenu1
ImageIndex = 2
Style = tbsDropDown
end
object ToolButton5: TToolButton
Left = 81
Top = 0
Width = 8
Caption = 'ToolButton5'
ImageIndex = 4
Style = tbsSeparator
end
object ToolButton8: TToolButton
Tag = 5
Left = 89
Top = 0
Caption = 'ToolButton8'
Grouped = True
ImageIndex = 0
Style = tbsCheck
end
object ToolButton6: TToolButton
Tag = 5
Left = 123
Top = 0
Caption = 'ToolButton6'
Grouped = True
ImageIndex = 1
Style = tbsCheck
end
object ToolButton7: TToolButton
Tag = 5
Left = 157
Top = 0
Caption = 'ToolButton7'
Grouped = True
ImageIndex = 4
Style = tbsCheck
end
end
object sBitBtn2: TsBitBtn
Tag = 5
Left = 97
Top = 67
Width = 85
Height = 38
Caption = 'sBitBtn2'
TabOrder = 3
Spacing = 3
Blend = 50
SkinData.SkinSection = 'BUTTON'
DisabledGlyphKind = []
ImageIndex = 2
Images = MainForm.ImageList24
ShowFocus = False
end
object sBitBtn5: TsBitBtn
Tag = 5
Left = 17
Top = 334
Width = 140
Height = 102
Caption = 'sBitBtn5'
TabOrder = 4
Layout = blGlyphTop
Margin = 4
Spacing = 3
Blend = 50
SkinData.SkinSection = 'BUTTON_BIG'
DisabledGlyphKind = []
ImageIndex = 2
Images = MainForm.ImageList32
end
object sGroupBox1: TsGroupBox
Tag = 5
Left = 8
Top = 268
Width = 449
Height = 55
Caption = ' Some additional options '
ParentBackground = False
TabOrder = 5
SkinData.SkinSection = 'GROUPBOX'
object sComboBox1: TsComboBox
Tag = 5
Left = 60
Top = 20
Width = 141
Height = 21
Alignment = taLeftJustify
BoundLabel.Active = True
BoundLabel.Caption = 'Layout :'
BoundLabel.Indent = 0
BoundLabel.Font.Charset = DEFAULT_CHARSET
BoundLabel.Font.Color = clWindowText
BoundLabel.Font.Height = -11
BoundLabel.Font.Name = 'MS Sans Serif'
BoundLabel.Font.Style = []
BoundLabel.Layout = sclLeft
BoundLabel.MaxWidth = 0
BoundLabel.UseSkinColor = True
SkinData.SkinSection = 'COMBOBOX'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = -1
ParentFont = False
TabOrder = 0
OnChange = sComboBox1Change
Items.Strings = (
'blGlyphTop'
'blGlyphLeft'
'blGlyphBottom'
'blGlyphRight')
end
object sComboBox3: TsComboBox
Tag = 5
Left = 292
Top = 20
Width = 142
Height = 21
Alignment = taLeftJustify
BoundLabel.Active = True
BoundLabel.Caption = 'SkinSection :'
BoundLabel.Indent = 0
BoundLabel.Font.Charset = DEFAULT_CHARSET
BoundLabel.Font.Color = clWindowText
BoundLabel.Font.Height = -11
BoundLabel.Font.Name = 'MS Sans Serif'
BoundLabel.Font.Style = []
BoundLabel.Layout = sclLeft
BoundLabel.MaxWidth = 0
BoundLabel.UseSkinColor = True
DropDownCount = 13
SkinData.SkinSection = 'COMBOBOX'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = -1
ParentFont = False
TabOrder = 1
OnChange = sComboBox3Change
Items.Strings = (
'WEBBUTTON'
'BUTTON_BIG'
'CHECKBOX'
'BUTTON'
'SPEEDBUTTON'
'TOOLBUTTON'
'SPEEDBUTTON_SMALL'
'MENUITEM'
'FORMTITLE'
'BARTITLE')
end
end
object sBitBtn3: TsBitBtn
Tag = 5
Left = 326
Top = 69
Width = 141
Height = 95
Caption = 'TsBitBtn'
TabOrder = 6
Blend = 50
SkinData.SkinSection = 'BUTTON_HUGE'
ImageIndex = 3
Images = MainForm.ImageList24
end
object sComboBox2: TsComboBox
Tag = 5
Left = 339
Top = 22
Width = 119
Height = 21
Alignment = taLeftJustify
BoundLabel.Active = True
BoundLabel.Caption = 'SkinSection :'
BoundLabel.Indent = 2
BoundLabel.Font.Charset = DEFAULT_CHARSET
BoundLabel.Font.Color = clWindowText
BoundLabel.Font.Height = -11
BoundLabel.Font.Name = 'MS Sans Serif'
BoundLabel.Font.Style = []
BoundLabel.Layout = sclTopLeft
BoundLabel.MaxWidth = 0
BoundLabel.UseSkinColor = True
SkinData.SkinSection = 'COMBOBOX'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = -1
ParentFont = False
TabOrder = 7
OnChange = sComboBox2Change
Items.Strings = (
'BUTTON_BIG'
'CHECKBOX'
'PANEL_LOW'
'PANEL'
'BUTTON'
'SPEEDBUTTON'
'GROUPBOX'
'DIALOG'
'EDIT'
'PROGRESSH')
end
object sBitBtn7: TsBitBtn
Tag = 5
Left = 254
Top = 187
Width = 64
Height = 64
TabOrder = 8
NumGlyphs = 2
Blend = 50
SkinData.SkinSection = 'BUTTON_HUGE'
ImageIndex = 0
Images = MainForm.ImgList_MultiState
ShowCaption = False
end
object sBitBtn8: TsBitBtn
Tag = 5
Left = 332
Top = 187
Width = 64
Height = 64
TabOrder = 9
NumGlyphs = 2
Blend = 50
SkinData.SkinSection = 'BUTTON_HUGE'
ImageIndex = 1
Images = MainForm.ImgList_MultiState
ShowCaption = False
end
object sGroupBox2: TsGroupBox
Left = 8
Top = 193
Width = 221
Height = 49
Caption = 'Glyphs : '
TabOrder = 10
SkinData.SkinSection = 'GROUPBOX'
object sLabel1: TsLabel
Tag = 5
Left = 87
Top = 22
Width = 50
Height = 13
Caption = 'Blending : '
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object sCheckBox1: TsCheckBox
Tag = 5
Left = 16
Top = 20
Width = 54
Height = 20
Caption = 'Grayed'
TabOrder = 0
OnClick = sCheckBox1Click
SkinData.SkinSection = 'CHECKBOX'
ImgChecked = 0
ImgUnchecked = 0
end
object sTrackBar1: TsTrackBar
Tag = 5
Left = 137
Top = 17
Width = 79
Height = 25
Max = 100
Position = 50
TabOrder = 1
OnChange = sTrackBar1Change
SkinData.SkinSection = 'TRACKBAR'
end
end
object sBitBtn4: TsBitBtn
Tag = 5
Left = 408
Top = 187
Width = 64
Height = 64
TabOrder = 11
NumGlyphs = 2
Blend = 50
SkinData.SkinSection = 'BUTTON_HUGE'
ImageIndex = 2
Images = MainForm.ImgList_MultiState
ShowCaption = False
end
object sFrameAdapter1: TsFrameAdapter
SkinData.SkinSection = 'CHECKBOX'
Left = 333
Top = 2
end
object PopupMenu1: TPopupMenu
OwnerDraw = True
Left = 361
Top = 2
object Item11: TMenuItem
Caption = 'Item 1'
end
object Item21: TMenuItem
Caption = 'Item 2'
end
object Item31: TMenuItem
Caption = 'Item 3'
end
object Item41: TMenuItem
Caption = 'Item 4'
object Subitem411: TMenuItem
Caption = 'Subitem 41'
end
object Subitem421: TMenuItem
Caption = 'Subitem 42'
end
object Subitem431: TMenuItem
Caption = 'Subitem 43'
end
object Subitem441: TMenuItem
Caption = 'Subitem 44'
end
object Subitem451: TMenuItem
Caption = 'Subitem 45'
end
object Subitem461: TMenuItem
Caption = 'Subitem 46'
end
object Subitem471: TMenuItem
Caption = 'Subitem 47'
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -