PureBoard

Code: Alles auswählen

Import "UxTheme.lib"
   SetWindowTheme(hwnd, classname.p-unicode, titlename)
EndImport

#list_nr = 1

If OpenWindow(0, 100, 100, 400, 500, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   
   flags = #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection
   flags | #PB_ListIcon_MultiSelect
   ListIconGadget(#list_nr, 5, 5, 390, 490, "", 0, flags)
   
   ;SetWindowTheme(GadgetID(#list_nr), "explorer", 0)
   
   AddGadgetColumn(#list_nr, 1, "Name", 100)
   AddGadgetColumn(#list_nr, 2, "Address", 250)
   
   #HDS_CHECKBOXES = $0400
   header = SendMessage_(GadgetID(#list_nr), #LVM_GETHEADER, 0, 0)
   hdstyle = GetWindowLongPtr_(header, #GWL_STYLE)
   hdstyle | #HDS_CHECKBOXES
   SetWindowLongPtr_(header, #GWL_STYLE, hdstyle)
   
   column = 1
   hdi.HDITEM
   hdi\mask = #HDI_FORMAT
   
   SendMessage_(header, #HDM_GETITEM, column, hdi)
   
   #HDF_CHECKBOX = $00000040 
   hdi\fmt | #HDF_CHECKBOX
   SendMessage_(header, #HDM_SETITEM, column, hdi)
   
   
   For j = 1 To 22
      AddGadgetItem(#list_nr, -1, #LF$+"Harry Rannit"+#LF$+"12 Parliament Way, Battle Street, By the Bay")
      AddGadgetItem(#list_nr, -1, #LF$+"Ginger Brokeit"+#LF$+"130 PureBasic Road, BigTown, CodeCity")
   Next
   
   Repeat
      Event = WaitWindowEvent()
   Until Event = #PB_Event_CloseWindow
   
EndIf