How to add Script to Context menu?
Posted: Sat Jan 11, 2014 7:00 pm
I am looking for a sample 'stub' script which adds its name to the Context menu (right-click) and then can be executed. Anyone know of one?
Thanks
Thanks
The Music Manager for Serious Collectors
http://mediamonkey.com/forum/
Code: Select all
Set itm = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_Tree,1,0)
itm.Caption = "Randomise Playlist"
itm.OnClickFunc = "ItmClick"
itm.UseScript = Script.ScriptPath
itm.IconIndex = 25
itm.Visible = False
Set SDB.Objects("RandomisePlaylistMenu") = itm
Call Script.RegisterEvent(SDB,"OnChangedSelection","ShowMenu")
Code: Select all
Dim itm1 : Set itm1 = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP,0,0)
itm1.Caption = "Previewer"
itm1.OnClickFunc = "Toolbar"
itm1.UseScript = SDB.ApplicationPath&"Scripts\Previewer.vbs"
itm1.IconIndex = IconIndex
Set SDB.Objects("Previewer-Menu1") = itm1
Dim itm2 : Set itm2 = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_TrackList,0,0)
itm2.Caption = "Preview this track"
itm2.OnClickFunc = "Toolbar"
itm2.UseScript = SDB.ApplicationPath&"Scripts\Previewer.vbs"
itm2.IconIndex = IconIndex
Set SDB.Objects("Previewer-Menu2") = itm2