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.GradientToColor = 15587527
|
||||||
Appearance.Tab.GradientType = bkConcave
|
Appearance.Tab.GradientType = bkConcave
|
||||||
Appearance.Tab.InactiveTabHeaderFontColor = 9126421
|
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.BorderDarkColor = 14335646
|
||||||
Appearance.Pane.BorderLightColor = 16315117
|
Appearance.Pane.BorderLightColor = 16315117
|
||||||
Appearance.Pane.CaptionBgColor = 15849922
|
Appearance.Pane.CaptionBgColor = 15849922
|
||||||
@ -78,6 +96,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
TabIndex = 0
|
TabIndex = 0
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
LargeImages = LargeImages
|
LargeImages = LargeImages
|
||||||
|
MenuButtonCaption = 'Menu'
|
||||||
|
MenuButtonStyle = mbsCaptionDropdown
|
||||||
|
ShowMenuButton = True
|
||||||
Tabs = (
|
Tabs = (
|
||||||
'SpkTab1'
|
'SpkTab1'
|
||||||
'SpkTab2'
|
'SpkTab2'
|
||||||
@ -92,6 +113,24 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
CustomAppearance.Tab.GradientToColor = 15587527
|
CustomAppearance.Tab.GradientToColor = 15587527
|
||||||
CustomAppearance.Tab.GradientType = bkConcave
|
CustomAppearance.Tab.GradientType = bkConcave
|
||||||
CustomAppearance.Tab.InactiveTabHeaderFontColor = 9126421
|
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.BorderDarkColor = 14335646
|
||||||
CustomAppearance.Pane.BorderLightColor = 16315117
|
CustomAppearance.Pane.BorderLightColor = 16315117
|
||||||
CustomAppearance.Pane.CaptionBgColor = 15849922
|
CustomAppearance.Pane.CaptionBgColor = 15849922
|
||||||
@ -231,6 +270,24 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
CustomAppearance.Tab.GradientToColor = 15587527
|
CustomAppearance.Tab.GradientToColor = 15587527
|
||||||
CustomAppearance.Tab.GradientType = bkConcave
|
CustomAppearance.Tab.GradientType = bkConcave
|
||||||
CustomAppearance.Tab.InactiveTabHeaderFontColor = 9126421
|
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.BorderDarkColor = 14335646
|
||||||
CustomAppearance.Pane.BorderLightColor = 16315117
|
CustomAppearance.Pane.BorderLightColor = 16315117
|
||||||
CustomAppearance.Pane.CaptionBgColor = 15849922
|
CustomAppearance.Pane.CaptionBgColor = 15849922
|
||||||
@ -276,10 +333,727 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
Height = 381
|
Height = 381
|
||||||
Top = 133
|
Top = 133
|
||||||
Width = 552
|
Width = 552
|
||||||
ActivePage = TabSheet3
|
ActivePage = TabSheet6
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabIndex = 2
|
TabIndex = 0
|
||||||
TabOrder = 1
|
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
|
object TabSheet1: TTabSheet
|
||||||
Caption = 'Tab'
|
Caption = 'Tab'
|
||||||
ClientHeight = 353
|
ClientHeight = 353
|
||||||
@ -2221,7 +2995,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
end
|
end
|
||||||
object TabSheet4: TTabSheet
|
object TabSheet4: TTabSheet
|
||||||
Caption = 'Import / export'
|
Caption = 'Import / export'
|
||||||
ClientHeight = 354
|
ClientHeight = 353
|
||||||
ClientWidth = 544
|
ClientWidth = 544
|
||||||
ImageIndex = 3
|
ImageIndex = 3
|
||||||
object bImport: TButton
|
object bImport: TButton
|
||||||
@ -2263,7 +3037,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
AnchorSideBottom.Control = TabSheet4
|
AnchorSideBottom.Control = TabSheet4
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 4
|
Left = 4
|
||||||
Height = 317
|
Height = 316
|
||||||
Top = 33
|
Top = 33
|
||||||
Width = 536
|
Width = 536
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
@ -2311,7 +3085,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
end
|
end
|
||||||
object TabSheet5: TTabSheet
|
object TabSheet5: TTabSheet
|
||||||
Caption = 'Tools'
|
Caption = 'Tools'
|
||||||
ClientHeight = 354
|
ClientHeight = 353
|
||||||
ClientWidth = 544
|
ClientWidth = 544
|
||||||
ImageIndex = 4
|
ImageIndex = 4
|
||||||
object Label17: TLabel
|
object Label17: TLabel
|
||||||
@ -2447,8 +3221,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
'ColorS=F0FBFF'
|
'ColorS=F0FBFF'
|
||||||
'ColorT=A4A0A0'
|
'ColorT=A4A0A0'
|
||||||
)
|
)
|
||||||
left = 280
|
Left = 280
|
||||||
top = 504
|
Top = 504
|
||||||
end
|
end
|
||||||
object fdFontDialog: TFontDialog
|
object fdFontDialog: TFontDialog
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -2456,13 +3230,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
MinFontSize = 0
|
MinFontSize = 0
|
||||||
MaxFontSize = 0
|
MaxFontSize = 0
|
||||||
left = 376
|
Left = 376
|
||||||
top = 504
|
Top = 504
|
||||||
end
|
end
|
||||||
object Images_200: TImageList
|
object Images_200: TImageList
|
||||||
Height = 32
|
Height = 32
|
||||||
Width = 32
|
Width = 32
|
||||||
left = 344
|
Left = 344
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C7A010000002000000020000000BF0300000000000078DABDD76D4C53571807
|
4C7A010000002000000020000000BF0300000000000078DABDD76D4C53571807
|
||||||
F09A98B2CC49D204891F1C51A3B82D6314992B2A4294D23134ACA56F54966C8E
|
F09A98B2CC49D204891F1C51A3B82D6314992B2A4294D23134ACA56F54966C8E
|
||||||
@ -2498,7 +3272,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
}
|
}
|
||||||
end
|
end
|
||||||
object Images_100: TImageList
|
object Images_100: TImageList
|
||||||
left = 488
|
Left = 488
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C7A010000001000000010000000870100000000000078DA9DD2BB4B42511C07
|
4C7A010000001000000010000000870100000000000078DA9DD2BB4B42511C07
|
||||||
70FF88F6A02168BA9669434B18D15299F7E1F566104614053D307B2C2E414B14
|
70FF88F6A02168BA9669434B18D15299F7E1F566104614053D307B2C2E414B14
|
||||||
@ -2518,7 +3292,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
object Images_150: TImageList
|
object Images_150: TImageList
|
||||||
Height = 24
|
Height = 24
|
||||||
Width = 24
|
Width = 24
|
||||||
left = 416
|
Left = 416
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C7A0100000018000000180000002D0300000000000078DAAD94FB4B936114C7
|
4C7A0100000018000000180000002D0300000000000078DAAD94FB4B936114C7
|
||||||
5F77C9699BA676D10CD1302F5D84065A32319BE56C66656574F5D6C552514B96
|
5F77C9699BA676D10CD1302F5D84065A32319BE56C66656574F5D6C552514B96
|
||||||
@ -2552,9 +3326,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
|
|||||||
object LargeImages: TImageList
|
object LargeImages: TImageList
|
||||||
Height = 32
|
Height = 32
|
||||||
Width = 32
|
Width = 32
|
||||||
left = 192
|
Left = 192
|
||||||
end
|
end
|
||||||
object SmallImages: TImageList
|
object SmallImages: TImageList
|
||||||
left = 272
|
Left = 272
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -15,9 +15,54 @@ type
|
|||||||
{ TfrmAppearanceEditWindow }
|
{ TfrmAppearanceEditWindow }
|
||||||
|
|
||||||
TfrmAppearanceEditWindow = class(TForm)
|
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;
|
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;
|
lblTabCornerRadius: TLabel;
|
||||||
lblTabCaptionHeight: 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;
|
SmallImages: TImageList;
|
||||||
LargeImages: TImageList;
|
LargeImages: TImageList;
|
||||||
Images_150: TImageList;
|
Images_150: TImageList;
|
||||||
@ -30,6 +75,7 @@ type
|
|||||||
edPaneHotTrackBrightnessChange: TSpinEdit;
|
edPaneHotTrackBrightnessChange: TSpinEdit;
|
||||||
edItemHotTrackBrightnessChange: TSpinEdit;
|
edItemHotTrackBrightnessChange: TSpinEdit;
|
||||||
edTabCornerRadius: TSpinEdit;
|
edTabCornerRadius: TSpinEdit;
|
||||||
|
TabSheet6: TTabSheet;
|
||||||
TabVSpacer: TBevel;
|
TabVSpacer: TBevel;
|
||||||
bInactiveTabHeaderFontColor: TSpeedButton;
|
bInactiveTabHeaderFontColor: TSpeedButton;
|
||||||
bItemActiveInnerDarkColor: TSpeedButton;
|
bItemActiveInnerDarkColor: TSpeedButton;
|
||||||
@ -274,6 +320,44 @@ type
|
|||||||
|
|
||||||
procedure pTabHeaderFontClick(Sender: TObject);
|
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
|
private
|
||||||
procedure SetLinkedFrameColor(AColor : TColor);
|
procedure SetLinkedFrameColor(AColor : TColor);
|
||||||
procedure SetLinkedGradientFromColor(AColor : TColor);
|
procedure SetLinkedGradientFromColor(AColor : TColor);
|
||||||
@ -912,6 +996,32 @@ begin
|
|||||||
edTabCaptionHeight.Value := CaptionHeight;
|
edTabCaptionHeight.Value := CaptionHeight;
|
||||||
end;
|
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
|
with Pane do
|
||||||
begin
|
begin
|
||||||
SetPanelColor(pPaneBorderDark, BorderDarkColor);
|
SetPanelColor(pPaneBorderDark, BorderDarkColor);
|
||||||
@ -1430,6 +1540,21 @@ begin
|
|||||||
imglist.GetBitmap(0, bItemActiveGradientToColor.Glyph);
|
imglist.GetBitmap(0, bItemActiveGradientToColor.Glyph);
|
||||||
imglist.GetBitmap(0, bItemActiveInnerDarkColor.Glyph);
|
imglist.GetBitmap(0, bItemActiveInnerDarkColor.Glyph);
|
||||||
imglist.GetBitmap(0, bItemActiveInnerLightColor.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;
|
end;
|
||||||
|
|
||||||
procedure TfrmAppearanceEditWindow.UpdateSizes;
|
procedure TfrmAppearanceEditWindow.UpdateSizes;
|
||||||
@ -1486,6 +1611,15 @@ begin
|
|||||||
pItemIdleInnerLight.Height := h;
|
pItemIdleInnerLight.Height := h;
|
||||||
pItemFont.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
|
// TabSheet2 requires the largest height
|
||||||
h := Height - TabSheet2.ClientHeight; // This is the height outside the tabsheet
|
h := Height - TabSheet2.ClientHeight; // This is the height outside the tabsheet
|
||||||
// Add the heights of all controls
|
// Add the heights of all controls
|
||||||
@ -1514,6 +1648,221 @@ begin
|
|||||||
Position := poScreenCenter;
|
Position := poScreenCenter;
|
||||||
end;
|
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.
|
end.
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user