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

SynEdit: fixed an issue with unfolding, if fold starts on very first line (display was not repainted)

Browse Source 
git-svn-id: trunk@22607 -
This commit is contained in:
martin 2009-11-15 22:06:54 +00:00
parent 3618f253b7
commit e3156cd675
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/syneditfoldedview.pp
View File

@ -3321,7 +3321,8 @@ begin
else inc(ColIndex);
continue;
end;
r2 := fFoldTree.RemoveFoldForLine(AStartIndex+1, False, ColIndex) - 1;
r2 := fFoldTree.RemoveFoldForLine(AStartIndex+1, False, ColIndex);
if r2 > 0 then dec(r2);
if (r < 0) or (r2 < r) then r := r2;
if down
then dec(ColIndex)