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

synedit codefolding: fixed first line number of folded block

Browse Source 
git-svn-id: trunk@9994 -
This commit is contained in:
mattias 2006-09-27 18:02:52 +00:00
parent af761c503e
commit 037fd36454
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2982,7 +2982,7 @@ begin
rcLine.Top := rcLine.Bottom; rcLine.Top := rcLine.Bottom;
// erase the background and draw the line number string in one go // erase the background and draw the line number string in one go
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
if not TSynEditStringList(fLines).Folded[iLine] then begin if not TSynEditStringList(fLines).Folded[iLine-1] then begin
s := fGutter.FormatLineNumber(iLine); s := fGutter.FormatLineNumber(iLine);
Inc(rcLine.Bottom, fTextHeight); Inc(rcLine.Bottom, fTextHeight);
fTextDrawer.ExtTextOut(CodeFoldOffset+fGutter.LeftOffset, fTextDrawer.ExtTextOut(CodeFoldOffset+fGutter.LeftOffset,