Componente traçar angulos

Delphi

20/02/2004

Ola
Alguem conhece componente que possa traçar uma linha entre dois pontos e determinar o angulo nessa linha.


Williansmeneses

Williansmeneses

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

20/02/2004

Coloque Math no uses

function PegaAngulo(Ponto1, Ponto2: TPoint): Extended;
begin
  Result := (ArcTan2((P2.X - P1.X), (P2.X - P1.X))) - pi/2;
end;



GOSTEI 0
Williansmeneses

Williansmeneses

20/02/2004

Obrigado Marcelo


GOSTEI 0
POSTAR