texto con formato en richedit

[voldemmor]

muchas gracias dec.
Con esta peque explicacion voy a probar y monear el codigo a ver como me va.

gracias y os comentare los resultados

o seguire pidiendo ayuda si no me va tan bien

[voldemmor]

hola.

ya he probado con esa linea de codigo.

Código Delphi [-]
 
RichEdit.SelAttribute.Font.Color := clGreen;

pero la verdad no resulta tan bien la cosa: ise algo asi

Código Delphi [-]
RichEdit.SelAttribute.Font.Color := clGreen;
RichEdit.SelAttribute.Font.size := 16;
RichEdit.lines.add(`linea de texto 1`);
 
RichEdit.SelAttribute.Font.Color := clblack;
RichEdit.SelAttribute.Font.size := 20;
RichEdit.lines.add(`linea de texto 2`);

pero sigue con un solo formato y en negritas.

y cuando pruebo cambiar de formato no se cambia.
he tenido que retitar el componente y cambiarlo por otro nuevo(borrar de la aplicacion y poner otro).

gracias de todos modos

[ezear84]

Se que es un post antiguo, pero necesitaba hacer lo mismo y en el buscador esta pagina sale en primer lugar, y como no ha sido respuesta la cuestión aprovecho para escribir como se hace lo pedido de modo que pueda ser de utilidad a quienes lo busquen.

Para añadir lineas con formato no se puede utilizar

Código Delphi [-]
RichEdit.lines.add(`linea de texto 1`);

ya que añade texto plano.
Se debe hacer del siguiente modo (y se puede crear un procedimiento para hacerlo mas sencillo):

Código Delphi [-]
{poner un richEdit1 en el formulario y un boton en el evento onclick agregar:}
 with richEdit1 do
 begin
   //si se quiere añadir la linea a lo ultimo poner:
   SelStart := GetTextLen;
   //de lo contratio usar: SelStart := 0;
 
   //añadir una linea
   SelText := 'Primera linea' + #13#10;
 
   //añadir otra linea
   SelText := 'texto con formato en richedit' + #13#10;
 
   //comenzar a cambiar el texto
   SelAttributes.Size := 13;
 
   //negrita + rojo
   SelAttributes.Style := [fsBold];
   SelAttributes.Color := clRed;
   SelText := 'Buena';
 
   //cambiamos color para el proximo texto
   SelAttributes.Color := clWindowText;
   SelText := ' Programación ';
 
   //italicas + azul
   SelAttributes.Style := [fsItalic];
   SelAttributes.Color := clBlue;
   SelText := 'en Delphi';
 
   //nueva linea
   SelText := #13#10;
 
   //texto normal otra vez
   SelAttributes.Size := 8;
   SelAttributes.Color := clGreen;
   SelText := 'Ahora podes hacer un procedimiento...';
 end;