TGraphicControl - setbounds

Top  Previous  Next

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