[Help] Dynamically Create Right Click Menu Or Portion

Published on July 28, 2007 By SirSmiley In DesktopX

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?

Comments (Page 1)

SirSmiley

on Jul 29, 2007

I'm part way there and have cut 300 plus lines of code down to around 40.

Code: vbscript
'--Builds Right Click Menu
Sub rcMenu
Dim submenu,menu
'--Gets Sub Folder Collection
	intSize = 0
	Set objFSO = CreateObject("Scripting.FileSystemObject")	
	strFolderName = "C:\Programming\Projects\DesktopX\WIP\Reflector\Reflector\skins"
	'strFolderName = DesktopX.ExecutableDirectory &"\skins"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(strFolderName)
	Set colSubfolders = objFolder.Subfolders
	'--Loads subfolder collection into array
	For Each objSubfolder In colSubfolders
		strFolderName = objSubfolder.Path
		ReDim Preserve arrFolders(intSize)
		arrFolders(intSize) = strFolderName
		intSize = intSize + 1
	Next
	'--Builds first part of submenu
	Set submenu = DesktopX.CreatePopupMenu
			submenu.AppendMenu 0, 1, "About Skin"
			submenu.AppendMenu &H00000008, 2, curSkin
			submenu.AppendMenu&H00000800,1000,1000	'Menu separator
			'--Iterates through subfolder collection & retrievs skin info
			For Each strFolder In arrFolders
					i = i+1
					strname = "skin" & i
					'msgbox strname
					pathSkin=strFolder
					skin=pathSkin&"\skin.ini"
					skinArray=FileToArray(skin, False)
					nskin=skinArray(1) '1 Fields	Skin Name
					posNum=2+i
				 	submenu.AppendMenu 0, posNum, nskin
				 	'msgbox posNum&nskin
			Next
			'--Finish building submenu
				submenu.AppendMenu&H00000800,1001,1001	'Menu separator
				submenu.AppendMenu 0, 13, "Select"	
		Set menu = DesktopX.CreatePopupMenu
			menu.AppendMenu &H00000010, submenu.MenuID, "Skins"
			menu.AppendMenu 0, 93, "About"
			menu.AppendMenu 0, 98, "Exit"
			'menu.AppendMenu 0, 99, "DesktopX"
		Dim rtn
		rtn = menu.TrackPopupMenu(0, System.CursorX, System.CursorY)
			Select Case rtn
				Case 1
					Call aboutSkin
				Case posNum
					'msgbox posNum
					skinPath=pathSkin
					Call applySkin(pathSkin,skin)
				Case 13
					file = System.FileOpenDialog("Select Skin File", "skin.ini", strFolderName, "*.ini|*.ini",0)'--Browse for all file types
					Set objFSO = CreateObject("Scripting.FileSystemObject")
						fPath=objFSO.GetParentFolderName(file)
						iFile= objFSO.GetFileName(file)
						skinPath=fPath
					Call applySkin(fPath,iFile)
				Set objFSO=nothing
				Case 93
					Call aboutBox
				Case 98
					DesktopX.Exit(0)
			End Select
			Set menu = nothing
			If rtn   99 Then
			Object_OnRButtonUp=True
			End If			
End Sub

SirSmiley

on Jul 30, 2007

Hello... Is anyone out there?

RomanDA

on Jul 30, 2007

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.

RomanDA

on Jul 30, 2007

Ok, i have to work on this.. let me change some things.. give me about 2hrs

SirSmiley

on Jul 30, 2007

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.

RomanDA

on Jul 30, 2007

ok, create a new object (for testing this out) Copy/paste the following code into it:

Code: vbscript
'Called when the script is executed
Dim Item(10)
Sub Object_OnScriptEnter
 For x = 1 To 10
 	Item(x) = "Item " & x
 Next 
End Sub
'Called when the script is terminated
Sub Object_OnScriptExit
End Sub
Function PopupMenu()
 	Set SubMenu = nothing
	Set SubMenu = DesktopX.CreatePopupMenu
	For x = 1 To 10
		SubMenu.AppendMenu 0, x, Item(x)
 	Next 
	Set mainmenu = nothing
	Set mainmenu = DesktopX.CreatePopupMenu '-- Create Main Men
	mainmenu.AppendMenu &H00000010, SubMenu.MenuID, "Pick an Item..."
	mainmenu.AppendMenu &H00000800, 0, ""
	mainmenu.AppendMenu 0, 999, "Cancel"
  result = mainmenu.TrackPopupMenu(0, System.CursorX, System.CursorY)
  If result > 1 And result < 999 Then
		msgbox "You Selected " & Item(result)
  End If
  If result = 999 Then MsgBox "You clicked Cancel"
End Function
Function Object_OnLButtonUp(x, y, Dragged)
	If Dragged = False Then
		Call PopupMenu()
	End If
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?

SirSmiley

on Jul 30, 2007

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
'--Gets Sub Folder Collection
	intSize = 0
	Set objFSO = CreateObject("Scripting.FileSystemObject")	
	strFolderName = "C:\Programming\Projects\DesktopX\WIP\Reflector\Reflector\skins"
	'strFolderName = DesktopX.ExecutableDirectory &"\skins"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(strFolderName)
	Set colSubfolders = objFolder.Subfolders
	'--Loads subfolder collection into array
	For Each objSubfolder In colSubfolders
		strFolderName = objSubfolder.Path
		ReDim Preserve arrFolders(intSize)
		arrFolders(intSize) = strFolderName
		intSize = intSize + 1
	Next
'This is the For Each Statement from within the submenu
			For Each strFolder In arrFolders
					i = i+1
					strname = "skin" & i
					'msgbox strname
					pathSkin=strFolder
					skin=pathSkin&"\skin.ini"
					skinArray=FileToArray(skin, False)
					nskin=skinArray(1) '1 Fields	Skin Name
					posNum=2+i
				 	submenu.AppendMenu 0, posNum, nskin
				 	'msgbox posNum&nskin
			Next

RomanDA

on Jul 30, 2007

So, its working?

Quentin94

on Jul 30, 2007

SirSmiley

on Jul 30, 2007

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.

RomanDA

on Jul 30, 2007

Ok, so.. the part you needed help with is done?

SirSmiley

on Jul 30, 2007

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.

RomanDA

on Jul 30, 2007

Let me know if i can help more (email works)

sViz

on Jul 31, 2007

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?

RomanDA

on Jul 31, 2007

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.

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.
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!