Page 1 sur 1
Menu contextuel dans un ExplorerListGadget
Publié : jeu. 28/juil./2022 10:22
par SPH
Salut,
Comment faire pour que l'on puisse cliquer avec le bouton droit dans un ExplorerListGadget pour que le menu contextuel apparaisse (pour effacer un fichier par exemple) ?
Merci
Et n'oubliez pas :
PQVLFF !!
Re: Menu contextuel dans un ExplorerListGadget
Publié : jeu. 28/juil./2022 10:53
par Mindphazer
comme ça :
Code : Tout sélectionner
Enumeration
#Window
#Explorer
#PopMenu
#PopMenuEffaceFichier
EndEnumeration
OpenWindow(#Window, 0, 0, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerTreeGadget(#Explorer, 10, 10, 380, 180, "*.*", #PB_Explorer_AlwaysShowSelection|#PB_Explorer_NoDriveRequester)
If CreatePopupMenu(#PopMenu)
MenuItem(#PopMenuEffaceFichier, "Efface Fichier")
EndIf
Quit = #False
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = #True
Case #PB_Event_Menu
Select EventMenu()
Case #PopMenuEffaceFichier
Debug GetGadgetText(#Explorer)
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case #Explorer
Select EventType()
Case #PB_EventType_RightClick
DisplayPopupMenu(#PopMenu, WindowID(#Window))
EndSelect
EndSelect
EndSelect
Until Quit = #True
J'ai mis un ExplorerTreeGadget pour que ce soit plus joli visuellement, mais ça marche aussi avec un ExplorerListGadget
Re: Menu contextuel dans un ExplorerListGadget
Publié : jeu. 28/juil./2022 11:52
par SPH
Re: Menu contextuel dans un ExplorerListGadget
Publié : jeu. 28/juil./2022 12:21
par Mindphazer
Hé oui, on apprend à tout âge !
