Рисование стрелки

unit Cursor;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, StdCtrls, Buttons, ExtCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
tmas2=array of array of Integer;
tmaskoord=array[0..10] of integer;
 
 
var
  Form1: TForm1;
  stringgrid1:tstringgrid;
  m,n:Integer;
  ms,minc:tmas2; //матрицы смежности и инциденций
  x,y:tmaskoord;
 
implementation
 
{$R *.dfm}
 
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:=4;
  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;
 
procedure grafv(n:Integer;x,y:tmaskoord);
//Рисование графа
var
  i:Integer;
begin
 with  Form1.Image1 do
 begin
  canvas.Font.Size:=14;
  canvas.Font.Color:=clwhite;
  for i:=0 to n do
    begin
     canvas.Ellipse(x[i]-20,y[i]-20,x[i]+20,y[i]+20);
     if i<n then
      canvas.TextOut(x[i]-5,y[i]-10,inttostr(i+1))
     else
      canvas.TextOut(x[i]-5,y[i]-10,inttostr(1));
    end;
 end;
end;
 
procedure graf(n:Integer;var x,y:tmaskoord);
//Рисование графа
var
  i,j,k:Integer;
  xr,yr:real;
 
begin
  with Form1.Image1 do
  begin
   Picture:=nil;
   Canvas.Brush.Color:=clBlack;
   for i:=0 to n do
   begin
//делим всю область на многоугольник и в вершинах будут находится вершины графа
     xr:=200+200*cos(2*pi*i/n);
     yr:=200+200*sin(2*pi*i/n);
     x[i]:=trunc(xr)+ 80;
     y[i]:=trunc(yr*0.8)+20;
   end;
//поиск первой вершины и продолжения ребер
     for j:=0 to m-1 do
      begin
       for i:=0 to n-1 do
       begin
        if minc[i,j]=1 then  //первая вершина
        for k:=0 to n-1 do
         if (i<>k) and (minc[k,j]=-1) then
         begin
          DrawArrow(Form1.Image1.Canvas,x[i],y[i],x[k],y[k],4);
          Break;
         end;
       end;
      grafv(n,x,y);
      end;
    end;
 
end;
 
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ft:TextFile;
  i,j:Integer;
begin
  Image1.Picture:=nil;
  //открытие файла со значениями матрицы инцидентности
  OpenDialog1.Filter:='Text files (*.txt)|minc*.txt';
  if OpenDialog1.Execute then
  begin
    //создание запись данных из файла(матрица инцидентности) в компонент stringgrid
    stringgrid1:=tstringgrid.Create(Self);
    stringgrid1.parent:=Self;
    AssignFile(ft,OpenDialog1.FileName);
    Reset(ft);
    readln(ft,n,m);
    SetLength(minc,m);
    with stringgrid1 do
    begin
     colcount:=m+1;
     rowcount:=n+1;
     width:=(m+1)*(DefaultColWidth+2)+5;
     Height:=(n+1)*(DefaultRowHeight+2)+5;
     top:=200;
     left:=50;
     For i:=0 to High(minc) do
     begin
      Cells[0,i+1]:=IntToStr(i+1);
      SetLength(minc[i],m);
      for j:=0 to  High(minc[i]) do
      begin
       read(ft,minc[i,j]);
       Cells[j+1,i+1]:=IntToStr(minc[i,j]);
      end;
     end;
     for j:=0 to  High(minc[0]) do
      Cells[j+1,0]:=IntToStr(j+1);
    end;
    CloseFile(ft);
    //рисование графа
    graf(n,x,y);
 end;
 
end;
end.

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
{$J+}
  i: Integer = 1;
{$J-}
  R = 20;
var
  a: Real;
  dX, dY: Integer;
  Xo, Yo: Integer;
  s: String;
begin
  Xo := Canvas.PenPos.X;
  Yo := Canvas.PenPos.Y;
 
  s := IntToStr(i);
  Canvas.Ellipse(X - R, Y - R, X + R, Y + R);
  Canvas.TextOut(X - Canvas.TextWidth(s) div 2, Y - Canvas.TextHeight(s) div 2, s);
  inc(i);
 
  if i = 2 then
  begin
    Canvas.MoveTo(X, Y);
    Exit;
  end;
 
  if X - Xo = 0 then
    if Y - Yo > 0 then
      a := + pi / 2
    else
      a := - pi / 2
  else
    a := ArcTan((Y - Yo)/(X - Xo)); // uses Math
 
  if X - Xo < 0 then
    a := a + pi;
 
  dX := Round(R * cos(a));
  dY := Round(R * sin(a));
 
  Canvas.MoveTo(Xo + dX, Yo + dY);
  Xo := X - dX;
  Yo := Y - dY;
  Canvas.LineTo(Xo, Yo);
 
  Canvas.Polygon([Point(Xo, Yo),
                  Point(Xo - Round(30 * cos(a + pi/10)), Yo - Round(30 * sin(a + pi/10))),
                  Point(Xo - Round(30 * cos(a - pi/10)), Yo - Round(30 * sin(a - pi/10)))]);
                  
  Canvas.MoveTo(X, Y);
end;