version 3.7.2

- Added UseAnimations in StyledTaskDialog component
- Fixed use of StyledTaskDialog component
- Fixed use of ModalResult value different from standard values

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.1</h3>
+<h3>Actual official version: 3.7.2</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,12 @@ <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.2</p>
+<ul>
+<li>Added UseAnimations in StyledTaskDialog component</li>
+<li>Fixed use of StyledTaskDialog component</li>
+<li>Fixed use of ModalResult value different from standard values</li>
+</ul>
 <p>22 Oct 2024: version 3.7.1</p>
 <ul>
 <li>Fixed background for icon into MessageDialogs</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.1
+### Actual official version: 3.7.2
 
 ---
 ## A brief description
@@ -403,6 +403,11 @@ 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.2
+- Added UseAnimations in StyledTaskDialog component
+- Fixed use of StyledTaskDialog component
+- Fixed use of ModalResult value different from standard values
+
 22 Oct 2024: version 3.7.1
 - Fixed background for icon into MessageDialogs
 - Fixed drawing TStyledGraphicButton

source/Skia.Vcl.StyledTaskDialogAnimatedUnit.dfm

@@ -1,28 +1,4 @@
 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

@@ -52,14 +52,12 @@ interface
   , Vcl.ExtCtrls
   , Vcl.StdCtrls
   , System.UITypes
-  , Vcl.Skia
+  , Vcl.Skia //Warning: you cannot use Animated Style Dialog if you don't have Skia4Delphi!
   , System.Skia
   ;
 
 type
   TStyledTaskDialogAnimatedForm = class(TStyledTaskDialogForm)
-    SkFooterAnimatedImage: TSkAnimatedImage;
-    SkAnimatedImage: TSkAnimatedImage;
   private
     procedure InternalLoadImage(const AAnimatedImage: TSkAnimatedImage;
       const AImageIndex: TImageIndex; AImageName: string);
