Linea en TRichEdit

[Sonic]

Hola a todos!

Intento añadir una linea vertical a un TRichEdit para que marque la porción de texto imprimible (igual que la que tiene el Builder C++).

La idea es crear un descendiente del TRichEdit que incluya esta opción y los propiedades necesarias para configurar el color y posición de la linea en cuestión.

Lo primero que se me ocurrió fue que el descendiente del TRichEdit creara una linea (TShape) dinámicamente. La creo con new y le asigno como Parent this. La linea se dibuja correctamente, y puedo manejarla sin problemas, sin embargo el texto del TRichEdit ya no se dibuja!!!

No se si he olvidado algo, pero ya he empezado a pensar en otras soluciones y no se me ocurre ninguna viable.

Por ejemplo se me ocurrió modificar el valor de los píxels del canvas del RichEdit para dibujar la linea. Pero el TRichEdit no dispone de tal propiedad.

También pensé en superponer un TImage en el que copiar el aspecto del TRichEdit tras modificarlo añadiéndole una linea pero creo que eso sería muy lento.

Como última solución tengo dibujar y gestionar la linea externamente, con lo que no necesitaría crear la nueva clase, pero no creo que fuera esto lo ideal.

Si alguién se le ocurre alguna otra idea o puede decirme en qué me equivoqué en la primera de mis opciones, le estaría muy agradecido.

Muchas gracias de antemano!