Lazarus y Texto enriquecido (o formateado)

[wenupix]

Empezado por Casimiro Notevi

Mira si te sirve este, es freeware e incluye el código fuente.

Gracias, Casimiro. Es una buena alternativa.

Pero... bueno, no me di por vencido: buscando y buscando, encontré la forma de aplicar formato a un texto en un control RichMemo.

Primero, tengo que crear una variable de tipo FontParams.
El resto es sólo aplicar.

Código Delphi [-]
var
  f: TFontParams;
...
  tam := length(utf8toAnsi(memo2.Text)); // prueba: obtener logitud (caracteres utf-8)
  richmemo1.Lines.Text:=memo2.Lines.Text;
  f.Size:=16; // tamaño fuente
  f.Color:=clGreen; // color fuente
  f.Style:=[fsBold]; // estilo de fuente
  f.Name:='Arial'; // tipografía fuente
  { SetTextAttributes(
    inicio de texto seleccionado,
    longitud de texto seleccionado,
    variable de tipo FontParams); }
    richmemo1.SetTextAttributes(richmemo1.SelStart, tam, f );
  
  contenido := TStringStream.Create('');
  try
    richmemo1.SaveRichText(contenido);
    memo1.Lines.Text:=contenido.DataString;
  finally
    contenido.Free;
  end;

Uff!, No ha sido fácil.
Sólo espero terminar mi proyecto personal y compartirlo. Estoy ansioso.

Saludos.