Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

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

← →
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;

Так по моему эффективней.

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.034 c