change font for TXBrowse()

[edu_parada]

Hi,

I am trying to change font in XBrowse, allowing the user to change it in runtime. In listbox I did:

oBrowse:Selfont()
oBrowse:Refresh()

But It does not work. Also I have tried:

LOCAL oFont

DEFINE FONT oFont FROM USER

oBrowse:Setfont(oFont)
oBrowse:Refresh()

and it does not work too. How can i do it?. Thank you!!!!

[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]

Thanks, but I want that the user can change the font during the program execution.

[edu_parada]

Please, any advice!!!!!!!!!!. Thank you.

[Antonio Linares]

Edu,

We are going to build a sample for you

[Antonio Linares]

Edu,

Please add this new method to Class 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     


Then simply do:
oXBrowse:SelFont()