To Nages : special chrs on xbrowse

[Silvio.Falconi]

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

[nageswaragunupudi]

Please try defining font like this

Code: Select all  Expand view

  DEFINE FONT oWing1 NAME "WingDings"   SIZE 0,-30 CHARSET 2
 

[Silvio.Falconi]

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

[nageswaragunupudi]

Charset 2 is for Symbols

[Silvio.Falconi]

yes I saw and change the function now run ok thanks
see viewtopic.php?f=3&t=32659