This video is private...I'm not see.

Sorry. Fixed and made public.

Here is a link for the tutorial/script

Let me try to explain...

1. Click windows button to go to menu
2. First choice is 'Folders' and you have the two arrows. Forward> for next choice, <back for previous. (In this first instance, '<back' would take you back to the windows button.)
   
3. Press forward and what I WANT to happen is 'Folders' slides <back and 'Media' slides forward>
4. To go to 'next' choice, press the forward> arrow - To go back to 'Folders' press the <back arrow
5. and so on
6. You can click on the object (ie, Folders) to call up your folders, etc.

I found that one this morning. It's what I want..BUT......try adding a third target

'Target3'

This is what I have.

Const oTarget = "Target01"
Const oTarget2 = "Target03"
Const oTarget3 = "Target02"

Function Object_OnLButtonUp(x, y, Dragged)
If Dragged = False Then
If desktopx.Object(oTarget).left = 0 Then
object.KillTimer 100
object.SetTimer 200,17
Else
object.KillTimer 200
object.SetTimer 100,17
End If
End If
End Function

Sub Object_OnScriptEnter
With DesktopX
.Object(oTarget).left = 0
.Object(oTarget2).left = -410
.Object(oTarget3).left = -410
End With
End Sub

Sub object_ontimer100
If desktopx.Object(oTarget).left < 0 Then
desktopx.Object(oTarget).left = desktopx.Object(oTarget).left + 10
desktopx.Object(oTarget2).left = desktopx.Object(oTarget2).left - 10
desktopx.Object(oTarget3).left = desktopx.Object(oTarget3).left - 0
Else
object.KillTimer 100
End If
End Sub

Sub object_ontimer200
If desktopx.Object(oTarget).left > -410 Then
desktopx.Object(oTarget).left = desktopx.Object(oTarget).left - 10
desktopx.Object(oTarget2).left = desktopx.Object(oTarget2).left + 10
desktopx.Object(oTarget3).left = desktopx.Object(oTarget3).left - 0
Else
object.KillTimer 200
End If End Sub

Now, targets 'Target' and 'Target2' still slide back and forth if I leave it like this. But, if i change the last paragraph of code to what I think should work (have 'Target2' slide back and 'Target3' slide in while 'Target' stays out of view) nothing happens at all.

Code I tried in last paragraph..

Sub object_ontimer200
If desktopx.Object(oTarget).left > -410 Then
desktopx.Object(oTarget).left = desktopx.Object(oTarget).left - 0
desktopx.Object(oTarget2).left = desktopx.Object(oTarget2).left - 10
desktopx.Object(oTarget3).left = desktopx.Object(oTarget3).left + 10
Else
object.KillTimer 200
End If End Sub

I tried changing other bits, but nothing happens. Everything sits still.

I want to keep clicking on the >forward' arrow to 'slide' through 4 objects...not just back and forth between two. The bottom arrow would do the same thing in reverse.

Po... if you can send me this ill look at it

Its working now, check email!

No problems bud.. it was close, i just made it easier to add more items to it.  Now you can add as many sliding objects as you want, without any real code changes.

All you would have to edit is:

Const oCount = 3 ---- CHANGE THIS TO THE MAX NO OF ITEMS
Dim oTarget(3) ----- CHANGE THE 3 to BE THE MAX NO LIKE ABOVE
oTarget(1) = "Target01"
oTarget(2) = "Target02"
oTarget(3) = "Target03"

oTarget(4) = "Target04" --- ADD MORE HERE

And you could name the actual objectes anything you want.

The graphics are wonderful, just need to be about 1/2 the size.. LOL

If you do change the size, just change these:

Const EndPos = -410
Const StartPos = 0

Espically the -410 to the right value for the smaller objects.  You could also allow a "scale factor" in the setup like

SCALE: Full Size,80%,75%,etc

Then you could store that in a Var and just do this:

ScaleFactor = .75 (or 1.0, or 2.0 or .50)

EndPos = -410 * ScaleFactor

This would allow the script to move things the correct distance based on the scale factor.

Just an idea.

That's sweet

Cool!

Having fun David?

I have to say that I really enjoy collaboratins on WC.  Over and over again I see a greater result than what we could do alone.

Wohoho!!

THis will be the opening screen. Clicking on the button, it should fade out and the menu fad in. The small button will appear in the lower right corner and when clicked on will clear the screen and put the big button back.

That's my working wallpaper for now. I'm struggling and fighting myself to keep it all simple, high contrast (I switched from the original black and white, what do you think?) and very user friendly and easy to navigate. I have a ways to go with the rest of it, but comments are welcome. I'm using my wife to help. SHe hates all this skinning stuff, gadgets, etc. SO I ask her if something's too much or if I am adding something that is keeping it from being simple.

RomanDA I tried the resizing script. It threw everything all over the place, but I put it back together. I'll have to let you test it when I'm done. I'm worried that different screen reolutions will ave the same effect. This is it scaled at 1.0. My desktop is 1440x900.

Question- Where would I put the fade script?

Just checking in from work.

I'll send it to you when I get it done. I have some stuff to add. This way I won't have to keep sending it back and forth. I'm hoping I can figure it out on my own, though I apreciate the help.  I 'm frustrated because I have another theme I did manage to get the fading right on (It's sitting because of an issue of how I want it to fade) but I can't get it to work onthis one at all. Give me another day or two and maybe I can save you the trouble. I don't wanna keep coming on here cryin cause I can't figure it out myself. lol.