Problema Acentos

[antolin]

Buenas a todos, hace un siglo que no entro en el foro.

Soy programador aficionado desde hace muuuchos años. Como éste no es mi medio de vida, tengo un FiveWin muy antiguo. Del 2007 con xHarbour. Ya sé que Harbour es mejor, pero me da pereza cambiar pues para lo que hago me basta. Además aún utilizo Verce. Después de tantos años aún no aprendí a compilar sólo...

Pero al grano. Ya sé que el tema de los acentos es muy antiguo y está muy manido pero lo que me ocurre a mi es muy extraño. Cambié de ordenador y volví a instalar todos mis programas como es normal. Pero ahora no me salen los acentos. Ni HB_SETCODEPAGE('ES'), ni HB_SETCODEPAGE('ESWIN'), ni REQUEST HB_LANG_ES, ni nada de nada. Lo más curioso es que el Verse ahora tampoco reconoce los acentos.

He mirado la configuración de mi Windows 10, el idioma, la codificación, todo. Pero no hay manera de que me salgan acentos. Ya no sé que hacer. Tengo que utiliza códigos ASII alternativos, como CHR(128) par la á. Pero eso no es.

Alguna idea.

Gracias de antemano

[karinha]

Code: Select all  Expand view  RUN

#Include "FiveWin.ch"

/*
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
*/

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

ANNOUNCE RDDSYS
REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto // Para ListBox
REQUEST DBFCDX, DBFFPT

STATIC oWnd

FUNCTION Main()

   ...

   RDDSETDEFAULT("DBFCDX")

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON  // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   /*
   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese
   HB_SETCODEPAGE( "PT850" )
   */

   HB_LANGSELECT( 'ES' )
   HB_SETCODEPAGE( "ESWIN" )

   // Set_MyLang("es_ES")


// LIBS:

\FwH27\lib\FiveHX.Lib                   +
\FwH27\lib\FiveHC.Lib                   +
\XHARBOUR\Lib\RddAds.Lib                +
\XHARBOUR\lib\hbzip.Lib                 +
\XHARBOUR\lib\rtl.Lib                   +
\XHARBOUR\lib\vm.Lib                    +
\XHARBOUR\lib\gtgui.Lib                 +
\XHARBOUR\lib\lang.Lib                  +
\XHARBOUR\lib\macro.Lib                 +
\XHARBOUR\lib\rdd.Lib                   +
\XHARBOUR\lib\dbfntx.Lib                +
\XHARBOUR\lib\dbfcdx.Lib                +
\XHARBOUR\lib\dbfdbt.Lib                +
\XHARBOUR\lib\debug.Lib                 +
\XHARBOUR\lib\common.Lib                +
\XHARBOUR\lib\tip.Lib                   +
\XHARBOUR\lib\pp.Lib                    +
\XHARBOUR\lib\dbffpt.Lib                +
\XHARBOUR\lib\codepage.Lib              +
\XHARBOUR\lib\HbSix.Lib                 +
\XHARBOUR\lib\PcRepos.Lib               +
\XHARBOUR\Lib\ct.Lib                    +
\Bcc55\lib\cw32.Lib                     +
\Bcc55\lib\psdk\msimg32.Lib             +
\Bcc55\lib\psdk\odbc32.Lib              +
\Bcc55\lib\psdk\rasapi32.Lib            +
\Bcc55\lib\psdk\nddeapi.Lib             +
\Bcc55\lib\psdk\iphlpapi.Lib            +
\Bcc55\lib\import32.Lib
 

Saludos.

[antolin]

Se ve que he tenido que cambiar de xHarbour durante la mudanza porque esas librerías no las tengo.

El caso es que no funciona. Y hasta el verce sale con símbolos raros en ves de letras con acentos.

[antolin]

Recuerdo que tenía una versión más antigua. pero aun así. nunca tuve ese problema: porque ahora hago:

Code: Select all  Expand view  RUN

  REQUEST HB_LANG_ES
   HB_LANGSELECT('ES')
   HB_SETCODEPAGE('ES')
 

y debería funcionar. Pero no va y ha cambiado hasta la codificación del Verce

[jvtecheto]

Antolin:

Yo utilizo esto.

Code: Select all  Expand view  RUN

   REQUEST HB_Lang_ES
   REQUEST HB_CODEPAGE_ESMWIN
   hb_langSelect( "ES" )
   hb_cdpSelect( "ESMWIN" )
   FWSetLanguage( 2 ) // 1 English, 2 Spanish
 

Saludos.

Jose

[antolin]

Gracias por la ayuda compis.

Creo que el problema es que mi xharbour es muy antiguo y no se compagina bien con el Windows 10, porque todo lo que hago en un ordenador antiguo de un amigo se ve bien en su ordenador, y todo lo que traigo antiguo se ve mal.

[antolin]

Hola de nuevo

Hay una circunstancia que quizá le ilumine la bombilla a algún compañero: si pongo MENUITEM "Año tal y tal" me sale bien, y si hago cTit := "Año tal y tal", puesto con un SAY en pantalla se ve bien. Pero editado con un GET salen caracteres raros.

Alguna idea?

Muchas gracias

[antolin]

Rectifico, el MENUITEM (al menos) se ve bien en mi ordenador, pero mal en otros..... Curioso.... frustrante....