In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

líneas de un arraybrowse en negrita

Foro de Xailer profesional en español
Responder
Fredy
Mensajes: 199
Registrado: Mié Mar 29, 2006 1:28 am

líneas de un arraybrowse en negrita

Mensaje por Fredy »


Hola,
Tengo un arraybrowse en el que hay una serie de lí­neas que actúan como tí­tulos y va toda la lí­nea en negrita.
Para ello tengo en el evento ArrayBrowse1DrawRow algo así­
oSender:oFont:lBold := ::oArrayBrowse1:aArrayData[::oArrayBrowse1:nArrayAt,6]
(el elemento 6 del array es .t. o .f. dependiendo que se tenga que poner o no la lí­nea en negrita)
Funciona, pero como el DrawRow se lanza antes de pintar la lí­nea, si estoy encima de un titular (en negrita), el lBold se queda activo para todos los controles que se pintan a partir de ese momento. Según voy pasando el ratón por el resto de controles, estos se ponen en negrita o no dependiendo de que me encuentre en el browse en una lí­nea de tí­tulo.
Además, las columnas de todos los browses que tenga se cambian permanentemente a negrita.
El ArrayBrowse tiene lParentFont a .f.
¿Hay algún evento "despues" de pintar la lí­nea para decirle que lbold:=.f.?
¿al tener lParenFont a .f. por qué me cambia los atributos de la fuente principal del fomulario?
Un saludico,
Fredy
--

Attached files
Francisco Sanchez
Mensajes: 532
Registrado: Mié Feb 09, 2005 6:20 pm

líneas de un arraybrowse en negrita

Mensaje por Francisco Sanchez »

prueba con el ondrawcell.
Un saludo
Fredy
Mensajes: 199
Registrado: Mié Mar 29, 2006 1:28 am

líneas de un arraybrowse en negrita

Mensaje por Fredy »

Hola,
Lo que he hecho ha sido poner ofont:lbold := .f. en el OnDrawCell de la última
columna, pero aún así­ los headers me siguen saliendo en negrita.
Me he fijado que lPatentfont := .f. sólo funciona cuando el tipo de letra
seleccionado para el browse es distindo del tipo de letra asignado en el
formulario. Es decir, funciona siempre que la letra no sea ms sans serif 8.
Un saludico,
Fredy
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

líneas de un arraybrowse en negrita

Mensaje por jfgimenez »

Fredy,
parece que el problema es que se está destruyendo la fuente del formulario,
y entonces se usa la fuente "System". Y todos aquellos controles con
lParentFont = .T. están saliendo con esa misma fuente.
Si estás poniendo lParentFont a .F. desde el IDE, es muy posible que al no
cambiar la fuente el mismo IDE lo esté poniendo de nuevo a .T.. Lo mejor es
que crees la fuente negrita en el OnInitialize o en algún otro sitio
similar, asignándola a una DATA, y la asignes cuando lo necesites. Por
supuesto, al destruir el formulario deberás también destruir la fuente. De
esta forma, al no ser exactamente igual, cuando se la asignes al browse, la
propiedad lParentFont cambiará a .F. automáticamente.
En cualquier caso, si te lias, envíame el formulario y lo reviso.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Fredy
Mensajes: 199
Registrado: Mié Mar 29, 2006 1:28 am

líneas de un arraybrowse en negrita

Mensaje por Fredy »

Fenomenal!
Va perfecto
Gracias
Un saludico,
Fredy
Responder