version 3.7.3

- Fixed Animated TaskDialog Form

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, 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.2</h3>
+<h3>Actual official version: 3.7.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>
@@ -347,6 +347,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>08 Nov 2024: version 3.7.3</p>
+<ul>
+<li>Fixed Animated TaskDialog Form</li>
+</ul>
 <p>08 Nov 2024: version 3.7.2</p>
 <ul>
 <li>Added UseAnimations in StyledTaskDialog component</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.2
+### Actual official version: 3.7.3
 
 ---
 ## A brief description
@@ -403,6 +403,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
+08 Nov 2024: version 3.7.3
+- Fixed Animated TaskDialog Form
+
 08 Nov 2024: version 3.7.2
 - Added UseAnimations in StyledTaskDialog component
 - Fixed use of StyledTaskDialog component

source/Skia.Vcl.StyledTaskDialogAnimatedUnit.dfm

@@ -1,4 +1,28 @@
 inherited StyledTaskDialogAnimatedForm: TStyledTaskDialogAnimatedForm
   Caption = 'StyledTaskDialogAnimatedForm'
   TextHeight = 15
+  inherited FooterPanel: TPanel
+    inherited FooterIconPanel: TPanel
+      object SkFooterAnimatedImage: TSkAnimatedImage
+        Left = 0
+        Top = 0
+        Width = 25
+        Height = 25
+        Align = alTop
+      end
+    end
+  end
+  inherited CenterPanel: TPanel
+    inherited ImagePanel: TPanel
+      inherited IconContainer: TPanel
+        object SkAnimatedImage: TSkAnimatedImage
+          Left = 0
+          Top = 0
+          Width = 64
+          Height = 64
+          Align = alClient
+        end
+      end
+    end
+  end
 end

source/Skia.Vcl.StyledTaskDialogAnimatedUnit.pas

@@ -58,6 +58,8 @@ interface
 
 type
   TStyledTaskDialogAnimatedForm = class(TStyledTaskDialogForm)
+    SkFooterAnimatedImage: TSkAnimatedImage;
+    SkAnimatedImage: TSkAnimatedImage;
   private
     procedure InternalLoadImage(const AAnimatedImage: TSkAnimatedImage;
       const AImageIndex: TImageIndex; AImageName: string);

source/Vcl.ButtonStylesAttributes.pas

@@ -55,7 +55,7 @@ interface
   ;
 
 const
-  StyledComponentsVersion = '3.7.2';
+  StyledComponentsVersion = '3.7.3';
   DEFAULT_RADIUS = 6;
   RESOURCE_SHIELD_ICON = 'STYLED_BUTTON_SHIELD_ADMIN';
   DEFAULT_MAX_BADGE_VALUE = 99;