Help Needed With Mask in DesktopX

Tuesday, February 17, 2009 by PoSmedley | Discussion: DesktopX Tutorials

I am trying to follow RomanDA's script for masks.  I want to 'swap out' multiple objects. $ (possibly5..maybe 6..but if I get just 4 I'd be happy)

I tried making multiple widgets..but having to go in and set each and every object...nah. I tried to do it all with the scripting..but..well..it goes all goofy on me.

I am using the 'arrows' (see video below) to 'slide' them in and out. I want to use the top arrow to keep advancing and the bottom arrow to go back to the previous one. I'd like to put them all in one widget so I can have a button to go back to the main bar. The video will explain or show what I mean AND what I am doing wrong, better.

 

 

 

Can anyone help with this? I can't figure hiw to have four or more objects and have them come in and out seperatley. I hope you can understand what I mean.

44 Reply 15 Referrals
First Previous Page 1 of 3 Next Last
WebGizmos
Reply #1 Tuesday, February 17, 2009 5:39 AM

I'm as confused as a baby in a topless bar!


bilbo1930
Reply #2 Tuesday, February 17, 2009 5:44 AM

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


superman
Reply #3 Tuesday, February 17, 2009 5:55 AM

Dear, would you please post the link for script which you are trying to use? I am not able to get any idea from video.


PoSmedley
Reply #4 Tuesday, February 17, 2009 6:37 AM

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.

bilbo1930
Reply #5 Tuesday, February 17, 2009 7:47 AM

You can try this: link not available

dxpack.

some object not visible (100% trans...) 


PoSmedley
Reply #6 Tuesday, February 17, 2009 9:54 AM

You can try this:

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.


PoSmedley
Reply #7 Tuesday, February 17, 2009 8:18 PM

Padded Room


RomanDA
Reply #8 Tuesday, February 17, 2009 9:19 PM

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


PoSmedley
Reply #9 Wednesday, February 18, 2009 8:42 AM

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

It's in the mail. Thank you!


RomanDA
Reply #10 Wednesday, February 18, 2009 9:56 AM

Its working now, check email!


PoSmedley
Reply #11 Wednesday, February 18, 2009 8:09 PM

Its working now, check email!

It's perfect! And I can add objects to it. EXACTLY what I wanted. Thank you. I'm sorry you had to re-write it. I was sure I was just missing something with my original script and was hoping I was at least close.

 

Thanks again!


RomanDA
Reply #12 Thursday, February 19, 2009 10:29 AM

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.

 


RomanDA
Reply #13 Thursday, February 19, 2009 10:54 AM

Ok.. PO.. try this..

1. change the name of MASX to Mask -- case is important here

Replace the code with this:

