#include <GUIConstantsEx.au3>
#include <MonCreerPanneau.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui
$nbcar=8
$Gui = GUICreate("Panneau", 49*$nbcar, 150)
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
CreerPanneau("Portez ce vieux whisky au juge blond qui fume", 5, 5, $nbcar, -1, -1, -1, 4, 4)
$Input = GUICtrlCreateInput("Portez ce vieux whisky au juge blond qui fume", 5, 90, 190, 20)
;guictrlsetfont($Input,9,400,-1,"Apple ][")
$BoutonValider = GUICtrlCreateButton("Valider", 200, 90, 190, 20)
$BoutonDefil = GUICtrlCreateButton("Defiler", 5, 120, 190, 20)
$BoutonClign = GUICtrlCreateButton("Clignoter", 200, 120, 190, 20)
GUICtrlSetOnEvent($BoutonValider, "ChangerText")
GUICtrlSetOnEvent($BoutonDefil, "ChangerDefilement")
GUICtrlSetOnEvent($BoutonClign, "ChangerClignotement")
GUISetState()

Func ChangerText()
	$Txt = GUICtrlRead($Input)
	Panneau_Set_Text($Txt)
EndFunc

While(True)
	Sleep(10)
WEnd

Func quit()
	Exit
EndFunc