ArrayBrowse

[fredy[1]]

Hola,
Algunas cosillas que he visto sobre el array browse.
1.- Cuando un texto no entra completo en la columna, he visto que hace un wordWrap, o sea, que corta la palabra completa que no cabe. ¿No se podría hacer que cortara por caracteres? (ver img4 y 5)
2.- En el caso de editar esa línea que no cabe completa, me selecciona y me muestra el final de la misma en lugar de el principio.( Ver img6)
3.- Si pongo un footer y edito una línea, el footer me sale justo debajo del header (img 7)
4.- ¿Hay alguna forma de que pulsando un botón me inserte una nueva línea en el arraybrowse y entre directamente en la edición de la misma? He visto que hay un :AddRow(), pero me falta un Append&EditRow()
Un saludico,
Fredy
---
avast! Antivirus: Saliente mensaje limpio.
Base de datos de Virus (VPS): 0514-2, 08/04/2005
Comprobado en: 09/04/2005 2:45:41
avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
http://www.avast.com

Attached files

[Guest]

Fredy,
1) oBrowse:nDataLines := 2
2 ) Dudo que es mejor, ir al principio o al final ¿? Lo estudiaré
3) Eso si que es un bug grande. Podrías mandarme un pequeño ejemplo. Gracias
4) oBrowse:AdRow(), ( oCol1:Edit() | oBrowse:Edit() )
Saludos
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=4292632486115041993024@news.ozs.com...]4292632486115041993024@news.ozs.com...[/email]
> Hola,
>
> Algunas cosillas que he visto sobre el array browse.
>
> 1.- Cuando un texto no entra completo en la columna, he visto que hace un
> wordWrap, o sea, que corta la palabra completa que no cabe. ¿No se podría
> hacer que cortara por caracteres? (ver img4 y 5)
>
> 2.- En el caso de editar esa línea que no cabe completa, me selecciona y
> me muestra el final de la misma en lugar de el principio.( Ver img6)
>
> 3.- Si pongo un footer y edito una línea, el footer me sale justo debajo
> del header (img 7)
>
> 4.- ¿Hay alguna forma de que pulsando un botón me inserte una nueva línea
> en el arraybrowse y entre directamente en la edición de la misma? He visto
> que hay un :AddRow(), pero me falta un Append&EditRow()
>
>
> Un saludico,
> Fredy
>
>
------------------------------------------------------------ --------------------
>
>
>
> ---
> avast! Antivirus: Saliente mensaje limpio.
> Base de datos de Virus (VPS): 0514-2, 08/04/2005
> Comprobado en: 09/04/2005 2:45:41
> avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
> http://www.avast.com
>
>
>

[fredy[1]]

Hola,
> 1) oBrowse:nDataLines := 2
No me funciona, en el ejemplo que te mando nDataLines vale 2

> 2 ) Dudo que es mejor, ir al principio o al final ¿? Lo estudiaré
Pues no sé, pero en xbase los browses siempre lo han hecho al principio
> 3) Eso si que es un bug grande. Podrías mandarme un pequeño ejemplo.
Te lo mando, en las img tienes la secuencia de lo que me sale.
Al principio sale bien, pero cuando le doy a insertar el pie me aparece bajo la cabecera
Otra cosa que me sucede es que cuando me pongo a escribir en una celda con botón, del botón me desaparecen los puntitos hasta que la celda pierde el foco. Además cuando la edito de nuevo (no la primera vez) me deja escribir en el espacio reservado para el botón. Es parecido a lo que me pasaba con el editbtn.
¿Le pasa a alguien más o es sólo a mí?
> 4) oBrowse:AdRow(), ( oCol1:Edit() | oBrowse:Edit() )
Casi me funciona. Yo tengo que poner
oB:AddRow(), oB:GoBottom(), oB:Edit()
si no pongo el bottom, me edita la línea en la que estoy posicionado, no la recién añadida.
Por cierto, ¿Hay que hacer algo para que se guarden los valores editados?
Lo digo porque los edita, pero al salir de la edición me deja los datos que tenía antes.
Un saludico,
Fredy
---
avast! Antivirus: Saliente mensaje limpio.
Base de datos de Virus (VPS): 0514-2, 08/04/2005
Comprobado en: 10/04/2005 3:23:43
avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
http://www.avast.com

Attached files demobrowse.zip (1.7 KB)Â

[ignacio]

