paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 04:48:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, make lrOfficeImport package compile with previous fpSpreadSheet versions than trunk version, issue #26728

Browse Source 
git-svn-id: trunk@46255 -
This commit is contained in:
jesus 2014-09-19 17:23:12 +00:00
parent 48591ac3cc
commit 0813f5c4ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/addons/lrOfficeImport/lrspreadsheetimportunit.pas
View File

@ -138,11 +138,11 @@ begin
FWorksheet := FWorkbook.GetFirstWorksheet; FWorksheet := FWorkbook.GetFirstWorksheet;
Y:=0; Y:=0;
for Row:=0 to FWorksheet.GetLastRowIndex(False)-1 do for Row:=0 to FWorksheet.GetLastRowIndex-1 do
begin begin
X:=0; X:=0;
DY:=CalcRowHeight(FWorksheet.GetRowHeight(Row)); DY:=CalcRowHeight(FWorksheet.GetRowHeight(Row));
for Col:=0 to FWorksheet.GetLastColIndex(false)-1 do for Col:=0 to FWorksheet.GetLastColIndex-1 do
begin begin
Cell := FWorksheet.FindCell(Row, Col); Cell := FWorksheet.FindCell(Row, Col);
if Assigned(Cell) then if Assigned(Cell) then