SaveRVFToStream

Return to index

Author

Message

Luca

Posted: 04/04/2005 15:40:03

I try to write a memorystream with SaveRVFToStream but it's only saving plain

text (font style and color are ignored).

The richview and style control are created and assigned at run time. Before

I was saving rtf text and it worked.. but now I need to save in RVF format.

What I'm doing wrong?

procedure PrepareRichView(wc:TCustomRichView);

begin

  wc.RVFTextStylesReadMode := rvf_sInsertMerge;

  wc.RVFParaStylesReadMode := rvf_sInsertMerge ;

  wc.RVFOptions :=  [

    rvfoSaveBinary, rvfoUseStyleNames,

    rvfoSaveBack, rvfoLoadBack,

    rvfoSaveTextStyles, rvfoSaveParaStyles,

    rvfoSaveLayout, rvfoLoadLayout,

    rvfoSaveDocProperties, rvfoLoadDocProperties];

  wc.RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;

  wc.RTFReadProperties.ParaStyleMode := rvrsAddIfNeeded;

end;