version 3.6.5

- Fixed Dialog buttons with with DPI > 100%
- Added FindDialogButton to TStyledTaskDialog
- Updated packages for Delphi 12.2

Author: carloBarazzetta

Demos/StyledButtonsDemo/Delphi10.3+/StyledButtonsDemo.res

@@ -480,7 +480,7 @@ object MainForm: TMainForm
         Width = 196
         Height = 195
         Anchors = [akLeft, akTop, akBottom]
-        ItemHeight = 17
+        ItemHeight = 13
         TabOrder = 1
       end
       object DefaultButtonComboBox: TComboBox

Demos/StyledTaskDlgDemo/AnimatedTaskDialogDemo.res

@@ -114,6 +114,7 @@   TMainForm = class(TForm)
     procedure ShowSelection(const AModalResult: TModalResult);
     procedure BuildStyleList;
     procedure InitializeDialogs;
+    function EnableAndFocusOKButton(const ATaskDialog: TCustomTaskDialog): Boolean;
   protected
     procedure Loaded; override;
   public
@@ -131,6 +132,7 @@ implementation
   System.TypInfo
   , Winapi.ShellAPI
   , Vcl.Themes
+  , Vcl.StyledButton
   , Vcl.StyledCmpMessages
   , Vcl.StyledCmpStrUtils
   , Vcl.StyledTaskDialogFormUnit;
@@ -487,7 +489,7 @@ procedure TMainForm.TaskDialogDialogConstructed(Sender: TObject);
 
 procedure TMainForm.TaskDialogDialogCreated(Sender: TObject);
 begin
-  ;
+  EnableAndFocusOKButton(Sender as TCustomTaskDialog);
 end;
 
 procedure TMainForm.TaskDialogDialogDestroyed(Sender: TObject);
@@ -533,12 +535,40 @@ procedure TMainForm.TaskDialogTimer(Sender: TObject; TickCount: Cardinal; var Re
    TaskDialog.Execute(Self.Handle);
 end;
 
+function TMainForm.EnableAndFocusOKButton(const ATaskDialog: TCustomTaskDialog): Boolean;
+var
+  LOKButton: TStyledButton;
+begin
+  //Example to enable/disable OK Button based on Verification Flag Checked
+  //This is possible only with TStyledTaskDialog!
+  Result := False;
+  if ATaskDialog is TStyledTaskDialog then
+  begin
+    LOKButton := TStyledTaskDialog(ATaskDialog).FindDialogButton(mrOK);
+    if Assigned(LOKButton) then
+    begin
+      LOKButton.Enabled := tfVerificationFlagChecked in ATaskDialog.Flags;
+      if LOKButton.CanFocus then
+        LOKButton.SetFocus;
+      Result := True;
+    end;
+  end;
+end;
+
 procedure TMainForm.TaskDialogVerificationClicked(Sender: TObject);
+var
+  LTaskDialog: TCustomTaskDialog;
 begin
-  if tfVerificationFlagChecked in (Sender as TTaskDialog).Flags then
-    ShowMessage('Verification Click TRUE')
-  else
-    ShowMessage('Verification Click FALSE');
+  LTaskDialog := Sender as TCustomTaskDialog;
+  //In this examples, for StyledTaskDialog, clicking on Verification checkbox
+  //enable/disable OK Button
+  if not EnableAndFocusOKButton(LTaskDialog) then
+  begin
+    if tfVerificationFlagChecked in LTaskDialog.Flags then
+      ShowMessage('Verification Click TRUE')
+    else
+      ShowMessage('Verification Click FALSE');
+  end;
 end;
 
 initialization

Demos/StyledTaskDlgDemo/MainFormUnit.dfm

@@ -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.6.4</h3>
+<h3>Actual official version: 3.6.5</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>
@@ -344,6 +344,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>16 Sep 2024: version 3.6.5</p>
+<ul>
+<li>Fixed Dialog buttons with with DPI > 100%</li>
+<li>Added FindDialogButton to TStyledTaskDialog</li>
+<li>Updated packages for Delphi 12.2</li>
+</ul>
 <p>26 Aug 2024: version 3.6.4</p>
 <ul>
 <li>Fixed memory leak in Vcl.ButtonStylesAttributes.pas</li>

Demos/StyledTaskDlgDemo/MainFormUnit.pas

@@ -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.6.4
+### Actual official version: 3.6.5
 
 ---
 ## A brief description
@@ -397,6 +397,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
+16 Sep 2024: version 3.6.5
+- Fixed Dialog buttons with with DPI > 100%
+- Added FindDialogButton to TStyledTaskDialog
+- Updated packages for Delphi 12.2
+
 26 Aug 2024: version 3.6.4
 - Fixed memory leak in Vcl.ButtonStylesAttributes.pas
 

Demos/StyledTaskDlgDemo/StyledTaskDialogDemo.res

@@ -2,13 +2,14 @@
     <PropertyGroup>
         <ProjectGuid>{18935916-9466-4807-98CC-6A91C06F1F85}</ProjectGuid>
         <MainSource>StyledAnimatedComponents.dpk</MainSource>
-        <ProjectVersion>20.1</ProjectVersion>
+        <ProjectVersion>20.2</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Package</AppType>
+        <ProjectName Condition="'$(ProjectName)'==''">StyledAnimatedComponents</ProjectName>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>

README.htm

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

README.md

@@ -2,7 +2,7 @@
     <PropertyGroup>
         <ProjectGuid>{EBF448F0-3AF1-4B95-B1AD-5874F1BABAEC}</ProjectGuid>
         <MainSource>dclStyledAnimatedComponents.dpk</MainSource>
-        <ProjectVersion>20.1</ProjectVersion>
+        <ProjectVersion>20.2</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>