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

synedit: codefolding: fixed show line numbers on folded items

Browse Source 
git-svn-id: trunk@9985 -
This commit is contained in:
mattias 2006-09-26 20:37:24 +00:00
parent 1d762813f8
commit 65781b3ebf
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synedit.pp
View File

@ -2929,16 +2929,20 @@ begin
for iLine := FirstLine to LastLine do begin
// next line rect
rcLine.Top := rcLine.Bottom;
Inc(rcLine.Bottom, fTextHeight);
// erase the background and draw the line number string in one go
s := fGutter.FormatLineNumber(iLine);
{$IFDEF SYN_LAZARUS}
if not TSynEditStringList(fLines).Folded[iLine] then
if not TSynEditStringList(fLines).Folded[iLine] then begin
Inc(rcLine.Bottom, fTextHeight);
if fGutter.ShowCodeFolding then
fTextDrawer.ExtTextOut(fGutter.LeftOffset + fGutter.CodeFoldingWidth, rcLine.Top, ETO_OPAQUE,rcLine,PChar(S),Length(S))
fTextDrawer.ExtTextOut(fGutter.LeftOffset + fGutter.CodeFoldingWidth,
rcLine.Top, ETO_OPAQUE,rcLine,PChar(S),Length(S))
else
fTextDrawer.ExtTextOut(fGutter.LeftOffset, rcLine.Top, ETO_OPAQUE,rcLine,PChar(S),Length(S));
fTextDrawer.ExtTextOut(fGutter.LeftOffset,
rcLine.Top, ETO_OPAQUE,rcLine,PChar(S),Length(S));
end;
{$ELSE}
Inc(rcLine.Bottom, fTextHeight);
Windows.ExtTextOut(DC, fGutter.LeftOffset, rcLine.Top, ETO_OPAQUE,
@rcLine, PChar(s), Length(s), nil);
{$ENDIF}