Code: vbscript
  1. 'Assign a constant for each object
  2. 'Reason: It's easier to change Object Names in one spot than an entire script
  3. 'Eg. If you rename an object than just change the name in the quotes
  4. ScaleFactor = 1.0
  5. oCount = 3
  6. EndPos = -410
  7. StartPos = 0
  8. oItem = 1
  9. nItem = 2
  10. Dim oTarget(3)
  11. oTarget(1) = "Target01"
  12. oTarget(2) = "Target02"
  13. oTarget(3) = "Target03"
  15. Sub Object_OnScriptEnter
  17.     Call ScaleMe()
  18.     oItem = 2 'This is the DEFAULT item it shows.. 1,2, or 3 in this case
  19.     ' You could make this read the value from a persiststorage
  20.     'you would have to add a write for it at the end of each TIMER section
  21.    
  22.     'We then set ALL items left to EndPos
  23.   For x = 1 To oCount
  24.       DesktopX.Object(oTarget(x)).left = EndPos
  25.   Next
  26.   'Then we set the CURRENT item's left to 0
  27.   DesktopX.Object(oTarget(oitem)).left = 0
  28. End Sub
  31. ' The reson for the below function is so we can keep ALL
  32. ' the code in 1 object, the buttons have "EMPTY" scripts now
  33. ' it Checkes the NAME of the Button - this has to match EXaCtLy - Case Sensitive
  34. Function Object_OnLButtonUpEx(obj,x,y,dragged)
  35.     If Not dragged Then
  36.         Select Case obj.name
  37.     Case "BTN_Next"
  38.         object.SetTimer 100,17
  39.     Case "BTN_Prev"
  40.         object.SetTimer 200,17
  41.         End Select
  42.   End If
  43. End Function
  46. 'This timer is for the NEXT function
  47. Sub object_ontimer100
  48.     nItem = oItem + 1
  49.     If nItem > oCount Then nItem = 1
  50.     CurItem = oTarget(oItem) ' Current items name
  51.      NextItem = oTarget(nItem) ' NEXT items name
  52.   If desktopx.Object(CurItem).left > EndPos Then
  53.     desktopx.Object(CurItem).left = desktopx.Object(CurItem).left - 10
  54.     desktopx.Object(NextItem).left = desktopx.Object(NextItem).left + 10
  55.   Else
  56.         oItem = oItem + 1 ' We ADD 1 to the Current item AFTER we are done moving things
  57.         If oItem > oCount Then oItem = 1 ' same check as above to see if the item+1> total items
  58.     object.KillTimer 100
  59.   End If
  60. End Sub
  62. 'We do the same thing for the PREVIOUS button except
  63. 'we subtract 1 from the current item
  64. 'if its less then 0 we go to the END of the total count
  65. 'in this case that means item 3
  66. Sub object_ontimer200
  67.     nItem = oItem - 1
  68.     If nItem < 1 Then nItem = oCount
  69.     CurItem = oTarget(oItem)
  70.      NextItem = oTarget(nItem)
  71.   If desktopx.Object(CurItem).left > EndPos Then
  72.     desktopx.Object(CurItem).left = desktopx.Object(CurItem).left - (10 * ScaleFactor)
  73.     desktopx.Object(NextItem).left = desktopx.Object(NextItem).left + (10 * ScaleFactor)
  74.   Else
  75.         oItem = oItem - 1
  76.         If oItem < 1 Then oItem = oCount
  77.     object.KillTimer 200
  78.   End If
  79. End Sub
  81. Function ScaleMe()
  82.     desktopx.Object("MENU1").resize (609 * ScaleFactor),(180 * ScaleFactor)
  84.     desktopx.Object("title1").resize (70 * ScaleFactor),(157 * ScaleFactor)
  85.     desktopx.Object("title1").top = 5 * ScaleFactor
  86.     desktopx.Object("title1").left = 35 * ScaleFactor
  88.     desktopx.Object("Mask").resize (410 * ScaleFactor),(180 * ScaleFactor)
  89.     desktopx.Object("Mask").top = -5 * ScaleFactor
  90.     desktopx.Object("Mask").left = 110 * ScaleFactor
  91.    
  92.     desktopx.Object("BTN_Next").resize (40 * ScaleFactor),(53 * ScaleFactor)
  93.     desktopx.Object("BTN_Next").top = 16 * ScaleFactor
  94.     desktopx.Object("BTN_Next").left = 515 * ScaleFactor
  96.     desktopx.Object("BTN_Prev").resize (40 * ScaleFactor),(53 * ScaleFactor)
  97.     desktopx.Object("BTN_Prev").top = 107 * ScaleFactor
  98.     desktopx.Object("BTN_Prev").left = 515 * ScaleFactor
  100.    
  101.     For x = 1 To oCount
  102.         desktopx.Object(oTarget(x)).resize (400 * ScaleFactor),(180 * ScaleFactor)
  103.     Next
  104.     EndPos = (-410 * ScaleFactor)
  106. End Function

 

The ScaleMe() funtion at the bottom controls what gets resized, and where it gets moved to.
the 1.0 scale size is "hard-coded" in so that it doesnt keep sizing it every time it loads and making it smaller or larger.. LOL

I would make sure you save things first then try it and see if you like it.

Change the

ScaleFactor = 1.0

to

ScaleFactor =0.5

to see the diff.


ZubaZ
Reply #14 Thursday, February 19, 2009 12:21 PM

That's sweet


RomanDA
Reply #15 Thursday, February 19, 2009 1:03 PM

Zubaz
reply 14
That's sweet

 

I try


sViz
Reply #16 Thursday, February 19, 2009 2:44 PM

Cool!


RomanDA
Reply #17 Thursday, February 19, 2009 6:14 PM

UPDATED --- I ADDED A FADE in/out for the objects that are sliding, and a fade in on the slider that is the default

I have redone the code here:

