Quellcode durchsuchen

* Trigger onrender after all clients handled render

Michaël Van Canneyt vor 2 Jahren
Ursprung
Commit
19ca444485
1 geänderte Dateien mit 2 neuen und 2 gelöschten Zeilen
  1. 2 2
      packages/htmlfragment/htmlfragment.pas

+ 2 - 2
packages/htmlfragment/htmlfragment.pas

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