spktoolbar: Use LCL scaling (for Laz >= 1.8)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5983 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/spktoolbar/SpkToolbar/SpkToolbar.pas

@@ -23,10 +23,10 @@ unit SpkToolbar;
 interface
 
 uses
-  LCLType, LMessages, Graphics, SysUtils, Controls, Classes, Math, Dialogs,
+  LCLType, LMessages, LCLVersion, Graphics, SysUtils, Controls, Classes, Math,
-  Forms, Types, SpkGraphTools, SpkGUITools, SpkMath, ExtCtrls,
+  Dialogs, Forms, Types, ExtCtrls,
-  spkt_Appearance, spkt_BaseItem, spkt_Const, spkt_Dispatch, spkt_Tab,
+  SpkGraphTools, SpkGUITools, SpkMath, spkt_Appearance, spkt_BaseItem,
-  spkt_Pane, spkt_Types;
+  spkt_Const, spkt_Dispatch, spkt_Tab, spkt_Pane, spkt_Types;
 
 type
   { Type describes regions of the toolbar which are used during handling
@@ -315,6 +315,11 @@ type
     { Setter for toolbar style, i.e. quick selection of new appearance theme }
     procedure SetStyle(const Value: TSpkStyle);
 
+    {$IF lcl_fullversion >= 1080000}
+    procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
+      const AXProportion, AYProportion: Double); override;
+    {$ENDIF}
+
   public
 
     // *************************
@@ -1783,4 +1788,87 @@ begin
   FMetricsValid := True;
 end;
 
