Como escribir lineas en color en tMemo

[lilosoft]

Buenas tardes junto con saludar y ojala me puedan ayudar, necesito escribir en un tMemo diferentes lineas con distintos colores.
Estoy realizando un Chat interno, el cual cada uno de los usuarios tendrá asignado un color.
Pero no se como asignar el color a cada uno de los mensajes.

Por favor una ayuda, ojala un ejemplo.
De antemano, muchas gracias
LiloSoft

[jfgimenez]

Con TMemo no se puede, pero podrías usar un TRichEdit, que sí que te permite eso y mucho más.

[lilosoft]

Muchas gracias. voy a probar

[lilosoft]

Buenas tardes
Seguí el consejo usando TRichEdit y la verdad funciona, pero tengo otro problema y ver si me puedes indicar como solucionarlo.
En la variable nColor asigno un color que lo tengo en una tabla de tipo texto, al ejecutar no asume el valor indicado. Pero si lo indico por código si funciona( :nClrText := 0x2A2AA5 )
Adjunto el código que estoy usando

¿Que hago mal,?
De antemano agradezco vuestra ayuda

METHOD EdChatChar( oSender, nKey, nFlags ) CLASS TForm1
local nColor
if nKey = 13
with object ::oREditChat
nColor := appdata:pColChat // Donde appdata:pColChat corresponde a: 0x2A2AA5
:nClrText := clRed
:SetText( Time() + " "+ DToC(Date()) + " "+SubStr(::oCbUsuChat:cText+" ",8,6)+CRLF,,.t.)
:nClrText := nColor // No funciona y asume el color por defecto
// :nClrText := 0x2A2AA5 // Si Funciona pero necesito asignar el color por una variable
:SetText( ::oEdChat:Value + CRLF,,.t. )
::oEdChat:Value := ""
End with
End If
RETURN nil



LiloSoft

[jfgimenez]

Quizás nColor tenga una cadena de texto en vez de un número. Comprueba exactamente qué valor le estás indicando