xbrowse:keychar() lost some 2bytes nkeys on no modal dialog

[ShumingWang]

Hi,
//1 Only for test lost 2 bytes word input.
METHOD KeyChar( nKey, nFlags ) CLASS TXBrowse
...
do case
...
case nKey == VK_ESCAPE
memowrit("aaa.txt",::ckeychar )
::ckeychar:=""
// a temparary data 'ckeychar' add to xbrowse class
...

otherwise

::cKeyChar += Chr( nKey )
...

We open log file aaa.txt,we can found 2bytes Chinese word inputed lost some chars.
While xbrowse keychar() of modal dialog works fine.


// 2 for test connect to xbrowse ocol:edit

METHOD KeyChar( nKey, nFlags ) CLASS TXBrowse
...
do case
...
case nKey == VK_ESCAPE
memowrit("aaa.txt",::ckeychar )
::ckeychar:=""
// a tempary data 'ckeychar' add to xbrowse class
...

otherwise

::cKeyChar += Chr( nKey )
...
elseif ( ::lFastEdit ...
SysRefresh()
oCol:Edit()
...

method edit() class TXBrwColumn
...
if ::lEditBorder
WndBoxIn( ::oBrw:GetDC(), nRow-1, nCol-1, nRow + nHeight + 1, nCol + nWidth + 1)
::oBrw:ReleaseDC()
endif

ckey:=::obrw:ckeychar
for nI := 1 To Len( cKey )

PostMessage( ::oEditGet:hWnd, WM_CHAR, Asc( Substr( cKey, nI, 1 )) )
next ni


Best regards!
Shuming Wang

[ShumingWang]

Here is How to install Chinese word diaplay and input module in XP :
viewtopic.php?f=19&t=22705