
Drewbie wrote:@ Norti ---Your problem sounds like you just need to play around with it and get it set right ... you can control all aspects of the minilyrics program from the task bar flyout just click the arrow on the taskbar and right click the mini lyrics icon and adjust settings ... make sure you have fantasy theme or one with no transparency ... could cause the hiccup issue ... I prefer the panel off in MM and floating lyrics on via the task bar .... hope that helps
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

rose-m wrote:To be honest I am going to uninstall minilyrics. In the beginning it worked fine, so I even payed for it. Now whatever I try, it works fine 2-3 times, and then the same embedding problems come back. I went through all these pages, tried about every solution. Wrote their official support 3 times, never got an answer or even an acknowledgement.
Let's be honest, MiniLyrics sucks. Don't buy it.
edited for some missing letters
nohitter151 wrote:I disagree, Minilyrics works perfectly with MM3 and also with the 4.0 beta. I have not had any issues with it nor with the embedder.
rose-m wrote:That still leaves 48 pages of people needing help, others also uninstalling it.
What get's me the most is that request for help by the author go unanswered.
dr_snuggles wrote:can u get rid of the caption in mm4?
rrfpacker wrote:Don't know if it works in MM4, though.
Users browsing this forum: No registered users and 11 guests