Diese von dir oben gelinkte IconToBitmap-Routine ist eher bloß eine ganz spezielle Sache, ...mittels der man nämlich bei einem Icon-Transfer auf ein Bitmap auch noch dessen Icon-Mask mit in den Alpha-Kanal dieses Bitmaps mit übertragen kann. Imo benötigst Du hier so etwas aber gar nicht extra. Wenn Du einfach nur die eine oder andere Icon am linken Rand einer PopUp-Menuezeile platzieren möchtest, dann reicht diese oben ebenfalls schon mal kurz erwähnte ApiRoutine "DrawIcon" bzw. "DrawIconEx" auch völlig dazu aus:
Delphi-Quellcode:
// 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,Application.Icon.Handle,ABitmap.Width,ABitmap.Height,0,0,DI_NORMAL);
// zum Schluss: Verknüpfen des Bitmaps mit der PopUp-Menuezeile
IconTest1.Bitmap := ABitmap;
klappt perfekt, probier's mal