Page 1 of 1
Una de Novatos en xBrowse
Posted: Fri Sep 27, 2024 10:12 pm
by 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.
Re: Una de Novatos en xBrowse
Posted: Fri Sep 27, 2024 11:41 pm
by cmsoft
Algo asi jose?
Code: Select all | Expand
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
Re: Una de Novatos en xBrowse
Posted: Sat Sep 28, 2024 9:26 am
by Marc Venken
or like this ??
Code: Select all | Expand
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
Re: Una de Novatos en xBrowse
Posted: Sat Sep 28, 2024 2:02 pm
by 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
Re: Una de Novatos en xBrowse
Posted: Sat Sep 28, 2024 3:09 pm
by cmsoft
Puedes limitarlo si es texto:
Code: Select all | Expand
:aCols[1]:bOnPreEdit := {| o | o:oEditGet:cText := SPACE(8)}