Цитата:
|
Сообщение от 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;