Acentos en titulos

[nlerdafehn]

Hola,

Estaba hace unas semanas programando sin problemas, y no sé en que momento compile y los acentos en los titulos de las ventanas dejaron de mostrar los acentos y muestran caracteres raros.

Ejemplo: Autorizaciones Médicas
Como se muestra: Autorizaciones Médicas

Ya utilizo lo siguiente:

Code: Select all  Expand view  RUN

REQUEST HB_Lang_ES
   REQUEST HB_CODEPAGE_ESMWIN
   hb_langSelect( "ES" )
   hb_cdpSelect( "ESMWIN" )
   FWSetLanguage( 2 )

Si hago un msginfo con "Este año, probaré los ácéntós ü", me sale perfecto. Pero como titulos de las ventanas sale mal.

Alguno tiene una solución a esto?

Muchas gracias.

[nlerdafehn]

El problema lo tengo cuando pongo las tildes en los say

Code: Select all  Expand view  RUN

say   "Créditos:"

Si lo pongo en un msginfo no hay problema. Pero esta solo cuando utilizo say. No son solo los titulos, sino tambien en el resto de lsa ventanas acabo de darme cuenta.

[karinha]

Code: Select all  Expand view  RUN

OemToAnsi()
ó
AnsiToOem()
 

Saludos.

[nlerdafehn]

Gracias por tu respuesta!

Lo pongo pero me cambio los caracteres. Sigue sin mostrar las tildes. En vez de mostrar la A© me muestra otros caracteres.

Debe haber otra opción aparte de una función, porque el PRG estaba compilando correctamente las tildes, y ahora dejo de funcionar...

Code: Select all  Expand view  RUN

OemToAnsi()
ó
AnsiToOem()
 

Saludos.

[karinha]

Ejemplo, porfa.

Saludos.

[nlerdafehn]

Code: Select all  Expand view  RUN

say   "Créditos:"

Code: Select all  Expand view  RUN

say   OemToAnsi("Créditos:")

Code: Select all  Expand view  RUN

say   AnsiToOem("Créditos:")

[karinha]

Code: Select all  Expand view  RUN

// \SAMPLES\TESTSAY.PRG - Modificado por: kapiabafwh@gmail.com

#include "FiveWin.ch"

REQUEST DBFCDX
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

FUNCTION Main()

   LOCAL oWnd
   LOCAL oMenu

   RDDSETDEFAULT( "DBFCDX" )
   SET DELETED ON
   SET DATE ITALIAN
   SET CENTURY ON

   HB_CDPSELECT("ESWIN")
   HB_LangSelect( "ES" )

   FW_SetUnicode( .f. )

   MENU oMenu

   menuitem "Gradient" action Dlg_Grad()

   menuitem "Color" action Dlg_Color()

   menuitem "Bitmap" action Dlg_Bit()

   endmenu

   DEFINE WINDOW oWnd TITLE "Test Say" FROM 0, 0 TO 400, 800 pixel MENU oMenu

   activate window oWnd

RETURN NIL

FUNCTION Dlg_Grad()

   LOCAL oDlg, oSay, oSay2, oBrush, cCredito, cCredOem

   cCredito := OemToAnsi( "Cr‚dito" )  // Modo consola mi editor querido.
   cCredOem := "Crédito"               // Usando el Editpad.exe(windows)

   define brush oBrush gradient { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) }, ;
                                  { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }

   define dialog odlg title "Test Say With Gradient Brush" ;
      size 400, 400 pixel brush oBrush transparent

   @ 25, 15 SAY oSay PROMPT "This a Test" of oDlg SIZE 40, 15 ;
      COLOR CLR_WHITE PIXEL  transparent adjust

   @ 40, 15 SAY oSay2 VAR cCredito of oDlg SIZE 40, 15 ;
      COLORS CLR_HRED, CLR_WHITE PIXEL transparent adjust


   // @ 10, 120 button "Change" pixel action  oSay:SetText( "Change Text" )
   @ 10, 120 button "Cambie" pixel action  oSay:SetText( cCredOem )

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE brush oBrush

RETURN NIL

FUNCTION Dlg_Color()

   LOCAL oDlg
   LOCAL oBrush
   LOCAL oSay

   define brush oBrush COLOR CLR_CYAN

   define dialog odlg title "Test Say With Color Brush" brush oBrush size 400, 400 PIXEL

   @ 2, 2 SAY oSay PROMPT "This a Test" of oDlg SIZE 100, 130 COLOR CLR_WHITE PIXEL  transparent

   @ 10, 120 button "Test" action oSay:SetText( "Change Text" )  pixel


   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION Dlg_Bit()

   LOCAL oDlg
   LOCAL oBrush
   LOCAL oSay

   define brush oBrush FILE "..\bitmaps\cara.bmp"

   define dialog odlg title "Test Say With bitmap Brush" brush oBrush size 400, 400 PIXEL

   @ 2, 2 SAY oSay PROMPT "This a Test" of oDlg SIZE 100, 130 COLOR CLR_WHITE PIXEL  transparent

   @ 10, 120 button "Test" pixel action oSay:SetText( "Change Text" )

   ACTIVATE DIALOG oDlg CENTERED ON INIT osay:refresh()

RETURN NIL

// fin
 

Saludos.

[karinha]

Mis editores:

https://mega.nz/file/kU9RWCxL#lpUbQpx2NRJp-h54F0b4Fa8VbqYQLuXrTYoC3Wwkjg4

Saludos.

[jvtecheto]

Hola amigo:

Mira mi configuracion al final, con esto y sin configurar nada de lenguaje no tengo problemas de acentos ni en los titulos
ni en los SAYS, no se la verison de Fivewin que tienes pero si antes te funcionaba y ahora no, no creo que sea problema de
Fivewin.
Piensa si has cambiado algo en el IDE que utilizas.

Espero lo soluciones pronto.

Saludos.

Jose.

[nlerdafehn]

Querido Jose,

Muchas gracias por tu consejo! googlie un poco al respecto, y si. Era problema del IDE. Se ve que en algun momento abri otro archivo con otra codificación y me saco la codificación que tenia este.

Le puse que guarde como Western (Windows 1252) y me tomo todo excelente. Aunque es raro que algunos tildes tomaba y otros no. Pero ahora toma todo.

Mil gracias,
Buen finde!

Hola amigo:

Mira mi configuracion al final, con esto y sin configurar nada de lenguaje no tengo problemas de acentos ni en los titulos
ni en los SAYS, no se la verison de Fivewin que tienes pero si antes te funcionaba y ahora no, no creo que sea problema de
Fivewin.
Piensa si has cambiado algo en el IDE que utilizas.

Espero lo soluciones pronto.

Saludos.

Jose.

[karinha]

Nicolás, que IDE usas?

Regards, saludos.

[nlerdafehn]

Karinha, utilizo "Sublime Text 3" con los pluggins para Harbour

Nicolás, que IDE usas?

Regards, saludos.