#include "WMP_v1.au3"

Global $BK_COLOR = 0xAAAAAA, $PL_COLOR = 0xBBBBBB
Global $hGUI, $oPlayer

$hGUI = GUICreate("", 730, 400, -1, -1, $WS_SIZEBOX)
GUISetBkColor($BK_COLOR)

GUISetOnEvent($GUI_EVENT_CLOSE, "OnGuiClose")
GUISetOnEvent($GUI_EVENT_RESIZED, "OnGuiResize")

Opt("GUIResizeMode", BitOR($GUI_DOCKSIZE, $GUI_DOCKBOTTOM, $GUI_DOCKLEFT))

$oPlayer = _MP_Create(0, 0, 480, 270)
;~ $oPlayer.Controls.Play() ;access to WMP object if you want it.
CreateControls()

_MP_PlayListAdd("Z:\Music\iTunes\iTunes Media\Music\A Perfect Circle\Eat The Elephant\01 Eat The Elephant 1.mp3")
_MP_PlayListAdd("Z:\Music\iTunes\iTunes Media\Music\A Perfect Circle\Eat The Elephant\02 Disillusioned.mp3")

GUISetState()

Main()

Func CreateControls()
	Local $hCtrl

	;_MP_CtrlCreate* returns the control id of the control
	$hCtrl = _MP_CtrlCreatePlayPause(0, 270, 40, 40)
;~ 	GUICtrlSetBkColor($hCtrl, 0xAAAA00)

	_MP_CtrlCreateStop(40, 270, 40, 40)
	_MP_CtrlCreateRewind(80, 270, 40, 40)
	_MP_CtrlCreateFastFwd(120, 270, 40, 40)
	_MP_CtrlCreatePrevious(160, 270, 40, 40)
	_MP_CtrlCreateNext(200, 270, 40, 40)
	_MP_CtrlCreateShuffle(250, 275, 30, 30)
	_MP_CtrlCreateLoop(280, 275, 30, 30)
	_MP_CtrlCreateMute(330, 275, 30, 30)
	_MP_CtrlCreateVolume(360, 280, 60, 20)
	GUICtrlSetBkColor(-1, $BK_COLOR)
	_MP_CtrlCreateFullScreen(430, 270, 40, 40)
	_MP_CtrlCreateTransport(0, 310, 480, 40)
	GUICtrlSetBkColor(-1, $BK_COLOR)
	_MP_CtrlCreatePlayList(480, 0, 250, 400)
	GUICtrlSetBkColor(-1, $PL_COLOR)
	GUICtrlSetResizing(-1, BitOR($GUI_DOCKWIDTH, $GUI_DOCKRIGHT))
EndFunc

Func Main()
	While 1
		Sleep(1000)
	WEnd
EndFunc

Func OnGuiClose()
	Exit
EndFunc

Func OnGuiResize()
	Local $aSize = WinGetClientSize($hGUI)
	_MP_Resize(0, 0, $aSize[0] - 250, $aSize[1] - 105)
EndFunc