Re: Horizontal or Vertical Scroll event?
- Posted by petelomax at blueyonder.co.uk Sep 20, 2002
- 488 views
{{{ I solved my problem with the following lovely bit of code:
integer iknowwhatimdoin iknowwhatimdoin=0 ... iknowwhatimdoinVScroll setVScrollPos(MAIN, pos) iknowwhatimdoin=0 ... iknowwhatimdoinHScroll setHScrollPos(MAIN, pos) iknowwhatimdoin=0
procedure onScroll_MAIN( integer pos) if iknowwhatimdoin=VScroll or HScrollON=False then scrollVertical(pos) elsif iknowwhatimdoinHScroll then scrollHorizontal(pos) else idontknowsoillguess then elsif pos != oldvscroll and getVScrollPos(MAIN) = pos then scrollVertical(pos) elsif getHScrollPos(MAIN) = pos then scrollHorizontal(pos) end if end procedure onScroll[MAIN] = routine_id("onScroll_MAIN")
I just spent about 18 hours to get it to work, so it looks lovely to me anyway!
Pete
