Code: Select all
If OpenWindow(0, 0, 0, 400,400, "ListIconView...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(1, 10, 10,380,380,"First column:",200,#PB_ListIcon_CheckBoxes | #PB_ListIcon_GridLines)
AddGadgetColumn(1,1,"Column two",100)
For a= 1 To 4 : AddGadgetItem(1, -1, "Line "+Chr(10)+Str(a)) : Next
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Select EventType()
Case #PB_EventType_LeftClick
AddGadgetItem(1, -1, "left click on line "+Str(GetGadgetState(1)+1))
EndSelect
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf

