FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Xbrowse keychar to post Chinese words into edit /tget ?
Posts: 474
Joined: Sun Oct 30, 2005 06:37 AM
Xbrowse keychar to post Chinese words into edit /tget ?
Posted: Wed Apr 23, 2008 08:11 AM

Hi,
If input A Chinese words like "国家" at one time by ms windows (at one time like input a 'a' at one time,not done 4 times )

xbrowse keychar()
local cstr:=""
do case
case nkey ==...
...
otherwise
...

     oserver:query("insert into aaa (mem) values('"+char(nkey)+"'")
     cstr+=chr(nkey)
     ocol:edit(nkey)  
     // edit(nkey() lost the right("国家",3), only post the first char left("国家",1) into edit/Tget

return

select mem from aaa

185
250
188
210
// chr(185)+chr(250)+chr(188)+chr(210)=="国家"==cstr

So ,I want :

 xbrowse keychar()

local cstr:=""
do case
case nkey ==...
...
otherwise
...
while nkey>0
::cstr+=chr(nkey)
nkey:=lastkey()
// or by super keyboard
end

     ocol:edit(cstr) and post cstr to tget 
     ...

return

How to do this:
while nkey>0
::cstr+=chr(nkey)
nkey:=lastkey()
// or by super:keychar(),setkey(),...
end

Best reagrds!

Shuming Wang

http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651

Continue the discussion