paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 09:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Avltree, fix RootOffset

Browse Source 
git-svn-id: trunk@63659 -
This commit is contained in:
martin 2020-07-28 16:14:30 +00:00
parent 638a405de0
commit 5a094e4bec
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syneditmiscclasses.pp
View File

@ -2958,7 +2958,7 @@ begin
if Result = nil then if Result = nil then
exit; exit;
aStartPosition := Result.FPositionOffset; aStartPosition := aStartPosition + Result.FPositionOffset;
while Result.FLeft <> nil do begin while Result.FLeft <> nil do begin
Result := Result.FLeft; Result := Result.FLeft;
aStartPosition := aStartPosition + Result.FPositionOffset; aStartPosition := aStartPosition + Result.FPositionOffset;
@ -2974,7 +2974,7 @@ begin
if Result = nil then if Result = nil then
exit; exit;
aStartPosition := Result.FPositionOffset; aStartPosition := aStartPosition + Result.FPositionOffset;
aSizesBeforeSum := aSizesBeforeSum + Result.FLeftSizeSum; aSizesBeforeSum := aSizesBeforeSum + Result.FLeftSizeSum;
while Result.FRight <> nil do begin while Result.FRight <> nil do begin
aSizesBeforeSum := aSizesBeforeSum + Result.FSize; aSizesBeforeSum := aSizesBeforeSum + Result.FSize;
@ -2993,7 +2993,7 @@ begin
if Result = nil then if Result = nil then
exit; exit;
aStartPosition := Result.FPositionOffset; aStartPosition := aStartPosition + Result.FPositionOffset;
while Result <> nil do begin while Result <> nil do begin
if ALeftSum < Result.FLeftSizeSum then begin if ALeftSum < Result.FLeftSizeSum then begin
Result := Result.FLeft; Result := Result.FLeft;