Prevent vertical scrolling via the mouse wheel or keyboardTag(s): Datawindow


For the wheel, declare an user event, ue_noscroll, mapped to pbm_vscroll.
[ue_noscroll]
// prevent vertical scrolling
return 1
For the keyboard, map the pbm_dwnkey event to user event ue_dwnkey.
[ue_dwnkey]
CHOOSE CASE key
  CASE KeyEnter!,KeyPageUp!,KeyPageDown!,KeyUpArrow!,KeyDownArrow!
    This.AcceptText()
    RETURN 1
END CHOOSE
RETURN 0

blog comments powered by Disqus