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!!!!
change font for TXBrowse()
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
-
- Posts: 33
- Joined: Sat Jul 07, 2007 5:53 pm
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Edu,
Please add this new method to Class TXBrowse:
Then simply do:
oXBrowse:SelFont()
Please add this new method to Class TXBrowse:
Code: Select all
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
oXBrowse:SelFont()