ver 3.7.4

- Added tdiQuestion value to show a Question mark in TaskDialog
- Use Question Mark (icon ora animation) for MessageDlg and TaskDialog of mtConfirmation type
- Fixed DefaultButton for StyledDialog using MessageDlg and TaskDialog

Author: carloBarazzetta

Demos/source/StyledDialogDemoForm.dfm

@@ -76,7 +76,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
     end
     object btUseStyledDialogComp: TButton
       Left = 521
-      Top = 127
+      Top = 160
       Width = 195
       Height = 25
       Anchors = [akTop, akRight]
@@ -86,7 +86,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
     end
     object btUseNativeDialogComp: TButton
       Left = 521
-      Top = 158
+      Top = 191
       Width = 195
       Height = 25
       Anchors = [akTop, akRight]
@@ -109,8 +109,8 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
     object VerificationTextMemo: TMemo
       Left = 112
       Top = 168
-      Width = 387
-      Height = 56
+      Width = 384
+      Height = 48
       Anchors = [akLeft, akTop, akRight]
       Lines.Strings = (
         'Verification Text'
@@ -120,18 +120,19 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
     end
     object rgMainIcon: TRadioGroup
       Left = 521
-      Top = 13
+      Top = 10
       Width = 195
-      Height = 107
+      Height = 142
       Anchors = [akTop, akRight]
       Caption = 'Main Icon'
-      ItemIndex = 0
+      ItemIndex = 3
       Items.Strings = (
         'tdiNone'
         'tdiWarning'
         'tdiError'
         'tdiInformation'
-        'tdiShield')
+        'tdiShield'
+        'tdiQuestion')
       TabOrder = 4
     end
     object CaptionEdit: TEdit
@@ -342,7 +343,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       object cbUseCommandLinks: TCheckBox
         Left = 339
         Top = 210
-        Width = 153
+        Width = 170
         Height = 17
         Anchors = [akLeft, akBottom]
         Caption = 'Use Command Links'
@@ -352,12 +353,10 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       object cbUseTitleInMessageDlg: TCheckBox
         Left = 339
         Top = 245
-        Width = 153
+        Width = 170
         Height = 17
         Anchors = [akLeft, akBottom]
         Caption = 'Add Title in MessageDlg'
-        Checked = True
-        State = cbChecked
         TabOrder = 11
         OnClick = InitializeDialogsClick
       end
@@ -369,7 +368,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
         Anchors = [akLeft, akBottom]
         Caption = 'Native ShowMessage'
         TabOrder = 12
-        OnClick = DoShowMessage
+        OnClick = ShowDlg
       end
       object btStyledShowMessage: TButton
         Left = 173
@@ -379,7 +378,7 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
         Anchors = [akLeft, akBottom]
         Caption = 'Styled ShowMessage'
         TabOrder = 13
-        OnClick = DoShowMessage
+        OnClick = ShowDlg
       end
       object ButtonsWidthSpinEdit: TSpinEdit
         Left = 299

Demos/source/StyledDialogDemoForm.pas

@@ -102,7 +102,6 @@   TfmStyledTaskDialog = class(TForm)
     procedure TaskDialogRadioButtonClicked(Sender: TObject);
     procedure TaskDialogVerificationClicked(Sender: TObject);
     procedure InitializeDialogsClick(Sender: TObject);
-    procedure DoShowMessage(Sender: TObject);
   private
     FRadioButtonSelected: string;
     procedure ShowSelection(const AModalResult: TModalResult);
@@ -138,14 +137,6 @@ procedure TfmStyledTaskDialog.InitializeDialogsClick(Sender: TObject);
   InitializeDialogs;
 end;
 
-procedure TfmStyledTaskDialog.DoShowMessage(Sender: TObject);
-begin
-  if Sender = btNativeShowMessage then
-    ShowMessage(edMessage.Text)
-  else
-    StyledShowMessage(edMessage.Text);
-end;
-
 procedure TfmStyledTaskDialog.InitializeDialogs;
 var
   LAutoClickDelay: Integer;
@@ -261,7 +252,13 @@ procedure TfmStyledTaskDialog.ShowDlg(Sender: TObject);
 
   if LUseDefaultbutton then
   begin
-    if Sender = btNativeTaskDialog then
+    if Sender = btNativeShowMessage then
+      //Call Delphi MessageDlg
+      LResult := MessageDlg(edMessage.Text, LDlgType, LButtons, HelpContext, LDefaultButton)
+    else if Sender = btStyledShowMessage then
+      //Call Styled MessageDlg
+      LResult := StyledMessageDlg(edMessage.Text, LDlgType, LButtons, HelpContext, LDefaultButton)
+    else if Sender = btNativeTaskDialog then
       //Call Delphi TaskMessageDlg passing Default Button
       LResult := TaskMessageDlg(edTitle.Text, edMessage.Text, LDlgType, LButtons, HelpContext, LDefaultButton)
     else if Sender = btNativeMsgDialog then
