I search since several hours to remote a horizontal scroll of a ListIcon without succes
My ListIcon want advance...but she never "will be back", even if my Scrollbar return in back
Code: Select all
Enumeration
#container
#listicon
#ScrollBar
EndEnumeration
Procedure WinCallback(hwnd, msg, wparam, lparam)
Select msg
Case #WM_HSCROLL
Debug GetGadgetState(#ScrollBar)
SendMessage_(GadgetID(#listicon), #LVM_SCROLL, GetGadgetState(#ScrollBar),0 )
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
OpenWindow(0, 0, 0, 300, 500, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
ContainerGadget(#container,5,5,290,390,#PB_Container_Flat)
ListIconGadget(#listicon, 0, 0, 290, 410, "", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_GridLines)
CloseGadgetList()
SetWindowCallback(@WinCallback())
ScrollBarGadget(#ScrollBar, 20, 420, 260, 20, 0, 290, 2)
For i = 1 To 50
AddGadgetColumn(#listicon, i, Str(i), 100)
Next i
For i = 1 To 50
AddGadgetItem(#listicon, -1, Str(Random(1000, 0)))
Next i
Repeat
Delay(1)
Until WaitWindowEvent() = #PB_Event_CloseWindow
Have a good day