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

fpspreadsheet: Fix crash in worksheetgrid when fixed column is autosized with compiler checks ON.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7990 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-04-14 22:51:56 +00:00
parent 2159bd73ce
commit 93f080baa1
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpspreadsheet/source/common/fpsclasses.pas
View File

@ -24,20 +24,20 @@ type
protected
FCurrentNode: TAvgLvlTreeNode;
FTree: TsRowColAVLTree;
FStartRow, FEndRow, FStartCol, FEndCol: LongInt;
FStartRow, FEndRow, FStartCol, FEndCol: Cardinal;
FDone: Boolean;
FReverse: Boolean;
function GetCurrent: PsRowCol;
public
constructor Create(ATree: TsRowColAVLTree;
AStartRow, AStartCol, AEndRow, AEndCol: LongInt; AReverse: Boolean);
AStartRow, AStartCol, AEndRow, AEndCol: Cardinal; AReverse: Boolean);
function GetEnumerator: TsRowColEnumerator; inline;
function MoveNext: Boolean;
property Current: PsRowCol read GetCurrent;
property StartRow: LongInt read FStartRow;
property EndRow: LongInt read FEndRow;
property StartCol: LongInt read FStartCol;
property EndCol: LongInt read FEndCol;
property StartRow: Cardinal read FStartRow;
property EndRow: Cardinal read FEndRow;
property StartCol: Cardinal read FStartCol;
property EndCol: Cardinal read FEndCol;
end;
{ TsRowColAVLTree }
@ -488,7 +488,7 @@ end;
{==============================================================================}
constructor TsRowColEnumerator.Create(ATree: TsRowColAVLTree;
AStartRow, AStartCol, AEndRow, AEndCol: LongInt; AReverse: Boolean);
AStartRow, AStartCol, AEndRow, AEndCol: Cardinal; AReverse: Boolean);
var
node: TAvgLvlTreeNode;
begin