topic-22706

Board index FiveWin para Harbour/xHarbour Cambiar el font a un GET MULTILINE

Posts: 166

Joined: Mon Dec 12, 2005 09:56 AM

Cambiar el font a un GET MULTILINE
Posted: Thu Oct 20, 2011 09:22 AM

Hola a todos, a ver si alguien me puede ayudar:

Tengo un dialogo con un get multiline, al que una vez en pantalla y dependiendo de la selección de idioma que haga en ese dialogo el usuario, tengo que cambiar la fuente y el juego de caracteres del get. Normalmente en el get no indico FONT, pero si el usuario selecciona el idioma Polaco, tengo que cambiar al juego de caracteres de Europa Central, porque hay consonantes con acento, eles con una barra atravesada, etc.

he intentado esto (resumido):

private oFontP := TFont():New('Arial' ,0,-11 ,,,,,,,,,238) //238 es el juego de caracteres Europa Central y con TPrinter funciona bien.
private oFontN := TFont():New('MS Sans Serif',0,-8)

DEFINE DIALOG....

REDEFINE COMBOBOX oidioma VAR nidioma ITEMS {'Español','Polaco','Alemán'}
oidioma:bchange := {|| ponidioma()}
REDEFINE GET oobserva VAR mobserva MULTILINE

ACTIVATE DIALOG...

fuction ponidioma()
if nidioma = 2 //Polaco
oobserva:ofont := oFontp
else
oobserva:ofont := ofontn
endif
oobserva:Refresh()
return

Pero no funciona, solo sale con el juego de caracteres de Europa Central si pongo:
REDEFINE GET oobserva VAR mobserva MULTILINE FONT oFontp
pero así no me sirve porque si el idioma es español, no salen las eñes y otros caracteres.

Saludos

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Cambiar el font a un GET MULTILINE
Posted: Thu Oct 20, 2011 12:47 PM

Hola

nunca lo he hecho, pero podrias probar con :SetFont

Code (fw): Select all Collapse

fuction ponidioma()
if nidioma = 2 //Polaco
oobserva:SetFont(oFontp)
else
oobserva:SetFont(ofontn)
endif
oobserva:Refresh()
return

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Sebastián Almirón

Posts: 166

Joined: Mon Dec 12, 2005 09:56 AM

Re: Cambiar el font a un GET MULTILINE
Posted: Thu Oct 20, 2011 02:32 PM

Gracias Patricio,

No se como no se me ha ocurrido mirar el método SetFont(), hay días que uno no debería programar. :oops:

FiveTech Support Forums

Continue the discussion