Comment crée un popUpmenu dans une fenetre vide ???
Publié : sam. 16/mai/2009 14:02
Bonjour,
je voudrais savoir si c"'est possible de crée un popupMenu quand il ya une fenetre vide sans gadgets , là jai le menu en cliquant à droite , mais j'arrive pas a faire quand ma fenetre est vide complement .
jai pas trouver l'equivalent de la commande #PB_Event_Gadget pour la fenetre.
je voudrais savoir si c"'est possible de crée un popupMenu quand il ya une fenetre vide sans gadgets , là jai le menu en cliquant à droite , mais j'arrive pas a faire quand ma fenetre est vide complement .
jai pas trouver l'equivalent de la commande #PB_Event_Gadget pour la fenetre.
Code : Tout sélectionner
;**** test de Menu avec le bouton de droite *****
;******* Création du menu
If CreatePopupMenu(0)
MenuItem(1, "Test")
EndIf
;***** Création de la fenetre *****
If OpenWindow(0, 0,0, 300, 260, " Example",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(0, 10, 10, 280, 240, "test", 200)
EndIf
;*** Boucle du programme ***
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
If EventGadget() = 0 And EventType() = #PB_EventType_RightClick
DisplayPopupMenu(0, WindowID(0))
EndIf
Case #PB_Event_Menu
Select EventMenu()
Case 1
MessageRequester("Info", "Coucou ", 0)
EndSelect
Case #PB_Event_CloseWindow
Fermer =#True
EndSelect
Until Fermer
End