浏览代码

FIX: Viewer - SynEdit gutter separator colors

Alexander Koblov 2 年之前
父节点
当前提交
2d3e4d6760
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      src/fviewer.pas

+ 5 - 0
src/fviewer.pas

@@ -2628,6 +2628,11 @@ begin
     SynEdit.Align:= alClient;
     SynEdit.ReadOnly:= True;
     SynEdit.PopupMenu:= pmEditMenu;
+    with SynEdit.Gutter.SeparatorPart() do
+    begin
+      MarkupInfo.Background:= clWindow;
+      MarkupInfo.Foreground:= clGrayText;
+    end;
     FontOptionsToFont(gFonts[dcfViewer], SynEdit.Font);
     SynEdit.OnMouseWheel:= @SynEditMouseWheel;
     SynEdit.OnStatusChange:= @SynEditStatusChange;