da ich dsl hab konnte ich mir das pic mal anschauen, jpg wäre aber wirklich besser gewesen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
iGroesse = 50;
var
i, j, s: integer;
Rect: TRect;
Point: TPoint;
begin
for i := 0 to strToInt(XSize.Text) do
begin
Point.Y := 1;
Point.X := (i * iGroesse) + 1;
Rect.TopLeft :=Point;
Point.y := iGroesse;
Point.x := (i * iGroesse) + 1 + iGroesse;
Rect.BottomRight:=Point;
PaintBox1.Canvas.Rectangle(Rect);
// PaintBox1.Canvas.Rectangle(i * iGroesse + 1, 1, (i + iGroesse) * iGroesse, 1 * iGroesse);
end;
end;
läuft fehlerfrei bei mir so
