anchor.diff:    begin
       for i:= 0 to High(Bads) do
         Dec(Bads[i]);
  -    EditorHighlightCharsInLine(Ed, 0, Bads, apstSymbolBad);
  +    EditorHighlightCharsInLine(Ed, 0, Bads, apstSymbolBad, cBadRegexTag);
     end;
   end;
   
  
positive.code:   begin
      PartObj:= TATLinePartClass.Create;
      PartObj.Data:= Part;
      Ed.Attribs.Add(AX[i], AY, cBadRegexTag, 1, 0, PartObj);
    end;
  
    Ed.Invalidate;
  end;
  
  procedure EditorHighlightBadRegexBrackets(Ed: TATSynEdit; AOnlyClear: boolean);
  var
    Bads: TATIntArray;
    OpenedRound: TATIntArray;
  
negative.code:   Ar[High(Ar)]:= Val;
  end;
  
  procedure EditorHighlightCharsInLine(Ed: TATSynEdit; AY: integer;
    const AX: TATIntArray; AStyle: TAppThemeStyleId; ATag: integer);
  var
    PartObj: TATLinePartClass;
    Part: TATLinePart;
  