Ainda não usei o componente AnimateBox da paleta do HMG, mas existe este exemplo no
HMG Extended que modifiquei da pasta Samples:
/*
HMG 4 DEMO
(c) 2010 Roberto Lopez <mail.box.hmg@gmail.com>
Implemented by Pablo César for fórum proposes
*/
#include "hmg.ch"
Function Main
Define window Win1;
at 10,10 ;
Width 415 ;
Height 490
Title "Exibe arquivos gifs !!!"
Type WND_MAIN
Oninit (Win1:Center(),Win1.ab1.play())
Define AnimateBox ab1
Row 10
Col 10
Width 394
Height 376
File 'bfly.gif'
End AnimateBox
Define Button b1
Row 400
Col 10
caption "Play"
onClick Win1.ab1.play()
End Button
Define Button b2
Row 400
Col 150
caption "Stop"
onClick Win1.ab1.stop()
End Button
Define Button b3
Row 400
Col 290
caption "Close"
onClick Fechar()
End Button
Define Button b4
Row 440
Col 080
caption "Girassol"
onClick Girassol()
End Button
Define Button b5
Row 440
Col 220
caption "Borboleta"
onClick Borboleta()
End Button
End Window
Win1:Activate()
Return
Function Girassol()
Win1.ab1.close()
Win1.ab1.file := 'sg4.gif'
Win1.ab1.open('sg4.gif')
SetProperty("Win1","ab1","col",160)
Win1.ab1.show()
Win1.ab1.play()
Return
Function Borboleta()
Win1.ab1.close()
Win1.ab1.file := 'bfly.gif'
Win1.ab1.open('bfly.gif')
SetProperty("Win1","ab1","col",10)
Win1.ab1.show()
Win1.ab1.play()
Return
Function Fechar()
Win1.ab1.close()
Win1.ab1.hide()
Return
Disponibilizei o executável e os arquivos gifs para executarem e verem o resultado.
Obs.: Favor notar em vermelho HMG Extended por HMG versão 4 como correto