paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 15:19:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: outline color / debug gutter: fix 1 based index

Browse Source 
git-svn-id: trunk@57520 -
This commit is contained in:
martin 2018-03-17 13:36:05 +00:00
parent a993ca4fed
commit c47fffce1e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkupfoldcoloring.pas
View File

@ -204,7 +204,7 @@ begin
for i := FirstLine to LastLine do for i := FirstLine to LastLine do
begin begin
iLine := FoldView.DisplayNumber[i]; iLine := FoldView.DisplayNumber[i];
if (iLine < 0) or (iLine >= c) then break; if (iLine <= 0) or (iLine > c) then break;
// next line rect // next line rect
rcLine.Top := rcLine.Bottom; rcLine.Top := rcLine.Bottom;
rcLine.Bottom := rcLine.Bottom + LineHeight; rcLine.Bottom := rcLine.Bottom + LineHeight;
@ -223,7 +223,7 @@ begin
end; end;
s := IntToStr(FOwner.fFoldColorInfosCount) + s; s := IntToStr(FOwner.fFoldColorInfosCount) + s;
if iLine < length(FOwner.fFirstCharacterPhysColCache) then if iLine < length(FOwner.fFirstCharacterPhysColCache) then
s := s + ', '+IntToStr(FOwner.fFirstCharacterPhysColCache[iLine]); s := s + ', '+IntToStr(FOwner.fFirstCharacterPhysColCache[ToIdx(iLine)]);
TextDrawer.ExtTextOut(rcLine.Left, rcLine.Top, ETO_OPAQUE or ETO_CLIPPED, rcLine, TextDrawer.ExtTextOut(rcLine.Left, rcLine.Top, ETO_OPAQUE or ETO_CLIPPED, rcLine,
PChar(Pointer(S)),Length(S)); PChar(Pointer(S)),Length(S));