FiveTech Support Forums

why I cannot show the Wingdings characters on a xbrowse ?

I tried with oBrw:odatafont := oFont

I tried also with

FOR i := 1 TO LEN(oBrowChars:aCols)
oCol := oBrowChars:aCols[ i ]
oCol:oDataFont:= CreateFontGrid(aArrayFont[nFontname])
next



...



Function CreateFontGrid(cname)
IF ofont<> NIL
ofont:end()
endif
oFont := TFont():New(cname,0,-16) //,.F.,.T.,0,0,0,.F. )
return ofont

Please try defining font like this

thanks Maestro

I use GetFontNames( hDC ) to give an array of fonts
is there a function give me also the ncharset for each font ? or it need only 1 and 2