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

MG: fixed right margin on non text area

Browse Source 
git-svn-id: trunk@2125 -
This commit is contained in:
lazarus 2002-08-17 23:40:59 +00:00
parent dd3f6b64ef
commit 1f576f48df
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedit.pp
View File

@ -3055,13 +3055,16 @@ begin
if (rcToken.Top < rcToken.Bottom) then begin
SetBkColor(dc, ColorToRGB(colEditorBG));
InternalFillRect(dc, rcToken);
{$IFNDEF SYN_LAZARUS}
// Draw the right edge if necessary.
if bDoRightEdge and (not (eoHideRightMargin in Options)) then begin
{$IFDEF SYN_LAZARUS}
LCLLinux.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLLinux.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
{$ELSE}
Windows.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
Windows.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
{$ENDIF}
end;
{$ENDIF}
end;
{$IFDEF SYN_LAZARUS}