Página 1 de 1
Desejo ver os graficos de os caracteres especiais
Enviado: 01 Jul 2012 23:15
por Adalberto
Boa noite a todos e todas.
Minha pergunta e a seguinte:
¿Como conseguir que o comando @ nRow,nCol SAY CHR(31) ou 29, e outros caracteres menores que 32 sejam mostrados na janela como mostra Clipper?.
O CHR(31) deveria mostrar um gráfico tipo seta para abaixo, o CHR(29) um gráfico tipo seta para a direita, e assim.
Muito obrigado com todos e todas.
Deus abençoe vocês.
[] Adalberto
Desejo ver os graficos de os caracteres especiais
Enviado: 02 Jul 2012 08:42
por Jairo Maia
Olá Adalberto,
Veja se o exemplo abaixo lhe ajuda:
Código: Selecionar todos
#include "hbgtinfo.ch"
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ES850
Function Main()
HB_SETCODEPAGE('ES850')
HB_LANGSELECT('ES')
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )
SetColor( "GR+/N" )
DispBox( 10, 30, 14, 50, Nil )
@ 12, 32 Say Chr(27)
@ 12, 34 Say Chr(26)
@ 12, 36 Say Chr(24)
@ 12, 38 Say Chr(25)
@ 12, 40 Say Chr(29)
@ 12, 42 Say Chr(30)
@ 12, 44 Say Chr(21)
@ 12, 46 Say Chr(174)
@ 12, 48 Say Chr(175)
Inkey( 0 )
Return Nil
Desejo ver os graficos de os caracteres especiais
Enviado: 02 Jul 2012 10:33
por Adalberto
Jairo
Agradecido com sua ajuda.
Não posso fazer o teste porque não tenho o arquivo hbgtinfo.ch, na pasta INCLUDE de xHbour, me ajuda a conseguir esse arquivo de cabeçalho?
Muito obrigado.
Bendições celestiais pra você e seus queridos.
[] Adalberto
Desejo ver os graficos de os caracteres especiais
Enviado: 02 Jul 2012 11:20
por Jairo Maia
Olá Adalberto,
Que versão do xHarbour vc usa? Não creio que somente o arquivo hbgtinfo.ch resolveria, mas compile o exemplo abaixo sem a WVT, você poderá ver os caracteres da mesma forma:
Código: Selecionar todos
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ES850
Function Main()
HB_SETCODEPAGE('ES850')
HB_LANGSELECT('ES')
Clear Screen
SetColor( "GR+/N" )
DispBox( 10, 30, 14, 50, Nil )
@ 12, 32 Say Chr(27)
@ 12, 34 Say Chr(26)
@ 12, 36 Say Chr(24)
@ 12, 38 Say Chr(25)
@ 12, 40 Say Chr(29)
@ 12, 42 Say Chr(30)
@ 12, 44 Say Chr(21)
@ 12, 46 Say Chr(174)
@ 12, 48 Say Chr(175)
Inkey( 0 )
Return Nil