[Ballistik]

как сделать так чтобы можно было рисовать прямые линии. Это например как в Paint-е или как в Word-е. Если кто знает прошу откликнитесь!!! Заранее Благодарю!!

[mav_c]

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

как сделать так чтобы можно было рисовать прямые линии. Это например как в Paint-е или как в Word-е. Если кто знает прошу откликнитесь!!! Заранее Благодарю!!

Вот припер для формы:
var
x_first, y_first : integer;
...
...
...
procedure TForm1.FormClick(Sender: TObject);
var
p : TPoint;
begin
GetCursorPos(p);
p := ScreenToClient(p);
if (x_first > 0) then
begin
Canvas.Pen.Color := clRed;
Canvas.MoveTo(x_first, y_first);
Canvas.LineTo(p.x, p.y);
x_first := -1;
end else
begin
x_first := p.x;
y_first := p.y;
Canvas.Ellipse(p.X, p.Y, p.X + 1, p.Y + 1);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x_first := -1;
end;

[Decoding]

Пример не идеален, но до ума сам доведешь - line.zip

[Ballistik]

Попробую довести до ума
спасибо

[Ballistik]

А у меня еще вот такая просьба..я вообще делаю программу с помощью которой можно будет самому чертить блок-схемы алгоритмов. вот теперь не знаю как сделать чтобы можно было вписывать текств эти блоки, не подскажете)))

[Decoding]

Подскажем, но до ума опять самому доводить придется - primer.zip

[Ballistik]

Decoding
Спасибо большое, тока я не такой умный чтобы довести до ума)))

P.S. А Вы мне не поможете соеденить мою прогу с Вашими кусочками ??))

[Decoding]

Ничего не обещаю, но посмотреть могу. Высылай проект на decoding@narod.ru