Lazarus y Texto enriquecido (o formateado)

wenupix · #1 26-08-2010

Hola a todos:

Estoy trabajando en un proyecto personal. En la aplicación quiero usar texto enriquecido.

El problema es que al momento de empezar, me encontré con la sorpresa que Lazarus no posee un RichText como en Delphi.

Pero buscando encontré un LCL llamado RichMemo.

Ya he logrado cargar un archivo RTF al control a través de un Stream y funciona (muestra el texto con formato, incluso caracteres japoneses).
Lo que no puedo hacer es agregar o aplicar un texto con formato.

La función para agregar o aplicar un formato a un texto es la siguiente:

Código Delphi [-]procedure SetRangeParams(TextStart, TextLength: Integer;  ModifyMask: TTextModifyMask; const FontName: String; FontSize: Integer;  FontColor: TColor; AddFontStyle, RemoveFontStyle: TFontStyles );

Más info en: wiki.lazarus.freepascal.org/RichMemo

Existe muy poca documentación del control e info en la red, así que necesito que alguien más experimentado en Lazarus/FreePascal me ayude con este control.

Pero también estaba pensando en una alternativa, como HTML.
El problema es que no conozco un control que me permita "renderizar" código HTML. El único que me llama la atención es el control "IpHtmlPanel", pero no sé cómo usarlo.

Disculpen por la extensión del hilo, pero estoy un poco frustrado ya que tenía tantas esperanzas en desarrollar una aplicación estable y 100% funcional en Lazarus/FreePascal.

Espero su comprensión y ayuda.

Saludos.

Casimiro Notevi · #2 26-08-2010

¿Has visto la pestaña SynEdit?, creo que ahí encontrarás lo que buscas.

Aquí tienes un ejemplo, usando un SynMemo y un SynHtmlSyn:

wenupix · #3 26-08-2010

Cita:

Empezado por Casimiro Notevi

¿Has visto la pestaña SynEdit?, creo que ahí encontrarás lo que buscas.

Aquí tienes un ejemplo, usando un SynMemo y un SynHtmlSyn:

Gracias por tu respuesta, pero no es lo que quiero.
Esos controles crean o muestran códigos fuentes.

Lo que yo quiero es un control que visualize un documento HTML.
Que actúe de igual forma como al cargar un documento RTF, pasando el contenido a través de un Stream.
La imagen está en: flic.kr/p/8vtme5
(el editor de mensajes no me deja adjuntar imagen al mensaje. No estoy permitido, dice).

O que me ayuden con esta función del control RichMemo:

Código Delphi [-]procedure SetRangeParams(TextStart, TextLength: Integer;
   ModifyMask: TTextModifyMask; const FontName: String; 
   FontSize: Integer; FontColor: TColor; 
   AddFontStyle, RemoveFontStyle: TFontStyles);

Porque al usar esta función, lo que hace es aplicar sólo Negrita en el texto. (funciona sólo el parámetro AddFontStyle).

Saludos.

Casimiro Notevi · #4 26-08-2010

Creo que lo que necesitas es el TSynEdit

Robert01 · #5 26-08-2010

Hola

Hay un control llamado RichMemo, tal vez sea lo que necesitas.

Saludos

Discúilpame, no vi que ya habías probado con el RichMemo

[rretamar] · #6 26-08-2010

¿ Que es lo que hace la aplicación ? (además de mostrar texto enriquecido)

wenupix · #7 27-08-2010

Cita:

Empezado por rretamar

¿ Que es lo que hace la aplicación ? (además de mostrar texto enriquecido)

Hola:
Bueno, la aplicación es un diccionario.
La entrada (palabra y definición) será mostrada en un RichMemo (u otro control RTF) o un visor HTML porque es la única forma de mostrar un texto con formato, como el siguiente ejemplo:

Palabra
1. sust Definición de la palabra. Véase Otra Palabra.

La entrada se encuentra en una Base de datos SQLite como "{\rtf1\ansi\ansicpg1252\deff0\..." si es RTF o "<html><body><h1>..." si es HTML.
La idea es pasar el texto en un Stream para que sea "renderizado" en el control.

Ahora estoy probando RichMemo pero no hay mucha documentación disponible y no sé cómo usar las funciones correctamente. También estoy pensando usar otro control RTF o HTML (como GeckoPort, pero necesita las librerias XULRunner, haciendo que la aplicación sea más grande y pesada).

Me explico bien?

Saludos.

Casimiro Notevi · #8 27-08-2010

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

Cita:

text with various fonts and colors (font styles are concentrated in TRVStyle component and can be edited at run time or at design time by special property editor),

hypertext,

pictures (bitmaps, icons, metafiles),

pictures from Image Lists (they also can be hypertext links),

any Delphi components (and they will work as usual).

background bitmap (it can be tiled or stretched, scrolled or not). You can hide or show vertical scrollbar, and you have full control over vertical scrolling.

printing (with new TRVPrint component) (limitation: inserted components are not printed in this version)

saving to text file or html file (limitation: images are saved as windows bitmaps so this html file can be viewed only in browsers wich support this format (MS IE, for example); but you can override virtual method for picture saving)

ability to get word right- or double-clicked

ability to remove some lines

ability to add new lines without reformatting of whole document (IRC-style autoscroll).

wenupix · #9 29-08-2010

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)); // 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.

Casimiro Notevi · #10 29-08-2010

Supongo que habrás visto esto y esto, por si te sirve de más ayuda.

wenupix · #11 29-08-2010

Cita:

Empezado por Casimiro Notevi

Supongo que habrás visto esto y esto, por si te sirve de más ayuda.

Si, pero hay propiedades que no son aplicables a RichMemo en Lazarus.
Bueno, igual sirve como para tener una idea.

Ahora estoy avanzando con el control RichMemo.

Gracias por su ayuda y atención.

Saludos!.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Como grabar un rtf con el texto enriquecido con DBRichEdit	Martin	Varios	0	30-07-2010 15:15:08
richedit formateado	johurgi	Varios	6	02-04-2008 19:09:27
Edit Formateado !!!	vpepen	Varios	2	02-11-2005 12:58:07
Indy Telnet - Texto formateado	SMTZ	Varios	0	01-12-2004 17:57:49
Grabar como texto enriquecido!!	Salomon	Varios	0	04-09-2003 11:55:07