paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 02:37:37 +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 // Special draw oultine color
if Attri.Group = agnOutlineColors then begin if Attri.Group = agnOutlineColors then begin
c := Attri.Foreground; c := Attri.MarkupFoldLineColor;
if c <> clNone then begin if c <> clNone then begin
TheTree.Canvas.Pen.Color := c; TheTree.Canvas.Pen.Color := c;
TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Top+2); TheTree.Canvas.MoveTo(NodeRect.Left+2, NodeRect.Top+2);
TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Bottom-2); TheTree.Canvas.LineTo(NodeRect.Left+2, NodeRect.Bottom-2);
TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Top+2); TheTree.Canvas.MoveTo(NodeRect.Left+2+1, NodeRect.Top+2);
TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Bottom-2); TheTree.Canvas.LineTo(NodeRect.Left+2+1, NodeRect.Bottom-2);
end; 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; end;
// Draw preview Frame // Draw preview Frame
@ -367,6 +371,8 @@ begin
s:= '---'; s:= '---';
if AttriIdx = ord(ahaLineNumber) then if AttriIdx = ord(ahaLineNumber) then
s:= '123'; s:= '123';
if Attri.Group = agnOutlineColors then
s:= 'ab';
TheTree.Canvas.Font.Color := c; TheTree.Canvas.Font.Color := c;
TheTree.Canvas.Font.Style := Attri.Style; TheTree.Canvas.Font.Style := Attri.Style;
TheTree.Canvas.Font.Height := -(NodeRect.Bottom - NodeRect.Top - 7); TheTree.Canvas.Font.Height := -(NodeRect.Bottom - NodeRect.Top - 7);