FiveTech Software tech support forums

... oWndChild:End() ) // when xLiderAudit = xNUsuario // cancel ACTIVATE DIALOG princfac CENTERED nowait ON INIT ( princfac:Move( 0, 0 ) ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 )) oWndChild:nWidth := princfac:nWidth + 7 oWndChild:nHeight := princfac:nHeight + ...

... := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel ACTIVATE DIALOG princfac CENTERED nowait ON INIT princfac:Move( 0, 0 ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 )) oWndChild:nWidth := princfac:nWidth + 7 oWndChild:nHeight := princfac:nHeight + ...

... enriquecidos. Necesariamente en el activate del Dialog debo usar ON INIT, de la siguiente forma? ACTIVATE DIALOG oDlg CENTERED ON INIT ( oRich:LoadRtf( cTxt ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 ) ) ; VALID ( cTxt := oRich:SaveAsRTF(), .T. ) Muchas gracias, saludos. Antonio

Tim,

ACTIVATE DIALOG oDlg ON INIT ( oRich:LoadRTF( cRTF ), .T. )

same logic

... in richedit, and than save it to a database field. Later I want to be able to edit again, but I cound wake it work. I get the text with vtext = oRich:SaveAsRTF Than save it repl tekstlengt with HB_CompressBuflen( Len( vtext ) )repl tekst      with HB_Compress( vtext ) ...

... todo el contenido de la DBf y tu Texto enriquecido. De aqui en adelante solo muestra tu texto. DEFINE DIALOG oDlg RESOURCE "Test" oRich = TRichEdit():Redefine( 100, bSETGET( cTxt ), oDlg ) oRich:lHighLight = .T. Esta claro que es el contenido de la DBF. Esta DBF tiene 2 campos: ...

Antonio, con el código que te he puesto y también el compañero, debe funcionar sin problemas

Una vez definido el control RICHEDIT

oRich:LoadRTF( cTxt )
oRich:lHighLight = .T.

Rick
When you load rtf text, use oRich:LoadRTF( cLetter ), instead of SetText, and try

Silvio,

what is SaveAsRTF() returning? Try

? VALTYPE( oRich:SaveAsRTF() )

and let me know.

EMG

William, En tu texto richedit incluye este texto "<data>" y dale el font y atributos que quieras. Y desde tu código haz esto: oRich:LoadRTF( StrTran( oRich:SaveAsRTF(), "<data>", Date() ) ) Para unir el texto RTF de dos controles RichEdit haz esto: oRichEdit1:LoadRTF( ...

William, If your RTF text ends with "text." then you can do: oRich:LoadRTF( StrTran( oRich:SaveAsRTF(), "text.", "text. Hello world" ) ) There are other ways to do it. In order to learn where to insert the text do this: MsgInfo( ...

Hola

Existe alguma forma de acrescentar una linha de texto en uno richedit , mas por codigo e non pelo Teclado ?

Ja tentei oRich:ctext = oRich:ctext +"Exemplo"

isto funciona, pero la linea acrescentada perde la font e sizes inicialmente ajustados.

Gracias

William

... example in SAMPLES with RTF from resources is TESTRICH.PRG but does not use RICHEDIT.CH It compiles and runs OK. If RICHEDIT.CH is included and: oRich = TRichEdit():Redefine( 100, { || "" }, oDlg ) is changed to: REDEFINE RICHEDIT oRich ID 100 OF oDlg the program compiles but aborts ...

Antonio, Creo saber cuando se ocasiona el fallo. Yo hago oRich:preview("Presupuesto") y algunos los puedo exportar perfectamente a PDF, pero si el Rich tiene más de quince líneas AHÍ SE CUELGA el exportar a PDF . De lo anterior, deduzco que ...

To temporarly solve it, simply do:

ACTIVATE DIALOG oDlg CENTERED

oRich:oFont:End()