PureBoard

Code: Alles auswählen

If OpenWindow(1,0,0,600,420,"TEST")
  
  ListIconGadget(1,10,10,580,400,"Spalte1",400)
  
  For i = 0 To 99
    AddGadgetItem(1,i,"Entry #"+Str(i))  
  Next
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
        
      Case #PB_Event_CloseWindow
        Quit = 1
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            
            Select EventType()
              Case #PB_EventType_LeftDoubleClick
                Debug "Mouse: left double click"
                
            EndSelect
            
        EndSelect
        
    EndSelect
    
  Until Quit = 1
          
EndIf