Привязка к сетке

← →
Morfey © (2004-10-24 13:40) [0]

Как осуществить привязку к сетке, например в Timage где через 10 пикселей рисуется точка.

← →
Kolan © (2004-10-24 14:14) [1]

Спасибо за пост сам думал как сделать.
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j:integer; begin i:=0; j:=0; while (i<=300) do begin i:=i+10; j:=0; while (j<=300) do begin PaintBox1.Canvas.Pixels[i,j]:=clRed; j:=j+10; end; end; end;
тока i:=i+10; переставить надо

← →
Морф (2004-10-25 08:33) [2]

Не, как рисовать точку я сам знаю ) непонятно как сделать что бы мышка стремилась к этим точкам, т.е. округлялись значения X Y ышки, так что бы было удобно работать

← →
Rem © (2004-10-25 09:32) [3]

Приводить значения X и Y положения указателя к нужным значениям:
X := Round(X / 10) * 10; Y := Round(Y / 10) * 10;

← →
ALEIIIKA (2004-10-25 10:20) [4]

X := (X div 10) * 10; Y := (Y div 10) * 10;
Так по моему эффективней.

Привязка к сетке Найти похожие ветки