anchor.diff:    i: integer;
   begin
     if AStr='' then Exit;
  +
     if not IsFilenameListedInExtensionList(FileName, EditorOps.OpUnderlineColorFiles)
       then exit;
  +
  +  //avoid color underlines (and background hilite) for line with selection
  +  if Sender=nil then
  +    raise Exception.Create('Sender=nil in TEditorFrame.EditorOnDrawLine');
  +  Ed:= Sender as TATSynEdit;
  +  if Ed.Carets.IsLineWithSelection(ALineIndex) then exit;
  +
     NLineWidth:= EditorOps.OpUnderlineColorSize;
     bColorizeBack:= NLineWidth>=10;
   
  
positive.code: end;
  
  
  procedure TEditorFrame.EditorOnDrawLine(Sender: TObject; C: TCanvas; AX,
    AY: integer; const AStr: atString; ACharSize: TPoint;
    const AExtent: TATIntArray);
  var
    NLineWidth: integer;
    bColorizeBack: boolean;
    X1, X2, Y, NLen: integer;
  
negative.code:     procedure EditorOnCommandAfter(Sender: TObject; ACommand: integer; const AText: string);
      procedure EditorOnDrawBookmarkIcon(Sender: TObject; C: TCanvas; ALineNum: integer; const ARect: TRect);
      procedure EditorOnEnter(Sender: TObject);
      procedure EditorOnDrawLine(Sender: TObject; C: TCanvas; ALineIndex, AX, AY: integer;
        const AStr: atString; ACharSize: TPoint; const AExtent: TATIntArray);
      procedure EditorOnCalcBookmarkColor(Sender: TObject; ABookmarkKind: integer; var AColor: TColor);
      procedure EditorOnHotspotEnter(Sender: TObject; AHotspotIndex: integer);
  