I Wish
Labels
Wednesday, July 16, 2008 by PuterDudeJim | Discussion: DesktopX
Reply #2 Wednesday, July 16, 2008 11:27 AM
I would like to see this as an option within DX config-"show/don't show"- along with the ability to change all the label text color for all shortcuts at once.As PDJ has said,it's tedious to do one shortcut at a time.
Reply #3 Wednesday, July 16, 2008 1:00 PM
Yes, I appreciate your scripting Haptork. But I was hoping for a one click solution, to be part of DX, done by the DX programmers. I need a one-click, global solution. One at a time is way to slow and tedious. I am hoping for this to become an update to DesktopX in the next version? Set 1 setting, and it applies to all labels. It could adjust transparency, or color. Magic pink works well, but one at a time does not.
Reply #4 Wednesday, July 16, 2008 1:23 PM
Reply #5 Wednesday, July 16, 2008 1:35 PM
Sub Object_OnDropFiles(f)
For Each elem In object.Children
If elem.name = "" Then
elem.name = "dxico"
End If
Next
End If
DesktopX.Object("child object name").clone "clone1", posX, posY
DesktopX.Object("clone1").picture = DesktopX.Object("dxico").picture
DesktopX.Object(clone1).command = DesktopX.Object("dxico").command
DesktopX.Object("dxico").delete
End Sub
Reply #6 Wednesday, July 16, 2008 2:56 PM
You rock Dude!!! That is exactly what I needed. I just overlooked it. Thanx!!

Reply #7 Wednesday, July 16, 2008 3:31 PM
Now why didn't I think of that?
Thanks for this handy tip!

Reply #9 Monday, July 28, 2008 12:12 AM
It works until you turn it into a widget. (
Reply #10 Thursday, March 19, 2009 9:58 PM
Once it is a widget, the text comes back. Bummer!
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- 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!








Reply #1 Wednesday, July 16, 2008 11:12 AM
You can use script to completely remove the labels.
Create a background image set it as a container layer. Then create a child object with the dimensions you want the shortcuts to have and give it a name. Now set its position so that it gets invisible means something like -20 and -50. The script will be something like this...
Sub Object_ondropfiles(f)
msgbox "Click Ok to have a shortcut"
For Each elem In DesktopX.Object("background object name").Children
DesktopX.object.("child object name").picture = elem.picture
DesktopX.object.("child object name").command = elem.command
elem.delete
Next
Object.clone("child object name") "child1" posX, posY
End Sub
On dropfiles firstly there should be a check if there are multiple files dropped or only one. It only works for a single file drop. It cant work for jpeg, bmps cause there will be a menu on the drop of these file. but this can be partially solved by firstly checking the extension of file dropped.
You can have many shortcuts alighed by setting posX=DesktopX.object("child" & Right(Object.Name,Len(Object.Name)-5)-1)+ gap.
I know that I've written it in alot confusing way but I hope this will provide you atlest some help.