Como insertar caracteres de colores en RichEdit

[pmcastilla]

Hola dec, gracias por tu ayuda!! Te muestro parte del codigo que estoy usando para insertar un caracter especial.

Código Delphi [-]
         if (Form1.Frame21.RichEdit1.GetTextLen <= 9) then
          begin
            Aux:= Form1.Frame21.RichEdit1.GetTextLen + 1;
            If (Aux<=10) then
              begin
                If (calendario_control(columnas_reg,Form1.RadioGroup1.ItemIndex, Rich_position,Input)) then
                  begin
                    If(Aux=10) then
                      begin
                        columnas_reg[Rich_position,Aux]:=Input; // columnas_ reg es un array[1..24] of array[1..10] of Char;
                      end
                    else
                        columnas_reg[Rich_position,Aux]:=Input;
                    Form1.Frame21.RichEdit1.Text:= Form1.Frame21.RichEdit1.Text + Input;
                    datos_variable(columnas_reg); // recorre el array y segun si es caracter especial o no lo colorea de rojo.
                    Form1.Frame21.RichEdit1.SelStart:= Aux+1;
                    Form1.Frame21.RichEdit1.SelLength:=1;
                    Form1.Frame21.RichEdit1.SelAttributes.Color:=clWindowText;
                    If (Aux=10) then
                      begin
                        Form1.Frame21.RichEdit3.SetFocus;
                        exit;
                      end;
                    Form1.Frame21.RichEdit1.SetFocus;
                  end;
              end;
          end;

creo que es medio rebuscado, por eso queria saber bien si existia alguna forma mas sencilla.

[ezear84]

Revivo el post para añadir un metodo sencillo de insertar caracteres con formato:

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;

[rrf]

Gracias por tu código de ejemplo, ezear84.

Claro y eficaz.

Saludos.