Hallo,
ich bin am Verzweifeln und habe schon einige Stunden im Netz recherchiert, aber keine wirkliche Lösung gefunden, die mein simples Problem löst.
Ich habe eine TImageList, die mit transparenten Bitmaps gefüllt ist. Nun möchte ich ein TImage mit einem Bitmap aus der Imagelist transparent füllen.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
IconData : TBitmap;
TransColor : TColor;
begin
IconData := TBitmap.Create;
ImageList1.GetBitmap(1, IconData); // das zweite Image soll angezeigt werden
// IconData.PixelFormat := pf32Bit;
// IconData.HandleType := bmDIB;
// IconData.alphaformat := afDefined;
IconData.Transparent := true;
IconData.TransparentColor := clFuchsia;
// IconData.TransparentMode := tmAuto;
Image1.Picture.Bitmap := IconData;
end;
Imagelist-Eigentschaften:
BKColor: clFuchsia;
ColorDepth : cd32Bit;
Masked: true;
Und das TImage ist auf Transparent : true gesetzt.
Nichts passiert, egal welche Eigenschaft ich oben aktiviere, die Grafik wird immer mit dem Hintergrund dargestellt, der als BKColor angegeben ist. Außer bei ClNone, da wird der Hintergrund weiß.
Kann mir vielleicht jemand einen Tipp geben?
Besten Dank.