topic-9351

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 07:48 PM

A ver si alguien sabe como:

Necesito mostrar en el StatusBar el valor que estoy manejando en una busqueda incremental en un twbrowse. Revise samples\StBar.prg y parece que lo hice, pero me muestra muchos simbolos extraños....

Coloque que el metodo bKeyDown del wBrowse evaluara esto:

Code: Select all Collapse

IF !EMPTY(cZoek)
   IF INDEXORD() # 0
      bMsg := &("{||oStatusBar:SetPartText(3,'"+PADR("Buscando a >"+cZoek+"<",40)+"')}")
      EVAL( bMsg )

      DBSeek( cZoek )
      IF Found()
         IF nRecNo#RECNO()
            oLbx:Refresh()
         ENDIF
         nRecNo := RECNO()
      ELSE
         DBGoTo( nRecNo )
         oLbx:Refresh()
      ENDIF
   ENDIF
ELSE
   oStatusBar:SetPartText(3,"                                        ")
CLR_BLACK,, .t. )
ENDIF

donde cZoek es la variable de busqueda incremental.

Pero no consigo esto. Con el MsgBar estaba bien, pero me interesa utilizar StatusBar.

Gracias anticipadas...

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 07:59 PM

Julio,

Puedes poner un ejemplo de texto usado por cZoek que no se vea bien ? gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

jllinas

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 08:10 PM

Antonio:

Gracias por responder tan rapido.

Como incluyo el pantallazo aquí ? (disculpa mis limitaciones en manejo del foro.. )

Abrazos y Felicidades en Navidad !

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 08:16 PM

Julio,

No hace falta el pantallazo de momento (puedes usar www.imageshack.us para incluirlos aqui), sino el texto que le estás asignando a la statusbar para poder reproducirlo, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

jllinas

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 09:03 PM

Ok, comprendo:

1- El StatusBar lo defino asi en el dialogo:

Code: Select all Collapse

   DEFINE STATUSBAR oStatusBar PROMPT "Edición de Registros" OF oDlg ;
      SIZES 150, 280, 560 ;
      PROMPTS "One", Fecha, "                                        "

La variable "Fecha" contiene la fecha actual, y se visualiza perfectamente.

2- Quisiera que cuando se pulse cualquier tecla, se realice la busqueda incremental. La variable "cZoek" contiene la cadena que se ha estado digitando y que comprende lo que "busca" el usuario. Si se trata de la DBF de Clientes, bien podria ser que cZoek := "GONZAL" si es que ha estado buscando el primer Gonzales en el wBrowse de clientes ordenado alfabeticamente.

Agrego una pantalla con lo que describo anteriormente...

By jllinas at 2007-12-24

En este ejemplo, cZoek contenia "ANDR", pero como vez muestra una "G", que no tiene nada que ver con el valor de cZoek..

Abrazos...

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 09:10 PM

Julio,

Estás haciéndolo así ?

oStatusBar:SetPartText( 3, cZoek )

regards, saludos

Antonio Linares
www.fivetechsoft.com

jllinas

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Busqueda incremental y StatusBar
Posted: Mon Dec 24, 2007 09:19 PM

Perfecto Amigo !!!!

Solucionado. Parece que en algun momento no me funciono así, y quería redescubrir la fórmula del agua calentada !

La forma mas simple siempre es la mejor...

Gracias de nuevo, y te deseo que pases unas Felices Navidades junto a tu familia, y que el 2008 sea el Mejor Año del Resto de tu Vida.

Abrazos....

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Busqueda incremental y StatusBar
Posted: Tue Dec 25, 2007 12:57 AM

Bien! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion