Ir al contenido


Foto

TRichEdit, TStringStream: Toma dos...


  • Por favor identifícate para responder
21 respuestas en este tema

#21 Sergio

Sergio

    Advanced Member

  • Moderadores
  • PipPipPip
  • 1.092 mensajes
  • LocationMurcia, España

Escrito 15 mayo 2012 - 02:10

Yo no seguí el otro hilo, así que hare una pregunta tonta: Si no quieres esa fecha y hora que te molesta en el texto ¿porque la añades? Y si la necesitas, ¿porque no la almacenas en otra lista para no enturbiar tu texto formateado?

Si quieres manipular el richedit para ponerle textos al principio, puedes, pero usando un TRichMemo y sus métodos, si lo tratas como una vulgar cadena, se convierte en una vulgar cadena.

Si como supongo quieres mostrar muchos textos enriquecidos uno debajo de otro, podrías usar varios TRichEdit uno bajo el otro en un panel del tipo que veas, "pegarlo" todo dentro de un richedit así a lo bestiajo no te va a dar muchas alegrías.
  • 0

#22 TiammatMX

TiammatMX

    Advanced Member

  • Miembros
  • PipPipPip
  • 1.750 mensajes
  • LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 16 mayo 2012 - 01:47

...Si quieres manipular el richedit para ponerle textos al principio, puedes, pero usando un TRichMemo y sus métodos, si lo tratas como una vulgar cadena, se convierte en una vulgar cadena...

Pues sí, a ésa conclusión llegué junto con mi patrón..., y decidimos dejar el formato del TRichEdit por la paz. Finalmente, lo que le interesa al usuario es el contenido, no el formato.

Intenta así:



delphi
  1. .
  2. .
  3. .
  4.          
  5.             strFormato := TStringStream.Create(slTexto.Text);
  6.             redtResumenEventos.Lines.LoadFromStream(strFormato);
  7.  
  8.             redtResumenEventos.SelText :=  (FormatDateTime('dd-mm-yyyy', FieldValues['EAPC_FECHA_EVENTO'])+
  9.                                   ' '+MinutsToStr(FieldValues['EAPC_HORA_EVENTO'])+
  10.                                   '  ('+Trim(FieldValues['EAPC_LOGIN_USER'])+') - '{+
  11.                                   RTF2Txt(FieldValues['EAPC_EVENTO'])};       
  12.  
  13. .
  14. .
  15. .


Pues sí, también lo probé, sin resultados. O al menos, no los que yo hubiese querido. Gracias por el apoyo, Fenareth, pero a éstas alturas del desarrollo decidimos que "sencillito es más bonito"...  :(
  • 0




IP.Board spam blocked by CleanTalk.