anchor.diff:  var
     NPos: integer;
   begin
  +  if FOptMultiline then exit;
  +
     NPos:= Max(0, FScrollPos-GetScrollPageSize);
     if NPos<>FScrollPos then
       DoScrollAnimation(NPos);
  
positive.code:   Data: TATTabData;
    R: TRect;
    Extent: TSize;
    NWidthPlus, NIndexLineStart, NLineHeight, i: integer;
  begin
    //left/right tabs
    if FOptPosition in [atpLeft, atpRight] then
  
negative.code:     property TabImageIndex: integer read FTabImageIndex write FTabImageIndex default -1;
      property TabFontStyle: TFontStyles read FTabFontStyle write FTabFontStyle default [];
      property TabPopupMenu: TPopupMenu read FTabPopupMenu write FTabPopupMenu;
      property TabSpecialWidth: integer read FTabSpecialWidth write FTabSpecialWidth default 0;
      property TabSpecialHeight: integer read FTabSpecialHeight write FTabSpecialHeight default 0;
    end;
  
  type
  