EASYREPORT and RTF

[Otto]

RTF inside EASYREPORT would be so great.

I have the need to print RTF text inside my EasyReports.
It seems that RTF is not supported.

To all class experts

Where should I try to extend the class. Is this the right way.

METHOD PrintItem( nArea, nItemID, cValue, nAddToTop, lMemo, nEntry ) CLASS VRD

Should I try with


IF oItem:cType = "TEXT" .AND. oItem:nShow = 1
cText := ::EvalExpression( oItem:cText )

ELSEIF oItem:cType = "IMAGE" .AND. oItem:nShow = 1

//NEW
ELSEIF oItem:cType = "RTF" .AND. oItem:nShow = 1

Endif


Maybe someone has done it and can share his code.

Best regards,
Otto

[cnavarro]

Otto
I do not find EvalExpression in my version

[Otto]

Dear Cristobal,

RTF as far as I see is not integrated in EasyReport.
But as I need to print some RTF text on a report along the normal text labels I thought of enhancing.

Maybe we can extend the
METHOD PrintItem in CLASS VRD of vrd.prg.

I saw a RTF example from you.
In this example you check in
Static Function SayMemo( lBox )

if Left( cText, 5 ) == "{\rtf"
lRTF := .T.
endif

if !lRTF
…
Endif

If a text is a RTF text.

I thought we could check in
Vrf.prg METHOD PrintItem() of CLASS VRD


IF oItem:cType = "TEXT" .AND. oItem:nShow = 1

cText := ::EvalExpression( oItem:cText )
IF .NOT. EMPTY( oItem:cSource ) .AND. ::lNoExpr = .F.
cText := ::EvalSourceCode( oItem:cSource )
ENDIF

if Left( cText, 5 ) == "{\rtf"
lRTF := .T.
endif

if !lRTF
************************************
Here we could handle the RTF printing.
************************************

Endif

But how can I print a RTF file.
Is Reinaldos suggestion on the forums the way to go?

viewtopic.php?f=3&t=25805&p=141190&hilit=RePrintBox#p141190


Thank you in advance
Otto

[cnavarro]

Dear Otto
Yes, this is the function for print RTF text
Or REPrintBox5 for new version of RICHEDIT control
But, what are the EvalExpression and EvalSourceCode methods ?

[Otto]

Dear Cristobal,
I send you the copy I use.
Here I have a
METHOD EvalSourceCode( cSource )
METHOD EvalExpression( cText )
Best regards,
Otto