Wie verwende ich Overlay Icons ?

[ibp]

so geht es und ist entsprechend anpassbar...

Delphi-Quellcode:

var abitmap:TBitMap;
begin
  abitmap:=TBitMap.Create;
  try
    abitmap.Width:=ImageList1.Width;
    abitmap.Height:=ImageList1.Width;

    ImageList1.DrawOverlay(aBitMap.Canvas,0,0,0,0,true);

    PopupMenu1.Items.Items[0].ImageIndex:=-1; 
    PopupMenu1.Items.Items[0].Bitmap:=aBitMap;
  finally
    abitmap.Free;
  end;
end;