Wbrowse Mejorado para probar

[jmartial]

Hola,

He mejorado y limpiado la clase wbrowse, porque es rápida y fácil en multiples partes de las aplicaciones, ya que en esos casos,
quizás XBrowse es demasiado compleja.

EL problema era la visualización antigua que se veía con wbrowse.

Le he añadido una serie de mejoras y me gustaría que quien la use, la pruebe para ver si rompe la compatibilidad con algún código antiguo.
La idea es que Antonio la sustituya en la próxima versión de FW.


Estas son las mejoras que he incorporado intentando compatibilizar nombres con xBrowse:

DATA nFreeze AS NUMERIC INIT 0 // Columnas a la izquierda congeladas

DATA lColDividerComplete AS LOGICAL INIT .T. // Si Línea separación entre columnas llega hasta el pie del Browse

// Gestión de colores por columnas ---------------------------------
DATA aTextColorCol AS ARRAY INIT {} // Array de color del texto de las columnas
DATA aBackColorCol AS ARRAY INIT {} // Array de color de fondo de las columnas

DATA nHeaderLines AS NUMERIC INIT 2 // Número de líneas según altura del font que será de alta la cabecera
DATA nDataLines AS NUMERIC INIT 1.5 // Número de líneas según altura del font que será de alta la línea de datos

METHOD setLook2007() INLINE ::l2007 := IsAppThemed(), ::l2007 // Activa el look 2007 en las cabeceras
METHOD setLookOff() INLINE ::l2007 := .F., ::l2007 // Desactiva el look 2007 en las cabeceras


Implementado también el centrado de columnas si es nil el parámetro de aJustify.

Os añado la clase para que la probéis y un prg de ejemplo, que sólo necesita la tabla customer.dbf del directorio \samples\ de FW.

https://dl.dropboxusercontent.com/u/8604183/FWHforos/DemoBrowseEx.prg

https://dl.dropboxusercontent.com/u/8604183/FWHforos/wbrowse_FWH_Sept2014.prg

Espero vuestras opiniones y que os guste.

[karinha]

Muy Bueno.
Very good!

Excelente.

Gracias.

[jmartial]

Hola,

Ahí tenéis una nueva versión, con múltiples errores corregidos, el scroll vertical con escopes y filtros funciona, cosa que antes no y se han añadido
2 nuevos métodos para que nos pinte en un say, en qué linea estamos y cuantas hay totales.

METHOD PosRelativaON(oSay,cMsg)
METHOD PosRelativaOFF()

Si cMsg fuera, "Número de fra.", pintaría "Número de fra. 1 de 287". El objeto say tiene que estar creado antes de enviárselo.

https://dl.dropboxusercontent.com/u/8604183/FWHforos/wbrowse_FWH_Sept2014.prg

Espero que os guste y me digáis si os funciona bien.

[FranciscoA]

¿Funciona con la version FWH 1204?
Saludos.

[jmartial]

Buenos días,

Me imagino que sí, pero sólo tienes aue crear el ejemplo
Y añades el prg de la clase modificada.

Si ves que va bien, la enlazas en tu aplicaciòn y la pruebas a fondo.

[jmartial]

Buenas tardes,

Os pongo una nueva versión compatible con usar wbrowse con oTree.

Comentar que está implementado el cambiar el color del texto o fondo de una sóla columna asignándole un color o un codeblock,
lo cual nos permite por ejemplo, que la columna importe se pinte en rojo si es negativo o verde si es positivo.

Nuevo método getValue( nCol ), nos devuelve que valor tiene una columna de la fila actual.

Y por último, la posibilidad de que el color de la línea selectora, del texto y del fondo, sea el que queramos cuando no tiene el foco:

DATA nClrForeLostFocus AS NUMERIC INIT CLR_WHITE // Color del texto del selector, cuando pierde el foco
DATA nClrBackLostFocus AS NUMERIC INIT CLR_HGRAY // Color del fondo del selector, cuando pierde el foco

Descargar nueva versión:

https://dl.dropboxusercontent.com/u/8604183/FWHforos/wbrowse_FWH_Sept2014.prg