Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Rechtecke hintereinander zeichnen (https://www.delphipraxis.net/67459-rechtecke-hintereinander-zeichnen.html)

Johnny14 14. Apr 2006 18:08


Rechtecke hintereinander zeichnen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo ich habe volgenes Problem:
Ich möchte viele rechtecke mit einem kleinen abstand hintereinander zeichnen
ohne die zeile "canvas.RoundRect(50,400,70,420,10,10);"
erneut schreiben zu müssen und die Kordinaten zu ändern.
Wie geht das?? Ihr könnt auch ein bild ruterladen wo zu sehen ist wie ich es meine.
Danke; Gruß John

Klaus01 14. Apr 2006 18:25

Re: Rechtecke hintereinander zeichnen
 
damit man einen Befehl nicht immer wieder schreiben muß
kann man ihn in einer Schleife wiederholen .

Schleifen gibt es
while do
repeat until

und for to do

So ungefähr sollte es mit for to do gehen

Delphi-Quellcode:
for i:=0 to (screen.width div (rectBreite+Abstand)) do
  canvas.RoundRect(50+(i*(rectbreite+abstand)),400,50+(i*(rectbreite+abstand))+rectBreite,420,10,10);
Grüße
Klaus


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz