Menü mit Icon

[teebee]

Du kannst die Bitmaps noch etwas einfacher in eine ImageList packen.

Delphi-Quellcode:

Var
  cc: HINST;
Begin
  cc := LoadLibrary('comctl32.dll');
  If cc <> 0 Then
   // diese Funktion 'zerschneidet' das breite Bitmap automatisch und erzeugt eine ImageList, inkl. Transparenz
   ImageList1.Handle := ImageList_LoadBitmap(cc,MAKEINTRESOURCE(120),16,0,CLR_DEFAULT);
  FreeLibrary(cc);
End;

Jetzt einfach die ImageList mit dem Menü verknüpfen und den einzelnen Items den gewünschten Index zuordnen.

Gruß, teebee