Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
19. Mär 2006
So ich habs jetzt gelöst:
procedure TForm1.trash;
begin
if gettickcount>=start+1000 then start:=gettickcount;
if (start+50)<=gettickcount then image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
if (start+100)<=gettickcount then image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
if (start+150)<=gettickcount then image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
if...
Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
18. Mär 2006
Ich programmier ein Jump'n'run game
---jaja, paintbox wäre besser, aber das is mir zu kompliziert---
Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
18. Mär 2006
Kannst du mir das mit der ImageList erklären?
Den Code hab ich ausprobiert und es ruckelt, das hats bei den 4 timern für jedes bild nich getan.
Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
18. Mär 2006
Vielleicht sollte ich noch dazo sagen, dass ich nebenbei noch einen timer habe, der auch einige delays beinhaltet. Können diese in verbindung mit dem gettickcount zu übermäßigen ruckeln führen?
Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
18. Mär 2006
Und ob. Ich habs vorher mit 4 timern ausprobiert, da hats nichts geruckelt. Aber jetzt mit dem "Application.ProcessMessages" kann man das Ruckeln nich mehr übersehn.
Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
18. Mär 2006
Was ist "Application.ProcessMessages"? Ich will versuchen, möglichst ohne dass das Programm aussetzt, dass die Bilder nach einer bestimmten zeit angezeigt werden.
Forum: Object-Pascal / Delphi-Language
Delphi
by ontorius,
18. Mär 2006
Ich habe folgendes geschrieben:
procedure TForm1.trash;
var start:longint;
i:integer;
begin
repeat
start:=gettickcount;
if start+50=gettickcount then image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
if start+100=gettickcount then image4.Picture.loadfromfile('.\pics\trash_open2.bmp');