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

SynEdit: Painting issue with Syncro icon

Browse Source 
git-svn-id: trunk@35446 -
This commit is contained in:
martin 2012-02-18 14:20:00 +00:00
parent 830b96806b
commit 90f044e433
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synpluginsyncroedit.pp
View File

@ -739,13 +739,15 @@ begin
if FGlyphLastLine <> -2 then begin
if SynEdit.HandleAllocated then begin
rcInval := GetGutterGlyphRect(FGlyphLastLine);
// and make sure we trigger the Markup // TODO: triigger markup on gutter paint too
rcInval.Right := Max(rcInval.Right, TCustomSynEdit(SynEdit).ClientRect.Right);
InvalidateRect(SynEdit.Handle, @rcInval, False);
end;
end;
if SynEdit.HandleAllocated then begin
rcInval := GetGutterGlyphRect;
// and make sure we trigger the Markup // TODO: triigger markup on gutter paint too
rcInval.Right := Max(rcInval.Right, TCustomSynEdit(SynEdit).Gutter.Width + 2);
rcInval.Right := Max(rcInval.Right, TCustomSynEdit(SynEdit).ClientRect.Right);
InvalidateRect(SynEdit.Handle, @rcInval, False);
end;
end;