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

* Namespaced HTMLFragment

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-28 00:17:23 +01:00
parent 590b574fbe
commit ed15d85e7a
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/htmlfragment/namespaced/HTML.Fragment.pas Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit HTML.Fragment;
{$include ../src/htmlfragment.pas}

18
packages/htmlfragment/htmlfragment.pas → packages/htmlfragment/src/htmlfragment.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit htmlfragment;
{$ENDIF}
{$mode ObjFPC}
{$INTERFACES CORBA}
@ -6,14 +8,21 @@ unit htmlfragment;
interface
uses
{$IFDEF FPC_DOTTEDUNITS}
{$ifdef pas2js} BrowserApi.Web,{$endif} System.Classes, System.SysUtils, HTML.Utils;
{$ELSE}
{$ifdef pas2js} web,{$endif} Classes, SysUtils, Rtl.HTMLUtils;
{$ENDIF}
Type
TCustomHTMLFragment = class;
{ TFragmentHandler }
{$IFDEF FPC_DOTTEDUNITS}
IFragmentClient = HTML.Utils.IHTMLClient;
{$ELSE FPC_DOTTEDUNITS}
IFragmentClient = Rtl.HTMLUtils.IHTMLClient;
{$ENDIF FPC_DOTTEDUNITS}
TFragmentHandler = Class(TObject)
Private
@ -112,7 +121,12 @@ Type
implementation
uses rtl.TemplateLoader;
uses
{$IFDEF FPC_DOTTEDUNITS}
Browser.TemplateLoader;
{$ELSE}
rtl.TemplateLoader;
{$ENDIF}
Resourcestring
SErrCannotPerformOperation = 'Cannot perform operation "%s" when HTML is rendered';