On 3/19/18 11:15 AM, Paul Dupuis via use-livecode wrote:
Does anyone have any code for supporting scrolling fields by use of a
mouse wheel that they would care to post or email me?
From my cribbed collection:
on rawKeyDown pKeyNumber
if pKeyNumber is 65308 then put 15 into tScrollInc -- increaseScroll,
scroll wheel down
else if pKeyNumber is 65309 then put -15 into tScrollInc --
decreaseScroll, scroll wheel up
if tScrollInc is empty then pass rawKeyDown
set the vScroll of me to (the vScroll of me + tScrollInc)
end rawKeyDown
-- both vertical and horizontal:
on rawKeyDown pKey
switch pKey
case 65309
set the vScroll of me to the vScroll of me - 30
break
case 65308
set the vScroll of me to the vScroll of me + 30
break
case 65311
set the hScroll of me to the hScroll of me - 30
break
case 65310
set the hScroll of me to the hScroll of me +30
break
default
pass rawKeyDown
end switch
end rawKeyDown
--
Jacqueline Landman Gay | jac...@hyperactivesw.com
HyperActive Software | http://www.hyperactivesw.com
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
