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

fpspreadsheet: Fix index bug in TsWorksheet.SetIndex (reported by forum user "iteh")

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7012 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-17 15:09:48 +00:00
parent 7585c5a3c9
commit b38dcbe737
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@@ -7283,8 +7283,8 @@ begin
if AValue < 0 then if AValue < 0 then
AValue := 0 AValue := 0
else else
if AValue > TsWorkbook(FWorkbook).GetWorksheetCount then if AValue >= TsWorkbook(FWorkbook).GetWorksheetCount then
Avalue := TsWorkbook(FWorkbook).GetWorksheetCount - 1; AValue := TsWorkbook(FWorkbook).GetWorksheetCount - 1;
oldIndex := GetIndex; oldIndex := GetIndex;
if oldIndex <> AValue then if oldIndex <> AValue then
TsWorkbook(FWorkbook).MoveSheet(oldIndex, Avalue); TsWorkbook(FWorkbook).MoveSheet(oldIndex, Avalue);