Retirer l'emplacement checked d'un menu item.
Publié : jeu. 18/mai/2017 13:32
Bonjour à tous,
Je souhaitet retirer l'emplacement checked d'un menu item.
Merci, à ceux qui savent, de m'aider.
Le code ci-dessous ne fonctionne pas du tout.
Je souhaitet retirer l'emplacement checked d'un menu item.
Merci, à ceux qui savent, de m'aider.
Le code ci-dessous ne fonctionne pas du tout.
Code : Tout sélectionner
#MNS_NOCHECK=4
If OpenWindow(0, 200, 200, 200, 100, "Exemple de menu")
If CreateMenu(0, WindowID(0))
MenuTitle("Projet")
MenuItem(1, "Ouvrir" +Chr(9)+"Ctrl+O")
MenuItem(2, "Enregistrer" +Chr(9)+"Ctrl+E")
MenuItem(3, "Enregistrer sous"+Chr(9)+"Ctrl+R")
MenuItem(4, "Fermer" +Chr(9)+"Ctrl+F")
EndIf
Structure LPCMENUINFO
cbSize.w
fMask.w
dwStyle.w
cyMax.i
HBRUSH.w
dwContextHelpID.w
dwMenuData.l
EndStructure
pti.LPCMENUINFO\cbSize = SizeOf(LPCMENUINFO)
SetMenuInfo_(MenuID(0),pti.LPCMENUINFO)
pti\dwStyle=#MNS_NOCHECK
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf