Hintergrundbild erstellen

[Popov]

Moment, stretchdraw?

Weißt du vieviel Rechenleistung draufgeht wenn du das Bild 60 mal pro Sekunde verkleinerst?

[VkPenguin]

Ja, aber je nach Level gibt es unterschiedlich große Gegner... Soll ich lieber für jede Sorte ein eigenes Ressourcenbild machen?

[Popov]

Vor dem Start des Levels kannst du so viel runter stretchen wie du willst, aber im Spiel solltest du mit festen Größen arbeiten. Auch wenn das bedeutet, das du für 10 Größen eines Raumschiffs 10 Bitmaps nutzt.

Das ist nun mal so, die Canvas wurde nicht zum spielen entwickelt.

[VkPenguin]

Hm, okay. Kann ich denn einer Bitmap sagen, sie soll das Bild einmal stretchen, sich dann merken und immer wieder zeichnen? Oder muss ich wirklich alle Bilder vor Programmstart erstellen?

[Popov]

Du kannst es machen wie du willst, aber es kostet nun mal Rechenzeit bei jeder Bewegung erst die Größe zu ändern.
Wobei ein kleiner Tipp, damit du nicht mit zig Bitmaps jonglieren mußt:

Delphi-Quellcode:

var
  _bmp_klein: TBitmap;
  _bmp_normal: TBitmap;
  _bmp_gross: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  _bmp_klein := TBitmap.Create;
  _bmp_normal:= TBitmap.Create;
  _bmp_gross := TBitmap.Create;
  //freigeben nicht vergessen

  _bmp_klein  ...zuweisen...
  _bmp_normal ...zuweisen...
  _bmp_gross  ...zuweisen...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp_zum_arbeiten: TBitmap;
begin
  bmp_zum_arbeiten := _bmp_klein;

  bmp_zum_arbeiten ...mach was...

  bmp_zum_arbeiten := _bmp_normal;

  bmp_zum_arbeiten ...mach was...
end;

Das klappt. Du mußt die Bitmap nicht umkopieren, du kopiert einfach deren Adresse und arbeitest immer mit der gleichen Bitmap. Nur bei Größenänderung kopierst du die Adresse einer anderen Bitmap.

[VkPenguin]

Das ist geschickt, aber es wird ne weile dauern, das alles umzubauen.. Melde mich dann morgen nocheinmal

[VkPenguin]

So, die Anzeigen laufen jetzt über Bitmaps. Es läuft, wenn man alle Transparenzen aktiviert, schon etwas langsam, aber es geht.

Was mir gerade einfiel:

Zitat:

Du mußt auf OnFormPaint reagieren, d. h. die wird ausgeführt wenn dein Formular ganz, aber auch nur in Teilen neu gezeichnet wird.

Kannst du das vielleicht ein bisschen erläutern?


... jetzt müsste ich nurnoch den Teil mit den Rechtecken verstehen, dann wär alles so, wie ich es gerne hätte

Wie lade ich denn einen Bildschirmausschnitt in die Bitmap? ist das der Teil mit "CopyRect..."?