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

IDE, EditorOpts: fix default color for multicaret

Browse Source 
git-svn-id: trunk@58666 -
This commit is contained in:
martin 2018-08-02 14:42:11 +00:00
parent 7573ca687b
commit 23c3367033
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/editoroptions.pp
View File

@ -6644,9 +6644,9 @@ begin
TIDESynEditor(aSynEdit).CaretColor := Attri.Foreground; TIDESynEditor(aSynEdit).CaretColor := Attri.Foreground;
col := Attri.Background; col := Attri.Background;
if (c = clNone) or (c = clDefault) then if (col = clNone) or (col = clDefault) then
c := $606060; col := $606060;
TIDESynEditor(aSynEdit).MultiCaret.Color := c; TIDESynEditor(aSynEdit).MultiCaret.Color := col;
end; end;
end; end;
SetMarkupColorByClass(ahaHighlightWord, TSynEditMarkupHighlightAllCaret); SetMarkupColorByClass(ahaHighlightWord, TSynEditMarkupHighlightAllCaret);