version 3.8.3

- TStyledTaskDialog enhanced and fixed:
- > "Flags" property default same as TTaskDialog
- > moved Position and MainIconSize from public to published
- > moved Handle property from published to public
- > fixed "Custom position" of TaskDialog using "Position" property
- > Inside OnDialogCreated is possible to set Position
- DialogForm enhanced and fixed:
- > Fixed MinHeight
- > Fixed position of Dialog based on tfPositionRelativeToWindow flag

Author: carloBarazzetta

Demos/source/StyledDbNavigatorFormOld.vlb

@@ -507,13 +507,8 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       't laborum.'
     Title = 'Task Dialog Tester'
     VerificationText = 'Lorem ipsum dolor sit amet, consectetur adipiscing elit'
-    OnButtonClicked = TaskDialogButtonClicked
-    OnDialogConstructed = TaskDialogDialogConstructed
     OnDialogCreated = TaskDialogDialogCreated
-    OnDialogDestroyed = TaskDialogDialogDestroyed
-    OnExpanded = TaskDialogExpanded
     OnHyperlinkClicked = TaskDialogHyperlinkClicked
-    OnNavigated = TaskDialogNavigated
     OnRadioButtonClicked = TaskDialogRadioButtonClicked
     OnTimer = TaskDialogTimer
     OnVerificationClicked = TaskDialogVerificationClicked
@@ -564,13 +559,8 @@ object fmStyledTaskDialog: TfmStyledTaskDialog
       't laborum.'
     Title = 'Task Dialog Tester'
     VerificationText = 'Lorem ipsum dolor sit amet, consectetur adipiscing elit'
-    OnButtonClicked = TaskDialogButtonClicked
-    OnDialogConstructed = TaskDialogDialogConstructed
     OnDialogCreated = TaskDialogDialogCreated
-    OnDialogDestroyed = TaskDialogDialogDestroyed
-    OnExpanded = TaskDialogExpanded
     OnHyperlinkClicked = TaskDialogHyperlinkClicked
-    OnNavigated = TaskDialogNavigated
     OnRadioButtonClicked = TaskDialogRadioButtonClicked
     OnTimer = TaskDialogTimer
     OnVerificationClicked = TaskDialogVerificationClicked

Demos/source/StyledDialogDemoForm.dfm

@@ -91,14 +91,8 @@   TfmStyledTaskDialog = class(TForm)
     procedure UseStyleDialogCompClick(Sender: TObject);
     procedure FontComboBoxSelect(Sender: TObject);
     procedure RaiseDatabaseError(Sender: TObject);
-    procedure TaskDialogButtonClicked(Sender: TObject;
-      ModalResult: TModalResult; var CanClose: Boolean);
-    procedure TaskDialogDialogConstructed(Sender: TObject);
     procedure TaskDialogDialogCreated(Sender: TObject);
-    procedure TaskDialogDialogDestroyed(Sender: TObject);
-    procedure TaskDialogExpanded(Sender: TObject);
     procedure TaskDialogHyperlinkClicked(Sender: TObject);
-    procedure TaskDialogNavigated(Sender: TObject);
     procedure TaskDialogRadioButtonClicked(Sender: TObject);
     procedure TaskDialogVerificationClicked(Sender: TObject);
     procedure InitializeDialogsClick(Sender: TObject);
@@ -469,32 +463,11 @@ procedure TfmStyledTaskDialog.UseStyleDialogCompClick(Sender: TObject);
   ShowSelection(LTaskDialog.ModalResult);
 end;
 
-procedure TfmStyledTaskDialog.TaskDialogButtonClicked(Sender: TObject;
-  ModalResult: TModalResult; var CanClose: Boolean);
-begin
-  ;
-end;
-
-procedure TfmStyledTaskDialog.TaskDialogDialogConstructed(Sender: TObject);
-begin
-  ;
-end;
-
 procedure TfmStyledTaskDialog.TaskDialogDialogCreated(Sender: TObject);
 begin
   EnableAndFocusOKButton(Sender as TCustomTaskDialog);
 end;
 
