Problem when saving to RTF-file

Return to index

Author

Message

Geir Bratlie

Posted: 10/17/2002 11:54:28

Hi!

I have a problem when saving to RFT-file with a table.

I use this code:

-----

if SaveDialog1.Execute then begin

    Screen.Cursor := crHourglass;

    case SaveDialog1.FilterIndex of

      1: // RTF

        r := RichViewEdit1.SaveRTF(SaveDialog1.FileName, False);

      2: // ANSI Text (byte per character)

        r := RichViewEdit1.SaveText(SaveDialog1.FileName, 80);

      3: // Unicode Text (2 bytes per character)

        r := RichViewEdit1.SaveTextW(SaveDialog1.FileName, 80);

      4: // HTML

        r := RichViewEdit1.SaveHTML(SaveDialog1.FileName, 'Min rapport',

'bilde', []);

      5: // HTML with CSS

        r := RichViewEdit1.SaveHTMLEx(SaveDialog1.FileName, 'Min rapport',

'bilde',

          '', '', '', []);

    else

      r := False;

    end;

------

R returns false when rtf is selected in the save dialog, but only when I

have a table in the document.

The document can't be opened in Word, and if I open the document in Notepad,

I see it stops where the table starts.

Like this:

----

(clip)

{\trowd\trqc\trgaph30\trleft0\itap1\trpaddl15\trpaddt15\trpaddr15\trpaddb15\

trpaddfl3\trpaddft3\trpaddfr3\trpaddfb3\trspdl15\trspdr15\trspdfl3\trspdfr3\

trspdt15\trspdb15\trspdft3\trspdfb3\trwWidth9750\trftsWidth3\richviewtbw650\

clvmgf\richviewcbw300\richviewcbh0\clcbpat8\cellx4545\richviewcbw100\richvie

wcbh0\clcbpat8\cellx6105\richviewcbw250\richviewcbh0\clcbpat8\cellx9705\pard

\intbl\itap1{{

----

What's wrong?

Best regards,

Geir Bratlie