scripting color

I use this script to change the hue of all objects i want.




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



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

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.   

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.
/ME was sure he needed to rewrite all his codes... 

If all the items are in a group, let me throw another one out there.
Same as Vlad's but, without array, etc.

Thanx all! I need to know how to script to toggle all sounds in a theme. Is that doable? Thanx again?

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?

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.

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

---

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

What the error message have you received?

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)

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

Oops...double post. Darn it!

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

The first set of buttons have the same parent object. The second set of buttons share a different parent object, etc.

Forget the question about the parent objects. Using the object.volume makes more sense.

This should work

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)   

Do I just put this script into a button?

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.

I did what you said, no error messages, just didn't work. Hmmm....

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.   

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.

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...

Probably. It's a bit too complicated for me. Thanx tho.