Desejo ver os graficos de os caracteres especiais

[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

[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

[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

[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