TPicture füllen aus TImageList mit Transparenz

[little_budda]

Hallo,

ich verwende eine ImageList als Bildspeicher und mehrere Image-Komponenten als Ziele in denen ich die Bilder austausche.
In der Imagelist sind 4 Grafiken mit einer Kantenlänge von 24px und weißem Hintergrund.
Ich verwende folgenden Code zum Laden der Bildes

Delphi-Quellcode:

  ImageListDriverImages.GetBitmap(1, img_drv_01.Picture.Bitmap);
  img_drv_01.Transparent := true;

Das Laden der Bilder klappt einwandfrei.
Hierzu aber zwei Fragen.

1. Nach dem Laden des Bildes ist der ist der "weiße Teil" des Bildes nicht transparent.
Wenn ich das Bild von Hand einfüge klappt die Transparenz einwandfrei.
In der ImageList habe ich die korrekte Tranzparenzfarbe angegeben.
2. Wenn ich zum zweiten mal bei diesem Bild ankomme funktioniert die Transparenz
da man Teile des alten Bildes noch sehen kann.

Vielleicht hat ja jemend einen Tipp für mich.

Gruß Holger.

[Uwe Raabe]

Tausch doch mal die beiden Anweisungen - sprich, mach das Image vor dem Laden aus der Imagelist transparent.

[little_budda]

Das Tauschen der Anweisungen macht keinen Unterschied.
Ich habe testweise auch mal ein "Repaint" eingebaut - Hilft auch nicht