Как сделать сетку в Delphi?

[-HunteR-]

Как сделать сетку в Delphi, чтобы можно было мышкой создавать линии, а вершины этой линии притягивались к сетке?

[Котовский]

да не трудно, нарисовать по разному можно, а чтоб привязывалась, просто в обработчике OnMouseUp (ну, когда крысу отпускаиш) координады линии делаеш кратными периоду сетки. например, квадрат сетки 5*5 пикселей

*****
var p1,p2:TPoint //точки линии
****
procedure TForm1.MouseDown(.....);
begin
p1:=point(x,y);
************
end;
********
procedure TForm1.MouseUp(.....);
begin
p1.x:=p1.x div 5;
p1.y:=p1.y div 5;
************
form1.moveto(p1.x,p1.y);
form1.lineto(p2.x*************
*********
end;

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

[-HunteR-]

Котовский
Спасибо, попробую

Не получается.