GetTickCount

[3_of_8]

Pack ne TImageList auf die Form. Doppelklick drauf, Bilder hinzufügen.

Und dann nur noch mit der DrawMethode auf das Bild zeichnen, Codebeispiel dürfte in der OH stehen.

[Daniel G]

Mal ne doofe Frage:

Wozu brauchst du das?

[3_of_8]

Ich glaube, er will zu einem Löschvorgang eine Art Animation eines Mülleimers abspielen.

[ontorius]

Zitat:

Wozu brauchst du das?

Ich programmier ein Jump'n'run game
---jaja, paintbox wäre besser, aber das is mir zu kompliziert---

[3_of_8]

Das meinst du nicht ernst, oder?

Mit mehreren Imageboxen und dann auch noch in einzelnen Prozeduren und die Bilder aus Dateien laden?

Dass das ruckelt, glaube ich gerne.

[Master_RC]

Zitat von ontorius:

Zitat:

Wozu brauchst du das?

Ich programmier ein Jump'n'run game
---jaja, paintbox wäre besser, aber das is mir zu kompliziert---

Lol, für sowas reicht selbst eine Paintbox nicht mehr

Ich selbst bin auch so eilig gewesen und wollte ein Spiel proggen, aber aus Erfahrung sag ich dir:
DAT WIRD NICHTS

Fang erst mit was Kleinerem an und erst, wenn du dir wirklich sicher bist, dass du dich gut auskennst (wie z. B. mit DelphiX oder dergleichen), dann mach das hier nochmal

[Alexander Roth]

Zitat:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  repeat
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

Also, wozu die until i=10 ?
Dann macht er die selbe animation ja nicht 10 mal da die Zeit um ist.
Einfach so:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
begin
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
end;

Für ein spiel ist Paintox nicht ganz so schlecht wie Image aber immer noch grotten schelcht.

nee..
da musst du direkt aufs Canvas Malen mit bitblt
BitBlt(form1.Canvas.Handle,x,y, bild.Width, bild.Height, bild.canvas.Handle,0 ,0,srccopy); Das ist, so weit ich weis, die schnelltste Möglichkeit fürs 2d malen.

Dann musst du natürlicxh noch bei jedem ONPaint der Form neu Zeichen, damit nix flackert.

[3_of_8]

Falsch. Am schnellsten gehts mit DirectX oder OpenGL. Allerdings schätze ich mich selbst jetzt mal etwas fortgeschrittener als den Ersteller dieses Threads ein, und OpenGL ist für mich noch "zu hoch".

[ontorius]

So ich habs jetzt gelöst:

Delphi-Quellcode:

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 (start+1000)<=gettickcount then image4.Picture.loadfromfile('.\pics\trash.bmp');
end;

start wird dann in der Startprozedur deklariert. Also, es doch. Vielen Danke für eure Beiträge.

[Airblader]

Trotzdem, nochmal:

• Dein Spiel wird auf jedem Rechner anders schnell laufen
• Die Performance ist die schlechteste, die du nur erzielen kannst
• Es gibt absolut 0 Dynamik in dieser Methode (Stichwort OOP)
• Du wirst ziemlich schnell tausende Zeilen Code haben, die sich mit wenigen lösen ließen
• Ein paar dieser Sachen und du kommst selbst auf modernen Rechnern schnell wieder ins Stocken
• Wenn du Delphi noch nicht so gut beherrschst, lern dir lieber kleinere Sachen an - ein Spiel ist einfach zu aufwendig und ich prophezeihe dir mit 100%iger Wahrscheinlichkeit, dass du ohne Kenntnisse und mit dieser Methode sicher kein halbwegs auch nur annähernd mittelwertiges Spiel hinbekommst

=> Lass es sein und lerne Delphi erstmal grundlegend

MfG, air