by Milan Mehta » Fri Nov 18, 2005 7:09 am
Hello all,
With kind help of James Bott I could adapt one of his function to achive the same. Here it is if it helps anybody. One will need to change the name of database and actiive tag.
I have one question also. Pressing space bar will clear the search. But I am not able to achieve the same with other key like Del or so. Can anybody shed light on it.
Thanks James. My private mail to you bounces back. So I do it here.
Wiith best regards,
Milan.
----------------------Cut-------------------------
FUNCTION SetTwBrowIncr(oBrw)
oBrw:bKeyChar := {|nKey,nFlags| FindTwIncr(oBrw,nKey)}
oBrw:bGotFocus := {|| oBrw:Cargo := "",oBrw:SetFocus()}
RETURN NIL
FUNCTION FindTwIncr(oBrw,nKey)
LOCAL nNewEle := 0
LOCAL nOrder := 0
IF nKey <> 32
oBrw:Cargo += upper( CHR(nKey) )
Select Diary
nOrder := IndexOrd()
Set ORDER TO TAG Name
DBSeek (oBrw:Cargo, .T.)
Set ORDER TO nOrder
oBrw:nLen := OrdKeyCount()
oBrw:VSetPos( OrdKeyNo() )
oBrw:Refresh()
ELSE
oBrw:Cargo := ""
oBrw:GoTop()
ENDIF
RETURN oBrw:nAT
----------------------Paste-----------------------