When showing Unicode characters (2 and 3 superscript) in the xBrowse column, it looks strange. In addition to Unicode characters, some additional character is displayed.
oBrw:bStrData:={||HB_UTF8CHR(HexToNum(aRow[1]))}
#include "fivewin.ch"
function Main()
local aData := {}
local oFont, oSymbol
local oDlg, oBrw
local n
for n := 0xE100 to 0XE120
AAdd( aData, { n, HB_UTF8CHR( n ) } )
next
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-20
if IsWindows10()
DEFINE FONT oSymbol NAME "Segoe MDL2 Assets" SIZE 0,-20
else
DEFINE FONT oSymbol NAME "Segoe UI Symbol" SIZE 0,-20
endif
DEFINE DIALOG oDlg SIZE 250,500 PIXEL TRUEPIXEL FONT oFont
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE aData ;
AUTOCOLS NOBORDER
oBrw:aCols[ 1 ]:bEditValue := { || HB_NUMTOHEX( oBrw:aRow[ 1 ] ) }
oBrw:aCols[ 2 ]:oDataFont := oSymbol
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont, oSymbol
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Silvio.Falconi and 33 guests