Object.States("name").Picture

This allows you to get/set the picture of an object or state.
Example:

Object.Picture = “image01.png”
Object.States(“Mouse away”).Picture = “C:\images\image01.png”
Object.Picture = http://www.something.com/pic.png

or

DesktopX.Object("nameofobject").states("Mouse away").Picture = "myimage.png"

Example2:

Sub Object_OnDropFiles(files)
Object.picture = files
End Sub

I think i might be able to shed a little light on this

First create an object and attach this script to it; this will be the parent object

Dim strname
Dim i
Const link = "link"
Sub Object_OnDropFiles(File)
  i=0
  Do
    i = i+1
    strname = link & i
  Loop until DesktopX.IsObject(strname)=False
Object.SetTimer 33, 100
End Sub

Sub Object_OnTimer33
Object.Killtimer 33
For Each elem In Object.Children
    If elem.name = "" Then
    Set fso = CreateObject("Scripting.FileSystemObject")
   
DesktopX.object(link&(i-1)).Clone strname,  DesktopX.object(link&(i-1)).left, _
        DesktopX.object(link&(i-1)).bottom+2
            DesktopX.Object(strname).Picture = elem.picture
            DesktopX.Object(strname).Command = elem.Command
            DesktopX.Object(strname).TooltipText = fso.getbasename(DesktopX.Object(strname).command)
            DesktopX.Object(strname).width = elem.width*1.5
            DesktopX.Object(strname).height = elem.height*1.5
            DesktopX.Object(strname).Opacity = 70
            elem.delete
            If Desktopx.IsObject(link&(i-1))=True And (i-1) > 0 Then
       
              If (Desktopx.Object(link&(i-1)).Right + 10) + DesktopX.Object(strname).width < (Object.Width) Then
                    DesktopX.Object(strname).Left = Desktopx.Object(link&(i-1)).Right + 10
                    DesktopX.Object(strname).bottom = Desktopx.Object(link&(i-1)).Bottom
                Else
                    If (Desktopx.Object(link&(i-1)).Bottom + 5) + DesktopX.Object(strname).height < (Object.Height) Then
                        DesktopX.Object(strname).left = 15
                        DesktopX.Object(strname).top = Desktopx.Object(link&(i-1)).Bottom + 5
                    Else
                        Msgbox "List is full! Delete an old link and try again!"
                        DesktopX.Object(strname).delete
                    End If
               
                End If
            Else
                DesktopX.Object(strname).left = 15
                DesktopX.Object(strname).top = 15
            End If
    End If
Next
End Sub

Now, create another object but make sure that it has no image attached to it. Attach the following script to said object

Dim i
Dim templeft
Dim temptop
Const link = "link"
Const Parent = "internet_list"
Function Object_OnRButtonUpEx(obj, x, y, dragged)
  If Not dragged Then
     DeleteIconMenu(obj)
    Object_OnRButtonUpEx = True
    End If
End Function

Sub DeleteIconMenu(obj)
         Set mainmenu = nothing
     Set mainmenu = DesktopX.CreatePopupMenu    
     mainmenu.AppendMenu 0, 1, "Delete" 
     mainmenu.AppendMenu 0, 2, "Cancel" 
     result = mainmenu.TrackPopupMenu(0, System.CursorX, System.CursorY)
    Select Case result
      Case 1
             i=0
                  Do
                    i = i+1
                    strname = link & i
                  Loop until strname = Object.Name
                  
                 templeft = Object.Left
                 temptop = Object.Top
                 Object.delete
                For x = i To DesktopX.Object(Parent).Children.count
                    If DesktopX.IsObject(link & x+1) = True Then
                        Desktopx.Object(link & x+1).name = link & x
                        If Desktopx.Object(link & x).Top = temptop Then
                            temp = Desktopx.Object(link & x).left
                            Desktopx.Object(link & x).Left = templeft
                            templeft = temp
                        Else
                            temp = Desktopx.Object(link & x).Top
                            Desktopx.Object(link & x).Top = temptop
                            temptop = temp
                            temp = Desktopx.Object(link & x).Left   
                            Desktopx.Object(link & x).Left = templeft
                            templeft = temp
                        End If
                    End If
                Next
            Case 2
           
    End Select
End Sub

Sub Object_OnMouseEnterEx(Obj)
Object.Opacity = 100
End Sub
Sub Object_OnMouseLeaveEx(Obj)
Object.Opacity = 70
End Sub


and that provides an interface where the user can drag and drop a program onto the parent object and the image, name as well as command will be copied into a new object

Make sure to look over the code as I simply copied and pasted this from my desktop so you'll have to customize it for yourself. Feel free to ask me for help though

Hi Automan,

