From a46928c3a38fcf1b89d89d3e326791ecf8a7ea74 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 19 Mar 2016 16:39:43 +0000
Subject: [PATCH] fpspreadsheet: Fix writing default colwidth to xlsx (was
 applied only to first column so far).

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

diff --git a/components/fpspreadsheet/xlsxooxml.pas b/components/fpspreadsheet/xlsxooxml.pas
index 1dc822383..f5b7a73e5 100755
--- a/components/fpspreadsheet/xlsxooxml.pas
+++ b/components/fpspreadsheet/xlsxooxml.pas
@@ -3000,7 +3000,7 @@ begin
   w := AWorksheet.ReadDefaultColWidth(suChars);
   h := AWorksheet.ReadDefaultRowHeight(suPoints);
   AppendToStream(AStream, Format(
-    '<sheetFormatPr baseColWidth="%.2f" defaultRowHeight="%.2f" customHeight="true" />',
+    '<sheetFormatPr baseColWidth="10" defaultColWidth="%.2f" defaultRowHeight="%.2f" customHeight="true" />',
     [w, h],
     FPointSeparatorSettings));
 end;