TImageList.AddMasked

[Andreas Leix]

Hallo !

Bin gerade dabei ein Projekt von Delphi 2009 auf DelphiXE2 zu bringen.
Bin nun auf ein Problem mit TImageList gestoßen.
Ich übertrage einzelne Bitmaps zur Laufzeit von einer Image-list auf eine andere.
Das funktioniert unter Delphi 2009 einwandfrei:

Code:

function Uebertrage ( Source,Target: TImageList; SourceIndex: integer ): integer; 
{ Image3: TImage ist auch noch deklariert und initialisiert}
begin
  Source.GetBitmap(sourceIndex, Image3.Picture.Bitmap );
  Image3.Picture.Bitmap.TransparentMode := tmAuto;
  Image3.Picture.Bitmap.TransparentColor:= clFuchsia;
  // zur kontrolle eingebaut:  Image3.Picture.SaveToFile('D:\temp\bild'+inttoStr(sourceindex)+'.bmp');
  Result:= Target.AddMasked(Image3.Picture.Bitmap,clFuchsia );   
end;

Unter DelphiXE2 schauen die übertragenen Bitmaps in Target-ImageList aus, alsob nur die Maske übertragen worden wäre.

Kennt jemand Probleme mit TImageList.AddMasked unter XE2,
oder hat jemand Hinweise zu Änderungern bei TImageList in XE2 ?

Vielen Dank für jeden Hinweis !