paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

WSDialogs: basic implementation of TWSTaskDialog.Execute.

Browse Source
This commit is contained in:
Bart 2023-07-17 12:53:27 +02:00
parent 9289be8936
commit 6fb319fae8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/widgetset/wsdialogs.pp
View File

@ -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 }