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:   Ed.Update;
  end;
  
  procedure EditorMouseClick_NearCaret(Ed: TATSynEdit; AParams: string; AAndSelect: boolean);
  var
    X, Y: integer;
    Caret: TATCaretItem;
  begin
    X:= StrToIntDef(SGetItem(AParams), MaxInt);
    Y:= StrToIntDef(SGetItem(AParams), MaxInt);
    if X=MaxInt then exit;
    if Y=MaxInt then exit;
  
  
negative.code:   Pnt: TPoint;
    bExtend: boolean;
    Caret: TATCaretItem;
    Sep: TATStringSeparator;
  begin
    NumCount:= Ed.Strings.Count;
    if NumCount<2 then exit(false);
  