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