Hue shift
Saturday, July 19, 2008 by theAVMAN | Discussion: DesktopX
I am trying to use a hue shift button it is working but I want the default state when the clock loads to be the color I built it in.Right now upon loading it has no color until the first press of the Hue button!
Thhank you A/V
'*************************************************************
'******* Core_Hueshift_Btn ********
'*************************************************************
'note: To add this to any obeject, simply add this button to
'your theme, or object and change the names of the objects below
'to the objects you want to change
Sub Object_OnLButtonDown(x, y)
Dim ulHue
'Change object name to apply to new object
ulHue = DesktopX.Object("Vexa_Clock_Face").hue
ulHue = DesktopX.Object("Vexa_Clock_Hours").hue
ulHue = DesktopX.Object("Vexa_Clock_Minutes").hue
ulHue = DesktopX.Object("Vexa_Clock_Seconds").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then
ulHue = 0
End If
'if hue is past 255, set it to black.
If ulHue > 255 And ulHue < 999 Then
ulHue = 1000
End If
'apply the hue change to the object(s)
DesktopX.Object("Vexa_Clock_Face").hue = ulHue
DesktopX.Object("Vexa_Clock_Hours").hue = ulHue
DesktopX.Object("Vexa_Clock_Minutes").hue = ulHue
DesktopX.Object("Vexa_Clock_Seconds").hue = ulHue
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnRButtonDown(x, y)
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue =1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnScriptEnter
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue = 1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
Thhank you A/V
'*************************************************************
'******* Core_Hueshift_Btn ********
'*************************************************************
'note: To add this to any obeject, simply add this button to
'your theme, or object and change the names of the objects below
'to the objects you want to change
Sub Object_OnLButtonDown(x, y)
Dim ulHue
'Change object name to apply to new object
ulHue = DesktopX.Object("Vexa_Clock_Face").hue
ulHue = DesktopX.Object("Vexa_Clock_Hours").hue
ulHue = DesktopX.Object("Vexa_Clock_Minutes").hue
ulHue = DesktopX.Object("Vexa_Clock_Seconds").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then
ulHue = 0
End If
'if hue is past 255, set it to black.
If ulHue > 255 And ulHue < 999 Then
ulHue = 1000
End If
'apply the hue change to the object(s)
DesktopX.Object("Vexa_Clock_Face").hue = ulHue
DesktopX.Object("Vexa_Clock_Hours").hue = ulHue
DesktopX.Object("Vexa_Clock_Minutes").hue = ulHue
DesktopX.Object("Vexa_Clock_Seconds").hue = ulHue
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnRButtonDown(x, y)
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue =1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnScriptEnter
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue = 1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
sAARGe
Reply #3 Saturday, July 19, 2008 4:12 PM
change these values from 1000 to 0 ..... i think it will work ....
how GENIOUS i'm
Reply #3 Saturday, July 19, 2008 4:12 PM
Sub Object_OnScriptEnter
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue = 1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue = 1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
change these values from 1000 to 0 ..... i think it will work ....
how GENIOUS i'm
RickJP
Reply #4 Saturday, July 19, 2008 4:48 PM
Reply #4 Saturday, July 19, 2008 4:48 PM
and i'm also a bit busy nowsays quote from sAARGe on another thread.
looks like it
looks like it
HAPTORK
Reply #6 Saturday, July 19, 2008 8:32 PM
You are growing genious. you have learnt how to copy and paste text.
Reply #6 Saturday, July 19, 2008 8:32 PM
how GENIOUS i'm
You are growing genious. you have learnt how to copy and paste text.
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 Saturday, July 19, 2008 11:39 AM
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue = 1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
Change these values from "1000" to "0" then it should work.