pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SpkToolbar: Update Styles demo to show the new TMenuButton. Patch by Husker (https://forum.lazarus.freepascal.org/index.php/topic,51552.msg379413.html#msg379413).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7734 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-02 21:35:00 +00:00
parent 29499ce5e9
commit 171f166623
6 changed files with 228 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/spktoolbar/demos/actions/project1.lpi
View File

@@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
@@ -74,9 +76,6 @@
<SmartLinkUnit Value="True"/> <SmartLinkUnit Value="True"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options> <Options>
<Win32> <Win32>

1
components/spktoolbar/demos/actions/project1.lpr
View File

@@ -17,6 +17,7 @@ begin
Application.Scaled:=True; Application.Scaled:=True;
{$ENDIF} {$ENDIF}
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Scaled:=True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;

3
components/spktoolbar/demos/basic/Project1.lpi
View File

@@ -69,9 +69,6 @@
</Optimizations> </Optimizations>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options> <Options>
<Win32> <Win32>

16
components/spktoolbar/demos/styles/project1.lpi
View File

@@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
@@ -18,9 +20,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
@@ -56,9 +59,6 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

1
components/spktoolbar/demos/styles/project1.lpr
View File

@@ -17,6 +17,7 @@ begin
Application.Scaled := True; Application.Scaled := True;
{$ENDIF} {$ENDIF}
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Scaled:=True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;

214
components/spktoolbar/demos/styles/unit1.lfm
View File

@@ -27,10 +27,29 @@ object Form1: TForm1
Color = clMedGray Color = clMedGray
Appearance.Tab.TabHeaderFont.Color = 9126421 Appearance.Tab.TabHeaderFont.Color = 9126421
Appearance.Tab.BorderColor = 14922381 Appearance.Tab.BorderColor = 14922381
Appearance.Tab.CornerRadius = 4
Appearance.Tab.GradientFromColor = 16115934 Appearance.Tab.GradientFromColor = 16115934
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
@@ -65,16 +84,37 @@ object Form1: TForm1
TabIndex = 0 TabIndex = 0
Images = SmallImages Images = SmallImages
LargeImages = LargeImages LargeImages = LargeImages
MenuButtonCaption = 'Menu'
ShowMenuButton = True
Tabs = ( Tabs = (
'SpkTab1' 'SpkTab1'
) )
object SpkTab1: TSpkTab object SpkTab1: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.BorderColor = 14922381 CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.CornerRadius = 4
CustomAppearance.Tab.GradientFromColor = 16115934 CustomAppearance.Tab.GradientFromColor = 16115934
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
@@ -115,6 +155,7 @@ object Form1: TForm1
) )
object SpkPane1: TSpkPane object SpkPane1: TSpkPane
Caption = 'File commands' Caption = 'File commands'
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkLargeButton1' 'SpkLargeButton1'
'SpkLargeButton14' 'SpkLargeButton14'
@@ -151,6 +192,8 @@ object Form1: TForm1
end end
object SpkPane10: TSpkPane object SpkPane10: TSpkPane
Caption = 'Edit commands' Caption = 'Edit commands'
ShowMoreOptionsButtonStyle = mobsArrow
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkSmallButton31' 'SpkSmallButton31'
'SpkSmallButton32' 'SpkSmallButton32'
@@ -276,10 +319,29 @@ object Form1: TForm1
Style = spkOffice2007Silver Style = spkOffice2007Silver
Appearance.Tab.TabHeaderFont.Color = 8016716 Appearance.Tab.TabHeaderFont.Color = 8016716
Appearance.Tab.BorderColor = 12500670 Appearance.Tab.BorderColor = 12500670
Appearance.Tab.CornerRadius = 4
Appearance.Tab.GradientFromColor = 16052978 Appearance.Tab.GradientFromColor = 16052978
Appearance.Tab.GradientToColor = 15722209 Appearance.Tab.GradientToColor = 15722209
Appearance.Tab.GradientType = bkConcave Appearance.Tab.GradientType = bkConcave
Appearance.Tab.InactiveTabHeaderFontColor = 8016716 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.BorderDarkColor = 10921638
Appearance.Pane.BorderLightColor = clWhite Appearance.Pane.BorderLightColor = clWhite
Appearance.Pane.CaptionBgColor = 15000804 Appearance.Pane.CaptionBgColor = 15000804
@@ -314,16 +376,37 @@ object Form1: TForm1
TabIndex = 0 TabIndex = 0
Images = SmallImages Images = SmallImages
LargeImages = LargeImages LargeImages = LargeImages
MenuButtonCaption = 'Menu'
ShowMenuButton = True
Tabs = ( Tabs = (
'SpkTab2' 'SpkTab2'
) )
object SpkTab2: TSpkTab object SpkTab2: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.BorderColor = 14922381 CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.CornerRadius = 4
CustomAppearance.Tab.GradientFromColor = 16115934 CustomAppearance.Tab.GradientFromColor = 16115934
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
@@ -364,6 +447,7 @@ object Form1: TForm1
) )
object SpkPane2: TSpkPane object SpkPane2: TSpkPane
Caption = 'File commands' Caption = 'File commands'
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkLargeButton2' 'SpkLargeButton2'
'SpkLargeButton12' 'SpkLargeButton12'
@@ -400,6 +484,8 @@ object Form1: TForm1
end end
object SpkPane3: TSpkPane object SpkPane3: TSpkPane
Caption = 'Edit commands' Caption = 'Edit commands'
ShowMoreOptionsButtonStyle = mobsArrow
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkSmallButton24' 'SpkSmallButton24'
'SpkSmallButton25' 'SpkSmallButton25'
@@ -524,10 +610,29 @@ object Form1: TForm1
Style = spkOffice2007SilverTurquoise Style = spkOffice2007SilverTurquoise
Appearance.Tab.TabHeaderFont.Color = 8016716 Appearance.Tab.TabHeaderFont.Color = 8016716
Appearance.Tab.BorderColor = 12500670 Appearance.Tab.BorderColor = 12500670
Appearance.Tab.CornerRadius = 4
Appearance.Tab.GradientFromColor = 16052978 Appearance.Tab.GradientFromColor = 16052978
Appearance.Tab.GradientToColor = 15722209 Appearance.Tab.GradientToColor = 15722209
Appearance.Tab.GradientType = bkConcave Appearance.Tab.GradientType = bkConcave
Appearance.Tab.InactiveTabHeaderFontColor = 8016716 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.BorderDarkColor = 10921638
Appearance.Pane.BorderLightColor = clWhite Appearance.Pane.BorderLightColor = clWhite
Appearance.Pane.CaptionBgColor = 15000804 Appearance.Pane.CaptionBgColor = 15000804
@@ -562,16 +667,37 @@ object Form1: TForm1
TabIndex = 0 TabIndex = 0
Images = SmallImages Images = SmallImages
LargeImages = LargeImages LargeImages = LargeImages
MenuButtonCaption = 'Menu'
ShowMenuButton = True
Tabs = ( Tabs = (
'SpkTab4' 'SpkTab4'
) )
object SpkTab4: TSpkTab object SpkTab4: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.BorderColor = 14922381 CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.CornerRadius = 4
CustomAppearance.Tab.GradientFromColor = 16115934 CustomAppearance.Tab.GradientFromColor = 16115934
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
@@ -612,6 +738,7 @@ object Form1: TForm1
) )
object SpkPane4: TSpkPane object SpkPane4: TSpkPane
Caption = 'File commands' Caption = 'File commands'
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkLargeButton3' 'SpkLargeButton3'
'SpkLargeButton10' 'SpkLargeButton10'
@@ -648,6 +775,8 @@ object Form1: TForm1
end end
object SpkPane9: TSpkPane object SpkPane9: TSpkPane
Caption = 'Edit commands' Caption = 'Edit commands'
ShowMoreOptionsButtonStyle = mobsArrow
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkSmallButton17' 'SpkSmallButton17'
'SpkSmallButton18' 'SpkSmallButton18'
@@ -799,10 +928,28 @@ object Form1: TForm1
Style = spkMetroLight Style = spkMetroLight
Appearance.Tab.TabHeaderFont.Color = 9787178 Appearance.Tab.TabHeaderFont.Color = 9787178
Appearance.Tab.BorderColor = 13816015 Appearance.Tab.BorderColor = 13816015
Appearance.Tab.CornerRadius = 0
Appearance.Tab.GradientFromColor = 15856113 Appearance.Tab.GradientFromColor = 15856113
Appearance.Tab.GradientToColor = 15856113 Appearance.Tab.GradientToColor = 15856113
Appearance.Tab.GradientType = bkSolid Appearance.Tab.GradientType = bkSolid
Appearance.Tab.InactiveTabHeaderFontColor = 6908265 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.BorderDarkColor = 13816015
Appearance.Pane.BorderLightColor = 16315117 Appearance.Pane.BorderLightColor = 16315117
Appearance.Pane.CaptionBgColor = 15856113 Appearance.Pane.CaptionBgColor = 15856113
@@ -838,16 +985,37 @@ object Form1: TForm1
TabIndex = 0 TabIndex = 0
Images = SmallImages Images = SmallImages
LargeImages = LargeImages LargeImages = LargeImages
MenuButtonCaption = 'Menu'
ShowMenuButton = True
Tabs = ( Tabs = (
'SpkTab5' 'SpkTab5'
) )
object SpkTab5: TSpkTab object SpkTab5: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.BorderColor = 14922381 CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.CornerRadius = 4
CustomAppearance.Tab.GradientFromColor = 16115934 CustomAppearance.Tab.GradientFromColor = 16115934
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
@@ -888,6 +1056,7 @@ object Form1: TForm1
) )
object SpkPane5: TSpkPane object SpkPane5: TSpkPane
Caption = 'File commands' Caption = 'File commands'
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkLargeButton4' 'SpkLargeButton4'
'SpkLargeButton8' 'SpkLargeButton8'
@@ -924,6 +1093,8 @@ object Form1: TForm1
end end
object SpkPane8: TSpkPane object SpkPane8: TSpkPane
Caption = 'Edit commands' Caption = 'Edit commands'
ShowMoreOptionsButtonStyle = mobsArrow
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkSmallButton10' 'SpkSmallButton10'
'SpkSmallButton11' 'SpkSmallButton11'
@@ -1060,9 +1231,28 @@ object Form1: TForm1
Style = spkMetroDark Style = spkMetroDark
Appearance.Tab.TabHeaderFont.Color = clWhite Appearance.Tab.TabHeaderFont.Color = clWhite
Appearance.Tab.BorderColor = clBlack Appearance.Tab.BorderColor = clBlack
Appearance.Tab.CornerRadius = 0
Appearance.Tab.GradientFromColor = 4605510 Appearance.Tab.GradientFromColor = 4605510
Appearance.Tab.GradientToColor = 4605510 Appearance.Tab.GradientToColor = 4605510
Appearance.Tab.GradientType = bkSolid 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.Tab.InactiveTabHeaderFontColor = 7895160
Appearance.Pane.BorderDarkColor = 9208962 Appearance.Pane.BorderDarkColor = 9208962
Appearance.Pane.BorderLightColor = 10657179 Appearance.Pane.BorderLightColor = 10657179
@@ -1100,16 +1290,37 @@ object Form1: TForm1
TabIndex = 0 TabIndex = 0
Images = SmallImages Images = SmallImages
LargeImages = LargeImages LargeImages = LargeImages
MenuButtonCaption = 'Menu'
ShowMenuButton = True
Tabs = ( Tabs = (
'SpkTab6' 'SpkTab6'
) )
object SpkTab6: TSpkTab object SpkTab6: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421 CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.BorderColor = 14922381 CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.CornerRadius = 4
CustomAppearance.Tab.GradientFromColor = 16115934 CustomAppearance.Tab.GradientFromColor = 16115934
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
@@ -1150,6 +1361,7 @@ object Form1: TForm1
) )
object SpkPane6: TSpkPane object SpkPane6: TSpkPane
Caption = 'File commands' Caption = 'File commands'
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkLargeButton7' 'SpkLargeButton7'
'SpkLargeButton5' 'SpkLargeButton5'
@@ -1186,6 +1398,8 @@ object Form1: TForm1
end end
object SpkPane7: TSpkPane object SpkPane7: TSpkPane
Caption = 'Edit commands' Caption = 'Edit commands'
ShowMoreOptionsButtonStyle = mobsArrow
ShowMoreOptionsButton = True
Items = ( Items = (
'SpkSmallButton3' 'SpkSmallButton3'
'SpkSmallButton4' 'SpkSmallButton4'