Просмотр исходного кода

* Trigger onrender after all clients handled render

Michaël Van Canneyt 2 лет назад
Родитель
Сommit
19ca444485
1 измененных файлов с 2 добавлено и 2 удалено
  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;