From 1b4ae3956ed8cddef1c353e11ecb70664ebf384e Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 11 May 2015 16:06:04 +0000 Subject: [PATCH] fpspreadsheet: Fix shadow attribute of header/footer font in ods git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4125 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/fpsopendocument.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas index a56d7b0cf..2a20970d1 100755 --- a/components/fpspreadsheet/fpsopendocument.pas +++ b/components/fpspreadsheet/fpsopendocument.pas @@ -1966,7 +1966,7 @@ begin if GetAttrValue(ANode, 'style:text-outline') = 'true' then Include(AFontStyle, hfsOutline); - s := GetAttrValue(ANode, 'style:text-shadow'); + s := GetAttrValue(ANode, 'fo:text-shadow'); if not ((s = '') or (s = 'none')) then Include(AFontStyle, hfsShadow); @@ -4632,7 +4632,7 @@ begin Result := Result + 'style:text-outline="true" '; if hfsShadow in AFont.Style then - Result := Result + 'style:text-shadow="1pt 1pt" ' + + Result := Result + 'fo:text-shadow="1pt 1pt" ' + 'style:text-outline="none" '; if hfsSubscript in AFont.Style then