Disable mouse wheel action on combobox?

[ozzie]

Is there a way to prevent the mouse wheel changing the selected entry in a combobox? Even knowing that the mouse wheel was used to trigger the 'change' event would be helpful.

[RSBasic]

Code: Select all

EnableExplicit

Define a
Global ComboBoxCB

Procedure ComboBoxCB(hWnd, Message, wParam, lParam)
  Select Message
    Case #WM_MOUSEWHEEL
      ProcedureReturn 1
  EndSelect
  
  ProcedureReturn CallWindowProc_(ComboBoxCB, hWnd, Message, wParam, lParam)
EndProcedure

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ComboBoxGadget(1, 10, 10, 200, 20, 0)
 
  For a=1 To 25
    AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
  Next
  
  ComboBoxCB = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @ComboBoxCB())
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

[ozzie]

Brilliant! Many thanks for the prompt response.