diff --git a/lcl/alllclunits.pp b/lcl/alllclunits.pp index b4f1926bc6..72dd675c46 100644 --- a/lcl/alllclunits.pp +++ b/lcl/alllclunits.pp @@ -28,7 +28,7 @@ uses Arrow, EditBtn, ComboEx, DBExtCtrls, CustomDrawn_Mac, CalcForm, LCLTranslator, GroupedEdit, LCLTaskDialog, WSLazDeviceAPIS, LCLPlatformDef, IndustrialBase, JSONPropStorage, LCLExceptionStackTrace, DialogRes, - LazarusPackageIntf; + taskdlgemulation, LazarusPackageIntf; implementation diff --git a/lcl/lclbase.lpk b/lcl/lclbase.lpk index 1b4b109038..26f0c2bde3 100644 --- a/lcl/lclbase.lpk +++ b/lcl/lclbase.lpk @@ -27,7 +27,7 @@ - + @@ -1190,6 +1190,10 @@ + + + + diff --git a/lcl/taskdlgemulation.pp b/lcl/taskdlgemulation.pp new file mode 100644 index 0000000000..27a429fe14 --- /dev/null +++ b/lcl/taskdlgemulation.pp @@ -0,0 +1,23 @@ +unit taskdlgemulation; + +{$mode ObjFPC}{$H+} + +interface + +uses + Classes, SysUtils, + LazUTF8, + LCLType, LCLStrConsts, LCLIntf, InterfaceBase, ImgList, + LResources, Menus, Graphics, Forms, Controls, StdCtrls, ExtCtrls, Buttons, Dialogs, DialogRes; + +function ExecuteLCLTaskDialog(const ADlg: TTaskDialog): Boolean; + +implementation + +function ExecuteLCLTaskDialog(const ADlg: TTaskDialog): Boolean; +begin + Result := False; +end; + +end. +