Click droit sur un ListViewGadget [Résolu]

[Kwai chang caine]

Bonjour à tous

Comment faire pour détecter un click droit dans un ListViewGadget ???

Apparement le click doit n'est pas géré par eventgadget.

Merci
Bonne journée

[cederavic]

Effectivement, l'EventType #PB_EventType_RightClick n'a pas l'air de marcher... Voila un code pour contourner le problème :

Code : Tout sélectionner

OpenWindow(1, 0, 0, 400, 400, "", #PB_Window_SystemMenu)
  CreateGadgetList(WindowID(1))
    ListViewGadget(1, 0, 0, 400, 200)
    ListViewGadget(2, 0, 200, 400, 200)
    
For t = 0 To 10

  AddGadgetItem(1, -1, Str(t))
  AddGadgetItem(2, -1, Str(t))
  
Next

; Variable pour stocker la position du curseur
Cursor.POINT

Repeat
  
  ; On recupere la position du curseur
  GetCursorPos_(@Cursor)
  
  WEvent = WindowEvent()
  
  If WEvent
  
    Repeat
    
      Select WEvent
      
        Case #WM_CLOSE
          quit = #True
        
        ; On a un click droit sur la fenetre
        Case #WM_RBUTTONDOWN
          ; On regarde qu'est-ce qu'il y a sous le curseur
          Select WindowFromPoint_(Cursor\x, Cursor\y)
            ; Enfin on test si c'est une des list
            Case GadgetID(1)
              Debug "List 1"
              
            Case GadgetID(2)
              Debug "List 2"
              
          EndSelect
          
      EndSelect
      
      WEvent = WindowEvent()
      
    Until WEvent = #False
    
  EndIf
  
  Delay(30)
  
Until quit = #True

[Kwai chang caine]

Merci bien cederavic.

Ce code marche nickel et va bien me depanner

Encore du travail pour FRED

Passe une bonne journée.

[cederavic]

Pas de quoi, ça fait un moment que j'ai pas contribuer sur le forum... faut bien que je rattaque