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

IDE, EditorOpts: fix default color for multicaret

Browse Source 
git-svn-id: trunk@58664 -
This commit is contained in:
martin 2018-08-02 10:03:16 +00:00
parent 416b61b5e3
commit 2ebe6b1bf7
1 changed files with 6 additions and 1 deletions

7
ide/editoroptions.pp
View File

@ -6601,6 +6601,7 @@ var
i, c, j: Integer;
IDESynEdit: TIDESynEditor;
aha: TAdditionalHilightAttribute;
col: TColor;
begin
ASynEdit.BeginUpdate;
try
@ -6641,7 +6642,11 @@ begin
Attri := GetUsedAttr(ahaCaretColor);
if Attri <> nil then begin
TIDESynEditor(aSynEdit).CaretColor := Attri.Foreground;
TIDESynEditor(aSynEdit).MultiCaret.Color := Attri.Background;
col := Attri.Background;
if (c = clNone) or (c = clDefault) then
c := $606060;
TIDESynEditor(aSynEdit).MultiCaret.Color := c;
end;
end;
SetMarkupColorByClass(ahaHighlightWord, TSynEditMarkupHighlightAllCaret);