dr_snuggles wrote:can u get rid of the caption in mm4?
Yes you can hide the caption in MM4. This is a fix that Drewbie posted some time ago so he/she is to thank for this. I'll just re-iterate it for you:
Go to C:\Users\<User Name>\AppData\Roaming\MediaMonkey or equivalent in XP and add the following to the MediaMonkey.ini file (in notepad)
Code: Select all
[MiniLyricsEmbedder]
PanelVisible=True
ShowCaption=0
If [MiniLyricsEmbedder] section aleady exists, add ShowCaption=0 to the end.
Then go to C:\Program Files\MediaMonkey\Scripts\Auto and open MiniLyrics Embedder.vbs file (in notepad) and replace all the code with the below:
Code: Select all
Option Explicit
'v1.4b
Dim MI, Panel, Tmr, EmbedTmr
Const EmbedTimerTimeout = 500
Const EmbedTriesMax = 20
Const RePoSiTimerTimeout = 1000
Dim Embedder : Set Embedder = CreateObject("MMEmbedder.Instance")
Embedder.FloatingWindowCaption = "Embedded MiniLyrics"
Embedder.SourceWindowCaption = vbNull
Embedder.SourceWindowClass = "MiniLyrics"
Dim EmbedTriesCount : EmbedTriesCount = 0
Dim IsEmbedded : IsEmbedded = False
Sub OnStartup
On Error Resume Next
Script.RegisterEvent SDB, "OnShutdown", "SDB_OnShutdown"
Set MI = SDB.UI.AddMenuItem(SDB.UI.Menu_View, 1, -3)
MI.Caption = "MiniLyrics Panel"
MI.IconIndex = 51
MI.ShortCut = "Ctrl+Shift+L"
MI.Hint = "Show the panel for the embedded MiniLyrics program"
Script.RegisterEvent MI, "OnClick", "MI_OnClick"
Set Panel = SDB.UI.NewDockablePersistentPanel("MiniLyricsEmbedder_Panel")
If Panel.IsNew Then
Panel.DockedTo = 3
Panel.Common.Width = 300
Panel.Common.Height = 125
End If
Panel.Caption = "Embedded MiniLyrics"
' Restore ShowCaption setting (requires MM 3.1 or higher)
if SDB.VersionHi > 3 Or (SDB.VersionHi = 3 And SDB.VersionLo >= 1) then
if SDB.IniFile.ValueExists("MiniLyricsEmbedder","ShowCaption") then
Panel.ShowCaption = SDB.IniFile.IntValue("MiniLyricsEmbedder","ShowCaption")
end if
end if
Set SDB.Objects("MiniLyricsEmbedder_Panel") = Panel 'Storing the Panel in MM's Objects array is only needed to keep it alive the whole time
Script.RegisterEvent Panel, "OnClose", "Panel_OnClose"
Script.RegisterEvent Panel.Common, "OnResize", "Panel_OnResize"
Panel.Common.Visible = True
MI.Checked = True
Set EmbedTmr = SDB.CreateTimer(EmbedTimerTimeout)
Script.RegisterEvent EmbedTmr, "OnTimer", "EmbedTmr_OnTimer"
End Sub
Sub EmbedTmr_OnTimer(EmbedTmr)
On Error Resume Next
EmbedTriesCount = EmbedTriesCount + 1
If Not Embedder.EmbedWindow Then
If EmbedTriesCount >= EmbedTriesMax Then
Script.UnRegisterEvents EmbedTmr
Set EmbedTmr = Nothing
SDB.MessageBox "MiniLyrics couldn't be embedded. Possibly its window, or the embedder window, isn't visible.", mtError, Array(mbOK)
End If
Exit Sub
End If
IsEmbedded = True
Script.UnRegisterEvents EmbedTmr
Set EmbedTmr = Nothing
If SDB.IniFile.StringValue("MiniLyricsEmbedder", "PanelVisible") <> "True" Then
Panel.Common.Visible = False
MI.Checked = False
Else
Set Tmr = SDB.CreateTimer(RePoSiTimerTimeout)
Script.RegisterEvent Tmr, "OnTimer", "RepositionAndResize"
End If
End Sub
Sub MI_OnClick(MI)
On Error Resume Next
MI.Checked = Not MI.Checked
Panel.Common.Visible = MI.Checked
SDB.IniFile.StringValue("MiniLyricsEmbedder", "PanelVisible") = MI.Checked
If Not IsEmbedded Then Exit Sub
If MI.Checked Then
Embedder.ResetSizeAndPosition
Set Tmr = SDB.CreateTimer(RePoSiTimerTimeout)
Script.RegisterEvent Tmr, "OnTimer", "RepositionAndResize"
Else
Script.UnRegisterEvents Tmr
Set Tmr = Nothing
End If
End Sub
Sub SDB_OnShutdown
On Error Resume Next
Script.UnRegisterAllEvents
Set MI = Nothing
Set Panel = Nothing
Set Tmr = Nothing
Set EmbedTmr = Nothing
Set Embedder = Nothing
End Sub
Sub Panel_OnClose(Panel)
On Error Resume Next
MI.Checked = False
SDB.IniFile.StringValue("MiniLyricsEmbedder", "PanelVisible") = "False"
Script.UnRegisterEvents Tmr
Set Tmr = Nothing
End Sub
Sub Panel_OnResize(Panel)
If Not IsEmbedded Then Exit Sub
On Error Resume Next
Embedder.ResetSizeAndPosition
End Sub
Sub RepositionAndResize(Tmr)
On Error Resume Next
Embedder.ResetSizeAndPosition
End Sub
Restart Monkey and that should hopefully hide the caption for you.