Harbour + Visual LIB

[Antonio]

Não estou vendo, mas imagino que funcione de forma identica a Visual.LIB origial.

[Antonio]

Colegas, somente me resta solicitar e contar com um pouco mais de cooperativismo "que não tem sido pouco" por parte de voces.


Se puderem, disponibilizem um link no 4shared ou enviem no meu e-mail esse pacote xharbour 1.0.0
Meu email é tonyene@terra.com.br ou antonioc_silva@msn.com

Não tenho mais o que fazer, a não ser testar isso tudo exatamente na mesma versão da qual voces fazem uso, mas como eu disse não encontro ela por ai.


[]
Grato

[asimoes]

Antonio,

Vou tentar subir o xHarbour ainda hoje para o 4shared.

xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6231)

Antonio,

Está disponivel para baixar:

http://www.4shared.com/file/108349444/9 ... ur001.html

[]´s

[Antonio]

Walew asimões, acabei de baixar....

Vamos ao teste.

[]
Antonio Carlos

[Antonio]

Pasmem.....


xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6231)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/




Quando executo a palicação: mostra que instalou a Fonte e ocorre o seguinte erro:

Error BASE/1076 erro nos parametros: >= arguments: ([1]=type U [2]=type: N val: 1024)

linha 36:

Código: Selecionar todos

Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024

[asimoes]

Antonio,

Vamos fazer algumas verificações: Considerando que o xHarbour está em c:\xharbour

1. Harbour.cfg na pasta xHarbour\bin

Harbour.cfg
CC=BCC32
CFLAGS= -c -D__EXPORT__ -IC:\XHARBOUR\include -d -LC:\XHARBOUR\lib
VERBOSE=YES
DELTMP=YES

2. Ilink32.cfg na pasta bcc55\bin ou borland\bcc55\bin

-LC:\BORLAND\BCC55\LIB;C:\xHARBOUR\LIB

3.Bcc32.cfg na pasta bcc55\bin ou borland\bcc55\bin

-IC:\borland\bcc55\include;C:\xharbour\include
-LC:\borland\bcc55\lib;C:\Borland\Bcc55\lib\psdk;C:\xharbour\lib
-O2
-d
-5
-6
-a8
-WC
-w-inl-

Mostre como está o seu config.nt e autoexec.nt e variáveis de ambiente em: painels de controle->sistema->avançado->variáveis de ambiente->variáveis de usuário xxx

[]´s

[Antonio]

Vamo la:

c:\borland\bcc55\bin\bcc32.cfg

Código: Selecionar todos

-Ic:\Borland\bcc55\include;c:\xharbour\include
-Lc:\Borland\bcc55\lib;c:\xharbour\lib

c:\borland\bcc55\bin\ilink32.cfg

Código: Selecionar todos

-Lc:\Borland\bcc55\lib;c:\xharbour\lib

c:\borland\bcc55\bin\harbour.cfg

Código: Selecionar todos

CC=BCC32
CFLAGS= -c -D__EXPORT__ -Ic:\Borland\bcc55\include  -d -Lc:\Borland\bcc55\lib
VERBOSE=YES
DELTMP=YES

c:\xharbour\bin\harbour.cfg

Código: Selecionar todos

CC=BCC32
CFLAGS= -c -D__EXPORT__ -Ic:\xharbour\include  -d -Lc:\xharbour\lib
VERBOSE=YES
DELTMP=YES

c:\windows\system32\autoexec.nt

Código: Selecionar todos

@echo off

lh %SystemRoot%\system32\dosx
MODE CON CODEPAGE PREPARE=((850)C:\WINDOWS\COMMAND\EGA.CPI) 

MODE CON CODEPAGE SELECT=850 

LH KEYB BR,,C:\WINDOWS\COMMAND\KEYBRD2.SYS /ID:275 
REM SET PATH=C:\WINDOWS\SYSTEM32\DOSX.EXE
PATH=C:\BORLAND\BCC55\BIN;C:\XHARBOUR\BIN;%PATH%

c:\windows\system32\config.nt

Código: Selecionar todos

device=c:\windows\system32\himem.sys
device=c:\windows\system32\emm386.exe noems
dos=high,umb
devicehigh=c:\windows\command\drvspace.sys /move

REM dos=high, umb
REM device=%SystemRoot%\system32\himem.sys
REM files=255
REM BUFFERS=60,
device=C:\ARQUIV~1\ALWILS~1\Avast4\aswmonds.sys

Meu computador ... Variaveis de Usuario
PATH
c:\xharbour\bin;c:\borland\bcc55\bin;c:\brmake;%path%;c:\Arquivos de programas\CVSNT\

Meu computador ... Variaveis de Sistema
PATH

c:\xharbour\bin;c:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\;C:\Borland\Bcc55\Bin;C:\windows\system32;c:\Brmake;%path%

[asimoes]

Antonio,

Verifiquei algumas duplicidades na sua configuração não que venha a causar o erro no seu sistema mais vamos a elas:

Se você já tem definido em variáveis de ambiente o path para o xharbour e BCC é desnecessário definir no autoexec.nt a linha abaixo:
PATH=C:\BORLAND\BCC55\BIN;C:\XHARBOUR\BIN;%PATH%

No autoexec.nt da minha máquina está assim:

Código: Selecionar todos

@echo off

REM AUTOEXEC.BAT nao ‚ usado para inicializar o ambiente MS-DOS.
REM AUTOEXEC.NT ‚ usado para inicializar o ambiente MS-DOS, a nao
REM ser que se especifique um arquivo de inicializa‡ao diferente
REM no arquivo de informa‡oes de programa (PIF) do aplicativo.

REM Instalar as extensoes CD ROM
rem lh %SystemRoot%\system32\mscdexnt.exe

REM Instalar o redirecionador da rede (carregar antes do dosx.exe)
lh %SystemRoot%\system32\redir

REM Instalar o suporte DPMI
lh %SystemRoot%\system32\dosx

No config.nt da minha máquina está assim:

Código: Selecionar todos

REM Arquivo de inicialização do MS-DOS no Windows
REM
REM CONFIG.SYS x CONFIG.NT
REM O arquivo CONFIG.SYS não é usado para inicializar o ambiente
REM do MS-DOS. Com este fim é usado o arquivo CONFIG.NT, a não ser 
REM que um arquivo de inicialização diferente seja especificado no
REM arquivo de informação de programa (PIF) de um aplicativo.
REM
REM ECHOCONFIG
REM Por padrão, nenhuma informação é exibida ao se inicializar o
REM ambiente do MS-DOS. Para exibir as informações dos arquivos
REM CONFIG.NT e AUTOEXEC.NT, adicione o comando ECHOCONFIG ao arquivo
REM CONFIG.NT ou a outro arquivo de inicialização.
REM
REM NTCMDPROMPT
REM Quando se retorna de um programa residente na memória ao prompt
REM de comando ou enquanto se executa um aplicativo do MS-DOS, o Windows
REM executa o COMMAND.COM para permitir que o programa residente permaneça
REM ativo. Se você desejar que o Prompt de comando do Windows (CMD.EXE)
REM seja executado ao invés do COMMAND.COM, adicione o comando ntcmdprompt
REM ao arquivo CONFIG.NT ou a outro arquivo de inicialização.
REM
REM DOSONLY
REM Por padrão, você pode iniciar qualquer aplicativo executando o programa
REM COMMAND.COM. Se você iniciar um aplicativo que não seja do MS-DOS, é
REM possível que programas residentes na memória sejam interrompidos. Para
REM garantir que somente aplicativos do MS-DOS possam ser iniciados, adicione
REM o comando dosonly ao arquivo CONFIG.NT ou a outro arquivo de
REM inicialização.
REM
REM EMM
REM Você pode usar a linha de comando EMM para configurar o gerenciador
REM de memória expandida (EMM). A sintaxe é a seguinte:
REM
REM EMM = 1024
REM
REM	ConjRegMapAlts
REM	    especifica o total de conjuntos de registros de mapeamento
REM	    alternativos que você deseja que o sistema aceite.
REM         1 <= AltRegSets <= 255. O valor padrão é 8.
REM	SegmentoBase
REM	    especifica o endereço do segmento inicial na memória
REM	    convencional do DOS em que você deseja que o sistema aloque
REM	    os quadros de páginas do EMM. O valor deve ser fornecido em
REM	    números hexadecimais. 0x1000 <= SegmentoBase <= 0x4000.
REM	    O valor é arredondado para baixo no limite de 16 Kb.
REM         O valor padrão é 0x4000.
REM	RAM
REM	    especifica que o sistema deve alocar somente 64 Kb do espaço
REM	    de endereçamento da área do Bloco de Memória Superior (UMB)
REM	    para quadros de páginas do EMM e deixar o restante (se
REM	    houver) para ser usado pelo DOS para aceitar comandos
REM	    loadhigh e devicehigh. Por padrão, o sistema aloca o
REM	    máximo possível para os quadros de páginas.
REM
REM	O tamanho do EMM é determinado pelo arquivo PIF associado ao
REM	aplicativo ou pelo arquivo _default.pif. Se o tamanho do arquivo
REM	PIF for igual a zero, o EMM será desativado e a linha de comando
REM	EMM ignorada.
REM
dos=high, umb
device=%SystemRoot%\system32\himem.sys
files=200

Basta você definir o path em Variaveis de Usuário para o xharbour e Borland

Meu computador ... Variaveis de Usuario
PATH
c:\xharbour\bin;c:\borland\bcc55\bin;c:\brmake;%path%;c:\Arquivos de programas\CVSNT\

Meu computador ... Variaveis de Sistema
PATH
c:\xharbour\bin;c:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\;C:\Borland\Bcc55\Bin;C:\windows\system32;c:\Brmake;%path%

Outra coisa, você está usando BRMAKE ou HBMAKE?

Experimenta usar o HBMAKE se estiver usando o BRMAKE.

Qual é a versão do windows que você tá usando: wk2, xp ?

[]´s

[janio]

Antonio,

Ja que agora vc está usando a mesma versão que eu, mande um pequeno exemplo para o meu e-mail (janioaguiar@ig.com.br) para que eu possa compilar aqui.

Jânio

[asimoes]

Olá Janio,

Seria melhor o Antonio publicar aqui o código dele pra todos verem, testar e identificar o problema.

Detalhe: eu compilei com a última versão da cvs e funcionou direitinho.

[]´s

[Antonio]

Bom dia asimões

Acabei de formatar meu micro, estou atalizando o Windows.
Anteriormente eu estava com XP SP3.

Como eu não estou com nada em ordem ainda, tem que voltar backup, etc, etc... montei e não testei isso que da forma como estou tentando usar:

Código: Selecionar todos

#include "inkey.ch"
#include "visual2.ch"
#include "wvtwin.ch"   // em razão do FW_MEDIUM
#include "hbgtinfo.ch"  // HB_GTI_DESKTOPWIDTH

