Formatos word en richedit

[sac]

Perdón por la demora en entrar nuevamente al foro.
Efectivamente como todos dijeron el RichEdit reproduce los formatos de las fuentes en Word.

Les pregunto (si me dicen que abra un nuevo hilo lo hago) cómo hago para que un texto seleccionado en un memo aparezca en la primera linea visible de ese memo. No se si me explico.

Acá les dejo el código como lo tengo hasta ahora donde "cita" es un TEdit.

 p:= Pos(Cita.text, Memo1.Text);
    if p > 0 then begin
        Memo1.SelStart:= p - 1;
        Memo1.SelLength:= Length(Cita.Text);

Con este código viasualizo el memo y en la última línea visible de ese memo lo selecionado. Yo quisiera que esa lección quede en la primera línea que se ve del memo.

Gracias a todos.

[Casimiro Noteví]

Empezado por sac

Efectivamente como todos dijeron el RichEdit reproduce los formatos de las fuentes en Word.

No, no hemos dicho eso porque no es así. Hemos dicho el formato RTF. Ya que el formato de word es el DOC y ese no se puede reproducir en un memo.

Para tu otra pregunta es mejor que crees un nuevo hilo, no solamente por nuestras normas, sino también porque aquí nadie se va a enterar que has preguntado eso.

[ecfisa]

cómo hago para que un texto seleccionado en un memo aparezca en la primera linea visible de ese memo.

Hola sac.

Código Delphi [-]
  Memo1.Lines.Insert(0, Copy(Memo1.Text, Pos(Cita.text, Memo1.Text), Length(Cita.Text)));

Saludos.

[sac]

Ecfisa gracias era lo que necesitaba había probado y no funcionaba lo mio.
Otra vez gracias.

[sac]

Ops perdón ecfisa pero no es lo que esperaba. Aplicando tu respuesta en realidad lo que hace es una copia del texto seleccionado en la primera línea.

Lo explico con un ejemplo:
Tengo un archivo de texto con unas 30 lineas.
Lo que deseo encontrar se ubica en la linea 18.
Supongamos que el Memo tiene un tamaño donde caben 10 líneas.

Lo que yo necesitaba era que al hallar la selección, la posicion del cursor, lo seleccionado, aparezca en la linea 1 que se ve en el memo y sea lo primero que se lee pero sin cortar, sin copiar etc.

[ecfisa]

Empezado por sac

Ops perdón ecfisa pero no es lo que esperaba. Aplicando tu respuesta en realidad lo que hace es una copia del texto seleccionado en la primera línea.

Lo explico con un ejemplo:
Tengo un archivo de texto con unas 30 lineas.
Lo que deseo encontrar se ubica en la linea 18.
Supongamos que el Memo tiene un tamaño donde caben 10 líneas.

Lo que yo necesitaba era que al hallar la selección, la posicion del cursor, lo seleccionado, aparezca en la linea 1 que se ve en el memo y sea lo primero que se lee pero sin cortar, sin copiar etc.

Hola sac.

No estoy seguro de entenderte, a ver si lo que buscas es esto...

Código Delphi [-]
  if Pos(Cita.Text, Memo1.Text) <> 0 then
    Memo1.Text:= Cita.Text + Memo1.Text;

Saludos.