paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-22 07:09:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Trigger onrender after all clients handled render

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-09-03 18:40:34 +02:00
parent 16327ebaf1
commit 19ca444485
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/htmlfragment/htmlfragment.pas
View File

@ -279,11 +279,11 @@ Var
aClient : IFragmentClient; aClient : IFragmentClient;
begin begin
if Assigned(FOnRendered) then
FOnRendered(Self);
For I:=0 to ComponentCount-1 do For I:=0 to ComponentCount-1 do
if Supports(Components[i],IFRagmentClient,aClient) then if Supports(Components[i],IFRagmentClient,aClient) then
aClient.HTMLRendered; aClient.HTMLRendered;
if Assigned(FOnRendered) then
FOnRendered(Self);
end; end;
procedure TCustomHTMLFragment.DoOnUnRender; procedure TCustomHTMLFragment.DoOnUnRender;