anchor.diff:        begin
           for i:= 0 to FOptTabHeight div FOptAnimationStepV-1 do
           begin
  -          Data.OffsetVert:= i*FOptAnimationStepV;
  +          FAnimationOffset:= i*FOptAnimationStepV;
             Invalidate;
             Application.ProcessMessages;
             Sleep(FOptAnimationPause);
  
positive.code:     FTabSpecial: boolean;
      FTabSpecialWidth: integer;
      FTabSpecialHeight: integer;
      FTabRectOrig: TRect;
      FTabImageIndex: integer;
      FTabPopupMenu: TPopupMenu;
      FTabFontStyle: TFontStyles;
      FTabStartsNewLine: boolean;
      FTabHideXButton: boolean;
      FTabPosition: TATTabPosition;
      FOffsetHorz: integer;
      FOffsetVert: integer;
      function GetTabRect: TRect;
    public
      constructor Create(ACollection: TCollection); override;
      property TabObject: TObject read FTabObject write FTabObject;
      property TabRect: TRect read GetTabRect;
      property TabRectOrig: TRect read FTabRectOrig write FTabRectOrig;
      property TabSpecial: boolean read FTabSpecial write FTabSpecial default false;
      property TabStartsNewLine: boolean read FTabStartsNewLine write FTabStartsNewLine;
      property TabPosition: TATTabPosition read FTabPosition write FTabPosition;
      property OffsetHorz: integer read FOffsetHorz write FOffsetHorz;
      property OffsetVert: integer read FOffsetVert write FOffsetVert;
    published
      property TabCaption: TATTabString read FTabCaption write FTabCaption;
      property TabHint: TATTabString read FTabHint write FTabHint;
  
negative.code: 
  
  { TATTabData }
  
  constructor TATTabData.Create(ACollection: TCollection);
  begin
  