mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 23:38:23 +02:00
LCL: add TaskDlgEmulation unit (skeleton).
This commit is contained in:
parent
57e13c67d3
commit
df338fd867
@ -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
|
||||||
|
|
||||||
|
@ -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
23
lcl/taskdlgemulation.pp
Normal 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.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user