+{$IF lcl_fullversion >= 1080000}
+procedure TSpkToolbar.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
+  const AXProportion, AYProportion: Double);
+begin
+  inherited;
+
+  LargeButtonDropdownFieldSize := round(LARGEBUTTON_DROPDOWN_FIELD_SIZE * AXProportion);
+  LargeButtonGlyphMargin := round(LARGEBUTTON_GLYPH_MARGIN * AXProportion);
+  LargeButtonCaptionHMargin := round(LARGEBUTTON_CAPTION_HMARGIN * AXProportion);
+  LargeButtonMinWidth := round(LARGEBUTTON_MIN_WIDTH * AXProportion);
+  LargeButtonRadius := LARGEBUTTON_RADIUS;
+  LargeButtonBorderSize := round(LARGEBUTTON_BORDER_SIZE * AXProportion);
+  LargeButtonChevronHMargin := round(LARGEBUTTON_CHEVRON_HMARGIN * AXProportion);
+  LargeButtonCaptionTopRail := round(LARGEBUTTON_CAPTION_TOP_RAIL * AYProportion);
+  LargeButtonCaptionButtomRail := round(LARGEBUTTON_CAPTION_BOTTOM_RAIL * AYProportion);
+
+  SmallButtonGlyphWidth := round(SMALLBUTTON_GLYPH_WIDTH * AXProportion);
+  SmallButtonBorderWidth := round(SMALLBUTTON_BORDER_WIDTH * AXProportion);
+  SmallButtonHalfBorderWidth := round(SMALLBUTTON_HALF_BORDER_WIDTH * AXProportion);
+  SmallButtonPadding := round(SMALLBUTTON_PADDING * AXProportion);
+  SmallButtonDropdownWidth := round(SMALLBUTTON_DROPDOWN_WIDTH * AXProportion);
+  SmallButtonRadius := SMALLBUTTON_RADIUS;
+  SmallButtonMinWidth := 2 * SmallButtonPadding + SmallButtonGlyphWidth;
+
+  MaxElementHeight := round(MAX_ELEMENT_HEIGHT * AYProportion);
+  PaneRowHeight := round(PANE_ROW_HEIGHT * AYProportion);
+  PaneFullRowHeight := 3 * PaneRowHeight;
+  PaneOneRowTopPadding := round(PANE_ONE_ROW_TOPPADDING * AYProportion);
+  PaneOneRowBottomPadding := round(PANE_ONE_ROW_BOTTOMPADDING * AYProportion);
+  PaneTwoRowsVSpacer := round(PANE_TWO_ROWS_VSPACER * AYProportion);
+  PaneTwoRowsTopPadding := round(PANE_TWO_ROWS_TOPPADDING * AYProportion);
+  PaneTwoRowsBottomPadding := round(PANE_TWO_ROWS_BOTTOMPADDING * AYProportion);
+  PaneThreeRowsVSpacer := round(PANE_THREE_ROWS_VSPACER * AYProportion);
+  PaneThreeRowsTopPadding := round(PANE_THREE_ROWS_TOPPADDING * AYProportion);
+  PaneThreeRowsBottomPadding := round(PANE_THREE_ROWS_BOTTOMPADDING * AYProportion);
+  PaneFullRowTopPadding := PaneThreeRowsTopPadding;
+  PaneFullRowBottomPadding := PaneThreeRowsBottomPadding;
+  PaneLeftPadding := round(PANE_LEFT_PADDING * AXProportion);
+  PaneRightPadding := round(PANE_RIGHT_PADDING * AXProportion);
+  PaneColumnSpacer := round(PANE_COLUMN_SPACER * AXProportion);
+  PaneGroupSpacer := round(PANE_GROUP_SPACER * AXProportion);
+
+  PaneCaptionHeight := round(PANE_CAPTION_HEIGHT * AYProportion);
+  PaneCornerRadius := PANE_CORNER_RADIUS;
+  PaneBorderSize := round(PANE_BORDER_SIZE * AXProportion);
+  PaneBorderHalfSize := round(PANE_BORDER_HALF_SIZE * AXProportion);
+  PaneHeight := MaxElementHeight + PaneCaptionHeight + 2 * PaneBorderSize;
+  PaneCaptionHMargin := round(PANE_CAPTION_HMARGIN * AXProportion);
+
+  TabCornerRadius := TAB_CORNER_RADIUS;
+  TabPaneLeftPadding := round(TAB_PANE_LEFTPADDING * AXProportion);
+  TabPaneRightPadding := round(TAB_PANE_RIGHTPADDING * AXProportion);
+  TabPaneTopPadding := round(TAB_PANE_TOPPADDING * AYProportion);
+  TabPaneBottomPadding := round(TAB_PANE_BOTTOMPADDING * AYProportion);
+  TabPaneHSpacing := round(TAB_PANE_HSPACING * AXProportion);
+  TabBorderSize := round(TAB_BORDER_SIZE * AXProportion);
+  TabHeight := PaneHeight + TabPaneTopPadding + TabPaneBottomPadding + TabBorderSize;
+
+  ToolbarBorderWidth := round(TOOLBAR_BORDER_WIDTH * AXProportion);
+  ToolbarCornerRadius := TOOLBAR_CORNER_RADIUS;
+  ToolbarTabCaptionsHeight := round(TOOLBAR_TAB_CAPTIONS_HEIGHT * AYProportion);
+  ToolbarTabCaptionsTextHPadding := round(TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING * AXProportion);
+  ToolbarMinTabCaptionWidth := round(TOOLBAR_MIN_TAB_CAPTION_WIDTH * AXProportion);
+  ToolbarHeight := ToolbarTabCaptionsHeight + TabHeight;
+
+  // scaling radius if not square
+  if LargeButtonRadius > 1 then
+    LargeButtonRadius := round(LargeButtonRadius * AXProportion);
+
+  if SmallButtonRadius > 1 then
+    SmallButtonRadius := round(SmallButtonRadius * AXProportion);
+
+  if PaneCornerRadius > 1 then
+    PaneCornerRadius := round(PaneCornerRadius * AXProportion);
+
+  if TabCornerRadius > 1 then
+    TabCornerRadius := round(TabCornerRadius * AXProportion);
+
+  if ToolbarCornerRadius > 1 then
+    ToolbarCornerRadius := round(ToolbarCornerRadius * AXProportion);
+end;
+{$ENDIF}
+
 end.

components/spktoolbar/SpkToolbar/spkt_Appearance.pas

@@ -1605,7 +1605,7 @@ end;
 
 procedure SetDefaultFont(AFont: TFont);
 begin
-  AFont.Assign(Screen.MenuFont);
+//  AFont.Assign(Screen.MenuFont);
 end;
 
 end.

components/spktoolbar/SpkToolbar/spkt_Buttons.pas

@@ -1082,6 +1082,7 @@ begin
   // Text
   ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
   ABuffer.Canvas.Font.Color := fontColor;
