PureBoard

Code: Alles auswählen

EnableExplicit

Define a

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "", 100, #PB_ListIcon_MultiSelect)
  AddGadgetItem(1, -1, "Item 1", 0, 0)
  AddGadgetItem(1, -1, "Item 2", 0, 0)
  AddGadgetItem(1, -1, "Item 3", 0, 0)
  ButtonGadget(2, WindowWidth(0)-110, WindowHeight(0)-30, 100, 20, "Ermitteln", 0)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 2
            For a=0 To CountGadgetItems(1)-1
              If GetGadgetItemState(1, a) & #PB_ListIcon_Selected
                Debug GetGadgetItemText(1, a)
              EndIf             
            Next
        EndSelect
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf