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

SynEdit: code formatting only. Issue #0026309

Browse Source 
git-svn-id: trunk@46371 -
This commit is contained in:
martin 2014-09-30 13:36:47 +00:00
parent 6c44e911b9
commit 49860d6d3d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/lazsyntextarea.pp
View File

@ -1693,7 +1693,7 @@ var
fMarkupManager.FinishMarkupForRow(CurTextIndex+1);
end;
CurLine:=-1;
CurLine := -1;
AClip.Top := rcLine.Bottom;
end;
@ -1720,11 +1720,11 @@ begin
colEditorBG := BackgroundColor;
// If the right edge is visible and in the invalid area, prepare to paint it.
// Do this first to realize the pen when getting the dc variable.
bDoRightEdge := FALSE;
bDoRightEdge := False;
if FRightEdgeVisible then begin // column value
nRightEdge := FTextBounds.Left + (RightEdgeColumn - LeftChar + 1) * CharWidth; // pixel value
if (nRightEdge >= AClip.Left) and (nRightEdge <= AClip.Right) then
bDoRightEdge := TRUE;
bDoRightEdge := True;
if nRightEdge > AClip.Right then
nRightEdge := AClip.Right; // for divider draw lines (don't draw into right gutter)
end