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

fpspreadsheet: Reading/writing of negative currencies in red now working for ods

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3189 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-06-17 21:56:49 +00:00
parent 631881ca39
commit 0875ce96e8
6 changed files with 63 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/fpsnumformatparser.pas
View File

@@ -275,7 +275,8 @@ var
uValue: String;
begin
uValue := Uppercase(AValue);
Result := (uValue = '$') or (uValue = 'USD') or
Result := (uValue = Uppercase(AnsiToUTF8(FWorkbook.FormatSettings.CurrencyString))) or
(uValue = '$') or (uValue = 'USD') or
(uValue = '�') or (uValue = 'EUR') or
(uValue = '�') or (uValue = 'GBP') or
(uValue = '�') or (uValue = 'JPY');