Search
Forum Home | Login
SirSmiley
SirSmiley
Join Date 06/2005
+38

[Help] Dynamically Create Right Click Menu Or Portion

July 28, 2007 3:50:01 PM from WinCustomize ForumsWinCustomize Forums
I'm having a brain fart. Any help would be appreciated.

So, I'm working on my first "Skinnable" Widget/Gadget which uses the ImageMagick Com object
to create a reflective PNG. This came about after a request over at Aqua-soft.

My goal is to populate a portion of the right click menu with a list of the skins. At the moment
I'm using a Subfolder Collection to pull all of the Ini file's. Has anyone got an idea on how to
dynamically populate the right click menu with the names & calls?


desktopx
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
2 Pages1 2 
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #1 July 29, 2007 2:38:48 PM
from WinCustomize ForumsWinCustomize Forums
I'm part way there and have cut 300 plus lines of code down to around 40.

Code: vbscript
  1. '--Builds Right Click Menu
  2. Sub rcMenu
  3. Dim submenu,menu
  4. '--Gets Sub Folder Collection
  5. intSize = 0
  6. Set objFSO = CreateObject("Scripting.FileSystemObject")
  7. strFolderName = "C:\Programming\Projects\DesktopX\WIP\Reflector\Reflector\skins"
  8. 'strFolderName = DesktopX.ExecutableDirectory &"\skins"
  9. Set objFSO = CreateObject("Scripting.FileSystemObject")
  10. Set objFolder = objFSO.GetFolder(strFolderName)
  11. Set colSubfolders = objFolder.Subfolders
  12. '--Loads subfolder collection into array
  13. For Each objSubfolder In colSubfolders
  14. strFolderName = objSubfolder.Path
  15. ReDim Preserve arrFolders(intSize)
  16. arrFolders(intSize) = strFolderName
  17. intSize = intSize + 1
  18. Next
  19. '--Builds first part of submenu
  20. Set submenu = DesktopX.CreatePopupMenu
  21. submenu.AppendMenu 0, 1, "About Skin"
  22. submenu.AppendMenu &H00000008, 2, curSkin
  23. submenu.AppendMenu&H00000800,1000,1000 'Menu separator
  24. '--Iterates through subfolder collection & retrievs skin info
  25. For Each strFolder In arrFolders
  26. i = i+1
  27. strname = "skin" & i
  28. 'msgbox strname
  29. pathSkin=strFolder
  30. skin=pathSkin&"\skin.ini"
  31. skinArray=FileToArray(skin, False)
  32. nskin=skinArray(1) '1 Fields Skin Name
  33. posNum=2+i
  34. submenu.AppendMenu 0, posNum, nskin
  35. 'msgbox posNum&nskin
  36. Next
  37. '--Finish building submenu
  38. submenu.AppendMenu&H00000800,1001,1001 'Menu separator
  39. submenu.AppendMenu 0, 13, "Select"
  40. Set menu = DesktopX.CreatePopupMenu
  41. menu.AppendMenu &H00000010, submenu.MenuID, "Skins"
  42. menu.AppendMenu 0, 93, "About"
  43. menu.AppendMenu 0, 98, "Exit"
  44. 'menu.AppendMenu 0, 99, "DesktopX"
  45. Dim rtn
  46. rtn = menu.TrackPopupMenu(0, System.CursorX, System.CursorY)
  47. Select Case rtn
  48. Case 1
  49. Call aboutSkin
  50. Case posNum
  51. 'msgbox posNum
  52. skinPath=pathSkin
  53. Call applySkin(pathSkin,skin)
  54. Case 13
  55. file = System.FileOpenDialog("Select Skin File", "skin.ini", strFolderName, "*.ini|*.ini",0)'--Browse for all file types
  56. Set objFSO = CreateObject("Scripting.FileSystemObject")
  57. fPath=objFSO.GetParentFolderName(file)
  58. iFile= objFSO.GetFileName(file)
  59. skinPath=fPath
  60. Call applySkin(fPath,iFile)
  61. Set objFSO=nothing
  62. Case 93
  63. Call aboutBox
  64. Case 98
  65. DesktopX.Exit(0)
  66. End Select
  67. Set menu = nothing
  68. If rtn 99 Then
  69. Object_OnRButtonUp=True
  70. End If
  71. End Sub
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #2 July 30, 2007 1:21:57 PM
from WinCustomize ForumsWinCustomize Forums
Hello... Is anyone out there?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #3 July 30, 2007 2:39:07 PM
from WinCustomize ForumsWinCustomize Forums
Sorry.. i read this this morning, and didnt see what you were looking for.

