fpspreadsheet: Fix line breaks in header/footer lines for xls and xlsx.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4123 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2015-05-10 22:04:09 +00:00
parent 770ff0d4f1
commit c42a8fdedb
3 changed files with 19 additions and 6 deletions
--- a/components/fpspreadsheet/fpsutils.pas
+++ b/components/fpspreadsheet/fpsutils.pas
@@ -2217,6 +2217,10 @@ begin
      '>': WrkStr:=WrkStr + '&gt;';
      '"': WrkStr:=WrkStr + '&quot;';
      '''':WrkStr:=WrkStr + '&apos;';
+      {
+      #10: WrkStr := WrkStr + '&#10;';
+      #13: WrkStr := WrkStr + '&#13;';
+      }
    else
      WrkStr:=WrkStr + AText[Idx];
    end;