-procedure TfmStyledTaskDialog.TaskDialogDialogDestroyed(Sender: TObject);
-begin
-  ;
-end;
-
-procedure TfmStyledTaskDialog.TaskDialogExpanded(Sender: TObject);
-begin
-  ;
-end;
-
 procedure TfmStyledTaskDialog.TaskDialogHyperlinkClicked(Sender: TObject);
 var
   LURL: String;
@@ -503,11 +476,6 @@ procedure TfmStyledTaskDialog.TaskDialogHyperlinkClicked(Sender: TObject);
   ShellExecute(Self.Handle, 'open' , PChar(LURL), nil, nil, SW_SHOW );
 end;
 
-procedure TfmStyledTaskDialog.TaskDialogNavigated(Sender: TObject);
-begin
-  ;
-end;
-
 procedure TfmStyledTaskDialog.TaskDialogRadioButtonClicked(Sender: TObject);
 var
   LTaskDialog: TCustomTaskDialog;
@@ -522,10 +490,7 @@ procedure TfmStyledTaskDialog.TaskDialogRadioButtonClicked(Sender: TObject);
 
 procedure TfmStyledTaskDialog.TaskDialogTimer(Sender: TObject; TickCount: Cardinal; var Reset: Boolean);
 begin
-   // TaskDialog1.ProgressBar.Position := MyThread.CurrentProgressPercent;
-   // Demo
-   //TaskDialog.ProgressBar.Position :=  TaskDialog.ProgressBar.Position + 1;
-   TaskDialog.Execute(Self.Handle);
+  TaskDialog.Execute(Self.Handle);
 end;
 
 function TfmStyledTaskDialog.EnableAndFocusOKButton(const ATaskDialog: TCustomTaskDialog): Boolean;

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.2</h3>
+<h3>Actual official version: 3.8.3</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,32 @@ <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>23 Aug 2025 - version 3.8.3</p>
+<ul>
+<li>TStyledTaskDialog enhanced and fixed:</li>
+<li><blockquote><p>&ldquo;Flags&rdquo; property default same as TTaskDialog</p>
+</blockquote>
+</li>
+<li><blockquote><p>moved Position and MainIconSize from public to published</p>
+</blockquote>
+</li>
+<li><blockquote><p>moved Handle property from published to public</p>
+</blockquote>
+</li>
+<li><blockquote><p>fixed &ldquo;Custom position&rdquo; of TaskDialog using &ldquo;Position&rdquo; property</p>
+</blockquote>
+</li>
+<li><blockquote><p>Inside OnDialogCreated is possible to set Position</p>
+</blockquote>
+</li>
+<li>DialogForm enhanced and fixed:</li>
+<li><blockquote><p>Fixed MinHeight</p>
+</blockquote>
+</li>
+<li><blockquote><p>Fixed position of Dialog based on tfPositionRelativeToWindow flag</p>
+</blockquote>
+</li>
+</ul>
 <p>19 Aug 2025 - Version 3.8.2</p>
 <ul>
 <li>Added progressbar to StyledDialog component</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.2
+### Actual official version: 3.8.3
 
 ---
 ## New Setup for Installation of Components
@@ -396,6 +396,17 @@ 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
+23 Aug 2025 - version 3.8.3
+- TStyledTaskDialog enhanced and fixed:
+- > "Flags" property default same as TTaskDialog
+- > moved Position and MainIconSize from public to published
+- > moved Handle property from published to public
+- > fixed "Custom position" of TaskDialog using "Position" property
+- > Inside OnDialogCreated is possible to set Position
+- DialogForm enhanced and fixed:
+- > Fixed MinHeight
+- > Fixed position of Dialog based on tfPositionRelativeToWindow flag
+
 19 Aug 2025 - Version 3.8.2
 - Added progressbar to StyledDialog component
 - Fixed Sort for TStyledToolButtons in 64 bit

README.md

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

source/Vcl.ButtonStylesAttributes.pas

@@ -98,21 +98,18 @@   TStyledTaskDialog = class(TTaskDialog)
     FUseAnimations: Boolean;
     FUseMessageDefaultButton: Boolean;
     FMessageDefaultButton: TMsgDlgBtn;
