paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-05 23:20:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* notification interface

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-18 14:52:59 +02:00
parent 7367b27a66
commit e7a7f6946e
1 changed files with 36 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
packages/htmlfragment/htmlfragment.pas
View File

@ -1,6 +1,7 @@
unit htmlfragment;
{$mode ObjFPC}
{$INTERFACES CORBA}
interface
@ -11,6 +12,15 @@ Type
TCustomHTMLFragment = class;
{ TFragmentHandler }
IRendered = Interface
Procedure HTMLAvailable;
end;
IFragmentClient = Interface ['{984EDD58-4F93-40BA-A757-06AC293D11F9}']
Procedure HTMLLoaded;
Procedure HTMLRendered;
end;
TFragmentHandler = Class(TObject)
Private
@ -66,6 +76,7 @@ Type
procedure SetUseProjectHTML(AValue: Boolean);
Protected
procedure CheckRendered(const aOperation: string);
procedure DoOnHTMLLoaded; virtual;
procedure DoOnRender; virtual;
procedure DoOnUnRender; virtual;
procedure DoRender; virtual;
@ -270,9 +281,16 @@ end;
procedure TCustomHTMLFragment.DoOnRender;
Var
I : Integer;
aClient : IFragmentClient;
begin
if Assigned(FOnRendered) then
FOnRendered(Self);
For I:=0 to ComponentCount-1 do
if Supports(Components[i],IFRagmentClient,aClient) then
aClient.HTMLRendered;
end;
procedure TCustomHTMLFragment.DoOnUnRender;
@ -333,14 +351,28 @@ begin
DoOnUnRender;
end;
procedure TCustomHTMLFragment.DoOnHTMLLoaded;
Var
I : Integer;
aClient : IFragmentClient;
begin
if Assigned(FOnHTMLLoaded) then
FOnHTMLLoaded(Self);
For I:=0 to ComponentCount-1 do
if Supports(Components[i],IFRagmentClient,aClient) then
aClient.HTMLLoaded;
end;
procedure TCustomHTMLFragment.Show;
Procedure DoStartRender(Sender : TObject; const aName : string);
begin
FTemplate:=GlobalTemplates[aName];
if Assigned(FOnHTMLLoaded) then
FOnHTMLLoaded(Self);
if not UseProjectHTMLFile then
FTemplate:=GlobalTemplates[aName];
DoOnHTMLLoaded;
Render;
end;
@ -349,11 +381,7 @@ Var
begin
if UseProjectHTMLFile then
begin
if Assigned(FOnHTMLLoaded) then
FOnHTMLLoaded(Self);
Render;
end
DoStartRender(GlobalTemplates,N)
else
begin
N:=TemplateName;