Icon in tollbar menu

Gibt es eine Möglichkeit Icons anzuzeigen in einem Tollbar Dropdownbutton??

Klar. Wie immer mit MBS:

[code] Dim myMenuItem1 as New MenuItem
MyMenuItem1.Text = kMenuAddMailClient
myMenuItem1.Name = “mailclient”
myMenuItem1.Enabled = true
myWizardMenu.Append myMenuItem1

	dim theNSImage as new NSImageMBS(menu_bulb_retina)
	theNSImage.size = new NSSizeMBS(menu_bulb.Width, menu_bulb.Height)
	
	dim theHandle as Integer =  myMenuItem1.Handle(MenuItem.HandleType.CocoaNSMenuItem)
	dim NSMenu as new NSMenuItemMBS(theHandle)
	NSMenu.image = theNSImage

[/code]

Danke :wink:

Hm, was ist denn bei dir “myWizardMenu”?

ich möchte vor jedem Eintrag ein Icon, so kann es nicht gehen, was mache ich falsch?

	Dim myMenuItem1 As New MenuItem
	myMenuItem1.Append(New MenuItem(L_zeige_alle))
	myMenuItem1.Append(New MenuItem(L_zeige_sammlung))
	myMenuItem1.Append(New MenuItem(L_zeige_gesucht))
	myMenuItem1.Append(New MenuItem(L_zeige_verkauft))
	me.zeige.DropdownMenu=myMenuItem1
	
	dim theNSImage as new NSImageMBS(icon_sammlung_12)
	theNSImage.size = new NSSizeMBS(icon_sammlung_12.Width, icon_sammlung_12.Height)
	
	dim theHandle as Integer =  myMenuItem1.Handle(MenuItem.HandleType.CocoaNSMenuItem)
	dim NSMenu as new NSMenuItemMBS(theHandle)
	NSMenu.image = theNSImage

myWizardMenu ist das zum Button gehörige Menu:

dim theExport as ToolButton = toolbutton(MainToolbar1.item(0)) theExport.DropDownMenu = myWizardMenu

brigens… es gibt auch:

MenuItem.icon=

geht hier also auch ohne MBS :wink:

Macht das auch Retina icons?

Er nimmt auf jeden Fall das imageset und wenn ich es mir ansehe, sieht es auch gut aus…
ich habe dort nur farbige Punkte drin, aber es sieht so aus, als würde er das korrekt darstellen