-    FDefineDialogSize: TTaskDialogShow;
+    FOnDialogShow: TTaskDialogShow;
     FHideSystemCloseButton: Boolean;
     function IsDefaultFamily: Boolean;
     procedure SetAutoClick(const AValue: Boolean);
     procedure SetAutoClickDelay(const AValue: Integer);
     procedure SetAlphaBlendValue(const AValue: Byte);
     procedure SetButtonsHeight(const AValue: Integer);
     procedure SetButtonsWidth(const AValue: Integer);
-    function GetFlags: TTaskDialogFlags;
-    procedure SetFlags(const AValue: TTaskDialogFlags);
     function GetHandle: HWND;
     procedure SetHandle(const AValue: HWND);
   strict protected
     function DoExecute(ParentWnd: HWND): Boolean; override;
-    procedure DoOnDialogCreated; override;
     procedure DoOnHelp; override;
   protected
   public
@@ -122,13 +119,14 @@   TStyledTaskDialog = class(TTaskDialog)
     constructor Create(AOwner: TComponent); override;
     function Execute(ParentWnd: HWND): Boolean; overload; override;
     function FindDialogButton(const AModalResult: TModalResult): TStyledButton;
+    function IsCustomPosition: Boolean;
     property MessageDefaultButton: TMsgDlgBtn read FMessageDefaultButton;
     property UseMessageDefaultButton: Boolean read FUseMessageDefaultButton;
     property HelpFile: string read FHelpFile write FHelpFile;
-    property Position: TPoint read FPosition write FPosition;
-    property MainIconSize: Integer read FMainIconSize write FMainIconSize default DEFAULT_MAIN_ICON_SIZE;
+    property Handle: HWND read GetHandle write SetHandle;
     property OnFindDialogButton: TOnFindDialogButtonEvent read FOnFindDialogButton write FOnFindDialogButton;
   published
+    //Additional properties compared to TTaskDialog
     property AutoClick: Boolean read FAutoClick write SetAutoClick default False;
     property AutoClickDelay: Integer read FAutoClickDelay write SetAutoClickDelay default DEFAULT_AUTOCLICK_DELAY;
     property DialogButtonsFamily: TStyledButtonFamily read FDialogButtonsFamily write FDialogButtonsFamily stored IsDefaultFamily;
@@ -138,10 +136,10 @@   TStyledTaskDialog = class(TTaskDialog)
     property AlphaBlendValue: Byte read FAlphaBlendValue write SetAlphaBlendValue default DEFAULT_STYLEDDIALOG_ALPHABLEND;
     property ButtonsWidth: Integer read FButtonsWidth write SetButtonsWidth default DEFAULT_STYLEDDIALOG_BUTTONSWIDTH;
     property ButtonsHeight: Integer read FButtonsHeight write SetButtonsHeight default DEFAULT_STYLEDDIALOG_BUTTONSHEIGHT;
-    property Flags: TTaskDialogFlags read GetFlags write SetFlags default [tfAllowDialogCancellation, tfPositionRelativeToWindow];
     property HideSystemCloseButton: Boolean read FHideSystemCloseButton write FHideSystemCloseButton default False;
-    property Handle: HWND read GetHandle write SetHandle;
-    property OnDialogShow: TTaskDialogShow read FDefineDialogSize write FDefineDialogSize;
+    property Position: TPoint read FPosition write FPosition stored IsCustomPosition;
+    property MainIconSize: Integer read FMainIconSize write FMainIconSize default DEFAULT_MAIN_ICON_SIZE;
+    property OnDialogShow: TTaskDialogShow read FOnDialogShow write FOnDialogShow;
   end;
 
   //Abstraction of a Dialog Launcher
