Código: Selecionar todos
Hi!
//+-------------------------------------------------------------------+
//| CHR() vs ALT+Keypad Characters in Program code incorrect in EXE |
//+-------------------------------------------------------------------+
//
REQUEST HB_LANG_PT, HB_CODEPAGE_EN, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850, HB_CODEPAGE_UTF8EX" //put here you code page
Function main
HB_CDPSELECT("UTF8EX") //selecione sua pagina de código -> TELAS! tem UTF8 e UTF8EX(acentos) aqui também interfere na gravação dos dados no DBF!!!!
hb_langselect("PT") //selecione aqui a linguagem para mensagens do harbour system -> date, error etc...
CLEAR SCREEN
DOASCII:= .T.
DO WHILE DOASCII
//
@ 03,10 SAY "SOME CHARACTERS NOT DISPLAYING CORRECTLY UNLESS USING CHR()"
//
@ 10,10 say "USING CHARACTERS IN CODE : " + "££ ┤ ╣ ½ ¼ "
@ 12,10 say " USING CHR() IN CODE : " +CHR(156)+CHR(156)+ Space(1)+ CHR(180) +Space(1)+CHR(185) +Space(1)+ CHR(171) +Space(1) + CHR(172)
@ 15,40 Say "press any key................."
INKEY(0)
DOASCII := .F.
ENDDO
return nil