version 3.9.2

- Added button customization properties to TStyledTaskDialog:
  - DialogButtonsDrawType: TStyledButtonDrawType (btRoundRect, btRounded, btRect, btEllipse)
  - DialogButtonsRadius: Integer (corner radius)
  - DialogButtonsRoundedCorners: TRoundedCorners (which corners are rounded)
- Added RegisterDefaultRenderingStyle class method to TStyledTaskDialog for global default button styles
- Added "Apply to Task Dialogs" option in Demo settings for rounded buttons

Author: carloBarazzetta

Demos/source/MainDemoForm.dfm

@@ -376,7 +376,7 @@ object frmMain: TfrmMain
           Left = 3
           Top = 28
           Width = 386
-          Height = 97
+          Height = 120
           Align = alTop
           Caption = 'Rounded Buttons'
           TabOrder = 1
@@ -413,11 +413,22 @@ object frmMain: TfrmMain
             TabOrder = 2
             OnClick = MenuRoundedCheckBoxClick
           end
+          object DialogRoundedCheckBox: TCheckBox
+            AlignWithMargins = True
+            Left = 5
+            Top = 87
+            Width = 376
+            Height = 17
+            Align = alTop
+            Caption = 'Apply to Task Dialogs'
+            TabOrder = 3
+            OnClick = DialogRoundedCheckBoxClick
+          end
         end
         object ShowFormGroupBox: TGroupBox
           AlignWithMargins = True
           Left = 3
-          Top = 131
+          Top = 154
           Width = 386
           Height = 62
           Align = alTop

Demos/source/MainDemoForm.pas

@@ -113,6 +113,7 @@   TfrmMain = class(TForm)
     ToolbarRoundedCheckBox: TCheckBox;
     ButtonsRoundedCheckBox: TCheckBox;
     MenuRoundedCheckBox: TCheckBox;
+    DialogRoundedCheckBox: TCheckBox;
     ThemesRadioGroup: TRadioGroup;
     SelectThemeRadioGroup: TRadioGroup;
     acApplySettings: TAction;
@@ -146,6 +147,7 @@   TfrmMain = class(TForm)
     procedure ToolbarRoundedCheckBoxClick(Sender: TObject);
     procedure ButtonsRoundedCheckBoxClick(Sender: TObject);
     procedure MenuRoundedCheckBoxClick(Sender: TObject);
+    procedure DialogRoundedCheckBoxClick(Sender: TObject);
   private
     FActiveAction: TAction;
     FActiveView: TForm;
@@ -428,6 +430,11 @@ procedure TfrmMain.MenuRoundedCheckBoxClick(Sender: TObject);
   FSettings.MenuDrawRounded := MenuRoundedCheckBox.Checked;
 end;
 
+procedure TfrmMain.DialogRoundedCheckBoxClick(Sender: TObject);
+begin
+  FSettings.DialogDrawRounded := DialogRoundedCheckBox.Checked;
+end;
+
 procedure TfrmMain.pcChange(Sender: TObject);
 begin
   FSettings.ActivePageIndex := pc.ActivePageIndex;
@@ -632,6 +639,7 @@ procedure TfrmMain.UpdateFromSettings;
     ToolbarRoundedCheckBox.Checked := FSettings.ToolbarDrawRounded;
     ButtonsRoundedCheckBox.Checked := FSettings.ButtonDrawRounded;
     MenuRoundedCheckBox.Checked := FSettings.MenuDrawRounded;
+    DialogRoundedCheckBox.Checked := FSettings.DialogDrawRounded;
 
     //Rounded Buttons for StyledButtons
     if FSettings.ButtonDrawRounded then
@@ -658,6 +666,14 @@ procedure TfrmMain.UpdateFromSettings;
     TStyledButtonGroup.RegisterDefaultRenderingStyle(LStyle);
     catMenuItems.StyleDrawType := LStyle;
     MenuButtonToolbar.StyleDrawType := LStyle;
+
+    //Rounded Buttons for StyledTaskDialogs
+    if FSettings.DialogDrawRounded then
+      LStyle := btRounded
+    else
+      LStyle := btRoundRect;
+    TStyledTaskDialog.RegisterDefaultRenderingStyle(LStyle);
+
     PopulateAvailThemes;
   finally
     Screen.Cursor := crDefault;

Demos/source/uSettings.pas

@@ -56,12 +56,14 @@   TSettings = class
     FButtonDrawRounded: Boolean;
     FToolbarDrawRounded: Boolean;
     FMenuDrawRounded: Boolean;
+    FDialogDrawRounded: Boolean;
     function GetUseDarkStyle: Boolean;
     function GetButtonTextColor: TColor;
     class function GetSettingsFileName: string; static;
     procedure SetButtonDrawRounded(const AValue: Boolean);
     procedure SetToolbarDrawRounded(const AValue: Boolean);
     procedure SetMenuDrawRounded(const AValue: Boolean);
+    procedure SetDialogDrawRounded(const AValue: Boolean);
     procedure Changed;
     procedure SetActivePageIndex(const AValue: Integer);
     procedure SetFontName(const AValue: string);
@@ -92,6 +94,7 @@   TSettings = class
     property ButtonDrawRounded: Boolean read FButtonDrawRounded write SetButtonDrawRounded;
     property ToolbarDrawRounded: Boolean read FToolbarDrawRounded write SetToolbarDrawRounded;
     property MenuDrawRounded: Boolean read FMenuDrawRounded write SetMenuDrawRounded;
+    property DialogDrawRounded: Boolean read FDialogDrawRounded write SetDialogDrawRounded;
   end;
 
 function IsWindowsAppThemeLight: Boolean;
@@ -220,6 +223,7 @@ procedure TSettings.ReadSettings;
   FToolbarDrawRounded := FIniFile.ReadBool('Global', 'ToolbarDrawRounded', false);
   FButtonDrawRounded := FIniFile.ReadBool('Global', 'ButtonDrawRounded', false);
   FMenuDrawRounded := FIniFile.ReadBool('Global', 'MenuDrawRounded', false);
+  FDialogDrawRounded := FIniFile.ReadBool('Global', 'DialogDrawRounded', false);
 
   //Select Style by default on Actual Windows Theme
   if FThemeSelection = tsAsWindows then
@@ -249,6 +253,7 @@ procedure TSettings.WriteSettings;
   FIniFile.WriteBool('Global', 'ToolbarDrawRounded', ToolbarDrawRounded);
   FIniFile.WriteBool('Global', 'ButtonDrawRounded', ButtonDrawRounded);
   FIniFile.WriteBool('Global', 'MenuDrawRounded', MenuDrawRounded);
+  FIniFile.WriteBool('Global', 'DialogDrawRounded', DialogDrawRounded);
   FIsChanged := False;
 end;
 
@@ -275,6 +280,15 @@ procedure TSettings.SetMenuDrawRounded(const AValue: Boolean);
   end;
 end;
 
+procedure TSettings.SetDialogDrawRounded(const AValue: Boolean);
+begin
+  if FDialogDrawRounded <> AValue then
+  begin
+    FDialogDrawRounded := AValue;
+    Changed;
+  end;
+end;
+
 procedure TSettings.SetActivePageIndex(const AValue: Integer);
 begin
   if FActivePageIndex <> AValue then