HMGforum.com

Code: Select all

   DEFINE WINDOW Helpfile ;
      ON INIT DoInit2( ThisWindow.Name, lImage, cMemo ) ; 

      DEFINE RICHEDITBOX Edit_1
         VALUE ""
         FONTNAME "Arial"
         FONTSIZE 12
         READONLY .T.

Code: Select all

STATIC PROCEDURE DoInit2( cForm, lImage, cMemo )
LOCAL iMax := LEN( aTip )

*   IF EMPTY( iMax )
*     SetProperty( cForm, "Edit_1", "FONTSIZE", 48 )
      Helpfile.Edit_1.FontSize := 48
*   ENDIF
   SetProperty( cForm, "Edit_1", "VALUE", cMemo )
RETURN

Code: Select all

STATIC FUNCTION CoverPage( oRTF )
*********************************************************************
* Description:  Generate a cover page.
* Arguments:    
* Return:       
*               
*--------------------------------------------------------------------
* Date       Developer   Comments
* 01/28/97   TRM         Creation
*
*********************************************************************
LOCAL i
LOCAL aTitle[3]
LOCAL aBullet[5]

//	First, load some text...

aTitle[1] := "RichText() Sample Report Summary"

aTitle[2] := "NOTE: This report includes an automated table of contents. " + ;
				"If you are using MS-Word, you can create the table of contents " + ;
				"via the Insert\Indexes and Tables... option. Be sure to tell " + ;
				'MS-Word to generate the table from "table entries", rather ' + ;
				'than from "styles".'

aBullet[1] := "This report is a demonstration of some of the capabilities " + ;
			"of the RichText() class for Clipper & Fivewin, Version 1.0, written " + ;
			"by Tom Marchione.  This is the free version, which contains a " + ;
			"basic feature set (please review the README file for certain " + ;
			"minor usage restrictions). If you have any comments or questions, " + ;
			"feel free to send an E-Mail to tmarchione@compuserve.com."

aBullet[2] := "RichText() lets you generate reports to RTF files, like this " + ;
			"one.  RTF files can be read by most word processors, so this " + ;
			"is a way to move fully-formatted information into word processor " + ;
			"format, without lots of extra spaces and carriage returns.  " + ;
			"The class can form the basis of a true database publishing system."

aBullet[3] := "RichText() is not meant to be a front-line report engine in " + ;
			"its current form, in the sense that database programmers " + ;
			"expect report generators to have certain standard features.  " + ;
			"Nevertheless, it can be very useful for meeting specialized, " + ;
			"custom reporting requirements, particularly if you need to edit or " + ;
			"manipulate the output."

aBullet[4] := "In its current form, the system is fairly quirky.  " + ;
			"The good news is that, generally, you can get exactly what you " + ;
			"want in one or two code iterations.  I plan to address " + ;
			"various usability issues in future versions."

aBullet[5] := "The pages that follow contain some examples of the types of " + ;
			"things that can be done with RichText().  Remember, RichText() " + ;
			"is designed to link to a word processor, so its capabilities " + ;
			"focus on standard word processing features, rather than the " + ;
			"kinds of things that are important in a standard report " + ;
			"generator.  Hope you find it useful!"


// Write the title lines

NEW PARAGRAPH oRTF TEXT aTitle[1] ;
	FONTNUMBER 1 ;
	FONTSIZE 18 ;
	APPEARANCE BOLD_ON ;
	ALIGN CENTER ;
	SETDEFAULT ;
	TOCLEVEL 1  // 10/24/97 -- mark this for the Table of Contents.

NEW PARAGRAPH oRTF TEXT ""

NEW PARAGRAPH oRTF TEXT aTitle[2] ;
	FONTSIZE 10 ;
	APPEARANCE BOLD_OFF + ITALIC_ON ;
	ALIGN LEFT ;
	INDENT -.5 ;
	RIGHTINDENT -.5

NEW PARAGRAPH oRTF TEXT "" ;
	APPEARANCE BOLD_OFF + ITALIC_OFF ;
	SETDEFAULT


// Write the bullet items

FOR i := 1 TO LEN( aBullet )

	NEW PARAGRAPH oRTF TEXT aBullet[i] ;
		FONTNUMBER 2 ;
		FONTSIZE 11 ;
		ALIGN LEFT ;
		INDENT .25 ;
		FIRSTINDENT -.25 ;
		BULLETED ;
		SPACEBEFORE .4 ;
		SETDEFAULT

NEXT

NEW PARAGRAPH oRTF TEXT "" SETDEFAULT

RETURN NIL
************************  END OF CoverPage()  ***********************

Code: Select all

   SetProperty( cForm, "Edit_1", "VALUE", cMemo )

   IF EMPTY( iMax )
      DoMethod( cForm, "Edit_1", "SelectAll" )
      SetProperty( cForm, "Edit_1", "FONTSIZE", 36 )
      DoMethod( cForm, "Edit_1", "UnSelectAll")
   ENDIF