anchor.diff:    Data.TabPopupMenu:= APopupMenu;
     Data.TabFontStyle:= AFontStyle;
   
  +  if FOptAnimationEnabled then
  +    DoAnimationTabAdd(AIndex);
  +
     Invalidate;
   
     if Assigned(FOnTabMove) then
  
positive.code:     procedure DragDrop(Source: TObject; X, Y: integer); override;
  
      function GetTabRectWidth(APlusBtn: boolean): integer;
      function GetTabRect(AIndex: integer; AWithScroll: boolean= true): TRect;
      function GetTabRect_Plus(AWithScroll: boolean= true): TRect;
      function GetTabRect_X(const ARect: TRect): TRect;
      function GetTabAt(X, Y: integer; out APressedX: boolean): integer;
  
negative.code:   TATTabButtons = array[0..20] of TATTabButton;
  
  type
    TATTabIconPosition = (
      aipIconLefterThanText,
      aipIconRighterThanText,
  