FiveTech Support Forums

   oRich:bGotFocus = { || oRich:SetSel( 0, 0 ) }

    // Create edit control
    REDEFINE RICHEDIT5 oRich VAR cRTF ID 2155 OF oDlg ;
        MESSAGE "Edit the text, and press OK to save your changes"  //UPDATE
        
    oRich:SetText( cText )

    CONTROL         "", 2155, "RichEdit50W", 4100 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL, 10, 40, 500, 350

    // Create edit control
    REDEFINE RICHEDIT5 oRich VAR cRTF ID 2155 OF oDlg ;
        MESSAGE "Edit the text, and press OK to save your changes"  //UPDATE
        
    oRich:SetText( cText )

    CONTROL         "", 2155, "RichEdit50W", 4100 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL, 10, 40, 500, 350

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:gobottom( )
    nRcrd := oEndText:recno( )
    DO WHILE nRcrd < 8
        oEndText:append( )
        oEndText:skip( )
        nRcrd := oEndText:recno( )
    ENDDO
    oEndText:gotop( )

  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

    MENU oWPopS1 POPUP
        
    MENUITEM "Estimate" ACTION ( oEndText:goto(1), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
        oDlg:update() ) MESSAGE "Text to print on estimates"
     
        MENUITEM "Invoices" ACTION ( oEndText:goto(2), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
            oDlg:update() ) MESSAGE "Text to print on invoices"
    
        MENUITEM "Tag lines" ACTION ( oEndText:goto(3), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
            oDlg:update() ) MESSAGE "Ad tag lines to printed on invoices"

        MENUITEM "Counter" ACTION ( oEndText:goto(4), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
            oDlg:update() ) MESSAGE "Text to print on counter sales"

        MENUITEM "Worksheets"   ACTION ( oEndText:goto(5), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
            oDlg:update() ) MESSAGE "Text to print on worksheets"

      MENUITEM "Statements" ACTION ( oEndText:goto(6), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
        oDlg:update() ) MESSAGE "Text to print on statements"

        MENUITEM "Recommendation"   ACTION ( oEndText:goto(7), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
            oDlg:update() ) MESSAGE "Disclosure for recommendation"

        MENUITEM "Text Message"     ACTION ( oEndText:goto(8), cText := oEndText:tagtext, cTitle := oEndText:texttype, ;
            oDlg:update() ) MESSAGE "Signature line for text messages"

        
    ENDMENU

    DEFINE BUTTON oWBtn1 OF oBarS3 RESOURCE "FIBILD" PROMPT "Sections" ;
        ACTION  oWBtn1:ShowPopup() MENU oWPopS1 TOOLTIP "Text sections"  
            
    DEFINE BUTTON oWBtn3 OF oBarS3 RESOURCE "HRSAVE" ;
        ACTION ( oEndText:tagtext := cText, oEndText:save( ), oDlg:update( ) ) 

    DEFINE BUTTON oWBtn4 OF oBarS3 RESOURCE "SPELL" ;
        ACTION  ( cText := SpellOne( cText), oDlg:update() ) 

    DEFINE BUTTON oWBtn5 OF oBarS3 RESOURCE "HREXIT" ;
        ACTION oDlg:end() 
/*      
    // Create edit control
    REDEFINE GET cText MEMO ID 2155 OF oDlg ;
        MESSAGE "Edit the text, and press OK to save your changes" UPDATE
*/

    // Create edit control
    REDEFINE RICHEDIT5 oRich VAR cText ID 2155 OF oDlg ;
        MESSAGE "Edit the text, and press OK to save your changes"  //UPDATE
        
    oRich:SetText( cText )  

    ACTIVATE DIALOG oDlg ON INIT (oReBar:hide( ),  oBarS3:lTransparent := .F.) CENTERED

  oReBar:show( )
    // Close the file
    oEndText:close()
    
RETURN NIL

SETUP3 DIALOG 0, 0, 660, 410
STYLE WS_POPUP | WS_CAPTION
CAPTION "Text Editor"
{
    CONTROL                 "", 100, "TBar", 0|WS_CHILD|WS_VISIBLE, 0,0, 640, 30
    CONTROL         "", 2155, "RichEdit50W", 4100 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL, 10, 40, 500, 350
}

// Provide for include files
#include "fivewin.ch"
#INCLUDE "richedi5.ch"


PROCEDURE main
    // Text Editor with resource for RTF5
    
    LOCAL oDlg, oRich,  cText := " "
    
  cText := "This is a test of the RTF 5 editor using a resource file.  It does not yet display the Rich Text editing bar"

    // Create the dialog
    DEFINE DIALOG oDlg RESOURCE "SIMPLERTF" 
    // Create edit control
    REDEFINE RICHEDIT5 oRich VAR cText ID 100 OF oDlg ;
        MESSAGE "Edit the text, and press OK to save your changes"  
        

    ACTIVATE DIALOG oDlg 

RETURN NIL

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>
 
LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

SIMPLERTF DIALOG 0, 0, 660, 410
STYLE DS_MODALFRAME | WS_SYSMENU | WS_CAPTION
CAPTION "Text Editor"
{
    CONTROL         "", 100, "RichEdit50W", 4100 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL, 10, 40, 500, 350
}

  FOR lx := 1 TO MLCount( oEndText:tagtext, 120,, .T. )
      WOPAGEHEAD( oPrn, aHead )
      IF lPrintColor
         oPrn:SayText( nRow, 2 * nCsp, MemoLine( oEndText:tagtext, 120, lx,, .T. ),nCsp*120, nRsp * 1.1, oFcond, , CLR_RED )
      ELSE
         oPrn:SayText( nRow, 2 * nCsp, MemoLine( oEndText:tagtext, 120, lx,, .T. ),nCsp*120, nRsp * 1.1, oFcond )
      ENDIF
      nRow += nRsp
   NEXT