version 3.7.0

- Outlined Colored Button (standard and SVG) now paint buttons also when focused, same as when "hot"
- Use always DrawRectWithGDIPlus
- Added AnimateOnType prop for TAnimatedButton: (AnimateOnButton, AnimateOnImage)
- Fixed transparent background for StyledButton using DoubleBuffered
- Updated Demo

Author: carloBarazzetta

Demos/source/AnimatedButtonsForm.dfm

@@ -22,9 +22,6 @@ object fmAnimatedButtons: TfmAnimatedButtons
     Height = 97
     Align = alBottom
     TabOrder = 0
-    ExplicitLeft = 88
-    ExplicitTop = 216
-    ExplicitWidth = 702
     object ImageAlignmentRadioGroup: TRadioGroup
       Left = 1
       Top = 1
@@ -43,9 +40,6 @@ object fmAnimatedButtons: TfmAnimatedButtons
         'Center')
       TabOrder = 0
       OnClick = ImageAlignmentRadioGroupClick
-      ExplicitLeft = 8
-      ExplicitTop = 6
-      ExplicitHeight = 91
     end
     object AutoAnimationRadioGroup: TRadioGroup
       Left = 186
@@ -55,9 +49,6 @@ object fmAnimatedButtons: TfmAnimatedButtons
       Align = alLeft
       Caption = 'AutoAnimationType'
       TabOrder = 1
-      ExplicitLeft = 199
-      ExplicitTop = -8
-      ExplicitHeight = 105
     end
     object cbAnimateOnClick: TCheckBox
       Left = 192
@@ -98,17 +89,20 @@ object fmAnimatedButtons: TfmAnimatedButtons
       OnClick = AutoAnimationClick
     end
     object StyledAnimatedButton: TStyledAnimatedButton
-      Left = 596
-      Top = 1
-      Width = 201
-      Height = 95
+      AlignWithMargins = True
+      Left = 544
+      Top = 11
+      Width = 243
+      Height = 75
+      Margins.Left = 10
+      Margins.Top = 10
+      Margins.Right = 10
+      Margins.Bottom = 10
       Align = alRight
       Caption = 'Animated &Button'
+      ImageMargins.Left = 20
       TabOrder = 6
       StyleRadius = 28
