Einzelnen Beitrag anzeigen

amigage

Registriert seit: 11. Nov 2005
Ort: Leipzig
270 Beiträge
 
Delphi 11 Alexandria
 
#1

Bitmap transparent aus TImageList holen

  Alt 27. Feb 2019, 16:53
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.
  Mit Zitat antworten Zitat