Need help with DHTML doScroll() script

[xStrongTowerx]

Dear Forum,

Here's my problem:

I'm trying to write a doScroll script that scrolls a text element (div style="overflow: hidden&quot, but no matter what I try, the scrolling does not stop on mouseup.

The inline HTML calls it this way:
<img id=&quot;DownArrow&quot; src=&quot;images/scroll-down.gif&quot; height=&quot;4&quot; width=&quot;9&quot; onmousedown=&quot;ScrFunct2('ScrollBarDown');&quot; onmouseup=&quot;ClearIt();&quot;>

This is the script:

Function ScrFunct2(sScrollAction)
BodyText.doScroll(sScrollAction)
window.document.recalc(true)
if BodyText.scrollHeight - BodyText.clientHeight >= BodyText.scrollTop then
DownArrow.setCapture(true)
iTimerID = window.setTimeout(&quot;ScrFunct2('ScrollBarDown')&quot;,200)
End if
End Function

Function ClearIt()
window.ClearTimeout(iTimerID)
window.document.recalc(true)
End Function

What am I missing here?

Thanks,

xSTx

 

[MrGreed]

Are you declaring your time out variable outside your ScrFunct function.

Example:

var iTimerID;

Function ScrFunct2(sScrollAction)
BodyText.doScroll(sScrollAction)
window.document.recalc(true)
if BodyText.scrollHeight - BodyText.clientHeight >= BodyText.scrollTop then
DownArrow.setCapture(true)
iTimerID = window.setTimeout(&quot;ScrFunct2('ScrollBarDown')&quot;,200)
End if
End Function

If you are not declaring you variable outside the function when you go to clear it it is not accessing the correct variable.
MrGreed

http://www.pastame.com

&quot;did you just say Minkey?, yes that's what I said.&quot;

 

[MrGreed]

Sorry change that to:

Dim iTimerID

*forgot I was in VBScript forum. MrGreed

http://www.pastame.com

&quot;did you just say Minkey?, yes that's what I said.&quot;

 

[xStrongTowerx]

Hmmm... That didn't make a difference. I think the variable had been created implicitly.

 

[dilettante]

Implicitly? Even worse!

When ScrFunct2( ) exits, iTimerID is discarded.

Explicitly declare it globally, and always use Option Explicit in every <script> bock.

 

[xStrongTowerx]

I think I fixed it.

<div id=&quot;BodyText&quot; style=&quot;position: relative; top: 0px; left: 0px; height: 145px; width: 204px; font: 7pt Verdana; text-align: justify; color: #FFFFFF; overflow: hidden;&quot; onmousewheel=&quot;ScrFunct()&quot;><div>Text Goes Here.</div></div>
Then...
<script language=&quot;VBScript&quot;>

Dim iTimerID

Function ScrFunct()
If window.event.wheeldelta = -120 then
BodyText.doScroll(&quot;ScrollBarDown&quot
Else
BodyText.doScroll(&quot;ScrollBarUp&quot
End if
End Function

Function ScrFunct2(sScrollAction)
BodyText.doScroll(sScrollAction)
window.document.recalc(true)
iTimerID = window.setTimeout(&quot;ScrFunct2('&quot; & sScrollAction & &quot;')&quot;,100)
End Function

Function ClearIt()
window.ClearTimeout(iTimerID)
window.document.recalc(true)
End Function

</script>

You can try it out at

http://music.longboardbreaker.com/aaron_new/home2.asp.

Thanks for you help. I think Dimming the iTimerID variable made a big difference.

Thanks,

xSTx

 

[dilettante]

Loooking goood!