paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 10:55:56 +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.Top := ptCenter.Y - (BoxSize div 2) + 1;
rcNode.Bottom := ptCenter.Y + (BoxSize div 2); rcNode.Bottom := ptCenter.Y + (BoxSize div 2);
Canvas.Brush.Color:=clWhite; Canvas.Brush.Style := bsClear;
Canvas.Rectangle(rcNode);
//draw bottom handle to paragraph line //draw bottom handle to paragraph line
Canvas.MoveTo(ptCenter.X, rcNode.Bottom); Canvas.MoveTo(ptCenter.X, rcNode.Bottom);
Canvas.LineTo(ptCenter.X, rcCodeFold.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 //draw unfolded sign in node box
Canvas.MoveTo(ptCenter.X - 2, ptCenter.Y); Canvas.MoveTo(ptCenter.X - 2, ptCenter.Y);
Canvas.LineTo(ptCenter.X + 3, ptCenter.Y); Canvas.LineTo(ptCenter.X + 3, ptCenter.Y);
@ -300,6 +303,8 @@ var
Canvas.LineTo(ptCenter.X, ptCenter.Y + 3); Canvas.LineTo(ptCenter.X, ptCenter.Y + 3);
end; end;
LineOffset := 0; LineOffset := 0;
Canvas.Pen.Color := MarkupInfo.Foreground;
Canvas.Brush.Style := bsSolid;
end; end;
procedure DrawParagraphContinue(rcCodeFold: TRect); procedure DrawParagraphContinue(rcCodeFold: TRect);