Bilder beim Programmstart vorladen

[avadex]

Hi,
bin gerade dabei ein kleines Pacmanspiel zu programmieren. Es handelt sich dabei um ein Image das über den Bildschirm bewegt wird. (eher gesagt mehrere Images, wegen der Bewegung...)
jetzt lasse ich die bilder immer bei der tastenabfrage in mein TImage laden!
wie kann ich es machen, dass ich beim Programmstart schon alle benötigten Bitmaps in variablen speichern kann, so dass das programm nicht jedesmal auf die festplatte zugreifen muss?

Delphi-Quellcode:

var
bild1: TImage;
...
bild1.picture.loadfromfile('mein_bild.bmp');
...
Image1 := ???

weiß nicht ganz wie ich das anstellen kann!

[H4ndy]

Weiss nicht, ob das jetzt sauber ist oder nicht, aber du könntest
jedes bitmap in ein TBitmap laden beim Programmstart und dann
der Picture-Eigenschaft das entsprechende TBitmap zuweisen.

Schau am besten mal per F1 nach TBitmap 8)

[Gandalfus]

Zitat:

Zitat von H4ndy

Weiss nicht, ob das jetzt sauber ist oder nicht

Nein ist nicht sauber.

Spiele programmiert man nicht mit Timage. Und immer reinladen.... Schrecklich!

Das könnte weiter helfen:
http://www.savagesoftware.com.au/Del...leid=13&page=1

konkret zu dem Problem:

Delphi-Quellcode:

var
  Bilder: Array[0..4] of TBitmap; 

For i := 0 to 4 do
begin
  Bilder[i] := TBitmap.Create;
end;

Bilder[0].LoadFromFile('blabl');
Bilder[1].LoadFromFile('blabl');
Bilder[2].LoadFromFile('blabl');
Bilder[3].LoadFromFile('blabl');
Bilder[4].LoadFromFile('blabl');

mit asign, canvas.draw oder BitBlt bekommst du die Bilder in das TImage aber wie gesagt schön ist das nicht.

mfg

[avadex]

danke, das bringt mich schonmal ein kleines stück weiter! aber wie kann ich meinem image jetzt das bitmap zuweisen? also ich habe da jetzt sowas stehen

Delphi-Quellcode:

  bild: TBitmap;
...
  Bild := TBitmap.Create;
  Bild.LoadFromFile('meinbild.bmp');

und jetzt habe ich noch eine Image Komponente auf dem Formular, die jetzt aus diesem Bild geladen werden soll! Wie weise ich dem IMage jetzt mein Bitmap zu?

[mirage228]

spontan ausm kopp:

TImage.Picture.Bitmap.Assign

mfG
mirage228

[avadex]

Zitat:

Zitat von mirage228

spontan ausm kopp:

TImage.Picture.Bitmap.Assign

mfG
mirage228

danke dir, mit

Delphi-Quellcode:

Image1.Picture.Bitmap.Assign(Bild);

gehts! :)