22 Oct 2024: version 3.7.1

- Fixed background for icon into MessageDialogs
- Fixed drawing TStyledGraphicButton

Author: carloBarazzetta

Demos/Delphi11/StyledComponentsDemo.dproj

@@ -46,7 +46,7 @@
         <DCC_ExeOutput>..\Bin\$(Platform)</DCC_ExeOutput>
         <VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Styled Components Demo;FileVersion=1.0.0.0;InternalName=;LegalCopyright=Copyright Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProgramID=;ProductName=;ProductVersion=1.0;Comments=</VerInfo_Keys>
         <DCC_UnitSearchPath>..\..\source;..\source;..\..\packages;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
-        <Custom_Styles>&quot;Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf&quot;;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;&quot;Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf&quot;;&quot;Lavender Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\LavenderClassico.vsf&quot;;Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;&quot;Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf&quot;;&quot;Tablet Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf&quot;;&quot;Tablet Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletLight.vsf&quot;;Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;&quot;Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf&quot;;&quot;Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf&quot;;&quot;Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf&quot;;&quot;Windows10 Purple|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Purple.vsf&quot;;&quot;Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf&quot;;&quot;Windows11 Modern Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Dark.vsf&quot;;&quot;Windows11 Modern Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Light.vsf&quot;;&quot;Windows11 Polar Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Polar_Dark.vsf&quot;;&quot;Windows11 Polar Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Polar_Light.vsf&quot;;Amakrits|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Amakrits.vsf;&quot;Amethyst Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AmethystKamri.vsf&quot;;&quot;Aqua Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaGraphite.vsf&quot;;Auric|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Auric.vsf;Carbon|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Carbon.vsf;&quot;Charcoal Dark Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CharcoalDarkSlate.vsf&quot;;&quot;Cobalt XEMedia|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CobaltXEMedia.vsf&quot;;&quot;Cyan Dusk|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanDusk.vsf&quot;;&quot;Cyan Night|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanNight.vsf&quot;;&quot;Emerald Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\EmeraldLightSlate.vsf&quot;;&quot;Golden Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\GoldenGraphite.vsf&quot;;Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Light.vsf;Luna|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Luna.vsf;Obsidian|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Obsidian.vsf;&quot;Onyx Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\OnyxBlue.vsf&quot;;&quot;Ruby Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\RubyGraphite.vsf&quot;;&quot;Sapphire Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SapphireKamri.vsf&quot;;Silver|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Silver.vsf;&quot;Smokey Quartz Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SmokeyQuartzKamri.vsf&quot;;&quot;Turquoise Gray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TurquoiseGray.vsf&quot;;Glossy|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glossy.vsf;&quot;Windows10 Clear Day|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10ClearDay.vsf&quot;;&quot;Windows10 Malibu|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Malibu.vsf&quot;</Custom_Styles>
+        <Custom_Styles>&quot;Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf&quot;;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;&quot;Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf&quot;;&quot;Lavender Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\LavenderClassico.vsf&quot;;Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;&quot;Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf&quot;;&quot;Tablet Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf&quot;;&quot;Tablet Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletLight.vsf&quot;;Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;&quot;Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf&quot;;&quot;Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf&quot;;&quot;Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf&quot;;&quot;Windows10 Purple|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Purple.vsf&quot;;&quot;Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf&quot;;&quot;Windows11 MineShaft|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_MineShaft.vsf&quot;;&quot;Windows11 Modern Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Dark.vsf&quot;;&quot;Windows11 Modern Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Light.vsf&quot;;&quot;Windows11 Polar Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Polar_Dark.vsf&quot;;&quot;Windows11 Polar Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Polar_Light.vsf&quot;;&quot;Windows11 White Smoke|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_WhiteSmoke.vsf&quot;;Amakrits|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Amakrits.vsf;&quot;Amethyst Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AmethystKamri.vsf&quot;;&quot;Aqua Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaGraphite.vsf&quot;;Auric|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Auric.vsf;Carbon|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Carbon.vsf;&quot;Charcoal Dark Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CharcoalDarkSlate.vsf&quot;;&quot;Cobalt XEMedia|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CobaltXEMedia.vsf&quot;;Copper|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Copper.vsf;CopperDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CopperDark.vsf;Coral|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Coral.vsf;&quot;Cyan Dusk|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanDusk.vsf&quot;;&quot;Cyan Night|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanNight.vsf&quot;;Diamond|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Diamond.vsf;Emerald|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Emerald.vsf;&quot;Emerald Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\EmeraldLightSlate.vsf&quot;;&quot;Golden Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\GoldenGraphite.vsf&quot;;Jet|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Jet.vsf;Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Light.vsf;Luna|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Luna.vsf;Obsidian|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Obsidian.vsf;&quot;Onyx Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\OnyxBlue.vsf&quot;;Radiant|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Radiant.vsf;&quot;Ruby Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\RubyGraphite.vsf&quot;;&quot;Sapphire Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SapphireKamri.vsf&quot;;Silver|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Silver.vsf;&quot;Smokey Quartz Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SmokeyQuartzKamri.vsf&quot;;Sterling|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sterling.vsf;&quot;Turquoise Gray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TurquoiseGray.vsf&quot;;Vapor|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Vapor.vsf;Calypso|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Calypso.vsf;&quot;Calypso LE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CalypsoLE.vsf&quot;;&quot;Calypso SE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CalypsoSE.vsf&quot;;&quot;Calypso SLE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CalypsoSLE.vsf&quot;;&quot;Flat UI Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\FlatUILight.vsf&quot;;Glossy|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glossy.vsf;&quot;Lucky Point|VCLSTYLE|$(BDSCOMMONDIR)\Styles\LuckyPoint.vsf&quot;;&quot;Material Oxford Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MaterialOxfordBlue.vsf&quot;;&quot;Material Oxford Blue SE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MaterialOxfordBlueSE.vsf&quot;;&quot;Material Pattens Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MaterialPattensBlue.vsf&quot;;&quot;Puerto Rico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\PuertoRico.vsf&quot;;Stellar|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Stellar.vsf;&quot;Stellar Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\StellarDark.vsf&quot;;&quot;Wedgewood Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\WedgewoodLight.vsf&quot;;&quot;Windows10 BlackPearl|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlackPearl.vsf&quot;;&quot;Windows10 Blue Whale|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlueWhale.vsf&quot;;&quot;Windows10 Blue Whale LE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlueWhaleLE.vsf&quot;;&quot;Windows10 Clear Day|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10ClearDay.vsf&quot;;&quot;Windows10 Malibu|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Malibu.vsf&quot;;Zircon|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Zircon.vsf;&quot;Zircon SE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\ZirconSE.vsf&quot;</Custom_Styles>
         <DCC_Define>UseStyledCompEditorsAtRunTime;$(DCC_Define)</DCC_Define>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>

