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:

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

[marabu]

In meinen Projekten funktioniert das hier:

i := ImageList.AddMasked(bmp, bmp.TransparentColor); Vielleicht ist clFuchsia keine so gute Wahl von dir...

Grüße vom marabu

[arbu man]

Danke jetzt geht es