Canvas - rysowanie x prostokatow o bokach (a,b)

Witam,

Mam taki problem.. wiem jak narysowac prostokat (rysuje za pomoca lineto ;>) ale nie wiem jak narysowac x prostokotow (x liczba wpisana w editbox) o bokach a,b (a,b tez z dwoch editboxow). Ma ktos jakis pomysl? Z gory dzieki za pomoc.

Cd. LineTo -> przecież jest Rectangle...

Przyda się: pętla For, StrToInt, trochę umysłu.
Z pamięci:

Procedure Narysuj(X, A, B: Integer);
Var I, pX, pY: Integer;
Begin
// A - szerokość 
// B - długość
// pX - pozycja X
// pY - pozycja Y
 pX := 0;
 pY := 0;
 For I := 1 To X Do
 Begin
  Inc(pX, A);
  if (pX > Image.Width) Then
  Begin
   Inc(pY, B);
   pX := 0;
  End;
  Image.Canvas.Rectangle(pX, pY, pX+A, pY+A);
  // Ew: Image.Picture.Bitmap.Canvas.Rectangle(...);
 End;
End;

Powinno działać :)

Dzieki :) Walcze dalej. hehe