HMG 3.x + WVG = Harbour Multi GT

[Imatech]

Migração imediata de console para GUI

A algum tempo no blog do "Marcos Gambeta" li sobre: "HARBOUR MULTI GT", utilizando Multiplas bibliotecas gráficas... no entanto o exemplo não era funcional e deixei a possibilidade para o futuro (Que chegou)...

Recentemente num post (forum harbour), um usuario que tentava migrar de "xHarbour Console" para "Harbour" tambem no modo Console recebeu um exemplo em HMG para compilar e não conseguiu (obvio: nem tinha HMG). Alguns posts depois recebeu + dicas para instalar e compilar com HMG... Achei muito estranha a situação, pois o programa ficaria o Verdadeiro "FRANKENSTEIN" ( imaginei "HMG + Janela Console" )...

Voltando ao "HARBOUR MULTI GT" - Peguei um exemplo da HMG (Contactos) e implementei algumas rotinas da WVG...

Finalmente cheguei a resultado satisfatório...

Quem quiser pagar para ver: é só baixar o exemplo para a pasta Samples da HMG e testar...

[Pablo César]

Interessante ! Gostei do seu Utils.prg, parabéns !

É com o HB_GTSYS() que faz pedido padrão de compilação GT ?

E diga-me, quando ou em qual situação é utilizado: ANNOUNCE HB_GTSYS e REQUEST HB_GT_WIN ?

[Imatech]

Olá amigo Pablo...

É uma pena você ter apagado meus posts semelhantes em outros tópicos...

Acho que seria importante para muitos usuarios a existencia deles...



Mas vamos lá...


demo.hbc

Código: Selecionar todos

gt=gtwvg

Código: Selecionar todos

*----------------------*
*Basta existirem no .prg, veja ao final do main.prg
*----------------------*

ANNOUNCE HB_GTSYS 
REQUEST HB_GT_WIN

*----------------------*
* Atenção: essas requisções não são usadas no exemplo
*----------------------*

[Pablo César]

É uma pena você ter apagado meus posts semelhantes em outros tópicos...

Não. Uma coisa não tem a ver com a outra. Desculpe, mas temos que seguir as regras do fórum. O seu tópico ficou, eis ele aqui. Mas não por isso temos que repeti-lo em todo que tópico. Senão colocamos ordem, vira bagunça e olha: você me deu trabalho... rs

Acho que seria importante para muitos usuarios a existencia deles...

Acho que você entenderá e verá que ainda assim continua sendo útil.

Eu ja compilei o seu exemplo, entendo que tais requisições não foram utilizadas no seu exemplo. Pensei que essa seria outra forma de incluir a bibliotecas WVG + GT

[Pablo César]

Acho interessante você postar lá no fórum oficial da HMG e da MiniGUI (este ultimo, mandar email pro Grigory) para que incluam um exemplo seu com inteiração WVG + GT nos exemplos que poderiam fazer parte nos futuros releases de versão.

[Imatech]

EXEMPLO ATUALIZADO (Sera tambem disponibilizado na versão HMG oficial)


Extrair para raiz do disco onde se encontra a HMG = C:, D:, ETC...

Localização Final:

\HMG\SAMPLES\HMG_WVG




Para compilar (estando na pasta):

\HMG\SAMPLES\HMG_WVG\build demo.hbp

[vailton]

Tem como disponibilizar o executavel? Eu gostaria de testar o exemplo, mas daqui onde estou não tenho como compilar o aplicativo...

[Pablo César]

Oi Vailton, segue em anexo o executável do ultimo exemplo do colega do Ronaldo (Imatech, ex Jovemxxx), para a sua apreciação.

[Imatech]

Professor Vailton...


Saudade de ti para bater papo no messenger...

Nosso amigo Pablo já se adiantou e disponibilizou o arquivo...


Qquer dúvida me chama em PVT


Abraço...

[Pablo César]

Eu tentei de todas formas: com a função em WIN_KILLPROCESS C do Vailton com função que detecta pelo título da janela, mas nada... parece que estivera faltando o FORM dessa WINDOW. Inclusive tentei pegar o nome interno do HMG através do _HMG_ActiveFormName que equivale a _HMG_SYSDATA [ 223 ] (caso do HMG) mas não deu certo. Quem sabe o mestre Vailton consiga...

Existe um exemplo no ...\harbour\contrib\gtwvg\tests\wvgcuigdialog.prg que ensina como criar um oCRT e que talvez esteja faltando antes algo assim como: Hb_ThreadStart...

[Imatech]

Olá Pablo...

A intenção do exemplo é essa mesmo: os 2 primeiros Botões expõem o FranksTein que atrapalha o projeto... e não há como sumir com ele...

Os proximos 2 botões sim: utilizam o FrameWork ( oCrt ) criado pela classe WvgCrt, dando assim o necessário controle das "janelas console" de forma muito atrativa...

Qquer dúvida é só perguntar...


Abç...

[microvolution]

olá pessoal, achei mui interessante este tópico.
Bom, no meu caso, estava usando a HMG 3.0.XX e parei em novembro/2015 para experimentar a GTWVG.
Em fevereiro/2016 (início) comecei a testar também a GTWVW, mas, como ela é pouco referenciada aqui no fórum e também noutros locais - apesar de ter um grupo no yahoo inteirinho só pra ela, mas, esse tal grupo tem poucas postagens, pouquíssimas mesmo.
Agora quero implementar algo semelhante ao título do post, só que no lugar da preferência ser da HMG, é como se o título do tópico fosse.
GTWVG mais HMG 3.0.XX = harbour Multi GT.
Aliás, vou agora mesmo, abrir um novo tópico no local correto, para não infringir aqui as regras do fórum. Ok?
E volto aqui para postar o link...
mas, se alguém entendeu e puder dar uma dica, estamos juntos e misturados, e, não embolados, e no meu caso, estou sempre em construção!!!

[JoséQuintas]

Achei interessante.
Até tentei testar.

Alguma idéia de como resolver este erro?

Achei que tinha a ver com ter aumentado uma opção, então reutilizei uma já existente.

Código: Selecionar todos

        MENUITEM '&1 - Outro jeito de usar' ACTION DoPrg( "testewvg" )

[JoséQuintas]

Numa versão reduzida, também com erro:

Código: Selecionar todos

FUNCTION DoPrg()
   hb_ThreadStart( { || TesteWvg() } )
   RETURN NIL

FUNCTION TesteWvg()
   RETURN NIL

[JoséQuintas]

Sobre a tela da WVG não fechar nesse exemplo...
É normal. A Tela principal da WVG nunca some.
Pra essa finalidade não é ela que deve ser usada.