Video – xBrowser SelFont() for columns visually

[Otto]

http://www.atzwanger.com/fwvideo/xbtool/xBToolSelFont.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