falha de acentuacao e CHR(...)

[Amparo]

ola pessoal estou com um problema e nao sei como resolver, tenho uma aplicacao que é
compilada com os programas abaixo, mas nao funciona nehum acento e os CHR(...)

BRMAKE for Harbour/xHarbour/MiniGUI Versao 2.05
meu brmake esta ssim:

Código: Selecionar todos

[MINIGUI]
MiniGUI Path=C:\MINIGUI
 
[HARBOUR]
Harbour Path=C:\MINIGUI\HARBOUR
Harbour Flags= -n -m                         
 
[BCC55]
Bcc55 Path=C:\BORLAND\BCC55
 
[HARBOUR BASIC LIBRARY]
Lib=hbrtl.lib
Lib=hbrdd.lib

Lib=rddntx.lib
Lib=rddcdx.LIB
Lib=rddfpt.LIB

//Lib=DbfFpt.lib

LIB=HBSIX.LIB
Lib=hbvm.lib
Lib=gtgui.lib
Lib=gtwin.lib
Lib=hbLang.lib
Lib=hbmacro.lib

Lib=hbcommon.lib

//Lib=LibCt.lib 20122011
Lib=hbCt.lib

//Lib=libmisc.lib 20122011
Lib=hbmisc.lib

//lib=codepage.lib
Lib=hbCPage.lib

Lib=Dll.lib
Lib=Socket.lib 

[MISC]
Language=PT
Video Mode=Disabled
Compress With UPX=N
Stop=N

meu arquivo MLK esta assim:

Código: Selecionar todos

GUI=N
EXEFILE  SIGECOM.EXE
INCLUDE  C:\FONTES\BIS\SIGECOM\INCLUDE ( estes includes estao atualizados com os da pasta c:\minigui\harbour\include )
DIROBJ   C:\FONTES\BIS\SIGECOM\OBJ
FILE     MAIN.PRG
FILE     AUDIT.PRG,    BAIXARBO.PRG, BROWTEXT.PRG, CALCULAR.PRG
FILE     CALENDAR.PRG, CARTCORR.PRG, CLIENTES.PRG, DESPACHO.PRG
FILE     DIVPED.PRG,   DOCCUSTO.PRG, DOCHEQUE.PRG, DOCOMPRA.PRG
FILE     DOCONTAS.PRG, DONFISC.PRG,  DOPEDIDO.PRG, DOPRODUT.PRG
FILE     EMBALAR.PRG,  ERRORSYS.PRG, ETIQUETA.PRG, EXCEPT.PRG 
FILE     EXPORT.PRG,   FATUNFD.PRG,  FECHAMES.PRG, FISPRN.PRG 
FILE     FUNCIMPR.PRG, FUNCTAB.PRG,  FUNCTELA.PRG, GERACNAB.PRG
FILE     GETSYS.PRG,   GROUPPED.PRG, HELP.PRG,     IMPCONTA.PRG
FILE     IMPGERAL.PRG, IMPGRUPO.PRG, IMPNFISC.PRG, IMPRIME.PRG
FILE     INITARR.PRG,  INITCLI.PRG,  INITCOR.PRG,  INITDEF.PRG
FILE     INITFORM.PRG, INITGETS.PRG, INITMENU.PRG, INITSTAT.PRG
FILE     INITSYS.PRG,  INITUSER.PRG, INITWA.PRG,   INVENTAR.PRG
FILE     LISTA.PRG,    LOGIN.PRG,    LOGO.PRG,     MENUSYS.PRG
FILE     MESSAGE.PRG,  NETSYS.PRG,   NFDIVS.PRG,   NFEDIVER.PRG
FILE     NFEGERAL.PRG, NFELETRO.PRG, NFESERIE.PRG, OPTIONS.PRG
FILE     PHOENIX.PRG,  POSICLI.PRG,  POSVALID.PRG, PREVALID.PRG
FILE     PRINTREC.PRG, PRINTTAB.PRG, PRINTUSB.PRG, PROCENFD.PRG
FILE     REDF.PRG,     RELESTOK.PRG, RELETCLI.PRG, RELMOVTO.PRG
FILE     RELPLANE.PRG, REFATCLI.PRG, SINTEGRA.PRG, SPED.PRG
FILE     STATS.PRG,    STRINGS.PRG,  SYSFILES.PRG, TABELA.PRG
FILE     TOPRINT.PRG

