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

Posts: 248

Joined: Wed Jan 11, 2006 11:30 AM

Un Tip: Visualizar la Pesquisa Incr, com xBrw (bSeek).
Posted: Tue Apr 15, 2008 09:00 PM

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

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 Collapse

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

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

RETURN .T.

Ps.: Agradecimentos especial ao Amigo Kleyber Derick.

Saludos Ale

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**

Ale SB

Posts: 248

Joined: Wed Jan 11, 2006 11:30 AM

Un Tip: Visualizar la Pesquisa Incr, com xBrw (bSeek).
Posted: Wed Apr 16, 2008 11:09 AM

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

Code: Select all Collapse

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 Collapse

********************************************************************************
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

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**

FiveTech Support Forums

Continue the discussion