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.

Como escribir lineas en color en tMemo

Foro público de Xailer en español
lilosoft
Posts: 27
Joined: Mon May 11, 2015 2:54 am

Como escribir lineas en color en tMemo

Postby lilosoft » Wed May 02, 2018 6:40 pm

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
User avatar
jfgimenez
Site Admin
Posts: 5570
Joined: Mon Apr 06, 2015 8:48 pm
Contact:

Re: Como escribir lineas en color en tMemo

Postby jfgimenez » Thu May 03, 2018 10:18 am

Con TMemo no se puede, pero podrías usar un TRichEdit, que sí que te permite eso y mucho más.
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
lilosoft
Posts: 27
Joined: Mon May 11, 2015 2:54 am

Re: Como escribir lineas en color en tMemo

Postby lilosoft » Sat May 05, 2018 5:03 am

Muchas gracias. voy a probar
lilosoft
Posts: 27
Joined: Mon May 11, 2015 2:54 am

Re: Como escribir lineas en color en tMemo

Postby lilosoft » Thu May 10, 2018 8:23 pm

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
User avatar
jfgimenez
Site Admin
Posts: 5570
Joined: Mon Apr 06, 2015 8:48 pm
Contact:

Re: Como escribir lineas en color en tMemo

Postby jfgimenez » Thu May 10, 2018 9:55 pm

Quizás nColor tenga una cadena de texto en vez de un número. Comprueba exactamente qué valor le estás indicando
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info

Return to “Spanish”