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

SynEdit: Fix a drawing bug, if a framed word is partly invalidated.

Browse Source 
git-svn-id: trunk@28923 -
This commit is contained in:
martin 2011-01-09 14:49:24 +00:00
parent e600f4af83
commit 3c87ebe10d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synedit.pp
View File

@ -3400,8 +3400,10 @@ var
end;
// Paint the chars
rcToken.Right := ScreenColumnToXValue(TokenAccu.PhysicalEndPos+1);
if rcToken.Right > AClip.Right then
if rcToken.Right > AClip.Right then begin
rcToken.Right := AClip.Right;
fTextDrawer.FrameColor[sfdRight] := clNone; // right side of char is not painted
end;
with TokenAccu do PaintToken(p, Len, PhysicalStartPos);
end;
@ -3511,7 +3513,10 @@ var
FTextDrawer.FrameStyle[side] := FoldedCodeInfo.FrameStyle;
end;
end;
rcToken.Right := Min(rcToken.Right, rcLine.Right);
if rcToken.Right > rcLine.Right then begin
rcToken.Right := rcLine.Right;
fTextDrawer.FrameColor[sfdRight] := clNone; // right side of char is not painted
end;
if rcToken.Right > rcToken.Left then begin
if ForceEto then fTextDrawer.ForceNextTokenWithEto;
fTextDrawer.ExtTextOut(rcToken.Left, rcToken.Top, ETOOptions-ETO_OPAQUE,