paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Improved replacement of unsupported xlsx border line styles.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4227 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2015-07-30 16:33:25 +00:00
parent 954be7d438
commit 85351db23a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/xlsxooxml.pas
View File

@ -440,7 +440,7 @@ procedure TsSpreadOOXMLReader.ReadBorders(ANode: TDOMNode);
if s = 'thin' then
ABorderStyle.LineStyle := lsThin
else if s = 'medium' then
else if (pos('medium', s) = 1) or (pos('slant', s) = 1) then
ABorderStyle.LineStyle := lsMedium
else if s = 'thick' then
ABorderStyle.LineStyle := lsThick