Olá a todos!
Alguém sabe como funciona e como usa o componente AnimateBox da paleta do HMG ?
Algum exemplo.
Fico no aguardo!

Moderador: Moderadores
AnimateBox.swf [ 3.51 MiB | Visualizado 1383 vezes ]
/*Disponibilizei o executável e os arquivos gifs para executarem e verem o resultado.
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
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes