paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-17 14:19:26 +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

4
packages/htmlfragment/htmlfragment.pas
View File

@ -279,11 +279,11 @@ Var
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;
if Assigned(FOnRendered) then
FOnRendered(Self);
end;
procedure TCustomHTMLFragment.DoOnUnRender;