Page 1 sur 1
a propos du PopUp menu .
Publié : sam. 20/nov./2004 9:50
par 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...
Publié : sam. 20/nov./2004 10:31
par Chris
Regarde dans l'aide, il y a tout ce qu'il faut!
Publié : sam. 20/nov./2004 11:01
par 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
Publié : sam. 20/nov./2004 15:05
par 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
Publié : sam. 20/nov./2004 15:35
par 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 .
Publié : sam. 20/nov./2004 16:34
par jbernard13
merci Comtois de ta reponse rapide
je m'eclate avec PureBasic
bonne soirée
Publié : sam. 20/nov./2004 23:28
par 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
Publié : sam. 20/nov./2004 23:43
par comtois
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
Publié : dim. 21/nov./2004 8:27
par jbernard13
merci Dobro
et bonne journée a tous
Publié : dim. 21/nov./2004 9:23
par 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+