version 3.4.2

- New packages for Delphi 12.1
- Added support for new Delphi 12.1 Styles (Windows11 Impressive Dark/Light)
- Added Interposer Unit (Vcl.StyledMessagesHooks.pas) for Messages
- Fixed StyledButtonGroup e StyledCategoryButtons

Author: carloBarazzetta

Demos/StyledButtonsDemo/Delphi10.3+/BitBtnDemo.res

@@ -2,7 +2,7 @@ object TestMainForm: TTestMainForm
   Left = 0
   Top = 0
   Caption = 'Styled Button Test (c) Copyright Ethea S.r.l.'
-  ClientHeight = 641
+  ClientHeight = 681
   ClientWidth = 988
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
@@ -19,7 +19,7 @@ object TestMainForm: TTestMainForm
   object TopPanel: TPanel
     Left = 0
     Top = 0
-    Width = 984
+    Width = 988
     Height = 65
     Align = alTop
     Color = clGray
@@ -119,17 +119,19 @@ object TestMainForm: TTestMainForm
     Left = 0
     Top = 65
     Width = 489
-    Height = 575
+    Height = 616
     Align = alLeft
     TabOrder = 1
+    ExplicitHeight = 576
     object LeftScrollBox: TScrollBox
       Left = 1
       Top = 25
       Width = 487
-      Height = 549
+      Height = 590
       Align = alClient
       TabOrder = 0
       OnMouseWheel = ScrollBoxMouseWheel
+      ExplicitHeight = 550
     end
     object Panel1: TPanel
       Left = 1
@@ -144,23 +146,25 @@ object TestMainForm: TTestMainForm
   object RightPanel: TPanel
     Left = 489
     Top = 65
-    Width = 495
-    Height = 575
+    Width = 499
+    Height = 616
     Align = alClient
     TabOrder = 2
+    ExplicitHeight = 576
     object RightScrollBox: TScrollBox
       Left = 1
       Top = 25
-      Width = 493
-      Height = 549
+      Width = 497
+      Height = 590
       Align = alClient
       TabOrder = 0
       OnMouseWheel = ScrollBoxMouseWheel
+      ExplicitHeight = 550
     end
     object TopRightPanel: TPanel
       Left = 1
       Top = 1
-      Width = 493
+      Width = 497
       Height = 24
       Align = alTop
       Caption = 

Demos/StyledButtonsDemo/MainFormTest.dfm

@@ -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.4.1</h3>
+<h3>Actual official version: 3.4.2</h3>
 <h2>List of available Components:</h2>
 <table>
   <tr>
@@ -298,6 +298,13 @@ <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>7 Apr 2024: version 3.4.2</p>
+<ul>
+<li>New packages for Delphi 12.1</li>
+<li>Added support for new Delphi 12.1 Styles (Windows11 Impressive Dark/Light)</li>
+<li>Added Interposer Unit (Vcl.StyledMessagesHooks.pas) for Messages</li>
+<li>Fixed StyledButtonGroup e StyledCategoryButtons</li>
+</ul>
 <p>5 Apr 2024: version 3.4.1</p>
 <ul>
 <li>Added StyledCategoryButtons Component</li>

README.htm

@@ -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.4.1
+### Actual official version: 3.4.2
 
 ## List of available Components:
 | Component | Description |
@@ -325,6 +325,12 @@ 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
+7 Apr 2024: version 3.4.2
+- New packages for Delphi 12.1
+- Added support for new Delphi 12.1 Styles (Windows11 Impressive Dark/Light)
+- Added Interposer Unit (Vcl.StyledMessagesHooks.pas) for Messages
+- Fixed StyledButtonGroup e StyledCategoryButtons
+
 5 Apr 2024: version 3.4.1
 - Added StyledCategoryButtons Component
 - Added StyledCategoryButtons Demo

README.md

@@ -607,6 +607,18 @@ procedure InitDefaultThemesAttributes;
     RegisterThemeAttributes('Zircon SE',ttLight,clBlack,clBlack,
       htmlToColor('#e5e8e9'),htmlToColor('#a0d4de'),
       htmlToColor('#e5e8e9'),htmlToColor('#a0d4de'),btRoundRect);
+    RegisterThemeAttributes('Windows11 Impressive Dark',ttDark,clWhite,clWhite,
+      htmlToColor('#3F506D'),htmlToColor('#5172EF'),
+      htmlToColor('#3F506D'),htmlToColor('#5172EF'),btRoundRect);
+    RegisterThemeAttributes('Windows11 Impressive Dark SE',ttDark,clWhite,clWhite,
+      htmlToColor('#3F506D'),htmlToColor('#5172EF'),
+      htmlToColor('#3F506D'),htmlToColor('#5172EF'),btRoundRect);
+    RegisterThemeAttributes('Windows11 Impressive Light',ttLight,clBlack,clWhite,
+      htmlToColor('#CAD4E6'),htmlToColor('#5172EF'),
+      htmlToColor('#CAD4E6'),htmlToColor('#5172EF'),btRoundRect);
+    RegisterThemeAttributes('Windows11 Impressive Light SE',ttLight,clBlack,clWhite,
+      htmlToColor('#CAD4E6'),htmlToColor('#5172EF'),
+      htmlToColor('#CAD4E6'),htmlToColor('#5172EF'),btRoundRect);
   end;
 
   //IDE Styled

