Bitmap aus Imagelist in tImage einfügen -> Transparenz

[gkoeder]

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

[chriscolm]

Hallo,

Du musst vorher die Transparenzfarbe festlegen, das weiß das Bitmap nicht von alleine

Grüße

Chriscolm