LCL: add TaskDlgEmulation unit (skeleton).

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
 

lcl/lclbase.lpk

@@ -27,7 +27,7 @@
     <License Value="modified LGPL-2
 "/>
     <Version Major="3" Minor="99"/>
-    <Files Count="288">
+    <Files Count="289">
       <Item1>
         <Filename Value="checklst.pas"/>
         <UnitName Value="CheckLst"/>
@@ -1190,6 +1190,10 @@
         <Filename Value="dialogres.pas"/>
         <UnitName Value="DialogRes"/>
       </Item288>
+      <Item289>
+        <Filename Value="taskdlgemulation.pp"/>
+        <UnitName Value="taskdlgemulation"/>
+      </Item289>
     </Files>
     <CompatibilityMode Value="True"/>
     <LazDoc Paths="../docs/xml/lcl"/>

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.
+