Page 1 of 1

Incremental Search in TwBrowse (Standard)

Posted: Tue Nov 15, 2005 10:15 am
by Milan Mehta
Hi,

How to pvovide incremental search in TwBrowse. Someone must have done it. I tried to achieve same using DBCOMBO box. But it seems to be not working properly.

Any sample / guidance will be highly appreciated.

Milan.

Posted: Fri Nov 18, 2005 7:09 am
by Milan Mehta
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-----------------------

Posted: Fri Nov 18, 2005 5:04 pm
by James Bott
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.
Just change this line:

IF nKey <> 32

To:

IF nKey != 32 .and. nKey != VK_DELETE

And add this include:

#include "vkey.ch"

Regards,
James

Posted: Fri Nov 18, 2005 6:46 pm
by Antonio Linares
Hello James,

Welcome aboard :)

We do appreciate if you upload a photo to your profile. Thanks!