procedure THIWin._onResize;
var
  i: integer;
begin
  inherited;
  Control.Invalidate;
  for i := 0 to Control.ChildCount-1 do
     Control.Children[i].Invalidate;
  _hi_OnEvent(_event_onResize);
end;