YES It can be done, its a pain but it can be done.. let me find the code i used for this in the Holiday Countdown Pro.
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.

SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #4 July 30, 2007 2:43:20 PM
from WinCustomize ForumsWinCustomize Forums
Ok, i have to work on this.. let me change some things.. give me about 2hrs
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #5 July 30, 2007 2:54:23 PM
from WinCustomize ForumsWinCustomize Forums
No problem. Thanks.

Sorry for the impatience. I've tried a couple of different things and know I should step away from the code for a bit but, when you're close to being finished it's hard to let it go.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #6 July 30, 2007 4:51:07 PM
from WinCustomize ForumsWinCustomize Forums
ok, create a new object (for testing this out) Copy/paste the following code into it:
Code: vbscript
  1. 'Called when the script is executed
  2. Dim Item(10)
  3. Sub Object_OnScriptEnter
  4. For x = 1 To 10
  5. Item(x) = "Item " & x
  6. Next
  7. End Sub
  9. 'Called when the script is terminated
  10. Sub Object_OnScriptExit
  12. End Sub
  15. Function PopupMenu()
  17. Set SubMenu = nothing
  18. Set SubMenu = DesktopX.CreatePopupMenu
  19. For x = 1 To 10
  20. SubMenu.AppendMenu 0, x, Item(x)
  21. Next
  24. Set mainmenu = nothing
  25. Set mainmenu = DesktopX.CreatePopupMenu '-- Create Main Men
  26. mainmenu.AppendMenu &H00000010, SubMenu.MenuID, "Pick an Item..."
  27. mainmenu.AppendMenu &H00000800, 0, ""
  28. mainmenu.AppendMenu 0, 999, "Cancel"
  29. result = mainmenu.TrackPopupMenu(0, System.CursorX, System.CursorY)
  30. If result > 1 And result < 999 Then
  31. msgbox "You Selected " & Item(result)
  32. End If
  33. If result = 999 Then MsgBox "You clicked Cancel"
  34. End Function
  37. Function Object_OnLButtonUp(x, y, Dragged)
  38. If Dragged = False Then
  39. Call PopupMenu()
  40. End If
  41. End Function


I'm not sure I'm getting what you are trying to do, because it looks like its doing what i just posted here. Can you show me an example of what you want it to do, and where the data is coming from?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #7 July 30, 2007 5:22:28 PM
from WinCustomize ForumsWinCustomize Forums
Okay. I think your script just pointed out where I was going wrong.

The array is being built from a the collection of subfolders & redim is used within a For Each statement to add each folder into the array.

Example Folder Structure:

Main Folder
|
|- Skins Folder
|
--------------
| | |
Skin1 Skin2 Skin3

Then I went and put an additional For Each Statement within the submenu structure then forgot to use redim which obviously overwrites the previous variable.


