Cart Search
New Topic
Forum Home | Login
We have re-enabled logins for the forums, please be aware that you may need to reset your password or register for an account again while we continue to restore full functionality.
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274

scripting color

hue shift

June 14, 2008 10:15:53 PM from WinCustomize ForumsWinCustomize Forums
Hello all. I am trying to create an object that will control the hue of 5 other objects. I have a script that will allow me to change each objects color individually. But I need to change them all at once. Can anyone help me? I will post the script I am using below.      Thanx.
'Called when L-click is released
Function Object_OnLButtonUp(x, y, dragged)
 If Not dragged Then
  'Store the current hue in variable
  hueshift = Object.hue
  'If current hue is equal to or greater than 255
  'reset to 0
  If hueshift => 255 Then
   hueshift = 0
  'If hue is not yet 255, keep adding
  Else
   hueshift = hueshift + 7
  End If
  'Set the object hue
  object.hue = hueshift
 End If
End Function
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
ArileenDesign
Join Date 08/2006
+119
Reply #1 June 15, 2008 6:31:36 AM
from WinCustomize ForumsWinCustomize Forums
I use this script to change the hue of all objects i want.


Code: vbscript
  1. Sub Object_OnLbuttonUp(x,y,dragged)
  2. If Not dragged Then
  4. If DesktopX.Object("ObjectName1").States("").Hue => 255 Then
  5. DesktopX.Object("ObjectName1").States("").Hue = 0
  6. Else
  7. DesktopX.Object("ObjectName1").States("").Hue = DesktopX.Object("ObjectName1").States("").Hue + 15
  8. End If
  10. If DesktopX.Object("ObjectName2").States("").Hue => 255 Then
  11. DesktopX.Object("ObjectName2").States("").Hue = 0
  12. Else
  13. DesktopX.Object("ObjectName2").States("").Hue = DesktopX.Object("ObjectName2").States("").Hue + 15
  14. End If
  16. End If
  17. End Sub


Simply add any other elements like ObjectName3 before the last End If:

Code: vbscript
  1. If DesktopX.Object("ObjectName3").States("").Hue => 255 Then
  2. DesktopX.Object("ObjectName3").States("").Hue = 0
  3. Else
  4. DesktopX.Object("ObjectName3").States("").Hue = DesktopX.Object("ObjectName3").States("").Hue + 15
  5. End If


yeah i know when you have a theme it begins to be really crazy.

Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
Vad_M
Join Date 08/2004
+117
Reply #2 June 15, 2008 8:02:12 AM
from WinCustomize ForumsWinCustomize Forums
This is very easy! Just use this code:

Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
Dim objects
objects = Array("name1","name2","name3","name4","name5") '<== enter the names of your objects here
'Store the current hue in variable
hueshift = Object.hue
'If current hue is equal to or greater than 255
'reset to 0
If hueshift => 255 Then
hueshift = 0
'If hue is not yet 255, keep adding
Else
hueshift = hueshift + 7
End If
'Set the object hue
For Each item In objects
desktopx.object(item).states("").hue = hueshift
'or use this if you need change hue for current state only
'desktopx.object(item).hue = hueshift
Next
Set objects = nothing '<== clear memory
End If
End Function

Best Regards.   
+1
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
ArileenDesign
Join Date 08/2006
+119
Reply #3 June 15, 2008 10:19:20 AM
from WinCustomize ForumsWinCustomize Forums
Good! I used this on my old work, but since i'm learning script (yeah before i knew nothing about it, was just missing around)
I should have thought about Array, way better and easier.
ArileenDesign was sure he needed to rewrite all his codes... 
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #4 June 15, 2008 10:27:10 AM
from WinCustomize ForumsWinCustomize Forums
If all the items are in a group, let me throw another one out there.
Same as Vlad's but, without array, etc.
Code: vbscript
  1. Function Object_OnLButtonUp(x, y, dragged)
  2. If Not dragged Then
  3. 'Store the current hue in variable
  4. hueshift = Object.hue
  5. 'If current hue is equal to or greater than 255
  6. 'reset to 0
  7. If hueshift => 255 Then
  8. hueshift = 0
  9. 'If hue is not yet 255, keep adding
  10. Else
  11. hueshift = hueshift + 7
  12. End If
  13. ' Set the Object Hue
  14. For Each Item In DesktopX.GroupObjects("grpMyObjects")
  15. Item.states("").hue = hueshift
  16. 'or use this if you need change hue for current state only
  17. 'Item.hue = hueshift
  18. Next
  19. Set objects = nothing '<== clear memory
  20. End If
  21. End Function
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #5 June 15, 2008 7:00:01 PM
from WinCustomize ForumsWinCustomize Forums
Thanx all! I need to know how to script to toggle all sounds in a theme. Is that doable? Thanx again?
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #6 June 15, 2008 7:45:34 PM
from WinCustomize ForumsWinCustomize Forums
I use boolean variables in the Birthday Widget that's in the works. The main question is does each object have a different sound.

This will work if all objects have the same sound.

Code: vbscript
  1. ' Declare Boolean Variable & Set
  2. Dim blnMute : blnMute = False
  3. ' Declare & Set Sound File
  4. Dim oSndFile : oSndFile = "C:\mysoundfile.wav"
  6. Function Object_OnLButtonUp(x, y, dragged)
  7. If Not dragged Then
  8. For Each Item In DesktopX.GroupObjects("grpMyObjects")
  9. If blnMute=False Then
  10. Ext=Right(oSndFile ,3)
  11. ' Verify correct extension
  12. If Ext="wav" Or Ext="WAV" Or Ext="mp3" Or Ext="MP3" Or Ext="Mp3" Then
  13. Item.Sound=oSndFile
  14. Else
  15. msgbox "Not a Valid Sound File"
  16. End If
  17. ElseIf blnMute=True Then
  18. Item.Sound=""
  19. End If
  20. Next
  21. End If
  22. End Function
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #7 June 15, 2008 9:20:42 PM
from WinCustomize ForumsWinCustomize Forums
I use boolean variables in the Birthday Widget that's in the works. The main question is does each object have a different sound.

This will work if all objects have the same sound.


4 different sets of sounds. Does this script go in the button to toggle the sounds? I assume that the C:\mysoundfile.wav needs to be changed to the name of the wav file?
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #8 June 16, 2008 12:00:48 AM
from WinCustomize ForumsWinCustomize Forums
Yeah that would go into the sound toggle button. I'm going to break the script down easier. If you're going to package a theme then make sure the sound files are attached via the custom files option.

This should do the job.
Code: vbscript
  1. ' Declare Boolean
  2. Dim blnMute
  4. Function Object_OnLButtonUp(x, y, dragged)
  5. If Not dragged Then
  6. If blnMute=False Then
  7. ' Turn on Sounds
  8. blnMute=True
  9. DesktopX.Object("object1").Sound="C:\mysoundfile.wav"
  10. ' If you use custom files then you just need to enter the name
  11. DesktopX.Object("object2").Sound="mysoundfile.wav"
  12. ' Use this for a specific state sound
  13. DesktopX.Object("object3").States("Mouse down").Sound= "somesound.wav"
  14. DesktopX.Object("object4").Sound=
  15. ElseIf blnMute=True Then
  16. ' Disable Sounds
  17. blnMute=False
  18. DesktopX.Object("object1").Sound=""
  19. DesktopX.Object("object2").Sound=""
  20. ' Use this for a specific state sound
  21. DesktopX.Object("object3").States("Mouse down").Sound=""
  22. DesktopX.Object("object4").Sound=""
  23. End If
  24. End If
  25. End Function
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #9 June 16, 2008 3:49:26 PM
from WinCustomize ForumsWinCustomize Forums
Used this, did not work. Getting an error message.

