version 3.9.0

- Added UseAnimationLoop property to TStyledTaskDialog
- Added UseAnimationInverse property to TStyledTaskDialog
- Fixed Test TaskDialog with Animations at design-time

Author: carloBarazzetta

Demos/Delphi13/StyledComponentsDemo.dproj

@@ -732,6 +732,24 @@ object fmAnimatedButtons: TfmAnimatedButtons
         6D585DE7F7793BE217B8BD2551176BF3F6C7D3B7EFD375D5A77CBA1FFFFDFF01
         DA8C4CA1AC820200}
     end
+    object LoopCheckBox: TCheckBox
+      Left = 377
+      Top = 16
+      Width = 128
+      Height = 17
+      Caption = 'Animation in loop'
+      TabOrder = 7
+      OnClick = LoopCheckBoxClick
+    end
+    object InverseCheckBox: TCheckBox
+      Left = 377
+      Top = 39
+      Width = 154
+      Height = 17
+      Caption = 'Animation inverse mode'
+      TabOrder = 8
+      OnClick = InverseCheckBoxClick
+    end
   end
   object ActionList: TActionList
     Images = Images

Demos/source/AnimatedButtonsForm.dfm

@@ -29,6 +29,8 @@   TfmAnimatedButtons = class(TForm)
     cbAnimateAlways: TCheckBox;
     cbAnimateOnMouseOver: TCheckBox;
     StyledAnimatedButton: TStyledAnimatedButton;
