paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 03:02:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit Folding: fixed some code in Precessor

Browse Source 
git-svn-id: trunk@17575 -
This commit is contained in:
martin 2008-11-25 00:04:58 +00:00
parent 9e75e5068c
commit e1184d6872
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/syneditfoldedview.pp
View File

@ -407,7 +407,6 @@ end;
function TSynTextFoldAVLNodeData.Precessor(var aStartLine, aLinesBefore : Integer) : TSynTextFoldAVLNodeData;
begin
aLinesBefore := aLinesBefore - LineCount;
Result := Left;
if Result<>nil then begin
aStartLine := aStartLine + Result.LineOffset;
@ -425,6 +424,10 @@ begin
aStartLine := aStartLine - Result.LineOffset;
Result := Result.Parent;
end;
if result <> nil then
aLinesBefore := aLinesBefore - result.LineCount
else
aLinesBefore := 0;
end;
function TSynTextFoldAVLNodeData.Successor(var aStartLine, aLinesBefore : Integer) : TSynTextFoldAVLNodeData;