anchor.diff:  procedure EditorRestoreTempOptions(Ed: TATSynEdit; const Ops: TATEditorTempOps);
   procedure EditorFocus(C: TWinControl);
   procedure EditorMouseClick_AtCursor(Ed: TATSynEdit; AAndSelect: boolean);
  -procedure EditorMouseClick_NearCaret(Ed: TATSynEdit; AParams: string; AAndSelect: boolean);
  +procedure EditorMouseClick_NearCaret(Ed: TATSynEdit; const AParams: string; AAndSelect: boolean);
   
   procedure EditorClear(Ed: TATSynEdit);
   function EditorGetCurrentChar(Ed: TATSynEdit): Widechar;
  
positive.code:   end
    else
    begin
      NumLine:= StrToIntDef(SGetItem(SInput, ':'), 0);
      if NumLine<0 then
        NumLine:= NumCount+NumLine
      else
        Dec(NumLine);
      NumCol:= StrToIntDef(SInput, 0) - 1;
    end;
  
    Result:= NumLine>=0;
  
negative.code:   Ed.Update;
  end;
  
  procedure EditorMouseClick_NearCaret(Ed: TATSynEdit; const AParams: string; AAndSelect: boolean);
  var
    X, Y: integer;
    Caret: TATCaretItem;
    Sep: TATStringSeparator;
  begin
    Sep.Init(AParams);
    Sep.GetItemInt(X, MaxInt);
    Sep.GetItemInt(Y, MaxInt);
    if X=MaxInt then exit;
    if Y=MaxInt then exit;
  
  