Cita:
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)); richmemo1.Lines.Text:=memo2.Lines.Text;
f.Size:=16; f.Color:=clGreen; f.Style:=[fsBold]; f.Name:='Arial';
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.