From ab5d084adef0ce57200eec9d9cb59ba6bc184155 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sun, 20 Aug 2023 14:54:50 +0200
Subject: [PATCH] TTaskDialog: publish properties CustomFooterIcon and
 CustomMainIcon.

---
 lcl/dialogs.pp             |  8 ++++++--
 lcl/include/taskdialog.inc | 10 ++++++++++
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp
index fe74b77bc9..a35b95eb8d 100644
--- a/lcl/dialogs.pp
+++ b/lcl/dialogs.pp
@@ -677,6 +677,8 @@ type
     FVerificationText: TTranslateString;
     FWidth: Integer;
     FOnButtonClicked: TTaskDlgClickEvent;
+    function IsCustomFooterIconStored: Boolean;
+    function IsCustomMainIconStored: Boolean;
     procedure SetButtons(const Value: TTaskDialogButtons);
     procedure SetCustomFooterIcon(AValue: TIcon);
     procedure SetCustomMainIcon(AValue: TIcon);
@@ -711,8 +713,8 @@ type
     property Button: TTaskDialogButtonItem read FButton write FButton;
     property Buttons: TTaskDialogButtons read FButtons write SetButtons;
     property Caption: TTranslateString read FCaption write FCaption;
-    property CustomFooterIcon: TIcon read FCustomFooterIcon write SetCustomFooterIcon;
-    property CustomMainIcon: TIcon read FCustomMainIcon write SetCustomMainIcon;
+    property CustomFooterIcon: TIcon read FCustomFooterIcon write SetCustomFooterIcon stored IsCustomFooterIconStored;
+    property CustomMainIcon: TIcon read FCustomMainIcon write SetCustomMainIcon stored IsCustomMainIconStored;
     property CommonButtons: TTaskDialogCommonButtons read FCommonButtons write FCommonButtons default [tcbOk, tcbCancel];
     property CollapseButtonCaption: TTranslateString read FCollapseButtonCaption write FCollapseButtonCaption;
     property DefaultButton: TTaskDialogCommonButton read FDefaultButton write FDefaultButton default tcbOk;
@@ -755,6 +757,8 @@ type
     property Caption;
     property CommonButtons;
     property CollapseButtonCaption;
+    property CustomFooterIcon;
+    property CustomMainIcon;
     property DefaultButton;
     property ExpandButtonCaption;
     property ExpandedText;
diff --git a/lcl/include/taskdialog.inc b/lcl/include/taskdialog.inc
index cbea95d5c3..d3c0679473 100644
--- a/lcl/include/taskdialog.inc
+++ b/lcl/include/taskdialog.inc
@@ -280,6 +280,16 @@ begin
   FButtons.Assign(Value);
 end;
 
+function TCustomTaskDialog.IsCustomFooterIconStored: Boolean;
+begin
+  Result := Assigned(FCustomFooterIcon) and not FCustomFooterIcon.Empty;
+end;
+
+function TCustomTaskDialog.IsCustomMainIconStored: Boolean;
+begin
+  Result := Assigned(FCustomMainIcon) and not FCustomMainIcon.Empty;
+end;
+
 procedure TCustomTaskDialog.SetCustomFooterIcon(AValue: TIcon);
 begin
   FCustomFooterIcon.Assign(AValue);