Code: vbscript
  1. '--Gets Sub Folder Collection
  2. intSize = 0
  3. Set objFSO = CreateObject("Scripting.FileSystemObject")
  4. strFolderName = "C:\Programming\Projects\DesktopX\WIP\Reflector\Reflector\skins"
  5. 'strFolderName = DesktopX.ExecutableDirectory &"\skins"
  6. Set objFSO = CreateObject("Scripting.FileSystemObject")
  7. Set objFolder = objFSO.GetFolder(strFolderName)
  8. Set colSubfolders = objFolder.Subfolders
  9. '--Loads subfolder collection into array
  10. For Each objSubfolder In colSubfolders
  11. strFolderName = objSubfolder.Path
  12. ReDim Preserve arrFolders(intSize)
  13. arrFolders(intSize) = strFolderName
  14. intSize = intSize + 1
  15. Next
  16. 'This is the For Each Statement from within the submenu
  17. For Each strFolder In arrFolders
  18. i = i+1
  19. strname = "skin" & i
  20. 'msgbox strname
  21. pathSkin=strFolder
  22. skin=pathSkin&"\skin.ini"
  23. skinArray=FileToArray(skin, False)
  24. nskin=skinArray(1) '1 Fields Skin Name
  25. posNum=2+i
  26. submenu.AppendMenu 0, posNum, nskin
  27. 'msgbox posNum&nskin
  28. Next
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #8 July 30, 2007 6:14:57 PM
from WinCustomize ForumsWinCustomize Forums
So, its working?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
Quentin94
Join Date 08/2006
+119
Reply #9 July 30, 2007 6:21:55 PM
from WinCustomize ForumsWinCustomize Forums
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #10 July 30, 2007 7:09:03 PM
from WinCustomize ForumsWinCustomize Forums
It's getting there. I've nested an array within an array. In simple terms what I'm trying to accomplish.

1. Get all skin subfolders into array. Done
2. Pull each skin.ini path into an array. Done
3. Pull the skin names from second line (variable1) of the skin.ini file into another array for display in the right click menu. Done
4. Build the right click menu. On clicking the skin name calls skin.ini into the applyskin sub & automatically updates the default settings file. Still working on this.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #11 July 30, 2007 7:24:39 PM
from WinCustomize ForumsWinCustomize Forums
Ok, so.. the part you needed help with is done?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #12 July 30, 2007 8:30:09 PM
from WinCustomize ForumsWinCustomize Forums
It would take a lot more than one thread to help me out!

Much appreciated. This got me going in the right direction.
I'll probably just upload it as a gadget & the object since I'm building it as a gadget. So, you'll be able to see what I'm trying to accomplish.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #13 July 30, 2007 8:45:20 PM
from WinCustomize ForumsWinCustomize Forums
Let me know if i can help more (email works)
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
sViz
Join Date 04/2006
+508
Reply #14 July 31, 2007 1:09:38 AM
from WinCustomize ForumsWinCustomize Forums
This is interesting. I was doing something like this for a skinnable clock. Wouldn't it be easier to retrieve all the information and set the arrays in a separate sub on startup and any time the information changes instead of in the r-click function?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #15 July 31, 2007 7:01:52 AM
from WinCustomize ForumsWinCustomize Forums
I use this same setup for the Holiday Countdown Pro, and i read things into a recordset, this works great for me because i can use it like a temporary database. I read the info into the recordset at the beginning of the program. Then any time i need to update/edit/add i can modify the recordset, then with the right-click it reads the recordset as a loop (like above).

It could easily be setup to read the entire ini and all info at startup (or at a set interval in case of updates). Then read that into the menu.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
sViz
Join Date 04/2006
+508
Reply #16 July 31, 2007 11:07:25 AM
from WinCustomize ForumsWinCustomize Forums

It could easily be setup to read the entire ini and all info at startup (or at a set interval in case of updates). Then read that into the menu.


Yeah, that's what I was doing. I just wondered if there were any benefits to retreiving the info on r-click instead. This is the r-click code I used for it:

