Menü mit Icon

[tuxic]

LOL!

danke danke danke... genau das hab ich gesucht....

[Michael_Bayer]

Zitat von 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

Auch wenns schon etwas her ist:
Wo befindet sich die Funktion "ImageList_LoadBitmap" denn?

[MathiasSimmack]

Müsste die "CommCtrl"-Unit sein.