Icon Extract zu PNG

[schwa226]

Danke, aber dann sieht das Icon so aus:

http://www.bilder-space.de/thumb/07....N410fJHEWC.JPG

Mit der funktion:

Delphi-Quellcode:

function GetIconBitmap(MyIcon : TIcon): TBitmap;
var ABitmap: TBitmap;
begin
  ABitmap := TBitmap.Create;
  ABitmap.width := 32;
  ABitmap.height := 32;
  ABitmap.PixelFormat := pf24bit; // um auch ggf. alle Farben richtig zu sehen

  // jeweiliger Ausgangspunkt: Ein Bitmap das du mit der clBtnFace-Color füllst
  ABitmap.Canvas.Brush.Color := clBtnFace;
  ABitmap.Canvas.FillRect(ABitmap.Canvas.ClipRect);
  // anschließend: Draufmalen der Icon
  DrawIconEx(ABitmap.Canvas.Handle,0,0,MyIcon.Handle,ABitmap.Width,ABitmap.Height,0,0,DI_NORMAL);
  // zum Schluss: Verknüpfen des Bitmaps mit der PopUp-Menuezeile
  Result := ABitmap;
end;

sieht es ganz gut aus:
http://www.bilder-space.de/thumb/07....29UHm7uhzZ.JPG