http://www.atzwanger.com/fwvideo/xbtool ... lFont.html
Add these changes to xBrowser-class
METHOD SelFont(nSelCol) CLASS TXBrowse
local oFont, n
DEFINE FONT oFont FROM USER
IF nSelCol = 0
if oFont:cFaceName != "SYSTEM_FONT"
for n = 1 to Len( ::aCols )
::aCols[ n ]:oDataFont = oFont
next
::Refresh()
endif
else
::aCols[nSelCol ]:oDataFont = oFont
::Refresh()
endif
return nil