x Quadrat hintereinander

[Daniel B]

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;

Von phlux!

Grüsse, Daniel