anchor.diff:      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; AX, AY: integer;
  +    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);
  
positive.code:   i: integer;
  begin
    if AStr='' then Exit;
    if not IsFilenameListedInExtensionList(FileName, EditorOps.OpUnderlineColorFiles)
      then exit;
    NLineWidth:= EditorOps.OpUnderlineColorSize;
    bColorizeBack:= NLineWidth>=10;
  
  
negative.code: end;
  
  
  procedure TEditorFrame.EditorOnDrawLine(Sender: TObject; C: TCanvas;
    ALineIndex, AX, AY: integer; const AStr: atString; ACharSize: TPoint;
    const AExtent: TATIntArray);
  var
    Ed: TATSynEdit;
    NLineWidth: integer;
    bColorizeBack: boolean;
    X1, X2, Y, NLen: integer;
  