topic-44944

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Una de Novatos en xBrowse
Posted: Fri Sep 27, 2024 10:12 PM

Hola amigos, un saludo para todos

¿Cómo hacer para que xBrowse muestra el numero de fila junto al apuntador? es decir junto a la punta de flecha a la izquierda del browse?

Comenzando con xBrowse, pregunte aquí como quitarlo, pero ahora necesito ponerlo hahaha y no recuerdo como es

Por otro lado, le asigno un valor inicial a una celda del xbrowse, y quiero que cuando el usuario de doble click sobre la celda, este valor desaparezca, algo asi como el cuebanner o el placeholder.

Gracias desde ahora por la ayuda.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Una de Novatos en xBrowse
Posted: Fri Sep 27, 2024 11:41 PM

Algo asi jose?

Code (fw): Select all Collapse

aData := {{"Haga click para buscar cliente",CTOD('  /  /   '),0,CTOD('  /  /   ')}}
DEFINE DIALOG oForm TITLE "Jose" FROM 05,10 TO 42,100 
      
   @ 05,05 XBROWSE oBrw ARRAY aData;
              COLUMNS 1,2,3,4;
              HEADERS "Cliente","Fecha","Dias","Vencimiento";
              SIZES 300,100,100,100;
              OF oForm 340,215 PIXEL 
   WITH OBJECT oBrw
        :aCols[1]:bOnPreEdit := {| o |  o:oEditGet:cText := SPACE(30)}  // Borrar antes de mostra el get
        :aCols[1]:nEditType := EDIT_GET         
        :RecSelShowKeyNo()  // Mostra nro de fila    
        :bPastEof := {|| aadd(aData, {"Haga doble click para escribir",CTOD('  /  /   '),0,CTOD('  /  /   ')})}
        :CreateFromCode()   
   END
ACTIVATE DIALOG oForm CENTER

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: Una de Novatos en xBrowse
Posted: Sat Sep 28, 2024 09:26 AM

or like this ??

Code (fw): Select all Collapse

WITH OBJECT oBrw
      :lFooter          := .T.
      :bRecSelHeader    := {||""}   // Top Left Header Name
      :bRecSelData      := {| o | o:KeyNo }
      :bRecSelFooter    := {| o | o:nLen }
      :oRecSelFont      := oFontXXS  // optional
      
      //:nRecSelWidth     := if (oBrw:nLen > 999, "99999","9999" ) // Format 

      ....

END 

WITH OBJECT :Dias // Xbrowse data
    :bLDClickData  := { || oBrw:Dias:Varput( "" ) }
END

Marc Venken

Using: FWH 23.08 with Harbour

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Una de Novatos en xBrowse
Posted: Sat Sep 28, 2024 02:02 PM

Estimados César y Mark

Muchas gracias a ambos, con sus indicaciones pude lograr lo que estaba necesitando. Agradecido con uds.

Una ultima duda: veo que por defecto, las celdas de xbrowse tienen un tamaño minimo de 10 espacios, o por lo menos es lo que me esta presentado.

El valor de una de las celdas que debo ingresar no puede exceder de 8 caracteres. ¿Alguna forma de fijarlo a esa longitud?

gracias

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Una de Novatos en xBrowse
Posted: Sat Sep 28, 2024 03:09 PM

Puedes limitarlo si es texto:

Code (fw): Select all Collapse

:aCols[1]:bOnPreEdit := {| o |  o:oEditGet:cText := SPACE(8)}

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Continue the discussion