From 856eb03c6e8952db4035b32e1437200e6d9c9dd2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 4 Sep 2018 14:10:53 +0000
Subject: [PATCH] LCL: Return a verification check status from Task Dialog.
 Issue #34199, patch from Serge Anvarov.

git-svn-id: trunk@58855 -
---
 lcl/include/taskdialog.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/include/taskdialog.inc b/lcl/include/taskdialog.inc
index 129b97beb9..7b805a8af4 100644
--- a/lcl/include/taskdialog.inc
+++ b/lcl/include/taskdialog.inc
@@ -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;