anchor.diff:    end;
   end;
   
  +procedure TEditorFrame.SetTabPinned(AValue: boolean);
  +var
  +  Gr: TATGroups;
  +  Pages: TATPages;
  +  NLocalGroups, NGlobalGroup, NTab: integer;
  +  D: TATTabData;
  +begin
  +  FTabPinned:= AValue;
  +  GetFrameLocation(Self, Gr, Pages, NLocalGroups, NGlobalGroup, NTab);
  +  D:= Pages.Tabs.GetTabData(NTab);
  +  if Assigned(D) then
  +  begin
  +    D.TabPinned:= AValue;
  +    Pages.Tabs.Invalidate;
  +  end;
  +end;
  +
   procedure TEditorFrame.DoRemovePreviewStyle;
   var
     Gr: TATGroups;
  
positive.code:     procedure SetReadOnly(Ed: TATSynEdit; AValue: boolean);
      procedure SetTabCaptionAddon(const AValue: string);
      procedure SetTabColor(AColor: TColor);
      procedure SetTabImageIndex(AValue: integer);
      procedure SetUnprintedEnds(AValue: boolean);
      procedure SetUnprintedEndsDetails(AValue: boolean);
  
negative.code:     property Locked: boolean read FLocked write SetLocked;
      property CommentString[Ed: TATSynEdit]: string read GetCommentString;
      property TabColor: TColor read FTabColor write SetTabColor;
      property TabPinned: boolean read FTabPinned write SetTabPinned;
      property TabSizeChanged: boolean read FTabSizeChanged write FTabSizeChanged;
      property TabKeyCollectMarkers: boolean read GetTabKeyCollectMarkers write FTabKeyCollectMarkers;
      property InSession: boolean read FInSession write FInSession;
  