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

If you find this article useful, consider making a small donation
to show your support for this Web site and its content.

Written and compiled by Réal Gagnon ©1998-2012
[ home ]