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

FPSpreadsheet: Fix reader to detect underlined font in xlsx charts.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9479 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-10-02 14:57:36 +00:00
parent 241004072c
commit f41595301d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/source/common/xlsxooxmlchart.pas
View File

@ -1015,7 +1015,8 @@ begin
if GetAttrValue(ANode, 'i') = '1' then
AFont.Style := AFont.Style + [fssItalic];
if GetAttrValue(ANode, 'u') = '1' then
s := GetAttrValue(ANode, 'u');
if not ((s = '') or (s = '0')) then
AFont.Style := AFont.Style + [fssUnderline];
s := GetAttrValue(ANode, 'strike');