version 3.8.4

- TStyledTaskDialog enhanced and fixed:
- > Uses png with transparency for Icons
- > Fixed Size of Message height
- > Fixed MainIconSize
- > Fixed "default" for Custom Button
- > Fixed bottom panel without margins
- > Fixed PopupParent form for Dialogs

Author: carloBarazzetta

Demos/Delphi12/StyledComponentsDemo.dproj

@@ -48,7 +48,7 @@ interface
   , Vcl.StyledButtonGroup
   , System.Actions
   , uSettings
-  {$IFDEF SKIA}
+  {$IFDEF SKIA2}
   , Skia.Vcl.StyledTaskDialogAnimatedUnit
   {$ELSE}
   , Vcl.StyledTaskDialogStdUnit

Demos/source/MainDemoForm.pas

@@ -17,7 +17,6 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
   Position = poScreenCenter
   ShowHint = True
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
   TextHeight = 13
   object ExtraGroupBox: TGroupBox
     Left = 0
@@ -31,25 +30,25 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       727
       230)
     object ExpandedTextLabel: TLabel
-      Left = 33
+      Left = 34
       Top = 43
-      Width = 77
+      Width = 76
       Height = 13
       Alignment = taRightJustify
       Caption = 'Expanded Text:'
     end
     object FooterTextLabel: TLabel
-      Left = 50
+      Left = 51
       Top = 105
-      Width = 60
+      Width = 59
       Height = 13
       Alignment = taRightJustify
       Caption = 'Footer Text:'
     end
     object VerificationTextLabel: TLabel
-      Left = 26
+      Left = 27
       Top = 167
-      Width = 84
+      Width = 83
       Height = 13
       Alignment = taRightJustify
       Caption = 'Verification Text:'
@@ -76,7 +75,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
     end
     object btUseStyledDialogComp: TButton
       Left = 521
-      Top = 160
+      Top = 158
       Width = 195
       Height = 25
       Anchors = [akTop, akRight]
@@ -165,7 +164,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       object TitleLabel: TLabel
         Left = 7
         Top = 5
-        Width = 25
+        Width = 24
         Height = 13
         Caption = 'Title:'
       end
@@ -177,9 +176,9 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
         Caption = 'Message:'
       end
       object DlgButtonTypeLabel: TLabel
-        Left = 16
+        Left = 15
         Top = 186
-        Width = 89
+        Width = 90
         Height = 13
         Alignment = taRightJustify
         Anchors = [akLeft, akBottom]
@@ -196,7 +195,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       object ButtonsWidthLabel: TLabel
         Left = 299
         Top = 7
-        Width = 60
+        Width = 61
         Height = 13
         Anchors = [akTop, akRight]
         Caption = 'Btns Width:'
@@ -426,9 +425,9 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
         214
         341)
       object DefaultButtonLabel: TLabel
-        Left = 5
+        Left = 21
         Top = 316
-        Width = 79
+        Width = 80
         Height = 13
         Alignment = taRightJustify
         Anchors = [akLeft, akBottom]
@@ -448,13 +447,13 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
         Width = 196
         Height = 195
         Anchors = [akLeft, akTop, akBottom]
-        ItemHeight = 17
+        ItemHeight = 13
         TabOrder = 1
       end
       object DefaultButtonComboBox: TComboBox
-        Left = 90
+        Left = 104
         Top = 313
-        Width = 115
+        Width = 101
         Height = 21
         Style = csDropDownList
         Anchors = [akLeft, akBottom]
@@ -534,7 +533,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       'license.rtf</A> Expanded Text Expanded Text Expanded Text Expand' +
       'ed Text Expanded Text Expanded Text Expanded Text Expanded Text ' +
       'Expanded Text Expanded Text Expanded Text '
-    Flags = [tfAllowDialogCancellation, tfUseCommandLinks, tfExpandedByDefault, tfPositionRelativeToWindow]
+    Flags = [tfAllowDialogCancellation, tfExpandedByDefault, tfPositionRelativeToWindow]
     FooterIcon = 1
     FooterText = 
       'The file was created: <A HREF="C:\Windows\System32\license.rtf">' +

Demos/source/StyledDialogDemoForm.dfm