Fredy,
1) Logicamente tienes que hacer más grande la linea con nRowHeight, o bien
darla el valor cero para que lo calcule el Browse en base al valor de
nDataLines. Si te fijas cuando nDataLines es mayor de 1 el texto se muestrá
en varias lineas, y entonces es completamente lógico que sino cabe en la
linea actual se pase a la siguiente. Sin embargo, sino dejas sitio para que
se vea la siguiente linea tienes el efecto que comentas. Moraleja: Deja
nRowHeight a 0.
3) Arreglado. Muchas gracias.
> Por cierto, ¿Hay que hacer algo para que se guarden los valores editados?
> Lo digo porque los edita, pero al salir de la edición me deja los datos
> que tenía antes.
Mira en la documentación el evento OnPostEdit.
Saludos,
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=4315632487002216057152@news.ozs.com...]4315632487002216057152@news.ozs.com...[/email]
> Hola,
>
>> 1) oBrowse:nDataLines := 2
>
> No me funciona, en el ejemplo que te mando nDataLines vale 2
>
>> 2 ) Dudo que es mejor, ir al principio o al final ¿? Lo estudiaré
>
> Pues no sé, pero en xbase los browses siempre lo han hecho al principio
>
>> 3) Eso si que es un bug grande. Podrías mandarme un pequeño ejemplo.
>
> Te lo mando, en las img tienes la secuencia de lo que me sale.
> Al principio sale bien, pero cuando le doy a insertar el pie me aparece
> bajo la cabecera
> Otra cosa que me sucede es que cuando me pongo a escribir en una celda con
> botón, del botón me desaparecen los puntitos hasta que la celda pierde el
> foco. Además cuando la edito de nuevo (no la primera vez) me deja escribir
> en el espacio reservado para el botón. Es parecido a lo que me pasaba con
> el editbtn.
> ¿Le pasa a alguien más o es sólo a mí?
>
>> 4) oBrowse:AdRow(), ( oCol1:Edit() | oBrowse:Edit() )
>
> Casi me funciona. Yo tengo que poner
> oB:AddRow(), oB:GoBottom(), oB:Edit()
> si no pongo el bottom, me edita la línea en la que estoy posicionado, no
> la recién añadida.
>
> Por cierto, ¿Hay que hacer algo para que se guarden los valores editados?
> Lo digo porque los edita, pero al salir de la edición me deja los datos
> que tenía antes.
>
> Un saludico,
> Fredy
>
------------------------------------------------------------ --------------------
>
>
>
> ---
> avast! Antivirus: Saliente mensaje limpio.
> Base de datos de Virus (VPS): 0514-2, 08/04/2005
> Comprobado en: 10/04/2005 3:23:43
> avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
> http://www.avast.com
>
>
>

[fredy[1]]

Hola Ignacio,
> 1) Logicamente tienes que hacer más grande la linea con nRowHeight, o
> bien darla el valor cero para que lo calcule el Browse en base al
> valor de nDataLines. Si te fijas cuando nDataLines es mayor de 1 el
> texto se muestrá en varias lineas, y entonces es completamente lógico
> que sino cabe en la linea actual se pase a la siguiente. Sin embargo,
> sino dejas sitio para que se vea la siguiente linea tienes el efecto
> que comentas. Moraleja: Deja nRowHeight a 0.
El dejarlo a 0 no me funciona, creo que ese cambio debe ser posterior a la
PreRelease2 que tengo.
¿La versión que tenéis ahora para descargar tiene alguna diferencia respecto
a la que vimos en Madrid?
Un saludico
Fredy
---
avast! Antivirus: Saliente mensaje limpio.
Base de datos de Virus (VPS): 0514-2, 08/04/2005
Comprobado en: 11/04/2005 14:06:38
avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
http://www.avast.com

[fredy[1]]

Hola
>
>> Por cierto, ¿Hay que hacer algo para que se guarden los valores
>> editados? Lo digo porque los edita, pero al salir de la edición me
>> deja los datos que tenía antes.
>>
> Mira en la documentación el evento OnPostEdit.
>
Me he perdido, no lo entiendo.
Si en el OnPostEdit del Browse pongo logdebug( oSender:aArrayData ) me da los valores originales del array, sin tener en cuenta los cambios.
Si lo pongo en el OnPostEdit de la columna, el parámetro Value me da el valor introducido pero no sé que hacer con él. Sé que tengo que actualizar en aArrayData, y lo he logrado mediante
METHOD PostEdit( oSender, Value, lCanceled ) CLASS TForm1
Local nFila, nColumna, aDatos
nColumna := oSender:nIndex
nfila := oSender:oParent:nArrayAt
aDatos := oSender:oParent:aArrayData
aDatos[nFila,ncolumna] := value
y apuntando el evento OnPostEdit de todas las celdas a PostEdit()
Pero..., tiene que haber una forma más sencilla ¿Verdad?
También me he fijado en que los datos numéricos se quedan ajustados a la fila central ¿Hay alguna forma de decirle que quiero que me aparezcan en la última fila disponible? Algo así com un alBOTTOM que tiene el nAlign pero para dentro de la celda.
Un saludico,
Fredy
---
avast! Antivirus: Saliente mensaje limpio.
Base de datos de Virus (VPS): 0514-2, 08/04/2005
Comprobado en: 11/04/2005 14:42:51
avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
http://www.avast.com

Attached files

[ignacio]

Fredy,
Lee de nuevo lo que te he dicho plis.
nRowHeight == 0 no te lo he comentado para arreglar el bug que tu crees que
hay SINO para que se CALCULE AUTOMATICAMENTE el alto de la fila.
A ver si consigo que me entiendas:
CUANDO NDATALINES > 1 EL TEXTO SE COMPORTA COMO UN MEMO, Y POR LO TANTO SINO
CABE EN UNA LINEA SE BAJA A LA SIGUIENTE. CUANDO NDATALINES == 1 NO SE
REALIZA EL EFECTO WORDWRAP. SI COMO ES TU CASO PONES NDATALINES > 1 PERO NO
DEJAS QUE EN EL ALTO DE LA FILA QUEPA MÁS QUE UNA SOLA LINEA DE TEXTO TE DA
LA IMPRESIÓN QUE COMENTAS, ES DECIR, SE PIERDEN PALABRAS ENTERAS EN VEZ DE
CARACTERES. SOLUCION:
1) AUMENTA EL TAMAÑO DE NROWHEIGHT
2) PON NDATALINES := 1
Saludos,
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=4403632488251962988304@news.ozs.com...]4403632488251962988304@news.ozs.com...[/email]
> Hola Ignacio,
>
>> 1) Logicamente tienes que hacer más grande la linea con nRowHeight, o
>> bien darla el valor cero para que lo calcule el Browse en base al
>> valor de nDataLines. Si te fijas cuando nDataLines es mayor de 1 el
>> texto se muestrá en varias lineas, y entonces es completamente lógico
>> que sino cabe en la linea actual se pase a la siguiente. Sin embargo,
>> sino dejas sitio para que se vea la siguiente linea tienes el efecto
>> que comentas. Moraleja: Deja nRowHeight a 0.
>
> El dejarlo a 0 no me funciona, creo que ese cambio debe ser posterior a la
> PreRelease2 que tengo.
> ¿La versión que tenéis ahora para descargar tiene alguna diferencia
> respecto a la que vimos en Madrid?
>
> Un saludico
> Fredy
>
>
>
>
> ---
> avast! Antivirus: Saliente mensaje limpio.
> Base de datos de Virus (VPS): 0514-2, 08/04/2005
> Comprobado en: 11/04/2005 14:06:38
> avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
> http://www.avast.com
>
>
>

[ignacio]

Fredy,
OnPostEdit del Browse SÓLO SE EVALUA cuando editar la linea completa y se
evalua se avalua DESPUES de que se han evaluado todos los OnPostEdit de las
columnas involucradas.
> METHOD PostEdit( oSender, Value, lCanceled ) CLASS TForm1
> Local nFila, nColumna, aDatos
> nColumna := oSender:nIndex
> nfila := oSender:oParent:nArrayAt
> aDatos := oSender:oParent:aArrayData
> aDatos[nFila,ncolumna] := value
>
> y apuntando el evento OnPostEdit de todas las celdas a PostEdit()
>
> Pero..., tiene que haber una forma más sencilla ¿Verdad?
Caray, lo ves tan complicado, o es que te estas mal acostumbrando En
una linea:
With Object oSender:oParent
:aArrayData[ :nArrayAt, oSender:nIndex ] := Value
End With
Prueba con esto de todas formas:
oCol:OnPostEdit := {|oCol, Value| oBrowse:SetValue( oCol, Value ) }
Saludos,
> Local nFila, nColumna, aDatos
> nColumna := oSender:nIndex
> nfila := oSender:oParent:nArrayAt
> aDatos := oSender:oParent:aArrayData
> aDatos[nFila,ncolumna] := value
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=425a70f2@ozsrvnegro.ozlan.local...]425a70f2@ozsrvnegro.ozlan.local...[/email]
> Hola
>
>
>>
>>> Por cierto, ¿Hay que hacer algo para que se guarden los valores
>>> editados? Lo digo porque los edita, pero al salir de la edición me
>>> deja los datos que tenía antes.
>>>
>> Mira en la documentación el evento OnPostEdit.
>>
> Me he perdido, no lo entiendo.
>
> Si en el OnPostEdit del Browse pongo logdebug( oSender:aArrayData ) me da
> los valores originales del array, sin tener en cuenta los cambios.
>
> Si lo pongo en el OnPostEdit de la columna, el parámetro Value me da el
> valor introducido pero no sé que hacer con él. Sé que tengo que actualizar
> en aArrayData, y lo he logrado mediante
>
> METHOD PostEdit( oSender, Value, lCanceled ) CLASS TForm1
> Local nFila, nColumna, aDatos
> nColumna := oSender:nIndex
> nfila := oSender:oParent:nArrayAt
> aDatos := oSender:oParent:aArrayData
> aDatos[nFila,ncolumna] := value
>
> y apuntando el evento OnPostEdit de todas las celdas a PostEdit()
>
> Pero..., tiene que haber una forma más sencilla ¿Verdad?
>
>
> También me he fijado en que los datos numéricos se quedan ajustados a la
> fila central ¿Hay alguna forma de decirle que quiero que me aparezcan en
> la última fila disponible? Algo así com un alBOTTOM que tiene el nAlign
> pero para dentro de la celda.
>
> Un saludico,
> Fredy
>
------------------------------------------------------------ --------------------
>
>
>
> ---
> avast! Antivirus: Saliente mensaje limpio.
> Base de datos de Virus (VPS): 0514-2, 08/04/2005
> Comprobado en: 11/04/2005 14:42:51
> avast! tiene los derechos reservados (c) 1988-2004 ALWIL Software.
> http://www.avast.com
>
>
>