source/Vcl.StandardButtonStyles.pas

@@ -823,9 +823,6 @@ function TStyledButtonGroup.ApplyButtonStyle: Boolean;
       FButtonStyleSelected,
       FButtonStyleHot,
       FButtonStyleDisabled);
-
-    if not FCustomDrawType then
-      FStyleDrawType := FButtonStyleNormal.DrawType;
   end;
   StyleClass := LStyleClass;
   StyleAppearance := LStyleAppearance;
@@ -930,9 +927,6 @@ function TStyledButtonGroup.ApplyButtonGroupStyle: Boolean;
       FButtonStyleSelected,
       FButtonStyleHot,
       FButtonStyleDisabled);
-
-    if not FCustomDrawType then
-      FStyleDrawType := FButtonStyleNormal.DrawType;
   end;
   Invalidate;
 end;

source/Vcl.StyledButtonGroup.pas

@@ -810,9 +810,6 @@ function TStyledCategoryButtons.ApplyButtonStyle: Boolean;
       FButtonStyleSelected,
       FButtonStyleHot,
       FButtonStyleDisabled);
-
-    if not FCustomDrawType then
-      FStyleDrawType := FButtonStyleNormal.DrawType;
   end;
   StyleClass := LStyleClass;
   StyleAppearance := LStyleAppearance;
@@ -922,9 +919,6 @@ function TStyledCategoryButtons.ApplyCategoryButtonsStyle: Boolean;
       FButtonStyleSelected,
       FButtonStyleHot,
       FButtonStyleDisabled);
-
-    if not FCustomDrawType then
-      FStyleDrawType := FButtonStyleNormal.DrawType;
   end;
   Invalidate;
 end;

source/Vcl.StyledCategoryButtons.pas

@@ -99,6 +99,8 @@   TStyledToolButton = class(TCustomStyledGraphicButton)
     function GetWrap: Boolean;
     procedure SetWrap(const AValue: Boolean);
     procedure UpdateGroupIndex;
+    function GetStyleDrawType: TStyledButtonDrawType;
+    procedure SetStyleDrawType(const AValue: TStyledButtonDrawType);
   protected
     FToolBar: TStyledToolBar;
     function GetCaption: TCaption; override;
@@ -190,7 +192,7 @@   TStyledToolButton = class(TCustomStyledGraphicButton)
     property Tag;
     //StyledComponents Attributes
     property StyleRadius stored IsCustomRadius;
-    property StyleDrawType stored IsCustomDrawType;
+    property StyleDrawType: TStyledButtonDrawType read GetStyleDrawType write SetStyleDrawType stored IsCustomDrawType;
     property StyleFamily stored IsStoredStyleFamily;
     property StyleClass stored IsStoredStyleClass;
     property StyleAppearance stored IsStoredStyleAppearance;
@@ -564,6 +566,11 @@ function TStyledToolButton.GetIndex: Integer;
     Result := -1;
 end;
 
+function TStyledToolButton.GetStyleDrawType: TStyledButtonDrawType;
+begin
+  Result := inherited StyleDrawType;
+end;
+
 function TStyledToolButton.GetText: TCaption;
 begin
   if Assigned(FToolBar) and not (FToolBar.ShowCaptions) then
@@ -944,11 +951,19 @@ procedure TStyledToolButton.SetStyle(AValue: TToolButtonStyle);
     if IsSeparator <> WasSeparator then
     begin
       Width := DEFAULT_SEP_WIDTH;
+      StyleDrawType := StyleDrawType;
     end;
     UpdateButtonContent;
   end;
 end;
 
+procedure TStyledToolButton.SetStyleDrawType(
+  const AValue: TStyledButtonDrawType);
+begin
+  if not IsSeparator then
+    inherited StyleDrawType := AValue;
+end;
+
 procedure TStyledToolButton.SetToolBar(AToolBar: TStyledToolBar);
 begin
   if FToolBar <> AToolBar then
@@ -1640,13 +1655,6 @@ function TStyledToolbar.ApplyToolbarStyle: Boolean;
         LAttributesOther,
         LAttributesOther,
         LAttributesOther);
-(*
-      if not FCustomDrawType then
-      begin
-        FStyleDrawType := LAttributesNormal.DrawType;
-        FCustomDrawType := False;
-      end;
-*)
     finally
       LAttributesNormal.Free;
       LAttributesOther.Free;