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
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.
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.
Como escribir lineas en color en tMemo
Re: Como escribir lineas en color en tMemo
Con TMemo no se puede, pero podrías usar un TRichEdit, que sí que te permite eso y mucho más.
Re: Como escribir lineas en color en tMemo
Muchas gracias. voy a probar
Re: Como escribir lineas en color en tMemo
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
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
Re: Como escribir lineas en color en tMemo
Quizás nColor tenga una cadena de texto en vez de un número. Comprueba exactamente qué valor le estás indicando