anchor.diff:    end
     else
     begin
  -    NumLine:= StrToIntDef(SGetItem(SInput, ':'), 0);
  +    Sep.Init(SInput, ':');
  +    Sep.GetItemInt(NumLine, 0);
  +    Sep.GetItemInt(NumCol, 0);
       if NumLine<0 then
         NumLine:= NumCount+NumLine
       else
         Dec(NumLine);
  -    NumCol:= StrToIntDef(SInput, 0) - 1;
  +    Dec(NumCol);
     end;
   
     Result:= NumLine>=0;
  
positive.code: 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 EditorClear(Ed: TATSynEdit);
  function EditorGetCurrentChar(Ed: TATSynEdit): Widechar;
  
negative.code:   Pnt: TPoint;
    bExtend: boolean;
    Caret: TATCaretItem;
    Sep: TATStringSeparator;
  begin
    NumCount:= Ed.Strings.Count;
    if NumCount<2 then exit(false);
  