Please look this topic and tell me
viewtopic.php?f=3&t=34042&p=201596&hilit=PRINT+RTF&sid=5c18e0935f895ae1021775503df96ca7#p201607
FUNCTION setup3
// Text Editor for disclosures
// Updated: 7/30/2015 5:55:48 PM
LOCAL oEndText, oDlg, nRcrd, oRich
PRIVATE cText := " ", cTitle := " ", cRtf := " "
// Open the text database
oEndText := tEndText():New( )
oEndText:gotop( )
// Load the text
cText := oEndText:tagtext
// Create the dialog
DEFINE DIALOG oDlg RESOURCE "SETUP3" BRUSH oBrush transparent OF oWnd
oDlg:nHelpID := 6
REDEFINE BUTTONBAR oBarS3 ID 100 SIZE 60,60 OF oDlg 2015
oBarS3:bClrGrad := aPubGrad
DEFINE BUTTON oWBtn3 OF oBarS3 RESOURCE "HRSAVE" ;
ACTION ( oEndText:tagtext := oRich:SaveasRTF( cText ), oEndText:save() )
DEFINE BUTTON oWBtn5 OF oBarS3 RESOURCE "HREXIT" ;
ACTION oDlg:end()
// Create edit control
REDEFINE RICHEDIT5 oRich VAR cText ID 2155 OF oDlg ;
MESSAGE "Edit the text, and press OK to save your changes" BARBUTTON
ACTIVATE DIALOG oDlg CENTERED
// Close the file
oEndText:close()
RETURN NIL
IF cPRNTYP = "I"
oEndText:goto( 3 )
nRow += nRsp
FOR lx := 1 TO MLCount( oEndText:tagtext, 60,, .T. )
WOPAGEHEAD( oPrn, aHead )
oPrn:SayText( nRow, 10 * nCsp, MemoLine( oEndText:tagtext, 60, lx,, .T. ),,, oFnorm )
nRow += nRsp
NEXT
ENDIF
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 61 guests