Code: vbscript
  1. 'Assign a constant for each object
  2. 'Reason: It's easier to change Object Names in one spot than an entire script
  3. 'Eg. If you rename an object than just change the name in the quotes
  5. Dim ObjName(10),ObjLeft(10),ObjTop(10),ObjHeight(10),ObjWidth(10)
  6. Dim ObjMove(10)
  7. FadePercent = 0
  8. ScaleFactor = 0.7
  9. oCount = 0
  10. EndPos = -410
  11. MasterEndPos = -410
  12. StartPos = 0
  13. oItem = 1
  14. nItem = 2
  15. ObjCnt = 0
  18. Sub Object_OnScriptEnter
  19. '--- Repeat this for each object
  20. '--- the ObjMove Is used To tell the Function to Move the object or not.
  21. '--- the first objects NEED to be the ones that are "sliding"
  23.     FadePercent = 100 / (abs(-410) / 10)
  24.    
  25.     ObjCnt = ObjCnt + 1     : ObjName(ObjCnt) = "Target01"
  26.     ObjTop(ObjCnt) = 0      : ObjLeft(ObjCnt) = 0
  27.     ObjWidth(ObjCnt) = 400  : ObjHeight(ObjCnt) = 180
  28.     ObjMove(ObjCnt) = False
  30.     ObjCnt = ObjCnt + 1     : ObjName(ObjCnt) = "Target02"
  31.     ObjTop(ObjCnt) = 0      : ObjLeft(ObjCnt) = 0
  32.     ObjWidth(ObjCnt) = 400  : ObjHeight(ObjCnt) = 180
  33.     ObjMove(ObjCnt) = False
  35.     ObjCnt = ObjCnt + 1     : ObjName(ObjCnt) = "Target03"
  36.     ObjTop(ObjCnt) = 0      : ObjLeft(ObjCnt) = 0
  37.     ObjWidth(ObjCnt) = 400  : ObjHeight(ObjCnt) = 180
  38.     ObjMove(ObjCnt) = False
  40.     oCount = ObjCnt
  41.     '--- Make sure you make the "count" the same as the # of Sliding Objects.
  43.     ObjCnt = ObjCnt + 1     : ObjName(ObjCnt) = "MENU1"
  44.     ObjTop(ObjCnt) = 0      : ObjLeft(ObjCnt) = 0
  45.     ObjWidth(ObjCnt) = 609  : ObjHeight(ObjCnt) = 180
  46.     ObjMove(ObjCnt) = False
  48.     ObjCnt = ObjCnt + 1    : ObjName(ObjCnt) = "title1"
  49.     ObjTop(ObjCnt) = 5     : ObjLeft(ObjCnt) = 35
  50.     ObjWidth(ObjCnt) = 70  : ObjHeight(ObjCnt) = 157
  51.     ObjMove(ObjCnt) = True
  53.     ObjCnt = ObjCnt + 1    : ObjName(ObjCnt) = "Mask"
  54.     ObjTop(ObjCnt) = -5    : ObjLeft(ObjCnt) = 110
  55.     ObjWidth(ObjCnt) = 410 : ObjHeight(ObjCnt) = 180
  56.     ObjMove(ObjCnt) = True
  58.     ObjCnt = ObjCnt + 1    : ObjName(ObjCnt) = "BTN_Next"
  59.     ObjTop(ObjCnt) = 16    : ObjLeft(ObjCnt) = 515
  60.     ObjWidth(ObjCnt) = 40  : ObjHeight(ObjCnt) = 53
  61.     ObjMove(ObjCnt) = True
  63.     ObjCnt = ObjCnt + 1    : ObjName(ObjCnt) = "BTN_Prev"
  64.     ObjTop(ObjCnt) = 100   : ObjLeft(ObjCnt) = 515
  65.     ObjWidth(ObjCnt) = 40  : ObjHeight(ObjCnt) = 53
  66.     ObjMove(ObjCnt) = True
  68.     Call ScaleMe()
  69.     oItem = 2 'This is the DEFAULT item it shows.. 1,2, or 3 in this case
  70.     ' You could make this read the value from a persiststorage
  71.     'you would have to add a write for it at the end of each TIMER section
  72.    
  73.    
  74.     'We then set ALL items left to EndPos
  75.   For x = 1 To oCount
  76.       DesktopX.Object(ObjName(x)).left = EndPos
  77.       DesktopX.Object(ObjName(x)).opacity = 0
  78.   Next
  79.   'Then we set the CURRENT item's left to 0
  80.   DesktopX.Object(ObjName(oitem)).left = 0
  81.  
  82.   For x = 0 To 100
  83.       DesktopX.Object(ObjName(oitem)).opacity = x
  84.       object.Sleep 5
  85.   Next
  86.  
  87.  
  88. End Sub
  91. ' The reson for the below function is so we can keep ALL
  92. ' the code in 1 object, the buttons have "EMPTY" scripts now
  93. ' it Checkes the NAME of the Button - this has to match EXaCtLy - Case Sensitive
  94. Function Object_OnLButtonUpEx(obj,x,y,dragged)
  95.     If Not dragged Then
  96.         Select Case obj.name
  97.     Case "BTN_Next"
  98.         object.SetTimer 100,17
  99.     Case "BTN_Prev"
  100.         object.SetTimer 200,17
  101.         End Select
  102.   End If
  103. End Function
  106. 'This timer is for the NEXT function
  107. Sub object_ontimer100
  108.      nItem = oItem + 1
  109.     If nItem > oCount Then nItem = 1
  110.     CurItem = ObjName(oItem) ' Current items name
  111.      NextItem = ObjName(nItem) ' NEXT items name
  112.   If desktopx.Object(CurItem).left > EndPos Then
  113.     desktopx.Object(CurItem).left = desktopx.Object(CurItem).left - (10 * ScaleFactor)
  114.         DesktopX.Object(CurItem).opacity = DesktopX.Object(CurItem).opacity - FadePercent
  115.     desktopx.Object(NextItem).left = desktopx.Object(NextItem).left + (10 * ScaleFactor)
  116.         DesktopX.Object(NextItem).opacity = DesktopX.Object(NextItem).opacity + FadePercent
  117.   Else
  118.         oItem = oItem + 1 ' We ADD 1 to the Current item AFTER we are done moving things
  119.         If oItem > oCount Then oItem = 1 ' same check as above to see if the item+1> total items
  120.     object.KillTimer 100
  121.   End If
  122. End Sub
  124. 'We do the same thing for the PREVIOUS button except
  125. 'we subtract 1 from the current item
  126. 'if its less then 0 we go to the END of the total count
  127. 'in this case that means item 3
  128. Sub object_ontimer200
  129.     nItem = oItem - 1
  130.     If nItem < 1 Then nItem = oCount
  131.     CurItem = ObjName(oItem)
  132.      NextItem = ObjName(nItem)
  133.   If desktopx.Object(CurItem).left > EndPos Then
  134.     desktopx.Object(CurItem).left = desktopx.Object(CurItem).left - (10 * ScaleFactor)
  135.         DesktopX.Object(CurItem).opacity = DesktopX.Object(CurItem).opacity - FadePercent
  136.     desktopx.Object(NextItem).left = desktopx.Object(NextItem).left + (10 * ScaleFactor)
  137.         DesktopX.Object(NextItem).opacity = DesktopX.Object(NextItem).opacity + FadePercent
  138.   Else
  139.         oItem = oItem - 1
  140.         If oItem < 1 Then oItem = oCount
  141.     object.KillTimer 200
  142.   End If
  143. End Sub
  145. Function ScaleMe()
  146.     For x = 1 To ObjCnt
  147.         desktopx.Object(ObjName(x)).resize (ObjWidth(x) * ScaleFactor),(ObjHeight(x) * ScaleFactor)
  148.         If ObjMove(x) = True Then
  149.             desktopx.Object(ObjName(x)).top = ObjTop(x) * ScaleFactor
  150.             desktopx.Object(ObjName(x)).left = ObjLeft(x) * ScaleFactor
  151.         End If
  152.     Next
  153.     EndPos = (MasterEndPos * ScaleFactor)
  154. End Function