@@ -278,7 +275,13 @@ procedure TfmStyledTaskDialog.ShowDlg(Sender: TObject);
   end
   else
   begin
-    if Sender = btNativeTaskDialog then
+    if Sender = btNativeShowMessage then
+      //Call Delphi MessageDlg without Default Button
+      LResult := MessageDlg(edMessage.Text, LDlgType, LButtons, HelpContext)
+    else if Sender = btStyledShowMessage then
+      //Call Styled MessageDlg without Default Button
+      LResult := StyledMessageDlg(edMessage.Text, LDlgType, LButtons, HelpContext)
+    else if Sender = btNativeTaskDialog then
       //Call Delphi TaskMessageDlg without Default Button
       LResult := TaskMessageDlg(edTitle.Text, edMessage.Text, LDlgType, LButtons, HelpContext)
     else if Sender = btNativeMsgDialog then
@@ -395,6 +398,9 @@ procedure TfmStyledTaskDialog.UseStyleDialogCompClick(Sender: TObject);
     StyledTaskDialog.AutoClickDelay := AutoClickDelaySpinEdit.Value;
     StyledTaskDialog.ButtonsWidth := ButtonsWidthSpinEdit.Value;
     StyledTaskDialog.Flags :=  StyledTaskDialog.Flags - [tfVerificationFlagChecked];
+    {$IFDEF SKIA}
+    StyledTaskDialog.UseAnimations := True;
+    {$ENDIF}
   end
   else
   begin

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.3</h3>
+<h3>Actual official version: 3.7.4</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>10 Nov 2024: version 3.7.4</p>
+<ul>
+<li>Added tdiQuestion value to show a Question mark in TaskDialog</li>
+<li>Use Question Mark (icon ora animation) for MessageDlg and TaskDialog of mtConfirmation type</li>
+<li>Fixed DefaultButton for StyledDialog using MessageDlg and TaskDialog</li>
+</ul>
 <p>08 Nov 2024: version 3.7.3</p>
 <ul>
 <li>Fixed Animated TaskDialog Form</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.3
+### Actual official version: 3.7.4
 
 ---
 ## 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
+10 Nov 2024: version 3.7.4
+- Added tdiQuestion value to show a Question mark in TaskDialog
+- Use Question Mark (icon ora animation) for MessageDlg and TaskDialog of mtConfirmation type
+- Fixed DefaultButton for StyledDialog using MessageDlg and TaskDialog
+
 08 Nov 2024: version 3.7.3
 - Fixed Animated TaskDialog Form
 

packages/Vcl.StyledComponentsRegister.pas

@@ -126,6 +126,17 @@   TStyledTaskDialogComponentEditor = class(TComponentEditor)
     procedure ExecuteVerb(Index: Integer); override;
   end;
 
+  TStyledTaskDialogIconPropertyEditor = class(TIntegerProperty)
+  private
+    function ValueToString(const AValue: Integer): string;
+    function StringToValue(const AValue: string): Integer;
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    function GetValue: string; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+    procedure SetValue(const Value: string); override;
+  end;
+
   TStyledComponentSelection = class (TSelectionEditor, ISelectionEditor)
   public
     procedure RequiresUnits(Proc: TGetStrProc); override;
@@ -168,6 +179,7 @@ implementation
 uses
   System.SysUtils
   , ToolsAPI
+  , Vcl.Dialogs
   , Vcl.StandardButtonStyles
   , Vcl.BootstrapButtonStyles
   , Vcl.AngularButtonStyles
@@ -441,6 +453,7 @@ function TStyledButtonComponentEditor.GetVerbCount: Integer;
 end;
 
 { TStyledComponentSelection }
+
 procedure TStyledComponentSelection.RequiresUnits(Proc: TGetStrProc);
 begin
   inherited RequiresUnits(Proc);
@@ -783,6 +796,63 @@ function TStyledTaskDialogComponentEditor.GetVerbCount: Integer;
   Result := 2;
 end;
 
+{ TStyledTaskDialogIconPropertyEditor }
+
+function TStyledTaskDialogIconPropertyEditor.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paValueList, paMultiSelect];
+end;
+
+function TStyledTaskDialogIconPropertyEditor.ValueToString(
+  const AValue: Integer): string;
+begin
+  case AValue of
+    tdiNone: Result := 'tdiNone';
+    tdiWarning: Result := 'tdiWarning';
+    tdiError: Result := 'Error';
+    tdiInformation: Result := 'tdiInformation';
+    tdiShield: Result := 'tdiShield';
+    tdiQuestion: Result := 'tdiQuestion';
+  else
+    Result := IntToStr(AValue);
+  end;
+end;
+
+function TStyledTaskDialogIconPropertyEditor.StringToValue(
+  const AValue: string): Integer;
+begin
+  if SameText(AValue, 'tdiNone') then Result := tdiNone
+  else if SameText(AValue, 'tdiWarning') then Result := tdiWarning
+  else if SameText(AValue, 'tdiError') then Result := tdiError
+  else if SameText(AValue, 'tdiInformation') then Result := tdiInformation
+  else if SameText(AValue, 'tdiShield') then Result := tdiShield
+  else if SameText(AValue, 'tdiQuestion') then Result := tdiQuestion
+  else
+    TryStrToInt(AValue, Result);
+end;
+
+function TStyledTaskDialogIconPropertyEditor.GetValue: string;
+var
+  I: Integer;
+begin
+  I := GetOrdValue;
+  Result := ValueToString(I);
+end;
+
+procedure TStyledTaskDialogIconPropertyEditor.GetValues(Proc: TGetStrProc);
+var
+  I: Integer;
+begin
+  inherited;
+  for I := tdiNone to tdiQuestion do
+    Proc(ValueToString(I));
+end;
+
+procedure TStyledTaskDialogIconPropertyEditor.SetValue(const Value: string);
+begin
+  SetOrdValue(StringToValue(Value));
+end;
+
 { TImageIndexPropertyEditor }
 
 function TImageIndexPropertyEditor.GetImageListAt(Index: Integer): TCustomImageList;
