BlackTDN :: Harbour Source e GIF animada no Protheus

P.Chornyj criou a função LoadGIF para uso no Harbour MiniGui e, este que vos escreve, adaptou-a para uso no Protheus. Com ela é possível executar a animação de arquivo GIF no Protheus.

Apesar de funcional torna-se limitada pelo intervalo permitido pela TTimer.  O código em si é bem simples. A função LoadGIF separa os Frames animados do arquivo GIF em pequenos arquivos GIF e, para animá-los, utilizo a classe TTimer do Protheus. Infelizmente não consegui controlar o intervalo e velocidade de atualização dos Frames. Se alguém tiver uma idéia de como fazê-lo ficarei feliz em aprender.

Os arquivos de exemplo poderão ser baixados ao clicar aqui ou aqui se deseja atualizar o seu projeto svn a partir dos templates.

Compile o projeto H_GIF89.prj e execute a função de exemplo U_GIF89Ex a partir da tela de entrada do sistema.

Escolha o diretório com os arquivos GIF a animar

E observe a animação:

 

Uma versão alternativa com controle da velocidade de animação poderá ser verificada em U_GIF89FA.prg. Execute U_GIF89ExFA e veja a animação. Nesse novo exemplo o controle da animação se dá pelas constantes:

#DEFINE ANIMATE_DELAY    5 #DEFINE ANIMATE_SLEEP    100

Execute U_GIF89ExFA e observe a diferença em relação ao primeiro exemplo.

Escolha o diretório com os arquivos GIF a animar

e verifique a nova animação

[]s

иαldσ dj