| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Morfey ©   (2004-10-24 13:40:00) 

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

---

ALEIIIKA   (2004-10-25 10:20:00) [1]


X := (X div 10) * 10;
Y := (Y div 10) * 10;

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

---

Rem   (2004-10-25 09:32:00) [2]

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

---

Морф   (2004-10-25 08:33:00) [3]

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

---

Kolan   (2004-10-24 14:14:00) [4]

Спасибо за пост сам думал как сделать.
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; переставить надо

---

Наверх