Problemas com acentuação

[Ramos]

Boa tarde !
Li várias postagens sobre como corrigir a acentuação de palavras, infelizmente não conseguir resolver. Se alguém puder ajudar agradeço.
sds
Ramos

Não estou conseguindo anexar :
#include "hbclass.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"
#include "wvgparts.ch"
# include 'Inkey.ch'
# include 'SetCurs.ch'
# define K_SPACE 32
************ INICIO *******************
#include "wvtwin.ch"
#include "hbgtwvg.ch"
#include "hbdyn.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PTISO

FUNCTION Main()

CLS
cTitulo :='JRCFibonacci - Propriedades da Sequência de Fibonacci - 20.05-JRC'
hb_GtInfo( HB_GTI_WINTITLE, cTitulo)
hb_gtInfo( HB_GTI_FONTNAME , "Verdana" )
hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT )
nFontWidth:=Int(hb_gtinfo(HB_GTI_DESKTOPWIDTH)/80)
nFontSize:=Int(hb_gtinfo(HB_GTI_DESKTOPHEIGHT)/25)
hb_gtinfo(HB_GTI_FONTWIDTH, nFontWidth)
hb_gtinfo(HB_GTI_FONTSIZE, nFontSize)

SetMode( MaxRow() + 1, MaxCol() + 1 ) //tamanho da janela (linhas/colunas)
HB_GtInfo( HB_GTI_ALTENTER, .T. ) //ALT + ENTER tela inteira
BuildMainMenu()
BuildButtons()

DO WHILE Inkey(0) != K_ESC
ENDDO
RETURN

FUNCTION BuildMainMenu()
LOCAL oMenu
LOCAL g_oMenuBar := WvgSetAppWindow():menuBar()

oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
oMenu:Caption := "Informações"
oMenu:AddItem( "Razão Áurea" , {|| LEATOS() } )
oMenu:AddItem( "-" )
oMenu:AddItem( "Seq. Fibonacci" , {|| LEATOS() } )
oMenu:AddItem( "AlgumasPropriedades", {|| LEATOS() } )
g_oMenuBar:addItem( { oMenu, "Informações" } )

oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
oMenu:caption := "Informações sobre algumas personalidades"
oMenu:AddItem( "Leonardo de Pisa" , {|| LEATOS("A") } )
oMenu:AddItem( "-" )
oMenu:AddItem( "Pitágoras" , {|| LEATOS() } )
g_oMenuBar:addItem( { oMenu, "Personalidades" } )

oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
oMenu:caption := "Sobre o Software"
oMenu:AddItem( "Software " , {|| LEATOS() } )
oMenu:AddItem( "-" )
oMenu:AddItem( "Autor " , {|| LEATOS() } )
oMenu:AddItem( "-" )
oMenu:AddItem( "Contatos " , {|| LEATOS() } )
oMenu:AddItem( "-" )
oMenu:AddItem( "Sugestões ", {|| LEATOS('D') } )
oMenu:AddItem( "-" )
g_oMenuBar:addItem( { oMenu, "Sobre" } )

RETURN oMenu /* The last submenu item */


FUNCTION BuildButtons()

LOCAL oXbp

oXbp := WvgPushButton():new()
oXbp:pointerFocus := .F.
oXbp:caption := "Soma Relâmpago"
oXbp:create( , , { {|| -( 1 ) }, -1 }, { -2, -15 } )
oXbp:activate := {|| Wvg_MessageBox( , "Harbour!" ) }

oXbp := WvgPushButton():new()
oXbp:pointerFocus := .F.
oXbp:caption := "Razão Áurea"
oXbp:create( , , { {|| -( 1) }, -16 }, { -2, -15 } )
oXbp:activate := {|| Wvt_Keyboard( K_F2 ) }

oXbp := WvgPushButton():new()
oXbp:pointerFocus := .F.
oXbp:caption := "Divisão por 11"
oXbp:create( , , { {|| -( 1 ) }, -31 }, { -2, -15 } )
oXbp:activate := {|| Wvt_Keyboard( K_F5 ) }

RETURN NIL


FUNCTION LEATOS()
RETURN NIL

[JoséQuintas]

Primeira parte ok, se vai usar igual Windows

REQUEST HB_CODEPAGE_PTISO

Segunda parte... falhou... não tem aí.

Set( _SET_CODEPAGE, "PTISO" )

Lembrando que, se vai usar PTISO, o editor de textos precisa usar ANSI... talvez 850
Não sei ao certo, porque meu editor usa o default do Windows.

E se foi digitado com outra codepage, vai precisar abrir com essa codepage e digitar novamente (caso não converta automático)

Na dúvida, olhe no bloco de notas como fica.

[Ramos]

Obrigado, por responder. Porém, não sei se resolveu, o programa está executando em segundo plano, vi no gerenciador de tarefas. Voltei o que era antes e continua em segundo plano. Podes me ajudar?

[Anilto]

Copiei o texto do código e percebi que alguns includes estão com um espaço depois do síbolo #. Isso pode gerar erros.

[Anilto]

Acrescentei na função main, (editando no notepad++, formatado em ANSI), logo depois das chamadas hb_gtinfo os seguintes comandos:

HB_LANGSELECT('PT')
HB_CDPSELECT('PTISO')

e compilei com

HBMK2 menu99 gtwvg.hbc

A acentuação ficou correta, o programa encerrou normalmente com a tecla ESC.

[JoséQuintas]

Quando se usa janela Windows, ela só existe se usar.

Então, convém que no começo do fonte tenha:

Código: Selecionar todos

SetMode(33,100)
CLS

Após escolher fonte, codepage, etc.
Isso garante que a janela existe.
Senão, em caso de algum erro ANTES de abrir janela, não vai ver mensagem nenhuma, e o programa fica "zumbi", funcionando sem tela.

Confirme no título, se está colocando DEPOIS de ajustar codepage, porque o título está com problema de codepage.

[Ramos]

Muito Obrigado JoséQuintas e Anilto. Deu certo tudo. Coloquei o Notepad++ em Ansi e SetMode(33,100).