Code: vbscript
  1. Function PopupMenu()
  2. Dim submenu
  3. Set mainmenu = nothing
  4. Set mainmenu = DesktopX.CreatePopupMenu '-- Create Main Menu
  5. Set submenu = DesktopX.CreatePopupMenu
  6. mainmenu.AppendMenu 0, 1, "Save Skin"
  7. mainmenu.AppendMenu &H00000010, submenu.MenuID, "Load Skin"
  8. mainmenu.AppendMenu &H00000800, 9998, ""
  9. mainmenu.AppendMenu 0, 2, "Minimize to Tray"
  10. mainmenu.AppendMenu 0, 3, "Close"
  11. mainmenu.AppendMenu &H00000800, 9999, ""
  12. mainmenu.AppendMenu 0, 4, "Preference"
  13. mainmenu.AppendMenu 0, 5, "About"
  14. 'Skins submenu
  15. For x = 0 To skincount
  16. submenu.AppendMenu 0, x+5, skinArr(x)
  17. Next
  19. '-- Save the results of mouse movements
  20. result = mainmenu.TrackPopupMenu(0, System.CursorX, System.CursorY)
  21. Select Case result
  22. Case 1
  23. savePrompt
  24. Case 2
  25. widget.Minimize
  26. Case 3
  27. widget.Close
  28. Case 4
  29. widget.OpenProperties
  30. Case 5
  31. msgbox "My about box"
  32. End Select
  33. If result > 5 Then
  34. selectskin = skinArr(result-6)
  35. Call loadSkin(2, selectskin)
  36. End If
  37. End Function


loadSkin is the sub that retrieves all the info (current skin, skin titles) on startup and when the user loads a skin.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #17 July 31, 2007 11:11:57 AM
from WinCustomize ForumsWinCustomize Forums
Actually, I did put it into a sub.

Not only is it easier you'll find it runs up the RAM if you put it into the right click since it calls the code every time you initiate the right click menu.

RomanDA, that's a great idea. It also is probably easier on resources & maybe less likely to break the code with repeated FSO calls?

I've created one little glitch. If you click the right click menu then don't click a menu item (ie. close the menu) for some reason it automatically calls/applies the first skin in the list. Haven't given much work into this but, I'm wondering if it's not related to the fact that I've made the For Next statement's zero based?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #18 July 31, 2007 11:16:33 AM
from WinCustomize ForumsWinCustomize Forums
sViz, your code always looks so clean.

I feel embarrassed to show mine.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
sViz
Join Date 04/2006
+508
Reply #19 July 31, 2007 1:37:58 PM
from WinCustomize ForumsWinCustomize Forums
Thanks, SirS. I get all confused if I don't format my codes and comment the heck out of them.

I feel embarrassed to show mine.


But, but, if you don't, then who will I snag all these useful codes snippets from?! I always learn something new from studying your scripts.


If you click the right click menu then don't click a menu item (ie. close the menu) for some reason it automatically calls/applies the first skin in the list.


What about using Case Else? Like:

Case Else
object.state = object.state

I used that once when I was having trouble with closing the menu.



Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #20 July 31, 2007 5:54:52 PM
from WinCustomize ForumsWinCustomize Forums
Thanks sViz.
But, but, if you don't, then who will I snag all these useful codes snippets from?! I always learn something new from studying your scripts.


I find the same from your. Your Script Helper saves me a great deal of time.

Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #21 July 31, 2007 6:12:10 PM
from WinCustomize ForumsWinCustomize Forums
this looks good.. i was going to say the issue is a
CASE ELSE as well.
good one!
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #22 July 31, 2007 6:52:04 PM
from WinCustomize ForumsWinCustomize Forums
Wouldn't that be essentially the same as an IF THEN ELSE statement? Because that didn't work...and apparently neither does the CASE ELSE.

I'm thinking it's most likely using the zero based array? Even though there's nothing specific in the DX documentation most likely zero is a default? So, I'll work on adjusting my arrays accordingly.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #23 July 31, 2007 7:02:22 PM
from WinCustomize ForumsWinCustomize Forums
That was it or a combination of it with the CASE ELSE.

So class the lesson for the day is, when dynamically creating a right click menu one can't use a zero based array!

Thanks a lot for all the help guys.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
sViz
Join Date 04/2006
+508
Reply #24 July 31, 2007 7:23:29 PM
from WinCustomize ForumsWinCustomize Forums
So class the lesson for the day is, when dynamically creating a right click menu one can't use a zero based array!


   Glad to hear you worked it out. I'll certainly keep this in mind in future.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #25 August 3, 2007 7:48:12 AM
from WinCustomize ForumsWinCustomize Forums
YEAH!
Reason for Karma (Optional)
Successfully updated karma reason!
2 Pages1 2 
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: