CHR(26) e CHR(27)

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

CHR(26) e CHR(27)

Mensagem por Hasse »

Bom dia colegas.

Na época do Clipper eu usava os caracteres CHR(26) e CHR(27), -"seta para cima e seta para baixo"-, como instruções de navegação nos Prompt's, para os usuários.

No xHarbour estes caracteres são apresentados como pequenos quadrados.

Há alguma forma de implantar este recurso no xHarbour ?
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Re: CHR(26) e CHR(27)

Mensagem por sygecom »

Olá Hasse,
Na verdade ele continua funcionando, porém para ele continuar funcionando você não pode usar essas LIB que parecem tentar fazer o aplicativo ser meio grafico, como GTWVW,WVWTOOLS,GTWVG,GTWVT e etc... ou seja você não pode linkar em seu aplicativo a LIB GTGUI.LIB deve deixar a GTWIN.LIB.
Caso seja inevitavel o uso da GTGUI.LIB, então o jeito é fazer as setas aparecerem como imagem de .BMP
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: CHR(26) e CHR(27)

Mensagem por Hasse »

Boa noite Leonardo.

Esqueci de mencionar que trabalho em modo console, sem qualquer LIB gráfica ou semi-gráfica.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Re: CHR(26) e CHR(27)

Mensagem por sygecom »

Post seu .BC para dar uma revisada.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: CHR(26) e CHR(27)

Mensagem por Hasse »

Segue no anexo.
Anexos
BC.zip
(1.79 KiB) Baixado 136 vezes
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Re: CHR(26) e CHR(27)

Mensagem por sygecom »

Olá Hasse,
Dei uma olhada e parece tudo certo, você usa alguma coisa da GTINFO() ? usa VL ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: CHR(26) e CHR(27)

Mensagem por Hasse »

Não uso nemVL nem GTINFO().

A única LIB que uso é a Lab_lib.lib de minha própria criação, e ela mesma também não usa qualquer lib.

Somente o xHarbour e seus recursos nativos.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Re: CHR(26) e CHR(27)

Mensagem por gvc »

Isso deve ser configuração da tabela de caracteres. Veja qual a tabela vc esta usando.
Parece que o xHarbour permite configurar isso pelo sistema.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: CHR(26) e CHR(27)

Mensagem por Hasse »

Olá GVC.

Uso assim:

Código: Selecionar todos

REQUEST HB_CODEPAGE_PT850
HB_SetCodePage( "PT850" )
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
clodoaldomonteiro
Usuário Nível 4
Usuário Nível 4
Mensagens: 821
Registrado em: 30 Dez 2006 13:17
Localização: Teresina-PI
Contato:

Re: CHR(26) e CHR(27)

Mensagem por clodoaldomonteiro »

Olá!
Eu uso a gtwvw e coloco a função WVW_SetCodePage(,255), mas ainda falta alguns caracteres originais do DOS .
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Responder