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

SynEdit: FoldGutter: fix background color inside +/- box

Browse Source 
git-svn-id: trunk@25901 -
This commit is contained in:
martin 2010-06-04 20:20:47 +00:00
parent 509da2275f
commit 0d49ef41c9
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/synguttercodefolding.pp
View File

@ -282,13 +282,16 @@ var
rcNode.Top := ptCenter.Y - (BoxSize div 2) + 1;
rcNode.Bottom := ptCenter.Y + (BoxSize div 2);
Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(rcNode);
Canvas.Brush.Style := bsClear;
//draw bottom handle to paragraph line
Canvas.MoveTo(ptCenter.X, rcNode.Bottom);
Canvas.LineTo(ptCenter.X, rcCodeFold.Bottom);
if Collapsed and (MarkupInfo.FrameColor <> clNone) then
Canvas.Pen.Color := MarkupInfo.FrameColor;
Canvas.Rectangle(rcNode);
//draw unfolded sign in node box
Canvas.MoveTo(ptCenter.X - 2, ptCenter.Y);
Canvas.LineTo(ptCenter.X + 3, ptCenter.Y);
@ -300,6 +303,8 @@ var
Canvas.LineTo(ptCenter.X, ptCenter.Y + 3);
end;
LineOffset := 0;
Canvas.Pen.Color := MarkupInfo.Foreground;
Canvas.Brush.Style := bsSolid;
end;
procedure DrawParagraphContinue(rcCodeFold: TRect);