Favor Consulta Sobre RICHEDIT

[remtec]

Amigos

Muy buen dia, espero que todos esten muy bien.

Necesito me puedan orientar por favor.

Como puedo llamar al la funcion de Editor RichEdit, para poder editar una variable, que tiene el contenido de un campo memo, quiero usar Richedit, ya que puedo cambiar los tamaños de letras??

Ademas que programa debiera agregar a mi sistema, para poder usar Richedit ?

Agradeciendo su ayuda, les saluda muy atte.

Antonio.

[cnavarro]

Version de Fw que utilizas?

[remtec]

Hola C. Navarro.

Muchas gracias por responder.

Uso Fwh 17.09, Harbour 32 y Bcc73.

Muchos saludos.

Antonio.

[cnavarro]

Y no tienes en samples el ejemplo TESTRICH.PRG ?

[remtec]

C. Navarro

He revisado TESTRICH.PRG, pero no logro entender como se llama a Richedit, ya que tiene un programa menu TESTRICH.PRG.

Pense que podia ser mas simple llamarlo a Richedit desde un Prg cualquiera, donde se le pasa una variable con el contenido de un campo Memo.

Muchos saludos.

Antonio.

[cnavarro]

C. Navarro

He revisado TESTRICH.PRG, pero no logro entender como se llama a Richedit, ya que tiene un programa menu TESTRICH.PRG.

Pense que podia ser mas simple llamarlo a Richedit desde un Prg cualquiera, donde se le pasa una variable con el contenido de un campo Memo.

Muchos saludos.

Antonio.

Y asi es, su utilizacion es como cualquier otro control
El comando es

Code: Select all

#command @ <nTop>, <nLeft> RICHEDIT [ <oRTF> VAR ] <uVar> ;
             [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ FONT <oFont> ] ;
             [ <pixel: PIXEL> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <lHScroll: HSCROLL> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ WHEN <uWhen> ] ;
             [ VALID <uValid> ] ;
             [ ON CHANGE <uChange> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <lHighlight: HIGHLIGHT> ] ;
             [ <file: FILE, FILENAME> <cFileName> ] ;
             [ RTFSIZE <nRTFSize> ] ;
             [ <lNoURL: NO URL> ] ;
             [ <lNoScroll: NO SCROLL> ] ;
             [ <lNoBorder: NOBORDER, NO BORDER> ] ;

 

mira richedit.ch

[karinha]

http://forums.fivetechsupport.com/viewt ... 27&start=0