From 6fb319fae8993a93a9ec90e4f9041518a61d9a89 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Mon, 17 Jul 2023 12:53:27 +0200
Subject: [PATCH] WSDialogs: basic implementation of TWSTaskDialog.Execute.

---
 lcl/widgetset/wsdialogs.pp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lcl/widgetset/wsdialogs.pp b/lcl/widgetset/wsdialogs.pp
index 99394f6b17..9018824306 100644
--- a/lcl/widgetset/wsdialogs.pp
+++ b/lcl/widgetset/wsdialogs.pp
@@ -124,7 +124,7 @@ type
 implementation
 
 uses
-  LResources;
+  LResources, TaskDlgEmulation;
 
 class function  TWSCommonDialog.CreateHandle(const ACommonDialog: TCommonDialog): TLCLHandle;
 begin
@@ -200,8 +200,7 @@ end;
 
 class function TWSTaskDialog.Execute(const ADlg: TCustomTaskDialog): Boolean;
 begin
-  //ToDo call new LCLTaskDialog.Execute
-  Result := False;
+  Result := ExecuteLCLTaskDialog(TTaskDialog(ADlg));
 end;
 
 { WidgetSetRegistration }