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
2020-10-02 21:35:00 +00:00
parent 29499ce5e9
commit 171f166623
6 changed files with 228 additions and 16 deletions
--- a/components/spktoolbar/demos/actions/project1.lpi
+++ b/components/spktoolbar/demos/actions/project1.lpi
@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="11"/>
+    <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"/>
@ -74,9 +76,6 @@
      <SmartLinkUnit Value="True"/>
    </CodeGeneration>
    <Linking>
-      <Debugging>
-        <DebugInfoType Value="dsDwarf2"/>
-      </Debugging>
      <LinkSmart Value="True"/>
      <Options>
        <Win32>
--- 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;
--- 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>
--- 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"/>
--- 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;
--- 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'