2
0
Эх сурвалжийг харах

* Trigger onrender after all clients handled render

Michaël Van Canneyt 2 жил өмнө
parent
commit
19ca444485

+ 2 - 2
packages/htmlfragment/htmlfragment.pas

@@ -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;