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

TaskDialog: implement CommandLinkHint for emulated TaskDialog as well. Resolves issue #31395.

Browse Source
This commit is contained in:
Bart 2023-07-31 14:57:19 +02:00
parent fff6152dde
commit 1aea03f44f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/taskdlgemulation.pp
View File

@ -392,12 +392,10 @@ begin
if (tfEmulateClassicStyle in FDlg.Flags) then
SetBounds(X,Y,aWidth-10-X,40) else
SetBounds(X,Y,aWidth-16-X,40);
Caption := NoCR(CustomButtons[i], aHint);
if (aHint <> '') then
begin
Caption := CustomButtons[i];
Hint := FDlg.Buttons[i].CommandLinkHint;
if (Hint <> '') then
ShowHint := True;
Hint := aHint; // note shown as Hint
end;
inc(Y,Height+2);
ModalResult := i+TaskDialogFirstButtonIndex;
OnClick := @HandleEmulatedButtonClicked;