paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:59:12 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/editoroptions.pp
View File

@ -6601,6 +6601,7 @@ var
i, c, j: Integer; i, c, j: Integer;
IDESynEdit: TIDESynEditor; IDESynEdit: TIDESynEditor;
aha: TAdditionalHilightAttribute; aha: TAdditionalHilightAttribute;
col: TColor;
begin begin
ASynEdit.BeginUpdate; ASynEdit.BeginUpdate;
try try
@ -6641,7 +6642,11 @@ begin
Attri := GetUsedAttr(ahaCaretColor); Attri := GetUsedAttr(ahaCaretColor);
if Attri <> nil then begin if Attri <> nil then begin
TIDESynEditor(aSynEdit).CaretColor := Attri.Foreground; 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;
end; end;
SetMarkupColorByClass(ahaHighlightWord, TSynEditMarkupHighlightAllCaret); SetMarkupColorByClass(ahaHighlightWord, TSynEditMarkupHighlightAllCaret);