TImage mit Bild aus ImageList füllen

[SirThornberry]

Besser wäre hier wohl eine Ableitung von TImage oder eigene Komponente. Denn es macht keinen Sinn das Bild aus der Imagelist zu kopieren und die ganze Zeit mehrfach im Speicher zu halten. Eigentlich genügt es doch vollkommen das Bild beim Zeichnen direkt aus der Imagelist zu nehmen. (Hier würde vermutlich auch eine Paintbox etc. genügen)

[napstar]

hey..
kann es sein dass man mit

Code:

ImageList1.GetBitmap(0, Image1.Picture.Bitmap);

nur einmal einen bild in eine timage laden kann?...
beim 1. mal funktioniert es.. wenn ich dann später aber diesen code ausführe und das bild mit der nummer 1 anzeigen will

Code:

ImageList1.GetBitmap(1, Image1.Picture.Bitmap);

tut sich nichts....

[Bummi]

wenn bereits ein Bitmap vorhanden ist wird per ImageList1.GetBitmap auf dieses gemalt (kein neues erstellt), dass Image selbst bekommt davon nichts mit. Somit hast Du 2 Optionen,

Delphi-Quellcode:

begin
   //OPT 1. wenn Du eine neues Bitmap willst
   Image1.Picture := nil;

   ImageList1.GetBitmap(1, Image1.Picture.Bitmap);

   //OPT. 2 wenn Du auf das bestehende Bitmap malen willst
   Image1.Invalidate;
end;

[napstar]

thx.. wieder einmal was dazugelernt :)