fpspreadsheet: Fix detection of word-wrapped cells in xlsx files written by LibreOffice Calc

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6589 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-10 22:08:08 +00:00
parent 5c21f2ae11
commit f10b07cd0f

View File

@ -965,8 +965,8 @@ begin
if (s1 = '1') or (s1 = '2') then
fmt.BiDiMode := TsBiDiMode(StrToInt(s1));
s1 := GetAttrValue(childNode, 'wrapText');
if (s1 <> '') and (s1 <> '0') then
s1 := Lowercase(GetAttrValue(childNode, 'wrapText'));
if (s1 <> '') and (s1 <> '0') and (s1 <> 'false') then
Include(fmt.UsedFormattingFields, uffWordWrap);
s1 := GetAttrValue(childNode, 'textRotation');