From 171f166623a5c66b3bd6c25b43027659c684eca8 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 2 Oct 2020 21:35:00 +0000 Subject: [PATCH] SpkToolbar: Update Styles demo to show the new 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@7734 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../spktoolbar/demos/actions/project1.lpi | 9 +- .../spktoolbar/demos/actions/project1.lpr | 1 + .../spktoolbar/demos/basic/Project1.lpi | 3 - .../spktoolbar/demos/styles/project1.lpi | 16 +- .../spktoolbar/demos/styles/project1.lpr | 1 + components/spktoolbar/demos/styles/unit1.lfm | 214 ++++++++++++++++++ 6 files changed, 228 insertions(+), 16 deletions(-) diff --git a/components/spktoolbar/demos/actions/project1.lpi b/components/spktoolbar/demos/actions/project1.lpi index a51c07458..611e61bd0 100644 --- a/components/spktoolbar/demos/actions/project1.lpi +++ b/components/spktoolbar/demos/actions/project1.lpi @@ -1,11 +1,13 @@ - + + + + - <Scaled Value="True"/> <ResourceType Value="res"/> @@ -74,9 +76,6 @@ <SmartLinkUnit Value="True"/> </CodeGeneration> <Linking> - <Debugging> - <DebugInfoType Value="dsDwarf2"/> - </Debugging> <LinkSmart Value="True"/> <Options> <Win32> diff --git a/components/spktoolbar/demos/actions/project1.lpr b/components/spktoolbar/demos/actions/project1.lpr index 284a86303..b4da140d6 100644 --- a/components/spktoolbar/demos/actions/project1.lpr +++ b/components/spktoolbar/demos/actions/project1.lpr @@ -17,6 +17,7 @@ begin Application.Scaled:=True; {$ENDIF} RequireDerivedFormResource := True; + Application.Scaled:=True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; diff --git a/components/spktoolbar/demos/basic/Project1.lpi b/components/spktoolbar/demos/basic/Project1.lpi index f196fbb59..f271b1eb3 100644 --- a/components/spktoolbar/demos/basic/Project1.lpi +++ b/components/spktoolbar/demos/basic/Project1.lpi @@ -69,9 +69,6 @@ </Optimizations> </CodeGeneration> <Linking> - <Debugging> - <DebugInfoType Value="dsDwarf2"/> - </Debugging> <LinkSmart Value="True"/> <Options> <Win32> diff --git a/components/spktoolbar/demos/styles/project1.lpi b/components/spktoolbar/demos/styles/project1.lpi index e50016c04..2e01592ff 100644 --- a/components/spktoolbar/demos/styles/project1.lpi +++ b/components/spktoolbar/demos/styles/project1.lpi @@ -1,11 +1,13 @@ <?xml version="1.0" encoding="UTF-8"?> <CONFIG> <ProjectOptions> - <Version Value="10"/> + <Version Value="12"/> <PathDelim Value="\"/> <General> + <Flags> + <CompatibilityMode Value="True"/> + </Flags> <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> <Title Value="project1"/> <Scaled Value="True"/> <ResourceType Value="res"/> @@ -18,9 +20,10 @@ <Version Value="2"/> </PublishOptions> <RunParams> - <local> - <FormatVersion Value="1"/> - </local> + <FormatVersion Value="2"/> + <Modes Count="1"> + <Mode0 Name="default"/> + </Modes> </RunParams> <RequiredPackages Count="2"> <Item1> @@ -56,9 +59,6 @@ <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> </SearchPaths> <Linking> - <Debugging> - <UseExternalDbgSyms Value="True"/> - </Debugging> <Options> <Win32> <GraphicApplication Value="True"/> diff --git a/components/spktoolbar/demos/styles/project1.lpr b/components/spktoolbar/demos/styles/project1.lpr index ba4a8442b..33c37a4e5 100644 --- a/components/spktoolbar/demos/styles/project1.lpr +++ b/components/spktoolbar/demos/styles/project1.lpr @@ -17,6 +17,7 @@ begin Application.Scaled := True; {$ENDIF} RequireDerivedFormResource := True; + Application.Scaled:=True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; diff --git a/components/spktoolbar/demos/styles/unit1.lfm b/components/spktoolbar/demos/styles/unit1.lfm index f6f2c3c50..d9bf4af37 100644 --- a/components/spktoolbar/demos/styles/unit1.lfm +++ b/components/spktoolbar/demos/styles/unit1.lfm @@ -27,10 +27,29 @@ object Form1: TForm1 Color = clMedGray Appearance.Tab.TabHeaderFont.Color = 9126421 Appearance.Tab.BorderColor = 14922381 + Appearance.Tab.CornerRadius = 4 Appearance.Tab.GradientFromColor = 16115934 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 @@ -65,16 +84,37 @@ object Form1: TForm1 TabIndex = 0 Images = SmallImages LargeImages = LargeImages + MenuButtonCaption = 'Menu' + ShowMenuButton = True Tabs = ( 'SpkTab1' ) object SpkTab1: TSpkTab CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.BorderColor = 14922381 + CustomAppearance.Tab.CornerRadius = 4 CustomAppearance.Tab.GradientFromColor = 16115934 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 @@ -115,6 +155,7 @@ object Form1: TForm1 ) object SpkPane1: TSpkPane Caption = 'File commands' + ShowMoreOptionsButton = True Items = ( 'SpkLargeButton1' 'SpkLargeButton14' @@ -151,6 +192,8 @@ object Form1: TForm1 end object SpkPane10: TSpkPane Caption = 'Edit commands' + ShowMoreOptionsButtonStyle = mobsArrow + ShowMoreOptionsButton = True Items = ( 'SpkSmallButton31' 'SpkSmallButton32' @@ -276,10 +319,29 @@ object Form1: TForm1 Style = spkOffice2007Silver Appearance.Tab.TabHeaderFont.Color = 8016716 Appearance.Tab.BorderColor = 12500670 + Appearance.Tab.CornerRadius = 4 Appearance.Tab.GradientFromColor = 16052978 Appearance.Tab.GradientToColor = 15722209 Appearance.Tab.GradientType = bkConcave Appearance.Tab.InactiveTabHeaderFontColor = 8016716 + 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 = 10921638 Appearance.Pane.BorderLightColor = clWhite Appearance.Pane.CaptionBgColor = 15000804 @@ -314,16 +376,37 @@ object Form1: TForm1 TabIndex = 0 Images = SmallImages LargeImages = LargeImages + MenuButtonCaption = 'Menu' + ShowMenuButton = True Tabs = ( 'SpkTab2' ) object SpkTab2: TSpkTab CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.BorderColor = 14922381 + CustomAppearance.Tab.CornerRadius = 4 CustomAppearance.Tab.GradientFromColor = 16115934 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 @@ -364,6 +447,7 @@ object Form1: TForm1 ) object SpkPane2: TSpkPane Caption = 'File commands' + ShowMoreOptionsButton = True Items = ( 'SpkLargeButton2' 'SpkLargeButton12' @@ -400,6 +484,8 @@ object Form1: TForm1 end object SpkPane3: TSpkPane Caption = 'Edit commands' + ShowMoreOptionsButtonStyle = mobsArrow + ShowMoreOptionsButton = True Items = ( 'SpkSmallButton24' 'SpkSmallButton25' @@ -524,10 +610,29 @@ object Form1: TForm1 Style = spkOffice2007SilverTurquoise Appearance.Tab.TabHeaderFont.Color = 8016716 Appearance.Tab.BorderColor = 12500670 + Appearance.Tab.CornerRadius = 4 Appearance.Tab.GradientFromColor = 16052978 Appearance.Tab.GradientToColor = 15722209 Appearance.Tab.GradientType = bkConcave Appearance.Tab.InactiveTabHeaderFontColor = 8016716 + 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 = 10921638 Appearance.Pane.BorderLightColor = clWhite Appearance.Pane.CaptionBgColor = 15000804 @@ -562,16 +667,37 @@ object Form1: TForm1 TabIndex = 0 Images = SmallImages LargeImages = LargeImages + MenuButtonCaption = 'Menu' + ShowMenuButton = True Tabs = ( 'SpkTab4' ) object SpkTab4: TSpkTab CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.BorderColor = 14922381 + CustomAppearance.Tab.CornerRadius = 4 CustomAppearance.Tab.GradientFromColor = 16115934 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 @@ -612,6 +738,7 @@ object Form1: TForm1 ) object SpkPane4: TSpkPane Caption = 'File commands' + ShowMoreOptionsButton = True Items = ( 'SpkLargeButton3' 'SpkLargeButton10' @@ -648,6 +775,8 @@ object Form1: TForm1 end object SpkPane9: TSpkPane Caption = 'Edit commands' + ShowMoreOptionsButtonStyle = mobsArrow + ShowMoreOptionsButton = True Items = ( 'SpkSmallButton17' 'SpkSmallButton18' @@ -799,10 +928,28 @@ object Form1: TForm1 Style = spkMetroLight Appearance.Tab.TabHeaderFont.Color = 9787178 Appearance.Tab.BorderColor = 13816015 + Appearance.Tab.CornerRadius = 0 Appearance.Tab.GradientFromColor = 15856113 Appearance.Tab.GradientToColor = 15856113 Appearance.Tab.GradientType = bkSolid Appearance.Tab.InactiveTabHeaderFontColor = 6908265 + Appearance.MenuButton.CaptionFont.Color = clWhite + Appearance.MenuButton.IdleFrameColor = 11822592 + Appearance.MenuButton.IdleGradientFromColor = 11822592 + Appearance.MenuButton.IdleGradientToColor = 11822592 + Appearance.MenuButton.IdleGradientType = bkSolid + Appearance.MenuButton.IdleCaptionColor = clWhite + Appearance.MenuButton.HotTrackFrameColor = 14515456 + Appearance.MenuButton.HotTrackGradientFromColor = 14515456 + Appearance.MenuButton.HotTrackGradientToColor = 14515456 + Appearance.MenuButton.HotTrackGradientType = bkSolid + Appearance.MenuButton.HotTrackCaptionColor = clWhite + Appearance.MenuButton.ActiveFrameColor = 9852160 + Appearance.MenuButton.ActiveGradientFromColor = 9852160 + Appearance.MenuButton.ActiveGradientToColor = 9852160 + Appearance.MenuButton.ActiveGradientType = bkSolid + Appearance.MenuButton.ActiveCaptionColor = clWhite + Appearance.MenuButton.ShapeStyle = mbssRectangle Appearance.Pane.BorderDarkColor = 13816015 Appearance.Pane.BorderLightColor = 16315117 Appearance.Pane.CaptionBgColor = 15856113 @@ -838,16 +985,37 @@ object Form1: TForm1 TabIndex = 0 Images = SmallImages LargeImages = LargeImages + MenuButtonCaption = 'Menu' + ShowMenuButton = True Tabs = ( 'SpkTab5' ) object SpkTab5: TSpkTab CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.BorderColor = 14922381 + CustomAppearance.Tab.CornerRadius = 4 CustomAppearance.Tab.GradientFromColor = 16115934 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 @@ -888,6 +1056,7 @@ object Form1: TForm1 ) object SpkPane5: TSpkPane Caption = 'File commands' + ShowMoreOptionsButton = True Items = ( 'SpkLargeButton4' 'SpkLargeButton8' @@ -924,6 +1093,8 @@ object Form1: TForm1 end object SpkPane8: TSpkPane Caption = 'Edit commands' + ShowMoreOptionsButtonStyle = mobsArrow + ShowMoreOptionsButton = True Items = ( 'SpkSmallButton10' 'SpkSmallButton11' @@ -1060,9 +1231,28 @@ object Form1: TForm1 Style = spkMetroDark Appearance.Tab.TabHeaderFont.Color = clWhite Appearance.Tab.BorderColor = clBlack + Appearance.Tab.CornerRadius = 0 Appearance.Tab.GradientFromColor = 4605510 Appearance.Tab.GradientToColor = 4605510 Appearance.Tab.GradientType = bkSolid + Appearance.MenuButton.CaptionFont.Color = clWhite + Appearance.MenuButton.IdleFrameColor = 11822592 + Appearance.MenuButton.IdleGradientFromColor = 11822592 + Appearance.MenuButton.IdleGradientToColor = 11822592 + Appearance.MenuButton.IdleGradientType = bkSolid + Appearance.MenuButton.IdleCaptionColor = clWhite + Appearance.MenuButton.HotTrackFrameColor = 14515456 + Appearance.MenuButton.HotTrackGradientFromColor = 14515456 + Appearance.MenuButton.HotTrackGradientToColor = 14515456 + Appearance.MenuButton.HotTrackGradientType = bkSolid + Appearance.MenuButton.HotTrackCaptionColor = clWhite + Appearance.MenuButton.HotTrackBrightnessChange = 10 + Appearance.MenuButton.ActiveFrameColor = 9852160 + Appearance.MenuButton.ActiveGradientFromColor = 9852160 + Appearance.MenuButton.ActiveGradientToColor = 9852160 + Appearance.MenuButton.ActiveGradientType = bkSolid + Appearance.MenuButton.ActiveCaptionColor = clWhite + Appearance.MenuButton.ShapeStyle = mbssRectangle Appearance.Tab.InactiveTabHeaderFontColor = 7895160 Appearance.Pane.BorderDarkColor = 9208962 Appearance.Pane.BorderLightColor = 10657179 @@ -1100,16 +1290,37 @@ object Form1: TForm1 TabIndex = 0 Images = SmallImages LargeImages = LargeImages + MenuButtonCaption = 'Menu' + ShowMenuButton = True Tabs = ( 'SpkTab6' ) object SpkTab6: TSpkTab CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.BorderColor = 14922381 + CustomAppearance.Tab.CornerRadius = 4 CustomAppearance.Tab.GradientFromColor = 16115934 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 @@ -1150,6 +1361,7 @@ object Form1: TForm1 ) object SpkPane6: TSpkPane Caption = 'File commands' + ShowMoreOptionsButton = True Items = ( 'SpkLargeButton7' 'SpkLargeButton5' @@ -1186,6 +1398,8 @@ object Form1: TForm1 end object SpkPane7: TSpkPane Caption = 'Edit commands' + ShowMoreOptionsButtonStyle = mobsArrow + ShowMoreOptionsButton = True Items = ( 'SpkSmallButton3' 'SpkSmallButton4'