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 !

[Bummi]

ist im Quellbild clFuchsia noch auf [0,Height-1] vorhanden?
Gegf. kommt die Methode für Dich in Frage?

Delphi-Quellcode:

function Uebertrage ( Source,Target: TImageList; SourceIndex: integer ): integer;
var
 ico:TIcon;
begin
  ico :=TIcon.Create;
  try
  Source.GetIcon(sourceIndex, Ico );
  Result:= Target.AddIcon(Ico);
  Showmessage(IntToStr(Result));
  finally
    ico.Free;
  end;
end;

Zugriff auf das Bitmap besteht trotzdem

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
var
 bmp:TBitmap;
begin
    Uebertrage(Imagelist1,Imagelist2,0);
    bmp:=TBitmap.Create;
    try
      Imagelist2.GetBitmap(0,bmp);
      Canvas.Draw(0,0,bmp);
    finally
      bmp.Free;
    end;
    action1.ImageIndex :=0;
end;

[Andreas Leix]

Hi Bummi !

Die Vorhgehensweise mit GetIcon / AddIcon funktioniert !!!!
Vielen vielen Dank für Deine Antwort !!
Grüße Andreas