Un Tip: Visualizar la Pesquisa Incr, com xBrw (bSeek).

[Ale SB]

Un Tip:
Visualizar o que estas sendo Digitando com la Pesquisa Inc. con Metodo bSeek del xBrowse:

Code: Select all  Expand view  RUN

FUNCTION BrwBuscaForn()
 
  LOCAL oDlg, oBrw, oSay, oGet[16]
  LOCAL cMsgIndPes := "Localizar Por Nome"
  PRIVATE cPesquisa:=Space(50)
 

  DEFINE DIALOG..........

*****--- Say e Get de Pesquisa ---**********************************************     
    REDEFINE SAY oSay PROMPT cMsgIndPes ID 401 OF oDlg UpDate
             oSay:oFont:= Arial12B         

    REDEFINE GET oGet[1] VAR cPesquisa ID 21 OF oDlg PICTURE "@!" ;
             COLORS CLR_VERMELHO, CLR_AZUL01                      ;
              ReadOnly UpDate       
              oGet[1]:oFont:= Arial12B
                  
*****--- Browse - xBrowse Nativa ---********************************************
    oBrw := TXBrowse():New( oDlg )     
            oBrw:CreateFromResource( 102 )  //--> Chamada ao Resource Browse.
            oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW  //--> Estilo da barra de seleçao.       
            oBrw:bClrSelFocus := {|| { CLR_BRANCO, CLR_AZULXP } }  //--> Cor da barra de seleçao.
            oBrw:cAlias := (oDbfCadaForn:cAlias)            
            oBrw:bChange:={|| oDbfCadaForn:Load(), oDlg:Update()}

            oBrw:bSeek := {|c| PSeek( c ) }


  ACTIVATE DIALOG oDlg........            
 
Return

Code: Select all  Expand view  RUN

********************************************************************************
STATIC FUNCTION PSeek( c )
********************************************************************************

  cPesquisa := AllTrim( c ) 
  DbSeek( Upper( c ) )

RETURN .T.

Ps.: Agradecimentos especial ao Amigo Kleyber Derick.

Saludos Ale

[Ale SB]

-> Para atualizar el Get em tempo de Execução, use:

Code: Select all  Expand view  RUN

oBrw:bChange:={|| oBrw:Refresh(), oDlg:Update()}


*************************************************************

-> Esta Contribuiçao abaixo es de uno Amigo, colocando uno Beep caso no encontre la Letra digitada.

Code: Select all  Expand view  RUN

********************************************************************************
STATIC FUNCTION PSeek( c )
********************************************************************************

  cPesquisa := AllTrim( c ) 
  DbSeek( Upper( c ) )

    //--//--//
    IF !Found()
      TONE(2000, 2)
      c := Substr(c, 1, Len( c ) - 1)
      DbSeek( Upper( c ) )
      RETURN(.F.)
   ENDIF
   //--//--//

RETURN (.T.)


Gracias Dornelles

Salutos