paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SynEdit: MarkupFoldColor, more options to set colors

Browse Source 
git-svn-id: trunk@58582 -
This commit is contained in:
martin 2018-07-20 01:30:54 +00:00
parent ef438f7a45
commit 8a8a17eb3c
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/frames/editor_color_options.pas
View File

@ -293,15 +293,19 @@ begin
// Special draw oultine color
if Attri.Group = agnOutlineColors then begin
c := Attri.Foreground;
c := Attri.MarkupFoldLineColor;
if c <> clNone then begin
TheTree.Canvas.Pen.Color := c;
TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Top+2);
TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Bottom-2);
TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Top+2);
TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Bottom-2);
TheTree.Canvas.MoveTo(NodeRect.Left+2, NodeRect.Top+2);
TheTree.Canvas.LineTo(NodeRect.Left+2, NodeRect.Bottom-2);
TheTree.Canvas.MoveTo(NodeRect.Left+2+1, NodeRect.Top+2);
TheTree.Canvas.LineTo(NodeRect.Left+2+1, NodeRect.Bottom-2);
end;
exit;
NodeRect.Left := NodeRect.Left + 6;
FullAbcWidth := FullAbcWidth - 6;
TheTree.Canvas.Brush.Color := Attri.Background;
TheTree.Canvas.FillRect(NodeRect.Left+2, NodeRect.Top+2, NodeRect.Left+FullAbcWidth-2, NodeRect.Bottom-2);
// exit;
end;
// Draw preview Frame
@ -367,6 +371,8 @@ begin
s:= '---';
if AttriIdx = ord(ahaLineNumber) then
s:= '123';
if Attri.Group = agnOutlineColors then
s:= 'ab';
TheTree.Canvas.Font.Color := c;
TheTree.Canvas.Font.Style := Attri.Style;
TheTree.Canvas.Font.Height := -(NodeRect.Bottom - NodeRect.Top - 7);