Line spacing went crazy

cbarrer

I have an application compiled on 2005 10 24, that uses WPTools V. 4.25. This application reads rtf documents generated with another application that also uses V. 4.25.

All of a sudden (until this week) my old reading application began to show some documents with huge spacing between lines.

If I copy some of these lines, paste them to Word from Microsoft and check paragraph properties, it appears that spacing is set to "minimum 50 points".

How can I solve this problem, what properties to I have to change in my rtf documents, or in my old reading application?

Kind regards.

Carlos Borrero

support

Hi,

In WPWrtRTF.PAS you should find this code:

Code

if wpseSpaceBetween in StyleBinValues.Props.ParElements then
      begin
        p := StrECopy(p, '\sl');
        if StyleBinValues.Props.Par.spacebetween <> 0 then
        begin
          p := StrEPCopy(p,IntToStr(StyleBinValues.Props.Par.spacebetween));
          if paprMultSpacing in StyleBinValues.Props.Par.prop then
             p := StrEPCopy(p, '\slmult1');
        end else
             p := StrEPCopy(p, '0');  // Word needs this
             // p := StrEPCopy(p, '1000'); // Default, auto linne height
      end;

Alles anzeigen

p := StrEPCopy(p, '0'); had been inserted into the last published edition, because Word does not handle the 1000 as the RTF standard specifies.

Julian