Mouse wheel scrolling support...

[Paul Dupuis]

Thank you! Exactly what I was looking for.

On 3/19/2018 2:49 PM, J. Landman Gay via use-livecode wrote:
> 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