You've already forked lazarus-ccr
SpkToolbar: Adding missing Appearance editor update (due to TMenuButton). Patch by Husker (https://forum.lazarus.freepascal.org/index.php/topic,51552.msg379413.html#msg379413).
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7736 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -40,6 +40,24 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
Appearance.Tab.GradientToColor = 15587527
|
||||
Appearance.Tab.GradientType = bkConcave
|
||||
Appearance.Tab.InactiveTabHeaderFontColor = 9126421
|
||||
Appearance.MenuButton.CaptionFont.Color = clWhite
|
||||
Appearance.MenuButton.IdleFrameColor = 10569759
|
||||
Appearance.MenuButton.IdleGradientFromColor = 14649927
|
||||
Appearance.MenuButton.IdleGradientToColor = 12017961
|
||||
Appearance.MenuButton.IdleGradientType = bkConcave
|
||||
Appearance.MenuButton.IdleCaptionColor = clWhite
|
||||
Appearance.MenuButton.HotTrackFrameColor = 10569759
|
||||
Appearance.MenuButton.HotTrackGradientFromColor = 15179099
|
||||
Appearance.MenuButton.HotTrackGradientToColor = 12478257
|
||||
Appearance.MenuButton.HotTrackGradientType = bkConcave
|
||||
Appearance.MenuButton.HotTrackCaptionColor = clWhite
|
||||
Appearance.MenuButton.HotTrackBrightnessChange = 40
|
||||
Appearance.MenuButton.ActiveFrameColor = 11095324
|
||||
Appearance.MenuButton.ActiveGradientFromColor = 14518846
|
||||
Appearance.MenuButton.ActiveGradientToColor = 12411174
|
||||
Appearance.MenuButton.ActiveGradientType = bkConcave
|
||||
Appearance.MenuButton.ActiveCaptionColor = clWhite
|
||||
Appearance.MenuButton.ShapeStyle = mbssRounded
|
||||
Appearance.Pane.BorderDarkColor = 14335646
|
||||
Appearance.Pane.BorderLightColor = 16315117
|
||||
Appearance.Pane.CaptionBgColor = 15849922
|
||||
@ -78,6 +96,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
TabIndex = 0
|
||||
Images = SmallImages
|
||||
LargeImages = LargeImages
|
||||
MenuButtonCaption = 'Menu'
|
||||
MenuButtonStyle = mbsCaptionDropdown
|
||||
ShowMenuButton = True
|
||||
Tabs = (
|
||||
'SpkTab1'
|
||||
'SpkTab2'
|
||||
@ -92,6 +113,24 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
CustomAppearance.Tab.GradientToColor = 15587527
|
||||
CustomAppearance.Tab.GradientType = bkConcave
|
||||
CustomAppearance.Tab.InactiveTabHeaderFontColor = 9126421
|
||||
CustomAppearance.MenuButton.CaptionFont.Color = clWhite
|
||||
CustomAppearance.MenuButton.IdleFrameColor = 10569759
|
||||
CustomAppearance.MenuButton.IdleGradientFromColor = 14649927
|
||||
CustomAppearance.MenuButton.IdleGradientToColor = 12017961
|
||||
CustomAppearance.MenuButton.IdleGradientType = bkConcave
|
||||
CustomAppearance.MenuButton.IdleCaptionColor = clWhite
|
||||
CustomAppearance.MenuButton.HotTrackFrameColor = 10569759
|
||||
CustomAppearance.MenuButton.HotTrackGradientFromColor = 15179099
|
||||
CustomAppearance.MenuButton.HotTrackGradientToColor = 12478257
|
||||
CustomAppearance.MenuButton.HotTrackGradientType = bkConcave
|
||||
CustomAppearance.MenuButton.HotTrackCaptionColor = clWhite
|
||||
CustomAppearance.MenuButton.HotTrackBrightnessChange = 40
|
||||
CustomAppearance.MenuButton.ActiveFrameColor = 11095324
|
||||
CustomAppearance.MenuButton.ActiveGradientFromColor = 14518846
|
||||
CustomAppearance.MenuButton.ActiveGradientToColor = 12411174
|
||||
CustomAppearance.MenuButton.ActiveGradientType = bkConcave
|
||||
CustomAppearance.MenuButton.ActiveCaptionColor = clWhite
|
||||
CustomAppearance.MenuButton.ShapeStyle = mbssRounded
|
||||
CustomAppearance.Pane.BorderDarkColor = 14335646
|
||||
CustomAppearance.Pane.BorderLightColor = 16315117
|
||||
CustomAppearance.Pane.CaptionBgColor = 15849922
|
||||
@ -231,6 +270,24 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
CustomAppearance.Tab.GradientToColor = 15587527
|
||||
CustomAppearance.Tab.GradientType = bkConcave
|
||||
CustomAppearance.Tab.InactiveTabHeaderFontColor = 9126421
|
||||
CustomAppearance.MenuButton.CaptionFont.Color = clWhite
|
||||
CustomAppearance.MenuButton.IdleFrameColor = 10569759
|
||||
CustomAppearance.MenuButton.IdleGradientFromColor = 14649927
|
||||
CustomAppearance.MenuButton.IdleGradientToColor = 12017961
|
||||
CustomAppearance.MenuButton.IdleGradientType = bkConcave
|
||||
CustomAppearance.MenuButton.IdleCaptionColor = clWhite
|
||||
CustomAppearance.MenuButton.HotTrackFrameColor = 10569759
|
||||
CustomAppearance.MenuButton.HotTrackGradientFromColor = 15179099
|
||||
CustomAppearance.MenuButton.HotTrackGradientToColor = 12478257
|
||||
CustomAppearance.MenuButton.HotTrackGradientType = bkConcave
|
||||
CustomAppearance.MenuButton.HotTrackCaptionColor = clWhite
|
||||
CustomAppearance.MenuButton.HotTrackBrightnessChange = 40
|
||||
CustomAppearance.MenuButton.ActiveFrameColor = 11095324
|
||||
CustomAppearance.MenuButton.ActiveGradientFromColor = 14518846
|
||||
CustomAppearance.MenuButton.ActiveGradientToColor = 12411174
|
||||
CustomAppearance.MenuButton.ActiveGradientType = bkConcave
|
||||
CustomAppearance.MenuButton.ActiveCaptionColor = clWhite
|
||||
CustomAppearance.MenuButton.ShapeStyle = mbssRounded
|
||||
CustomAppearance.Pane.BorderDarkColor = 14335646
|
||||
CustomAppearance.Pane.BorderLightColor = 16315117
|
||||
CustomAppearance.Pane.CaptionBgColor = 15849922
|
||||
@ -276,10 +333,727 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
Height = 381
|
||||
Top = 133
|
||||
Width = 552
|
||||
ActivePage = TabSheet3
|
||||
ActivePage = TabSheet6
|
||||
Align = alClient
|
||||
TabIndex = 2
|
||||
TabIndex = 0
|
||||
TabOrder = 1
|
||||
object TabSheet6: TTabSheet
|
||||
Caption = 'Menu Button'
|
||||
ClientHeight = 353
|
||||
ClientWidth = 544
|
||||
object pMenuButtonIdleFrame: TPanel
|
||||
AnchorSideLeft.Control = cbLinkItem
|
||||
AnchorSideTop.Control = LblIdle1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 25
|
||||
Top = 50
|
||||
Width = 100
|
||||
BorderSpacing.Top = 4
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 0
|
||||
OnClick = pMenuButtonIdleFrameClick
|
||||
end
|
||||
object LblIdle1: TLabel
|
||||
AnchorSideLeft.Control = pMenuButtonIdleFrame
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = cbLinkItem
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 161
|
||||
Height = 15
|
||||
Top = 31
|
||||
Width = 19
|
||||
Alignment = taCenter
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Idle'
|
||||
ParentColor = False
|
||||
end
|
||||
object pMenuButtonIdleGradientFrom: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonIdleFrame
|
||||
AnchorSideTop.Control = pMenuButtonIdleFrame
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonIdleFrame
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 25
|
||||
Top = 81
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 1
|
||||
OnClick = pMenuButtonIdleGradientFromClick
|
||||
end
|
||||
object pMenuButtonIdleGradientTo: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideTop.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 25
|
||||
Top = 112
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 2
|
||||
OnClick = pMenuButtonIdleGradientToClick
|
||||
end
|
||||
object cbMenuButtonIdleGradientKind: TComboBox
|
||||
AnchorSideLeft.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideTop.Control = pMenuButtonIdleGradientTo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonIdleGradientTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 23
|
||||
Top = 143
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 15
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'None'
|
||||
'Horizontal'
|
||||
'Vertical'
|
||||
'Concave'
|
||||
)
|
||||
OnChange = cbMenuButtonIdleGradientKindChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 3
|
||||
Text = 'None'
|
||||
end
|
||||
object pMenuButtonIdleCaptionColor: TPanel
|
||||
AnchorSideLeft.Control = cbMenuButtonIdleGradientKind
|
||||
AnchorSideTop.Control = cbMenuButtonIdleGradientKind
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonIdleGradientTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 25
|
||||
Top = 172
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 4
|
||||
OnClick = pMenuButtonIdleCaptionColorClick
|
||||
end
|
||||
object Label6: TLabel
|
||||
AnchorSideTop.Control = pMenuButtonIdleFrame
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 67
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Frame'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label22: TLabel
|
||||
AnchorSideTop.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 26
|
||||
Height = 15
|
||||
Top = 86
|
||||
Width = 74
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Gradient from'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label23: TLabel
|
||||
AnchorSideTop.Control = pMenuButtonIdleGradientTo
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 41
|
||||
Height = 15
|
||||
Top = 117
|
||||
Width = 59
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Gradient to'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label30: TLabel
|
||||
AnchorSideTop.Control = cbMenuButtonIdleGradientKind
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 29
|
||||
Height = 15
|
||||
Top = 147
|
||||
Width = 71
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Gradient kind'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label31: TLabel
|
||||
AnchorSideTop.Control = pMenuButtonIdleCaptionColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 28
|
||||
Height = 15
|
||||
Top = 177
|
||||
Width = 72
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Caption color'
|
||||
ParentColor = False
|
||||
end
|
||||
object pMenuButtonFont: TPanel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 25
|
||||
Top = 224
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 14
|
||||
BorderSpacing.Bottom = 4
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Font'
|
||||
TabOrder = 5
|
||||
OnClick = pMenuButtonFontClick
|
||||
end
|
||||
object Label33: TLabel
|
||||
AnchorSideTop.Control = pMenuButtonFont
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 5
|
||||
Height = 15
|
||||
Top = 229
|
||||
Width = 95
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Menu Button font'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label34: TLabel
|
||||
AnchorSideTop.Control = cbMenuButtonShapeStyle
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 40
|
||||
Height = 15
|
||||
Top = 259
|
||||
Width = 60
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Shape Style'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbMenuButtonShapeStyle: TComboBox
|
||||
AnchorSideLeft.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideTop.Control = pMenuButtonFont
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonIdleGradientTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 23
|
||||
Top = 255
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 15
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'Rounded'
|
||||
'Rectangle'
|
||||
)
|
||||
OnChange = cbMenuButtonShapeStyleChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 6
|
||||
Text = 'Rounded'
|
||||
end
|
||||
object edMenuButtonHotTrackBrightnessChange: TSpinEdit
|
||||
AnchorSideTop.Control = cbMenuButtonShapeStyle
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 23
|
||||
Top = 255
|
||||
Width = 100
|
||||
Alignment = taRightJustify
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
MinValue = -100
|
||||
OnChange = edMenuButtonHotTrackBrightnessChangeChange
|
||||
TabOrder = 7
|
||||
end
|
||||
object Label24: TLabel
|
||||
AnchorSideLeft.Control = edMenuButtonHotTrackBrightnessChange
|
||||
AnchorSideBottom.Control = edMenuButtonHotTrackBrightnessChange
|
||||
Left = 263
|
||||
Height = 15
|
||||
Top = 236
|
||||
Width = 97
|
||||
Alignment = taRightJustify
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'Brightness change'
|
||||
ParentColor = False
|
||||
end
|
||||
object pMenuButtonHottrackCaptionColor: TPanel
|
||||
AnchorSideLeft.Control = cbMenuButtonHottrackGradientKind
|
||||
AnchorSideTop.Control = cbMenuButtonHottrackGradientKind
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonHottrackGradientTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pMenuButtonIdleCaptionColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 25
|
||||
Top = 172
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 8
|
||||
OnClick = pMenuButtonHottrackCaptionColorClick
|
||||
end
|
||||
object cbMenuButtonHottrackGradientKind: TComboBox
|
||||
AnchorSideLeft.Control = pMenuButtonHottrackGradientTo
|
||||
AnchorSideTop.Control = pMenuButtonHottrackGradientTo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonHottrackGradientTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 23
|
||||
Top = 143
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 15
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'None'
|
||||
'Horizontal'
|
||||
'Vertical'
|
||||
'Concave'
|
||||
)
|
||||
OnChange = cbMenuButtonHottrackGradientKindChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 9
|
||||
Text = 'None'
|
||||
end
|
||||
object pMenuButtonHottrackGradientTo: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonHottrackGradientFrom
|
||||
AnchorSideTop.Control = pMenuButtonHottrackGradientFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonHottrackGradientFrom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pMenuButtonIdleGradientTo
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 25
|
||||
Top = 112
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 10
|
||||
OnClick = pMenuButtonHottrackGradientToClick
|
||||
end
|
||||
object pMenuButtonHottrackGradientFrom: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideTop.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pMenuButtonIdleGradientFrom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 25
|
||||
Top = 81
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 11
|
||||
OnClick = pMenuButtonHottrackGradientFromClick
|
||||
end
|
||||
object pMenuButtonHottrackFrame: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonIdleFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pMenuButtonIdleFrame
|
||||
AnchorSideBottom.Control = pMenuButtonIdleFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 25
|
||||
Top = 50
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 43
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 12
|
||||
OnClick = pMenuButtonHottrackFrameClick
|
||||
end
|
||||
object LblActive1: TLabel
|
||||
AnchorSideLeft.Control = pMenuButtonActiveFrame
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = LblHotTrack1
|
||||
AnchorSideBottom.Control = LblHotTrack1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 440
|
||||
Height = 15
|
||||
Top = 31
|
||||
Width = 33
|
||||
Alignment = taCenter
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Caption = 'Active'
|
||||
ParentColor = False
|
||||
end
|
||||
object pMenuButtonActiveFrame: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideBottom.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 406
|
||||
Height = 25
|
||||
Top = 50
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 43
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 13
|
||||
OnClick = pMenuButtonActiveFrameClick
|
||||
end
|
||||
object pMenuButtonActiveGradientFrom: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonActiveFrame
|
||||
AnchorSideTop.Control = pMenuButtonActiveFrame
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonActiveFrame
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pMenuButtonHottrackGradientFrom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 406
|
||||
Height = 25
|
||||
Top = 81
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 14
|
||||
OnClick = pMenuButtonActiveGradientFromClick
|
||||
end
|
||||
object pMenuButtonActiveGradientTo: TPanel
|
||||
AnchorSideLeft.Control = pMenuButtonActiveGradientFrom
|
||||
AnchorSideTop.Control = pMenuButtonActiveGradientFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonActiveGradientFrom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pMenuButtonHottrackGradientTo
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 406
|
||||
Height = 25
|
||||
Top = 112
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 15
|
||||
OnClick = pMenuButtonActiveGradientToClick
|
||||
end
|
||||
object cbMenuButtonActiveGradientKind: TComboBox
|
||||
AnchorSideLeft.Control = pMenuButtonActiveGradientTo
|
||||
AnchorSideTop.Control = pMenuButtonActiveGradientTo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pMenuButtonActiveGradientTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 406
|
||||
Height = 23
|
||||
Top = 143
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 15
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'None'
|
||||
'Horizontal'
|
||||
'Vertical'
|
||||
'Concave'
|
||||
)
|
||||
OnChange = cbMenuButtonActiveGradientKindChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 16
|
||||
Text = 'None'
|
||||
end
|
||||
object pMenuButtonActiveCaptionColor: TPanel
|
||||
AnchorSideLeft.Control = cbMenuButtonActiveGradientKind
|
||||
AnchorSideTop.Control = cbMenuButtonActiveGradientKind
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cbMenuButtonActiveGradientKind
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pMenuButtonHottrackCaptionColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 406
|
||||
Height = 25
|
||||
Top = 172
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Caption = 'Color'
|
||||
TabOrder = 17
|
||||
OnClick = pMenuButtonActiveCaptionColorClick
|
||||
end
|
||||
object LblHotTrack1: TLabel
|
||||
AnchorSideLeft.Control = pMenuButtonHottrackFrame
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = LblIdle1
|
||||
AnchorSideBottom.Control = LblIdle1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 290
|
||||
Height = 15
|
||||
Top = 31
|
||||
Width = 46
|
||||
Alignment = taCenter
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Caption = 'Hottrack'
|
||||
ParentColor = False
|
||||
end
|
||||
object bMenuButtonIdleGradientFromColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemIdleFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemHottrackGradientFrom
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 222
|
||||
Height = 24
|
||||
Top = 81
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonIdleGradientFromColorClick
|
||||
end
|
||||
object bMenuButtonIdleFrameColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemIdleFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemIdleFrame
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 222
|
||||
Height = 24
|
||||
Top = 50
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonIdleFrameColorClick
|
||||
end
|
||||
object bMenuButtonIdleGradientToColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemIdleFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemIdleGradientTo
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 222
|
||||
Height = 24
|
||||
Top = 112
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonIdleGradientToColorClick
|
||||
end
|
||||
object bMenuButtonIdleCaptionColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemIdleFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemIdleCaptionColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 222
|
||||
Height = 24
|
||||
Top = 172
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonIdleCaptionColorClick
|
||||
end
|
||||
object bMenuButtonHotTrackCaptionColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemHottrackFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemHottrackCaptionColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 365
|
||||
Height = 24
|
||||
Top = 172
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonHotTrackCaptionColorClick
|
||||
end
|
||||
object bMenuButtonHotTrackGradientToColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemHottrackFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemHottrackGradientTo
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 365
|
||||
Height = 24
|
||||
Top = 112
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonHotTrackGradientToColorClick
|
||||
end
|
||||
object bMenuButtonHotTrackGradientFromColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemHottrackFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemHottrackGradientFrom
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 365
|
||||
Height = 24
|
||||
Top = 81
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonHotTrackGradientFromColorClick
|
||||
end
|
||||
object bMenuButtonHotTrackFrameColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemHottrackFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemHottrackFrame
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 365
|
||||
Height = 24
|
||||
Top = 50
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonHotTrackFrameColorClick
|
||||
end
|
||||
object bMenuButtonActiveFrameColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemActiveFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemActiveFrame
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 508
|
||||
Height = 24
|
||||
Top = 50
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Right = 16
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonActiveFrameColorClick
|
||||
end
|
||||
object bMenuButtonActiveGradientFromColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemActiveFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemActiveGradientFrom
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 508
|
||||
Height = 24
|
||||
Top = 81
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Right = 16
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonActiveGradientFromColorClick
|
||||
end
|
||||
object bMenuButtonActiveGradientToColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemActiveFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemActiveGradientTo
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 508
|
||||
Height = 24
|
||||
Top = 112
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Right = 16
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonActiveGradientToColorClick
|
||||
end
|
||||
object bMenuButtonActiveCaptionColor: TSpeedButton
|
||||
AnchorSideLeft.Control = pItemActiveFrame
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pItemActiveCaptionColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = pTabFrame
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 508
|
||||
Height = 24
|
||||
Top = 172
|
||||
Width = 25
|
||||
AllowAllUp = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Right = 16
|
||||
Flat = True
|
||||
GroupIndex = 1
|
||||
OnClick = bMenuButtonActiveCaptionColorClick
|
||||
end
|
||||
object Label32: TLabel
|
||||
Left = 5
|
||||
Height = 15
|
||||
Top = 312
|
||||
Width = 534
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'Menu Button drawing use Tab Corner Radius and Tab Caption Height to ensure consistancy in design.'
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Tab'
|
||||
ClientHeight = 353
|
||||
@ -2221,7 +2995,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
end
|
||||
object TabSheet4: TTabSheet
|
||||
Caption = 'Import / export'
|
||||
ClientHeight = 354
|
||||
ClientHeight = 353
|
||||
ClientWidth = 544
|
||||
ImageIndex = 3
|
||||
object bImport: TButton
|
||||
@ -2263,7 +3037,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
AnchorSideBottom.Control = TabSheet4
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 317
|
||||
Height = 316
|
||||
Top = 33
|
||||
Width = 536
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
@ -2311,7 +3085,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
end
|
||||
object TabSheet5: TTabSheet
|
||||
Caption = 'Tools'
|
||||
ClientHeight = 354
|
||||
ClientHeight = 353
|
||||
ClientWidth = 544
|
||||
ImageIndex = 4
|
||||
object Label17: TLabel
|
||||
@ -2447,8 +3221,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
'ColorS=F0FBFF'
|
||||
'ColorT=A4A0A0'
|
||||
)
|
||||
left = 280
|
||||
top = 504
|
||||
Left = 280
|
||||
Top = 504
|
||||
end
|
||||
object fdFontDialog: TFontDialog
|
||||
Font.Color = clWindowText
|
||||
@ -2456,13 +3230,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
Font.Name = 'Tahoma'
|
||||
MinFontSize = 0
|
||||
MaxFontSize = 0
|
||||
left = 376
|
||||
top = 504
|
||||
Left = 376
|
||||
Top = 504
|
||||
end
|
||||
object Images_200: TImageList
|
||||
Height = 32
|
||||
Width = 32
|
||||
left = 344
|
||||
Left = 344
|
||||
Bitmap = {
|
||||
4C7A010000002000000020000000BF0300000000000078DABDD76D4C53571807
|
||||
F09A98B2CC49D204891F1C51A3B82D6314992B2A4294D23134ACA56F54966C8E
|
||||
@ -2498,7 +3272,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
}
|
||||
end
|
||||
object Images_100: TImageList
|
||||
left = 488
|
||||
Left = 488
|
||||
Bitmap = {
|
||||
4C7A010000001000000010000000870100000000000078DA9DD2BB4B42511C07
|
||||
70FF88F6A02168BA9669434B18D15299F7E1F566104614053D307B2C2E414B14
|
||||
@ -2518,7 +3292,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
object Images_150: TImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
left = 416
|
||||
Left = 416
|
||||
Bitmap = {
|
||||
4C7A0100000018000000180000002D0300000000000078DAAD94FB4B936114C7
|
||||
5F77C9699BA676D10CD1302F5D84065A32319BE56C66656574F5D6C552514B96
|
||||
@ -2552,9 +3326,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
||||
object LargeImages: TImageList
|
||||
Height = 32
|
||||
Width = 32
|
||||
left = 192
|
||||
Left = 192
|
||||
end
|
||||
object SmallImages: TImageList
|
||||
left = 272
|
||||
Left = 272
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,9 +15,54 @@ type
|
||||
{ TfrmAppearanceEditWindow }
|
||||
|
||||
TfrmAppearanceEditWindow = class(TForm)
|
||||
bMenuButtonActiveCaptionColor: TSpeedButton;
|
||||
bMenuButtonActiveFrameColor: TSpeedButton;
|
||||
bMenuButtonActiveGradientFromColor: TSpeedButton;
|
||||
bMenuButtonActiveGradientToColor: TSpeedButton;
|
||||
bMenuButtonHotTrackCaptionColor: TSpeedButton;
|
||||
bMenuButtonHotTrackFrameColor: TSpeedButton;
|
||||
bMenuButtonHotTrackGradientFromColor: TSpeedButton;
|
||||
bMenuButtonHotTrackGradientToColor: TSpeedButton;
|
||||
bMenuButtonIdleCaptionColor: TSpeedButton;
|
||||
bMenuButtonIdleFrameColor: TSpeedButton;
|
||||
bMenuButtonIdleGradientFromColor: TSpeedButton;
|
||||
bMenuButtonIdleGradientToColor: TSpeedButton;
|
||||
cbMenuButtonActiveGradientKind: TComboBox;
|
||||
cbMenuButtonHottrackGradientKind: TComboBox;
|
||||
cbMenuButtonIdleGradientKind: TComboBox;
|
||||
cbMenuButtonShapeStyle: TComboBox;
|
||||
edMenuButtonHotTrackBrightnessChange: TSpinEdit;
|
||||
|
||||
edTabCaptionHeight: TSpinEdit;
|
||||
Label22: TLabel;
|
||||
Label23: TLabel;
|
||||
Label24: TLabel;
|
||||
Label30: TLabel;
|
||||
Label31: TLabel;
|
||||
Label32: TLabel;
|
||||
Label33: TLabel;
|
||||
Label34: TLabel;
|
||||
Label6: TLabel;
|
||||
LblActive1: TLabel;
|
||||
LblHotTrack1: TLabel;
|
||||
LblIdle1: TLabel;
|
||||
lblTabCornerRadius: TLabel;
|
||||
lblTabCaptionHeight: TLabel;
|
||||
|
||||
pMenuButtonActiveCaptionColor: TPanel;
|
||||
pMenuButtonActiveFrame: TPanel;
|
||||
pMenuButtonActiveGradientFrom: TPanel;
|
||||
pMenuButtonActiveGradientTo: TPanel;
|
||||
pMenuButtonFont: TPanel;
|
||||
pMenuButtonHottrackCaptionColor: TPanel;
|
||||
pMenuButtonHottrackFrame: TPanel;
|
||||
pMenuButtonHottrackGradientFrom: TPanel;
|
||||
pMenuButtonHottrackGradientTo: TPanel;
|
||||
pMenuButtonIdleCaptionColor: TPanel;
|
||||
pMenuButtonIdleFrame: TPanel;
|
||||
pMenuButtonIdleGradientFrom: TPanel;
|
||||
pMenuButtonIdleGradientTo: TPanel;
|
||||
|
||||
SmallImages: TImageList;
|
||||
LargeImages: TImageList;
|
||||
Images_150: TImageList;
|
||||
@ -30,6 +75,7 @@ type
|
||||
edPaneHotTrackBrightnessChange: TSpinEdit;
|
||||
edItemHotTrackBrightnessChange: TSpinEdit;
|
||||
edTabCornerRadius: TSpinEdit;
|
||||
TabSheet6: TTabSheet;
|
||||
TabVSpacer: TBevel;
|
||||
bInactiveTabHeaderFontColor: TSpeedButton;
|
||||
bItemActiveInnerDarkColor: TSpeedButton;
|
||||
@ -274,6 +320,44 @@ type
|
||||
|
||||
procedure pTabHeaderFontClick(Sender: TObject);
|
||||
|
||||
{ Support for managing appearance of Menu Button }
|
||||
procedure bMenuButtonIdleFrameColorClick(Sender: TObject);
|
||||
procedure bMenuButtonIdleGradientFromColorClick(Sender: TObject);
|
||||
procedure bMenuButtonIdleGradientToColorClick(Sender: TObject);
|
||||
procedure bMenuButtonIdleCaptionColorClick(Sender: TObject);
|
||||
procedure bMenuButtonHotTrackFrameColorClick(Sender: TObject);
|
||||
procedure bMenuButtonHotTrackGradientFromColorClick(Sender: TObject);
|
||||
procedure bMenuButtonHotTrackGradientToColorClick(Sender: TObject);
|
||||
procedure bMenuButtonHotTrackCaptionColorClick(Sender: TObject);
|
||||
procedure bMenuButtonActiveFrameColorClick(Sender: TObject);
|
||||
procedure bMenuButtonActiveGradientFromColorClick(Sender: TObject);
|
||||
procedure bMenuButtonActiveGradientToColorClick(Sender: TObject);
|
||||
procedure bMenuButtonActiveCaptionColorClick(Sender: TObject);
|
||||
|
||||
procedure cbMenuButtonIdleGradientKindChange(Sender: TObject);
|
||||
procedure cbMenuButtonHottrackGradientKindChange(Sender: TObject);
|
||||
procedure cbMenuButtonActiveGradientKindChange(Sender: TObject);
|
||||
procedure cbMenuButtonShapeStyleChange(Sender: TObject);
|
||||
|
||||
procedure edMenuButtonHotTrackBrightnessChangeChange(Sender: TObject);
|
||||
|
||||
procedure pMenuButtonIdleFrameClick(Sender: TObject);
|
||||
procedure pMenuButtonIdleGradientFromClick(Sender: TObject);
|
||||
procedure pMenuButtonIdleGradientToClick(Sender: TObject);
|
||||
procedure pMenuButtonIdleCaptionColorClick(Sender: TObject);
|
||||
|
||||
procedure pMenuButtonHottrackFrameClick(Sender: TObject);
|
||||
procedure pMenuButtonHottrackGradientFromClick(Sender: TObject);
|
||||
procedure pMenuButtonHottrackGradientToClick(Sender: TObject);
|
||||
procedure pMenuButtonHottrackCaptionColorClick(Sender: TObject);
|
||||
|
||||
procedure pMenuButtonActiveFrameClick(Sender: TObject);
|
||||
procedure pMenuButtonActiveGradientFromClick(Sender: TObject);
|
||||
procedure pMenuButtonActiveGradientToClick(Sender: TObject);
|
||||
procedure pMenuButtonActiveCaptionColorClick(Sender: TObject);
|
||||
|
||||
procedure pMenuButtonFontClick(Sender: TObject);
|
||||
|
||||
private
|
||||
procedure SetLinkedFrameColor(AColor : TColor);
|
||||
procedure SetLinkedGradientFromColor(AColor : TColor);
|
||||
@ -912,6 +996,32 @@ begin
|
||||
edTabCaptionHeight.Value := CaptionHeight;
|
||||
end;
|
||||
|
||||
with MenuButton do
|
||||
begin
|
||||
SetPanelFont(pMenuButtonFont, CaptionFont);
|
||||
|
||||
SetPanelColor(pMenuButtonIdleFrame, IdleFrameColor);
|
||||
SetPanelColor(pMenuButtonIdleGradientFrom, IdleGradientFromColor);
|
||||
SetPanelColor(pMenuButtonIdleGradientTo, IdleGradientToColor);
|
||||
SetComboGradientKind(cbMenuButtonIdleGradientKind, IdleGradientType);
|
||||
SetPanelColor(pMenuButtonIdleCaptionColor, IdleCaptionColor);
|
||||
|
||||
SetPanelColor(pMenuButtonHottrackFrame, HottrackFrameColor);
|
||||
SetPanelColor(pMenuButtonHottrackGradientFrom, HottrackGradientFromColor);
|
||||
SetPanelColor(pMenuButtonHottrackGradientTo, HottrackGradientToColor);
|
||||
SetComboGradientKind(cbMenuButtonHottrackGradientKind, HottrackGradientType);
|
||||
SetPanelColor(pMenuButtonHottrackCaptionColor, HottrackCaptionColor);
|
||||
|
||||
SetPanelColor(pMenuButtonActiveFrame, ActiveFrameColor);
|
||||
SetPanelColor(pMenuButtonActiveGradientFrom, ActiveGradientFromColor);
|
||||
SetPanelColor(pMenuButtonActiveGradientTo, ActiveGradientToColor);
|
||||
SetComboGradientKind(cbMenuButtonActiveGradientKind, ActiveGradientType);
|
||||
SetPanelColor(pMenuButtonActiveCaptionColor, ActiveCaptionColor);
|
||||
|
||||
cbMenuButtonShapeStyle.ItemIndex := ord(ShapeStyle);
|
||||
edMenuButtonHotTrackBrightnessChange.Value := HotTrackBrightnessChange;
|
||||
end;
|
||||
|
||||
with Pane do
|
||||
begin
|
||||
SetPanelColor(pPaneBorderDark, BorderDarkColor);
|
||||
@ -1430,6 +1540,21 @@ begin
|
||||
imglist.GetBitmap(0, bItemActiveGradientToColor.Glyph);
|
||||
imglist.GetBitmap(0, bItemActiveInnerDarkColor.Glyph);
|
||||
imglist.GetBitmap(0, bItemActiveInnerLightColor.Glyph);
|
||||
|
||||
imglist.GetBitmap(0, bMenuButtonIdleCaptionColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonIdleFrameColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonIdleGradientFromColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonIdleGradientToColor.Glyph);
|
||||
|
||||
imglist.GetBitmap(0, bMenuButtonHotTrackCaptionColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonHotTrackFrameColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonHotTrackGradientFromColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonHotTrackGradientToColor.Glyph);
|
||||
|
||||
imglist.GetBitmap(0, bMenuButtonActiveCaptionColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonActiveFrameColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonActiveGradientFromColor.Glyph);
|
||||
imglist.GetBitmap(0, bMenuButtonActiveGradientToColor.Glyph);
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.UpdateSizes;
|
||||
@ -1486,6 +1611,15 @@ begin
|
||||
pItemIdleInnerLight.Height := h;
|
||||
pItemFont.Height := h;
|
||||
|
||||
pMenuButtonIdleFrame.Width := w;
|
||||
pMenuButtonHotTrackFrame.Width := w;
|
||||
pMenuButtonActiveFrame.Width := w;
|
||||
pMenuButtonIdleFrame.Height := h;
|
||||
pMenuButtonIdleGradientFrom.Height := h;
|
||||
pMenuButtonIdleGradientTo.Height := h;
|
||||
pMenuButtonIdleCaptionColor.Height := h;
|
||||
pMenuButtonFont.Height := h;
|
||||
|
||||
// TabSheet2 requires the largest height
|
||||
h := Height - TabSheet2.ClientHeight; // This is the height outside the tabsheet
|
||||
// Add the heights of all controls
|
||||
@ -1514,6 +1648,221 @@ begin
|
||||
Position := poScreenCenter;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonIdleFrameColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonIdleFrame) then
|
||||
tbPreview.Appearance.MenuButton.IdleFrameColor := pMenuButtonIdleFrame.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonIdleGradientFromColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonIdleGradientFrom) then
|
||||
tbPreview.Appearance.MenuButton.IdleGradientFromColor := pMenuButtonIdleGradientFrom.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonIdleGradientToColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonIdleGradientTo) then
|
||||
tbPreview.Appearance.MenuButton.IdleGradientToColor := pMenuButtonIdleGradientTo.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonIdleCaptionColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonIdleCaptionColor) then
|
||||
tbPreview.Appearance.MenuButton.IdleCaptionColor := pMenuButtonIdleCaptionColor.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonHotTrackFrameColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonHotTrackFrame) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackFrameColor := pMenuButtonHotTrackFrame.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonHotTrackGradientFromColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonHotTrackGradientFrom) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackGradientFromColor := pMenuButtonHotTrackGradientFrom.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonHotTrackGradientToColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonHotTrackGradientTo) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackGradientToColor := pMenuButtonHotTrackGradientTo.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonHotTrackCaptionColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonHotTrackCaptionColor) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackCaptionColor := pMenuButtonHotTrackCaptionColor.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonActiveFrameColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonActiveFrame) then
|
||||
tbPreview.Appearance.MenuButton.ActiveFrameColor := pMenuButtonActiveFrame.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonActiveGradientFromColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonActiveGradientFrom) then
|
||||
tbPreview.Appearance.MenuButton.ActiveGradientFromColor := pMenuButtonActiveGradientFrom.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonActiveGradientToColorClick(Sender: TObject);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonActiveGradientTo) then
|
||||
tbPreview.Appearance.MenuButton.ActiveGradientToColor := pMenuButtonActiveGradientTo.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.bMenuButtonActiveCaptionColorClick(Sender: TObject
|
||||
);
|
||||
begin
|
||||
(Sender as TSpeedButton).Down := true;
|
||||
if PickColor(pMenuButtonActiveCaptionColor) then
|
||||
tbPreview.Appearance.MenuButton.ActiveCaptionColor := pMenuButtonActiveCaptionColor.Color;
|
||||
(Sender as TSpeedButton).Down := false;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonIdleFrameClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.IdleFrameColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonIdleGradientFromClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.IdleGradientFromColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonIdleGradientToClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.IdleGradientToColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.cbMenuButtonIdleGradientKindChange(Sender: TObject);
|
||||
begin
|
||||
with tbPreview.Appearance.MenuButton do
|
||||
IdleGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonIdleCaptionColorClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
begin
|
||||
tbPreview.Appearance.MenuButton.IdleCaptionColor := (Sender as TPanel).Color;
|
||||
tbPreview.ForceRepaint;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonHottrackFrameClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackFrameColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonHottrackGradientFromClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackGradientFromColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonHottrackGradientToClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.HotTrackGradientToColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.cbMenuButtonHottrackGradientKindChange(Sender: TObject);
|
||||
begin
|
||||
with tbPreview.Appearance.MenuButton do
|
||||
HotTrackGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonHottrackCaptionColorClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
begin
|
||||
tbPreview.Appearance.MenuButton.HotTrackCaptionColor := (Sender as TPanel).Color;
|
||||
tbPreview.ForceRepaint;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonActiveFrameClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.ActiveFrameColor:=(Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonActiveGradientFromClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.ActiveGradientFromColor:=(Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonActiveGradientToClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.ActiveGradientToColor := (Sender as TPanel).Color;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.cbMenuButtonActiveGradientKindChange(Sender: TObject);
|
||||
begin
|
||||
with tbPreview.Appearance.MenuButton do
|
||||
ActiveGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonActiveCaptionColorClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeColor(Sender as TPanel) then begin
|
||||
tbPreview.Appearance.MenuButton.ActiveCaptionColor:=(Sender as TPanel).Color;
|
||||
tbPreview.ForceRepaint;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.pMenuButtonFontClick(Sender: TObject);
|
||||
begin
|
||||
if ChangeFont(Sender as TPanel) then
|
||||
tbPreview.Appearance.MenuButton.CaptionFont.Assign((Sender as TPanel).Font);
|
||||
tbPreview.ForceRepaint;
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.cbMenuButtonShapeStyleChange(Sender: TObject);
|
||||
begin
|
||||
with tbPreview.Appearance.MenuButton do
|
||||
ShapeStyle := TSpkMenuButtonShapeStyle((Sender as TCombobox).ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TfrmAppearanceEditWindow.edMenuButtonHotTrackBrightnessChangeChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
with tbPreview.Appearance.MenuButton do
|
||||
HotTrackBrightnessChange := (Sender as TSpinEdit).Value;
|
||||
tbPreview.Invalidate;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user