TGraphicControl - setbounds

====================== SETBOUNDS ============================

Para componentes do tipo TGraphicControl dependendo é necessário

criar um override do SetBounds (quando é dado um resize):

  public

    procedure SetBounds (ALeft, ATop, AWidth, AHeight: Integer); override;

procedure TX.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

begin

  inherited SetBounds (ALeft, ATop, AWidth, AHeight);

  RedesenhaAlgo;  

end;