Forum: Multimedia
Delphi
by furby,
22. Nov 2005
soooo habs jetzt so gemacht... hab das noch ein wenig eingegrenzt, damit der ball nicht höher springt, nur wird er dann nich so wirklich realistscih langsamer :) weiß jemand ne antwort?
procedure TFormBall.TimerBewegungTimer(Sender: TObject);
begin
with DemoBall do
begin
if (Orty + Radius < FormBall.ImageSpielfeld.Height) and (Orty + Radius > FormBall.ImageSpielfeld.Height div 2)
...
Forum: Multimedia
Delphi
by furby,
22. Nov 2005
so habs ichs jetzt erstma gemacht, nach deinem code
procedure TFormBall.TimerBewegungTimer(Sender: TObject);
begin
with DemoBall do
begin
if Orty + Radius < FormBall.ImageSpielfeld.Height
then begin
FormBall.ImageSpielfeld.Canvas.pen.Color:=clwhite;
farbe := clwhite;
Forum: Multimedia
Delphi
by furby,
22. Nov 2005
stimmt nur jetzt müsste ich praktisch einen grenzwert einbauen... am besten die startposition. des balls von wo er fallengelassen wurde. weißt du, wie man das lösen kann, dass er dann immer weniger abprallt und irgendwann liegen bleibt.
Forum: Multimedia
Delphi
by furby,
22. Nov 2005
so geht das aber nicht, da der ball auch wenn er die zweite bedingung also ypos+radius > height erfüllt, dann zwar wieder steigt. sich dann aber praktische beim steigen die erste auch wieder efüllt und dadurch langsamer steigt und flimmmert
Forum: Multimedia
Delphi
by furby,
22. Nov 2005
hiho ich habe einen ball erstellt der in einem image fallengelassen werden soll und dann ander unteren kante abprallen soll... dannach soll er wenn er die ausgangshöhe ( mitte des image) wieder herunterfallen) das ganze wird durch einen timer gemacht (interval 3). mein problem ist, dass ich nicht weiß, wie ich das machen soll, da es mit if abfrage nicht so ohne weiteres geht. vielleicht weiß ja...