SpeedButton: Glyph in der Laufzeit ändern mit ImageList

[DataCool]

Hi,

hatte das gleiche Problem, was ich auch mit folgenden Code wie oben auch schon beschrieben lösen konnte :

Delphi-Quellcode:

  SpeedButton1.Glyph := nil;
  ImageList1.GetBitmap(0,SpeedButton1.Glyph);

Funzt auch wunderbar, jetzt hatte ich mir gedacht schön und gut, da ich das ganze für diverse Buttons mit diversen Imagelists brauche, schreibe ich mir ne Procedure dazu :

Delphi-Quellcode:

procedure TfrmMain.GetBitmapFromImageList(TargetBmp: TBitmap; ImgIdx: Integer; SourceImgL: TImageList);
begin
  TargetBmp := Nil;
  SourceImgL.GetBitmap(ImgIdx,TargetBmp);
end;

// ...
// Aufruf der Procedure
GetBitmapFromImageList(speddButton1.Glyph,0,ImageList1);

Damit tut sich jetzt allerdings wieder gar nichts mehr

Jemand ne Idee ?

Danke und Gruß