нарисовать стрелку на делфи

[studentOne]

помогите пожалуйста!!! как можно нарисовать в делфи стрелку в канвасе??? нужно вывести граф и связи обозначить стретками, в с ними то вся и проблема

[Alex Cones]

Canvas.LineTo(X,Y);

[_Dmitry]

Код не мой, где взял не помню, использую в своих проектах.

procedure DrawArrowHead(Canvas: TCanvas; X,Y: Integer; Angle,LW: Extended);
var
  A1,A2: Extended;
  Arrow: array[0..3] of TPoint;
  OldWidth: Integer;
const
  Beta=0.322;
  LineLen=4.74;
  CentLen=3;
begin
  Angle:=Pi+Angle;
  Arrow[0]:=Point(X,Y);
  A1:=Angle-Beta;
  A2:=Angle+Beta;
  Arrow[1]:=Point(X+Round(LineLen*LW*Cos(A1)),Y-Round(LineLen*LW*Sin(A1)));
  Arrow[2]:=Point(X+Round(CentLen*LW*Cos(Angle)),Y-Round(CentLen*LW*Sin(Angle)));
  Arrow[3]:=Point(X+Round(LineLen*LW*Cos(A2)),Y-Round(LineLen*LW*Sin(A2)));
  OldWidth:=Canvas.Pen.Width;
  Canvas.Pen.Width:=1;
  Canvas.Polygon(Arrow);
  Canvas.Pen.Width:=OldWidth
end;

procedure DrawArrow(Canvas: TCanvas; X1,Y1,X2,Y2: Integer; LW: Extended);
var
  Angle: Extended;
begin
  Angle:=ArcTan2(Y1-Y2,X2-X1);
  Canvas.MoveTo(X1,Y1);
  Canvas.LineTo(X2-Round(2*LW*Cos(Angle)),Y2+Round(2*LW*Sin(Angle)));
  DrawArrowHead(Canvas,X2,Y2,Angle,LW);
end;

Вызываем процедуру так:

Form1.Canvas.Pen.Color:=clBlack;
Form1.Canvas.Pen.Width:=2;
Form1.Canvas.Brush.Color:=clBlack;
DrawArrow(Form1.Canvas,10,200,300,200,4);

[studentOne]

ругается на строчку:

Angle:=ArcTan2(Y1-Y2,X2-X1);

и еще напишите пожалуйста, что означают переменные

Angle,LW: Extended

, если честно, не совсем понятно...

[ОДИНОЧЕСТВО В СЕТИ]

ругается на строчку

модуль math подключите

[_Dmitry]

Angle,LW: Extended

Angle - угол, в радианах, под которым рисуется стрелка;
LW - размер стрелки.

[studentOne]

а можно сделать как нибуть так, чтобы на вход подавались начальные координаты и конечные, потому что у меня известно, где аходятся элементы, которые нужно соединить стрелками...???

[Stilet]

Можно. Чеж нельзя...
Но для этого думаю нужно переводить в полярные координаты, чтоб рисовать ответвления стрелки.