anchor.diff:    end;
   end;
   
  -procedure TEditorFrame.SetTabExtModified(AValue: boolean);
  +function TEditorFrame.GetTabExtModified(EdIndex: integer): boolean;
  +begin
  +  Result:= FTabExtModified[EdIndex];
  +end;
  +
  +function TEditorFrame.GetTabExtDeleted(EdIndex: integer): boolean;
  +begin
  +  Result:= FTabExtDeleted[EdIndex];
  +end;
  +
  +procedure TEditorFrame.SetTabExtModified(EdIndex: integer; AValue: boolean);
   var
     Gr: TATGroups;
     Pages: TATPages;
     NLocalGroups, NGlobalGroup, NTab: integer;
     D: TATTabData;
   begin
  -  if FTabExtModified=AValue then exit;
  -  FTabExtModified:= AValue;
  +  if FTabExtModified[EdIndex]=AValue then exit;
  +  FTabExtModified[EdIndex]:= AValue;
     GetFrameLocation(Self, Gr, Pages, NLocalGroups, NGlobalGroup, NTab);
     D:= Pages.Tabs.GetTabData(NTab);
     if Assigned(D) then
     begin
  -    D.TabExtModified:= AValue;
  +    if EdIndex=0 then
  +      D.TabExtModified:= AValue
  +    else
  +      D.TabExtModified2:= AValue;
       Pages.Tabs.Invalidate;
     end;
   end;
   
  -procedure TEditorFrame.SetTabExtDeleted(AValue: boolean);
  +procedure TEditorFrame.SetTabExtDeleted(EdIndex: integer; AValue: boolean);
   var
     Gr: TATGroups;
     Pages: TATPages;
     NLocalGroups, NGlobalGroup, NTab: integer;
     D: TATTabData;
   begin
  -  if FTabExtDeleted=AValue then exit;
  -  FTabExtDeleted:= AValue;
  +  if FTabExtDeleted[EdIndex]=AValue then exit;
  +  FTabExtDeleted[EdIndex]:= AValue;
     GetFrameLocation(Self, Gr, Pages, NLocalGroups, NGlobalGroup, NTab);
     D:= Pages.Tabs.GetTabData(NTab);
     if Assigned(D) then
     begin
  -    D.TabExtDeleted:= AValue;
  +    if EdIndex=0 then
  +      D.TabExtDeleted:= AValue
  +    else
  +      D.TabExtDeleted2:= AValue;
       Pages.Tabs.Invalidate;
     end;
   end;
  
positive.code:     FInitialLexer2: TecSyntAnalyzer;
      FSaveHistory: boolean;
      FEditorsLinked: boolean;
      FCachedTreeview: array[0..1] of TTreeView;
      FLexerBackup: array[0..1] of TATAdapterHilite;
      FLexerChooseFunc: TecLexerChooseFunc;
  
negative.code:     property CommentString[Ed: TATSynEdit]: string read GetCommentString;
      property TabColor: TColor read FTabColor write SetTabColor;
      property TabFontColor: TColor read FTabFontColor write SetTabFontColor;
      property TabPinned: boolean read FTabPinned write SetTabPinned;
      property TabExtModified[EdIndex: integer]: boolean read GetTabExtModified write SetTabExtModified;
      property TabExtDeleted[EdIndex: integer]: boolean read GetTabExtDeleted write SetTabExtDeleted;
      property TabSizeChanged: boolean read FTabSizeChanged write FTabSizeChanged;
      property TabKeyCollectMarkers: boolean read GetTabKeyCollectMarkers write FTabKeyCollectMarkers;
      property InSession: boolean read FInSession write FInSession;
  