RTF Code Optimization

[Sergey Tkachenko]

This problem was easy to fix. In CRVData.pas, in TCustomRVData.SaveRTFToStream, the following code

Code: Select all

if (Level=0) and (StartItem<>EndItem) and
  IsParaStart(EndItem) and (GetItemStyle(EndItem)>=0) and 
  (Items[EndItem]='') then
      RVFWrite(Stream, '\par');

was changed to:

Code: Select all

if (Level=0)  then 
  RVFWrite(Stream, '\par');