+  SpkScaleFont(ABuffer.Canvas.Font);
 
   if FButtonKind in [bkButton, bkToggle] then
     FindBreakPlace(FCaption, breakPos, breakWidth)
@@ -1147,6 +1148,7 @@ begin
     exit;
 
   Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
+  SpkScaleFont(Bitmap.Canvas.Font);
 
   Width := Bitmap.Canvas.TextWidth(FCaption);
 
@@ -1239,6 +1241,7 @@ begin
   begin
     // Nie ³amiemy etykiety
     Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
+    SpkScaleFont(Bitmap.Canvas.Font);
     TextWidth := 2 * LargeButtonCaptionHMargin + Bitmap.Canvas.TextWidth(FCaption);
   end;
 
@@ -1319,6 +1322,7 @@ begin
   if FShowCaption then
   begin
     Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
+    SpkScaleFont(Bitmap.Canvas.Font);
     TextWidth := Bitmap.Canvas.TextWidth(FCaption);
 
     BtnWidth := BtnWidth + SmallButtonPadding + TextWidth;
@@ -1538,6 +1542,7 @@ begin
   begin
     ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
     ABuffer.Canvas.Font.Color := fontColor;
+    SpkScaleFont(ABuffer.Canvas.Font);
 
     if (FGroupBehaviour in [gbContinuesGroup, gbEndsGroup]) then
       x := FButtonRect.Left + SmallButtonHalfBorderWidth

components/spktoolbar/SpkToolbar/spkt_Checkboxes.pas

@@ -200,6 +200,7 @@ begin
     exit;
 
   Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
+  SpkScaleFont(Bitmap.Canvas.Font);
   TextWidth := Bitmap.Canvas.TextWidth(FCaption);
 
   BtnWidth := SmallButtonPadding + SmallButtonGlyphWidth +
@@ -333,6 +334,7 @@ begin
 
   // Text
   ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
+  SpkScaleFont(ABuffer.Canvas.Font);
 
   case FButtonState of
     bsIdle             : fontColor := FAppearance.Element.IdleCaptionColor;

components/spktoolbar/SpkToolbar/spkt_Const.pas

@@ -15,7 +15,7 @@ unit spkt_Const;
 interface
 
 uses
-  Graphics;
+  Graphics, LCLVersion;
 
 procedure SpkInitLayoutConsts(FromDPI: Integer; ToDPI: Integer = 0);
 function SpkScaleX(Size: Integer; FromDPI: Integer; ToDPI: Integer = 0): integer;
@@ -260,7 +260,11 @@ var
 
 
 const
+  {$IF lcl_fullversion < 1080000}
   DPI_AWARE = true;
+  {$ELSE}
+  DPI_AWARE = false;   // use lcl scaling instead
+  {$ENDIF}
 
 
 implementation

components/spktoolbar/SpkToolbar/spkt_Pane.pas

@@ -314,8 +314,9 @@ begin
     true
   );
 
-  // Etykieta tafli
+  // Pane label
   ABuffer.Canvas.Font.Assign(FAppearance.Pane.CaptionFont);
+  SpkScaleFont(ABuffer.Canvas.Font);
   x := FRect.Left + (FRect.Width - ABuffer.Canvas.TextWidth(FCaption)) div 2;
   y := FRect.Bottom - PaneBorderSize - PaneCaptionHeight + 1 +
         (PaneCaptionHeight - ABuffer.Canvas.TextHeight('Wy')) div 2;
@@ -701,6 +702,7 @@ begin
   if tmpBitmap = nil then
     exit;
   tmpBitmap.Canvas.Font.Assign(FAppearance.Pane.CaptionFont);
+  SpkScaleFont(tmpBitmap.Canvas.Font);
 
   // *** Minimalna szerokoϾ tafli (tekstu) ***
   TextW := tmpBitmap.Canvas.TextWidth(FCaption);

components/spktoolbar/demos/styles/project1.lpi

@@ -7,6 +7,7 @@
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
       <Title Value="project1"/>
+      <Scaled Value="True"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
     </General>

components/spktoolbar/demos/styles/project1.lpr

@@ -7,12 +7,15 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, Unit1
+  LCLVersion, Forms, Unit1
   { you can add units after this };
 
 {$R *.res}
 
 begin
+  {$IF lcl_fullversion >= 1080000}
+  Application.Scaled := True;
+  {$ENDIF}
   RequireDerivedFormResource := True;
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);

