Mouse wheel scrolling support...

J. Landman Gay jacque at hyperactivesw.com
Mon Mar 19 19:49:23 CET 2018


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         |     jacque at hyperactivesw.com
HyperActive Software           |     http://www.hyperactivesw.com



More information about the use-livecode mailing list