anchor.diff:  procedure TEditorFrame.DoLoadHistoryEx(c: TJsonConfig; const path: string);
   var
     str, str0: string;
  -  caret: TATCaretItem;
  +  Caret: TATCaretItem;
     nTop, i: integer;
     items: TStringlist;
   begin
  
positive.code:     FLocked: boolean;
      FTabColor: TColor;
      FFoldTodo: string;
      FTabKeyCollectMarkers: boolean;
      FTagString: string;
      procedure DoOnChangeCaption;
  
negative.code:     FFoldTodo:= '';
      EditorSetFoldString(Editor, S);
    end;
  
    if FTopLineTodo>0 then
    begin
      Editor.LineTop:= FTopLineTodo;
      FTopLineTodo:= 0;
    end;
  end;
  
  procedure TEditorFrame.DoOnUpdateStatus;
  