#Include <GUIConstantsEx.au3>
#Include <SliderConstants.au3>
#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>
#include "Animate.au3"
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
Global $Button, $Slider, $Msg
_Animate
_LoadFromFile
(@ScriptDir & 'Flag.png')
;~For $i = 1 To 12
;~ _Animate_AddIcon(@ScriptDir & 'Flag' & $i & '.ico', 0)
;~Next
_Animate
_SetDelay
(50)
_Animate
_ShowIcon
()
GUICreate('Animation Test', 400, 110)
GUICtrlCreateLabel('Fast', 10, 30, 28, 14, $SS_RIGHT)
GUICtrlCreateLabel('Slow', 355, 30, 28, 14)
$Slider = GUICtrlCreateSlider(42, 25, 310, 26, BitOR($TBS_AUTOTICKS, $WS_TABSTOP))
GUICtrlSendMsg(-1, $TBM_SETTICFREQ, 10, 0)
GUICtrlSetLimit(-1, 250, 10)
GUICtrlSetData(-1, 50)
$Button = GUICtrlCreateButton('Start', 160, 75, 80, 25)
GUICtrlSetState(-1, BitOR($GUI_DEFBUTTON, $GUI_FOCUS))
GUISetState()
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Slider
_Animate
_SetDelay
(GUICtrlRead($Slider))
Case $Button
If _Animate
_IsAnimate
() Then
GUICtrlSetData($Button, 'Start')
_Animate
_Stop
()
Else
GUICtrlSetData($Button, 'Stop')
_Animate
_Start
()
EndIf
EndSwitch
WEnd