#include <GUIConstants.au3>
#include <Buttonconstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister ()

#region var
Global $VidID = 0
Global const $VidID_max = 2 ;anzahl videos (zu testzwecken 3)
global $run = 0	;checkt ob player läuft 0 = none 1 = play 2 = pause
global $player = 0

$oAX = "" ; player
$playURL = "test.html"
#endregion

global $oIE = _IECreateEmbedded ()
ObjEvent($oIE, "_IEEvent_", "DWebBrowserEvents2")

#Region ### START Koda GUI section ### Form=d:\felix\eigene dateien\autoit scripte\xmaspoker\gui\form1.kxf
$Form1_1 = GUICreate("TITEL", 1024, 768, 0, 0)
GUISetBkColor(0x000000)
FileChangeDir(@scriptdir&"\GUI")
$Pic1 = GUICtrlCreatePic("background.jpg", 0, 0, 1024, 768)
GUICtrlSetState(-1, $GUI_DISABLE)
$left = GUICtrlCreateButton("(Not allowed)", 280, 624, 63, 63, $BS_BITMAP)
GUICtrlSetImage(-1, "buttonleft.bmp", 0)
GUICtrlSetState(-1, $GUI_HIDE)
$right = GUICtrlCreateButton("(Not allowed)", 704, 624, 63, 63, $BS_BITMAP)
GUICtrlSetImage(-1, "buttonright.bmp", 0)
$play = GUICtrlCreateButton("(Not allowed)", 488, 624, 67, 68, $BS_BITMAP)
GUICtrlSetImage(-1, "play-button.bmp", 0)
FileChangeDir(@scriptdir)
$Label1 = GUICtrlCreateLabel(title($vidid), 456, 288, 143, 80,$SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans Ms")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel(" Video mit Pfeilbuttons wählen und mit Play bestätigen", 376, 568, 311, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xD8E4F8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#region funcs
func _vidCreate ($playURL, $left = 303, $top = 298, $width = 640, $height = 420)
		$oAX = GUICtrlCreateObj($oIE, $left, $top, $width, $height)
		FileChangeDir(@scriptdir & "\data")
		$playURL = IniRead("info.ini","url",$vidID,"error")
		_IENavigate ($oIE, @scriptdir & "\html\jwplayer\"&$playURL)
		GUICtrlSetState($oAX,$GUI_SHOW)
EndFunc

Func left ()
	switch $run
		case 0
			GUICtrlSetState($right, $GUI_SHOW)
			if $vidID > 0 Then
				$VidID = $VidID -1
			EndIf
			if $vidID = 0 Then
				GUICtrlSetState($left, $GUI_HIDE)
			EndIf
			GUICtrlSetData ($label1,title($vidID))
	EndSwitch
EndFunc

func right ()
Switch $run
	case 0
		GUICtrlSetState($left, $GUI_SHOW)
		if $vidID < $vidID_max Then
			$VidID = $VidID +1
		EndIf
		if $vidID = $vidid_max Then
			GUICtrlSetState($right, $GUI_HIDE)
		EndIf
		GUICtrlSetData ($label1,title($vidID))
	EndSwitch
EndFunc

func title($vidID)
	FileChangeDir(@scriptdir&"\data")
	return IniRead("info.ini","title",$vidID,"Error")
EndFunc

func _go($VidID)
		switch $run		;1 = vid läuft, 2 = vid pausiert, 0 = vid nicht geladen
		case 0
				FileChangeDir(@scriptdir&"\gui")
				GUICtrlSetImage($play, "pause-button.bmp", 0)
				$run = 1
				_vidCreate(0)
		case 1
				FileChangeDir(@scriptdir&"\gui")
				GUICtrlSetImage($play, "play-button.bmp", 0)
				$run = 2
		case 2
				GUICtrlSetState($oAX,$GUI_SHOW)
				GUICtrlSetImage($play, "pause-button.bmp", 0)
				$run = 1
	EndSwitch
EndFunc


Func _IEEvent_NavigateComplete2($ptrBrowser, $ptrURL)			;notwendig für .swf player (hide scrollbar in embedded)
    ConsoleWrite("Debug:  _IEEvent_NavigateComplete2()" & @LF)
    $oIE.document.body.scroll = "no"
EndFunc   ;==>_IEEvent_NavigateComplete2

#endregion

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
case $nMsg = $left
	left()
case $nMsg = $right
	right()
case $nMsg = $play
	_go($vidid)
EndSelect
WEnd