x Quadrat hintereinander

**CalganX**

Hi,
ich habe folgendes Problem: Mit folgendem Source versuche ich die in einem Edit eingegebene Anzahl von Quadraten in einer PaintBox zu erstellen:

markieren

Delphi-Quellcode:

			const

  iGroesse = 50;

var

  i, j, s: integer;

begin

  for i := 0 to strToInt(XSize.Text) do begin

    PaintBox1.Canvas.Rectangle(i * iGroesse + 1, 1, (i + iGroesse) * iGroesse, 1 * iGroesse);

  end;

end;

(Ist mir klar, dass dies nur die 1. Zeile da stellt, ist aber Absicht).

Das Problem, was da entsteht das der Rest der Linie (siehe Screenshot im Anhang)!

Wie bekommt man das weg?

Chris

x Quadrat hintereinander

x Quadrat hintereinander

Forumregeln