Sample Simple Tree Node script

From MediaMonkey Wiki
Jump to: navigation, search
' Sample Simple Tree Node script
' This script adds a new sub-node to Now Playing node. All tracks from Now Playing
' are present in the new node, but they are in reversed order.

Sub OnStartup
  Dim Tree
  Set Tree = SDB.MainTree

  Dim Node
  Set Node = Tree.CreateNode
  Node.Caption = "Reversed Now Playing"
  Node.IconIndex = 40
  Node.UseScript = Script.ScriptPath
  Node.OnFillTracksFunct = "FillNPTracks"

  Tree.AddNode Tree.Node_NowPlaying, Node, 3   ' Add as the last child
  Tree.Node_NowPlaying.Expanded = True
End Sub

Sub FillNPTracks( Node)
  Dim List, Trcks
  Set List = SDB.Player.CurrentPlaylist
  Set Trcks = SDB.MainTracksWindow

  Dim i
  While i<List.Count And Not Script.Terminate
    Trcks.AddTrack List.Item(List.Count-i-1)
End Sub