I have seen your post and am giving it some thought right now; I'll post my reply later tonight hopefully!

EDIT:

Ok, so I read over your post but i'm not quite sure what you're trying to do but maybe you can help me to understand;

So are you trying to make a... widget of sorts, which AUTOMATICALLY creates shortcut objects which lead to certain program that a user uses most?

Or are you trying to make it such that a user can simply drop his program into the object and it updates then?

Also, as for your idea about making the objects have a background image for mouse away and background image for mouseover, have you tried setting the images backwards?

meaning, for the image that you want to show when you're moused away, set its image for the state "mouse away" and set NO IMAGE for the state "Hide" . then attach a script to that image with an Object_OnMouseEnterEx(Obj) subroutine which hides the "shortaway" image and then shows the short over image.

you should then attach another script to the short over image with the subroutine Object_OnMouseLeaveEx(Obj) which hides the short over object and shows the short away object.

Now i'm not sure if that helps but I hope it does...

PS. Maybe a video demo of what you're trying to do would help me understand it better

Hi Homer1234

Yes The Menu system wether Graphics or Media, etc., will allow the user to drop the software link into the object like in the following link:

Graphics Menu opened by Graphics Menu tab on the Bar at top center/right side of the date: https://www.wincustomize.com/zoom.aspx?skinid=24943&libid=13

You can see the software dropped shortcuts on top of the "Graphics Menu Back", but you can also see the let's say "MenuBackShortCut1" as a rectangle behind and around the software links, it's really just the first background object used behind the real "Dropped Shortcuts", like the Adobe Media player right side middle way down the toggled Graphic's menu background object, making it look as if we have an mouse away shortcut, butt really there is the  "MenuBackShortCut1", and the shortcut image on top of it with the 'shortcut image name at the bottom of it all.

The scripting is placed into the Larger toggled "Graphic's Menu Image", with Graphics as a label at the bottom and has the gold coloring in the image.

Everytime the user drops a new shortcut object onto the "Graphic's Menu", it places the first "MenuBackShortCut1", png file behind the new shortcut. Then when the use wants to launch a shortcut the "MenuBackShortCut1",  will on "DesktopX.Object -- Short cut name" event change the image behine the short cut to "MenuBackShortCut2" and then they click the image and launch the application.

Hope this helps, I will do an image of the Graphics Menu and show the 1st and 2nd shortcut images in use and then all I have to do is figureout how to get the vbscript right.

The really COOL part of this menu system is that you can drag and drop a shortcut to the Graphics Background layer and have 1 shortcut background image on the actual "Mouse away" state and then use another shortcut background image show behind the shortcut in the actual "Mouse away" with out scripting the shortcut itself at all just the main Graphics Background. That frees you to actually do this  and make the realy top shortcut zoom in and out with it's script area.

Hope this helps and will get a note off to yu when I get the illistratution up showing process...

Thanks a million again...

Automan

Hey there Homer1234 and sViz;

I think that I have created a really good representation of my Graphics Meny toggled visible and have placed all images used on the actual toggled popup menu background with explanations of the so called workings of "Back1.png" and "Back2.png" as the events of the actual shortcut's state changes from "Mouse away" to "Mouse over" monitored by the pop-up Menu Background itself.

The shortcut when dropped onto the main toggled background would have to use the "Shortcuts label:" or what ever item to place the same name by script into the Summary Tabs "Object ID" for the scripts referencing for the background change on the object's state to reference the correct shortcut and change the background of the object to "Back2.png". At least thats the only way I can think of automatically naming the Object ID. Also the Parent owner is unassigned " at least mine are, ran into weird DesktopX alignments when I tried to make the parent the actua l"Graphics Back", the same happened with all of the menu system sections. I have the main Graphics Background Parent/owner the Toggle button name that makes the pop-up or toggle of the Graphics background work.

I have set in DesktopX Settings the label settings to color white for both mouse away and mouse over no color change, also set the font dor Verdana 8pt. Bold which looks good and most folks will have the Verdanafont installed with Vista and XP.

Below is the link to all of the graphics mentioned and I hope that the one that actually shows the Graphics toggled background with the images on it and the explanations there also will help narrow down what I am trying to do.

http://cid-354ca46fe39955d1.skydrive.live.com/browse.aspx/System%20Images/Buttom%20Backgrounds?uc=5&isFromRichUpload=1

You can click each image a couple of times to bring up a larger view.

OK well guess I have bent you folks eyeballs enough...for right now.

Please let e know what you think, I just know that there has to be a way of doing this. and sViz I will definettly take a look at the link you have me on the one you built.

I appreciate all of this a lot, which I had spent as much time getting back into programming as I have with the Graphic's.

Till then...

Automan