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ß

[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