Demos/source/DemoWelcomeForm.dfm

@@ -1,10 +1,11 @@
 object WelcomeForm: TWelcomeForm
   Left = 426
   Top = 263
-  BorderStyle = bsNone
+  BorderIcons = []
+  BorderStyle = bsToolWindow
   Caption = 'Welcome'
-  ClientHeight = 321
-  ClientWidth = 526
+  ClientHeight = 294
+  ClientWidth = 528
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -18,8 +19,8 @@ object WelcomeForm: TWelcomeForm
   object FramePanel: TPanel
     Left = 0
     Top = 0
-    Width = 526
-    Height = 321
+    Width = 518
+    Height = 294
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 1
@@ -28,17 +29,18 @@ object WelcomeForm: TWelcomeForm
     object BackPanel: TPanel
       Left = 1
       Top = 1
-      Width = 524
-      Height = 319
+      Width = 516
+      Height = 292
       Align = alClient
       TabOrder = 0
       object TitleLabel: TLabel
         AlignWithMargins = True
-        Left = 96
+        Left = 94
         Top = 21
-        Width = 424
-        Height = 63
+        Width = 421
+        Height = 67
         Margins.Top = 20
+        Margins.Right = 10
         Align = alClient
         Alignment = taCenter
         AutoSize = False
@@ -55,8 +57,9 @@ object WelcomeForm: TWelcomeForm
         Top = 11
         Width = 80
         Height = 74
