PNG datei n imagelist einfügen

[Reinhard]

WIe kann ich ein PNG Bild zur laufzeit in eine imageliste einfügen ?

Ich hab das so versucht :

Code: Alles auswählen

VAR aPNG:TImage;
         posi:byte;
begin
     aPNG:=TImage.Create;
     aPNG.LoadFromFile('/home/admin/Source/icons/folder_yellow.png');
     posi:=ImageList1.Add(apng,nil);
     ShowMessage(InttoStr(posi))
 
End;

Das Funktioniert aber nicht, weil die imagelist beim add Tbitmap haben will.
Ein PNG kann aber mit TBitmap nicht gelesen werden, da kommt dann eine excption mit falscher image typ.

[_X_]

Code: Alles auswählen

posi:=ImageList1.Add(apng.Picture.Bitmap,nil);

Das sollte gehen...

mfg _X_

[Reinhard]

Super Danke funktioniert !
Bin begeistert !

[_X_]

Bei TImage.Picture ... sind alle möglichen Formate, einfach mal schauen.

mfg _X_