Page 1 of 1

Stop "after" current

Posted: Sun Jan 04, 2009 7:07 pm
by grontod
"Stop after current" should stop at the beginning of the "next" track in the playlist (if any) so that a subsequent click on "play" resumes where you left off.
Currently you are left at the beginning of the current track...

Re: Stop "after" current

Posted: Sun Jan 04, 2009 7:52 pm
by Dreadlau
I agree.

Re: Stop "after" current

Posted: Sun Jan 04, 2009 8:04 pm
by nynaevelan
So do I.

Nyn

Re: Stop "after" current

Posted: Wed Jan 07, 2009 12:56 pm
by grontod
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

Re: Stop "after" current

Posted: Wed Jan 07, 2009 1:12 pm
by Teknojnky
hmm, I didnt notice this was added to the play menu until I saw this.

anyway, I made a script a long time ago for this.

this will stop on the next track, however depending on what other scripts that run, there may be a slight delay before it stops (meaning the next song might play for a couple seconds).

http://www.mediamonkey.com/forum/viewto ... stop+after

Re: Stop "after" current

Posted: Wed Jan 07, 2009 1:26 pm
by Bex