[nano_bot]

Здравствуйте! Рисую стрелку этим кодом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure arrow(nachalo,konec:tpoint); var    B, deltaX, deltaY: Extended; begin    Image1.Canvas.PenPos := nachalo;// nachalo - координаты начала стрелки    Image1.Canvas.LineTo(konec.x, konec.y);    if nachalo.x <> konec.x then //  проверка деление на ноль    begin      if (nachalo.X > konec.X) then        B := DegToRad(135) - ArcTan((nachalo.Y - konec.Y) / (nachalo.X - konec.X))      else        B := DegToRad(45) - ArcTan((nachalo.Y - konec.Y) / (nachalo.X - konec.X)); // наконечник стрелки под углом 45      deltaX := 10 * Cos(B); // длина стрелки      deltaY := 10 * Sin(B);        if (nachalo.X > konec.X) then      begin        Image1.Canvas.PenPos := Point(konec.X, konec.Y);        Image1.Canvas.LineTo(konec.X - Trunc(deltaX), konec.Y + Trunc(deltaY));        Image1.Canvas.PenPos := Point(konec.X, konec.Y);        Image1.Canvas.LineTo(konec.X + Trunc(deltaY), konec.Y + Trunc(deltaX));      end      else      begin        Image1.Canvas.moveto(konec.X, konec.Y);        Image1.Canvas.LineTo(konec.X - Trunc(deltaX), konec.Y + Trunc(deltaY));        Image1.Canvas.PenPos := Point(konec.X, konec.Y);        Image1.Canvas.LineTo(konec.X - Trunc(deltaY), konec.Y - Trunc(deltaX));      end;    end;

все отлично рисуется, но мне требуется чтобы наконечник стрелки был не в коцне линии, а на 20 пикселей раньше. Подправлял и там и сям, не помогло. Подскажите, как это сделать? Что подправить в коде?

[Alegun]

Вторая строчка в вашем коде

Код:

1 2 3

...  Image1.Canvas.LineTo(konec.x + 20, konec.y + 20); ...

З.Ы. Ну и конечно, дописать в начало

Код:

1 2	dec(konec.x, 20); dec(konec.y, 20);

З.Ы.З.Ы. Да, что-то это не работает правильно...

З.Ы.З.Ы.P.S. Нашлось по теме только такое

[nano_bot]

спасибо! Помогло!

[Alegun]

Да нет, проблема осталась, такое действует лишь на прямых углах, потому как положение наконечника стрелки расчитывается от центра окружности чем является поинт konec и из-за этого на других углах происходит рассогласование в расположении наконечника. Вроде надо дорисовывать продолжение прямой линии стрелки с расчётом sin/cos относительно её начала, но у меня не получилось, погрешность вычислений плюс Pi / 2 заметно смещает добавляемый отрезок от нового центра окружности. Так и не вкурил, с математикой совсем видно напряги

[nano_bot]

не не, я про помогло имел ввиду вот это:

Сообщение от Alegun

З.Ы.З.Ы.P.S. Нашлось по теме только такое

отличный модуль, там и смещение есть как мне надо да и остальные функции пригодились!