+    LoopCheckBox: TCheckBox;
+    InverseCheckBox: TCheckBox;
     procedure ButtonClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure VCLButtonKeyDown(Sender: TObject; var Key: Word;
@@ -37,6 +39,8 @@   TfmAnimatedButtons = class(TForm)
     procedure ImageAlignmentRadioGroupClick(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure AutoAnimationClick(Sender: TObject);
+    procedure LoopCheckBoxClick(Sender: TObject);
+    procedure InverseCheckBoxClick(Sender: TObject);
   private
     FStyleNames: TStringList;
     function CreateNewButton(const AParent: TWinControl;
@@ -133,15 +137,9 @@ function TfmAnimatedButtons.CreateNewButton(const AParent: TWinControl; const AL
   Result.AutoSizeAnimationMargin := 20;
   Result.SetBounds(ALeft,ATop,220,80);
   Result.Parent := AParent;
-  //Result.AnimationWidth := 42;
-  //Result.AnimationHeight := 42;
-  //Result.Images := VirtualImageList;
-  //Result.ImageName := AImageName;
-  //Result.ImageAlignment := TImageAlignment.iaTop;
   LFileName := Format(ExtractFilePath(Application.ExeName)+'..\..\..\..\Animations\%s.json', [LIconName]);
-  LResName := UpperCase(Format('LOTTIE_%s',[LIconName]));
+  LResName := UpperCase(Format('STYLEDTASKLOTTIE_%s',[AnsiUpperCase(LIconName)]));
   Result.LoadAnimationFromResource(LResName);
-  //Result.LoadAnimationFromFile(LFileName);
   Result.Caption := AImageName;
   Result.StyleClass := AStyle;
   Result.AutoAnimationTypes := GetAnimTypes;
@@ -209,4 +207,22 @@ procedure TfmAnimatedButtons.ImageAlignmentRadioGroupClick(Sender: TObject);
     end);
 end;
 
+procedure TfmAnimatedButtons.InverseCheckBoxClick(Sender: TObject);
+begin
+  ProcessButtons(
+    procedure (AButton: TStyledAnimatedButton)
+    begin
+      AButton.AnimationInverse := InverseCheckBox.Checked;
+    end);
+end;
+
+procedure TfmAnimatedButtons.LoopCheckBoxClick(Sender: TObject);
+begin
+  ProcessButtons(
+    procedure (AButton: TStyledAnimatedButton)
+    begin
+      AButton.AnimationLoop := LoopCheckBox.Checked;
+    end);
+end;
+
 end.

Demos/source/AnimatedButtonsForm.pas

@@ -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.8.6</h3>
+<h3>Actual official version: 3.9.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>
@@ -344,6 +344,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>17 Oct 2025 - version 3.9.0</p>
+<ul>
+<li>Added UseAnimationLoop property to TStyledTaskDialog</li>
+<li>Added UseAnimationInverse property to TStyledTaskDialog</li>
+<li>Fixed Test TaskDialog with Animations at design-time</li>
+</ul>
 <p>14 Oct 2025 - version 3.8.6</p>
 <ul>
 <li>Fixed Caption position for StyledCategoryButtons</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.8.6
+### Actual official version: 3.9.0
 
 ---
 ## New Setup for Installation of Components
@@ -396,6 +396,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
+
+17 Oct 2025 - version 3.9.0
+- Added UseAnimationLoop property to TStyledTaskDialog
+- Added UseAnimationInverse property to TStyledTaskDialog
+- Fixed Test TaskDialog with Animations at design-time
+
 14 Oct 2025 - version 3.8.6
 - Fixed Caption position for StyledCategoryButtons
 - Added standard Component Editor to StyledButtonGroup

README.md

@@ -71,7 +71,6 @@   TStyledTaskDialogAnimatedForm = class(TStyledTaskDialogForm)
       const ATaskDialogIcon: TTaskDialogIcon); override;
     procedure LoadCustomFooterIcon(const AIcon: TIcon;
       const ATaskDialogIcon: TTaskDialogIcon); override;
-  public
   end;
 
 implementation
@@ -129,7 +128,8 @@ procedure TStyledTaskDialogAnimatedForm.InternalLoadImage(
   LStream := TResourceStream.Create(HInstance, LImageName, RT_RCDATA);
   try
     AAnimatedImage.LoadFromStream(LStream);
-    AAnimatedImage.Animation.Loop := False;
+    AAnimatedImage.Animation.Loop := AnimationLoop;
+    AAnimatedImage.Animation.Inverse := AnimationInverse;
     AAnimatedImage.Animation.Start;
   finally
     LStream.Free;

source/Skia.Vcl.StyledTaskDialogAnimatedUnit.pas

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

source/Vcl.ButtonStylesAttributes.pas

@@ -95,6 +95,8 @@   TStyledTaskDialog = class(TTaskDialog)
     FAutoClickDelay: Integer;
     FOnFindDialogButton: TOnFindDialogButtonEvent;
     FUseAnimations: Boolean;
+    FUseAnimationLoop: Boolean;
+    FUseAnimationInverse: Boolean;
     FUseMessageDefaultButton: Boolean;
     FMessageDefaultButton: TMsgDlgBtn;
     FOnDialogShow: TTaskDialogShow;
@@ -110,6 +112,9 @@   TStyledTaskDialog = class(TTaskDialog)
     procedure SetUseCommandLinks(const AValue: Boolean);
     function GetUseCommandLinks: Boolean;
     procedure SetMainIconSize(const AValue: Integer);
+    procedure SetUseAnimationInverse(const AValue: Boolean);
+    procedure SetUseAnimationLoop(const AValue: Boolean);
+    procedure SetUseAnimations(const AValue: Boolean);
   strict protected
     function DoExecute(ParentWnd: HWND): Boolean; override;
     procedure DoOnHelp; override;
@@ -133,7 +138,9 @@   TStyledTaskDialog = class(TTaskDialog)
     property AutoClickDelay: Integer read FAutoClickDelay write SetAutoClickDelay default DEFAULT_AUTOCLICK_DELAY;
     property DialogButtonsFamily: TStyledButtonFamily read FDialogButtonsFamily write FDialogButtonsFamily stored IsDefaultFamily;
     property UseCommandLinks: Boolean read GetUseCommandLinks write SetUseCommandLinks default False;
-    property UseAnimations: Boolean read FUseAnimations write FUseAnimations default false;
+    property UseAnimations: Boolean read FUseAnimations write SetUseAnimations default false;
+    property UseAnimationLoop: Boolean read FUseAnimationLoop write SetUseAnimationLoop default False;
+    property UseAnimationInverse: Boolean read FUseAnimationInverse write SetUseAnimationInverse default False;
     property UseTitleInMessageDlg: Boolean read FUseTitleInMessageDlg write FUseTitleInMessageDlg default True;
     property AlphaBlendValue: Byte read FAlphaBlendValue write SetAlphaBlendValue default DEFAULT_STYLEDDIALOG_ALPHABLEND;
     property ButtonsWidth: Integer read FButtonsWidth write SetButtonsWidth default DEFAULT_STYLEDDIALOG_BUTTONSWIDTH;
@@ -895,6 +902,26 @@ procedure TStyledTaskDialog.SetAlphaBlendValue(const AValue: Byte);
   FAlphaBlendValue := AValue;
 end;
 
+procedure TStyledTaskDialog.SetUseAnimationInverse(const AValue: Boolean);
+begin
+  if FUseAnimationInverse <> AValue then
+  begin
+    if AValue then
+      UseAnimations := True;
+    FUseAnimationInverse := AValue;
+  end;
+end;
+
+procedure TStyledTaskDialog.SetUseAnimationLoop(const AValue: Boolean);
+begin
+  if FUseAnimationLoop <> AValue then
+  begin
+    if AValue then
+      UseAnimations := True;
+    FUseAnimationLoop := AValue;
+  end;
+end;
+
 procedure TStyledTaskDialog.SetAutoClick(const AValue: Boolean);
 begin
   FAutoClick := AValue;
@@ -943,6 +970,18 @@ procedure TStyledTaskDialog.SetMainIconSize(const AValue: Integer);
   FMainIconSize := AValue;
 end;
 
+procedure TStyledTaskDialog.SetUseAnimations(const AValue: Boolean);
+begin
+  if FUseAnimations <> AValue then
+  begin
+    if AValue and not AnimatedTaskDialogFormRegistered then
+      raise EStyledTaskDialogException.CreateFmt(
+        ERR_DIALOG_FORM_NOT_REGISTERED,
+        ['Skia.Vcl.StyledTaskDialogAnimatedUnit.pas']);
+    FUseAnimations := AValue;
+  end;
+end;
+
 procedure TStyledTaskDialog.SetUseCommandLinks(const AValue: Boolean);
 begin
   if AValue then

source/Vcl.StyledTaskDialog.pas

@@ -116,7 +116,7 @@ object StyledTaskDialogForm: TStyledTaskDialogForm
         AlignWithMargins = True
         Left = 4
         Top = 4
-        Width = 909
+        Width = 47
         Height = 15
         Margins.Left = 4
         Margins.Top = 4
@@ -240,8 +240,8 @@ object StyledTaskDialogForm: TStyledTaskDialogForm
       AlignWithMargins = True
       Left = 29
       Top = 4
-      Width = 952
-      Height = 16
+      Width = 3
+      Height = 15
       Margins.Top = 4
       Margins.Bottom = 4
       Align = alClient

source/Vcl.StyledTaskDialogFormUnit.dfm

@@ -137,6 +137,8 @@   TStyledTaskDialogForm = class(TForm)
     FTimer: TTimer;
     FTickCount: Cardinal;
     FMainIconSize: Integer;
+    FAnimationLoop: Boolean;
+    FAnimationInverse: Boolean;
     //procedure GetIconNameAndIndex(ATaskDialog: TMsgDlgType;
     //  out AImageName: string; out AImageIndex: Integer); overload;
     procedure TaskDialogExpanded(Sender: TObject);
@@ -237,6 +239,10 @@   TStyledTaskDialogForm = class(TForm)
     property TextMessage: string read GetText write SetText;
     property TitleMessage: string read GetTitle write SetTitle;
     property OnTimer: TTaskDlgTimerEvent read FOnTimer write FOnTimer;
+
+    //Used by Animated Form
+    property AnimationLoop: Boolean read FAnimationLoop write FAnimationLoop;
+    property AnimationInverse: Boolean read FAnimationInverse write FAnimationInverse;
   end;
 
   TStyledTaskDialogFormClass = class of TStyledTaskDialogForm;
@@ -250,14 +256,17 @@ procedure UseStyledDialogForm(const AActivate: Boolean);
 ///  Register the custom StyledTaskDialog passing the Form Class
 ///  The Form must inherits from TStyledTaskDialogForm
 /// </summary>
-procedure RegisterTaskDialogFormClass(
-  AFormClass: TStyledTaskDialogFormClass);
+procedure RegisterTaskDialogFormClass(AFormClass: TStyledTaskDialogFormClass);
 
 /// <summary>
 ///  Unregister the custom StyledTaskDialog to use Standard Task Dialog
 /// </summary>
-procedure UnRegisterTaskDialogFormClass(
-  AFormClass: TStyledTaskDialogFormClass);
+procedure UnRegisterTaskDialogFormClass(AFormClass: TStyledTaskDialogFormClass);
+
+/// <summary>
+///  Returns True if an Animated Task Dialog form is registered
+/// </summary>
+function AnimatedTaskDialogFormRegistered: Boolean;
 
 implementation
 
@@ -281,6 +290,11 @@ implementation
   _DlgButtonClasses: TButtonClasses;
   _DialogPosition: Vcl.Forms.TPosition;
 
+function AnimatedTaskDialogFormRegistered: Boolean;
+begin
+  Result := Assigned(_AnimatedTaskDialogFormClass);
+end;
+
 procedure UnRegisterTaskDialogFormClass(
   AFormClass: TStyledTaskDialogFormClass);
 begin
@@ -1596,12 +1610,16 @@ function TTaskDialogLauncherHandler.DoExecute(ParentWnd: HWND;
 
   if ATaskDialog.UseAnimations then
   begin
-    if not Assigned(_AnimatedTaskDialogFormClass) then
+    if not AnimatedTaskDialogFormRegistered then
       raise EStyledTaskDialogException.CreateFmt(
         ERR_DIALOG_FORM_NOT_REGISTERED,
         ['Skia.Vcl.StyledTaskDialogAnimatedUnit.pas'])
     else
-      LForm := _AnimatedTaskDialogFormClass.Create(LOwnerForm)
+    begin
+      LForm := _AnimatedTaskDialogFormClass.Create(LOwnerForm);
+      TStyledTaskDialogForm(LForm).AnimationLoop := ATaskDialog.UseAnimationLoop;
+      TStyledTaskDialogForm(LForm).AnimationInverse := ATaskDialog.UseAnimationInverse;
+    end;
   end
   else
     LForm := _TaskDialogFormClass.Create(LOwnerForm);