paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 20:38:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

TaskDialog: add comment in Win32 WS code about (not yet supported) field of TTaskDialogConfig.

Browse Source
This commit is contained in:
Bart 2023-07-31 23:20:36 +02:00
parent 9874d86630
commit 72376eacf2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -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