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

fpspreadsheet: Adapt prev commit to remain compilable for older Lazarus versions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4652 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-05-17 07:16:04 +00:00
parent 60506b0a71
commit 89caeb5de0
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -707,7 +707,7 @@ procedure Register;
implementation implementation
uses uses
Types, LCLType, LCLIntf, LCLProc, Math, StrUtils, Types, LCLType, LCLIntf, LCLProc, LCLVersion, Math, StrUtils,
fpCanvas, fpCanvas,
fpsStrings, fpsUtils, fpsVisualUtils, fpsHTMLUtils, fpsStrings, fpsUtils, fpsVisualUtils, fpsHTMLUtils,
fpsNumFormat; fpsNumFormat;
@ -3999,7 +3999,11 @@ begin
AutoExpandToRow(grow, aeNavigation); AutoExpandToRow(grow, aeNavigation);
AutoExpandToCol(gcol, aeNavigation); AutoExpandToCol(gcol, aeNavigation);
if (grow <> Row) or (gcol <> Col) then if (grow <> Row) or (gcol <> Col) then
{$IF LCL_FULLVERSION < 1070000}
MoveExtend(false, gcol, grow);
{$ELSE}
MoveExtend(false, gcol, grow, true); MoveExtend(false, gcol, grow, true);
{$ENDIF}
end; end;
// Abort selection because of an error // Abort selection because of an error