возможность рисования стрелки в графическом редакторе

[DjVidan]

Как можно добавить в графический редактор возможность рисовать стрелку? Если просто к функции линии пририсовать в конец треугольник то подскажите пожалуйста как это сделать?


/

procedure TfrmMain.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if sbtnPen.Down
    then Image.Cursor := 1
      else Image.Cursor := crCross;
  if ssLeft in Shift
    then  begin
            if sbtnPen.Down
              then Image.Canvas.LineTo(x,y);           
            if sbtnAr.Down
              then  with image.canvas do
                begin
                  MoveTo(startX, startY);  //стирается линия в прежнем положении (это необходимо, т.к. метод LineTo)
                  LineTo(oldX, oldY);
    //рисует линию,начинающуюся в текущей позиции пера и заканчивающуюся {рисование новой линии}
    //в указанной точке, исключая эту конечную точку.
                 MoveTo(startX, startY); //рисуется новая линия;
                 LineTo(X, Y);
                 oldX := X; {запоминание новых координат конца линии}
                 oldY := Y;
                end;
          end;

как сделать чтобы на конце линии треугольник рисовался? или моя мысль совсем не верна?

[DomiNick]

http://www.programmersforum.ru/showthread.php?t=67126

MoveTo(startX, startY); //стирается линия в прежнем положении

Да не стирается ничё, а "перо" (можно читать начало линии) переставляется в нужную точку...