-        Margins.Left = 10
-        Margins.Top = 10
+        Height = 80
+        Margins.Left = 8
+        Margins.Top = 8
         Margins.Right = 2
         Margins.Bottom = 2
         Align = alLeft
@@ -292,9 +295,9 @@ object WelcomeForm: TWelcomeForm
       object Memo: TMemo
         AlignWithMargins = True
         Left = 7
-        Top = 93
-        Width = 510
-        Height = 182
+        Top = 97
+        Width = 502
+        Height = 151
         Margins.Left = 6
         Margins.Top = 6
         Margins.Right = 6
@@ -307,14 +310,14 @@ object WelcomeForm: TWelcomeForm
       end
       object BottomPanel: TPanel
         Left = 1
-        Top = 281
-        Width = 522
+        Top = 254
+        Width = 514
         Height = 37
         Align = alBottom
         BevelOuter = bvNone
         TabOrder = 1
         object OkButton: TStyledButton
-          Left = 432
+          Left = 434
           Top = 3
           Width = 84
           Height = 30

Demos/source/StyledButtonGroupForm.pas

@@ -196,7 +196,7 @@ procedure TfmStyledButtonGroup.CreateStyledButtonGroup;
   FStyledButtonGroup := TStyledButtonGroup.Create(Self);
   FStyledButtonGroup.Parent := Self;
   FStyledButtonGroup.Align := alLeft;
-  FStyledButtonGroup.Width := Round(BUTTON_WIDTH * 1.5);
+  FStyledButtonGroup.Width := Round(BUTTON_WIDTH * 1.5 * GetScaleFactor);
   UpdateShowCaptions(FStyledButtonGroup, BUTTONGROUP_SHOW_CAPTIONS);
   UpdateSetFullSize(FStyledButtonGroup, BUTTONGROUP_FULLSIZE);
   UpdateSetGroupStyle(FStyledButtonGroup, BUTTON_GROUP_GROUP_STYLE);
@@ -211,7 +211,7 @@ procedure TfmStyledButtonGroup.CreateButtonGroup;
   FButtonGroup := TButtonGroup.Create(Self);
   FButtonGroup.Parent := Self;
   FButtonGroup.Align := alLeft;
-  FButtonGroup.Width := Round(BUTTON_WIDTH * 1.5);
+  FButtonGroup.Width := Round(BUTTON_WIDTH * 1.5 * GetScaleFactor);
   UpdateShowCaptions(FButtonGroup, BUTTONGROUP_SHOW_CAPTIONS);
   UpdateSetFullSize(FButtonGroup, BUTTONGROUP_FULLSIZE);
   UpdateSetGroupStyle(FButtonGroup, BUTTON_GROUP_GROUP_STYLE);

Demos/source/StyledButtonVCLStylesForm.pas

@@ -206,11 +206,16 @@ procedure TfmStyledButtonVCLStyles.CreateButtons(const AVcl: Boolean;
     AStyleName: string);
   var
     LButton: TStyledButton;
+    LAsVcl: Boolean;
   begin