INIT FUNCTION MOLDER()
     
     REQUEST HB_LANG_PT
     REQUEST HB_CODEPAGE_PT850
     HB_LANGSELECT("PT")
     HB_SetCODEPAGE( "PT850" )
     REQUEST WVT_SETCODEPAGE
     WVT_SETCODEPAGE(255) //850

     SETMODE(25,80)
     
     AddFont()
     
     SET TYPEAHEAD TO 0
     SET INTENSITY ON
     SET SCOREBOARD OFF
     SET DELETED ON
     SET SAFETY OFF
     SET DATE BRITISH
     SET ESCAPE ON
     SET CENTURY ON
     SET DELIMITERS TO
     SET CURSOR OFF
     SET EXCLUSIVE OFF
     SET WRAP ON
     SET EPOCH TO 1990

      Do Case
         Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024
              Wvt_SetFont('VisualLib',28,11,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
         Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
              Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
      OtherWise
              Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
      EndCase

  WvT_SetAltF4Close( .F. )
  *WvT_SetPointer( 0, 100 ) // AQUI DA PAU ACREDITO QUE SEJA ALGO RELACIONADO COM O PONTEIRO DO MOUSE, NÃO VOU USAR
  WvT_SetTITLE('Sistema X - Vs.1.0')
RETURN Nil


FUNCTION MAIN()

         MENSAGEM    :="Agendament System Protocol & Service"

         DESKTOP( MENSAGEM , WT_VERM1CINZA , WD_VERM1CINZA )


 	* Menu do Sistema


	mBar  := NewBarMenu()

	mARQ  := NewDownMenu()
	mARQ1 := NewDownMenu()

	AddDownItem( mARQ  , "&1 - Clientes"               , Hb_AnsiToOem("Sistema Cadastro de Clientes"),) 
	AddDownSep ( mARQ )
	AddDownItem( mARQ  , "&2 - Protocolos"             , Hb_AnsiToOem("Sistema Cadastro de Protocolos de Remessa e Recebimento"),mARQ1 )
	AddDownItem( mARQ1 , "&A - Protocolos Remessa "    , Hb_AnsiToOem("Cadastro de Protocolos de Remessa")    , {|| Msgbox("oi")    , WaitState(), RstEnv( aEnv ) }) 
	AddDownItem( mARQ1 , "&B - Protocolos Recebimento" , Hb_AnsiToOem("Cadastro de Protocolos de Recebimento"), {|| MsgBox1("E ai?"), WaitState(), RstEnv( aEnv ) }) 

        AddBarItem( mBar, "&Arquivos"     ,  "Sistema Controle de Clientes"  , mARQ )

	Private aENV := SavEnv(0,0,24,79)
	while .t.
   		BarMenu( mBar )                                             
   		set key K_F10 to                                          
   		SetKeyMouse( K_F10, {} )                                   
   		VLExit()                                                   
   		set key K_F10 to saida()                                    
   		SetKeyMouse( K_F10, { 24, 24, 72, 79 } )                    
	End

* End of Function Main()
RETURN nil



FUNCTION Saida()
	aKM := SetKeyMouse( K_F10, {} ) 
	set key K_F10 to	
	VLExit()
	set key K_F10 to saida()
	SetKeyMouse( K_F10, aKM )              
RETURN nil




STATIC FUNCTION AddFont()
	Local nRet := AddFontResource("VISUALLIB.TTF")
	If nRet == 0
  	   MsgBox("A fonte VISUALLIB.TTF não foi adicionada ao sistema.")
	Else
   	   MsgBox("A fonte VISUALLIB.TTF foi adicionada ao sistema.")
	EndIf
RETURN Nil

STATIC FUNCTION RemoveFont()
	Local lRet := RemoveFontResource("VISUALLIB.TTF")
	If lRet == .f.
   	    MsgBox("Houve um erro na remoção da fonte VISUALLIB.TTF.","Aviso")
	Else
   	    MsgBox("A fonte VISUALLIB.TTF foi removida com sucesso.","Aviso")
	EndIf
RETURN Nil

Estou acabando as coisas aqui, espero logo estar com tudo em ordem.

[]
Antonio

[asimoes]

Antonio,

Veja a compilação do seu exemplo:



Obs.: edite o fonte vlib.prg e comente as linhas:

1593: vl850(lCallSetMode,lCallSetFont) (*)
1597: vlsetblink(.F.) (*)

(*) Não é necessário quando é usado com a fonte visuallib, a função vl850 executa o programa vlfont.exe que seta a fonte para versão clipper.

Modifique e faça o teste.

Alexandre

[janio]

Antonio,

Também compilei o seu fonte (com algumas modificações que vou explicitar) e obtive um resultado semelhante ao do asimoes. A tela ficou igualzinha.

Como uso xharbour 1.0 fiz algumas modificações:

Em vez de #include "hbgtinfo.ch"
coloquei #include "GTINFO.CH"

Em vez de

Do Case
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024
Wvt_SetFont('VisualLib',28,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
OtherWise
Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
EndCase

coloquei

Do Case
Case gtinfo(GTI_DESKTOPWIDTH) > 1023
Wvt_SetFont('VisualLib',28,11,,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
CAse gtinfo(GTI_DESKTOPWIDTH) > 799
Wvt_SetFont('VisualLib',21,11,,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
Other
Wvt_SetFont('VisualLib',15,7,,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
EndCase

=========

Bom,

1-) Tenho a fonte visuallib.ttf instalada pelo Painel de Controle do windows;

2-) Pelo hbmake setei apenas os prg's teste.prg e vlib.prg. As libs setei para usar a lib GTWVT e depois marquei a lib what32.lib

3-) No Vlib.prg fornecido pelo asimoes deu pau da linha 2536, na função function vl850. Mas aí comentei as linhas
* if lCallSetMode
* vlsetmode(25, MaxCol()+1)
* end
deu tudo bleza.

Código: Selecionar todos

#include "inkey.ch"
#include "visual2.ch"
# include "GTINFO.CH"

*#include "hbgtinfo.ch"  // HB_GTI_DESKTOPWIDTH

INIT FUNCTION MOLDER()
     
     REQUEST HB_LANG_PT
     REQUEST HB_CODEPAGE_PT850
     HB_LANGSELECT("PT")
     HB_SetCODEPAGE( "PT850" )
     REQUEST WVT_SETCODEPAGE
     WVT_SETCODEPAGE(255) //850

     SETMODE(25,80)
     
*     AddFont()
     
     SET TYPEAHEAD TO 0
     SET INTENSITY ON
     SET SCOREBOARD OFF
     SET DELETED ON
     SET SAFETY OFF
     SET DATE BRITISH
     SET ESCAPE ON
     SET CENTURY ON
     SET DELIMITERS TO
     SET CURSOR OFF
     SET EXCLUSIVE OFF
     SET WRAP ON
     SET EPOCH TO 1990

Do Case 
Case gtinfo(GTI_DESKTOPWIDTH) > 1023 
              Wvt_SetFont('VisualLib',28,11,,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
CAse gtinfo(GTI_DESKTOPWIDTH) > 799 
              Wvt_SetFont('VisualLib',21,11,,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
Other 
              Wvt_SetFont('VisualLib',15,7,,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
EndCase

  WvT_SetAltF4Close( .F. )
  *WvT_SetPointer( 0, 100 ) // AQUI DA PAU ACREDITO QUE SEJA ALGO RELACIONADO COM O PONTEIRO DO MOUSE, NÃO VOU USAR
  WvT_SetTITLE('Sistema X - Vs.1.0')

RETURN Nil


FUNCTION MAIN()

         MENSAGEM    :="Agendament System Protocol & Service"

         DESKTOP( MENSAGEM , WT_VERM1CINZA , WD_VERM1CINZA )


   * Menu do Sistema


   mBar  := NewBarMenu()

   mARQ  := NewDownMenu()
   mARQ1 := NewDownMenu()

   AddDownItem( mARQ  , "&1 - Clientes"               , Hb_AnsiToOem("Sistema Cadastro de Clientes"),) 
   AddDownSep ( mARQ )
   AddDownItem( mARQ  , "&2 - Protocolos"             , Hb_AnsiToOem("Sistema Cadastro de Protocolos de Remessa e Recebimento"),mARQ1 )
   AddDownItem( mARQ1 , "&A - Protocolos Remessa "    , Hb_AnsiToOem("Cadastro de Protocolos de Remessa")    , {|| Msgbox("oi")    , WaitState(), RstEnv( aEnv ) }) 
   AddDownItem( mARQ1 , "&B - Protocolos Recebimento" , Hb_AnsiToOem("Cadastro de Protocolos de Recebimento"), {|| MsgBox1("E ai?"), WaitState(), RstEnv( aEnv ) }) 

        AddBarItem( mBar, "&Arquivos"     ,  "Sistema Controle de Clientes"  , mARQ )

   Private aENV := SavEnv(0,0,24,79)
   while .t.
         BarMenu( mBar )                                             
         set key K_F10 to                                          
         SetKeyMouse( K_F10, {} )                                   
         VLExit()                                                   
         set key K_F10 to saida()                                    
         SetKeyMouse( K_F10, { 24, 24, 72, 79 } )                    
   End

* End of Function Main()
RETURN nil



FUNCTION Saida()
   aKM := SetKeyMouse( K_F10, {} ) 
   set key K_F10 to   
   VLExit()
   set key K_F10 to saida()
   SetKeyMouse( K_F10, aKM )              
RETURN nil




STATIC FUNCTION AddFont()
   Local nRet := AddFontResource("VISUALLIB.TTF")
   If nRet == 0
        MsgBox("A fonte VISUALLIB.TTF não foi adicionada ao sistema.")
   Else
         MsgBox("A fonte VISUALLIB.TTF foi adicionada ao sistema.")
   EndIf
RETURN Nil

STATIC FUNCTION RemoveFont()
   Local lRet := RemoveFontResource("VISUALLIB.TTF")
   If lRet == .f.
          MsgBox("Houve um erro na remoção da fonte VISUALLIB.TTF.","Aviso")
   Else
          MsgBox("A fonte VISUALLIB.TTF foi removida com sucesso.","Aviso")
   EndIf
RETURN Nil

[Antonio]

Bom,

Então eu devo me conformar e aceitar que esta solução não é para mim.

Aqui, assim:

Código: Selecionar todos

Case hb_gtinfo(GTI_DESKTOPWIDTH) = 1024

ou ainda assim:

Código: Selecionar todos

Case hb_gtinfo(GTI_DESKTOPWIDTH) == 1024

passa.

So que ao que parece os

Código: Selecionar todos

Wvt_SetFont()

nada fazem, pois os carecteres não alteram e/ou a fonte não se aplica, fica horrivel como nas ocorrencias de miniminização das janelas no windows.

A fonte foi instalada manualmente pelo painel de controle, notei que a função da what32.lib não instalou ela aqui.

Eu preciso utilizar assim:

Código: Selecionar todos

Case hb_gtinfo(GTI_DESKTOPWIDTH) >= 1024

e assim, não passa. Da o erro de arumentos.

Comentei as linhas conforme dito anteriormente pelo Janio e por voce asimoes, compilei com a LIB e sem a LIB juntando o VLIB.PRG


Formatei meu micro hoje, estou usando a mesma versão do xHarbour que voces, etc e tal....
Tem jeito não, pelo menos aqui não esta funfando.

Grato

[Antonio]

Outra coisa,

Por mais estranho que pareça

Código: Selecionar todos

 for i:=10 to 30

   for j:=1 to 15
      wvt_setcont('visuallib',i,j,1)
      msgbox(str(i,2)+' '+str(i,2)) // para saber qual valor de i e j mais se adequa.
      inkey(0)
   next
next

wvt_setcont('visuallib',i,j,1) aqui da unresolved external ...., ou seja, não existe a função, linkei a gtwvt e a gtwvg