Harbour Version: 3.1.0dev Date: 2011-12-13 ( eu utilizo o Harbour da pasta da minigui )
Compiler: Borland C++ 5.5.1 (32-bit)

a linha abaixo mostra uma mensagem na linha 23
Li23("Calculadora. Alt "+CHR(27)+CHR(18)+CHR(26)+": Move" )

a linha acima deveria resultar nesta linha
Calculadora. Alt ←↕→: Move

mas o que sai na tela é esta
Calculadora. Alt : Move



a linha abaixo deveria mostrar exatamente como esta
@ 08,12 SAY "Sistema de Gestão Comercial"

mas aparece desta forma
Sistema de GestÒo Comercial


como corrigir este problemas?

[rochinha]

Amiguinho,

no trecho:

Código: Selecionar todos

Lib=gtgui.lib
Lib=gtwin.lib

Voce esta carregando as duas libs ao mesmo tempo? não seria ideal o uso de uma ou outra?

Geralmente o tratamento de acentuação é realizado pela lib codepage.

Código: Selecionar todos

//lib=codepage.lib
Lib=hbCPage.lib

No trecho acima ela esta desabilitada dando liberdade para uso da hbCPage.lib, troque as habilitações e teste.

Geralmente os problemas de acentuação podem ser resolvidos diretamente no S.O. pelo painel de controle. Se o aplicativo for modo texto, se necessário a sessão DOS deve ser configurada para habilitar a página de código mais adequada a acentuação.

[Amparo]

ola amigos

rochinha, desculpe minha ignorancia mas qual é a finalidade da lib gtgui.lib e gtwin.lib

a lib codepage.lib estava habilitada e ao fazer varias atualizacoes da minigui ( que ainda estou estudando a migração ) vi que algumas libs foram alteradas acrescentando o HB na inicial.

ja troquei tambem uma por outra para ver se funcionava mas nao funcionou, vou tentar novamente.

meu aplicativo é em harbour puro (texto) quando voce faz a referencia a configurar a sessao DOS voce quer dizer usar os comandos no autoexec.nt, se for em meu autoexec.nt ja contem estas linhas.

Código: Selecionar todos

MODE CON CODEPAGE PREPARE=((850) C:\WINDOWS\COMMAND\EGA.CPI)
MODE CON CODEPAGE SELECT=850

abraço

feliz natal a todos

[Stanis Luksys]

Código: Selecionar todos

REQUEST HB_CODEPAGE_PTISO     // As requisições de codepage possibilitam
REQUEST HB_CODEPAGE_PT850     //    trabalhar com vários SOs e charsets pt_br
                              //    ou seja, corrigem a acentuação

Pocedure Main()

   Hb_LangSelect("PT")
   Hb_CdpSelect("PT850") // Ou "PTISO" dependendo da config do SO

   // etc etc
   
Return

Abraços

[Amparo]

ola amigos

como foi de natal, espero que em PAZ e SAUDE

Stanis, acrescentei as linhas sugeridas e nao mudou a falha da acentuação continua, meu main() esta assim:

Código: Selecionar todos

#include "SISTEMA.CH"
#include "FILEIO.CH"
#include "STATION.CH"

#pragma BEGINDUMP
#include "hbapi.h"
#include "windows.h"
HB_FUNC( TIRA_X )
{ 
HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE);
 EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED) ;
