version 3.5.3

- Added unit Vcl.TemplateButtonStyles.pas

Author: carloBarazzetta

Images/CustomComponentEditor.jpg

@@ -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.5.2</h3>
+<h3>Actual official version: 3.5.3</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>
@@ -45,6 +45,7 @@ <h2>A brief description</h2>
 <li>Adapt to the colors of the VCL styles, keeping the shape of the button consistent</li>
 <li>The appearance is identical in “Windows” mode or by applying VCL styles to the application</li>
 </ul>
+<p>Last, but not least, with <strong>StyledTaskDialog</strong> you can control appearance of your Message Dialogs in any aspect. Using Skia4Delphi you can also add animated Icons to your messages.</p>
 <p>…all available from the Delphi XE6 version (which allows the use of GDI+, used for button drawing).</p>
 <h2>The most important properties</h2>
 <p>using only few properties you can setup your Button in a very simple way.</p>
@@ -152,7 +153,7 @@ <h2>List of available Components:</h2>
 <li>The space between the Icon and the Caption, defined by <em>spacing</em>.</li>
 </ul>
 <hr />
-<h2>New <em>TStyledAnimatedButton</em> Component (beta):</h2>
+<h2>New <em>TStyledAnimatedButton</em> Component:</h2>
 <table>
   <tr>
     <th>Component</th>
@@ -212,6 +213,8 @@ <h2>Description of Styled Buttons</h2>
 <pre><code class="Pascal">TStyledButton.RegisterDefaultRenderingStyle(btRoundRect, BOOTSTRAP_FAMILY, btn_primary, BOOTSTRAP_NORMAL);
 </code></pre>
 <p>You can also use <a href="https://github.com/EtheaDev/StyledComponents/wiki/Interposer-Unit-(Vcl.StyledComponentsHooks)">Interposer Unit (Vcl.StyledComponentsHooks.pas)</a> to easily change all Buttons of your application.</p>
+<p><strong><em>New Template unit to create your custom Family Styles</em></strong></p>
+<p>NOTICE: from version 3.5.3 there is a new unit &ldquo;Vcl.TemplateButtonStyles.pas&rdquo; you can use to create your own Family of Button Styles, <a href="https://github.com/EtheaDev/StyledComponents/wiki/HowtoBuildYourCustomStyle">as explained here</a></p>
 <p><strong><em>New RoundedCorners options</em></strong></p>
 <p>NOTICE: from version 3.5.0 the new <strong>RoundedCorners</strong> property was added to all of the Styled Buttons, to enable/disable Rounding drawing, as showed in this example:</p>
 <p><img src="./Images/StyledRoundedCornersExamples.jpg" alt="RoundedCorners"/></p>
@@ -333,6 +336,10 @@ <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>16 May 2024: version 3.5.3</p>
+<ul>
+<li>Added unit Vcl.TemplateButtonStyles.pas</li>
+</ul>
 <p>12 May 2024: version 3.5.2</p>
 <ul>
 <li>Fixed Storing Caption of StyledToolButton</li>

Images/PropertyFamilyCustom.jpg

@@ -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.5.2
+### Actual official version: 3.5.3
 
 ---
 ## A brief description
@@ -20,6 +20,8 @@ With **StyledComponents** you can overcome these limits in a simple way. You can
 - Adapt to the colors of the VCL styles, keeping the shape of the button consistent
 - The appearance is identical in “Windows” mode or by applying VCL styles to the application
 
+Last, but not least, with **StyledTaskDialog** you can control appearance of your Message Dialogs in any aspect. Using Skia4Delphi you can also add animated Icons to your messages.
+
 …all available from the Delphi XE6 version (which allows the use of GDI+, used for button drawing).
 
 ## The most important properties
@@ -85,7 +87,7 @@ Those components uses some properties to Draw Icon and Caption in a different wa
 
 ---
 
-## New _TStyledAnimatedButton_ Component (beta):
+## New _TStyledAnimatedButton_ Component:
 | Component | Description |
 | - | - |
 | ![OK_ANIMATED_BUTTON_128.png](./Images/OK_ANIMATED_BUTTON_128.png) | **TStyledAnimatedButton** is Styled Button with with "animated icon" using a Skia TSkAnimatedImage component inside. You can select the events that starts the animation, like: _AnimateOnMouseOver_, _AnimateOnClick_, _AnimateAlways_, _AnimateOnFocus_. |
@@ -162,6 +164,10 @@ TStyledButton.RegisterDefaultRenderingStyle(btRoundRect, BOOTSTRAP_FAMILY, btn_p
 ```
 You can also use [Interposer Unit (Vcl.StyledComponentsHooks.pas)](https://github.com/EtheaDev/StyledComponents/wiki/Interposer-Unit-(Vcl.StyledComponentsHooks)) to easily change all Buttons of your application.
 
+***New Template unit to create your custom Family Styles***
+
+NOTICE: from version 3.5.3 there is a new unit "Vcl.TemplateButtonStyles.pas" you can use to create your own Family of Button Styles, [as explained here](https://github.com/EtheaDev/StyledComponents/wiki/HowtoBuildYourCustomStyle)
+
 ***New RoundedCorners options***
 
 NOTICE: from version 3.5.0 the new **RoundedCorners** property was added to all of the Styled Buttons, to enable/disable Rounding drawing, as showed in this example:
@@ -376,6 +382,9 @@ 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
+16 May 2024: version 3.5.3
+- Added unit Vcl.TemplateButtonStyles.pas
+
 12 May 2024: version 3.5.2
 - Fixed Storing Caption of StyledToolButton
 

Images/PropertyStyleClassCustom.jpg

@@ -145,6 +145,7 @@ object StyledButtonEditor: TStyledButtonEditor
       'Classic')
     TabIndex = 0
     OnChange = TabControlChange
+    OnGetImageIndex = TabControlGetImageIndex
     object ScrollBox: TScrollBox
       AlignWithMargins = True
       Left = 7

Images/VCLStyledComponents.png

@@ -101,6 +101,8 @@   TStyledButtonEditor = class(TForm)
     procedure CheckBoxClick(Sender: TObject);
     procedure AsVCLComponentCheckBoxClick(Sender: TObject);
     procedure RoundedCheckBoxClick(Sender: TObject);
+    procedure TabControlGetImageIndex(Sender: TObject; TabIndex: Integer;
+      var ImageIndex: Integer);
   private
     FUpdating: Boolean;
     FFamilyBuilt: TStyledButtonFamily;
@@ -516,6 +518,16 @@ procedure TStyledButtonEditor.TabControlChange(Sender: TObject);
     BuildFamilyPreview(LFamily);
 end;
 
+procedure TStyledButtonEditor.TabControlGetImageIndex(Sender: TObject;
+  TabIndex: Integer; var ImageIndex: Integer);
+begin
+  //Use always Image n.6 for custom Families
+  if TabIndex <= 5 then
+    ImageIndex := TabIndex
+  else
+    ImageIndex := 6;
+end;
+
 procedure TStyledButtonEditor.UpdateDestFromGUI;
 begin
   DestButton.Style := TCustomButton.TButtonStyle(StyleComboBox.ItemIndex);

README.htm

@@ -53,7 +53,7 @@ interface
   ;
 
 const
-  StyledButtonsVersion = '3.5.2';
+  StyledButtonsVersion = '3.5.3';
 
 resourcestring
   ERROR_SETTING_BUTTON_STYLE = 'Error setting Button Style: %s/%s/%s not available';