#include <GuiListView.au3>
#include <Sound.au3>

Opt("TrayMenuMode",1)
TraySetToolTip("Ethnel-MiniPlayer")
AdlibEnable("_PosPlay",300)

$idplay = "0"
$idpause = "0"
$sopen = "0"
$stplay = "0"
$stpause = "0"
$onair = "0"
$bgui = "0"
$whopen = @DesktopDir
$trmini = "0"

$guiname = "Ethnel-MiniPlayer"

$gui = GUICreate($guiname,350,500,-1,-1,-1,0x00000080)
$posgui = WinGetPos($guiname)
ControlMove($guiname,"",$gui,$posgui[0],$posgui[1],350,124)

$play = GUICtrlCreateButton(">",10,10,40,40)
GUICtrlSetFont(-1,14)
$pause = GUICtrlCreateButton("||",50,10,40,40)
GUICtrlSetFont(-1,14)
$stop = GUICtrlCreateButton("X",90,10,40,40)
GUICtrlSetFont(-1,14)
$back = GUICtrlCreateButton("<<",140,10,40,40)
GUICtrlSetFont(-1,14)
$next = GUICtrlCreateButton(">>",180,10,40,40)
GUICtrlSetFont(-1,14)

$open = GUICtrlCreateButton("Ajouter",230,10,110,20)
$close = GUICtrlCreateButton("Enlever",230,30,110,20)

$gstat = GUICtrlCreateButton("+",312,70,27,27)
GUICtrlSetFont(-1,25)


$lab1 = GUICtrlCreateLabel(":: Lecture en cour ::",10,52,300,18,0x01)
GUICtrlSetFont(-1,10,-1,4)

$lecture = GUICtrlCreateLabel("-  -",10,71,300,25,0x01)
GUICtrlSetFont(-1,13)
GUICtrlSetColor(-1,0xFF0000)

$start = GUICtrlCreateLabel("00:00:00",10,460,148,35,0x01)
GUICtrlSetFont(-1,20)
$lab2 = GUICtrlCreateLabel("/",160,460,35,35,0x01)
GUICtrlSetFont(-1,20)
$end = GUICtrlCreateLabel("00:00:00",200,460,130,35,0x01)
GUICtrlSetFont(-1,20)

$liste = GUICtrlCreateListView("Emplacement|Musiques",10,100,330,350)
GUICtrlSendMsg(-1, 0x101E, 0, 0)
GUICtrlSendMsg(-1, 0x101E, 1, 280)

GUICtrlSetResizing($back,802)
GUICtrlSetResizing($next,802)
GUICtrlSetResizing($play,802)
GUICtrlSetResizing($pause,802)
GUICtrlSetResizing($stop,802)
GUICtrlSetResizing($open,802)
GUICtrlSetResizing($close,802)
GUICtrlSetResizing($gstat,802)
GUICtrlSetResizing($lab1,802)
GUICtrlSetResizing($lab2,802)
GUICtrlSetResizing($lecture,802)
GUICtrlSetResizing($start,802)
GUICtrlSetResizing($end,802)
GUICtrlSetResizing($liste,802)


$tplay = TrayCreateItem("[>] Lecture")
$tpause = TrayCreateItem("[||] Pause")
$tstop = TrayCreateItem("[X] Stop")
TrayCreateItem("")
$tback = TrayCreateItem("[<<] Précedent")
$tnext = TrayCreateItem("[>>] Suivant")
TrayCreateItem("")
$topen = TrayCreateItem("[+] Ajouter")
TrayCreateItem("")
$tstat = TrayCreateItem("Cacher")
$tquit = TrayCreateItem("Quitter")




GUISetState()

while 1
	$msg = GUIGetMsg()
	$tmsg = TrayGetMsg()
	Select
		case $msg = -3
			exit
		case $msg = $back
			_Back()
		case $msg = $next
			_Next()
		case $msg = $play
			_Play()
		case $msg = $pause
			_Pause()
		case $msg = $stop
			_Stop()
		case $msg = $open
			_Open()
		case $msg = $close
			_Close()
		case $msg = $gstat
			_GuiGstat()
			
			
		case $tmsg = $tquit
			exit
		case $tmsg = $tback
			_Back()
		case $tmsg = $tnext
			_Next()
		case $tmsg = $tplay
			_Play()
		case $tmsg = $tpause
			_Pause()
		case $tmsg = $tstop
			_Stop()
		case $tmsg = $topen
			_Open()
		case $tmsg = $tstat
			_TStat()
	EndSelect
WEnd

Func _Back()
	_SoundClose($sopen)
	$idplay = $idplay - 1
	If $idplay < 0 then
		$idplay = _GUICtrlListView_GetItemCount($liste) - 1
	endif
	_GUICtrlListView_SetSelectionMark($liste,$idplay)
	_Play()
EndFunc

Func _Next()
	_SoundClose($sopen)
	$idplay = $idplay + 1
	If $idplay > _GUICtrlListView_GetItemCount($liste) - 1 then
		$idplay = 0
	endif
	_GUICtrlListView_SetSelectionMark($liste,$idplay)
	_Play()
EndFunc

Func _Play()
	If $onair <> _GUICtrlListView_GetSelectionMark($liste) Then
		$stplay = "0"
		$spause = "0"
	EndIf
	If $stplay = "0" then
		_SoundClose($sopen)
		$sopen = _SoundOpen(_GUICtrlListView_GetItemText($liste,_GUICtrlListView_GetSelectionMark($liste)))
		_SoundPlay($sopen)
		_GUICtrlListView_SetItemSelected($liste,_GUICtrlListView_GetSelectionMark($liste))
		$music = StringRegExpReplace(_GUICtrlListView_GetItemText($liste,_GUICtrlListView_GetSelectionMark($liste)),"^.*\\|\.*$","")
		GUICtrlSetData($lecture,"- " & $music & " -")
		GUICtrlSetData($end,_SoundLength($sopen,1))
		$stpause = "1"
		$onair = _GUICtrlListView_GetSelectionMark($liste)
		$idplay = _GUICtrlListView_GetSelectionMark($liste)
	Else
		_SoundResume($sopen)
	endif
EndFunc

Func _Pause()
	If $stpause == "1" then
		_SoundPause($sopen)
		$stplay = "1"
	endif
EndFunc

Func _Stop()
	$stplay = "0"
	$spause = "0"
	_SoundClose($sopen)
EndFunc

Func _Open()
	$addmp3 = FileOpenDialog("Fichier ŕ ajouter",$whopen,"Fichiers audios(*.mp3;*.wav)")
	If not @error Then
		$musicadd = StringRegExpReplace($addmp3,"^.*\\|\.*$","")
		GUICtrlCreateListViewItem($addmp3 & "|" & $musicadd,$liste)
		$whopen = $addmp3
	EndIf
EndFunc

Func _Close()
	$stplay = "0"
	$spause = "0"
	_GUICtrlListView_DeleteItem($liste,_GUICtrlListView_GetSelectionMark($liste))
EndFunc

Func _PosPlay()
	if _SoundPos($sopen,1) <> "0" then
		GUICtrlSetData($start,_SoundPos($sopen,1))
	endif
	if _SoundLength($sopen,1) == "0" Then
		GUICtrlSetData($end,"00:00:00")
	endif
	if _SoundLength($sopen,1) <> "00:00:00" then
		if _SoundPos($sopen,1) == _SoundLength($sopen,1) then
			_SoundClose($sopen)
			$idplay = $idplay + 1
			If $idplay > _GUICtrlListView_GetItemCount($liste) - 1 then
				$idplay = 0
				_GUICtrlListView_SetSelectionMark($liste,$idplay)
			Else
				_GUICtrlListView_SetSelectionMark($liste,$idplay)
				_Play()
			endif
		endif
	EndIf
EndFunc

func _GuiGstat()
	if $bgui == "0" then
		$bgui = "1"
		$posgui = WinGetPos($guiname)
		GUICtrlSetData($gstat,"-")
		ControlMove($guiname,"",$gui,$posgui[0],$posgui[1],350,525)
	Else
		$bgui = "0"
		$posgui = WinGetPos($guiname)
		GUICtrlSetData($gstat,"+")
		ControlMove($guiname,"",$gui,$posgui[0],$posgui[1],350,124)
	endif
EndFunc

func _Tstat()
	if $trmini == "0" Then
		ControlHide($guiname,"",$gui)
		TrayItemSetText($tstat,"Afficher")
		$trmini = "1"
	Else
		ControlShow($guiname,"",$gui)
		TrayItemSetText($tstat,"Cacher")
		$trmini = "0"
	EndIf
EndFunc