From db24ac3a9bf899a5bed84f48dba831d40f239613 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 9 Jul 2014 21:53:41 +0000 Subject: [PATCH] fpspreadsheet: Fix "rows-repeated" error in ods introduced in prev commit git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3303 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/fpsopendocument.pas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas index 8c56e7bd2..d119d7da8 100755 --- a/components/fpspreadsheet/fpsopendocument.pas +++ b/components/fpspreadsheet/fpsopendocument.pas @@ -2783,11 +2783,9 @@ begin // Look for empty rows with the same style, they need the "number-rows-repeated" element. rowsRepeated := 1; if (ASheet.GetFirstCellOfRow(r) = nil) then begin -// if ASheet.GetCellCountInRow(r) = 0 then begin rr := r + 1; while (rr <= lastRow) do begin - if ASheet.GetFirstCellOfRow(rr) = nil then begin -// if ASheet.GetCellCountInRow(rr) > 0 then begin + if ASheet.GetFirstCellOfRow(rr) <> nil then begin break; end; h1 := ASheet.GetRowHeight(rr);