Autohide Script Question
attaching a second '.png' to the first, so it shows while off screen
Wednesday, March 26, 2008 by Joseph Galbraith | Discussion: DesktopX
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
Joseph Galbraith
Reply #2 Wednesday, March 26, 2008 3:11 PM
Reply #2 Wednesday, March 26, 2008 3:11 PM
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
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
BigDogBigFeet
Reply #3 Wednesday, March 26, 2008 3:45 PM
Reply #3 Wednesday, March 26, 2008 3:45 PM
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.
Joseph Galbraith
Reply #4 Wednesday, March 26, 2008 4:46 PM
Reply #4 Wednesday, March 26, 2008 4:46 PM
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! 
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
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
Joseph Galbraith
Reply #5 Wednesday, March 26, 2008 4:49 PM
Reply #5 Wednesday, March 26, 2008 4:49 PM
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
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
Joseph Galbraith
Reply #6 Wednesday, March 26, 2008 5:08 PM
Reply #6 Wednesday, March 26, 2008 5:08 PM
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
'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
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!
Reply #1 Wednesday, March 26, 2008 2:39 PM
If this is not the case then will you please make it more clear or show the object/screenshot.