DeleteMenu(MenuH,SC_CLOSE,MF_BYCOMMAND);
}
#pragma ENDDUMP

REQUEST DESCEND
REQUEST DBFCDX
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
*--------------------------------------------------------------------------------------------------
PROCEDURE Main( )

LOCAL cSysfiles := ""
LOCAL lReindex  := .F.  // modo reindexacao automatica
LOCAL nCurUser  := 0

PUBLIC  lAdmin          // modo Admin
PUBLIC  lgerente        // MODO GERENTE
PUBLIC  lCash           // modo Caixa
PUBLIC  lPos            // modo PDV
PUBLIC  aSystem
PUBLIC  aUser
PUBLIC  aColor
PUBLIC  aCodes
PUBLIC  aMessages
PUBLIC  aStation
PUBLIC  oMenuPri
PUBLIC  nListRec        // Recno em listas de pesquisa
PUBLIC  nIFHandle       // Handle da impressora fiscal
PUBLIC  nAuditRec
PUBLIC  lIsNT
PUBLIC  nBranch
PUBLIC  lBranch
PUBLIC  cBranch

Hb_LangSelect("PT")
Hb_CdpSelect("PT850")  // Ou "PTISO" dependendo da config do SO
etc etc

[Stanis Luksys]

Opa,

Verifique a configuração do seu editor de textos. Qual editor você está usando?

Você testou PTISO e PT850?

Abraços.

[Amparo]

ola amigos

feliz ano novo a todos

Stanis, o editor de texto que vc se refere é o aplicativo que utilizo para digitar meus programas? se for eu uso o EDITPLUS.

ja testei com PT850 e PTISO nao funciona nenhum

so funciona se eu digitar por exemplo a palaçao edição desta forma edi‡Æo veja abaixo um exemplo

@ 08,12 SAY "Sistema de Gestão Comercial" ( aparece assim: Sistema de GestÒo Comercial )

agora se eu fizer assim sai certo:

@ 08,12 SAY "Sistema de GestÆo Comercial" ( aparece assim: Sistema de Gestão Comercial )

fiz o teste colocando as duas linhas em meu prg a linhas 08 sai errado a 09 sai certo
@ 08,12 SAY "Sistema de Gestão Comercial"
@ 09,12 SAY "Sistema de GestÆo Comercial"

[Stanis Luksys]

Pois é,

Verifique se o seu editor de textos está configurado para salvar em formato ANSI, OEM, UTF8 ou Unicode.

Faça um teste com o bloco de notas, por exemplo.

Sempre alternando os testes com PTISO e PT850 no CdpSelect()

Abraços.

[Amparo]

ola amigos,

Stanis,

utilizei o NE (norton editor dos versao de 1990) e salvei os fontes, compilando tanto com a instrução PTISO ou PT850 as acentuações sairam corretas, ou seja no fonte eu coloquei Gestão e na tela saiu Gestão, meu editor de texto o EDIPLUS em Salvar como so tem a opcao UNICOD, UTF-8 e Default, esta sempre na opcao Default ( voce teria algum editor para recomendar? )

agora o comando abaixo nao esta dando certo.

ATail( GetList ):Control := PushButton( nB-1, nL+1, "º"+Chr(17) )

este comando mostraria na tela o seguinte: ║◄│ é um botao que salva o registro atual e vai para o primeiro registro do dbf.

bem como outros comando que utilizo com CHR(...) na funcionan

[Stanis Luksys]

Opa,

Eu uso o textpad (www.textpad.com) no Windows.

E no Linux eu uso o kate para kde, ou o ultraedit no gnome (www.ultraedit.com).

Todos eles possuem configuração de página de códigos e acentuação.

Abraços.

[Stanis Luksys]

Mais uma pergunta:

Em qual Windows você está testando? Não é normal a acentuação sair correta tanto com PTISO como com PT850.

[Amparo]

ola amigos

eu estou usando o XP Professional Versao 2002 SP2