paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix copying of formulas with absolute cell references. (https://forum.lazarus.freepascal.org/index.php/topic,67763.0.html)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9378 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-07-04 17:13:09 +00:00
parent e8c71cf0d3
commit 4fa643f210
1 changed files with 37 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
components/fpspreadsheet/source/common/fpsexprparser.pas
View File

@ -1562,7 +1562,7 @@ end;
{ Signals that the parser is in "CopyMode", i.e. there is are source and
destination cells. All relative references in the formula of the source cell
habe to be adapted as seen from the destination cell. }
have to be adapted as seen from the destination cell. }
function TsExpressionParser.CopyMode: Boolean;
begin
Result := (FDestCell <> nil) and (FSourceCell <> nil);
@ -4213,17 +4213,20 @@ end;
(1) Copy mode:
The "DestCell" of the parser is the cell for which the formula is
calculated. The "SourceCell" contains the formula. If the formula contains
a relative address in the cell node the function calculates the row
a relative address in the cell node the function calculates the column
address of the cell represented by the node as seen from the DestCell.
If the formula contains an absolute address the function returns the row
If the formula contains an absolute address the function returns the column
address of the SourceCell.
(2) Normal mode:
Returns the "true" row address of the cell assigned to the formula node. }
Returns the "true" column address of the cell assigned to the formula node. }
function TsCellExprNode.GetCol: Cardinal;
begin
Result := FCol;
if FParser.CopyMode and (rfRelCol in FFlags) then
Result := FCol - FParser.FSourceCell^.Col + FParser.FDestCell^.Col;
if FParser.CopyMode then
begin
if (rfRelCol in FFlags) then
Result := FCol - FParser.FSourceCell^.Col + FParser.FDestCell^.Col;
end;
end;
procedure TsCellExprNode.GetNodeValue(out AResult: TsExpressionResult);
@ -4285,8 +4288,11 @@ end;
function TsCellExprNode.GetRow: Cardinal;
begin
Result := FRow;
if Parser.CopyMode and (rfRelRow in FFlags) then
Result := FRow - FParser.FSourceCell^.Row + FParser.FDestCell^.Row;
if Parser.CopyMode then
begin
if (rfRelRow in FFlags) then
Result := FRow - FParser.FSourceCell^.Row + FParser.FDestCell^.Row;
end;
end;
function TsCellExprNode.GetSheet: TsBasicWorksheet;
@ -4497,14 +4503,23 @@ end;
a relative address in the cell node the function calculates the row
address of the cell represented by the node as seen from the DestCell.
If the formula contains an absolute address the function returns the row
address of the SourceCell.
address of the current cell.
(2) Normal mode:
Returns the "true" row address of the cell assigned to the formula node. }
function TsCellRangeExprNode.GetCol(AIndex: TsCellRangeIndex): Cardinal;
var
isRel: Boolean;
begin
Result := FCol[AIndex];
if FParser.CopyMode and (rfRelCol in FFlags) then
Result := FCol[AIndex] - FParser.FSourceCell^.Col + FParser.FDestCell^.Col;
if FParser.CopyMode then
begin
case AIndex of
1: isRel := (rfRelCol in FFlags);
2: isRel := (rfRelCol2 in FFlags);
end;
if isRel then
Result := FCol[AIndex] - FParser.FSourceCell^.Col + FParser.FDestCell^.Col;
end;
end;
procedure TsCellRangeExprNode.GetNodeValue(out AResult: TsExpressionResult);
@ -4571,10 +4586,19 @@ begin
end;
function TsCellRangeExprNode.GetRow(AIndex: TsCellRangeIndex): Cardinal;
var
isRel: Boolean;
begin
Result := FRow[AIndex];
if FParser.CopyMode and (rfRelRow in FFlags) then
Result := FRow[AIndex] - FParser.FSourceCell^.Row + FParser.FDestCell^.Row;
if FParser.CopyMode then
begin
case AIndex of
1: isRel := (rfRelRow in FFlags);
2: isRel := (rfRelRow2 in FFlags);
end;
if isRel then
Result := FRow[AIndex] - FParser.FSourceCell^.Row + FParser.FDestCell^.Row;
end;
end;
function TsCellRangeExprNode.GetWorkbook: TsBasicWorkbook;