LibraryPanes: Library panes like these in Winamp, iRiver, ..

[Guest]

media monkey already has a search feature just type what you're looking for and it pops up in the list view.

[Steegy]

what about adding a search function/ filter

Separate filters for all panes seem helpful maybe. I don't directly see how one filter for all panes can be handy.

Or do you mean a filter on the track view? That's a request for MediaMonkey itself, and this wish is already on the wishlist, I think.

[Batiu-Drami]

Hey Steegy,

I (like another guy on page 3) would like to have the 'artists' panel show album artist instead. Is there a simple change I can make to the script for it to do this? (I had a look and it scared me away )

Cheers

[Nebbin]

Currently the panel actually lists both Artists AND Album Artists (similar to the way it's stored in DB - a single column).

I don't mind having both listed if it then selects the albums and tracks correctly. As it stands, if you select an Album Artist (which has no corresponding / equivalent Artist entry) you will see no albums listed, and thus no tracks shown. This is an obvious problem for Various Artist albums.

Because of this, I'd imagine the changes would be easier made by Steegy. If someone else IS able to make it work, please let us all know

[durden999uk]

Hi Steegy,

Excellent script, it makes picking out whole albums infinitly easier (I've never been able to completely get on with the tree system, but that's another matter). As you are taking on comments about future versions, I would like to suggest implementing a way to keep tracks from an album in their correct order. I have tried sorting the columns by album, then track number, and it puts things in order for a while, but then goes back to listing all the tracks in any old order if after a while. It only takes a couple of clicks to fix, of course, but would improve an already excellent script.

Ben

[BuckNaked]

First of all, great script, thanks Steegy.

I'm using MM to play stuff from my iPod, but haven't synched or added the tracks to the library however. I was wondering if it'd be possible to add the option to show the iPod contents in LibraryPanes (for example switching between MM library and iPod contents)?

Also would like to second the request from the previous post regarding track order.

Thanks,
BN

[trixmoto]

If anyone is getting error messages about line 184, send a blank email to fixlp@trixmoto.net and you should recieve the fix instantly!

(This address is not checked and the emails are deleted, an auto response is sent with the fix!)

N.B. I've tidied up this thread by removing all the previous requests, hope that's ok.

[arcspin]

Hey and thanx for an wounderfull script.

I have one question,
Is it possible to change the Artist Panel to AlbumArtist instead ?

If so, how do I do it ???


Cheers,
//Peter

[46AND2]

first of all: nice script!

I'm very new in MM and I'm not familiar with visiual basic. my problem: the LibraryPanes.vbs works very fine, but I have a sorting problem. everytime I select an artist on the left pane and then an album on the right pane, the listed songs are not correct sortet. I want them to be sorted by track-number. With every new select I have to click on the track-number column header to sort the list. do I need to change anything in the script?

thanks a lot for your help.

[Steegy]

Hi.

I think the following should do the trick:

- Open the script file (e.g. using notepad) and go to "Sub DoAlbums".
- Locate

Code: Select all

Call SDB.MainTracksWindow.AddTracksFromQuery("" _
                    + "AND Artists.ID=" + ArtistsTag + " AND Albums.ID=" + AlbumsTag)

and change it to

Code: Select all

Call SDB.MainTracksWindow.AddTracksFromQuery("" _
                    + "AND Artists.ID=" + ArtistsTag + " AND Albums.ID=" + AlbumsTag + " ORDER BY Songs.SongOrder")

Cheers
Steegy

[46AND2]

Steegy, thank you very much!

If someone is interested in correct sorting... (I hope, this is okay for you Steegy, that I modify your excellent script. Otherwise, pls. delete this post).

1. Replace the whole Sub DoAlbums

Code: Select all

Sub DoAlbums

    If lvAlbums.Interf.SelectedItem Is Nothing Then Exit Sub
    Call SDB.ProcessMessages

    If CustomTag = "ALL" Then
        If ArtistsTag = "ALL" Then
            If AlbumsTag = "ALL" Then
                Call SDB.MainTracksWindow.AddTracksFromQuery("" _
		    + "ORDER BY Artists.Artist, Albums.Album, Songs.SongOrder")
            Else
                Call SDB.MainTracksWindow.AddTracksFromQuery("" _
                    + "AND Albums.ID=" + AlbumsTag + " ORDER BY Songs.SongOrder")
            End If
        Else
            If AlbumsTag = "ALL" Then
                Call SDB.MainTracksWindow.AddTracksFromQuery("" _
                    + "AND Artists.ID=" + ArtistsTag + " ORDER BY Albums.Album, Songs.SongOrder")
            Else
                Call SDB.MainTracksWindow.AddTracksFromQuery("" _
                    + "AND Artists.ID=" + ArtistsTag + " AND Albums.ID=" + AlbumsTag + " ORDER BY Songs.SongOrder")
            End If
        End If
    Else
        If CustomPaneKind = "Genres" Then
            If ArtistsTag = "ALL" Then
                If AlbumsTag = "ALL" Then
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT Songs.ID " _
                        + "FROM Genres INNER JOIN Songs ON Genres.IDGenre = Songs.Genre " _
                        + "WHERE Genres.IDGenre=" + CustomTag)
                Else
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT Songs.ID " _
                        + "FROM (Genres INNER JOIN Songs ON Genres.IDGenre = Songs.Genre) INNER JOIN Albums ON Songs.IDAlbum = Albums.ID " _
                        + "WHERE (Genres.IDGenre=" + CustomTag + " AND Albums.ID=" + AlbumsTag + ")")
                End If
            Else
                If AlbumsTag = "ALL" Then
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT Songs.ID " _
                        + "FROM Artists INNER JOIN (Genres INNER JOIN Songs ON Genres.IDGenre = Songs.Genre) ON Artists.ID = Songs.IDArtist " _
                        + "WHERE (Genres.IDGenre=" + CustomTag + " AND Artists.ID=" + ArtistsTag + ")")
                Else
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT Songs.ID " _
                        + "FROM (Artists INNER JOIN (Genres INNER JOIN Songs ON Genres.IDGenre = Songs.Genre) ON Artists.ID = Songs.IDArtist) INNER JOIN Albums ON Songs.IDAlbum = Albums.ID " _
                        + "WHERE (Genres.IDGenre=" + CustomTag + " AND Artists.ID=" + ArtistsTag + " AND Albums.ID=" + AlbumsTag + ")")
                End If
            End If
        Else
            If ArtistsTag = "ALL" Then
                If AlbumsTag = "ALL" Then                     
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT DISTINCT Songs.ID " _
                        + "FROM Lists INNER JOIN (AddSongInfoInt INNER JOIN Songs ON AddSongInfoInt.IDSong = Songs.ID) ON Lists.ID = AddSongInfoInt.IntData " _
                        + "WHERE AddSongInfoInt.DataType=1010" & GetIDListType(CustomPaneKind) & " AND Lists.ID=" + CustomTag)
                Else
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT DISTINCT Songs.ID " _
                        + "FROM Albums INNER JOIN (Lists INNER JOIN (AddSongInfoInt INNER JOIN Songs ON AddSongInfoInt.IDSong = Songs.ID) ON Lists.ID = AddSongInfoInt.IntData) ON Albums.ID = Songs.IDAlbum " _
                        + "WHERE AddSongInfoInt.DataType=1010" & GetIDListType(CustomPaneKind) & " AND Albums.ID=" + AlbumsTag + " AND Lists.ID=" + CustomTag)
                End If
            Else
                If AlbumsTag = "ALL" Then
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT Songs.ID " _
                        + "FROM Artists INNER JOIN (Albums INNER JOIN (Lists INNER JOIN (AddSongInfoInt INNER JOIN Songs ON AddSongInfoInt.IDSong = Songs.ID) ON Lists.ID = AddSongInfoInt.IntData) ON Albums.ID = Songs.IDAlbum) ON (Artists.ID = Songs.IDArtist) " _
                        + "WHERE AddSongInfoInt.DataType=1010" & GetIDListType(CustomPaneKind) & " AND Lists.ID=" + CustomTag + " AND Artists.ID=" + ArtistsTag)
                Else
                    Call AddTracksFromQueryAdvanced("" _
                        + "SELECT Songs.ID " _
                        + "FROM (Albums INNER JOIN (Artists INNER JOIN Songs ON Artists.ID = Songs.IDArtist) ON (Songs.IDAlbum = Albums.ID)) INNER JOIN (Lists INNER JOIN AddSongInfoInt ON Lists.ID = AddSongInfoInt.IntData) ON Songs.ID = AddSongInfoInt.IDSong " _
                        + "WHERE Albums.ID=" + AlbumsTag + " AND Artists.ID=" + ArtistsTag + " AND AddSongInfoInt.DataType=1010" & GetIDListType(CustomPaneKind) & " AND Lists.ID=" + CustomTag)
                End If
            End If
        End If
    End If
   
    Set PreviousAlbumsItem = lvAlbums.Interf.SelectedItem
    Call SDB.ProcessMessages
   
    LastSelection = " "
   
