From 72376eacf2e08d3e58d9d32023a65f684f6f8cae Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Mon, 31 Jul 2023 23:20:36 +0200
Subject: [PATCH] TaskDialog: add comment in Win32 WS code about (not yet
 supported) field of TTaskDialogConfig.

---
 lcl/interfaces/win32/win32wsdialogs.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index 33f9096cb8..2f7834328c 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -1796,8 +1796,12 @@ var
         AParentWnd := 0;
     end;
     ExpandedInformation := Utf8ToUtf16(ADlg.ExpandedText);
-    ExpandedControlText := ''; //currently no matching field in TTaskDialog??
     CollapsedControlText := Utf8ToUtf16(ADlg.ExpandButtonCaption);
+
+    //Seems to be the caption of the ExpandButton when ExpandedText is displayed
+    //If it's empty, then the caption of the ExpandButton remains the same
+    ExpandedControlText := ''; //currently no matching field in TTaskDialog
+
     Footer := Utf8ToUtf16(ADlg.FooterText);
 
     if ADlg.RadioButtons.DefaultButton<> nil then