-      ExplicitLeft = 501
-      ExplicitTop = 6
-      ExplicitHeight = 91
       AnimationData = {
         1F8B0800000000000203ED7DDB92E3C891E5AFC8EA1984C5FDD21F30F3BA66BB
         6FB2B6B592BAA4AEED52675B5575CF6864FAF7F5733C4082247807329999D4D8

Demos/source/AnimatedButtonsForm.pas

@@ -131,7 +131,7 @@ function TfmAnimatedButtons.CreateNewButton(const AParent: TWinControl; const AL
   LIconName := StringReplace(AImageName,'&','', [rfReplaceAll]);
   Result.Name := LIconName;
   Result.AutoSizeAnimationMargin := 20;
-  Result.SetBounds(ALeft,ATop,180,100);
+  Result.SetBounds(ALeft,ATop,220,80);
   Result.Parent := AParent;
   //Result.AnimationWidth := 42;
   //Result.AnimationHeight := 42;
@@ -178,10 +178,10 @@ procedure TfmAnimatedButtons.FormCreate(Sender: TObject);
   Caption := Application.Title;
   CreateNewButton(Self, 10,  10,'&Information', 'Primary');
   CreateNewButton(Self, 10, 110,'&Warning', 'Danger');
-  CreateNewButton(Self, 210, 10,'&Error', 'Warning');
-  CreateNewButton(Self, 210,110,'&Question', 'Info');
-  CreateNewButton(Self, 410, 10,'&Notify', 'Secondary');
-  CreateNewButton(Self, 410,110,'&Custom', 'Dark');
+  CreateNewButton(Self, 250, 10,'&Error', 'Warning');
+  CreateNewButton(Self, 250,110,'&Question', 'Info');
+  CreateNewButton(Self, 490, 10,'&Notify', 'Secondary');
+  CreateNewButton(Self, 490,110,'&Custom', 'Dark');
 end;
 
 procedure TfmAnimatedButtons.FormDestroy(Sender: TObject);

Demos/source/MainDemoForm.pas

@@ -57,7 +57,7 @@ interface
 
 const
 
-  MENU_COLLAPSED_WIDTH = 50;
+  MENU_COLLAPSED_WIDTH = 48;
   MENU_EXPANDED_WIDTH = 300;
   SETTINGS_EXPANDED_WIDTH = 400;
   MENU_LINES_HEIGHT = 40;
@@ -483,13 +483,15 @@ procedure TfrmMain.RealignMainMenu;
     LMenuSize := Round(MENU_EXPANDED_WIDTH * GetScaleFactor);
     // When Menu is opened, Shows the Captions of Category Buttons
     catMenuItems.ButtonOptions := catMenuItems.ButtonOptions + [boShowCaptions];
+    catMenuItems.ImageAlignment := TImageAlignment.iaLeft;
     actMenu.Hint := 'Collapse Menu';
   end
   else
   begin
     LMenuSize := Round(MENU_COLLAPSED_WIDTH * GetScaleFactor);
     // When Menu is closed, adjust ButtonOptions and Width
     catMenuItems.ButtonOptions := catMenuItems.ButtonOptions - [boShowCaptions];
+    catMenuItems.ImageAlignment := TImageAlignment.iaCenter;
     actMenu.Hint := 'Expand Menu';
   end;
   LeftPanel.SetBounds(0, LTopHeight, LMenuSize, ClientHeight-LTopHeight);
@@ -789,7 +791,6 @@ procedure TfrmMain.ShowError(Sender: TObject; E: Exception);
   LTitle: string;
   LMessage: string;
   LHelpContext: Integer;
-  LUseTaskDialog: Boolean;
 begin
   LTitle := GetErrorClassNameDesc(E.ClassName,
     E is EAccessViolation);

Demos/source/StyledButtonsForm.dfm

@@ -2,7 +2,7 @@ object fmStyledButtons: TfmStyledButtons
   Left = 0
   Top = 0
   ActiveControl = ShowEditButton
-  Caption = 'Styled Buttons Demo'
+  Caption = 'Styled Buttons - Family/Class/Appearance'
   ClientHeight = 691
   ClientWidth = 895
   Color = clWindow
@@ -1547,13 +1547,15 @@ object fmStyledButtons: TfmStyledButtons
         Height = 318
         Align = alClient
         TabOrder = 2
-        object GroupBox4: TGroupBox
+        object ClassicNormalGroupBox: TGroupBox
           Left = 0
           Top = 0
           Width = 883
           Height = 47
           Align = alTop
           Caption = 'Normal Classic Buttons (similar to VCL Styled Button)'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 0
           object ClassicNormalFlowPanel: TFlowPanel
             Left = 2
@@ -1567,13 +1569,15 @@ object fmStyledButtons: TfmStyledButtons
             OnResize = FlowPanelResize
           end
         end
-        object GroupBox5: TGroupBox
+        object ClassicOutlineGroupBox: TGroupBox
           Left = 0
           Top = 47
           Width = 883
           Height = 56
           Align = alTop
           Caption = 'Outline Classic Buttons (inspired to VCL Styled Button)'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 1
           object ClassicOutlineFlowPanel: TFlowPanel
             Left = 2
@@ -1611,6 +1615,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Normal Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 0
           object FlowPanelNormal: TFlowPanel
             Left = 2
@@ -1631,6 +1637,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Outline Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 1
           object FlowPanelOutLine: TFlowPanel
             Left = 2
@@ -1667,6 +1675,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Normal Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 0
           object SvgColorNormalFlowPanel: TFlowPanel
             Left = 2
@@ -1687,6 +1697,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Outline Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 1
           object SvgColorOutlineFlowPanel: TFlowPanel
             Left = 2

Demos/source/StyledButtonsForm.pas

@@ -197,9 +197,9 @@   TfmStyledButtons = class(TForm)
     SvgColorOutlineGroupBox: TGroupBox;
     SvgColorOutlineFlowPanel: TFlowPanel;
     ClassicScrollBox: TScrollBox;
-    GroupBox4: TGroupBox;
+    ClassicNormalGroupBox: TGroupBox;
     ClassicNormalFlowPanel: TFlowPanel;
-    GroupBox5: TGroupBox;
+    ClassicOutlineGroupBox: TGroupBox;
     ClassicOutlineFlowPanel: TFlowPanel;
     ButtonSplit: TButton;
     StyledButtonSplit: TStyledButton;

Demos/source/StyledButtonsFormOld.dfm

@@ -12,7 +12,6 @@ object fmStyledButtons: TfmStyledButtons
   Font.Height = -11
   Font.Name = 'Segoe UI'
   Font.Style = []
-  OldCreateOrder = True
   ShowHint = True
   OnCreate = FormCreate
   PixelsPerInch = 96
@@ -1549,13 +1548,15 @@ object fmStyledButtons: TfmStyledButtons
         Height = 318
         Align = alClient
         TabOrder = 2
-        object GroupBox4: TGroupBox
+        object ClassicNormalGroupBox: TGroupBox
           Left = 0
           Top = 0
           Width = 883
           Height = 47
           Align = alTop
           Caption = 'Normal Classic Buttons (similar to VCL Styled Button)'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 0
           object ClassicNormalFlowPanel: TFlowPanel
             Left = 2
@@ -1569,13 +1570,15 @@ object fmStyledButtons: TfmStyledButtons
             OnResize = FlowPanelResize
           end
         end
-        object GroupBox5: TGroupBox
+        object ClassicOutlineGroupBox: TGroupBox
           Left = 0
           Top = 47
           Width = 883
           Height = 56
           Align = alTop
           Caption = 'Outline Classic Buttons (inspired to VCL Styled Button)'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 1
           object ClassicOutlineFlowPanel: TFlowPanel
             Left = 2
@@ -1613,6 +1616,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Normal Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 0
           object FlowPanelNormal: TFlowPanel
             Left = 2
@@ -1633,6 +1638,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Outline Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 1
           object FlowPanelOutLine: TFlowPanel
             Left = 2
@@ -1669,6 +1676,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Normal Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 0
           object SvgColorNormalFlowPanel: TFlowPanel
             Left = 2
@@ -1689,6 +1698,8 @@ object fmStyledButtons: TfmStyledButtons
           Height = 185
           Align = alTop
           Caption = 'Outline Buttons'
+          DoubleBuffered = False
+          ParentDoubleBuffered = False
           TabOrder = 1
           object SvgColorOutlineFlowPanel: TFlowPanel
             Left = 2

Demos/source/StyledButtonsFormOld.pas

@@ -192,9 +192,9 @@   TfmStyledButtons = class(TForm)
     SvgColorOutlineGroupBox: TGroupBox;
     SvgColorOutlineFlowPanel: TFlowPanel;
     ClassicScrollBox: TScrollBox;
-    GroupBox4: TGroupBox;
+    ClassicNormalGroupBox: TGroupBox;
     ClassicNormalFlowPanel: TFlowPanel;
-    GroupBox5: TGroupBox;
+    ClassicOutlineGroupBox: TGroupBox;
     ClassicOutlineFlowPanel: TFlowPanel;
     ButtonSplit: TButton;
     StyledButtonSplit: TStyledButton;

Demos/source/StyledDbNavigatorForm.pas

@@ -223,6 +223,10 @@ procedure TfmStyledDbNavigator.StyledDBNavigatorEnableNavBtn(
   const ADbNavigator: TCustomStyledDBNavigator; const ABtn: TStyledNavButton;
   var AEnabled: Boolean);
 begin
+  //Simple example to disable Delete button (always)
+  if (ABtn.Index = TNavigateBtn.nbDelete) then
+    AEnabled := False;
+
   //Simple example to disable all buttons when the Quantity  is 3
   if AEnabled and (ClientDataSetQuantity.Value = 3) then
     AEnabled := False;

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.6.9</h3>
+<h3>Actual official version: 3.7.0</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,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>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>
+<li>Use always DrawRectWithGDIPlus</li>
+<li>Added AnimateOnType prop for TAnimatedButton: (AnimateOnButton, AnimateOnImage)</li>
+<li>Fixed transparent background for StyledButton using DoubleBuffered</li>
+</ul>
 <p>12 Oct 2024: version 3.6.9</p>
 <ul>
 <li>Added Expanded button and Panel in StyledTaskDialog Form</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.6.9
+### Actual official version: 3.7.0
 
 ---
 ## A brief description
@@ -403,6 +403,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
+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
+- Added AnimateOnType prop for TAnimatedButton: (AnimateOnButton, AnimateOnImage)
+- Fixed transparent background for StyledButton using DoubleBuffered
+
 12 Oct 2024: version 3.6.9
 - Added Expanded button and Panel in StyledTaskDialog Form
 - Changed Panel Order in StyledTaskDialog