' Declare Boolean
Dim blnMute

Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
If blnMute=False Then
' Turn on Sounds
blnMute=True
DesktopX.Object("object1").Sound="Windows Restore.wav"
' If you use custom files then you just need to enter the name
DesktopX.Object("object2").Sound="Windows Battery Low.wav"
' Use this for a specific state sound
DesktopX.Object("object3").States("Mouse down").Sound= "Windows Critical Stop.wav"
DesktopX.Object("object4").Sound="Windows Logon Sound.wav"
DesktopX.Object("object5").Sound="Windows Minimize.wav"
ElseIf blnMute=True Then
' Disable Sounds
blnMute=False
DesktopX.Object("object1").Sound=""
DesktopX.Object("object2").Sound=""
' Use this for a specific state sound
DesktopX.Object("object3").States("Mouse down").Sound=""
DesktopX.Object("object4").Sound=""
DesktopX.Object("object5").Sound=""
End If
End Function


Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
Vad_M
Join Date 08/2004
+117
Reply #10 June 16, 2008 4:14:11 PM
from WinCustomize ForumsWinCustomize Forums
DesktopX.Object("object1").Sound="Windows Restore.wav"
' If you use custom files then you just need to enter the name
DesktopX.Object("object2").Sound="Windows Battery Low.wav"
' Use this for a specific state sound
DesktopX.Object("object3").States("Mouse down").Sound= "Windows Critical Stop.wav"
DesktopX.Object("object4").Sound="Windows Logon Sound.wav"
DesktopX.Object("object5").Sound="Windows Minimize.wav"


Hmmm... I see that you tried to play 5 sounds simultaneously.    Seems this is impossible...

What the error message have you received?
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #11 June 16, 2008 9:14:52 PM
from WinCustomize ForumsWinCustomize Forums
All the sounds should be when mouse down, and not all at the same time.But 5 different sounds.


Error = Object required: 'DesktopX.Object(...)'
Line: 9
Code:
(not available)
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #12 June 16, 2008 9:15:58 PM
from WinCustomize ForumsWinCustomize Forums
Hmmm... I see that you tried to play 5 sounds simultaneously. Seems this is impossible...

What the error message have you received?


Ha ha...guess I spent to much time on the computer. Forgot that there is no "set sound" option and it only plays. I'm dead tired but, should have something for you soon.

Edit: PS you also didn't close off all the If Statements; so, add another "End If" on a line above the End Function
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #13 June 16, 2008 9:18:36 PM
from WinCustomize ForumsWinCustomize Forums
Oops...double post. Darn it!
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #14 June 16, 2008 9:42:48 PM
from WinCustomize ForumsWinCustomize Forums
Do the objects you want to change the sounds on have the same parent object?

Actually, if you just want to turn the object sounds on/off then object.volume might be better. Was looking and hoping for an object.mute namespace but, it's actually just object.volume=0
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #15 June 16, 2008 9:48:35 PM
from WinCustomize ForumsWinCustomize Forums
Do the objects you want to change the sounds on have the same parent object?


The first set of buttons have the same parent object. The second set of buttons share a different parent object, etc.
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #16 June 16, 2008 9:58:59 PM
from WinCustomize ForumsWinCustomize Forums
Forget the question about the parent objects. Using the object.volume makes more sense.

This should work

Code: vbscript
  1. ' Declare Boolean
  2. Dim blnMute
  3. Function Object_OnLButtonUp(x, y, dragged)
  4. If Not dragged Then
  5. If blnMute=False Then' Turn on Sounds
  6. blnMute=True
  7. DesktopX.Object("object1").Volume=100
  8. DesktopX.Object("object2").Volume=100
  9. DesktopX.Object("object3").Volume= 100
  10. DesktopX.Object("object4").Volume=100
  11. DesktopX.Object("object5").Volume=100
  12. ElseIf blnMute=True Then' Disable Sounds
  13. blnMute=False
  14. DesktopX.Object("object1").Volume=0
  15. DesktopX.Object("object2").Volume=0
  16. DesktopX.Object("object3").Volume=0
  17. DesktopX.Object("object4").Volume=0
  18. DesktopX.Object("object5").Volume=0
  19. End If
  20. End If
  21. End Function
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #17 June 16, 2008 10:07:36 PM
from WinCustomize ForumsWinCustomize Forums
I put this in:

