SpeedButton: Glyph in der Laufzeit ändern mit ImageList

[Delphijunkie2006]

Mal eine Frage, gibt es diese ImageList auch für ganze Buttons? Das sind ja nur miniicons.

Ich hätte gerne ein ROllover Effekt und dabei alle Grafiken in einer ImageList, aber nicht in dieser MIniaturform.

[DataCool]

Hi,

die grösse der Bilder/Buttons kannst Du doch in der Imagelist einstellen !!!!!!
Dann nimmst Du eine Imagelist für die std./normalen Bilder und eine ImageList für die Rollover-Effekte.

Gruß Data

[Delphijunkie2006]

Ah, jetzt habe ichs gesehen, width und height. Danke für die Info!

[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