by grontod » Wed Jan 07, 2009 12:56 pm
FWIW, here's an auto script I use for a button that does this nicely:
'======================================================================
' MediaMonkey\Scripts\Auto\PauseAfterCurrent.vbs
'
' Adds icon to the standard toolbar & systray menu to pause after
' the current song finishes (actually before the next song starts)
'
'======================================================================
Option Explicit
Dim PauseButton
Dim PauseMenItm
Sub OnStartUp()
Set PauseButton = SDB.UI.AddMenuItem(SDB.UI.Menu_TBStandard,0,0)
PauseButton.IconIndex = 2
PauseButton.Checked = False
PauseButton.Caption = SDB.Localize("Pause after")
Script.RegisterEvent PauseButton, "OnClick", "ButtonOnClick"
Set PauseMenItm = SDB.UI.AddMenuItem(SDB.UI.Menu_TrayIcon,0,-2)
PauseMenItm.IconIndex = 2
PauseMenItm.Checked = False
PauseMenItm.Caption = SDB.Localize("Pause after")
Script.RegisterEvent PauseMenItm, "OnClick", "ButtonOnClick"
SDB.UI.AddMenuItemSep SDB.UI.Menu_TrayIcon,0,-2
Script.RegisterEvent SDB, "OnPlay", "PlayerOnPlay"
End Sub
'======================================================================
Sub ButtonOnClick(Object)
PauseButton.Checked = not PauseButton.Checked
PauseMenItm.Checked = not PauseMenItm.Checked
If PauseMenItm.Checked Then
PauseMenItm.Caption = SDB.Localize("Cancel Pause after")
Else
PauseMenItm.Caption = SDB.Localize("Pause after")
End If
End Sub
Sub PlayerOnPlay()
if PauseButton.Checked then
if SDB.Player.CurrentSongIndex > 0 then
SDB.Player.Pause
end if
PauseButton.Checked = False
PauseMenItm.Checked = False
PauseMenItm.Caption = SDB.Localize("Pause after")
end if
End Sub
FWIW, here's an auto script I use for a button that does this nicely:
'======================================================================
' MediaMonkey\Scripts\Auto\PauseAfterCurrent.vbs
'
' Adds icon to the standard toolbar & systray menu to pause after
' the current song finishes (actually before the next song starts)
'
'======================================================================
Option Explicit
Dim PauseButton
Dim PauseMenItm
Sub OnStartUp()
Set PauseButton = SDB.UI.AddMenuItem(SDB.UI.Menu_TBStandard,0,0)
PauseButton.IconIndex = 2
PauseButton.Checked = False
PauseButton.Caption = SDB.Localize("Pause after")
Script.RegisterEvent PauseButton, "OnClick", "ButtonOnClick"
Set PauseMenItm = SDB.UI.AddMenuItem(SDB.UI.Menu_TrayIcon,0,-2)
PauseMenItm.IconIndex = 2
PauseMenItm.Checked = False
PauseMenItm.Caption = SDB.Localize("Pause after")
Script.RegisterEvent PauseMenItm, "OnClick", "ButtonOnClick"
SDB.UI.AddMenuItemSep SDB.UI.Menu_TrayIcon,0,-2
Script.RegisterEvent SDB, "OnPlay", "PlayerOnPlay"
End Sub
'======================================================================
Sub ButtonOnClick(Object)
PauseButton.Checked = not PauseButton.Checked
PauseMenItm.Checked = not PauseMenItm.Checked
If PauseMenItm.Checked Then
PauseMenItm.Caption = SDB.Localize("Cancel Pause after")
Else
PauseMenItm.Caption = SDB.Localize("Pause after")
End If
End Sub
Sub PlayerOnPlay()
if PauseButton.Checked then
if SDB.Player.CurrentSongIndex > 0 then
SDB.Player.Pause
end if
PauseButton.Checked = False
PauseMenItm.Checked = False
PauseMenItm.Caption = SDB.Localize("Pause after")
end if
End Sub