From b8cef77420f2915dfaf0b2f56dd9a835e69b24ec Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 12 Sep 2014 15:54:21 +0000
Subject: [PATCH] fpspreadsheet: Fix sfExcel8 writing incorrect merged cell
 records.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3556 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/xlsbiff8.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/xlsbiff8.pas b/components/fpspreadsheet/xlsbiff8.pas
index c9ef9fbc5..1a994fb07 100755
--- a/components/fpspreadsheet/xlsbiff8.pas
+++ b/components/fpspreadsheet/xlsbiff8.pas
@@ -1009,7 +1009,7 @@ begin
 
     { BIFF record header }
     AStream.WriteWord(WordToLE(INT_EXCEL_ID_MERGEDCELLS));
-    AStream.WriteWord(WordToLE(4 + 2 + n*8));
+    AStream.WriteWord(WordToLE(2 + n*8));
 
     // Count of cell ranges in this record
     AStream.WriteWord(WordToLE(n));