diff --git a/source/uCEFWinControl.pas b/source/uCEFWinControl.pas index 72c04a38..2468b98b 100644 --- a/source/uCEFWinControl.pas +++ b/source/uCEFWinControl.pas @@ -71,6 +71,7 @@ type function TakeSnapshot(var aBitmap : TBitmap) : boolean; function DestroyChildWindow : boolean; procedure CreateHandle; override; + procedure InvalidateChildren; procedure UpdateSize; property ChildWindowHandle : THandle read GetChildWindowHandle; @@ -111,6 +112,11 @@ begin inherited CreateHandle; end; +procedure TCEFWinControl.InvalidateChildren; +begin + if HandleAllocated then RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN); +end; + procedure TCEFWinControl.UpdateSize; var TempRect : TRect;