Problemas na Acentuação.

[Maurício Elias]

Olá, boa tarde.
Estou com problemas de acentuação com o HB32. Alguns caracteres acentuados dos meus Menus não aparecem mais, como no Clipper, e na digitação nos campos tb não, tipo o à e ã.
Não é nada muito importante isso, mas tem solução???
Obrigado a todos.

[alxsts]

Olá!

Coloque as definições mostradas nas linhas 10 e 11 abaixo e veja se resolve seu problema. Se não resolver, verifique as configurações do editor de textos que você usa para escrever o código.

FUNCTION Main()

   LOCAL oErr As Object
   LOCAL cCnString As Character
   LOCAL nDataType As Numeric

   RELEASE GetList
   SET EventMask TO INKEY_ALL

   REQUEST HB_CODEPAGE_PTISO   // Define a página de código a ser usada
   HB_CDPSELECT("PTISO")       // Seleciona a página de código a ser usada

   SetColor( "N/W, RB/W*" )
   Set( _SET_DATEFORMAT, "dd/mm/yyyy" )

[Maurício Elias]

Olá, bom dia...
Então, resolveu a acentuação, mas detonou a minha tela........
já tentei tb com o HB_CDPSELECT("UTF8EX"). Acentua, mas tb detona minha tela...
Teria alguma outra forma ???

[alxsts]

Olá!

Então, resolveu a acentuação, mas detonou a minha tela........

Como assim? O que você está usando para desenhar sua tela? Poderia postar uma imagem da tela?

Salve um print da tela na sua máquina e anexe usando a opção Anexar arquivo na parte inferior da área onde se digita o texto das mensagens:

[Maurício Elias]

Então... a montagem da tela foi artesanal, usando alguns caracteres ASCII. Não usei nenhum programa específico prá montar (Imagem Tela Original.)
Tela Final 1 e 2 são depois da compilação com os comandos.

[bencz]

Faltou o anexo...

[Maurício Elias]

Segue as imagens... rs

[alxsts]

Olá!

Estranho isto... tente colocar a página de código para português:

   REQUEST HB_LANG_PT
   REQUEST HB_CODEPAGE_PT850
   HB_CDPSELECT("PT850")

Se isso não resolver, repito: verifique as configurações do teu editor. Uso a PTISO e nunca tive problemas.

[Jairo Maia]

Alexandre, se você usa a página de código PTISO, e não tem problema com Save e Rest Screen, será que não é porque você esta usando o comando gt: Hb_GtInfo( HB_GTI_COMPATBUFFER, .F. )

Quando usa-se um drive GT em modo Console ou GCUI com página PTISO, ao usar o comando acima funciona.

[alxsts]

Olá Jairo!

Prazer em "revê-lo". Espero que não fique mais tanto tempo sem prestar as suas valiosas contribuições.

Quanto à questão, eu não uso nenhuma das configurações que você citou. Veja um exemplo simples, exibindo um texto que copiei da internet:

#include "set.ch"
#include "setcurs.ch"

PROCEDURE Main()

   RELEASE GetList

   REQUEST HB_CODEPAGE_PTISO
   HB_CDPSELECT("PTISO")

   SetColor( "N/W, W+/RB" )
   Set( _SET_DATEFORMAT, "dd/mm/yyyy" )
   SetMode(50,150)
 
   CLS

   DispBox( 0,0,2, MaxCol(), Space(9), "W+/RB"  )
   DispBox( 3,0,MaxRow() - 1, MaxCol() * .25, Space(9), "N/N"  )
   DispBox( 3,(MaxCol() * .25) + 1,MaxRow(), MaxCol() , Space(9), "N/BG+"  )
   DispBox( MaxRow(), 0, MaxRow(), MaxCol(), Space(9), "N/W"  )
   DispOutAt( 1,0, PadC("Testando Harbour com página de código PTISO",MaxCol()), "W+/RB" )
   SetColor( "W+/BG" )
   GetText()
   SetCursor( SC_NONE)
   MemoEdit( StrTran( MemoRead("Texto.Txt"), Chr(141), ""), 3, 60, MaxRow() - 5, 145, .F. )
   FErase( "Texto.Txt" )
   SetCursor( SC_NORMAL)
