Register | Login
BootSkins XP
Cursor FX
Dream
Icon Packager
LogonStudio XP
LogonStudio
Object Dock
Sound Schemes
Suites
WallPapers
WindowBlinds
All

Search
Forum Home | Login
We have re-enabled logins for the forums, please be aware that you may need to reset your password or register for an account again while we continue to restore full functionality.
SirSmiley
SirSmiley
Join Date 06/2005
+38

Advanced Script Help

June 24, 2007 6:14:56 PM from WinCustomize ForumsWinCustomize Forums
Trying to slim down some scripts and/or put everything into one base script. I've encounter somewhat of a little block.
Instead of using a dozen timers that essentially do the same thing I'm trying to pass the object down through the function call into the sub's but for some reason I can't pass the object name from the function into the respective timer. Any Ideas?

Code: vbscript
  1. Const mskT1="mskTab1"
  2. Const objT1="objTab1"
  4. Dim speed
  5. speed=50
  7. '--Begin Universal Button Functions
  8. '--Left Click Mouse Selection
  9. Function Object_OnLbuttonupEx(obj,x,y,dragged)
  10. With DesktopX
  11.     If Not dragged Then
  12.     Select Case obj.name
  13.         Case objT1
  14.         tBarSlide(mskT1)
  15.     End Select
  16.     End If
  17. End With
  18. End Function
  20. Function tBarSlide(obj)
  21. With DesktopX   
  22.         If .Object(obj).Left >= 0 Then
  23.           object.KillTimer 100
  24.       object.SetTimer 200,speed
  25.     Else
  26.       object.KillTimer 200
  27.       object.SetTimer 100,speed
  28.         End If
  29. End With
  30. End Function
  31. '--Timers
  32. Sub object_ontimer100
  33. With DesktopX.Object(obj)
  34.     If .Left < 0 Then
  35.     .Left = .Left + 5
  36.     Else
  37.     object.KillTimer 100
  38. End If 
  39. End With
  40. End Sub
  42. Sub object_ontimer200
  43. With DesktopX.Object(obj)
  44.   If .Left >=0 Then
  45.     .Left = .Left - 5
  46.   Else
  47.     object.KillTimer 200
  48. End If
  49. End With
  50. End Sub

desktopx
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #1 June 24, 2007 6:29:30 PM
from WinCustomize ForumsWinCustomize Forums
Never mind I found a dirty work-a-round.

Code: vbscript
  1. Const mskT1="mskTab1"
  2. Const objT1="objTab1"
  4. Dim speed,objX
  5. speed=50
  7. '--Begin Universal Button Functions
  8. '--Left Click Mouse Selection
  9. Function Object_OnLbuttonupEx(obj,x,y,dragged)
  10. With DesktopX
  11. If Not dragged Then
  12. Select Case obj.name
  13. Case objT1
  14. tBarSlide(mskT1)
  15. objX=mskT1
  16. End Select
  17. End If
  18. End With
  19. End Function
  20. Function tBarSlide(obj)
  21. With DesktopX
  22. If .Object(obj).Left >= 0 Then
  23. object.KillTimer 100
  24. object.SetTimer 200,speed
  25. Else
  26. object.KillTimer 200
  27. object.SetTimer 100,speed
  28. End If
  29. End With
  30. End Function
  31. '--Timers
  32. Sub object_ontimer100
  33. With DesktopX.Object(objX)
  34. If .Left
  35. .Left = .Left + 5 Else
  36. object.KillTimer 100
  37. End If
  38. End With
  39. End Sub
  40. Sub object_ontimer200
  41. With DesktopX.Object(objX)
  42. If .Left >=0 Then
  43. .Left = .Left - 5
  44. Else
  45. object.KillTimer 200
  46. End If
  47. End With
  48. End Sub
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
thomassen
Join Date 01/2003
+10
Reply #2 June 24, 2007 7:23:11 PM
from WinCustomize ForumsWinCustomize Forums
It's because obj is only created within the Object_OnLbuttonupEx and passed on to the function tBarSlide. You need to store the object in a variable in the global script space. Though the problem with that is what happends if the timer get called simultaneously from several objects. They'd then overwrite themself.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #3 June 24, 2007 9:19:46 PM
from WinCustomize ForumsWinCustomize Forums
They'd then overwrite themself


Yeah, discovered that. So, it would only be acceptable within limited use. Wonder if there is a way to block the call until the previous call is completed?

Edit: I'm wondering if there's a way to set the other objects to inactive. Like a separate sub?
Reason for Karma (Optional)
Successfully updated karma reason!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

View all recent posts
Mark all posts as read Delete cookies created by the forum Return to Top
Stardock Forums v        Server Load Time:   Page Render Time:


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