@@ -354,8 +352,9 @@ function InternalDoTaskMessageDlgPosHelp(const Instruction, Msg: string;
   Application.ModalStarted;
   LTaskDialog := TStyledTaskDialog.Create(nil);
   try
+    //Assign custom position to Dialog
+    LTaskDialog.Position := TPoint.Create(X, Y);
     //Reset default CommonButtons
-    LTaskDialog.Flags := LTaskDialog.Flags + [tfPositionRelativeToWindow];
     LTaskDialog.CommonButtons := [];
     //To inform the Dialog Form to use the Default Button specified in MessageDlg
     LTaskDialog.FUseMessageDefaultButton := True;
@@ -787,7 +786,8 @@ procedure StyledShowMessageFmt(const Msg: string; Params: array of const); overl
 constructor TStyledTaskDialog.Create(AOwner: TComponent);
 begin
   inherited;
-  Flags := [tfAllowDialogCancellation, tfPositionRelativeToWindow];
+  //Default Position: -1, -1 (is not a custom position)
+  FPosition := TPoint.Create(-1,-1);
   FDialogButtonsFamily := _DialogButtonsFamily;
   FUseCommandLinks := _UseCommandLinks;
   FUseTitleInMessageDlg := _UseTitleInMessageDlg;
@@ -816,31 +816,6 @@ function TStyledTaskDialog.DoExecute(ParentWnd: HWND): Boolean;
     Result := inherited DoExecute(ParentWnd);
 end;
 
-procedure TStyledTaskDialog.DoOnDialogCreated;
-var
-  Rect: TRect;
-  LX, LY: Integer;
-  LHandle: HMONITOR;
-  LMonitorInfo: TMonitorInfo;
-begin
-  LX := Position.X;
-  LY := Position.Y;
-  LHandle := MonitorFromWindow(FParentWnd, MONITOR_DEFAULTTONEAREST);
-  LMonitorInfo.cbSize := SizeOf(LMonitorInfo);
-  if GetMonitorInfo(LHandle, {$IFNDEF CLR}@{$ENDIF}LMonitorInfo) then
-    with LMonitorInfo do
-    begin
-      GetWindowRect(Handle, Rect);
-      if LX < 0 then
-        LX := ((rcWork.Right - rcWork.Left) - (Rect.Right - Rect.Left)) div 2;
-      if LY < 0 then
-        LY := ((rcWork.Bottom - rcWork.Top) - (Rect.Bottom - Rect.Top)) div 2;
-      Inc(LX, rcWork.Left);
-      Inc(LY, rcWork.Top);
-      SetWindowPos(Handle, 0, LX, LY, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
-    end;
-end;
-
 procedure TStyledTaskDialog.DoOnExpandButtonClicked(Expanded: Boolean);
 begin
   inherited DoOnExpandButtonClicked(not Expanded);
@@ -892,14 +867,14 @@ function TStyledTaskDialog.FindDialogButton(
     Result := nil;
 end;
 
-function TStyledTaskDialog.GetFlags: TTaskDialogFlags;
+function TStyledTaskDialog.GetHandle: HWND;
 begin
-  Result := inherited Flags;
+  Result := inherited Handle;
 end;
 
-function TStyledTaskDialog.GetHandle: HWND;
+function TStyledTaskDialog.IsCustomPosition: Boolean;
 begin
-  Result := inherited Handle;
+  Result := (FPosition.X <> -1) and (FPosition.Y <> -1);
 end;
 
 function TStyledTaskDialog.IsDefaultFamily: Boolean;
@@ -936,29 +911,24 @@ procedure TStyledTaskDialog.SetButtonsWidth(const AValue: Integer);
   FButtonsWidth := AValue;
 end;
 
-procedure TStyledTaskDialog.SetFlags(const AValue: TTaskDialogFlags);
+procedure TStyledTaskDialog.SetHandle(const AValue: HWND);
+var
+  Context: TRttiContext;
+  RttiType: TRttiType;
+  Field: TRttiField;
 begin
-  inherited Flags := AValue;
+  Context := TRttiContext.Create;
+  try
+    RttiType := Context.GetType(Self.ClassType);
+    Field := RttiType.GetField('FHandle');
+    if Assigned(Field) then
+      Field.SetValue(Self, AValue);
+  finally
+    Context.Free;
+  end;
 end;
 
-procedure TStyledTaskDialog.SetHandle(const AValue: HWND);
-var
-  Context: TRttiContext;
-  RttiType: TRttiType;
-  Field: TRttiField;
-begin
-  Context := TRttiContext.Create;
-  try
-    RttiType := Context.GetType(Self.ClassType);
-    Field := RttiType.GetField('FHandle');
-    if Assigned(Field) then
-      Field.SetValue(Self, AValue);
-  finally
-    Context.Free;
-  end;
-end;
-
-function GetDialogTypeTitle(const DlgType: TMsgDlgType): string;
+function GetDialogTypeTitle(const DlgType: TMsgDlgType): string;
 begin
   case DlgType of
     mtWarning      : Result := STR_WARNING;