Projeto MiniGui - Biblioteca visual para Harbour/xHarbour
27 Abr 2011 16:20
Olá a todos!
Alguém sabe como funciona e como usa o componente AnimateBox da paleta do HMG ?
Algum exemplo.
Fico no aguardo!
27 Abr 2011 18:15
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.
- Anexos
-
AnimateBox.swf [ 3.51 MiB | Visualizado 1388 vezes ]
27 Abr 2011 18:26
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. :)
27 Abr 2011 18:35
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.
27 Abr 2011 19:00
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. :)
27 Abr 2011 20:49
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:
/*
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
- Anexos
-
- animatebox.zip
- (1.59 MiB) Baixado 140 vezes
27 Abr 2011 20:58
Erro: um box avisa que falta o arquivo qt4core.dll. Não dá pra saber se falta algum outro.
27 Abr 2011 21:17
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 ?
28 Abr 2011 14:29
Segue em anexo um exemplo para HMG 3.0.35.
Abraços,
- Anexos
-
- animatebox.zip
- Demo de uso de animateBox da HMG
- (768.38 KiB) Baixado 183 vezes
28 Abr 2011 16:00
Ta aí... esse sim funciona em qualquer Windows e sem precisar instalar nada. Valeu Toledo !
Powered by phpBB © phpBB Group.
phpBB Mobile / SEO by Artodia.