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

fpspreadsheet: Misc improvements of TsWorksheetGrid, fpsgrid and spready

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3551 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-09-11 22:57:55 +00:00
parent abf0e7f2f6
commit 84d3ab4fb8
10 changed files with 119 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/fpsexprparser.pas
View File

@ -833,9 +833,6 @@ const
AllBuiltIns = [bcMath, bcStatistics, bcStrings, bcLogical, bcDateTime, bcLookup,
bcInfo, bcUser];
var
ExprFormatSettings: TFormatSettings; // MUST BE REMOVED
implementation
@ -1227,6 +1224,7 @@ end;
decimal and list separator from the formatsettings provided. }
function TsExpressionParser.BuildStringFormula(AFormatSettings: TFormatSettings): String;
begin
ExprFormatSettings := AFormatSettings;
if FExprNode = nil then
Result := ''
else
@ -1773,6 +1771,7 @@ end;
function TsExpressionParser.GetLocalizedExpression(const AFormatSettings: TFormatSettings): String;
begin
ExprFormatSettings := AFormatSettings;
Result := BuildStringFormula(AFormatSettings);
end;
@ -1792,6 +1791,7 @@ begin
if FExpression = AValue then
exit;
FFormatSettings := AFormatSettings;
ExprFormatSettings := AFormatSettings;
FExpression := AValue;
if (AValue <> '') and (AValue[1] = '=') then
FScanner.Source := Copy(AValue, 2, Length(AValue))