Thema: Image bewegen

Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#9

Re: Image bewegen

  Alt 24. Feb 2009, 02:49
Zitat von Neutral General:
100 dürfte zu lang sein
400*100 = 40000 = 40 Sekunden für 400 Pixel
ist schon richtig, aber war ja nur ein Beispiel
Der Hauptgedanke meines Wertes war, dass er seine Bewegung auch sieht, wie lange das dauert, muss er halt variieren
ich würde auch kein Image auf dem Form hin und her schieben, aber das ist ne andere Sache.
Für Bewegungen gibts offscreen-Bitmaps, die auf ein Canvas geblittet werden oder bei umfangreicheren Geschichten Hardware-gestützte Rendering-Methoden (DirectX, OpenGL).
alternativ lässt sich das ganze auch mit einem TTimer machen, dann kann man sich das ProcessMessages auch sparen.

mal fix ausm Hut zusammengetippelt

Delphi-Quellcode:
procedure TMyForm.Timer1Timer(...);
begin
  if image.left>=400 then
    timer1.enabled:=false
  else
  begin
    image1.Left:=image1.left+1;
  end;
end;
Gruß Frank
  Mit Zitat antworten Zitat