PopUpMenu mit FETTEN MenuItems
Verfasst: 09.11.2004 14:26
Hi,
wie kann ich in einem PopUpMenu ein MenuItem fett darstellen?
Gruß
René
wie kann ich in einem PopUpMenu ein MenuItem fett darstellen?
Gruß
René
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
#MIIM_STATE=1
#MFS_DEFAULT=4096
OpenWindow(0,0,0,400,400,#PB_Window_SystemMenu | #PB_Window_ScreenCentered,"test")
CreatePopupMenu(0)
MenuItem(0,"Normal1")
MenuItem(1,"Normal2")
MenuItem(2,"Bold")
MenuItem(3,"Normal3")
bold.MENUITEMINFO
bold\cbSize=SizeOf(bold)
bold\fMask=#MIIM_STATE
bold\fState=#MFS_DEFAULT
SetMenuItemInfo_(MenuID(),2,#True,bold) ;2 specifies the item to be made bold
Repeat
ev=WaitWindowEvent()
If ev=#WM_RBUTTONUP
DisplayPopupMenu(0,WindowID(0))
EndIf
Until ev=#PB_Event_CloseWindow
Code: Alles auswählen
MenuTitle("Project")
MenuItem(0,"Default")
MenuItem(1,"Normal2")
MenuItem(2,"Bold")
MenuItem(3,"Normal3")
bold.MENUITEMINFO
bold\cbSize=SizeOf(bold)
bold\fMask=#MIIM_STATE
bold\fState=#MFS_DEFAULT
SetMenuDefaultItem_(MenuID(),0,0); Default auf 2. MenuItem
SetMenuItemInfo_(MenuID(),2,#True,bold) ;2 specifies the item to be made bold
Repeat
ev=WaitWindowEvent()
If ev=#WM_RBUTTONUP
DisplayPopupMenu(0,WindowID(0))
EndIf
Until ev=#PB_Event_CloseWindow
Hm, habe ich auch grade nochmal überprüft. Ist tatsächlich nicht vorhanden (auch nicht in der originalen englischen Anleitung)...PBZecke hat geschrieben:Ja, mit MenuID() funktioniert's. Ich hatte den Rückgabewert von CreateMenu() benutzt, da ich nicht wusste dass es ein MenuID() in PB gibt.
Habe ihn in der Hilfe jedenfalls nicht gefunden.