a propos du PopUp menu .

[jbernard13]

bonjour à tous

je veux juste savoir svp :

quand on cree un menu + une barre d'outils comment creer le popmenu ?
disons comment le mettre en place je sais le creer mais si je cree un menu normale j'ai pas de popmenu .


merci
si vous avez un petit exemple


bonne journée a tpus...

[Chris]

Regarde dans l'aide, il y a tout ce qu'il faut!

[Le Soldat Inconnu]

Il ne faut pas mettre les mêmes constantes dans ton poupupmenu que dans ton menu normal.

et puisque que tu parle de menu, menutitle ne peut pas être utilisé dans un popupmenu, enfin, avec un code, ce serait plus simple.

montre nous ce que tu as fait, même si ça ne marche pas, c'est pas grave

[jbernard13]

j'ai reussi
mais j'aimerai savoir comment faire quand on clique a droite le menu apparait là où il a le pointeur car dans mon exemple
si on descend le pointeur en bas à droite
mon popupmenu reste toujours en haut a gauche
je sais que c'est une question de coordonnée de la souris .
qui peux m'expliquer svp ....

Code : Tout sélectionner

;test de PopUp menu  par Jbernard13

; contante de la fenetre principale 
Enumeration
#fenetre_principale
EndEnumeration

;contante de la barre outil et du menu 
Enumeration
#bar_nouveau
#menu_quitter
EndEnumeration
Enumeration
#popup_coucou
EndEnumeration


;Code principale 


If OpenWindow(#fenetre_principale,0,0,640,480,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_TitleBar |#PB_Window_ScreenCentered,"Test de PopUp menu ")
If CreateToolBar(0,WindowID())
ToolBarStandardButton(#bar_Nouveau, #PB_ToolBarIcon_New)
ToolBarToolTip(#bar_nouveau,"Nouveau")
EndIf
If CreateMenu(0,WindowID())
MenuTitle("Edition")
MenuItem(#menu_quitter,"Quitter le programme  ")
EndIf
If CreatePopupMenu(0)
MenuItem(#popup_coucou,"Coucou")
endif
EndIf
Repeat
event= WaitWindowEvent()
Select event
Case  #wm_rbuttondown
DisplayPopupMenu(0,WindowID(),210,240)
Case #pb_eventmenu
Select EventMenuID()
Case #menu_quitter:fermer_window_0=1
EndSelect

Case #pb_eventclosewindow
fermer_window_0=1
EndSelect
Until fermer_window_0=1
End

[comtois]

Code : Tout sélectionner

DisplayPopupMenu(0,WindowID(#fenetre_principale),WindowMouseX(),WindowMouseY()) 

normalement , le popupmenu devrait se placer à la position de la souris , mais il y a un décalage ,je ne sais pas pourquoi .
j'ai exactement la même ligne dans un de mes codes et là ça fonctionne bien .
J'ai pas le temps d'analyser , je sors , mais bon , ça te mettra sur la piste .

[jbernard13]

merci Comtois de ta reponse rapide

je m'eclate avec PureBasic





bonne soirée

[Backup]

regarde atentivement le displaypopupmenu !

Code : Tout sélectionner

;test de PopUp menu  par Jbernard13

; contante de la fenetre principale
Enumeration
    #fenetre_principale
EndEnumeration

;contante de la barre outil et du menu
Enumeration
    #bar_nouveau
    #menu_quitter
EndEnumeration
Enumeration
    #popup_coucou
EndEnumeration


;Code principale


If OpenWindow(#fenetre_principale,0,0,640,480,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_TitleBar |#PB_Window_ScreenCentered,"Test de PopUp menu ")
    If CreateToolBar(0,WindowID())
        ToolBarStandardButton(#bar_nouveau, #PB_ToolBarIcon_New)
        ToolBarToolTip(#bar_nouveau,"Nouveau")
    EndIf
    If CreateMenu(0,WindowID())
        MenuTitle("Edition")
        MenuItem(#menu_quitter,"Quitter le programme  ")
    EndIf
    If CreatePopupMenu(0)
        MenuItem(#popup_coucou,"Coucou")
    EndIf
EndIf
Repeat
    Event= WaitWindowEvent()
    Select Event
        Case  #WM_RBUTTONDOWN
           ; DisplayPopupMenu(0,WindowID(),210,240) ; avant tu force l'affichage cordones 210,240
            DisplayPopupMenu(0,WindowID()) ; apred dobro the best ! :D
        Case #PB_EventMenu
            Select EventMenuID()
                Case #menu_quitter:fermer_window_0=1
            EndSelect
            
        Case #PB_EventCloseWindow
            fermer_window_0=1
    EndSelect
Until fermer_window_0=1
End 

[comtois]

Code : Tout sélectionner

DisplayPopupMenu(0,WindowID())

Ah oui tiens, j'ai lu l'aide trop vite; ça m'avait échappé !
je m'embête avec la position de la souris

Bon ben je vais corriger mes codes

[jbernard13]

merci Dobro
et bonne journée a tous

[jbernard13]

je me suis aperçu que le menu principale disparait
de plus si je rajoute une listicon gadget
j'ai pas le clique de droite
pas grave je travaille dessus ppur comprendre


a+