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