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

fpspreadsheet: Fix shadow attribute of header/footer font in ods

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4125 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-05-11 16:06:04 +00:00
parent 6a84c55899
commit 1b4ae3956e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpsopendocument.pas
View File

@ -1966,7 +1966,7 @@ begin
if GetAttrValue(ANode, 'style:text-outline') = 'true' then if GetAttrValue(ANode, 'style:text-outline') = 'true' then
Include(AFontStyle, hfsOutline); Include(AFontStyle, hfsOutline);
s := GetAttrValue(ANode, 'style:text-shadow'); s := GetAttrValue(ANode, 'fo:text-shadow');
if not ((s = '') or (s = 'none')) then if not ((s = '') or (s = 'none')) then
Include(AFontStyle, hfsShadow); Include(AFontStyle, hfsShadow);
@ -4632,7 +4632,7 @@ begin
Result := Result + 'style:text-outline="true" '; Result := Result + 'style:text-outline="true" ';
if hfsShadow in AFont.Style then if hfsShadow in AFont.Style then
Result := Result + 'style:text-shadow="1pt 1pt" ' + Result := Result + 'fo:text-shadow="1pt 1pt" ' +
'style:text-outline="none" '; 'style:text-outline="none" ';
if hfsSubscript in AFont.Style then if hfsSubscript in AFont.Style then