Dynamische Variablen bei TImage ?

[Aphton]

Warum 300 Images? Sehen alle Gegner verschieden aus? Falls nicht, dann zeichne überall dort, wo sich ein "Gegner" befindet das Gegnerbild hin (1x)

Du brauchst da keine 300 Images!

Wissen musst du natürlich die Positionen, dafür bietet sich evt. ein Array of TPoint an!

[Premaider]

Zitat von Aphton:

Warum 300 Images? Sehen alle Gegner verschieden aus? Falls nicht, dann zeichne überall dort, wo sich ein "Gegner" befindet das Gegnerbild hin (1x)

Du brauchst da keine 300 Images!

Wissen musst du natürlich die Positionen, dafür bietet sich evt. ein Array of TPoint an!

150 wären horizontal ausgerichtet und bewegen sich auch so und 150 vertikal.
Ich verstehe nur nicht wieso ich keine 300 Images brauche, sind ja insgesammt 300 Bilder (Gegner) die sich bewegen ??
x: Array [1..301] of TPoint; Kann ich denn dann auch so anwenden wie ich wollte ?

[Popov]

300 Bitmaps die im Spiel sind, können je nachdem wie groß die sind den FPS in den Keller zwingen.

Was Aphton wohl meint ist, dass wenn du ein Bild hast, z. B. eine Bazille die waagerecht schwimmt, und du willst 10 Bazillen anzeigen die waagerecht schwimmen, dann brauchst du keine 10 Bitmaps, sondern ein Bitmap das 10 mal nutzt.

[Aphton]

Also es gibt zwei Arten von Gegnern:
a. horizontal
b. vertikal
ausgerichtete Gegner.

Ich nehme an, dass es zu beiden Gegnertypen exakt jeweils ein Bild gibt, also in Summe 2 Bilder. Dann bräuchtest du klarerweise auch 2 Bilder (nicht mehr nicht weniger).

Weiters muss jeder der 300 Gegner ne Ausrichtungseigenschaft besitzen damit später beim Zeichnen auch das richtige Bild verwendet wird.

Delphi-Quellcode:

type 
TAusrichtung = (aVertikal, aHorizontal);
TGegner = record
  Position: TPoint;
  Ausrichtung: TAusrichtung;
end;

var
imgGegner: Array[TAusrichtung] of TImage;
Gegner: Array[0..300-1] of TGegner;

// Initialisierung der Bilder (Create übersprungen)
imgGegner[aVertiikal].LoadFromFile('vertikal.bmp');
imgGegner[aHorizontal].LoadFromFile('horizontal.bmp');

// Gegnerinitialisierung
Gegner[0].Position := Point(100, 20);
Gegner[0].Ausrichtung := aVertikal;

// Zeichnen eines Gegners:
with Gegner[0] do
  Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung]);

[Premaider]

Sieht jetzt so aus:

Delphi-Quellcode:

if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
  begin
    Score:=Score+1;
    Ziel.Top:=10+Random(Form1.ClientHeight-10);
    Ziel.left:=10+Random(Form1.ClientWidth-10);
    imgGegner[aVertikal].create(nil);
    imgGegner[aHorizontal].Create(nil);
    imgGegner[aVertikal].picture.LoadFromFile('Gegner.jpg');
    imgGegner[aHorizontal].picture.LoadFromFile('Gegner.jpg');
    Gegner[0].Position := Point(100, 20);
    Gegner[0].Ausrichtung := aVertikal;
    with Gegner[0] do
    Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung].picture.graphic);
  end;

Bekomme bei .create allerdings einen Fehler. Was habe ich dort falschgemacht ?

Ach und mann musste dann doch bei Form1.OnDestroy irgendwas wieder freigeben um keine Speicherfehler zu bekommen. Was war das nochmal ?

[Popov]

Wieso nimmst du TImage, wieso nicht TBitmap? TImage ist eine Komponente die u.U. TBitmap enthalten kann.

