I have downloaded this and was looking it over, found a few things that you might want to "update".
One of the issues was with the button being pressed when you dragged it. To solve this you use a little different call to the buttons.
Old:
Sub Object_OnLButtonUpEx(x,y,b)
DesktopX.Object("easy.button.base").SetTimer 100,10
'Calls the sound effect from base object
On Error Resume Next
Set Sh = CreateObject("WScript.Shell")
Sh.Run (Chr(34)& FilePath & Chr(34))
Set Sh = Nothing
end sub
New:
Function Object_OnLButtonUpEx(obj,x,y,dragged) '<== Shortcut Buttons (right click)
If Not dragged Then
DesktopX.Object("easy.button.base").SetTimer 100,10
'Calls the sound effect from base object
On Error Resume Next
Set Sh = CreateObject("WScript.Shell")
Sh.Run (Chr(34)& FilePath & Chr(34))
Set Sh = Nothing
end if
end function
This stops the button from being activated when you are dragging things around.
Also, I have a little different way of doing sounds, I will have to work on this a little and show you what i did. It embeds the sound into the widget and this way you dont need to tell it where they are etc.
I will work on that a little later, im sitting at the pool at the hotel in Tampa, and its too nice to be on the laptop.. LOL.. (80's and sunny)
Hope no one minds me making suggestions on this.
WinCustomize Forums
