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;
color := HTMLColorStrToColor(s);
case color of
scBlack, scWhite, scRed, scGreen,
scBlue, scYellow, scMagenta, scCyan:
nfs := Format('[%s]%s', [GetColorName(color), nfs]);
scBlack : nfs := '[black]' + nfs;
scWhite : nfs := '[white]' + 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;