components/spktoolbar/demos/styles/unit1.lfm

@@ -7,15 +7,13 @@ object Form1: TForm1
   ClientHeight = 660
   ClientWidth = 506
   Color = clMedGray
-  LCLVersion = '1.7'
+  LCLVersion = '1.9.0.0'
   object SpkToolbar1: TSpkToolbar
     Left = 0
     Top = 0
     Width = 506
     Color = clMedGray
     Appearance.Tab.TabHeaderFont.Color = 9126421
-    Appearance.Tab.TabHeaderFont.Height = -12
-    Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
     Appearance.Tab.BorderColor = 14922381
     Appearance.Tab.GradientFromColor = 16115934
     Appearance.Tab.GradientToColor = 15587527
@@ -25,14 +23,10 @@ object Form1: TForm1
     Appearance.Pane.BorderLightColor = 16315117
     Appearance.Pane.CaptionBgColor = 15849922
     Appearance.Pane.CaptionFont.Color = 9126421
-    Appearance.Pane.CaptionFont.Height = -12
-    Appearance.Pane.CaptionFont.Name = 'Segoe UI'
     Appearance.Pane.GradientFromColor = 16115934
     Appearance.Pane.GradientToColor = 15587527
     Appearance.Pane.GradientType = bkConcave
     Appearance.Element.CaptionFont.Color = clMenuText
-    Appearance.Element.CaptionFont.Height = -12
-    Appearance.Element.CaptionFont.Name = 'Segoe UI'
     Appearance.Element.IdleFrameColor = 14727067
     Appearance.Element.IdleGradientFromColor = 15653832
     Appearance.Element.IdleGradientToColor = 15323324
@@ -64,8 +58,6 @@ object Form1: TForm1
     )
     object SpkTab1: TSpkTab
       CustomAppearance.Tab.TabHeaderFont.Color = 9126421
-      CustomAppearance.Tab.TabHeaderFont.Height = -12
-      CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
       CustomAppearance.Tab.BorderColor = 14922381
       CustomAppearance.Tab.GradientFromColor = 16115934
       CustomAppearance.Tab.GradientToColor = 15587527
@@ -75,14 +67,10 @@ object Form1: TForm1
       CustomAppearance.Pane.BorderLightColor = 16315117
       CustomAppearance.Pane.CaptionBgColor = 15849922
       CustomAppearance.Pane.CaptionFont.Color = 9126421
-      CustomAppearance.Pane.CaptionFont.Height = -12
-      CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Pane.GradientFromColor = 16115934
       CustomAppearance.Pane.GradientToColor = 15587527
       CustomAppearance.Pane.GradientType = bkConcave
       CustomAppearance.Element.CaptionFont.Color = clMenuText
-      CustomAppearance.Element.CaptionFont.Height = -12
-      CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Element.IdleFrameColor = 14727067
       CustomAppearance.Element.IdleGradientFromColor = 15653832
       CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -141,22 +129,22 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Save'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 0
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButtonDropdown
         end
         object SpkSmallButton30: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Save as...'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 1
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkLargeButton15: TSpkLargeButton
@@ -181,53 +169,53 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Cut'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 2
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButton
         end
         object SpkSmallButton32: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Copy'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 3
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton33: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Paste'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 4
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton34: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Select all'
-          ShowCaption = True
-          TableBehaviour = tbBeginsColumn
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsColumn
           ButtonKind = bkButton
         end
         object SpkSmallButton35: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Unselect'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
       end
@@ -240,8 +228,6 @@ object Form1: TForm1
     Color = clMedGray
     Style = spkOffice2007Silver
     Appearance.Tab.TabHeaderFont.Color = 8016716
-    Appearance.Tab.TabHeaderFont.Height = -12
-    Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
     Appearance.Tab.BorderColor = 12500670
     Appearance.Tab.GradientFromColor = 16052978
     Appearance.Tab.GradientToColor = 15722209
@@ -251,14 +237,10 @@ object Form1: TForm1
     Appearance.Pane.BorderLightColor = clWhite
     Appearance.Pane.CaptionBgColor = 15000804
     Appearance.Pane.CaptionFont.Color = 3552822
