cambiar fuente en TXBrowse()

[edu_parada]

Hola;

En el LISTBOX para cambiar la fuente hacía:

oBrowse:Selfont()
oBrowse:Refresh()


Pero no marcha en TXBrowse(), ¿por qué?. Muchas gracias.

Salu2

[Mike Serra]

Prueba asignandole el font asi:

obrowse:SetFont (no SelFont)

SALUDOS

[edu_parada]

Nada, sigue sin ir. He probado:

LOCAL oFont

DEFINE FONT oFont FROM USER

oBrowse:Setfont(oFont)
oBrowse:Refresh()


Y NO funciona. Muchas gracias.

[Antonio Linares]

Local oFont

DEFINE FONT oFont NAME "Arial" SIZE 0, -8 BOLD

...

oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->First}
oCol:cHeader := "First"
oCol:oDataFont := oFont

[edu_parada]

Gracias, pero lo que quiero es que el usuario pueda cambiar la fuente durante la ejecución del programna

[edu_parada]

Por favor, necesito que el usuario pueda cambiar la fuente durante la visualización del xbrowse!!.

Muchísimas gracias!!!!!!!!!!!!!!!!!!

[Antonio Linares]

Edu,

Añade este método a la Clase TXBrowse:

Code: Select all  Expand view  RUN

METHOD SelFont() CLASS TXBrowse

   local oFont, n

   DEFINE FONT oFont FROM USER
   
   for n = 1 to Len( ::aCols )
      ::aCols[ n ]:oDataFont = oFont
   next
   
   ::Refresh()
   
return nil     


Para usarlo:
oXBrowse:SelFont()

[edu_parada]

Muchas gracias, ahora sí funciona.

No obstante, he encontrado un error al seleccionar la fuente. Pulsa Cancelar y en vez de mantener la fuente original, la vuelve negrita.

[Antonio Linares]

Edu,

Se soluciona con un pequeño cambio:

Code: Select all  Expand view  RUN

METHOD SelFont() CLASS TXBrowse

   local oFont, n

   DEFINE FONT oFont FROM USER
   
   if oFont:cFaceName != "SYSTEM_FONT"
   
      for n = 1 to Len( ::aCols )
         ::aCols[ n ]:oDataFont = oFont
      next
   
      ::Refresh()
   endif   
   
return nil