Transparent ImageList DLL

Jak uzyskać efekt przezroczystości dla obrazków dodawanych do ImageList?

var
Bitmap : TBitmap;
HND : THandle;
begin
Bitmap := TBitmap.Create;
HND := LoadLibrary('graphics.dll');
if HND <> 0 then
 begin
  Bitmap.LoadFromResourceName(HND,'ID_BITMAP_01');
  Bitmap.TransparentColor := clFuchsia;
  Bitmap.Transparent := true;
  ImageList1.Add(Bitmap,nil);
  FreeLibrary(HND);
 end;
Bitmap.Free;

Ustaw jeszcze:
Bitmap.TransparentMode := tmAuto;
powinno pomóc

nadal pokazuje z tłem [glowa]

jak widzisz imagelist.add ma DWA parametry. ten drugi jest maską przezroczystości.

Jeśli chodzi o maskę. Zbytnio nie wiem o co ci chodzi.

Bitmap.Mask(clFuchsia);
 ImageList1.Add(bitmap,bitmap);

Zrobiłem tak, ale teraz wszystko jest szare (i to by się chyba zgadzało, bo Mask powoduje taki właśnie efekt).

Według mnie powinno być

Bitmap.TransparentColor := clFuchsia;
ImageList1.Add(bitmap,nil);

ale ten sposób nie działa !!

dobra, już wiem, trzeba zadeklarować oddzielną bitmapę dla maski. Wielkie dzięki za pomoc [cya].

albo
ImgList.AddMasked(BitMap , BitMap.TransParentColor);

pozdr.