Начертить сетку

[Михаил Юрьевич]

Подскажите как начертить на канве сетку с заданными размерами,
например задаю размер квадрата 400 на 600 ,и его раздлиновать на квадраты размером 30 на 30 , может кто нибудь пример где видел?

[Stilet]

задаю размер квадрата 400 на 600

Это с каких пор квадратом стало называться?

может кто нибудь пример где видел?

procedure TForm1.FormPaint(Sender: TObject);
const len=400; wid=600; l=30;
var x,y:integer;
begin x:=0;y:=0;
while (x<len)and(y<wid) do
 with Canvas do begin
  MoveTo(x,0);LineTo(x,wid);inc(x,l);
  MoveTo(0,y);LineTo(len,y);inc(y,l);
 end;
end;

Событие OnPaint

[Михаил Юрьевич]

Спасибо большое,то что надо, вот только края подскажите как подредактировать,
ну примерно что бы вот так как на рисунке

[Stilet]

Canvas.Pen.Width:=3;
Canvas.Brush.Style:=bsClear;
Canvas.Rectangle(0,0,len,wid);

[Михаил Юрьевич]

а как менять размер клеток как на рисунке

[Михаил Юрьевич]

Спасибо большое за примеры,но давайте я все таки скажу что надо мне.
Замысел примерно такой, нужно расчетать плитку на облицовку стены
указываю размер стены: ширина-300 , высота 260
размер плитки: ширина - 20 ,высота- 30

нашел не плохой пример в сети здесь
и вроде все работает но вот нужно что бы размер плитки можно указывать как 22,5 (то есть нужна дробная переменная)
а MoveTo и LineTo имеют тип Integer
Подскажите что можно сделать?

[Sparkman]

Сообщение от Михаил Юрьевич

...но вот нужно что бы размер плитки можно указывать как 22,5 (то есть нужна дробная переменная)... Подскажите что можно сделать?

рисовать как 225.

[grafgrial]

Ну да вычисляй как сотни и дели потом результат

[Михаил Юрьевич]

Извените за тупизм ,но как это будет выглядеть, ширина - 300 ,высота -260
а вот далее не совсем понятно, если вместо 22,5 написать 225 и на что ,что делить?

[A-IX-2]

300, 260 я так понимаю сантиметры? Переведите в миллиметры и рисуйте