-    Appearance.Pane.CaptionFont.Height = -12
-    Appearance.Pane.CaptionFont.Name = 'Segoe UI'
     Appearance.Pane.GradientFromColor = 16316664
     Appearance.Pane.GradientToColor = 15329769
     Appearance.Pane.GradientType = bkConcave
     Appearance.Element.CaptionFont.Color = 9126421
-    Appearance.Element.CaptionFont.Height = -12
-    Appearance.Element.CaptionFont.Name = 'Segoe UI'
     Appearance.Element.IdleFrameColor = 12104105
     Appearance.Element.IdleGradientFromColor = 16053490
     Appearance.Element.IdleGradientToColor = 15132131
@@ -290,8 +272,6 @@ object Form1: TForm1
     )
     object SpkTab2: TSpkTab
       CustomAppearance.Tab.TabHeaderFont.Color = 9126421
-      CustomAppearance.Tab.TabHeaderFont.Height = -12
-      CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
       CustomAppearance.Tab.BorderColor = 14922381
       CustomAppearance.Tab.GradientFromColor = 16115934
       CustomAppearance.Tab.GradientToColor = 15587527
@@ -301,14 +281,10 @@ object Form1: TForm1
       CustomAppearance.Pane.BorderLightColor = 16315117
       CustomAppearance.Pane.CaptionBgColor = 15849922
       CustomAppearance.Pane.CaptionFont.Color = 9126421
-      CustomAppearance.Pane.CaptionFont.Height = -12
-      CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Pane.GradientFromColor = 16115934
       CustomAppearance.Pane.GradientToColor = 15587527
       CustomAppearance.Pane.GradientType = bkConcave
       CustomAppearance.Element.CaptionFont.Color = clMenuText
-      CustomAppearance.Element.CaptionFont.Height = -12
-      CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Element.IdleFrameColor = 14727067
       CustomAppearance.Element.IdleGradientFromColor = 15653832
       CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -367,22 +343,22 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Save'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 0
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButtonDropdown
         end
         object SpkSmallButton23: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Save as...'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 1
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkLargeButton13: TSpkLargeButton
@@ -407,53 +383,53 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Cut'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 2
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButton
         end
         object SpkSmallButton25: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Copy'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 3
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton26: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Paste'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 4
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton27: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Select all'
-          ShowCaption = True
-          TableBehaviour = tbBeginsColumn
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsColumn
           ButtonKind = bkButton
         end
         object SpkSmallButton28: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Unselect'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
       end
@@ -466,8 +442,6 @@ object Form1: TForm1
     Color = clMedGray
     Style = spkOffice2007SilverTurquoise
     Appearance.Tab.TabHeaderFont.Color = 8016716
-    Appearance.Tab.TabHeaderFont.Height = -12
-    Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
     Appearance.Tab.BorderColor = 12500670
     Appearance.Tab.GradientFromColor = 16052978
     Appearance.Tab.GradientToColor = 15722209
@@ -477,14 +451,10 @@ object Form1: TForm1
     Appearance.Pane.BorderLightColor = clWhite
     Appearance.Pane.CaptionBgColor = 15000804
     Appearance.Pane.CaptionFont.Color = 3552822
-    Appearance.Pane.CaptionFont.Height = -12
-    Appearance.Pane.CaptionFont.Name = 'Segoe UI'
     Appearance.Pane.GradientFromColor = 16316664
     Appearance.Pane.GradientToColor = 15329769
     Appearance.Pane.GradientType = bkConcave
     Appearance.Element.CaptionFont.Color = 9126421
-    Appearance.Element.CaptionFont.Height = -12
-    Appearance.Element.CaptionFont.Name = 'Segoe UI'
     Appearance.Element.IdleFrameColor = 12104105
     Appearance.Element.IdleGradientFromColor = 16053490
     Appearance.Element.IdleGradientToColor = 15132131
@@ -516,8 +486,6 @@ object Form1: TForm1
     )
     object SpkTab4: TSpkTab
       CustomAppearance.Tab.TabHeaderFont.Color = 9126421
-      CustomAppearance.Tab.TabHeaderFont.Height = -12
-      CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
       CustomAppearance.Tab.BorderColor = 14922381
       CustomAppearance.Tab.GradientFromColor = 16115934
       CustomAppearance.Tab.GradientToColor = 15587527
