paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 19:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

TTaskDialog: make the flag tfNoDefaultRadioButton actually work both.

Browse Source
This commit is contained in:
Bart 2023-07-07 22:55:13 +02:00
parent a4c9080f10
commit 48b1419ec4
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/lcltaskdialog.pas
View File

@ -825,7 +825,14 @@ begin
Config.hMainIcon := TD_ICONS[aDialogIcon]; Config.hMainIcon := TD_ICONS[aDialogIcon];
Config.hFooterIcon := TD_FOOTERICONS[aFooterIcon]; Config.hFooterIcon := TD_FOOTERICONS[aFooterIcon];
Config.nDefaultButton := aButtonDef; Config.nDefaultButton := aButtonDef;
Config.nDefaultRadioButton := aRadioDef+200; {
Although the offcial MS docs (https://learn.microsoft.com/en-us/windows/win32/api/commctrl/ns-commctrl-taskdialogconfig)
states that setting the flag TDF_NO_DEFAULT_RADIO_BUTTON should cause that no radiobutton
is selected when the dialog displays, testing shows that (at least on Win10) this only
works correctly if nDefaultRadioButton does NOT point to a radiobutton in the pRadioButtons array.
}
if not (tdfNoDefaultRadioButton in AFlags) then
Config.nDefaultRadioButton := aRadioDef+200;
Config.cxWidth := MulDiv(aWidth, 4, DialogBaseUnits); // cxWidth needed in "dialog units" Config.cxWidth := MulDiv(aWidth, 4, DialogBaseUnits); // cxWidth needed in "dialog units"
Config.pfCallback := @TaskDialogCallbackProc; Config.pfCallback := @TaskDialogCallbackProc;
Config.lpCallbackData := @self; Config.lpCallbackData := @self;
@ -943,7 +950,7 @@ begin
Hint := aHint; // note shown as Hint Hint := aHint; // note shown as Hint
end; end;
inc(Y,Height + ARadioOffset); inc(Y,Height + ARadioOffset);
if (i=0) or (i=aRadioDef) then if not (tdfNoDefaultRadioButton in AFlags) and ((i=0) or (i=aRadioDef)) then
Checked := true; Checked := true;
end; end;
end; end;