AnimateBox HMG

[clipsis]

Olá a todos!

Alguém sabe como funciona e como usa o componente AnimateBox da paleta do HMG ?

Algum exemplo.

Fico no aguardo!

[Pablo César]

Ao pesquisar sobre o assunto de AnimateBox, olhe só o que eu encontrei <ver vídeo em anexo>. Pena estar em fracês ou algum outro idioma árabe (creio eu). Pois ensina através de um software chamado PWCT (Magic) do Mahmoud Fayed (pra quem quiser fazer download: http://doublesvsoop.sourceforge.net/) esta ferramenta permite criar sua própria aplicação visual sem código fonte: PWCT - Programming Without Coding Technology.

[Maligno]

Minha opinião: em mais de 20 anos de carreira eu nunca vi qualquer linguagem de programação nesse estilo "visual" que permita desenvolver software complexo, de qualidade realmente boa e que seja algo mais que uma simples "curiosidade visual". Se existisse algo do tipo qualquer capiau seria programador. Não dá pra dispensar os dias, meses de desenvolvimento, se a proposta é ter um software de boa qualidade.

Vale mais pela curiosidade.

[Pablo César]

Realmente interessante a ferramenta. E interessante também foi anexar o video e pelo que parece ele é acionado apenas entra neste tópico... rsrs Se isto incomodar, posso apenas colocar o link.

[Maligno]

Pois é. No início pensei que fosse uma imagem, mas quando começou a tocar estranhei. Daí que vi que era flash, que reproduz automaticamente. Também não sabia disso.

[Pablo César]

Ainda não usei o componente AnimateBox da paleta do HMG, mas existe este exemplo no HMG Extended que modifiquei da pasta Samples:

Código: Selecionar todos

/*

 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

[Maligno]

Erro: um box avisa que falta o arquivo qt4core.dll. Não dá pra saber se falta algum outro.

[Pablo César]

Ué ! Mas que droga ! Não é que para aplicativos feito em HMG 4 (ou ao menos este aqui), precisa registrar as seguintes dlls:

mingwm10.dll
QtCore4.dll
libgcc_s_dw2-1.dll
QtGui4.dll

Estas fazem parte do BIN da HMG 4. Eu me enganei e tinha mencionado que era HMG Extended (mas corrigí) na minha mensagem anterior. Puxa fiquei decepcionado com isso ! Teria alguma coisa a ver com a portabilidade que a QT oferece ?

[Toledo]

Segue em anexo um exemplo para HMG 3.0.35.

Abraços,

[Pablo César]

Ta aí... esse sim funciona em qualquer Windows e sem precisar instalar nada. Valeu Toledo !