|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Geschwindigkeit umkehren
11. Nov 2012, 17:06
ich meinte etwas in der Art ....
Delphi-Quellcode:
if ((Kreis[b].y+Kreis[b].Height)>Image3.Height) or (Kreis[b].y <=0 ) then
Kreis[b].speedy := - Kreis[b].speedy;
if ((Kreis[b].x+Kreis[b].Width)>Image3.Width) or (Kreis[b].x <= 0) then
Kreis[b].speedx := - Kreis[b].speedx;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|