LCL: add TaskDlgEmulation unit (skeleton).

This commit is contained in:
Bart 2023-07-17 12:48:02 +02:00
parent 57e13c67d3
commit df338fd867
3 changed files with 29 additions and 2 deletions

View File

@ -28,7 +28,7 @@ uses
Arrow, EditBtn, ComboEx, DBExtCtrls, CustomDrawn_Mac, CalcForm, Arrow, EditBtn, ComboEx, DBExtCtrls, CustomDrawn_Mac, CalcForm,
LCLTranslator, GroupedEdit, LCLTaskDialog, WSLazDeviceAPIS, LCLPlatformDef, LCLTranslator, GroupedEdit, LCLTaskDialog, WSLazDeviceAPIS, LCLPlatformDef,
IndustrialBase, JSONPropStorage, LCLExceptionStackTrace, DialogRes, IndustrialBase, JSONPropStorage, LCLExceptionStackTrace, DialogRes,
LazarusPackageIntf; taskdlgemulation, LazarusPackageIntf;
implementation implementation

View File

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

23
lcl/taskdlgemulation.pp Normal file
View File

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