Acentuação GetBox Minigui Extendend

Softwhouse · Mensagem por **Softwhouse** » 07 Nov 2013 18:46

Mudei de TextBox para GetBox e verifiquei que os caracteres acentuados não saem corretamente, qual a instrução correta para resolver isso? Estou usando Harbour.

Softwhouse · Mensagem por **Softwhouse** » 07 Nov 2013 19:20

REQUEST HB_CODEPAGE_PTISO
HB_CDPSELECT('PTISO')

Softwhouse · Mensagem por **Softwhouse** » 07 Nov 2013 19:50

Usando o picture '@!' os caracteres acentuados saem em minúsculo como era no Clipper, ocasião em que alterei o GetSys para resolver...

Pablo César · Mensagem por **Pablo César** » 07 Nov 2013 19:57

Não conheço muito o GETBOX, mas pelo que eu sei, você poderia passar a converter tudo o que é digitado na propriedade ON CHANGE.

Mensagem por **Toledo** » 08 Nov 2013 07:45

Softwhouse escreveu:Não resolveu

Fernando, aqui eu uso GETBOX com PICTURE "@!" e a acentuação sai corretamente!

No meu PRG principal, antes do Procedure Main() (ou Function Main), chamei REQUEST HB_CODEPAGE_PTISO e depois do Main coloquei HB_CDPSELECT('PTISO').

Código: Selecionar todos

REQUEST HB_CODEPAGE_PTISO

Procedure Main()

HB_CDPSELECT('PTISO')
...

Abraços,

Softwhouse · Mensagem por **Softwhouse** » 08 Nov 2013 09:35

Toledo, comigo não funciona, fica assim: ALTERAçãO. Deve faltar ou ter alguma coisa errada no código.

Softwhouse · Mensagem por **Softwhouse** » 08 Nov 2013 09:40

Resolvido, removí isso:

set codepage to portuguese
set language to portuguese

Mensagem por **Toledo** » 08 Nov 2013 11:27

Fernando, acho que bastava você retirar o "set codepage to portuguese" que já ia funcionar.

Abraços,