Harbour 3.2.0 X Visual Lib

Antonio · Mensagem por **Antonio** » 03 Abr 2014 17:03

Pessoal, desculpa incomodar novamente com esse assunto.

Uso harbour 3.2.0 Changlog 2014-03-06.
Windows 7

Gostaria de usar a visuallib e estou usando, porem a tela fica como acima.

O colega Asimoes, Alex, Sygecom e outro me apresentaram algumas formas, mas infelizmente não deu certo, talvez pq eles usavam xharbour.

Alguem usa a visuallib com harbour 3.2.0 com sucesso?

Grato
Antonio

Mensagem por **Itamar M. Lins Jr.** » 03 Abr 2014 19:21

Ola!
O amigo José Quintas postou alguns exemplos usando a GTWVG. São exemplos fácil de entender.
Uma dica: procure usar bibliotecas mais populares, essa que você escolheu não faz parte do CORE de nenhuma distribuição. Nem do xHarbour.

Saudações,
Itamar M. Lins Jr.

Mensagem por **lugab** » 03 Abr 2014 19:24

Antonio, pra ser mais prático é bom já ir postando a procedure Main() do seu aplicativo, notadamente no trecho onde vc configura a tela inicial.

Não da pra ajudar, apenas olhando o resultado da execução

Antonio · Mensagem por **Antonio** » 03 Abr 2014 22:19

Ola Itamar!
Eu ja até dei uma olhada sim nos exemplos do Jose Quintas mas não tenho interesse por enquanto em trabalhar com ela.

Ola lugab!
Como eu disse, alguns colegas ja deram exemplos e tentaram me ajudar mas acredito que as coisas não correram como esperado porque eles usavam xHarbour 1.00 e eu estou tentando usar com Harbour (3.2.0). Por isso fui mais direto na pergunta, visto que se alguem estiver usando no contexto do harbour fica bem mais facil uma vez que eu o utilizo. De toda forma segue o trecho:

Código: Selecionar todos

    #include "inkey.ch"
    #include "visual2.ch"
    #include "Getexit.ch"

    #include "wvtwin.ch"       // FW_MEDIUM            //
    #include "hbgtinfo.ch"     // HB_GTI_DESKTOPWIDTH  //

    #include "sysadm.ch"

    //-------------------------------------------------------------------
    INIT PROCEDURE Configura()
	Request Hb_Lang_Pt
	Request Hb_CodePage_Pt850
	Request Hb_Gt_Wvt_Default
	Request Hb_Lang_Pt
        Request Wvt_SetCodePage
        Request DbfCdx

        RddSetDefault("DbfCdx")

        Hb_LangSelect("PT")
        Hb_SetCodePage( "PT850" )
        Wvt_SetCodePage(255)       // Pagina de codigo 850  //

	//HB_GtInfo( HB_GTI_CLOSABLE, .F. )  // quer bloquear o botão X de fechamento?
	//HB_GtInfo( HB_GTI_ICONFILE, "icone_do_app.ico" )

	HB_GtInfo( HB_GTI_WINTITLE, tituloDesktop + versaoSistema )
	HB_GtInfo( HB_GTI_MAXIMIZED, .t. )       // janela WideScreen

        //SET EVENTMASK to 159
        mSetCursor( .t. )

        Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
        Hb_GtInfo( HB_GTI_FONTSIZE, 9)



	Do Case
	   Case HB_GtInfo(HB_GTI_DESKTOPWIDTH) >= 1023
	        //Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
	        //Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
                //Hb_GtInfo( HB_GTI_FONTSIZE, 9)
           Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
	        Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
	        //Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
                //Hb_GtInfo( HB_GTI_FONTSIZE, 9)
           OtherWise
	        //Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
	        //Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
                //Hb_GtInfo( HB_GTI_FONTSIZE, 9)
        EndCase


        Set Key -8 To calen()
        Set Key -9 To calculadora()

        SetMode(30,100)

        Set Softseek On
        Set Cursor On
        Set Scoreboard Off
        Set Date To British
        Set Century On
        Set Deleted On

         RETURN (nil)
         //-------------------------------------------------------------------
         // End Off INIT PROCEDURE System
         //-------------------------------------------------------------------


         FUNCTION main()
             //

             DeskTop(tituloDesktop,"w+/b",,.f.) //string "", string COR, setmode, font
             //LoginAcesso()
             MontaMainMenu()

             MontaBarraInferior()


         RETURN (nil)
          //-------------------------------------------------------------------
          // End Off Entry Point MAIN PROCEDURE System
          //-------------------------------------------------------------------

