paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 15:39:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: AvlTree, fix FRootOffset, introduce SetLeftSizeSum

Browse Source 
git-svn-id: trunk@63206 -
This commit is contained in:
martin 2020-05-22 14:54:16 +00:00
parent ae286584eb
commit aac3e030bc
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/synedit/syneditmiscclasses.pp
View File

@ -523,6 +523,8 @@ type
{ TSynSizedDifferentialAVLNode }
TSynSizedDifferentialAVLNode = Class
private
procedure SetLeftSizeSum(AValue: Integer);
protected
(* AVL Tree structure *)
FParent, FLeft, FRight : TSynSizedDifferentialAVLNode; (* AVL Links *)
@ -539,7 +541,7 @@ type
FSize: Integer;
FLeftSizeSum: Integer;
property LeftSizeSum: Integer read FLeftSizeSum;
property LeftSizeSum: Integer read FLeftSizeSum write SetLeftSizeSum;
{$IFDEF SynDebug}
function Debug: String; virtual;
{$ENDIF}
@ -563,6 +565,7 @@ type
procedure AdjustLeftCount(AValue : Integer);
procedure AdjustParentLeftCount(AValue : Integer);
procedure AdjustPosition(AValue : Integer); // Must not change order with prev/next node
function Precessor: TSynSizedDifferentialAVLNode;
function Successor: TSynSizedDifferentialAVLNode;
@ -2209,6 +2212,13 @@ end;
{ TSynSizedDifferentialAVLNode }
procedure TSynSizedDifferentialAVLNode.SetLeftSizeSum(AValue: Integer);
begin
if FLeftSizeSum = AValue then Exit;
FLeftSizeSum := AValue;
AdjustParentLeftCount(AValue - FLeftSizeSum);
end;
{$IFDEF SynDebug}
function TSynSizedDifferentialAVLNode.Debug: String;
begin
@ -2311,6 +2321,15 @@ begin
end;
end;
procedure TSynSizedDifferentialAVLNode.AdjustPosition(AValue: Integer);
begin
FPositionOffset := FPositionOffset + AValue;
if FRight <> nil then
FRight.FPositionOffset := FRight.FPositionOffset - AValue;;
if FLeft <> nil then
FLeft.FPositionOffset := FLeft.FPositionOffset - AValue;;
end;
function TSynSizedDifferentialAVLNode.GetSizesBeforeSum: Integer;
var
n1, n2: TSynSizedDifferentialAVLNode;
@ -2933,7 +2952,7 @@ function TSynSizedDifferentialAVLTree.First(out aStartPosition,
aSizesBeforeSum: Integer): TSynSizedDifferentialAVLNode;
begin
Result := FRoot;
aStartPosition := 0;
aStartPosition := FRootOffset;
aSizesBeforeSum := 0;
if Result = nil then
exit;
@ -2949,7 +2968,7 @@ function TSynSizedDifferentialAVLTree.Last(out aStartPosition,
aSizesBeforeSum: Integer): TSynSizedDifferentialAVLNode;
begin
Result := FRoot;
aStartPosition := 0;
aStartPosition := FRootOffset;
aSizesBeforeSum := 0;
if Result = nil then
exit;
@ -2966,7 +2985,7 @@ function TSynSizedDifferentialAVLTree.FindNodeAtLeftSize(ALeftSum: INteger; out
aStartPosition, aSizesBeforeSum: Integer): TSynSizedDifferentialAVLNode;
begin
Result := FRoot;
aStartPosition := 0;
aStartPosition := FRootOffset;
aSizesBeforeSum := 0;
if Result = nil then
exit;