I just update my program to FW24.09 (BCC7.70) , I found the Font display incorrect when I enter some of 2 THAI character font for example chr(202)+chr(161) , chr(203)+chr(162) , chr(202)+chr(164) etc. , It may be problem from unicode character, I try to use command FW_SetUnicode( .F. ) but nothing change. How can I solve this problem.

Also each Thai UTF8 character is represented by 3 bytes. Not 2 bytes

My program is ANSI not Unicode. but some THAI characters is display like Unicode.

Did you at all try the sample we posted?

Surasak wrote:My program is ANSI not Unicode. but some THAI characters is display like Unicode.

Thank you my friend Mr. Dutch.

I found the Font display incorrect when I enter some of 2 THAI character font for example chr(202)+chr(161) , chr(203)+chr(162) , chr(202)+chr(164) etc. , It may be problem from unicode character,

#include "fivewin.ch"

// Thai ANSI chars

function Main()

   local oFont, oThai
   local aChar := { ;
      { 202, 161, nil, nil, nil, nil }, ;
      { 202, 161, nil, nil, nil, nil }, ;
      { 202, 161, nil, nil, nil, nil }  }

   AEval( aChar, < |a,i|
      a[ 3 ] := Chr( a[ 1 ] )
      a[ 4 ] := Chr( a[ 2 ] )
      a[ 5 ] := a[ 3 ] + "+" + a[ 4 ] + '='
      a[ 6 ] := a[ 3 ] + a[ 4 ]
      return nil
      > )

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-32
   DEFINE FONT oThai NAME "Segoe UI" SIZE 0,-64 CHARSET 0xDE

   XBROWSER aChar TITLE FWVERSION SETUP ( ;
      oBrw:oDataFonts := { oFont, oFont, oThai, oThai, oThai, oThai }, ;
      oBrw:cHeaders := { "ASC1","ASC2","CHR1","CHR2","CHR1+CHR2=","RESULT" }, ;
      oBrw:nDataStrAligns := AL_CENTER, ;
      oBrw:nHeadStAlighns := AL_CENTER );
      AUTOFIT

   RELEASE FONT oFont, oThai

return nil

It may be problem from unicode character

Thank You So Much nageswaragunupudi,

Yes, That is my problem, It happen when enter 2 of character ascII higher than 127, But If enter 1 or more than 2 character it will not happen.

My last version is FW17 (My Program work fine with this version and older version) , I have to use QRCODE function which FW17 not support,

I also found other some problem with FW24,

for example :

• at the first time when run the program it take 5 to10 seconds before program start

• When I try to use unicode by function FW_SetUnicode( .T. ) + HB_SETCODEPAGE( "UTF8" ) and change my code to UTF8,

I found class MENU display incorrect , I test by use function GetSysFont(), It work with function msginfo() but class MENU still display wrong font

• Function msginfo() the button is not center

I do not know How to post the picture on this forums, Please told me how can I post the picture to show my problem

Thank you every one for suppoting

Dear nageswaragunupudi,

Sorry for my fault, In case Unicode class MENU display incorrect , I found that I can assign FONT to this class to correct the font

I found some part of my Unicode program have to store space() to variable before take the value from database to variable ,

If not, GET command will cannot enter the THAI character

Dear nageswaragunupudi,

As below is the sample of my Unicode Program with GET cannot enter THAI character if variable = nil at first

include "FiveWin.ch"

function Main
local oWnd
public cFont0,oFont0,cName,oName
FW_SetUnicode( .T. )
HB_SETCODEPAGE( "UTF8" )
cFont0="Tahoma"

*cName = space(40)      // FW24 Version If Without This Line, Variable cName with = nil
                    // I will cannot Enter THAI character
                    // But in FW17 Version Have no this problem

DEFINE FONT oFont0 NAME cFont0 SIZE 0,24
DEFINE WINDOW oWnd FROM 0,0 TO 12,34 TITLE "Test Program"
@   20, 20  SAY "ENTER"                   OF oWnd PIXEL
@   60, 20  GET oName   VAR cName   OF oWnd PIXEL SIZE 200,30
@ 100, 80  BUTTON "EXIT"                  OF oWnd PIXEL SIZE  70,30 ACTION oWnd:End()
SET FONT OF oWnd TO oFont0
ACTIVATE WINDOW oWnd ON INIT VarSet()
CLOSE ALL
CLEAR ALL
QUIT

return nil

Function VarSet
cName = "ทดสอบ "
oName:Refresh()
return nil