SpeedButton: Glyph in der Laufzeit ändern mit ImageList

[DataCool]

Hi,

ich wollte die Procedure extra mit Übergabe des TBitmap Objekts,
weil ich das ganze nicht nur mit SpeedButtons verwenden wollte

Habe jetzt auch ne Lösung gefunden die funktioniert :

Delphi-Quellcode:

procedure TfrmMain.GetBitmapFromImageList(TargetBmp: TBitmap; ImgIdx: Integer; SourceImgL: TImageList);
Var tmpBmp : TBitmap;
begin
  tmpBmp := TBitmap.Create;
  try
    SourceImgL.GetBitmap(ImgIdx,tmpBmp);
    TargetBmp.Assign(tmpBmp);
  finally
    FreeAndNil(tmpBmp);
  end;
end;

Gruß