Scrollbar for text box

How about this tutorial - LINK  I use it all the time.

I think that is exactly what I needed...I will try it out.

Thanks for the point in the right direction.

Erik

No prob. Hope it works for you.

It works great...Thanks for the help...now to see what else I need to add.

Again, Thanks,

Erik

OK...there seems to be a slight problem.  It works fine except for the following...could be me doing something silly.

I used the example pretty much exactly as it was shown, the problem is:

the Scroll_Dot object uses the absolute screen coordinates for the scrolling computation, even if I make it the child of the container (it does not use the relative coordinates for it's location to it's parent).  So the scrolling works beautifully if I don't move the container. Once I move the container the scrolling gets all messed up as it is using the coordinates to where it was located to calculate the scroll position.  As long as I only do horizontal movement...no problem, but if I move the conainer in the vertical direction things go crazy.

I hope this makes sense.

Any suggestions?

Erik

I don't think the dot should use screen coordinates. Did you try going to Properties > Summary and set child to 'yes' (sometimes you have to do that manually, and input the correct xy coordinates there.)

I did that. Even if I set it to child it uses the screen coordinates, not the coordinates within the container.  I set everything manually.

I tried addressing the object in script as

object.Top

and

DesktopX.Object("Scroll_Dot").Top

didn't matter.  Still uses screen coordinates.

That's weird. It really won't work with screen coordinates and I haven't a clue why it won't set child.

Another alternative I use is to have an up and down button. It scrolls the text up or down as long as you hold down the button. I did this once, when there was no room for a scrolling button. You'd create two objects named "up" and "down"  The script should go in the parent object of the buttons (which should be the base container object.)

The action is in three parts.

1. OnLButtonDownEx, depending on which button you clicked, it sets the variable 'scrDir' to up or down and starts the timer. There is also a redundancy If Then so that it doesn't scroll when the text isn't longer than the designated space.

2. OnTimer, depending on the 'scrDir' variable it moves the text object up or down, 2 pixels per cycle (you can adjust either the variable or the timer to make the scrolling go faster or slower)

3. OnLButtonUpEx, it kills the timer to stop the scrolling.

This might work for you. Script's below:

Dim scrDir

'Called when L-click on object or its children
Function Object_OnLButtonUpEx(obj, x, y, dragged)
 If dragged Then Exit Function
 Select Case obj.name
  Case "down" , "up"
   object.KillTimer 3
 End Select
End Function

'Called when L-click is pressed
Function Object_OnLButtonDownEx(obj,x,y)
 Select Case obj.name
  Case "down"
   If desktopX.Object("text").height > desktopx.Object("mask").height Then
    scrDir = "down"
    object.SetTimer 3,10
   End If
  Case "up"
   If desktopX.Object("text").height > desktopx.Object("mask").height Then
    scrDir = "up"
    object.SetTimer 3,10
   End If
 End Select
End Function

Sub object_ontimer3
 Select Case scrDir
  Case "down"
   If desktopX.Object("text").bottom > desktopX.Object("mask").height Then
    desktopX.Object("text").top = desktopX.Object("text").top - 2
   End If
  Case "up"
   If desktopX.Object("text").top < 0 Then
    desktopX.Object("text").top = desktopX.Object("text").top + 2
   End If
 End Select
End Sub

That script works very well.  Even if things are moved.  I appreciate your time and patience on this.  I like this even better.

I am still curious why the other one doesn't work properly.

Again,

Thanks

Erik

Glad it works for you.

Here is the final Lyrics Object...provided I can get the image to work in this forum:

Nice work, Erik!

sViz...thanks a lot for all of your help.

Erik