anchor.diff:      procedure SetFileName(const AValue: string);
       procedure SetFileName2(AValue: string);
       procedure SetFileWasBig(AValue: boolean);
  +    procedure SetLexer_Ex(Ed: TATSynEdit; an: TecSyntAnalyzer);
       procedure SetLocked(AValue: boolean);
       procedure SetModified(AValue: boolean);
       procedure SetNotifEnabled(AValue: boolean);
  
positive.code:     Ed1: TATSynEdit;
      Ed2: TATSynEdit;
      Adapter: TATAdapterEControl;
      Groups: TATGroups;
      CachedTreeview: TTreeView;
  
  
negative.code: begin
    if FEditorsLinked=AValue then exit;
    FEditorsLinked:= AValue;
  
    if FEditorsLinked then
      Ed2.Strings:= Ed1.Strings
    else
      Ed2.Strings:= nil;
  
    Adapter.AddEditor(nil);
    if Assigned(Adapter2) then
      Adapter2.AddEditor(nil);
  
    if FEditorsLinked then
    begin
      Adapter.AddEditor(Ed1);
      Adapter.AddEditor(Ed2);
    end
    else
    begin
      if Adapter2=nil then
        Adapter2:= TATAdapterEControl.Create(Self);
      Adapter.AddEditor(Ed1);
      Adapter2.AddEditor(Ed2);
    end;
  
    Ed2.Fold.Clear;
    Ed2.Update(true);
  end;
  
  