PureBasic

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