RETURN
//-------------------------------------------------------------------------------------
STATIC FUNCTION GetText()

   SET( _SET_CONSOLE, .F. )

   TEXT TO FILE "Texto.Txt"
      Cientistas descobrem uma megaterra

      POR SALVADOR NOGUEIRA
      02/06/14  15:33

      Astrônomos nos Estados Unidos acabam de anunciar a descoberta do primeiro membro de uma nova classe de planetas: as megaterras. O achado foi divulgado durante a reunião da AAS (Sociedade Astronômica Americana), que está rolando em Boston.
      
      A megaterra Kepler-10c. Imensa, mas rochosa. Ao fundo, o vizinho Kepler-10b, ainda maior e quase colado à sua estrela.
      Kepler-10c, a megaterra. Imensa, mas rochosa. Ao fundo, Kepler-10b, ainda maior e quase colado à estrela. (Crédito: CfA)
      O planeta conhecido como Kepler-10c havia sido originalmente identificado em 2011, pelo satélite caçador de planetas americano Kepler. Mas só agora os astrônomos liderados por Xavier Dumusque, do Centro Harvard-Smithsoniano para Astrofísica, mediram sua massa, o que permitiu identificar sua natureza. Ele é rochoso, como a Terra, mas muito maior.
      
      “Ficamos muito surpresos quando percebemos o que encontramos”, disse o pesquisador.
      
      A surpresa é que, com um diâmetro cerca de 2,3 vezes maior que o da Terra, imaginava-se que ele fosse um mininetuno, ou seja, um planeta gasoso, mas menor que os que temos no nosso Sistema Solar. Contudo, ao descobrir que ele tem massa 17 vezes maior que a da Terra, os pesquisadores puderam calcular com precisão sua densidade. Isso por sua vez demonstrou que ele é rochoso, não gasoso.
      
      Embora o Kepler-10c, que orbita uma estrela similar ao Sol (tipo G) dando uma volta a cada 45 dias, seja quente demais para abrigar vida, sua descoberta tem implicações importantes para a busca por outras biosferas no Universo. Ele basicamente assinala a possibilidade de que muitos mundos maiores que o nosso sejam similares em natureza à Terra e, portanto, possam ter condições adequadas para o florescimento de seres vivos.
      
      Outra coisa interessante é que a estrela Kepler-10, localizada a 560 anos-luz da Terra na constelação do Dragão, é extremamente velha. Com idade estimada em 11 bilhões de anos, ela nasceu menos de 3 bilhões de anos após o Big Bang. Em suma, é a demonstração de que planetas capazes de abrigar vida já existiam desde aquela tenra idade do Universo. A Terra, para efeito de comparação, tem 4,6 bilhões de anos.
      
      A medição de massa foi feita com o HARPS-N, espectrógrafo instalado em telescópio nas Ilhas Canárias que deve estar acompanhando muitos dos cerca de 900 planetas descobertos pelo Kepler para permitir a estimativa de sua densidade. Assim, a tendência é que o número de megaterras conhecidas comece a crescer nos próximos anos. Algumas delas possivelmente estarão na zona habitável de suas estrelas — a região do sistema em que a temperatura é adequada à manutenção de água em estado líquido na superfície do planeta.
      
      O Mensageiro Sideral fica arrepiado a cada nova descoberta! Durante 400 anos, estivemos limitados a conhecer a história de um único sistema planetário. Agora, finalmente, podemos multiplicar isso por 100 bilhões — número mínimo estimado de estrelas na Via Láctea. Quantas histórias fascinantes não hão de ser contadas?   
      
      Fonte: http://mensageirosideral.blogfolha.uol.com.br/2014/06/02/cientistas-descobrem-uma-megaterra/

   ENDTEXT

   SET( _SET_CONSOLE, .T. )
RETURN NIL

[JoséQuintas]

Por padrão, o Windows em português usa codepage PTBR e o DOS usa codepage US.
No Windows em inglês, DOS e Windows usam mesma codepage US.
O Harbour console (GTWIN) usa tela DOS, e o Harbour com GTWVG usa tela Windows.

Aqui uso Harbour+GTWVG, com a codepage PTISO, e Windows PT-BR.
E com certeza, não dá mais pra usar tipo o Chr(205) pra montar tela, porque isso é parte da codepage US.

[Jairo Maia]

Olá Pessoal,

Alexandre, veja no exemplo abaixo a simulação do que foi dito acima sobre a anomalia da tela.

Compile o exemplo usando: Hbmk2 exemplo.prg -gtwvg -gui mantendo a linha do comando COMPATBUFFER comentada. Depois descomente aquela linha e veja a diferença.

#include "set.ch"
#include "setcurs.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"

PROCEDURE Main()

   //Hb_GtInfo( HB_GTI_COMPATBUFFER, .F. )
   
   SetMode( 25,85 )
   Wvt_SetFont( "Lucida Console", 28, 12, 0 )
   Wvt_Maximize()
   HB_GtInfo( HB_GTI_RESIZABLE, .F. )
   
   REQUEST HB_CODEPAGE_PTISO
   HB_CDPSELECT("PTISO")

   CLS

   DispBox( 5,10,15,70, Nil, "W+/RB"  )
   cTela:=SaveScreen(0,0,MaxRow(),MaxCol())

   Do While LastKey() != K_ESC

    cAlgo := Space( 20 )
    @ 10, 25 Say "Tecle Enter:" GET cAlgo Pict "@!"
    Read

    RestScreen( 0,0,MaxRow(),MaxCol(),cTela)

   EndDo

Return

Espero que não fique mais tanto tempo sem prestar as suas valiosas contribuições.

Obrigado por sua costumeira simpatia. Há fases na vida que algumas coisas acontecem que independem de opção. Mas estou retomando as atividades normais. Grande Abraço.

[Maurício Elias]

Olá pessoal, boa tarde.
Alexandre, deu certinho com o PT850, maravilha.
Passou a acentuar corretamente e não "detonou" a minha tela.
Valew a dica companheiro, obrigado.

[filizola]

Pessoal, boa tarde.

Estou precisando acentuar nomes escritos em letras maiúsculas e não consigo. utilizando REQUEST HB_CODEPAGE_PTISO, HB_CDPSELECT("PTISO").

ex: get nome pict "@!"
insiro : JOÃO FLÁVIO CONCEIÇÃO.
fica assim: JOo FLVIO CONCEIÇO.

[Itamar M. Lins Jr.]

Ola!

...em letras maiúsculas e não consigo.

Coloque um pequeno programa que demonstre como está fazendo.

Saudações,
Itamar M. Lins Jr.