End Sub

2. If you work with "Genres", you also have to replace the following "Sub":

Code: Select all

Sub AddTracksFromQueryAdvanced(FullQuery)

    Call SDB.MainTracksWindow.AddTracksFromQuery("AND Songs.ID IN (" & FullQuery & ")" + " ORDER BY Artists.Artist, Albums.Album, Songs.SongOrder")

End Sub

[Steegy]

...I hope, this is okay for you Steegy...

Sure, modifications are always welcome. Actually, I welcome anyone who can "update" this script a bit, to take into account the various wishes posted here. Maybe someone can make the script a bit more "modular" (the SQL part) as all the necessary 'fine-tuned-for-speed' queries are a lot for me... That makes that it's not very fun to edit things (certainly when a 'newer' version's gui is broken due to a dubious reason, and I really want it to work but it seems impossible ).

[iffrunner]

Hi,I'm new here...

I think it's a great script, but it doesn't seem to work here.
I get an error on opening MM:
"Licence information for TactiveXHost not found"

Have version 2.5.4
browser firefox

[Dutchronnie]

Hello,

I have exactly the same error.
I use MM version 2.5.4

The error is in line 192

[Guest]

Hey both

Check the first post in this topic, and send a mail (cantents can be empty) to the email address mentioned there.

Cheers
Steegy