PureBoard

Code: Alles auswählen

If OpenWindow(0, 100, 100, 300, 200, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(0, 5, 5, 290, 90, "Name", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
  AddGadgetColumn(0, 1, "Address", 250)
  AddGadgetItem(0, -1, "Harry Rannit"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay")
  AddGadgetItem(0, -1, "Ginger Brokeit"+Chr(10)+"130 PureBasic Road, BigTown, CodeCity")
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Break
      Case #PB_Event_Gadget
        If GetActiveGadget() = 0
          AddKeyboardShortcut(0, #PB_Shortcut_Delete, 100)
        Else
          RemoveKeyboardShortcut(0, #PB_Shortcut_Delete)
        EndIf
      Case #PB_Event_Menu
        Select EventMenu()
          Case 100
            RemoveGadgetItem(0, GetGadgetState(0))
        EndSelect
    EndSelect
  ForEver
EndIf