TimageList und transparenter Hintergrund

[tofse]

Hallo,
ich fülle eine TImageList mit Bitmaps aus einem Verzeichnis.

Code:

    DummyBmp.Transparent:=true;
    DummyBmp.TransparentColor:=$00D8E9EC;
    DummyBmp.TransparentMode:=tmFixed;
    DummyBmp.LoadFromFile('logout.bmp');
    ImageListMenu.Add(DummyBmp,nil);

Die transparente Farbe wird aber leider nicht richtig umgesetzt. "nicht richtig" deshalb, weil schon irgendwas passiert, denn an Stelle von Transparenz wird die Farbe nun weiß dargestellt.
Wenn ich die Bilder im Editor in die ImageList lade, und die Farbe setze, dann funktioniert es, aber es muss doch auch dynamisch klappen, oder?
Wo ist der Fehler?

Grüße
Christof

[Bernhard Geyer]

Wieso nimmst du nicht PNG's. Müsste doch mittlerweile in XE schon fast überall unterstützt werden und die Semitransparenz ist auch um welten besser und störunanfällliger (BMP haben von sich aus keine Transparenz).

[tofse]

Zitat von Bernhard Geyer:

Wieso nimmst du nicht PNG's.

Deshalb, siehe Anhang, hatte ich zu Beginn auch versucht. Die Transparenz wird in der ImageList schwarz dargestellt und dann auch im Menü, das die ImageList verwendet.
Und wie gesagt, bei Bitmaps klappt es doch auch , wenn ich es manuell in der Entwicklungsumgebung mache.

[Bummi]

Delphi-Quellcode:

var
  Bmp: TBitmap;
  p  : TPNGImage;
begin
  Bmp:=TBitmap.Create;
  p:=TPNGImage.Create;
  try
    p.LoadFromFile('C:\Icons\IconCollection\ix_ap_all\48x48\shadow\about.png');
    Bmp.Assign(p);
    ImageList1.Add(Bmp,nil);
  finally
    Bmp.Free;
    p.Free;
  end;
end;

[tofse]

Danke