From 89caeb5de0590c52f4d8fd3604dff36fc818faf8 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 17 May 2016 07:16:04 +0000 Subject: [PATCH] fpspreadsheet: Adapt prev commit to remain compilable for older Lazarus versions git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4652 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/fpspreadsheetgrid.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas index 962711878..0c67dabc2 100644 --- a/components/fpspreadsheet/fpspreadsheetgrid.pas +++ b/components/fpspreadsheet/fpspreadsheetgrid.pas @@ -707,7 +707,7 @@ procedure Register; implementation uses - Types, LCLType, LCLIntf, LCLProc, Math, StrUtils, + Types, LCLType, LCLIntf, LCLProc, LCLVersion, Math, StrUtils, fpCanvas, fpsStrings, fpsUtils, fpsVisualUtils, fpsHTMLUtils, fpsNumFormat; @@ -3999,7 +3999,11 @@ begin AutoExpandToRow(grow, aeNavigation); AutoExpandToCol(gcol, aeNavigation); if (grow <> Row) or (gcol <> Col) then + {$IF LCL_FULLVERSION < 1070000} + MoveExtend(false, gcol, grow); + {$ELSE} MoveExtend(false, gcol, grow, true); + {$ENDIF} end; // Abort selection because of an error