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

* Small fix for unrendering

Browse Source
This commit is contained in:
michael 2020-06-08 08:15:51 +00:00
parent 591d43ee9c
commit 6a3a4d4cf2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/webwidget/webwidget.pas
View File

@ -2466,6 +2466,9 @@ begin
ReRender:=IsRendered; ReRender:=IsRendered;
if ReRender then if ReRender then
UnRender(ParentElement); UnRender(ParentElement);
If (aValue=Nil) and (csDestroying in ComponentState) then
exit;
// here we re-render if needed
InvalidateParentElement; InvalidateParentElement;
If Assigned(aValue) then If Assigned(aValue) then
begin begin
@ -2709,7 +2712,6 @@ begin
EnsureElement; EnsureElement;
For I:=0 to ChildCount-1 do For I:=0 to ChildCount-1 do
Children[i].Refresh; Children[i].Refresh;
end; end;
procedure TCustomWebWidget.Unrender; procedure TCustomWebWidget.Unrender;