Ergebnis der Suchanfrage

• Forum: Multimedia

  x Quadrat hintereinander

    Delphi
    by CalganX, 26. Dez 2002
  Hi,
  ich habe folgendes Problem: Mit folgendem Source versuche ich die in einem Edit eingegebene Anzahl von Quadraten in einer PaintBox zu erstellen:
  
  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);