@@ -1036,6 +1106,12 @@ procedure Register;
   RegisterPropertyEditor(TypeInfo(TStyledButtonAppearance),
     TStyledButtonItem, 'StyleAppearance', TStyledAppearancePropertyEditor);
 
+  //Property Editor for Icon Value of StyledTaskDialog
+  RegisterPropertyEditor(TypeInfo(TTaskDialogIcon),
+    TStyledTaskDialog, 'MainIcon', TStyledTaskDialogIconPropertyEditor);
+  RegisterPropertyEditor(TypeInfo(TTaskDialogIcon),
+    TStyledTaskDialog, 'FooterIcon', TStyledTaskDialogIconPropertyEditor);
+
   //Property Editor for ImageIndex
   RegisterPropertyEditor(TypeInfo(System.UITypes.TImageIndex),
     TStyledGraphicButton, 'ImageIndex', TImageIndexPropertyEditor);

source/Skia.Vcl.StyledTaskDialogAnimatedUnit.pas

@@ -63,8 +63,6 @@   TStyledTaskDialogAnimatedForm = class(TStyledTaskDialogForm)
   private
     procedure InternalLoadImage(const AAnimatedImage: TSkAnimatedImage;
       const AImageIndex: TImageIndex; AImageName: string);
-    function TaskDialogIconToIconName(
-      const ATaskDialogIcon: TTaskDialogIcon): string;
   protected
     class function CanUseAnimations: Boolean; override;
     procedure LoadImage(const AImageIndex: TImageIndex; AImageName: string); override;
@@ -87,27 +85,14 @@ class function TStyledTaskDialogAnimatedForm.CanUseAnimations: Boolean;
   Result := True;
 end;
 
-function TStyledTaskDialogAnimatedForm.TaskDialogIconToIconName(
-  const ATaskDialogIcon: TTaskDialogIcon): string;
-begin
-  case ATaskDialogIcon of
-    tdiWarning: Result := 'Warning';
-    tdiError: Result := 'Error';
-    tdiInformation: Result := 'Information';
-    tdiShield: Result := 'Shield';
-  else
-    Result := 'Custom';
-  end;
-end;
-
 procedure TStyledTaskDialogAnimatedForm.LoadCustomFooterIcon(const AIcon: TIcon;
   const ATaskDialogIcon: TTaskDialogIcon);
 var
   LImageName: string;
 begin
   inherited;
   //A Custom FooterIcon is not animated so ignore It
-  LImageName := TaskDialogIconToIconName(ATaskDialogIcon);
+  LImageName := TaskDialogIconToImageName(ATaskDialogIcon);
   if LImageName <> '' then
     InternalLoadImage(SkFooterAnimatedImage, -1, LImageName);
 end;
@@ -118,9 +103,9 @@ procedure TStyledTaskDialogAnimatedForm.LoadCustomMainIcon(const AIcon: TIcon;
   LImageName: string;
 begin
   //A Custom MainIcon is not animated so ignore it
-  LImageName := TaskDialogIconToIconName(ATaskDialogIcon);
+  LImageName := TaskDialogIconToImageName(ATaskDialogIcon);
   if LImageName <> '' then
-    InternalLoadImage(SkAnimatedImage, -1, LImageName);
+    InternalLoadImage(SkAnimatedImage, ATaskDialogIcon, LImageName);
 end;
 
 procedure TStyledTaskDialogAnimatedForm.LoadImage(
@@ -136,6 +121,8 @@ procedure TStyledTaskDialogAnimatedForm.InternalLoadImage(
   LStream: TResourceStream;
   LImageName: string;
 begin
+  if AImageName = '' then
+    Exit;
   //Using ..\Animations\Animations.rc file compiled into Animations.RES file
   LImageName := UpperCase('LOTTIE_'+AImageName);
   LStream := TResourceStream.Create(HInstance, LImageName, RT_RCDATA);

source/Vcl.ButtonStylesAttributes.pas

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