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

fpspreadsheet: Fix runtime errors of guitests in debug mode

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4174 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-06-02 08:31:00 +00:00
parent 0d7bdfa06c
commit a658f6f7e6
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/fpsclasses.pas
View File

@ -278,7 +278,7 @@ begin
begin begin
rc := curr^; rc := curr^;
if LongInt(rc.Col) < FStartCol then if LongInt(rc.Col) < FStartCol then
dec(rc.Row); dec(LongInt(rc.Row));
rc.Col := FEndCol; rc.Col := FEndCol;
FCurrentNode := FTree.FindNearest(@rc); FCurrentNode := FTree.FindNearest(@rc);
if FCurrentNode <> nil then begin if FCurrentNode <> nil then begin

4
components/fpspreadsheet/tests/copytests.pas
View File

@ -339,7 +339,7 @@ begin
SourceCells[i+(col-2)].UsedFormattingFields = MyWorksheet.ReadUsedFormatting(cell), SourceCells[i+(col-2)].UsedFormattingFields = MyWorksheet.ReadUsedFormatting(cell),
'Used formatting fields mismatch, cell ' + CellNotation(myWorksheet, row, col) 'Used formatting fields mismatch, cell ' + CellNotation(myWorksheet, row, col)
); );
if (uffBackground in SourceCells[i].UsedFormattingFields) then if (uffBackground in SourceCells[i+(col-2)].UsedFormattingFields) then
CheckEquals( CheckEquals(
SourceCells[i+(col-2)].BackgroundColor, SourceCells[i+(col-2)].BackgroundColor,
MyWorksheet.ReadBackgroundColor(cell), MyWorksheet.ReadBackgroundColor(cell),
@ -408,7 +408,7 @@ begin
end; end;
6: 6:
begin begin
if row = 0 then if (row = 0) or (i >= Length(SourceCells)) then
expectedFormula := '' expectedFormula := ''
else else
begin begin