26 Maj 2026 - version 4.2.0

- Fixed TaskDialog component in Delphi 13.1
- Fixed TStyledButton: now reacts to form.StyleName changes
- Fixed WM_PAINT cascade on style change (ApplyButtonStyle skip-invalidate when called from paint; all attribute groups assigned in one pass).

Author: carloBarazzetta

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, Panels, Toolbar, DbNavigator, BindNavigator, ButtonGroup and CategoryButtons with Custom Graphic Styles, and an advanced, full-customizable TaskDialog, also with animations!</h2>
-<h3>Actual official version: 4.1.1</h3>
+<h3>Actual official version: 4.2.0</h3>
 <hr />
 <h2>New Setup for Installation of Components</h2>
 <p>From 3.8.1 version a new &ldquo;Installer&rdquo; read-to-use is located in the Release area: <a href="https://github.com/EtheaDev/StyledComponents/releases/latest/download/StyledComponents_Setup.exe">Download the Installer</a>.</p>
@@ -332,7 +332,7 @@ <h2>How to change Dialogs attributes (Font/Buttons Style)</h2>
 <p><ins><em>Confirmation Dialog with custom font/size and English buttons</em></ins></p>
 <p><img src="./Images/ConfirmationDialog.jpg" alt="ConfirmationDialog.jpg"/></p>
 <p><ins><em>Warning Dialog with italians Captions in AcquaGraphite Style</em></ins></p>
-<p>To activate button captions is to change StyledComponents.inc file and activate {$Define ItaMessages}</p>
+<p>To change language of button captions (for example in italian) you must change StyledComponents.inc file and activate: <code>{$Define ItaMessages}</code></p>
 <p><img src="./Images/WarningDialog.jpg" alt="StyledButtonDemo.jpg"/></p>
 <p><ins><em>Error Dialog in Windows10 Vcl Style</em></ins></p>
 <p><img src="./Images/ErrorDialog.jpg" alt="StyledButtonDemo.jpg"/></p>
