FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Acentos en titulos
nlerdafehn
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
Acentos en titulos
Posted: Fri Mar 12, 2021 11:43 AM
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 (fw): Select all Collapse
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.
Nicolás
nlerdafehn
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 12:16 PM
El problema lo tengo cuando pongo las tildes en los say

Code (fw): Select all Collapse
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.
Nicolás
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 12:32 PM
Code (fw): Select all Collapse
OemToAnsi()
ó
AnsiToOem()


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
nlerdafehn
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 01:59 PM
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...

karinha wrote:
Code (fw): Select all Collapse
OemToAnsi()
ó
AnsiToOem()


Saludos.
Nicolás
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 02:42 PM

Ejemplo, porfa.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
nlerdafehn
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 03:11 PM
Code (fw): Select all Collapse
say   "Créditos:"



Code (fw): Select all Collapse
say   OemToAnsi("Créditos:")



Code (fw): Select all Collapse
say   AnsiToOem("Créditos:")

Nicolás
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 04:08 PM
Code (fw): Select all Collapse
// \SAMPLES\TESTSAY.PRG - Modificado por: <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 04:39 PM
Mis editores:

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

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 07:07 PM

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
nlerdafehn
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
Re: Acentos en titulos
Posted: Fri Mar 12, 2021 11:15 PM
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!

jvtecheto wrote: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.
Nicolás
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Acentos en titulos
Posted: Sat Mar 13, 2021 03:32 PM

Nicolás, que IDE usas?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
nlerdafehn
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
Re: Acentos en titulos
Posted: Mon Mar 15, 2021 02:10 PM
Karinha, utilizo "Sublime Text 3" con los pluggins para Harbour

karinha wrote:Nicolás, que IDE usas?

Regards, saludos.
Nicolás

Continue the discussion

Static archive · New replies & topics via GitHub Discussions