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