+    LAsVcl := RenderRadioGroup.ItemIndex = RENDER_SAME_AS_VCL;
     LButton := TStyledButton.CreateStyled(Self,
       DEFAULT_CLASSIC_FAMILY,
       AStyleName,
-      DEFAULT_APPEARANCE);
+      DEFAULT_APPEARANCE,
+      DEFAULT_STYLEDRAWTYPE,
+      DEFAULT_CURSOR,
+      not LAsVcl);
 
     LButton.Enabled := EnabledCheckBox.Checked;
     LButton.SetBounds((AColumn * LWidth) + (BUTTON_MARGIN*AColumn),

Demos/source/StyledButtonsForm.dfm

@@ -1551,11 +1551,9 @@ object fmStyledButtons: TfmStyledButtons
           Left = 0
           Top = 0
           Width = 883
-          Height = 47
+          Height = 121
           Align = alTop
           Caption = 'Normal Classic Buttons (similar to VCL Styled Button)'
-          DoubleBuffered = False
-          ParentDoubleBuffered = False
           TabOrder = 0
           object ClassicNormalFlowPanel: TFlowPanel
             Left = 2
@@ -1565,6 +1563,8 @@ object fmStyledButtons: TfmStyledButtons
             Align = alTop
             AutoSize = True
             BevelOuter = bvNone
+            ParentBackground = False
+            ParentColor = True
             TabOrder = 0
             OnResize = FlowPanelResize
           end
@@ -1573,11 +1573,9 @@ object fmStyledButtons: TfmStyledButtons
           Left = 0
           Top = 47
           Width = 883
-          Height = 56
+          Height = 130
           Align = alTop
           Caption = 'Outline Classic Buttons (inspired to VCL Styled Button)'
-          DoubleBuffered = False
-          ParentDoubleBuffered = False
           TabOrder = 1
           object ClassicOutlineFlowPanel: TFlowPanel
             Left = 2
@@ -1587,6 +1585,8 @@ object fmStyledButtons: TfmStyledButtons
             Align = alTop
             AutoSize = True
             BevelOuter = bvNone
+            ParentBackground = False
+            ParentColor = True
             TabOrder = 0
             OnResize = FlowPanelResize
           end
@@ -1615,8 +1615,6 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Normal Buttons'
-          DoubleBuffered = False
-          ParentDoubleBuffered = False
           TabOrder = 0
           object FlowPanelNormal: TFlowPanel
             Left = 2
@@ -1626,6 +1624,8 @@ object fmStyledButtons: TfmStyledButtons
             Align = alTop
             AutoSize = True
             BevelOuter = bvNone
+            ParentBackground = False
+            ParentColor = True
             TabOrder = 0
             OnResize = FlowPanelResize
           end
@@ -1637,17 +1637,17 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Outline Buttons'
-          DoubleBuffered = False
-          ParentDoubleBuffered = False
           TabOrder = 1
           object FlowPanelOutLine: TFlowPanel
-            Left = 2
+            Left = 1
             Top = 15
             Width = 877
             Height = 143
             Align = alTop
             AutoSize = True
             BevelOuter = bvNone
+            ParentBackground = False
+            ParentColor = True
             TabOrder = 0
             OnResize = FlowPanelResize
           end
@@ -1675,8 +1675,6 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Normal Buttons'
-          DoubleBuffered = False
-          ParentDoubleBuffered = False
           TabOrder = 0
           object SvgColorNormalFlowPanel: TFlowPanel
             Left = 2
@@ -1686,6 +1684,8 @@ object fmStyledButtons: TfmStyledButtons
             Align = alTop
             AutoSize = True
             BevelOuter = bvNone
+            ParentBackground = False
+            ParentColor = True
             TabOrder = 0
             OnResize = FlowPanelResize
           end
@@ -1697,17 +1697,17 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Outline Buttons'
-          DoubleBuffered = False
-          ParentDoubleBuffered = False
           TabOrder = 1
           object SvgColorOutlineFlowPanel: TFlowPanel
-            Left = 2
+            Left = 1
             Top = 15
             Width = 877
             Height = 143
             Align = alTop
             AutoSize = True
             BevelOuter = bvNone
+            ParentBackground = False
+            ParentColor = True
             TabOrder = 0
             OnResize = FlowPanelResize
           end

Demos/source/StyledCategoryButtonsForm.pas

@@ -183,7 +183,7 @@ procedure TfmStyledCategoryButtons.CreateStyledCategoryButtons;
   FStyledCategoryButtons := TStyledCategoryButtons.Create(Self);
   FStyledCategoryButtons.Parent := Self;
   FStyledCategoryButtons.Align := alLeft;
-  FStyledCategoryButtons.Width := Round(BUTTON_WIDTH * 1.5);
+  FStyledCategoryButtons.Width := Round(BUTTON_WIDTH * 1.5 * GetScaleFactor);
   UpdateShowCaptions(FStyledCategoryButtons, CATEGORYBUTTONS_SHOW_CAPTIONS);
   UpdateSetFullSize(FStyledCategoryButtons, CATEGORYBUTTONS_FULLSIZE);
   FStyledCategoryButtons.Images := VirtualImageList;
@@ -197,7 +197,7 @@ procedure TfmStyledCategoryButtons.CreateCategoryButtons;
   FCategoryButtons := TCategoryButtons.Create(Self);
   FCategoryButtons.Parent := Self;
   FCategoryButtons.Align := alLeft;
-  FCategoryButtons.Width := Round(BUTTON_WIDTH * 1.5);
+  FCategoryButtons.Width := Round(BUTTON_WIDTH * 1.5 * GetScaleFactor);
   UpdateShowCaptions(FCategoryButtons, CategoryButtons_SHOW_CAPTIONS);
   UpdateSetFullSize(FCategoryButtons, CategoryButtons_FULLSIZE);
   FCategoryButtons.Images := VirtualImageList;

README.htm

@@ -31,7 +31,7 @@
 </style>
 <h1>Delphi VCL StyledComponents <a href="https://opensource.org/licenses/Apache-2.0"><img src="https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg" alt="License"/></a></h1>
 <h2>Components similar to Delphi VCL Buttons, Toolbar, DbNavigator, BindNavigator, ButtonGroup and CategoryButtons with Custom Graphic Styles, and an advanced, full-customizable TaskDialog, also with animations!</h2>
-<h3>Actual official version: 3.7.0</h3>
+<h3>Actual official version: 3.7.1</h3>
 <hr />
 <h2>A brief description</h2>
 <p><strong>StyledComponents</strong> is a set of VCL components for Delphi (32 and 64 bit) that allow you to overcome the limits imposed by standard VCL components, maintaining 100% compatibility of the properties.</p>
@@ -347,6 +347,11 @@ <h3>Available from Delphi XE6 to Delphi 12 (32bit and 64bit platforms)</h3>
 <p><img src="./Images/SupportingDelphi.jpg" alt="Delphi Support"/></p>
 <p>Related links: <a href="https://www.embarcadero.com">embarcadero.com</a> - <a href="https://learndelphi.org">learndelphi.org</a></p>
 <h3>RELEASE NOTES</h3>
+<p>22 Oct 2024: version 3.7.1</p>
+<ul>
+<li>Fixed background for icon into MessageDialogs</li>
+<li>Fixed drawing TStyledGraphicButton</li>
+</ul>
 <p>20 Oct 2024: version 3.7.0</p>
 <ul>
 <li>Outlined Colored Button (standard and SVG) now paint buttons also when focused, same as when &ldquo;hot&rdquo;</li>

README.md

@@ -2,7 +2,7 @@
 
 ## Components similar to Delphi VCL Buttons, Toolbar, DbNavigator, BindNavigator, ButtonGroup and CategoryButtons with Custom Graphic Styles, and an advanced, full-customizable TaskDialog, also with animations!
 
-### Actual official version: 3.7.0
+### Actual official version: 3.7.1
 
 ---
 ## A brief description
@@ -403,6 +403,10 @@ If you are have Skia4Delphi installed, you can also try the AnimatedTaskDialogDe
 Related links: [embarcadero.com](https://www.embarcadero.com) - [learndelphi.org](https://learndelphi.org)
 
 ### RELEASE NOTES
+22 Oct 2024: version 3.7.1
+- Fixed background for icon into MessageDialogs
+- Fixed drawing TStyledGraphicButton
+
 20 Oct 2024: version 3.7.0
 - Outlined Colored Button (standard and SVG) now paint buttons also when focused, same as when "hot"
 - Use always DrawRectWithGDIPlus

packages/Vcl.StyledButtonEditorUnit.pas

@@ -205,6 +205,8 @@ function EditStyledButtonRender(const AButtonRender: TStyledButtonRender): Boole
 
       Result := ShowModal = mrOk;
       SavedBounds := BoundsRect;
+      if Result then
+        AButtonRender.OwnerControl.Invalidate;
     finally
       Free;
     end;