Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Image Bilder zu Laufzeit hinzufügen

**arbu man**

Hi,

Ich möchte einer TImageList Bilder zu Laufzeit hinzufügen. Das klappt auch nur werden die Bilder mit den Pinken Hintergrund dargestellt. Wie kann ich das ändern ?

Hier der Source zum laden:

zusammenfalten · markieren

Delphi-Quellcode:

			function TAI_ImageListEx.add(filename: string): integer;

var

  i: integer;

  bmp: TBitmap;

begin

  bmp:= TBitmap.Create;

  bmp.LoadFromFile(filename);

  i:=ImageList.AddMasked(bmp, clFuchsia); // die Frabe muss transparent dargestellt werden wird sie aber nicht

  olist.Add(TAI_ILEItem.Create(filename,i));

  result:= i;

end;

thx, arbu