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

Posted by obzor under Delphi, Архив

Как можно нарисовать в Делфи стрелку в канвасе??? Нужно вывести граф и связи обозначить стрелками, с ними то вся и проблема.

_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);

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

тема на форуме

Похожие статьи

• Заливка замкнутого контура, как в Paint
• Рисование эллипса удержанием кнопки на любом месте TImage
• Вращение шестиугольника в Делфи 7
• Закруглить углы image
• Нарисовать флаг Дании и Швейцарии
• Движение обьекта на заданный угол
• Соединить 2 edit линией
• Крестики нолики исходник
• Как нарисовать стрелку в конце эллиптической дуги?
• Как сделать выделение кнопки как в delphi?