From 29f8b2a131306c5b28a881e21bdcc83e428a5d44 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 14 Mar 2017 16:55:00 +0000 Subject: [PATCH] fpspreadsheet: Fix range check error in ods writer (see http://forum.lazarus.freepascal.org/index.php/topic,36059.msg240963.html#msg240963) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5805 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../fpspreadsheet/source/common/fpsopendocument.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/components/fpspreadsheet/source/common/fpsopendocument.pas b/components/fpspreadsheet/source/common/fpsopendocument.pas index 84f4aae1b..e347f8cb4 100644 --- a/components/fpspreadsheet/source/common/fpsopendocument.pas +++ b/components/fpspreadsheet/source/common/fpsopendocument.pas @@ -5281,8 +5281,8 @@ var begin // widthMultiplier := Workbook.GetFont(0).Size / 2; lastCol := ASheet.GetLastColIndex; - firstRepeatedPrintCol := ASheet.PageLayout.RepeatedCols.FirstIndex; - lastRepeatedPrintCol := ASheet.PageLayout.RepeatedCols.LastIndex; + firstRepeatedPrintCol := longInt(ASheet.PageLayout.RepeatedCols.FirstIndex); + lastRepeatedPrintCol := longint(ASheet.PageLayout.RepeatedCols.LastIndex); if (firstRepeatedPrintCol <> Longint(UNASSIGNED_ROW_COL_INDEX)) and (lastRepeatedPrintCol = LongInt(UNASSIGNED_ROW_COL_INDEX)) then @@ -5666,8 +5666,8 @@ begin GetSheetDimensions(ASheet, firstRow, lastRow, firstCol, lastCol); headerRows := false; - firstRepeatedPrintRow := ASheet.PageLayout.RepeatedRows.FirstIndex; - lastRepeatedPrintRow := ASheet.PageLayout.RepeatedRows.LastIndex; + firstRepeatedPrintRow := Integer(ASheet.PageLayout.RepeatedRows.FirstIndex); + lastRepeatedPrintRow := Integer(ASheet.PageLayout.RepeatedRows.LastIndex); if (firstRepeatedPrintRow <> Integer(UNASSIGNED_ROW_COL_INDEX)) and (lastRepeatedPrintRow = Integer(UNASSIGNED_ROW_COL_INDEX)) then