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

fpspreadsheet: Fix comiliation error w/ fpc-trunk (issue 0027978)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4099 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-04-27 09:44:21 +00:00
parent 741f86a425
commit de39db4c01
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpspreadsheet/fpstypes.pas
View File

@ -1059,9 +1059,11 @@ end;
procedure TsNumFormatParams.SetCurrSymbol(AValue: String); procedure TsNumFormatParams.SetCurrSymbol(AValue: String);
var var
section: TsNumFormatSection; section: TsNumFormatSection;
el: Integer; s, el: Integer;
begin begin
for section in Sections do for s:=0 to High(Sections) do
begin
section := Sections[s];
if (nfkCurrency in section.Kind) then if (nfkCurrency in section.Kind) then
begin begin
section.CurrencySymbol := AValue; section.CurrencySymbol := AValue;
@ -1069,6 +1071,7 @@ begin
if section.Elements[el].Token = nftCurrSymbol then if section.Elements[el].Token = nftCurrSymbol then
section.Elements[el].Textvalue := AValue; section.Elements[el].Textvalue := AValue;
end; end;
end;
end; end;
procedure TsNumFormatParams.SetDecimals(AValue: byte); procedure TsNumFormatParams.SetDecimals(AValue: byte);