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

fpspreadsheet: Avoid ods reader using localized color names.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4606 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-04-04 09:47:20 +00:00
parent 2988db35f3
commit 6f5068b304
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpspreadsheet/fpsopendocument.pas
View File

@ -2844,9 +2844,14 @@ procedure TsSpreadOpenDocReader.ReadNumFormats(AStylesNode: TDOMNode);
hasColor := true; hasColor := true;
color := HTMLColorStrToColor(s); color := HTMLColorStrToColor(s);
case color of case color of
scBlack, scWhite, scRed, scGreen, scBlack : nfs := '[black]' + nfs;
scBlue, scYellow, scMagenta, scCyan: scWhite : nfs := '[white]' + nfs;
nfs := Format('[%s]%s', [GetColorName(color), nfs]); scRed : nfs := '[red]' + nfs;
scGreen : nfs := '[green]' + nfs;
scBlue : nfs := '[blue]' + nfs;
scYellow : nfs := '[yellow]' + nfs;
scMagenta : nfs := '[magenta]' + nfs;
scCyan : nfs := '[cyan]' + nfs;
end; end;
end; end;
end; end;