#include <GUIConstantsEx.au3>
#include <CreerPanneau.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui

$Gui = GUICreate("Panneau", 400, 150)
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
CreerPanneau("TommyDDR", 5, 5, 8, -1, -1, -1, 4, 4)
$Input = GUICtrlCreateInput("TommyDDR", 5, 90, 190, 20)
$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