![]() |
Utilizar DBRichText en un DBctrlGrid.
Buenos días,
Estoy tratando de usar un DBRichText en un DBctrlGrid. Para ello, he hecho descender un componente propio heredando de un TCustomRichEdit. Mi problema es que cuando el DBctrlGrid me replica mi DBRichText, soy incapaz de conseguir que me muestre texto enriquecido en los DBRichtext sobre los que no tengo el "foco". Cuando digo "foco" me refiero a que el DBctrlGrid esté sobre un registro en concreto. No sé si me explico. Texto plano sí que lo he logrado interceptado el WMPaint, pero mi problema es que necesito texto enriquecido. Para mostrar texto plano la solución que he encontrado es usando los mensajes WM_Settext, WM_EraseBKGND y el propio WM_Paint. Estos mensajes utilizan el handle de un TPaintControl cuyo propietario es el propio componente tipo DBRichtext que estoy creando:
Hasta aquí bien, pero como ya dije lo que yo quiero es mostrar texto con formato. Al principio lo que probé es interpretar yo mismo el formato, y tratar de formatear el texto que se pinta en mi componente mediante el mensaje EM_SetCharFormat. Algo de este estilo (en este caso, sería solo para el color):
Pero no funciona bien (únicamente serviría para colorear todo el texto), y además es muy tedioso de hacer. Esa solución es muy mala. Y además, como ya dije, no hace lo que necesito. Luego traté mediante el mensaje EM_STREAMIN, pero tampoco lo logro. O se tira el texto contra sí mismo (replicándose infinitamente), o me lanza una excepción por tratar de acceder a un objeto que no existe. Os pongo algunos ejemplos de lo que he intentado, pero tampoco creo que sea el camino correcto:
después de casi darme por vencido, me gustaría preguntar: 1º- ¿Hay algún componente, aunque sea de terceros, que haga esto por mi? Si es así, no me comeré más la cabeza. Estoy tratando con los LMD, pero tampoco parecen dar resultados. Cada vez me gustan menos esos componentes, pero eso otra historia. 2º- ¿Se os ocurre como podría lograrlo con mi propio componente? Yo creo que lo que he ido probando no me lleva a ningún lado, pero a lo mejor alguno ve la forma de arreglar ese código para que haga lo que yo quiero. O a lo mejor existe un camino mucho más sencillo para hacerlo. ¿A alguien se le ocurre algo? Muchas gracias. |
Finalmente logré solucionarlo :)
Saludos. Perdón, me había dejado la función RicheditToCanvas:
|
La franja horaria es GMT +2. Ahora son las 01:17:17. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi