Items de TListBox en Negrita
RemitenteX:
Hola, qué tal.
DestinatarioY:
Bien, gracias.
No sé cómo hacer que el nombre del Remitente salga en rojo y el del destinatario en azul y que el resto de items aparezca en negro. Gracias.
Hola, qué tal.
DestinatarioY:
Bien, gracias.
No sé cómo hacer que el nombre del Remitente salga en rojo y el del destinatario en azul y que el resto de items aparezca en negro. Gracias.
1 respuesta
Respuesta
-1
Debes usar el evento OnDrawItem.
Desde allí deberás dibujar sobre el canvas directamente cada ítem en el color que quieras.
Desde allí deberás dibujar sobre el canvas directamente cada ítem en el color que quieras.
Ya uso el evento OnDrawItem para poner todo en negrita. Lo que no sé es cómo hacer que sólo unos items determinados se pongan en negrita, o en rojo, o en lo que sea. Los items van aumentando constantemente, y no sé cómo seleccionar un Item determinado para darle color (si es un nombre) o dejarlo en negro (si es el mensaje en sí). Sé que la solución gira en torno a "Items[Index]", pero por más vueltas que le doy y por más que busco desconozco cómo utilizarlo. Siento haberme extendido tanto. Mil gracias.
Ya lo tengo. Lo que buscaba era simplemente:
if (Items[Index] = clienteEs + ': ') then
begin
Canvas.Font.Color := RGB(0, 150, 0);//texto verde
Gracias de todos modos. Un saludo.
if (Items[Index] = clienteEs + ': ') then
begin
Canvas.Font.Color := RGB(0, 150, 0);//texto verde
Gracias de todos modos. Un saludo.