Incremental search in the MessageBar

[frose]

Hello,

I want to place the SAY of oBrw:cSeek (incremental search in a TXBrowse) in the MessageBar, but don't know how!

Can guide me someone?

TIA

[betoncu]

I am using statusbar for this purpose as described below.
I didn't try, but may be you can use the same solution for message bar.

Birol Betoncu

Code: Select all  Expand view

DEFINE STATUSBAR oStBar OF oWnd PROMPT ""

   @ 1, 1 SAY oSay VAR cSay ;
          SIZE oStBar:nWidth-2, oStBar:nHeight-2 ;
          COLOR CLR_BLACK, GetSysColor(15) ;
          OF oStBar ;
          FONT oFont ;
          PIXEL

oLbx:oSeek := oSay

[frose]

Birol,

yes, it's working fine with the message bar, thank you very much.

I've already tried it in this way:

Code: Select all  Expand view

...
   DEFINE MSGITEM oMsgBarcSeek OF oDlg:oMsgBar PROMPT "Inremental search" SIZE 150 COLOR "R+/W"
...
FUNCTION My_Search( oBrw, cSeek )
    LOCAL lReturn := .F.
   IF Customer->( DbSeek( cSeek ) )
    lReturn := .T.
    oBrw:cSeek := cSeek
    // Show the search string in the message bar
       oMsgBarcSeek:SetText( cSeek )
   ENDIF
RETURN lReturn
 

But the disadvantage is, that the search string is still displayed after <cSeek> is killed by the TXBrowse object.

[nageswaragunupudi]

Mr Frose

Please implement your msgitem logic this way:

Code: Select all  Expand view

 
DEFINE MSGITEM oBrw:oSeek OF oDlg:oMsgBar ;
      PROMPT "Inremental search" ;
      SIZE 150 COLOR "R+/W"
 

Delete My_Search(..) function.

No more code is needed. My_Search function is not needed. Rather, it should be avoided. The builtin logic of xBrowse of setting text and deleting the text works perfectly and better than our own functions.

Best way to use XBrowse is to write less code in our program and rely more on xBrowse's built in logic.

[frose]

Rao,

working perfectly, thank you very much.