' Declare Boolean
Dim blnMute
Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
If blnMute=False Then' Turn on Sounds
blnMute=True
DesktopX.Object("Windows Restore.wav").Volume=100
DesktopX.Object("Windows Battery Low.wav").Volume=100
DesktopX.Object("Windows Critical Stop.wav").Volume= 100
DesktopX.Object("Windows Logon Sound.wav").Volume=100
DesktopX.Object("Windows Minimize.wav").Volume=100
ElseIf blnMute=True Then' Disable Sounds
blnMute=False
DesktopX.Object("Windows Restore.wav").Volume=0
DesktopX.Object("Windows Battery Low.wav").Volume=0
DesktopX.Object("Windows Critical Stop.wav").Volume=0
DesktopX.Object("Windows Logon Sound.wav").Volume=0
DesktopX.Object("Windows Minimize.wav").Volume=0
End If
End If
End Function


Got this:


Object required: 'DesktopX.Object(...)'
Line: 7
Code:
(not available)   
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #18 June 16, 2008 10:08:13 PM
from WinCustomize ForumsWinCustomize Forums
Do I just put this script into a button?
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
SirSmiley
Join Date 06/2005
+38
Reply #19 June 16, 2008 11:16:59 PM
from WinCustomize ForumsWinCustomize Forums
Yep, just put this script into the button you want to control the sounds with.

You need to put the object names in the quotation marks not the sound files. You can just add those through the DesktopX Gui like you normally would.
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #20 June 17, 2008 12:32:27 AM
from WinCustomize ForumsWinCustomize Forums
I did what you said, no error messages, just didn't work. Hmmm....
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
Vad_M
Join Date 08/2004
+117
Reply #21 June 17, 2008 5:27:02 AM
from WinCustomize ForumsWinCustomize Forums
Hey friends! I think that this way is erroneous... So try this Jim:

1. Create new object and name it like "sound".

2. Create a few states in this object:

disable <-- The first state. Do nothing here!

Add your *.wav files to the other states: tab "States" --> tab "Sound" --> button "Browse" --> button "Apply"
Restore <-- Windows Restore.wav
LowBattery <-- Windows Battery Low.wav
CriticalStop <-- Windows Critical Stop.wav
Logon <-- Windows Logon Sound.wav
Minimize <-- Windows Minimize.wav
Now you have a special object with all of the necessary sounds.

3. Coppy this code to your button:

Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
Dim sfx : sfx = desktopx.object("sound").state
Select Case sfx
Case "disable" '<== Silent (no sound)
sfx = "Restore"
Case "Restore" '<== Windows Restore.wav
sfx = "LowBattery"
Case "LowBattery" '<== Windows Battery Low.wav
sfx = "CriticalStop"
Case "CriticalStop" '<== Windows Critical Stop.wav
sfx = "Logon"
Case "Logon" '<== Windows Logon Sound.wav
sfx = "Minimize"
Case "Minimize" '<== Windows Minimize.wav
sfx = "disable"
End Select
desktopx.object("sound").state = sfx : Set sfx = nothing
End If
End Function

Press your button again and again to hear each of your sounds one after another.

4. Now you just need to write a simple code which will control your sounds...

Have a nice day with DesktopX.   


Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #22 June 17, 2008 10:15:54 AM
from WinCustomize ForumsWinCustomize Forums
Reply #21 is awesome, but it did not work, I clicked the button and got no sounds. Even though I added the sounds to the states and applied the script. I have decided not to worry about turning off sounds, that is why there is a volume button on the PC. Thanx for all the work.
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
Vad_M
Join Date 08/2004
+117
Reply #23 June 17, 2008 12:06:36 PM
from WinCustomize ForumsWinCustomize Forums
This code should work because I tested it before sending here. More than I have used the similar method in the all of my projects. So I think that you do something wrong...
Reason for Karma (Optional)
Successfully updated karma reason!
PuterDudeJim
PuterDudeJim
Join Date 10/2004
+274
Reply #24 June 17, 2008 8:55:22 PM
from WinCustomize ForumsWinCustomize Forums
So I think that you do something wrong...


Probably. It's a bit too complicated for me. Thanx tho.
Reason for Karma (Optional)
Successfully updated karma reason!
Stardock Forums v        Server Load Time:   Page Render Time: