Página 1 de 1
Mybrowse.prg não funcionando no harbour
Enviado: 05 Jun 2014 15:36
por 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)
Mybrowse.prg não funcionando no harbour
Enviado: 05 Jun 2014 16:09
por 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
Mybrowse.prg não funcionando no harbour
Enviado: 05 Jun 2014 16:33
por stefanotd
não tem pagina de codigo definida ainda,mas agora que voce citou incluí na 1a linha do PRG principal :
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)
Mybrowse.prg não funcionando no harbour
Enviado: 05 Jun 2014 17:06
por 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
Mybrowse.prg não funcionando no harbour
Enviado: 09 Jun 2014 08:08
por stefanotd
obrigado Jairo
vou verificar
abç
Mybrowse.prg não funcionando no harbour
Enviado: 09 Jun 2014 09:54
por stefanotd
Resolvi alterando a biblioteca de [ gtwvw ] para [ gtwvt ] dentro do arquivo .hbp na compilação
obrigado
té+
Mybrowse.prg não funcionando no harbour
Enviado: 03 Out 2019 15:58
por 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.
Mybrowse.prg não funcionando no harbour
Enviado: 04 Out 2019 08:49
por 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.
Mybrowse.prg não funcionando no harbour
Enviado: 08 Out 2019 14:09
por 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.