@@ -527,14 +495,10 @@ object Form1: TForm1
       CustomAppearance.Pane.BorderLightColor = 16315117
       CustomAppearance.Pane.CaptionBgColor = 15849922
       CustomAppearance.Pane.CaptionFont.Color = 9126421
-      CustomAppearance.Pane.CaptionFont.Height = -12
-      CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Pane.GradientFromColor = 16115934
       CustomAppearance.Pane.GradientToColor = 15587527
       CustomAppearance.Pane.GradientType = bkConcave
       CustomAppearance.Element.CaptionFont.Color = clMenuText
-      CustomAppearance.Element.CaptionFont.Height = -12
-      CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Element.IdleFrameColor = 14727067
       CustomAppearance.Element.IdleGradientFromColor = 15653832
       CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -593,22 +557,22 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Save'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 0
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButtonDropdown
         end
         object SpkSmallButton16: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Save as...'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 1
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkLargeButton11: TSpkLargeButton
@@ -633,53 +597,53 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Cut'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 2
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButton
         end
         object SpkSmallButton18: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Copy'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 3
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton19: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Paste'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 4
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton20: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Select all'
-          ShowCaption = True
-          TableBehaviour = tbBeginsColumn
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsColumn
           ButtonKind = bkButton
         end
         object SpkSmallButton21: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Unselect'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
       end
@@ -692,8 +656,6 @@ object Form1: TForm1
     Color = clMedGray
     Style = spkMetroLight
     Appearance.Tab.TabHeaderFont.Color = 9787178
-    Appearance.Tab.TabHeaderFont.Height = -12
-    Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
     Appearance.Tab.BorderColor = 13816015
     Appearance.Tab.GradientFromColor = 15856113
     Appearance.Tab.GradientToColor = 15856113
@@ -703,16 +665,12 @@ object Form1: TForm1
     Appearance.Pane.BorderLightColor = 16315117
     Appearance.Pane.CaptionBgColor = 15856113
     Appearance.Pane.CaptionFont.Color = 6908265
-    Appearance.Pane.CaptionFont.Height = -12
-    Appearance.Pane.CaptionFont.Name = 'Segoe UI'
     Appearance.Pane.GradientFromColor = 15856113
     Appearance.Pane.GradientToColor = 15856113
     Appearance.Pane.GradientType = bkSolid
     Appearance.Pane.HotTrackBrightnessChange = 0
     Appearance.Pane.Style = psDividerFlat
     Appearance.Element.CaptionFont.Color = 4144959
-    Appearance.Element.CaptionFont.Height = -12
-    Appearance.Element.CaptionFont.Name = 'Segoe UI'
     Appearance.Element.IdleFrameColor = 13487565
     Appearance.Element.IdleGradientFromColor = 14671839
     Appearance.Element.IdleGradientToColor = 14671839
@@ -743,8 +701,6 @@ object Form1: TForm1
     )
     object SpkTab5: TSpkTab
       CustomAppearance.Tab.TabHeaderFont.Color = 9126421
-      CustomAppearance.Tab.TabHeaderFont.Height = -12
-      CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
       CustomAppearance.Tab.BorderColor = 14922381
       CustomAppearance.Tab.GradientFromColor = 16115934
       CustomAppearance.Tab.GradientToColor = 15587527
@@ -754,14 +710,10 @@ object Form1: TForm1
       CustomAppearance.Pane.BorderLightColor = 16315117
       CustomAppearance.Pane.CaptionBgColor = 15849922
       CustomAppearance.Pane.CaptionFont.Color = 9126421
-      CustomAppearance.Pane.CaptionFont.Height = -12
-      CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Pane.GradientFromColor = 16115934
       CustomAppearance.Pane.GradientToColor = 15587527
       CustomAppearance.Pane.GradientType = bkConcave
       CustomAppearance.Element.CaptionFont.Color = clMenuText
-      CustomAppearance.Element.CaptionFont.Height = -12
-      CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Element.IdleFrameColor = 14727067
       CustomAppearance.Element.IdleGradientFromColor = 15653832
       CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -820,22 +772,22 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Save'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 0
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButtonDropdown
         end
         object SpkSmallButton9: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Save as...'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 1
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkLargeButton9: TSpkLargeButton
@@ -860,53 +812,53 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Cut'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 2
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButton
         end
         object SpkSmallButton11: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Copy'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 3
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton12: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Paste'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 4
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton13: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Select all'
-          ShowCaption = True
-          TableBehaviour = tbBeginsColumn
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsColumn
           ButtonKind = bkButton
         end
         object SpkSmallButton14: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Unselect'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
       end
