Reply #1 Top
Work fine Harley! :D
+1 Loading…
Reply #2 Top
Thank ya sir ! your help with the Vexa clock helped make it possible! :)
Reply #3 Top
I'd give you some Karma if I could find that button!
Reply #4 Top
I'd give you some Karma if I could find that button!


The thumbs up button under the reply... click it. ;)  :)
+1 Loading…
Reply #5 Top
The thumbs up button under the reply... click it.


Thank you!
Reply #6 Top
This one I like very much. :CONGRAT: 
Reply #7 Top
ok.. looking at the code..

Code: vbscript
  1. 'Change object name to apply to new object
  2. ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
  3. ulHue = DesktopX.Object("3Dmetal_Clock_Hours").hue
  4. ulHue = DesktopX.Object("3Dmetal_Clock_Minutes").hue
  5. ulHue = DesktopX.Object("3Dmetal_Clock_Seconds").hue
  6. 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.
Reply #8 Top
"Whu set the same VAR "

um.. where's my EDIT button? Im speaking Zubazzish

"Why set the same VAR" - edited
Reply #9 Top
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.

Code: vbscript
  1. Sub Object_OnLButtonDown(x, y)
  2. Dim ulHue
  3. ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
  4. ulHue = ulHue + 10
  5. 'if hue is set to Black "1000" then set it back to Unshifted "0"
  6. If ulHue > 1001 Then ulHue = 0
  7. If ulHue > 255 And ulHue < 999 Then ulHue = 1000
  8. Call SetHue(ulHue)
  9. End Sub
  10. '*************************************************************
  11. 'Resets the hue to 0 if right clicked
  12. Sub Object_OnRButtonDown(x, y)
  13. Call SetHue(1000)
  14. End Sub
  15. 'Resets the hue to 0 if right clicked
  16. Sub Object_OnScriptEnter
  17. If Object.LocalStorage("Hue") = "" Then
  18. ulHue = 1000
  19. Else
  20. ulHue = Object.LocalStorage("Hue")
  21. End If
  22. Call SetHue(ulHue)
  23. End Sub
  24. Function SetHue(huesetting)
  25. DesktopX.Object("3Dmetal_Clock_Face").hue = huesetting
  26. DesktopX.Object("3Dmetal_Clock_Hours").hue =huesetting
  27. DesktopX.Object("3Dmetal_Clock_Minutes").hue = huesetting
  28. DesktopX.Object("3Dmetal_Clock_Seconds").hue = huesetting
  29. Object.LocalStorage("Hue") = huesetting
  30. desktopx.Object("test").text = huesetting
  31. End Function
+1 Loading…
Reply #10 Top
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 :)
+1 Loading…
Reply #11 Top
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!
Reply #12 Top

Hi 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

Reply #13 Top
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 ? ..
That's a hue shift . .and by design.
Reply #14 Top
I have a new one I need somebody to check if anyone wants toWWW Link
Reply #15 Top
Other than the fact that their is no actual clock . . it works.
Animation plays, close button destroys the object.  Shines are in place.
Reply #16 Top
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.
Reply #17 Top
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)
Reply #18 Top
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.


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.


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)


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
Reply #19 Top
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
Reply #20 Top
theAVMAN just gave it a test, shows date and time and the turbine is spinning.  ;) 
Reply #21 Top
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.
Reply #22 Top
Thanks guys! :) :)
Reply #23 Top
The close button seemed to take a bit to become active.


I moved to top layer earlier .Just now removed the child status and I think that got us!
Thanks again
Reply #24 Top
3D Metal that was an old link sorry!


Doh, didn't see that this thread started in May!!! :SURPRISED:

I tested the turbine-clock again, and the lag is now gone! :)
Reply #25 Top
I tested the turbine-clock again, and the lag is now gone!


Thank you very much! :)