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

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

Postby Ale SB » Tue Apr 15, 2008 9:00 pm

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

Image
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
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---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil

Postby Ale SB » Wed Apr 16, 2008 11:09 am

-> 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
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---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 58 guests