anchor.diff:  
   { TATTabData }
   
  +function TATTabData.GetTabRect: TRect;
  +begin
  +  Result:= FTabRectOrig;
  +  case FTabPosition of
  +    atpTop:
  +      Inc(Result.Top, FOffsetVert);
  +    atpBottom:
  +      Dec(Result.Bottom, FOffsetVert);
  +    atpLeft:
  +      Inc(Result.Left, FOffsetHorz);
  +    atpRight:
  +      Dec(Result.Right, FOffsetHorz);
  +  end;
  +end;
  +
   constructor TATTabData.Create(ACollection: TCollection);
   begin
     inherited;
  
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:   Data.TabPopupMenu:= APopupMenu;
    Data.TabFontStyle:= AFontStyle;
  
    if FOptAnimationEnabled then
      DoAnimationTabAdd(AIndex);
  
    Invalidate;
  
    if Assigned(FOnTabMove) then
  