anchor.diff:    Pnt: TPoint;
     bExtend: boolean;
     Caret: TATCaretItem;
  +  Sep: TATStringSeparator;
   begin
     NumCount:= Ed.Strings.Count;
     if NumCount<2 then exit(false);
  
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: procedure EditorRestoreTempOptions(Ed: TATSynEdit; const Ops: TATEditorTempOps);
  procedure EditorFocus(C: TWinControl);
  procedure EditorMouseClick_AtCursor(Ed: TATSynEdit; AAndSelect: boolean);
  procedure EditorMouseClick_NearCaret(Ed: TATSynEdit; const AParams: string; AAndSelect: boolean);
  
  procedure EditorClear(Ed: TATSynEdit);
  function EditorGetCurrentChar(Ed: TATSynEdit): Widechar;
  