Una de Novatos en xBrowse

[JoseAlvarez]

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.

[cmsoft]

Algo asi jose?

Code: Select all  Expand view

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
 

[Marc Venken]

or like this ??

Code: Select all  Expand view

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

 

[JoseAlvarez]

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

[cmsoft]

Puedes limitarlo si es texto:

Code: Select all  Expand view

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