Os testes foram feitos... variações de resolução de tela, tentativa de uso da fonte Visuallib-ttf desenvolvida pelo colega Asimões se não me engano, no meu caso não deu.

Os trechos comentados assim estão porque eu queria perceber os efeitos com e sem as configuração para que a lib apresentasse o resultado espero e emfim, de um modo ou de outro os resultados são os mesmo.

Eu conheço outras libs mais atuais, graficas e etc. Particularmente acho bem produtivo o uso da visuallib e atende bem aos meus propósitos, por isso insisto no uso dela.

Grato a todos.

Antonio · Mensagem por **Antonio** » 06 Abr 2014 19:15

Bom... acho que falta pouca coisa, algum detalhe:

Tem um ou outro caracter que não esta sendo exibido corretamente.

Antonio · Mensagem por **Antonio** » 07 Ago 2014 14:46

Pessoal!!!

Consegui a utilização da Visual Lib com xHarbour 1.2.3 Simplex (20140725), acredito que é o changelog mais recente desde ontem a noite.

Obrigado.

qatan · Mensagem por **qatan** » 13 Out 2014 20:51

Olá Antonio (ou qualquer um que souber alguma informação),

Tudo bem?
Como conseguiu para obter aquele visual bonito?
Como ficou o código? O que mais usou? Chegou a usar alguma fonte TTF especialmente preparada para poder ter as fontes modificadas? Eu encontrei informação em alguns lugares diferentes no forum, inclusive sobre uma fonte VisualLib.TTF mas o link para download não funciona mais... Estou interessado em fazer isso funcionar com GTWVT no Harbour.
Teria como fazer um pacote completo demonstrando o uso para que eu possa compilar?
Você disse que usou xHarbour... não conseguiu fazer o mesmo com o Harbour 3.2? Se sim, qual foi o motivo?
Obrigado por sua ajuda.

Antonio · Mensagem por **Antonio** » 16 Out 2014 11:36

Ola quatan
Meu interesse era que funcionasse a principio com harbour 3.2, mas somente consegui compilar um pequeno codigo com xHarbour conforme mencionei que alias apaguei da minha maquina.

Eu acredito que devo ter as coisas em algum lugar por aqui.

Mensagem por **Toledo** » 16 Out 2014 19:26

Amigos, segue em anexo um exemplo de Visual Lib com Harbour 3.2.

Obs.: não me lembro onde peguei este demo... mas acho que foi aqui no fórum mesmo.

Abraços,

Antonio · Mensagem por **Antonio** » 16 Out 2014 20:14

Obrigado Toledo

microvolution · Mensagem por **microvolution** » 04 Mar 2015 20:34

Antonio escreveu:Pessoal!!!

Consegui a utilização da Visual Lib com xHarbour 1.2.3 Simplex (20140725), acredito que é o changelog mais recente desde ontem a noite.

Obrigado.

Caro professor Antônio, desde 2009 venho tentando migrar meu único aplicativo comercial feito em clipper para harbour/xharbour, mas não havia conseguido até o início de março/2015, quando do nada dei aquela famosa "cagada" e ele está em "modo console" funcionando que é uma beleza em windows 7 64 bits.
Apesar que algumas coisas deram errado, mas, estou resolvendo.
Bom, uma delas é a VISUAL LIB.
Eu apenas usava o seguinte:

Código: Selecionar todos

!vl850.com
!avantft.com

Agora tive que desativar essas duas linhas, pois não funcionam no HARBOUR.
O que devo colocar para que eu tenha uma tela bonita com a que você postou?
PS: usei o HMG / HARBOUR em mode console 3.0.35.
Grato,
MICROVOLUTION, W de Paula.

Antonio · Mensagem por **Antonio** » 04 Mar 2015 21:57

Ola W de Paula.

O anexo postado pelo colega Toledo logo acima é um demo com fontes. A partir dele voce pode facilmente fazer as adaptações implementar seu sistema.
Voce chegou a dar uma olhada?

microvolution · Mensagem por **microvolution** » 05 Mar 2015 22:39

Olá prezado Antonio, Toledo, Pablo Cesar e outros.
Caros professores...

tentei usar os exemplos nesta página, mas, sem sucesso:
o do Toledo, vejam a mensagem de erro pela HMG/HARBOUR:

hbmk2: Processando op‡äes do ambiente: -compiler=mingw
hbmk2: Processando arquivo de configura‡Æo:
G:\MVinfo\hmg.3.0.35\harbour\bin\hbmk.cfg
hbmk2: Processando: LIBVISUAL.hbc
hbmk2: Compilando...
In file included from G:/MVinfo/hb32/EXEMPLOS/visuallib/vlib.prg
G:/MVinfo/hmg.3.0.35/harbour/include/hbapi.h error: expected ')' before 'hInstance'
G:/MVinfo/hmg.3.0.35/harbour/include/hbapi.h error: expected ')' before '*' token
hbmk2: Erro: Executando compilador C. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -O3 -Wall -W -IG:/MVinfo/hmg.3.0.35/harbour/include -IG:/MVinfo/hmg.3.0.35//include -IG:/MVinfo/hb32/EXEMPLOS/visuallib -IG:/MVinfo/hb32/EXEMPLOS/visuallib/ .hbmk\win\mingw\vlib.c -o .hbmk/win/mingw/vlib.o

Agora vejam o erro pelo HBMK2 (pela tela do MS-DOS: CMD.EXE):
[qute]conforme arquivo em anexo, o erro diz que não foi encontrada a LIB GTWVW[/quote]

Como resolver, se ela está numa pasta chamda "EXTRAS"?

Bom, professor Antonio, eu prefiro o primeiro exemplo que é o seu, pois a visuallib aqui apresentada é a mesma usada no clipper, já a sua parece ser mais moderna.
Portanto, acho melhor a gente quebrar a cabeça na sua postagem, que tal?
Grato,

Mensagem por **Toledo** » 06 Mar 2015 07:32

microvolution escreveu:conforme arquivo em anexo, o erro diz que não foi encontrada a LIB GTWVW

Amigo, segue em anexo a lib GTWVW, basta descompactar este arquivo que estou anexando nesta mensagem dentro da pasta \MVinfo\hb32\lib\win\mingw.
Ai depois tente fazer a compilação deste exemplo novamente usando o HBMK2.

microvolution escreveu:eu prefiro o primeiro exemplo que é o seu, pois a visuallib aqui apresentada é a mesma usada no clipper, já a sua parece ser mais moderna.

Se eu estiver errado que o Antonio me corrija, mas o visual das telas do meu exemplo serão o mesmo das telas apresentadas pelo Antonio.

Abraços,

deividdjs · Mensagem por **deividdjs** » 06 Mar 2015 07:36

Código: Selecionar todos

***********************************
* INCLUDES E REQUESTS NECESSµRIAS *
***********************************

# include "visual2.ch"
# include "inkey.ch"     
# include "hbgtinfo.ch"          
# include "setcurs.ch"               
# include "dbedit.ch"        
# include "common.ch"
#ifndef _linux_
  # include "icones.ch"
#endif  
		
*---------------*
 FUNCTION MAIN()  && PROGRAMA PRINCIPAL --- TUDO COME€A AQUI .. RS
*---------------*
//altd() // debug

#ifdef _linux_
  REQUEST HB_GT_XWC
  REQUEST HB_CODEPAGE_PT850
  REQUEST HB_CODEPAGE_PTISO
  REQUEST HB_CODEPAGE_PLISO
  REQUEST HB_LANG_PT        
  REQUEST HB_LANG_PLISO
 
  hb_settermcp('LINUX','PT850') // Caracteres
  hb_setcodepage('PT') // Pagina de codigo para os DBFs

  set(105,1)
  set(106,1)
#else

  REQUEST HB_LANG_PT
  REQUEST HB_CODEPAGE_PT850
  HB_LANGSELECT( 'PT' )
  HB_SETCODEPAGE( "PT850" )

#endif

*******************************
** USAR INDICES DRIVE DBFCDX **
*******************************
REQUEST DESCEND 
REQUEST DBFCDX
REQUEST DBFFPT
RddSetDefault("DBFCDX")
DbSetDrive("DBFCDX")

********************************************************************************
** USA A BIBLIOTECA GTWVT.LIB **
********************************

#ifndef _linux_
  
   REQUEST WVT_SETCODEPAGE
   WVT_SETCODEPAGE(255)

   WVT_SETTITLE(HB_OEMTOANSI("CONTROLE - Sistema de GestÆo Comercial Integrado"))
   WVT_SETICON( ID_MAINICON )
	
   if file("PAR.DBF")   // destaca tela
      use PAR alias PAR shared
		if PAR->cc_destaca = "S"
         wvt_setfont("courier new",1,0)
      endif   
      PAR->(DBCLOSEAREA())
	endif   
	 
   do case
   case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 1023

      if file("PAR.DBF")
         use PAR alias PAR shared
         if PAR->cc_tela = "N"
            HB_gtinfo(HB_GTI_FONTWIDTH,12)
            HB_gtinfo(HB_GTI_FONTSIZE, 22)
         else
            HB_gtinfo(HB_GTI_FONTWIDTH,12)
            HB_gtinfo(HB_GTI_FONTSIZE, 27)
         endif
         PAR->(DBCLOSEAREA())
      else
         HB_gtinfo(HB_GTI_FONTWIDTH,12)
         HB_gtinfo(HB_GTI_FONTSIZE, 22)
      endif
    
   case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 799

      if file("PAR.DBF")
         use PAR alias PAR shared
         if PAR->cc_tela = "N"
            HB_gtinfo(HB_GTI_FONTWIDTH,10)
            HB_gtinfo(HB_GTI_FONTSIZE, 20)
         else
            HB_gtinfo(HB_GTI_FONTWIDTH,10)
            HB_gtinfo(HB_GTI_FONTSIZE, 22)
         endif     
         PAR->(DBCLOSEAREA())
      else
         HB_gtinfo(HB_GTI_FONTWIDTH,10)
         HB_gtinfo(HB_GTI_FONTSIZE, 20)
      endif

   otherwise

      HB_gtinfo(HB_GTI_FONTWIDTH, 8)
      HB_gtinfo(HB_GTI_FONTSIZE, 17)

   endcase
    
#endif
 
********************************************************************************
** DIFINI€ÇO DOS SETïS **
*************************
SET DATE BRITISH
SET CENTURY ON
SET EPOCH TO 1990
SET CURSOR ON
SET WRAP ON
SET SCOREBOARD OFF
SET DELETED ON
SET EXCLUSIVE OFF
SET INTENSITY ON
SET BELL OFF
SET CONFIRM ON
SET CURSOR ON
SET EVENTMASK TO 159
#ifndef _linux_
 SET KEY K_CTRL_V TO WVT_PASTEFROMCLIPBOARD()
