Autohide Script Question

attaching a second '.png' to the first, so it shows while off screen

from WinCustomize Forums

Ok so,

I am using an autohide script...and it is working just fine...

What I've done is have my toolbar buttons slide off the screen except for the last 5 pxls...point at them and they slide out...

fine, ok?

Next, I've made tiny little button tabs that I've set to 30% transparency with a tooltip that matches the autohide button.

Now, I know that this has got to be really simply but I can't seem to get it right:

I want to lock that button tab to the autohide button, so it slides with it (remaining on screen, so that I can activate it's tooltip without activating the autohide button, unless I bring my mouse over that 5pxs that I've remained showing)

I've tried the three different types of "grouping" but can't get the button tip to slide with the button...and it also might be other factors like the button tip's "movement" properties.

Somebody, please be kind enough to tutor me on this?

'preciate it, ya'll have given me great tips!

Joe

desktopx
3,300 views 6 replies
Reply #1 from WinCustomize Forums Top
Cant understand the thing completely. Are you trying to make tab buttons visible all the time so that you can mouseover them and view the tooltip without sliding the whole bar?
If this is not the case then will you please make it more clear or show the object/screenshot. :)
Reply #2 from WinCustomize Forums Top
yes, that is exactly what I am trying to do, this way I can mouseover, and get the tooltip, to make sure I'm over the correct button, prior to going farther over to activate it/have it slide out...

I have the buttons just 5pxs visible, they are rectangular, so I would like to attach 1/2 oval shapes to there ends, with the appropriate tooltips, so's that I can be reminded which one I'm actually over, without yet activating it.

I'm sure its simple just can't figure out how to get the 1/2 oval shaped tabs to stay connected to each individual button...I'm learning, but slooooowwwllly LOL
THANKS!
Joe
Star Control: Origins
Reply #3 from WinCustomize Forums Top
Do it directly in the script. When you mouseover the avtivator object have it also set the x-coordinate for the tooltip object. You'll also have to move it back when it autohides again.
Reply #4 from WinCustomize Forums Top
Ah ok, so just Call the "tab" object, let's call it for now, in the script to mimic the button action when the button is activated...DUH, thanks LOL, I knew it would be something like that! :D
Preciate it BigDogBigFeet...btw, you know what they say about men with big feet? Is it true? ROFLMAO (just kidding!)
Joe
I'll try to code it on my own, if I have any trouble I'll post again..tanx 4da help!
J
Reply #5 from WinCustomize Forums Top
One other question:

With my buttons, the ones I have for opening file folder, ie drop down menu with my necessary folder locations (stored as windowsxp shortcuts in a My Documents folder) seem to load Reeeeeaaaly slow...not so with URLs or loading programs...any idea why? No scripting involved, just a button object with a folder shortcut (with windows shortcuts in that folder)

preciate ur input!
Joe
Reply #6 from WinCustomize Forums Top
This is the script I'm using, and the "tab object" I'll call " Tab_Button_New " can you show me where to insert it?

'preciate it
Joe

Dim hideTop
Dim hideLeft
Dim hideSpeed
Dim hideDelay
Dim showTop
Dim showLeft
Dim showSpeed
Dim velTop
Dim velLeft
Dim delay

'Called when the script is executed
Sub Object_OnScriptEnter
'----------------------------------
'----------CUSTOMIZE HERE----------
'----------------------------------
'Object's top left corner for the "hide" state
hideTop = 0
hideLeft = -115
'Speed to hide object
'Higher number = faster motion
hideSpeed = 100
'Delay before we hide the object (milliseconds)
hideDelay = 300
'Object's top left corner for the "show" state
showTop = 0
showLeft = 0
'Speed to show object
'Higher number = faster motion
showSpeed = 100
'----------------------------------
'-----------END CUSTOMIZE----------
'----------------------------------
delay = 0
'Timer for hiding the object
Object.SetTimer 4321, 100
End Sub

'Called when the script is terminated
Sub Object_OnScriptExit
Object.KillTimer 4321
Object.KillTimer 1234
End Sub


Sub Object_OnStateChange(state)
If state = "Mouse over" Then
'Kill the hide timer
Object.KillTimer 4321
'Start the show timer
Object.SetTimer 1234, 100
Else
'Kill the show timer
Object.KillTimer 1234
'Start the kill timer
Object.SetTimer 4321, 100
End If
End Sub

Sub Object_OnTimer1234
'Show the object

Call MoveIt(showTop, showLeft, showSpeed)
If (Object.Top = showTop) And (Object.Left = showLeft) Then
delay = hideDelay
End If
End Sub

Sub Object_OnTimer4321
'Hide the object
If delay <> 0 Then
'We wait until delay is over
delay = delay - 100
Else
Call MoveIt(hideTop, hideLeft, hideSpeed)
End If
End Sub

Sub MoveIt(destTop, destLeft, speed)
'Are we there yet?
If (Object.Top <> destTop) Or (Object.Left <> destLeft) Then
'Go ahead and hide
Dim diffTop
Dim diffLeft
Dim distance
Dim speedTop
Dim speedLeft

diffTop = destTop - Object.Top
diffLeft = destLeft - Object.Left
distance = (diffTop^2 + diffLeft^2)^0.5
speedTop = speed * diffTop / distance
speedLeft = speed * diffLeft / distance

If Abs(speedTop) > Abs(diffTop) Then
speedTop = diffTop
End If
If Abs(speedLeft) > Abs(diffLeft) Then
speedLeft = diffLeft
End If

Object.Move Object.Left + speedLeft, Object.Top + speedTop
End If
End Sub