Wenn du aber dennoch TImage nutzen willst, dann guck dir mal TImage.Picture.Bitmap oder TImage.Picture. > TGaphic.

[Aphton]

Genau:

Delphi-Quellcode:

with Gegner[0] do
  Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung].Picture);

oder~

Delphi-Quellcode:

with Gegner[0] do
  Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung].Picture.Bitmap);

(Kenn die Image Komponente nicht auswendig, musst halt kucken; besser ists natürlich, wenn du TBitmap benützt)

[Premaider]

Zitat von Popov:

Wieso nimmst du TImage, wieso nicht TBitmap? TImage ist eine Komponente die u.U. TBitmap enthalten kann.

Wenn du aber dennoch TImage nutzen willst, dann guck dir mal TImage.Picture.Bitmap oder TImage.Picture. > TGaphic.

Haben damit in der Schule gearbeitet, habe mich daran gewöhnt

Zitat von Aphton:

Genau:

Delphi-Quellcode:

with Gegner[0] do
  Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung].Picture);

oder~

Delphi-Quellcode:

with Gegner[0] do
  Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung].Picture.Bitmap);

(Kenn die Image Komponente nicht auswendig, musst halt kucken; besser ists natürlich, wenn du TBitmap benützt)

Mir ist egal was ich benutzte, hauptsache es funktioniert, habe halt noch nie mit TBitMap gearbeitet.
Ich habe immernoch das Problem bei .create

[Popov]

Delphi ist weniger dazu gedacht Spiele zu programmieren. TImage ist eine Komponente um zB eine Bitmap anzuzeigen. Theoretisch kann man mehre TImages nehmen und sie hin und her bewegen, aber dazu sind sie eigentlich nicht gedacht. Zugegeben, TImage macht einiges einfach, weil man sie direkt platzieren kann, aber das Bild wird sehr flackern.

[Popov]

Zitat von Premaider:

Ich habe immernoch das Problem bei .create

Ich beschreibe es etwas vereinfacht, also nicht ganz richtig, aber hoffentlich verständlich: TBitmap ist eine Klasse, eine Art Blaupause, damit wird nicht direkt gearbeitet. Wenn du damit arbeiten willst, dann erstellst du ein TBitmap Objekt (eine Art Kopie zum arbeiten). Das machst du mit Create.

Delphi-Quellcode:

var
  MyBitmap: TBitmap;
begin
  //zuerst das Objekt erstellen
  MyBitmap := TBitmap.Create;
  //jetzt kann man damit arbeiten, z. B. eine Ellipse uf das Formular zeichnen
    MyBitmap.Width := 100;
    MyBitmap.Height := 50;
    MyBitmap.Canvas.Ellipse(MyBitmap.Canvas.ClipRect);
    Form1.Canvas.Draw(200, 200, MyBitmap);
  //Zuletzt wieder freigeben, damit der Speicher freigegeben wird
  MyBitmap.Free;
end;

Man sollte es, es ist aber für die Funktionsweise der Objekten kein Muss, sie in ein try finally Block packen:

Delphi-Quellcode:

var
  MyBitmap: TBitmap;
begin
  MyBitmap := TBitmap.Create;
  try
    //hier mit der Bitmap arbeiten
  finally
    MyBitmap.Free;
  end;
end;

Der finally Bereich wird auch dann ausgeführt wenn ein Fehler vorkommt. So ist auf jeden Fall gesichert, dass der Speicher, den das Objekt verbraucht, freigegeben wird. Arbeitet man ohne try finally bleibt der Speicher reserviert und nach paar tausend Fehlern ist der ganze Rechnerspeicher verbraucht.

Wenn du mit der gleichen Bitmap im ganzen Programm arbeiten willst, dann erstelle die Bitmap in OnCreate des Formulars (z. B. TForm1.FormCreate)und gib ihn unter OnDestroy (TForm1.FormDestroy) mit Free frei.