TImageList.AddMasked

[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;