@@ -348,6 +348,12 @@ <h3>Available from Delphi XE6 to Delphi 13 (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>26 Maj 2026 - version 4.2.0</p>
+<ul>
+<li>Fixed TaskDialog component in Delphi 13.1</li>
+<li>Fixed TStyledButton: now reacts to form.StyleName changes</li>
+<li>Fixed WM_PAINT cascade on style change (ApplyButtonStyle skip-invalidate when called from paint; all attribute groups assigned in one pass).</li>
+</ul>
 <p>22 Apr 2026 - version 4.1.1</p>
 <ul>
 <li>Fixed Owner of TaskDialog form</li>

README.md

@@ -2,7 +2,7 @@
 
 ## Components similar to Delphi VCL Buttons, Panels, Toolbar, DbNavigator, BindNavigator, ButtonGroup and CategoryButtons with Custom Graphic Styles, and an advanced, full-customizable TaskDialog, also with animations!
 
-### Actual official version: 4.1.1
+### Actual official version: 4.2.0
 
 ---
 ## New Setup for Installation of Components
@@ -366,7 +366,7 @@ The main form is useful to test every format / buttons and type of dialogs.
 
 ++*Warning Dialog with italians Captions in AcquaGraphite Style*++
 
-To activate button captions is to change StyledComponents.inc file and activate {$Define ItaMessages}
+To change language of button captions (for example in italian) you must change StyledComponents.inc file and activate: `{$Define ItaMessages}`
 
 ![StyledButtonDemo.jpg](./Images/WarningDialog.jpg)
 
@@ -397,6 +397,11 @@ 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
+26 Maj 2026 - version 4.2.0
+- Fixed TaskDialog component in Delphi 13.1
+- Fixed TStyledButton: now reacts to form.StyleName changes
+- Fixed WM_PAINT cascade on style change (ApplyButtonStyle skip-invalidate when called from paint; all attribute groups assigned in one pass).
+
 22 Apr 2026 - version 4.1.1
 - Fixed Owner of TaskDialog form
 - Fixed sound for TaskMessageDlg using mtConfirmation

source/Vcl.ButtonStylesAttributes.pas

@@ -56,7 +56,7 @@ interface
 
 const
   /// <summary>Current version of the StyledComponents library</summary>
-  StyledComponentsVersion = '4.1.1';
+  StyledComponentsVersion = '4.2.0';
   /// <summary>Default corner radius for rounded buttons in pixels</summary>
   DEFAULT_RADIUS = 6;
   /// <summary>Resource name for the Windows shield admin icon</summary>
@@ -545,12 +545,12 @@ function StyleFamilyCheckAttributes(
   out AButtonFamily: TButtonFamily): Boolean;
 
 /// <summary>Updates button attributes for all states based on family/class/appearance</summary>
-procedure StyleFamilyUpdateAttributes(
+function StyleFamilyUpdateAttributes(
   const AFamily: TStyledButtonFamily;
   var AClass: TStyledButtonClass;
   var AAppearance: TStyledButtonAppearance;
   var ANormalStyle, APressedStyle,
-  ASelectedStyle, AHotStyle, ADisabledStyle: TStyledButtonAttributes);
+  ASelectedStyle, AHotStyle, ADisabledStyle: TStyledButtonAttributes): Boolean;
 
 /// <summary>Gets appropriate style class and appearance for a modal result</summary>
 /// <remarks>
@@ -578,6 +578,9 @@ implementation
 var
   _WindowsVersion: TWindowsVersion;
 
+function GetButtonFamily(const AFamily: TStyledButtonFamily;
+  out AButtonFamily: TButtonFamily): Boolean; forward;
+
 procedure CheckValue(const AName: string; const AValue, AMin, AMax: Integer);
 begin
   if (AValue < AMin) or (AValue > AMax) then
@@ -700,31 +703,35 @@ procedure CloneButtonStyle(
 end;
 
 function GetActiveStyleName(const AControl: TControl): string;
+{$IFDEF D10_4+}
+var
+  LServices: TCustomStyleServices;
+{$ENDIF}
 begin
-  {$IFDEF D10_4+}
-  Result := AControl.GetStyleName;
+  {$IFDEF D11+}
+  //Vcl.Themes.StyleServices(AControl) resolves the effective style for the specific control: it walks the parent chain to honor an inherited
+  LServices := StyleServices(AControl);
+  if Assigned(LServices) then
+    Result := LServices.Name
+  else
+    Result := '';
   if Result = '' then
   begin
-    {$IFDEF D11+}
     if (csDesigning in AControl.ComponentState) then
       Result := TStyleManager.ActiveDesigningStyle.Name
     else
       Result := TStyleManager.ActiveStyle.Name;
-    {$ELSE}
-      Result := TStyleManager.ActiveStyle.Name;
-    {$ENDIF}
   end;
   {$ELSE}
   Result := TStyleManager.ActiveStyle.Name;
   {$ENDIF}
-  if (csDesigning in AControl.ComponentState) then
-  begin
-    if (Result = 'Windows Designer Dark') or
-      (Result = 'Win10IDE_Dark') or
-      (Result = 'Win10IDE_Light') or
-      (Result = 'Mountain_Mist' ) then
-      Result := 'Windows';
-  end;
+  if (Result = '') or
+    (Result = 'Windows Designer Dark') or
+    (Result = 'Windows Designer Modern Dark') or
+    (Result = 'Win10IDE_Dark') or
+    (Result = 'Win10IDE_Light') or
+    (Result = 'Mountain_Mist' ) then
+    Result := 'Windows';
 end;
 
 function GetWindowsVersion: TWindowsVersion;
@@ -940,16 +947,17 @@ function StyleFamilyCheckAttributes(
   end;
 end;
 
-procedure StyleFamilyUpdateAttributes(
+function StyleFamilyUpdateAttributes(
   const AFamily: TStyledButtonFamily;
   var AClass: TStyledButtonClass;
   var AAppearance: TStyledButtonAppearance;
   var ANormalStyle, APressedStyle,
-  ASelectedStyle, AHotStyle, ADisabledStyle: TStyledButtonAttributes);
+  ASelectedStyle, AHotStyle, ADisabledStyle: TStyledButtonAttributes): Boolean;
 var
   LButtonFamily: TButtonFamily;
   LNormalStyle, LPressedStyle, LSelectedStyle, LHotStyle, LDisabledStyle: TStyledButtonAttributes;
 begin
+  Result := False;
   if GetButtonFamily(AFamily, LButtonFamily) then
   begin
     LNormalStyle := TStyledButtonAttributes.Create(nil);
@@ -963,11 +971,11 @@ procedure StyleFamilyUpdateAttributes(
         LNormalStyle, LPressedStyle, LSelectedStyle,
         LHotStyle, LDisabledStyle);
 
-      ANormalStyle.AssignStyledAttributes(LNormalStyle);
-      APressedStyle.AssignStyledAttributes(LPressedStyle);
-      ASelectedStyle.AssignStyledAttributes(LSelectedStyle);
-      AHotStyle.AssignStyledAttributes(LHotStyle);
-      ADisabledStyle.AssignStyledAttributes(LDisabledStyle);
+      if ANormalStyle.AssignStyledAttributes(LNormalStyle) then Result := True;
+      if APressedStyle.AssignStyledAttributes(LPressedStyle) then Result := True;
+      if ASelectedStyle.AssignStyledAttributes(LSelectedStyle) then Result := True;
+      if AHotStyle.AssignStyledAttributes(LHotStyle) then Result := True;
+      if ADisabledStyle.AssignStyledAttributes(LDisabledStyle) then Result := True;
     finally
       LNormalStyle.Free;
       LPressedStyle.Free;
@@ -1284,17 +1292,30 @@ function TStyledButtonAttributes.AssignStyledAttributes(
   const ASource: TStyledButtonAttributes): Boolean;
 begin
   //Assign internal variable
-  FDrawType := ASource.FDrawType;
-  FBorderWidth := ASource.FBorderWidth;
-  FBorderDrawStyle := ASource.FBorderDrawStyle;
-  FButtonDrawStyle := ASource.FButtonDrawStyle;
-  FBorderColor := ASource.FBorderColor;
-  FFontColor := ASource.FFontColor;
-  FFontStyle := ASource.FFontStyle;
-  FButtonColor := ASource.FButtonColor;
-  FRadius := ASource.FRadius;
-  FRoundedCorners := ASource.FRoundedCorners;
-  Result := True;
+  Result :=
+    (FDrawType <> ASource.FDrawType) or
+    (FBorderWidth <> ASource.FBorderWidth) or
+    (FBorderDrawStyle <> ASource.FBorderDrawStyle) or
+    (FButtonDrawStyle <> ASource.FButtonDrawStyle) or
+    (FBorderColor <> ASource.FBorderColor) or
+    (FFontColor <> ASource.FFontColor) or
+    (FFontStyle <> ASource.FFontStyle) or
+    (FButtonColor <> ASource.FButtonColor) or
+    (FRadius <> ASource.FRadius) or
+    (FRoundedCorners <> ASource.FRoundedCorners);
+  if Result then
+  begin
+    FDrawType := ASource.FDrawType;
+    FBorderWidth := ASource.FBorderWidth;
+    FBorderDrawStyle := ASource.FBorderDrawStyle;
+    FButtonDrawStyle := ASource.FButtonDrawStyle;
+    FBorderColor := ASource.FBorderColor;
+    FFontColor := ASource.FFontColor;
+    FFontStyle := ASource.FFontStyle;
+    FButtonColor := ASource.FButtonColor;
+    FRadius := ASource.FRadius;
+    FRoundedCorners := ASource.FRoundedCorners;
+  end;
 end;
 
 function TStyledButtonAttributes.BrushStyle: TBrushStyle;

source/Vcl.StandardButtonStyles.pas

@@ -732,7 +732,7 @@ procedure InitDefaultThemesAttributes;
     RegisterThemeAttributes('Windows Modern SlateGray',ttDark,clWhite,clWhite,
       htmlToColor('#2a353b'),htmlToColor('#2a353b'),htmlToColor('#7daca8'),
       htmlToColor('#2a353b'),htmlToColor('#7daca8'),btRoundRect);
-    RegisterThemeAttributes('Windows Modern MountainMist',ttDark,clBlack,clBlack,
+    RegisterThemeAttributes('Windows Modern MountainMist',ttLight,clBlack,clBlack,
       htmlToColor('#dadada'),htmlToColor('#dadada'),htmlToColor('#e1edf6'),
       htmlToColor('#b4b4b4'),htmlToColor('#3a93dd'),btRoundRect);
 
@@ -812,9 +812,21 @@ procedure InitDefaultThemesAttributes;
   RegisterThemeAttributes('Win10IDE_Dark',ttDark,clWhite,clWhite,
     htmlToColor('#373737'),htmlToColor('#373737'),htmlToColor('#405560'),
     htmlToColor('#434343'),htmlToColor('#4ab2e9'),btRoundRect, True);
+  RegisterThemeAttributes('Windows Designer Dark',ttDark,clWhite,clWhite,
+    htmlToColor('#373737'),htmlToColor('#373737'),htmlToColor('#405560'),
+    htmlToColor('#434343'),htmlToColor('#4ab2e9'),btRoundRect, True);
+  RegisterThemeAttributes('Windows Designer Dark Modern',ttDark,clWhite,clWhite,
+    htmlToColor('#373737'),htmlToColor('#373737'),htmlToColor('#405560'),
+    htmlToColor('#434343'),htmlToColor('#4ab2e9'),btRoundRect, True);
   RegisterThemeAttributes('Win10IDE_Light',ttLight,clBlack,clBlack,
     htmlToColor('#fdfdfd'),htmlToColor('#fdfdfd'),htmlToColor('#eef4f9'),
     htmlToColor('#bbbbbb'),htmlToColor('#0067c0'),btRoundRect, True);
+  RegisterThemeAttributes('Windows Designer Light',ttLight,clBlack,clBlack,
+    htmlToColor('#fdfdfd'),htmlToColor('#fdfdfd'),htmlToColor('#eef4f9'),
+    htmlToColor('#bbbbbb'),htmlToColor('#0067c0'),btRoundRect, True);
+  RegisterThemeAttributes('Windows Designer Light Modern',ttLight,clBlack,clBlack,
+    htmlToColor('#fdfdfd'),htmlToColor('#fdfdfd'),htmlToColor('#eef4f9'),
+    htmlToColor('#bbbbbb'),htmlToColor('#0067c0'),btRoundRect, True);
   RegisterThemeAttributes('Mountain_Mist',ttLight,clBlack,clBlack,
     htmlToColor('#fdfdfd'),htmlToColor('#fdfdfd'),htmlToColor('#eef4f9'),
     htmlToColor('#bbbbbb'),htmlToColor('#0067c0'),btRoundRect, True);

source/Vcl.StyledButton.pas

@@ -1,4 +1,4 @@
-{******************************************************************************}
+{******************************************************************************}
 {                                                                              }
 {  TStyledGraphicButton: a "styled" Button based on TGraphicControl            }
 {  TStyledButton: a "styled" Button Component similar to TButton               }
@@ -253,7 +253,7 @@   TStyledButtonRender = class(TObject)
     procedure SetStyleFamily(const AValue: TStyledButtonFamily);
     procedure SetStyleClass(const AValue: TStyledButtonClass);
     procedure SetStyleAppearance(const AValue: TStyledButtonAppearance);
-    function ApplyButtonStyle: Boolean;
+    function ApplyButtonStyle(const ASkipInvalidate: Boolean = False): Boolean;
 
     procedure SetDisabledImages(const AValue: TCustomImageList);
     procedure SetImages(const AValue: TCustomImageList);
@@ -2315,11 +2315,12 @@ procedure TStyledButtonRender.ActionChange(Sender: TObject; CheckDefaults: Boole
   end;
 end;
 
-function TStyledButtonRender.ApplyButtonStyle: Boolean;
+function TStyledButtonRender.ApplyButtonStyle(const ASkipInvalidate: Boolean = False): Boolean;
 var
   LButtonFamily: TButtonFamily;
   LStyleClass: TStyledButtonClass;
   LStyleAppearance: TStyledButtonAppearance;
+  LInvaldate: Boolean;
 begin
   if AsVCLStyle then
   begin
@@ -2336,9 +2337,9 @@ function TStyledButtonRender.ApplyButtonStyle: Boolean;
   end;
   Result := StyleFamilyCheckAttributes(FStyleFamily,
     LStyleClass, LStyleAppearance, LButtonFamily);
-  if Result (*or (csDesigning in ComponentState)*) then
+  if Result then
   begin
-    StyleFamilyUpdateAttributes(
+    LInvaldate := StyleFamilyUpdateAttributes(
       FStyleFamily,
       LStyleClass,
       LStyleAppearance,
@@ -2353,10 +2354,14 @@ function TStyledButtonRender.ApplyButtonStyle: Boolean;
   end
   else
   begin
+    LInvaldate := (FStyleClass <> LStyleClass) or (FStyleAppearance <> LStyleAppearance);
     FStyleClass := LStyleClass;
     FStyleAppearance := LStyleAppearance;
   end;
-  if Result then
+  //ASkipInvalidate is True when this is called from inside the paint cycle
+  //(DrawBackgroundAndBorder), where Invalidate would trigger another WM_PAINT
+  //and cause an infinite paint loop.
+  if LInvaldate and not ASkipInvalidate then
     Invalidate;
 end;
 
@@ -2781,6 +2786,11 @@ procedure TStyledButtonRender.DrawBackgroundAndBorder(
   LCorners: TRoundedCorners;
   LDrawingAutoClick: Boolean;
 begin
+  //Call with ASkipInvalidate=True: we are already inside WM_PAINT, the
+  //attributes update will be reflected by the current paint pass itself,
+  //and an Invalidate here would queue another WM_PAINT → loop.
+  if AsVCLStyle then
+    ApplyButtonStyle(True);
   LStyleAttribute := GetDrawingStyle(ACanvas, ButtonState);
 
   //Erase Background
@@ -6336,7 +6346,7 @@ procedure TCustomStyledButton.SetStyleName(const AValue: string);
     StyleFamily := DEFAULT_CLASSIC_FAMILY;
   inherited;
   if (AValue <> '') then
-    StyleClass := AValue;  
+    StyleClass := AValue;
 end;
 {$ENDIF}
 

source/Vcl.StyledTaskDialog.pas

@@ -1223,7 +1223,7 @@ procedure TStyledTaskDialog.SetUseAnimations(const AValue: Boolean);
     if AValue and not AnimatedTaskDialogFormRegistered then
       raise EStyledTaskDialogException.CreateFmt(
         ERR_DIALOG_FORM_NOT_REGISTERED,
-        ['Skia.Vcl.StyledTaskDialogAnimatedUnit.pas']);
+        ['Skia.Vcl.StyledTaskDialogAnimatedUnit']);
     FUseAnimations := AValue;
   end;
 end;

source/Vcl.StyledTaskDialogFormUnit.pas

@@ -1,4 +1,4 @@
-{******************************************************************************}
+{******************************************************************************}
 {                                                                              }
 {  StyledTaskDialogForm: a Task Dialog Form with StyleButtons                  }
 {                                                                              }
@@ -1170,8 +1170,6 @@ procedure TStyledTaskDialogForm.AdjustControlsTopPos;
     begin
       AControl.Top := LTop+1;
       Inc(LTop, AControl.Height);
-//      if AControl.AlignWithMargins then
-//        Inc(LTop, AControl.Margins.Top + AControl.Margins.Bottom);
     end;
   end;
 
@@ -1683,7 +1681,7 @@ function TTaskDialogLauncherHandler.DoExecute(ParentWnd: HWND;
     if not AnimatedTaskDialogFormRegistered then
       raise EStyledTaskDialogException.CreateFmt(
         ERR_DIALOG_FORM_NOT_REGISTERED,
-        ['Skia.Vcl.StyledTaskDialogAnimatedUnit.pas'])
+        ['Skia.Vcl.StyledTaskDialogAnimatedUnit'])
     else
     begin
       LForm := _AnimatedTaskDialogFormClass.Create(nil);