SpeedButton: Glyph in der Laufzeit ändern mit ImageList

[Codehunter]

Hallo!

Ich krame den alten Thread noch mal fix raus, weil ich hier eine kleine Verbesserung habe. Und zwar um Alphachannel-PNGs im Speedbutton anzuzeigen, habe ich die vorige Procedure ein wenig angepasst:

Zitat von DataCool:

Delphi-Quellcode:

procedure TfrmMain.GetBitmapFromImageList(TargetBmp: TBitmap; ImgIdx: Integer; SourceImgL: TImageList);
begin
  TargetBmp.PixelFormat:= pf32Bit;
  TargetBmp.SetSize(SourceImgL.Width, SourceImgL.Height);
  SourceImgL.Draw(TargetBmp.Canvas, 0, 0, ImgIdx);
end;

Und ein gaaanz klein bissi weniger Speicher brauchts so herum auch noch

Grüße
Cody