PDA

Ver la Versión Completa : Texto con Colores


La__X
05-02-2006, 02:12:09
Holas,
Alguien sabe si hay alguna forma con algun componente de delphi(Tmemo o algo), en que pueda darle formato a una sola palabra del texto?.
Es decir si tengo por ejemplo: "este texto", lo pueda visualizar asi:
"Este texto"
:confused:
Se que la pregunta no esta muy recortada pero no se como especificarla.
De ante mano... gracias a cualquier ayudaaaa
Ahhh he tratado con el TMemo.. pero le cambia a todo el texto, solo quiero q determinadas palabras cambien de color.

dec
05-02-2006, 02:18:47
Hola,


Alguien sabe si hay alguna forma con algun componente de delphi(Tmemo o algo), en que pueda darle formato a una sola palabra del texto?.


¿Se trata solamente de una palabra? Puede hacerse con un "TRichEdit", localizando dicha palabra y dándole el estilo que precises. Si se trata de más de una palabra, por ejemplo, un conjunto de palabras clave, tal vez te interese más tirar por otro tipo de componentes, tal que los SynEdit (http://synedit.sourceforge.net/), que cuentan con un soporte estupendo para diversos lenguajes de programación (para resaltar su sintaxis) y permite además añadir tu propio "lenguaje" de programación, que en este caso bastaría con que contuviera una serie de "palabras clave".

Echa un vistazo en los "RichEdit" que puedas encontrar en Torry's (http://www.torry.net/), es posible que encuentres algún componente que ni pintado para lo que necesitas.

La__X
05-02-2006, 02:53:08
¿Se trata solamente de una palabra? Puede hacerse con un "TRichEdit"

:rolleyes: Primero estoy probando el TRichEdit, le dare un vistazo a los links q has posteado... GRaX:D
Una preguntita... pero como hago finalmente para darle el color, he encontrado unos metodos muy utiles, p.j
RichEdit1.Paragraph.Numbering := nsNone;
RichEdit1.Paragraph.Alignment := taCenter;
RichEdit1.Lines.Add('Titulo');
Como haria para a la linea q estoy añadiendo darle color azul por ejemplo?:p
Tanx

dec
05-02-2006, 04:04:41
Hola,


procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1 do
begin
SelStart := 0;
SelAttributes.Color := clBlue;
Lines.Add('Línea de texto azul');
SelAttributes.Color := clBlack;
Lines.Add('Línea de texto negro');
end;
end;

La__X
06-02-2006, 20:44:53
Genial q gran Ayuda
grax Dec :D