if all your sliding objects are named using the same Item01, Item02, Item03, etc you could use this:

Code: vbscript
  1. '-- 3 is our max item count
  2.  for x = 1 to 3
  3.    t = x
  4.    if x < 10 then  t = "0" & x
  5.     ObjCnt = ObjCnt + 1     : ObjName(ObjCnt) = "Target" & t
  6.     ObjTop(ObjCnt) = 0      : ObjLeft(ObjCnt) = 0
  7.     ObjWidth(ObjCnt) = 400  : ObjHeight(ObjCnt) = 180
  8.     ObjMove(ObjCnt) = False
  9.   next

the little if x <10 is because the objects are named Target01,02,03,10,11,12, etc.  This would take you up to 99 objects.

This is a cool little thing your making Po. 

Just edited this to add the fade in/out i thought it added a lot to the look.

Enjoy.


ZubaZ
Reply #18 Thursday, February 19, 2009 7:32 PM

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.


PuterDudeJim
Reply #19 Thursday, February 19, 2009 7:43 PM

Amen Brother!  This will be awesome, look forward to it, Po! 


bilbo1930
Reply #20 Thursday, February 19, 2009 11:29 PM

Wohoho!!

 

 


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!
Login
First Previous Page 1 of 3 Next Last

Home | About | Privacy | Upload Guidelines | Terms of Service | Help
Copyright © Stardock Corporation. All Rights Reserved.


web-wc01