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

fpspreadsheet: Fix "rows-repeated" error in ods introduced in prev commit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3303 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-07-09 21:53:41 +00:00
parent 63283c100a
commit db24ac3a9b
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpsopendocument.pas
View File

@ -2783,11 +2783,9 @@ begin
// Look for empty rows with the same style, they need the "number-rows-repeated" element. // Look for empty rows with the same style, they need the "number-rows-repeated" element.
rowsRepeated := 1; rowsRepeated := 1;
if (ASheet.GetFirstCellOfRow(r) = nil) then begin if (ASheet.GetFirstCellOfRow(r) = nil) then begin
// if ASheet.GetCellCountInRow(r) = 0 then begin
rr := r + 1; rr := r + 1;
while (rr <= lastRow) do begin while (rr <= lastRow) do begin
if ASheet.GetFirstCellOfRow(rr) = nil then begin if ASheet.GetFirstCellOfRow(rr) <> nil then begin
// if ASheet.GetCellCountInRow(rr) > 0 then begin
break; break;
end; end;
h1 := ASheet.GetRowHeight(rr); h1 := ASheet.GetRowHeight(rr);