From 899efef3474a2e86ca766c02888732b397634d81 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 17 Sep 2015 12:51:54 +0000
Subject: [PATCH] fpspreadsheet: Fix xlsx reading crashing for non-integer font
 sizes.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4335 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 a120fc170..87eb56293 100755
--- a/components/fpspreadsheet/xlsxooxml.pas
+++ b/components/fpspreadsheet/xlsxooxml.pas
@@ -1173,7 +1173,7 @@ begin
     if nodename = 'sz' then
     begin
       s := GetAttrValue(node, 'val');
-      if s <> '' then fntSize := StrToFloat(s);
+      if s <> '' then fntSize := StrToFloat(s, FPointSeparatorSettings);
     end
     else
     if nodename = 'b' then