Exemplo de Uso VisualLib com Harbour

[asimoes]

Senhores,

Preparei um exemplo para vocês poderem usar a visuallib com o harbour.

No anexo exemplo.part1.rar e exemplo.part2.

Qualquer problema na descompactação por favor me avisem, que eu disponibilizo no 4shared.

Para compilar:

hbmk2 exemplo.hbm

Qualquer duvida informem neste tópico.

[]´s

[Cezar]

Boa tarde,

Eu baixei seu exemplos, muito bons, mas parece que a fonte esta sem as alteraçoes dos
caracteres especiais: F1, F2, F3, .., seta pra-cima.

Sem querer abusar,que ferramenta vove usou para alterar a fonte??

grato
v_cez@yahoo.com.br

[asimoes]

Olá Cezar,


Eu usei o fontlab usei como base a fonte da visuallib original vga850.fon, houve uma atualização da gtwvg não sei precisar quando que os caracteres F1, F2.. e outros não estão exbindo corretamente.

[]´s

[janio]

Seria bom deixar em algum lugar já compilado!

Quem não usa harbour fica difícil ver o resultado.

Tô meio curioso!
:* -:] :xau :)Pos :|<

Janio

[Cezar]

Bom dia Alexandre,

Carregando a VisualLib no FontLab, vejo o F2, F9, F10; mas não vejo o F3, F4, mas existem.

Parece que o problema é de resolução!!

Usando:
Wvt_SetFont("VisualLib",28,10,FW_NORMAL,2)
Mostra F1,F2,F3, etc.., mas bagunça os botões, principalmente a linha dupla pra mostrar que
o botão tá com foco ou, talvez, usar um outro caracter na Vlib pra mostrar o foco.

Estava usando uma outra resolução pra tentar iniciar com a tela já maximizada e ai o botão ficava
correto mas não mostrava mostrava os F1, F2, etc..

Respondendo ao amigo Janio, eu estou usando o Xharbour, não sei te dizer que diferença
teria com o Harbour.

v_cez@yahoo.com.br

[asimoes]

Olá Cezar,

Você tá usando o exemplo que eu fiz?
Até a última versão do harbour a 2.0 final do ano passado, está funcionando ok, todos os caracteres estão sendo apresentados chr(1) F1 chr(2) F2 ...
Houve uma atualização da gtwvg em março/abril que mudou a apresentação dos caracteres que não estão correspondendo aos chr(1) F1 chr(2) F2 ...
Não testei no xharbour. No fontlab como você viu a sequencia está ok.

Esta function é que carrega a fonte dos caracteres, até o final do ano passado estava ok.
Wvt_SetFont (' VisualLib' , 28,10, FW_NORMAL, 2)

[]´s

[asimoes]

Olá Jânio,

A bat gera.bat.:

Código: Selecionar todos

@echo off
set path=%path%;d:\harbourx\mingw\bin
set hb_compiler=mingw
hbmk2 exemplo.hbm
pause

O hbm exemplo.hbm:

Código: Selecionar todos

# ---------------------------
# Nome do Executável
# ---------------------------
-oexemplo
# ---------------------------
# Bibliotecas
# ---------------------------
-lhwgui
-lprocmisc
-lhbct
-lhbgt
-lgtwvg
-lgtwvt
-lhbnf
-lhbwin
-lxhb
# ---------------------------
# Caminhos dos Includes
# ---------------------------
-incpath=d:\harbourx\mingw\bin\include;d:\harbourx\hwgui\include
# ---------------------------
# Caminho das Libs da HWGui
# ---------------------------
-Ld:\harbourx\mingw\lib
#-Ld:\minigui\harbour\lib
# ---------------------------
# Outros Parƒmetros
# ---------------------------
-workdir=.\OBJ\
-gtgui
-head=full
-n
-nowarn
-inc
-mt
-b
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
exemplo
vlib

O exemplo compilado.

http://www.4shared.com/file/kQWtjbvn/exemplo.html

[Cezar]

Olá Asimoes,

No FontLab eu só vejo F1,F2,F9,F10, não vejo os outros Fs.

Mas estão lá, usando Wvt_SetFont (' VisualLib' , 28,10, FW_NORMAL, 2) todos os Fs são listados, porem
o botão da MsgBox2, que tem o foco, linha dupla em volta, fica desenhado com outro caracter, como relatei no topico acima.

Eu usei o seu exemplo pra alterar o meu prg.

Tentei compilar o seu Exemplo.prg, faltou o wvgparts.ch que é do Harbour.

Eu baixei agora o Harbour 2.0 e vou compilar o Exemplo.prg e o meu Prg com ele, pode ser que
tenha alguma diferença entre xHar e o Harb.

v_cez@yahoo.com.br

[Cezar]

Boa tarde,

Baixei o Harbour 2.0 mas não estou conseguindo compilar Exemplo.prg e não estou
enxergando o meu erro.

Onde estara meu erro??

Minhas configurações:

bcc32.cfg
-I"C:\BCC55\include;C:\HB20\INCLUDE"
-L"C:\BCC55\lib;C:\BCC55\LIB\PSDK;c:\HB20\LIB\WIN\BCC"

Ilink32.cfg
-L"C:\BCC55\LIB;C:\BCC55\LIB\PSDK"


