pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/xlsxooxml.pas
View File

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