Bild bleibt nicht stehen

[johnnycat14]

Habe noch ein kleines Problem:
Ich schaffe es einfach net mein Bild an einer bestimmten stelle
anzuhalten. Egal was ich versuchte es ging net.
Ich habe es so im Timer angestellt

procedure TForm2.Timer1Timer(Sender: TObject);
begin
DoubleBuffered := True;
Image1.Picture.LoadFromFile('E:\spiel\bilder\f1.bm p');//Bild für Figur
image1.Left := Image1.Left +4;
if image1.left=+500 then
image1.Left := Image1.Left +0;
end;

Wie geht das??
Bin auch im Chat!!
Gruß John

[mkinzler]

Also ich würde das Laden des Bildes nicht hier im Timer machen, da das Bild immer neu geladen werden muß.

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
    DoubleBuffered := True;
    //Image1.Picture.LoadFromFile('E:\spiel\bilder\f1.bmp');//Bild für Figur
    if image1.left<500 then
        image1.Left := Image1.Left +4;
end;

[johnnycat14]

Oh ja hattest recht mit den Bild laden! Danke für denn Tipp.
Wie kann man eigendlich das Image beschleunigen?
Ohne die pixel hochzuschrauben.

[delphi]
john

[mkinzler]

Die Timerzeit verkleinerrn.

[johnnycat14]

Ist schon auf 1.

[Mackhack]

TPaintBox anstatt TImage vlt.?

[mkinzler]

Auf eins, das heißt ja das die Methode 1000mal pro sekunde aufgerufen wird. Da pro Schritt 4 Pixel verschoben wird, dauert die Animation dann 500/4/1000=0.125 Sek. Und das ist dir zu langsam ?

[fkerber]

Hi!

Der Timer steht auf 1 (Millisekunde) und das geht dir zu langsam?
Bist du dir da sicher?

Ciao Frederic

[johnnycat14]

Naja es soll ein JumpRun Spiel werden wo man rennen kann.

[mkinzler]

Dann rennt deinen Figur in einer Sekunde 2 mal hin und her?