# ---------------------------
# Nome do Executável - EXEMPLO.HBM
# ---------------------------
-oexemplo
# ---------------------------
# Bibliotecas
# ---------------------------
-lhwgui
-lprocmisc
-lhbct
-lhbgt
-lgtwvg
-lgtwvt
-lhbnf
-lhbwin
-lxhb
# ---------------------------
# Caminhos dos Includes
# ---------------------------
-incpath=c:\hb20\include;c:\hwgui\include
#-incpath=d:\harbourx\mingw\bin\include;d:\harbourx\hwgui\include
# ---------------------------
# Caminho das Libs da HWGui
# ---------------------------
-Lc:\hwgui\lib
-Lc:\hb20\lib\win\bcc
#-Ld:\harbourx\mingw\lib
#-Ld:\minigui\harbour\lib
# ---------------------------
# Outros Parametros
# ---------------------------
-workdir=\EXEMPLO\OBJ
-gtgui
-head=full
-n
-nowarn
-inc
-mt
-b
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
EXEMPLO
VLIB.PRG

C:\Exemplo>HBMK2 EXEMPLO
hbmk2: Processando arquivo de configuração: C:\hb20\bin\hbmk.cfg
Harbour 2.0.0 (Rev. 13372)
Copyright (c) 1999-2010, http://www.harbour-project.org/
Compiling 'EXEMPLO.prg'...
Lines 5333, Functions/Procedures 6
Generating C source output to 'EXEMPLO.c'... Done.
EXEMPLO.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_WIN' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_MSGBOX3D1' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_WVT_SETCODEPAGE' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_VLSETMODE' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_MSGINFO' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_WVGCRT' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_WVT_SETFONT' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_WVT_SETTITLE' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_WVT_SETALTF4CLOSE' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_HWG_FINDWINDOW' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_VLDISPBOX' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_COLORWIN' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_CLEARWIN' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_HB_GT_WVG' referenced from C:\EXEMPLO\EXEMPLO.OBJ
Error: Unresolved external '_HB_FUN_HB_GT_WVG_DEFAULT' referenced from C:\EXEMPLO\EXEMPLO.OBJ
hbmk2: Erro: Executando linkeditor. 2
ilink32.exe @C:\Users\ADMIN\AppData\Local\Temp\zwycz5.lnk

C:\Exemplo>

v_cez@yahoo.com.br

[asimoes]

Olá Cezar,

MSGBOX3D1 é função do fonte VLIB
WVT_SETCODEPAGE é função da lib GTWVG

-workdir=\EXEMPLO\OBJ
Troque para -workdir=.\OBJ\

-Lc:\hwgui\lib
-Lc:\hb20\lib\win\bcc
Troque para -Lc:\hwgui\lib;c:\hb20\lib\win\bcc

Outra coisa, você tá usando a hwgui atualizada?

[]´s

[Cezar]

Boa noite,

Baixei uma nova HwGui pelo TortoiseCVS, gerei as Libs pelo Harbour 2.0
Fiz as alteraçoes sugeridas mas o erro permanece.

Fiz este teste:

HELLO.HBP
------------------------------------------------------------
-inc
-oHELLO
HELLO.PRG
HELLO1.PRG

Código: Selecionar todos

------------------------------------------------------------
FUNCTION MAIN()
  CLS
  @ 10,10 SAY "OLA MUNDAO !!!!"
  INKEY(0)
  H1()
RETURN NIL
-------------------------------------------------------------
FUNCTION H1()
   @ 20,10 SAY "OLA OLA OLA !!!"
   INKEY(0)
RETURN NIL
-------------------------------------------------------------

C:\hbtest>HBMK2 HELLO
hbmk2: Processando arquivo de configuração: C:\hb20\bin\hbmk.cfg
Harbour 2.0.0 (Rev. 13372)
Copyright (c) 1999-2010, http://www.harbour-project.org/
Compiling 'HELLO.prg'...
Lines 7, Functions/Procedures 1
Generating C source output to 'HELLO.c'... Done.
HELLO.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_H1' referenced from C:\HBTEST\HELLO.OBJ
hbmk2: Erro: Executando linkeditor. 2
ilink32.exe @C:\Users\ADMIN\AppData\Local\Temp\unkv36.lnk ( ??? )

Acho que o problema é com Windows VISTA ultimate, mesmo como administrador?

v_cez@yahoo.com.br

[asimoes]

Olá Cezar,

Muito estranho isso, tente renomear o hello.hbp para hello.hbm para ver no que dá.

Se for possível, crie uma instalação do harbour em um xp.

A minha máquina é windows 7 64 nunca tive esse problema.

[]´s

[Cezar]

Ola Asimoes,

Depois de uma semana cheio de problemas, neste fim de semana,
reformatei pra Xp, instalei de novo, ( Exemplo.prg ) compilou sem problemas.
Foi alguma bobagem minha, muito grato pela ajuda. (todos)

v_cez@yahoo.com.br

[acelconsultoria]

Olá pessoal,

Só pra constar e colaborar um pouquinho, peguei os fontes de Visual Lib e do Exemplo, postado aqui e consegui usar com a GTWVW.

Apenas instalei a fonte no Windows (VisualLib.ttf) e fiz umas modificações no DEMO.PRG que vinha originalmente na VL do Clipper. Utilizei o xDev pra compilar/gerar EXE e realmente ficou muito bacana.

Sei que as pessoas têm evitado usar GTWVW, mas muitos ainda utilizam (eu por exemplo).

Aqui segue um link, com todos os arquivos e o executável gerado:

http://www.4shared.com/file/nRc_1aPh/VL_GTWVW.html


Compilei utilizando xHarbour 1.2, BCC 5.5 e a GTWVW. Meu sistema operacional é Windows 7.

Nota de Moderação:
por Toledo: O mesmo arquivo disponibilizado no 4shared, também está na seção downloads do fórum:
Aqui link para o arquivo

[Toledo]

Maickon, muito interessante este demo... gostei!

Apesar de você já ter disponibilizado no 4shared, poderia colocar também aqui na seção Download do fórum. Para isto basta clicar na opção de Downloads que está no topo da página.

Abraços,