I would add to function 'UPNP_FillNode' in version 0.5
1. Visible not all nodes
2. Icons correspond to the name and type
3. Localize
4. Show Art Album if Album is present in library
'**********************************
'Define AFTER 'Dim NewSong'
'**********************************
Code: Select all
Dim NodeAllow 'Node Present (Video, for example, not visible)
Dim NodeIcon 'Icon for Node
Dim NodeClass 'NodeClass for Icon
'**********************************
'Null NodeClass AFTER 'title = ""'
'**********************************
'**********************************
'Define NodeClass AFTER 'title = y.childNodes(0).NodeValue'
'**********************************
Code: Select all
case "upnp:class"
NodeClass = y.childNodes(0).NodeValue
'**********************************
'Define NodeAllow and NodeClass AFTER 'next'
'**********************************
Code: Select all
NodeAllow = true 'Default is present
NodeIcon = Node.IconIndex 'Default icon of parent node
select case title 'Select icon for title
case "Browse Folders": NodeAllow = false
case "Pictures": NodeAllow = false
case "Video": NodeAllow = false
case "Music": NodeIcon = 40
case "Album": NodeIcon = 16
case "All Music": NodeIcon = 48
case "Artist": NodeIcon = 0
case "Folders": NodeIcon = 20
case "Genre": NodeIcon = 7
case "Playlists": NodeAllow = false
End select
select case NodeClass 'Select Icon for Class
case "object.container.person.musicArtist": NodeIcon = 0
case "object.container.album.musicAlbum": NodeIcon = 16
End select
'**********************************
'
Localize HERE
'**********************************
'Apply NodeAllow HERE
'Apply NodeIcon AFTER 'NewNode.Caption = title'
'BEFORE 'case "item":'
'**********************************
'Make 'Artist of Album' AFTER 'case "dc:creator"'
'**********************************
Code: Select all
if .AlbumArtistName=Empty Then .AlbumArtistName=y.childNodes(0).NodeValue
'**********************************
'Show Art Album if Album is present in library AFTER 'Trcks.AddTrack NewSong'
'**********************************
'**********************************
'Show tree after once press on Node AFTER 'Trcks.FinishAdding'
'**********************************