I don't seem to get a horizontal scrollbar when I have more columns than fit in the ListIconGadget.
What am I lacking?
Code: Select all
Window_0 = OpenWindow(#PB_Any, 0,0,600,400, "Test", #PB_Window_ScreenCentered)
If Window_0
ListIcon_0 = ListIconGadget(#PB_Any, 20, 20, 560, 100, "Column 1", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
If ListIcon_0
For Column=1 To 10
AddGadgetColumn(ListIcon_0,Column,"Column " + Str(Column+1),100)
Next
Row$ = ""
For Row = 1 To 10
For Column = 0 To 10
Row$ = Row$ + "Col"+Str(Column)+"R"+Str(Row) + Chr(10)
Next
AddGadgetItem(ListIcon_0,-1,Row$)
Row$ = ""
Next
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
EndIf