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 !