
Sub OnStartup
Set UI = SDB.UI
Set Mnu = UI.AddMenuItem( UI.Menu_View, 0, 0)
Mnu.Caption = "Add AA"
Mnu.UseScript = Script.ScriptPath
Mnu.OnClickFunc = "AddAA"
Set Mnu = UI.AddMenuItem( UI.Menu_View, 0, 0)
Mnu.Caption = "Remove All AA"
Mnu.UseScript = Script.ScriptPath
Mnu.OnClickFunc = "RemoveAA"
End Sub
Sub AddAA( Itm)
Set SL = SDB.CurrentSongList
If SL.Count>0 Then
Set Track = SL.Item(0)
Set AAList = Track.AlbumArt
Set AA = AAList.AddNew
AA.PicturePath = "D:\test.jpg"
AA.Description = "Test"
AA.ItemType = 5
AA.ItemStorage = 0
AAList.UpdateDB
End If
End Sub
Sub RemoveAA( Itm)
Set SL = SDB.CurrentSongList
If SL.Count>0 Then
Set Track = SL.Item(0)
Set AAList = Track.AlbumArt
While AAList.Count>0
AAList.Delete(0)
WEnd
AAList.UpdateDB
End If
End Sub
Even if I don't have to dig out the node, I usually tweak the text, so simply copying Shoutcast stations isn't going to cut it.
I haven't found any place in the tree where you can hang user-supplied stuff like shortcuts for streams. Do you suppose a script could do that?


Users browsing this forum: No registered users and 9 guests