[Windows] Scroll through PanelGadget tabs

[Arctic Fox]

Keep the cursor on the "tab line" in a PanelGadget and use the mouse wheel to scroll through each tab. Mouse tilting (horizontal scrolling) is supported, too

Code: Select all

Procedure PreviousTab()
Protected point.POINT, rect.RECT, item

; Checks if the cursor is over the "tab line"
GetCursorPos_(point)
GetWindowRect_(GadgetID(0), rect)
rect\bottom = rect\top + GetGadgetAttribute(0, #PB_Panel_TabHeight)

If PtInRect_(rect, point\y << 32 + point\x)
item = GetGadgetState(0)

If item = 0 : item = CountGadgetItems(0) : EndIf
item - 1
SetGadgetState(0, item)
ProcedureReturn 1
Else
ProcedureReturn 0
EndIf
EndProcedure

Procedure NextTab()
Protected point.POINT, rect.RECT, item

; Checks if the cursor is over the "tab line"
GetCursorPos_(point)
GetWindowRect_(GadgetID(0), rect)
rect\bottom = rect\top + GetGadgetAttribute(0, #PB_Panel_TabHeight)

If PtInRect_(rect, point\y << 32 + point\x)
item = GetGadgetState(0)

If item = CountGadgetItems(0) - 1 : item = -1 : EndIf
item + 1
SetGadgetState(0, item)
ProcedureReturn 1
Else
ProcedureReturn 0
EndIf
EndProcedure

Procedure MainCallback(hWnd, uMsg, wParam, lParam)
result = #PB_ProcessPureBasicEvents

Select uMsg
Case #WM_MOUSEWHEEL     ; "Standard" mouse wheel
If wParam > 0 : PreviousTab() : Else : NextTab() : EndIf

Case 526                ; Mouse tilt - horizontal mouse wheel
If wParam < 0 : PreviousTab() : Else : NextTab() : EndIf
EndSelect

ProcedureReturn result
EndProcedure

OpenWindow(0, 100, 100, 500, 300, "Scroll through PanelGadget tabs")
SetWindowCallback(@MainCallback())

PanelGadget(0, 5, 5, 490, 290)
AddGadgetItem(0, -1, "Tab 1")
AddGadgetItem(0, -1, "Tab 2")
AddGadgetItem(0, -1, "Tab 3")
AddGadgetItem(0, -1, "Tab 4")
AddGadgetItem(0, -1, "Tab 5")
AddGadgetItem(0, -1, "Tab 6")
AddGadgetItem(0, -1, "Tab 7")
AddGadgetItem(0, -1, "Tab 8")
AddGadgetItem(0, -1, "Tab 9")
AddGadgetItem(0, -1, "Tab 10")
CloseGadgetList()

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

End