anchor.diff:    TATTabMenuItem = {$ifdef TNT} TTntMenuItem {$else} TMenuItem {$endif};
   
   type
  +  TATTabPosition = (
  +    atpTop,
  +    atpBottom,
  +    atpLeft,
  +    atpRight
  +    );
  +
  +type
     { TATTabData }
   
     TATTabData = class(TCollectionItem)
  
positive.code:     FTabSpecial: boolean;
      FTabSpecialWidth: integer;
      FTabSpecialHeight: integer;
      FTabRect: TRect;
      FTabImageIndex: integer;
      FTabPopupMenu: TPopupMenu;
      FTabFontStyle: TFontStyles;
      FTabStartsNewLine: boolean;
      FTabHideXButton: boolean;
    public
      constructor Create(ACollection: TCollection); override;
      property TabObject: TObject read FTabObject write FTabObject;
      property TabRect: TRect read FTabRect write FTabRect;
      property TabSpecial: boolean read FTabSpecial write FTabSpecial default false;
      property TabStartsNewLine: boolean read FTabStartsNewLine write FTabStartsNewLine;
    published
      property TabCaption: TATTabString read FTabCaption write FTabCaption;
      property TabHint: TATTabString read FTabHint write FTabHint;
  
negative.code: 
    if IsIndexOk(AIndex) then
    begin
      if FOptAnimationEnabled then
        DoAnimationTabClose(AIndex);
  
      FTabList.Delete(AIndex);
  
      if AAction=aocDefault then
  