Added TCEFWinControl.InvalidateChildren

This commit is contained in:
Salvador Díaz Fau 2018-10-20 20:43:06 +02:00
parent 67c45875d9
commit 74c545a5fb

View File

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