Cambiar el font a un GET MULTILINE

[Sebastián Almirón]

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 _.

Saludos

[Patricio Avalos Aguirre]

Hola

nunca lo he hecho, pero podrias probar con :SetFont

Code: Select all

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

[Sebastián Almirón]

Gracias Patricio,

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