Mybrowse.prg não funcionando no harbour

[stefanotd]

boa tarde amigos do forum,
esse deve ser um problema de principiante, mas como estou começando a converter um sistema de clipper -> harbour
estou apanhando um pouco pra descobrir o porque de não funcionar a diretiva MY_HEADSEP no harbour.

o que será que está faltando alterar ?

* estou compilando com hbmk2 , versão 3.0.0 , no windows 7
* em modo -gui
* bibliotecas -lhbct , -gtwvw

obrigado

Esse é um trecho do código onde está definido as diretivas

Código: Selecionar todos

// Separator strings for the browse display
#define MY_HEADSEP  CHR(196)+CHR(194)+CHR(196)
#define MY_COLSEP    CHR(179)

[Jairo Maia]

Olá stefanotd,

Seja Bem Vindo ao Fórum!

Funciona sim! Uso desta forma e é apresentado corretamente. Qual página de código você está usando? Tem como você colocar a imagem de como fica em seu programa em Harbour?

Em Tempo:

Na verdade não uso com o comando #define. Coloco no inicio da função que monta o browse desta forma:

Código: Selecionar todos

br_w:headsep:=chr(196)+chr(194)+chr(196)  // separador do cabecalho
br_w:colsep:=" "+chr(179)+" "             // separador das colunas

[stefanotd]

não tem pagina de codigo definida ainda,mas agora que voce citou incluí na 1a linha do PRG principal :

Código: Selecionar todos

 REQUEST HB_CODEPAGE_PT850 

mas também não mostru o traço. O separador da coluna funciona .

Incluí os chr()'s dentro da função e também não mostrou.
qual página é mais indicada pra usar ?

obrigado

(incluí a imagem em anexo)

[Jairo Maia]

Olá stefanotd,

Agora vendo a figura vejo que não tem nada a ver com página de código. Teria se você visse os caracteres como esdrúxulos, mas não é o caso. Creio que seria melhor se você conseguisse postar um exemplo de como você está montando seu browse, acho que ficaria mais fácil entender.

Quanto a página de código, a melhor é de acordo com sua necessidade. Como você está iniciando a migração, sugiro você trabalhar com PT850, e alterar no futuro apenas se for necessário.

Sem desviar do assunto, pois seu problema é com o browse, veja como configurar a página de código:

Código: Selecionar todos

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

Function Main()

 HB_LANGSELECT('PT')
 HB_SETCODEPAGE('PT850')
 
 Seu código...

Return

[stefanotd]

obrigado Jairo
vou verificar

abç

[stefanotd]

Resolvi alterando a biblioteca de [ gtwvw ] para [ gtwvt ] dentro do arquivo .hbp na compilação

obrigado
té+

[clodoaldomonteiro]

Boa tarde Stefano,

Tava com esse mesmo problema e descobri que é por conta da chamada da função: wvw_setmaincoord(.T.), com parâmetro Verdadeiro, se colocar .F., volta ao normal.

Vi que esse função com parâmetro .T. serve para dar independência a cada janela, com relação às suas coordenadas e assim, cada janela vai coçar da linha/coluna 0, 0.

[clodoaldomonteiro]

Ontem, pesquisando até mais tarde, descobri os fontes da TBrowse no Harbour 3.4 e xHarbour 1.21, onde percebi que a versão do xHB121 não tem esse problema.
Então, basta anexar o .PRG correto no seu projeto que o Browse será apresentado de forma correta, quando usado junto com a GTWVW e WVW_SetMainCoord(.T.).

Espero ter ajudado a todos e segue em anexo os fontes mencionados.

[clodoaldomonteiro]

Ajudou sim Hazael, mas o problema era na função hb_DispOutAtBox(), que está nos fontes do Harbour 3.4, e a solução foi substituir por DispOutAt().
Ele chama esta função, justamente ao imprimir o :headSep e :colSep.
Descobri quando comparei os fontes do TBrowse Harbour 3.4 com uns fontes que eu tinha do xHarbour 1.21.