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

LCL: Return a verification check status from Task Dialog. Issue #34199, patch from Serge Anvarov.

Browse Source 
git-svn-id: trunk@58855 -
This commit is contained in:
juha 2018-09-04 14:10:53 +00:00
parent 9cdca04078
commit 856eb03c6e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/taskdialog.inc
View File

@ -236,6 +236,10 @@ begin
FRadioButton := RadioButtons[TaskDlg.RadioRes-200] as TTaskDialogRadioButtonItem
else
FRadioButton := nil;
if TaskDlg.VerifyChecked then
Include(FFlags, tfVerificationFlagChecked)
else
Exclude(FFlags, tfVerificationFlagChecked)
end;
procedure TCustomTaskDialog.DoOnButtonClicked(AModalResult: Integer;