@@ -150,5 +148,9 @@ procedure TStyledTaskDialogAnimatedForm.InternalLoadImage(
 
 initialization
   RegisterTaskDialogFormClass(TStyledTaskDialogAnimatedForm);
+  InitializeStyledTaskDialogs(True);
+
+finalization
+  UnregisterTaskDialogFormClass(TStyledTaskDialogAnimatedForm);
 
 end.

source/Vcl.AngularButtonStyles.pas

@@ -203,6 +203,8 @@ procedure TAngularButtonStyleLight.GetStyleByModalResult(
     mrTryAgain : begin AStyleClass := btn_PrimaryDeepPurple; AStyleAppearance := FlatAttr; end;
     mrContinue : begin AStyleClass := btn_PrimaryDeepPurple; AStyleAppearance := FlatAttr; end;
     mrHelp     : begin AStyleClass := btn_Warn; AStyleAppearance := FlatAttr; end;
+  else
+    GetStyleByModalResult(mrNone, AStyleClass, AStyleAppearance);
   end;
 end;
 
@@ -393,6 +395,8 @@ procedure TAngularButtonStyleDark.GetStyleByModalResult(
     mrTryAgain : begin AStyleClass := btn_PrimaryPurple; AStyleAppearance := FlatAttr; end;
     mrContinue : begin AStyleClass := btn_PrimaryPurple; AStyleAppearance := FlatAttr; end;
     mrHelp     : begin AStyleClass := btn_Warn; AStyleAppearance := FlatAttr; end;
+  else
+    GetStyleByModalResult(mrNone, AStyleClass, AStyleAppearance);
   end;
 end;
 

source/Vcl.BootstrapButtonStyles.pas

@@ -196,6 +196,8 @@ procedure TBoostrapButtonStyles.GetStyleByModalResult(
     mrTryAgain : begin AStyleClass := btn_warning; AStyleAppearance := BOOTSTRAP_NORMAL; end;
     mrContinue : begin AStyleClass := btn_secondary; AStyleAppearance := BOOTSTRAP_NORMAL; end;
     mrHelp     : begin AStyleClass := btn_info; AStyleAppearance := BOOTSTRAP_NORMAL; end;
+  else
+    GetStyleByModalResult(mrNone, AStyleClass, AStyleAppearance);
   end;
 end;
 

source/Vcl.ButtonStylesAttributes.pas

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

source/Vcl.ColorButtonStyles.pas

@@ -172,6 +172,8 @@ procedure TBasicColorButtonStyles.GetStyleByModalResult(
     mrTryAgain : begin AStyleClass := 'clYellow'; AStyleAppearance := COLOR_BTN_NORMAL; end;
     mrContinue : begin AStyleClass := 'clGray'; AStyleAppearance := COLOR_BTN_NORMAL; end;
     mrHelp     : begin AStyleClass := 'clYellow'; AStyleAppearance := COLOR_BTN_NORMAL; end;
+  else
+    GetStyleByModalResult(mrNone, AStyleClass, AStyleAppearance);
   end;
 end;
 
@@ -355,6 +357,8 @@ procedure TSVGColorButtonStyles.GetStyleByModalResult(
     mrTryAgain : begin AStyleClass := 'Slategray'; AStyleAppearance := COLOR_BTN_NORMAL; end;
     mrContinue : begin AStyleClass := 'Lightseagreen'; AStyleAppearance := COLOR_BTN_NORMAL; end;
     mrHelp     : begin AStyleClass := 'Plum'; AStyleAppearance := COLOR_BTN_NORMAL; end;
+  else
+    GetStyleByModalResult(mrNone, AStyleClass, AStyleAppearance);
   end;
 end;
 

source/Vcl.StandardButtonStyles.pas

@@ -184,6 +184,8 @@ procedure TButtonStandardStyles.GetStyleByModalResult(
     mrTryAgain : begin AStyleAppearance := DEFAULT_APPEARANCE; end;
     mrContinue : begin AStyleAppearance := DEFAULT_APPEARANCE; end;
     mrHelp     : begin AStyleAppearance := DEFAULT_APPEARANCE; end;
+  else
+    GetStyleByModalResult(mrNone, AStyleClass, AStyleAppearance);
   end;
 end;
 

source/Vcl.StyledCmpMessages.pas

@@ -59,6 +59,8 @@ interface
     ERR_ACCES_VIOL_DESC = 'Si è verificato un errore inatteso nel programma.'+sLineBreak+sLineBreak+'%s'+sLineBreak+sLineBreak+
                           'Si consiglia di uscire dal programma e riavviarlo (i dati già registrati non andranno perduti)'+sLineBreak+
                           'Se l''errore dovesse persistere contattare il supporto tecnico';
+    ERR_DIALOG_FORM_NOT_REGISTERED = 'Errore: La TaskDialog Form con le animazioni non è disponibile.'+sLineBreak+
+                          'Aggiungere "%s" Unit al progetto';
 
     //Navigator buttons Captions
     CaptionFirstRecord = 'Primo';
@@ -118,6 +120,8 @@ interface
     ERR_ACCES_VIOL_DESC = 'Une erreur non gérée a été detectée.'+sLineBreak+sLineBreak+'%s'+sLineBreak+sLineBreak+
                           'Il est recommandé de fermer et de relancer l''application.'+sLineBreak+
                           'Si le programme persiste, contactez le support technique.';
+    ERR_DIALOG_FORM_NOT_REGISTERED = 'Erreur : le formulaire TaskDialog avec animations n''est pas disponible.'+sLineBreak+
+                          'Ajouter l''unité "%s" au projet';
 
     //Navigator buttons Captions
     CaptionFirstRecord = 'Premier';
@@ -176,7 +180,8 @@ interface
     ERR_ACCES_VIOL_DESC = 'Unexpected error.'+sLineBreak+sLineBreak+'%s'+sLineBreak+sLineBreak+
                           'It is recommended to exit and reexecute the program.'+sLineBreak+
                           'If this error persists, please contact our technical support.';
-
+    ERR_DIALOG_FORM_NOT_REGISTERED = 'Error: Animated TaskDialog Form not registered!'+sLineBreak+
+                          'Please add "%s" Unit to the project';
     //Navigator buttons Captions
     CaptionFirstRecord = 'First';
     CaptionPriorRecord = 'Prior';