Hallo!
Ich hab hier ein Problem mit einer Funktion, die ein Bitmap aus einer Imagelist in ein tImage lädt. Die Bitmap wird problemlos aus der Imagelist geladen und auch im tImage dargestellt - aber ich bekomme es nicht hin, dass die Bitmap nachher transparent dargestellt wird.
Die Funktion sieht folgendermaßen aus:
Delphi-Quellcode:
procedure tStatusMaster.GetBitmapFromImagelist(Imagelist: tImagelist; Index: Integer);
Var
TempBitmap: tBitmap;
begin
TempBitmap := tBitmap.Create;
Try
Imagelist.GetBitmap(Index, TempBitmap);
FStatusBitmap.Assign(TempBitmap);
Finally
TempBitmap.Free;
End;
end;
Imagelist ist die QuellImagelist, Index der Index der gewünschten Bitmap innerhalb der Imagelist. Bei FStatusImage handelt es sich um tImage.Picture.Bitmap.
Ich hab schon das Transparent-Property von TempImage, tImage und tImage.Picture.Bitmap gesetzt. Das Ergebnis bleibt immer das selbe: Die Bitmap wird dargestellt, aber der Hintergrund ist schlicht weiss.
Die Imagelist ist eine Systemimagelist:
Delphi-Quellcode:
SystemImageList_32.Handle := SHGetFileInfo('',
0,
shInfo,
Sizeof(shInfo),
SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
Hat jemand ne Idee, woran das liegen könnte?
Schonmal besten dank vorab!
Gruß
Gerald