Hi,
ich habe folgendes Problem: Mit folgendem Source versuche ich die in einem Edit eingegebene Anzahl von Quadraten in einer PaintBox zu erstellen:
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