Test a DX clock for me
from 
WinCustomize Forums
WinCustomize Forums
87,449 views
25 replies
Thank ya sir ! your help with the Vexa clock helped make it possible! 
I'd give you some Karma if I could find that button!
End of quote
The thumbs up button under the reply... click it.
+1
Loading…
The thumbs up button under the reply... click it.
End of quote
Thank you!
ok.. looking at the code..
Whu set the same VAR to multiple items, the only one that matters in this case is the LAST one. Applying it at the end of that function makes sense, but the beginning sets make no sense.
I would redo it:
Sub Object_OnLButtonDown(x, y)
Dim ulHue
ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then ulHue = 0
'if hue is past 255, set it to black.
If ulHue > 255 And ulHue < 999 Then ulHue = 1000
'apply the hue change to the object(s)
DesktopX.Object("3Dmetal_Clock_Face").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Hours").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Minutes").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Seconds").hue = ulHue
End Sub
This seems to work, the main key with this is to make sure the master items are RED.
the Hue works best with a RED main image. Other than the above, it looks good.
Code: vbscript
- 'Change object name to apply to new object
- ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
- ulHue = DesktopX.Object("3Dmetal_Clock_Hours").hue
- ulHue = DesktopX.Object("3Dmetal_Clock_Minutes").hue
- ulHue = DesktopX.Object("3Dmetal_Clock_Seconds").hue
- ulHue = ulHue + 10
Whu set the same VAR to multiple items, the only one that matters in this case is the LAST one. Applying it at the end of that function makes sense, but the beginning sets make no sense.
I would redo it:
Sub Object_OnLButtonDown(x, y)
Dim ulHue
ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then ulHue = 0
'if hue is past 255, set it to black.
If ulHue > 255 And ulHue < 999 Then ulHue = 1000
'apply the hue change to the object(s)
DesktopX.Object("3Dmetal_Clock_Face").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Hours").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Minutes").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Seconds").hue = ulHue
End Sub
This seems to work, the main key with this is to make sure the master items are RED.
the Hue works best with a RED main image. Other than the above, it looks good.
"Whu set the same VAR "
um.. where's my EDIT button? Im speaking Zubazzish
"Why set the same VAR" - edited
um.. where's my EDIT button? Im speaking Zubazzish
"Why set the same VAR" - edited
Here is some revised code for the hue button.
It reduces the calls to set the object hue's down to a single function call.
It also saves the hue in storage so that it will be there when it comes back up the next time its run.
It reduces the calls to set the object hue's down to a single function call.
It also saves the hue in storage so that it will be there when it comes back up the next time its run.
Code: vbscript
- Sub Object_OnLButtonDown(x, y)
- Dim ulHue
- ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
- ulHue = ulHue + 10
- 'if hue is set to Black "1000" then set it back to Unshifted "0"
- If ulHue > 1001 Then ulHue = 0
- If ulHue > 255 And ulHue < 999 Then ulHue = 1000
- Call SetHue(ulHue)
- End Sub
- '*************************************************************
- 'Resets the hue to 0 if right clicked
- Sub Object_OnRButtonDown(x, y)
- Call SetHue(1000)
- End Sub
- 'Resets the hue to 0 if right clicked
- Sub Object_OnScriptEnter
- If Object.LocalStorage("Hue") = "" Then
- ulHue = 1000
- Else
- ulHue = Object.LocalStorage("Hue")
- End If
- Call SetHue(ulHue)
- End Sub
- Function SetHue(huesetting)
- DesktopX.Object("3Dmetal_Clock_Face").hue = huesetting
- DesktopX.Object("3Dmetal_Clock_Hours").hue =huesetting
- DesktopX.Object("3Dmetal_Clock_Minutes").hue = huesetting
- DesktopX.Object("3Dmetal_Clock_Seconds").hue = huesetting
- Object.LocalStorage("Hue") = huesetting
- desktopx.Object("test").text = huesetting
- End Function
+1
Loading…
RomanDA
Thank you very much !I will keep this in mind for this application,I assume this will work in other instances also.
Thanks again
Harley
Thank you very much !I will keep this in mind for this application,I assume this will work in other instances also.
Thanks again
Harley
+1
Loading…
sure.. it reads 1 items hue, then increments that, then stores it back out to the local storage. not real bad. It also looks for that local storage on 1st run to see if there is anything in there, if so, it uses that value.
I think i need to add this to the snippets!
I think i need to add this to the snippets!
Stardock ForumsHi Harley .. It looks great ... Run first time ...
I am not sure if this is correct for you but if I mouse over the colour changer... keep it still and just click away I can get loads of other colours too ... Is it supposed to do that ? ...
Nice clock for sure ... works well !!
Regards
Mike
I am not sure if this is correct for you but if I mouse over the colour changer... keep it still and just click away I can get loads of other colours too ... Is it supposed to do that ? ..
End of quote
I have a new one I need somebody to check if anyone wants toWWW Link
Other than the fact that their is no actual clock . . it works.
Animation plays, close button destroys the object. Shines are in place.
Animation plays, close button destroys the object. Shines are in place.
Works fine can see the clock at bottom,
Don't like the date display 7/9/8
Would use 09/07/08 if could of worked out how to change it.
Don't like the date display 7/9/8
Would use 09/07/08 if could of worked out how to change it.
3D Metal clock: First start, runs smoothly, colouring works. I close the clock and when I restart the clock, I can't change the colour anymore (Vista64bit). I have repeated this several time, but since the first run, I am unable to change the colour.
Turbo clock: Works fine (I do have a digital clock) except that the close button next to the date took some time to actually do something. To explain; I wanted to close the clock but the close button didn't react at all (no mouse-over too). I wrote this in my feedback to you, but after writing I thought I would try once more and suddenly the button had a red mouse-over and worked. I repeated this and I got a lag again but shorter this time.
Suggestion; to include a switch for 'English'-time and 'Military'-time (the latter being commonly used in continental Europe)
Turbo clock: Works fine (I do have a digital clock) except that the close button next to the date took some time to actually do something. To explain; I wanted to close the clock but the close button didn't react at all (no mouse-over too). I wrote this in my feedback to you, but after writing I thought I would try once more and suddenly the button had a red mouse-over and worked. I repeated this and I got a lag again but shorter this time.
Suggestion; to include a switch for 'English'-time and 'Military'-time (the latter being commonly used in continental Europe)
Works fine can see the clock at bottom,
Don't like the date display 7/9/8
Would use 09/07/08 if could of worked out how to change it.
Don't like the date display 7/9/8
Would use 09/07/08 if could of worked out how to change it.
End of quote
Thank you and it is changed
3D Metal clock: First start, runs smoothly, colouring works. I close the clock and when I restart the clock, I can't change the colour anymore (Vista64bit). I have repeated this several time, but since the first run, I am unable to change the colour.
End of quote
aufisch
3D Metal that was an old link sorry!
newWWW Link
Turbo clock: Works fine (I do have a digital clock) except that the close button next to the date took some time to actually do something. To explain; I wanted to close the clock but the close button didn't react at all (no mouse-over too). I wrote this in my feedback to you, but after writing I thought I would try once more and suddenly the button had a red mouse-over and worked. I repeated this and I got a lag again but shorter this time.
Suggestion; to include a switch for 'English'-time and 'Military'-time (the latter being commonly used in continental Europe)
Suggestion; to include a switch for 'English'-time and 'Military'-time (the latter being commonly used in continental Europe)
End of quote
Thank you
1 I moved the close button to the top layer and all lag is gone!
2 I am not quite sure how to add the switch but I will try
Thanks again
Harley
Zubaz if your still on could you give it 1 more shot for me?Or anyone just toverify it is all working ok!
Thank you A/V
WWW Link
Thank you A/V
WWW Link
theAVMAN just gave it a test, shows date and time and the turbine is spinning. 
I'm running XP this morning and everything worked great. I had the same problem aufisch did at first though. The close button seemed to take a bit to become active.
The close button seemed to take a bit to become active.
End of quote
I moved to top layer earlier .Just now removed the child status and I think that got us!
Thanks again
3D Metal that was an old link sorry!
End of quote
Doh, didn't see that this thread started in May!!!
I tested the turbine-clock again, and the lag is now gone!
I tested the turbine-clock again, and the lag is now gone!
End of quote
Thank you very much!
Welcome Guest! Please take the time to register with us.
- Richer content, access to many features that are disabled for guests like commenting and posting on the forums.
- 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!