Menu contextuel dans un ExplorerListGadget

[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 !!

[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

[SPH]

Merci Mindphazer... Heu non : GRAAAAND MERCI !

Je me coucherais moins bête qu'hier et plus que demain. Ca marche

[Mindphazer]

Hé oui, on apprend à tout âge !