#Main=0
#List=1
If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"")
If CreateGadgetList(WindowID(#Main))
ListIconGadget(#List,0,0,400,300,"Column 1",150,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#List,1,"Column 2",100)
AddGadgetColumn(#List,2,"Column 3",100)
EndIf
For tmp=0 To 20
AddGadgetItem(#List,-1,"TestA_"+Str(tmp)+Chr(10)+"TestB_"+Str(tmp)+Chr(10)+"TestC_"+Str(tmp))
Next
PVGadgets_LastListIconRow(#List) ;last row is forced into view
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
|