#include <new Creer panneau.au3>

Opt("GUIOnEventMode", 1)

Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_FOCUS = 256
Global Const $GUI_RUNDEFMSG = 'GUI_RUNDEFMSG'
Global Const $WS_POPUPWINDOW = 0x80880000
Global Const $WS_SIZEBOX = 0x00040000
Global Const $WS_EX_TOOLWINDOW = 0x00000080

$nbcar=6
$nbpixparcaracterehoriz=11
$EspacementX=1
$EspacementY=1
$TaillePixX=4
$TaillePixY=4
$PosX=5
$PosY=5
$Delai = 40
$ecartbouton=10
$largeurbouton=55
$largeurgui=($nbcar*($TaillePixX+$EspacementX)*$nbpixparcaracterehoriz)+($PosX*2)

GUICreate("Panneau lumineux",$largeurgui, 150,-1,-1,$WS_POPUPWINDOW + $WS_SIZEBOX, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
CreerPanneau("Dès Noël où un zéphyr haï me vêt de glaçons würmiens, je dîne d’exquis rôtis de bœuf au kir à l’aÿ d’âge mûr & cætera !", $PosX, $PosY, $nbcar, -1, -1, $Delai, $TaillePixX, $TaillePixY,$EspacementX,$EspacementY)
$Input = GUICtrlCreateInput("Dès Noël où un zéphyr haï me vêt de glaçons würmiens, je dîne d’exquis rôtis de bœuf au kir à l’aÿ d’âge mûr & cætera !", 5, 90, $largeurgui-$largeurbouton -$ecartbouton-$ecartbouton , 20)
$BoutonValider = GUICtrlCreateButton("Valider", $largeurgui - $largeurbouton - $ecartbouton, 90, $largeurbouton, 20)
$BoutonDefil = GUICtrlCreateButton("Defiler", $largeurgui - $largeurbouton -$ecartbouton -$largeurbouton -$ecartbouton, 120, $largeurbouton, 20)
$BoutonClign = GUICtrlCreateButton("Clignoter", $largeurgui - $largeurbouton-$ecartbouton, 120, $largeurbouton, 20)
GUICtrlSetOnEvent($BoutonValider, "ChangerText")
GUICtrlSetOnEvent($BoutonDefil, "ChangerDefilement")
GUICtrlSetOnEvent($BoutonClign, "ChangerClignotement")
GUISetState()
send("{HOME}")
$monsize=WinGetPos("[ACTIVE]")
GUIRegisterMsg(0x24,'MY_WM_GETSIZE')

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

While(True)
	Sleep(10)
WEnd

Func quit()
	Exit
EndFunc


Func MY_WM_GETSIZE($hWnd, $Msg, $wParam, $lParam)
    Local $minmaxinfo = DllStructCreate('int;int;int;int;int;int;int;int;int;int',$lParam)
    DllStructSetData($minmaxinfo,7,$monsize[2]); min X
    DllStructSetData($minmaxinfo,8,$monsize[3]); min Y
    DllStructSetData($minmaxinfo,9,$monsize[2]); max X
    DllStructSetData($minmaxinfo,10,$monsize[3]); max Y
    Return $GUI_RUNDEFMSG
EndFunc