Построение прямых

[Трофимов Александр]

По-моему Вам человек нормально всё объяснил:

1. Там где описаны глобальные переменные
Var
MainForm:TForm;(это находится в самом верху)
Добавляешь строчку
BegX ,BegY :Integer;
2. В своём коде пишешь:
var
x:integer; // аргумент функции
y:integer ; // значение функциивточке x
a:integer;
x0:integer; // аргумент функции
y0:integer;
begin
with MainForm.Canvas do
begin
x0:=StrtoInt(MainForm.Edit1.Text);
y0:=StrtoInt(MainForm.Edit2.Text);
a:=StrtoInt(MainForm.Edit3.Text);
x:=x0*(a);
y:=y0*(a);
Определись, где будешь присваивать BegX значение -1, либо в OnGreate либо при объевлении переменной. Вычерчивание прямой уже будет выглядеть как:
If BegX<0 then
begin
MoveTo(300+x,y-a);
LineTo(x,y);
BegX :=x;
BegY:=y;
End
Else
Begin
MoveTo(BegX ,BegY);
LineTo(x,y);
End;

[Aleksandr]

Рисует но если я рисую третью прямую, четвертую и т.д. то получается с одной точки выходят лучи

[mutabor]

Сколько можно объяснять?
Не надо перед каждым LineTo вызывать MoveTo , тем самым возвращая карандаш на исходную позицию.
Даже учитывая, что координаты для MoveTo будут правильно рассчитываться (что явно не так, раз лучи из одной точки), она там все равно не нужна, ведь прямые рисуются последовательно.

[Aleksandr]

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

Сколько можно объяснять?
Не надо перед каждым LineTo вызывать MoveTo , тем самым возвращая карандаш на исходную позицию.
Даже учитывая, что координаты для MoveTo будут правильно рассчитываться (что явно не так, раз лучи из одной точки), она там все равно не нужна, ведь прямые рисуются последовательно.

А ты попробуй более доходчиво объяснить. А лучше всего кинь примерный код. пробовал убирал MoveTo ничего не дало

[mutabor]

The following code draws a line from the upper left corner of a form to the mouse position when the mouse is moved, creating a “rubber band” effect.
Следующий код рисует линию из верхнего левого угла формы до позиции мыши когда мышь движется, создавая эффект резиновой ленты.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin

{ first call FillRect to paint the surface of the form.
this removes any previously drawn lines (and anything else!) }
{сперва вызовите FillRect чтобы закрасить поверхность формы,
это убирает все нарисованные до этого линии (и все остальное!)}
Canvas.FillRect(ClientRect);
Canvas.MoveTo(0, 0);
Canvas.LineTo(X, Y);
end;

[mutabor]

This example paints a white five pointed star in a paintbox control:
Этот пример рисует белую пятиконечную звезду в PaintBox

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin
with Sender as TPaintBox do
begin
Canvas.Pen.Color := clWhite;
Canvas.Polyline([Point(40, 10), Point(20, 60), Point(70, 30),
Point(10, 30), Point(60, 60), Point(40, 10)]);
end;

end;

[Aleksandr]

Mutabor прости если чем обидел. Я не хотел просто немножко погорячился. Все это не то. Мне не нужно рисовать с помощью мыши. У меня следующая задача: имеется план местности на этом плане отмечаю начальную точку (кликаю мышью по нужному месту на карте т.е. где мы находимся) и эти координаты берутся за начало координат. Затем с помощью Edit'ов ввожу расстояние и угол (азимут) и на карте должен отобразиться маршрут. Например, 100 метров угол 30 градусов и должна рисоваться первая прямая по этим данным. Затем вводятся следующие данные и рисуется вторая прямая и так далее.

[mutabor]

Это примеры из Дельфи хелпа функций LineTo, MoveTo и Poliline. Все они тебе нужны, ну может кроме Poliline если все точки сразу не известны.
И потом рисовать на канве формы не лучший выход, при обновлении (например при сворачивании, выхода за пределы экрана) все нарисованное тобой пропадет. Рисуй на канве Image или PaintBox.

[Aleksandr]

Рисую я в paintBox. В прикрепелнном файле я бросил небольшое пояснение как должно работать. Надеюсь будет понятно. С созданием карты и загрузкой проблем нет. Проблема возникла в рисовании маршрута ( ломаной линии).

[mutabor]

Про PaintBox я неправильно написал, там тот же принцип отрисовки что и на форме, будет пропадать.

//глобальные переменные
var x0,y0: integer; //точка отправления

PaintBox1.OnMouseDown
begin
x0:=x;//эти x и y это координаты мыши
y0:=y;
paintbox1.canvas.moveto(x,y);
end;

OnClick кнопка Записать
var x,y: integer; //точка прибытия
begin
//расчитываем точку прибытия взяв данные из эдитов и x0,y0. Не буду вникать, напиши сам
x:= ***;
y:= ***;
paintbox1.canvas.LineTo(x,y);
x0:=x;
y0:=y;
end;

Вот и все, если пользователь между расчетами не будет тыкать мышкой по карте, сбивая x0,y0 координаты, все будет ОК. Но лучше это учесть.

Могу предложить название программе Ivan Susanin Pro