Bilder / Objekte in Delphi bewegen

[sirblack]

Hallo, ich habe mich jetzt seit einiger Zeit mit Delphi beschäftigt. Habe jetzt vor ein Spaceshooter Spiel zu programmieren. Bin jetzt aber an nem Problem angekommen wo ich mir nicht mehr zu helfen weiß. Da TTimer zu langsam war, wollte ich TDXTimer verwenden. Aber der funktioniert nicht, da ich ihn nach dem erstellen erst deaktiviern muss und ihn dann aktivieren muss. Dadurch wird beim erstellen eines zweiten Timers der erste deaktiviert.
Wie kann ich das Problem umgehen?

Hier der Quelltext

Delphi-Quellcode:

unit Schuss;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Figur, Forms,Graphics,
  Dialogs, ExtCtrls,DXClass;

type
  TSchuss = class(TImage)
  private
  ZTimer : TDXTimer;
  ZForm: TForm;
  ZSchuss: TIMage;
  procedure bewegen(Sender: TObject; LagCount: Integer); 
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
        constructor erstelle(X,Y :integer; Formular: TForm);
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;



procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TSchuss]);
end;

constructor TSchuss.erstelle(X,Y : integer; Formular: TForm);
begin
 ZForm:=Formular;
 ZSchuss := TImage.create(ZForm);
 ZSchuss.parent := ZForm;
 ZSchuss.picture.loadfromfile('schuss.bmp');
 ZSchuss.setbounds
               (X,Y,5,7);
 ZSchuss.Transparent := false;
 ZSchuss.Stretch := true;

 ZTimer := TDXTimer.create(ZForm);
 ZTimer.Interval := 10;
 ZTimer.ActiveOnly :=true;
 Ztimer.Enabled := false;
 ZTimer.Enabled := true;
 ZTimer.OnTimer := bewegen;


end;

procedure TSchuss.bewegen(Sender: TObject; LagCount: Integer);
begin

 ZSchuss.Top := ZSchuss.Top - 20;
 //if ZSchuss.Top <= 0
 //then Zschuss.Destroy;
end;

end.

[Angel4585]

TTimer zu langsam? hast du auch das Intervall runter gesetzt?

[Khabarakh]

Herzlich Willkommen in der DP :) !

Dein Ansatz hat zwei Fehler:

• Du verwendest für jedes Objekt einen eigenen Timer. Nimm besser einen globalen Timer für alle Objekte, damit hast du gleichzeitig dein Problem mit mehreren Timern gelöst.
• Du verwendest für jedes Objekt ein eigenes Image. Auch das solltest du global mit einem Image, das das ganze Spielfeld beinhaltet, lösen. Images sind einfach nicht zum Bewegen gedacht. OffScreenBitmap

[robinWie]

Hallo,

ich habe schon einige male versucht ein Spielchen mit einen Image zu programmieren.
Das Problem das Image blinkt beim bewegen!

Robin

[Khabarakh]

Schau mal einen Post über deinen :wink:

Zitat:

Images sind einfach nicht zum Bewegen gedacht.

Zitat:

Auch das solltest du global mit einem Image, das das ganze Spielfeld beinhaltet, lösen.

Zitat:

Zitat von Khabarakh

OffScreenBitmap

Damit wirst nie wieder irgendetwas flimmern sehen.
(evt. noch DoubleBuffered = true. Das ist aber kein echter Ersatz für oben Genanntes)

[sirblack]

Ok, wie mach ich das genau mit diesem OffScreenBitmap??? Kenn mich nich so sehr aus...

[DGL-luke]

Off|screen|bit|map, das,
1. konkret: ->Bitmap, das nicht angezeigt wird.
2. als Technik in der Programmierung: auf ein Offscreenbitmap (->1.) wird die komplette darzustellende ->Szene gezeichnet und das Bitmap dann auf ein darstellendes ->Control übertragen. Gegenüber dem direkten ->Zeichnen auf die ->Leinwand eines ->Formulars hat diese technik den Vorteil, das kaum Flimmern auftritt und die komplette Szene gleichzeitig gezeichnet wird.

Hoffe das reicht. :stupid:

In Deutsch: Du zeichnest alles in ein TBitMap und weist dieses dann einem TImage zu.

[Master_RC]

Begründung:
Weil der RAM um einiges schneller als die Festplatte ist ;)

[Khabarakh]

Und ein Beispielcode:
http://luckie-online.de/Developer/De...eenBitmap.html

[sirblack]

So weit ganz ok, hab das zwar jetzt noch nicht mit Offscreenbitmap, habe aber einen Globalen timer der alles bewegt. Die erstellten Objekte werden in einer Liste eingetragen und dann bewegt. Nun ist meine nächste Frage wie kann ich möglichst einfach eine Kollision abfragen? Erstell ich dazu ein Arry das die Koordinaten der einzelnen Bitmaps aufnimmt? Kann ich dann nich überprüfen lassen ob diese Bitmaps übereinander liegen und dann diese jeweils aus den Listen löschen lassen?