@@ -85,7 +85,6 @@   TfmStyledTaskDialog = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure ShowDlg(Sender: TObject);
     procedure RaiseError(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
     procedure TaskDialogTimer(Sender: TObject; TickCount: Cardinal;
       var Reset: Boolean);
     procedure UseStyleDialogCompClick(Sender: TObject);
@@ -293,20 +292,15 @@ procedure TfmStyledTaskDialog.ShowDlg(Sender: TObject);
   ShowSelection(LResult);
 end;
 
-procedure TfmStyledTaskDialog.FormDestroy(Sender: TObject);
-begin
-  ;
-end;
-
 procedure TfmStyledTaskDialog.Loaded;
 begin
-  //Font.Assign(Screen.IconFont);
-  //Screen.MessageFont.Assign(Font);
+  //Fix Memo text loaded from .dfm
+  FooterTextMemo.Text := TrimRight(FooterTextMemo.Text);
+  ExpandedTextMemo.Text := TrimRight(ExpandedTextMemo.Text);
+  VerificationTextMemo.Text := TrimRight(VerificationTextMemo.Text);
   inherited;
 end;
 
-
-
 procedure TfmStyledTaskDialog.RaiseDatabaseError(Sender: TObject);
 begin
   DatabaseError('Database Error!'+sLineBreak+
@@ -426,7 +420,6 @@ procedure TfmStyledTaskDialog.UseStyleDialogCompClick(Sender: TObject);
         TMsgDlgBtn.mbNo: AddCommonButton(tcbNo);
         TMsgDlgBtn.mbOK: AddCommonButton(tcbOK);
         TMsgDlgBtn.mbCancel: AddCommonButton(tcbCancel);
-        TMsgDlgBtn.mbRetry: AddCommonButton(tcbRetry);
         TMsgDlgBtn.mbClose: AddCommonButton(tcbClose);
       else
         //For other buttons add "Custom button"
@@ -437,6 +430,7 @@ procedure TfmStyledTaskDialog.UseStyleDialogCompClick(Sender: TObject);
         begin
           case db of
             TMsgDlgBtn.mbAbort: LCustomButton.CommandLinkHint := 'Abort operation and undo all changes...';
+            TMsgDlgBtn.mbRetry: LCustomButton.CommandLinkHint := 'Retry the operation...';
             TMsgDlgBtn.mbIgnore: LCustomButton.CommandLinkHint := 'Ignore operation and continue...';
             TMsgDlgBtn.mbAll: LCustomButton.CommandLinkHint := 'Include all items in operation...';
             TMsgDlgBtn.mbNoToAll: LCustomButton.CommandLinkHint := 'Discard operation to all items...';

Demos/source/StyledDialogDemoForm.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.3</h3>
+<h3>Actual official version: 3.8.4</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,28 @@ <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>26 Aug 2025 - version 3.8.4</p>
+<ul>
+<li>TStyledTaskDialog enhanced and fixed:</li>
+<li><blockquote><p>Uses png with transparency for Icons</p>
+</blockquote>
+</li>
+<li><blockquote><p>Fixed Size of Message height</p>
+</blockquote>
+</li>
+<li><blockquote><p>Fixed MainIconSize</p>
+</blockquote>
+</li>
+<li><blockquote><p>Fixed &ldquo;default&rdquo; for Custom Button</p>
+</blockquote>
+</li>
+<li><blockquote><p>Fixed bottom panel without margins</p>
+</blockquote>
+</li>
+<li><blockquote><p>Fixed PopupParent form for Dialogs</p>
+</blockquote>
+</li>
+</ul>
 <p>23 Aug 2025 - version 3.8.3</p>
 <ul>
 <li>TStyledTaskDialog enhanced and fixed:</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.3
+### Actual official version: 3.8.4
 
 ---
 ## New Setup for Installation of Components
@@ -396,6 +396,15 @@ 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
+26 Aug 2025 - version 3.8.4
+- TStyledTaskDialog enhanced and fixed:
+- > Uses png with transparency for Icons
+- > Fixed Size of Message height
+- > Fixed MainIconSize
+- > Fixed "default" for Custom Button
+- > Fixed bottom panel without margins
+- > Fixed PopupParent form for Dialogs
+
 23 Aug 2025 - version 3.8.3
 - TStyledTaskDialog enhanced and fixed:
 - > "Flags" property default same as TTaskDialog

README.md

@@ -2,7 +2,7 @@
     <PropertyGroup>
         <ProjectGuid>{F870FD7C-4984-4784-8B29-4CDB55E64524}</ProjectGuid>
         <MainSource>StyledComponents.dpk</MainSource>
-        <ProjectVersion>20.2</ProjectVersion>
+        <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>

packages/D12/StyledComponents.dproj

@@ -2,7 +2,7 @@
     <PropertyGroup>
         <ProjectGuid>{03F938E4-4CBD-4FD4-86A2-084115D91AA9}</ProjectGuid>
         <MainSource>dclStyledComponents.dpk</MainSource>
-        <ProjectVersion>20.2</ProjectVersion>
+        <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>

packages/D12/dclStyledComponents.dproj

@@ -1,7 +1,7 @@
-LOTTIE_INFORMATION RCDATA "..\Animations\information.json"
-LOTTIE_CUSTOM RCDATA "..\Animations\custom.json"
-LOTTIE_ERROR RCDATA "..\Animations\error.json"
-LOTTIE_WARNING RCDATA "..\Animations\warning.json"
-LOTTIE_SHIELD RCDATA "..\Animations\shield.json"
-LOTTIE_NOTIFY RCDATA "..\Animations\notify.json"
-LOTTIE_QUESTION RCDATA "..\Animations\question.json"
+STYLEDTASKLOTTIE_INFORMATION RCDATA "..\Animations\information.json"
+STYLEDTASKLOTTIE_CUSTOM RCDATA "..\Animations\custom.json"
+STYLEDTASKLOTTIE_ERROR RCDATA "..\Animations\error.json"
+STYLEDTASKLOTTIE_WARNING RCDATA "..\Animations\warning.json"
+STYLEDTASKLOTTIE_SHIELD RCDATA "..\Animations\shield.json"
+STYLEDTASKLOTTIE_NOTIFY RCDATA "..\Animations\notify.json"
+STYLEDTASKLOTTIE_QUESTION RCDATA "..\Animations\question.json"