diff --git a/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm b/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm index ba9553693..5f6f5f9e2 100644 --- a/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm +++ b/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm @@ -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 diff --git a/components/spktoolbar/designtime/spkte_AppearanceEditor.pas b/components/spktoolbar/designtime/spkte_AppearanceEditor.pas index 5da1419f3..cf34686d6 100644 --- a/components/spktoolbar/designtime/spkte_AppearanceEditor.pas +++ b/components/spktoolbar/designtime/spkte_AppearanceEditor.pas @@ -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.