@@ -919,8 +871,6 @@ object Form1: TForm1
     Color = clMedGray
     Style = spkMetroDark
     Appearance.Tab.TabHeaderFont.Color = clWhite
-    Appearance.Tab.TabHeaderFont.Height = -12
-    Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
     Appearance.Tab.BorderColor = clBlack
     Appearance.Tab.GradientFromColor = 4605510
     Appearance.Tab.GradientToColor = 4605510
@@ -930,16 +880,12 @@ object Form1: TForm1
     Appearance.Pane.BorderLightColor = 10657179
     Appearance.Pane.CaptionBgColor = 4605510
     Appearance.Pane.CaptionFont.Color = clWhite
-    Appearance.Pane.CaptionFont.Height = -12
-    Appearance.Pane.CaptionFont.Name = 'Segoe UI'
     Appearance.Pane.GradientFromColor = 4605510
     Appearance.Pane.GradientToColor = 15856113
     Appearance.Pane.GradientType = bkSolid
     Appearance.Pane.HotTrackBrightnessChange = 0
     Appearance.Pane.Style = psDividerFlat
     Appearance.Element.CaptionFont.Color = 4144959
-    Appearance.Element.CaptionFont.Height = -12
-    Appearance.Element.CaptionFont.Name = 'Segoe UI'
     Appearance.Element.IdleFrameColor = 9208962
     Appearance.Element.IdleGradientFromColor = 4473924
     Appearance.Element.IdleGradientToColor = 4473924
@@ -971,8 +917,6 @@ object Form1: TForm1
     )
     object SpkTab6: TSpkTab
       CustomAppearance.Tab.TabHeaderFont.Color = 9126421
-      CustomAppearance.Tab.TabHeaderFont.Height = -12
-      CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
       CustomAppearance.Tab.BorderColor = 14922381
       CustomAppearance.Tab.GradientFromColor = 16115934
       CustomAppearance.Tab.GradientToColor = 15587527
@@ -982,14 +926,10 @@ object Form1: TForm1
       CustomAppearance.Pane.BorderLightColor = 16315117
       CustomAppearance.Pane.CaptionBgColor = 15849922
       CustomAppearance.Pane.CaptionFont.Color = 9126421
-      CustomAppearance.Pane.CaptionFont.Height = -12
-      CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Pane.GradientFromColor = 16115934
       CustomAppearance.Pane.GradientToColor = 15587527
       CustomAppearance.Pane.GradientType = bkConcave
       CustomAppearance.Element.CaptionFont.Color = clMenuText
-      CustomAppearance.Element.CaptionFont.Height = -12
-      CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
       CustomAppearance.Element.IdleFrameColor = 14727067
       CustomAppearance.Element.IdleGradientFromColor = 15653832
       CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -1048,22 +988,22 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Save'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 0
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButtonDropdown
         end
         object SpkSmallButton1: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Save as...'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 1
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkLargeButton6: TSpkLargeButton
@@ -1088,53 +1028,53 @@ object Form1: TForm1
           Visible = True
           Enabled = True
           Caption = 'Cut'
-          ShowCaption = True
-          TableBehaviour = tbContinuesRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 2
+          ShowCaption = True
+          TableBehaviour = tbContinuesRow
           ButtonKind = bkButton
         end
         object SpkSmallButton4: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Copy'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 3
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton5: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Paste'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = True
           ImageIndex = 4
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
         object SpkSmallButton6: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Select all'
-          ShowCaption = True
-          TableBehaviour = tbBeginsColumn
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsColumn
           ButtonKind = bkButton
         end
         object SpkSmallButton7: TSpkSmallButton
           Visible = True
           Enabled = True
           Caption = 'Unselect'
-          ShowCaption = True
-          TableBehaviour = tbBeginsRow
           GroupBehaviour = gbSingleItem
           HideFrameWhenIdle = False
+          ShowCaption = True
+          TableBehaviour = tbBeginsRow
           ButtonKind = bkButton
         end
       end