FiveTech Support Forums

Many months ago you created a Richedit function and more recently you modified the class. This may have broken elements of the function. In this example:

cTitle := "Test Rich Edit Function"
cText := "this is a test line of the rich edit function. It should be editable very easily"
RichEdit( @cText, cTitle, 0,0,40,200 )

Using this sequence, the following is happening

1) After making changes, and exiting the function, the changes are not saved to a memo field.
2) The icons for position ( left, center, right ), and those that follow on the button bar, are not displaying. The buttons are there but no bitmap display

I thought about using the elements of the new class, but for documentation it says to local at a sample code piece that is very confusing and uses far more than a richedit text

1) Can we get the function fixed so it returns the cText to be saved in a memo field ?
2) Using the PRINT class, can you show me a sample of keeping RTF formatting when printing using @ Row, Column print syntax ( just like I do with a normal memo field )
3) Can we recall and display the RTF in PREVIEW mode ( PRINT class ), and in normal edit field display
4) Can we use the new class with an RC file ( once again, @ x,y syntax doesn't help out with a .rc controlled dialog ).

Tim, last version not modified class TRichedit, new class TRichEdit5 developed and included
Function RichEdit(), not modified in last version, and continue use old version class TRichEdit

Regards

OK, but still, the function I described is not fully functional. I've shown the code and noted the problems.

wich error you have?

Please read the first post in this thread.

Tim,

The function RichEdit() was not saving changes previously. In order to save them these changes
are required in memoedit.prg:

Remove static function Save() and modify these lines

static function BuildRichEditBar( oWnd, oRtf, bSave )

...

DEFINE BUTTON oBtn OF oBar ;
MESSAGE "Save a file" TOOLTIP "Save" NOBORDER ;
ACTION If( ! Empty( bSave ), Eval( bSave, oRtf:SaveAsRTF() ),)

...

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( BuildRichEditBar( oDlg, oMemo, { | c | cText := c } ), oDlg:ReSize() )

The missing bitmaps are not yet implemented. For now you have to provide these resources
yourself: "Left", "Center", "Right", "Justify", "Number", "Bullet" and "Exit"

These changes will be included in next FWH 16.05

I made the changes ... tried it ... but it's not really going to resolve my problem.

Here is what I want to do. I have some text stored in .fpt memo fields. I want to bring it up in a Rich Text editor, Format it, then save it back to the .fpt file. Then, I want it to print on the final document ( invoice ) in it's modified form. When I bring it up on the screen, I want to also see it in the rich text format.

Do we have a simple sample that shows this created within a dialog ?

Tim,

Your example with my changes is working fine. What problems do you get ?

cTitle := "Test Rich Edit Function"
cText := "this is a test line of the rich edit function. It should be editable very easily"
RichEdit( @cText, cTitle, 0,0,40,200 )

You have to press the save button in order to save the changes. The saved text is RTF format,
so it can be directly stored in your field.

Tim,

What do you get ?

It seems as your msg is uncomplete

Tim,

You get the text in RTF format. You need to display it in a RichEdit control to see it properly.

In my example I use a loop to show the modified text in the same RichEdit() function