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
rc := curr^;
if LongInt(rc.Col) < FStartCol then
dec(rc.Row);
dec(LongInt(rc.Row));
rc.Col := FEndCol;
FCurrentNode := FTree.FindNearest(@rc);
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),
'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(
SourceCells[i+(col-2)].BackgroundColor,
MyWorksheet.ReadBackgroundColor(cell),
@ -408,7 +408,7 @@ begin
end;
6:
begin
if row = 0 then
if (row = 0) or (i >= Length(SourceCells)) then
expectedFormula := ''
else
begin