// SET KEY K_CTRL_C TO Copiandoo() 
#endif 
WvT_SetAltF4Close( .F. )
SETCANCEL(.F.) // NÆO DEIXA SAIR COM O ALT+C
****************************************************************
** MONTA TELA INICIAL DO SISTEMA **
***********************************
DESKTOP("³ CONTROLE - Sistema de GestÆo Comercial Integrado ³")                                                           
@03,00 say replicate(" ",80) color "w*/w*"                                                                                
set color to "B/W*"                                                                                                       
@01,01 say "Usu rio - "                                                                                                   

@01,40 say padl(DataExt(date()),39)                                                                                       
@03,00 say "  Cadastros  Estoque  Vendas  Compras  Financeiro  Relat¢rios  Utilit rio  Sair" color "N+/W*"  
@03,02 say "C" color "r+/w*" 
@03,13 say "E" color "r+/w*" 
@03,22 say "V" color "r+/w*" 
@03,31 say "o" color "r+/w*"      
@03,39 say "F" color "r+/w*"
@03,51 say "R" color "r+/w*"
@03,63 say "U" color "r+/w*"
@03,75 say "S" color "r+/w*"

if file("par.dbf")
   use par alias par shared
   if PAR->cc_fundoT = "S"
      for l := 4 to 22 step 2                                                                                                   
          @ l  ,00 say "ÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÂÄ" color "bg/w"          
          @ l+1,00 say "ÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÁÄ" color "bg/w"          
      end                                                                                                                       
   endif
   par->(dbclosearea())
endif   

//************************ Fundo Branco letras verdes*
SET COLOR TO BG*/NW
@ 08,02 CLEAR TO 21,77
***************************************************

SET COLOR TO +R*/NW
@ 10,05 SAY '======================================================================'
@ 12,05 SAY '²²²²²²²  ²²²²²²²  ²²   ²²  ²²²²²²²²  ²²²²²²²  ²²²²²²²  ²²       ²²²²²²'
@ 13,05 SAY '²²       ²²   ²²  ²²²  ²²     ²²     ²²   ²²  ²²   ²²  ²²       ²²    '
@ 14,05 SAY '²²       ²²   ²²  ²² ² ²²     ²²     ²²²²²    ²²   ²²  ²²       ²²²²²²'
@ 15,05 SAY '²²       ²²   ²²  ²²  ²²²     ²²     ²²   ²²  ²²   ²²  ²²       ²²    '
@ 16,05 SAY '²²²²²²²  ²²²²²²²  ²²   ²²     ²²     ²²   ²²  ²²²²²²²  ²²²²²²²  ²²²²²²'
@ 18,05 SAY '======================================================================'
SET COLOR TO BG*/NW
@ 19,05 SAY '    S I S T E M A   D E   A U T O   G E S T Ç O   I N T E G R A D O   '

***********************************
*** BARRA DE UTILIDADES ATALHOS ***
***********************************
set color to "W+/B+"
@24,00 say replicate("                                                                                 ",26)
@24,00 say padc("[F1]Sobre [F4]Calc [F5]Data/Hora [F6]E_mail [F7]Senha [F8]Finalizar",80)
@24,07 say "F1" color "R/B+"
@24,17 say "F4" color "R/B+"
@24,26 say "F5" color "R/B+"
@24,40 say "F6" color "R/B+"
@24,51 say "F7" color "R/B+"
@24,61 say "F8" color "R/B+"

*****************************************************************************
** FUN€åES NECESSµRIAS PARA O INICIO DO PROGRAMA **
***************************************************
  
GERADBF()    && GERA OS DBF SE NAO EXISTIR     --> FUNCOES.PRG

//VALIDA()     && VERIFICA DATA DE VALIDADE DO SISTEMA --> FUNCOES.PRG
  
VERIFCDX()   && VERIFICA SE EXISTE OS INDICES  --> FUNCOES.PRG
  
CRIA_SENHA() && CRIA SENHA DEFAULT DO SISTEMA "CTRL" SE NAO EXISTIR

ABRE_ARQ()   && ABRE OS ARQUIVOS -- FUNCOES.PRG