anchor.diff:    FTabAngle:= 4;
     FTabAngleMaxTabs:= 10;
     FTabHeight:= 24;
  -  FTabWidthMin:= 20;
  +  FTabWidthMin:= 40;
     FTabWidthMax:= 130;
     FTabWidthHideX:= 55;
     FTabNumPrefix:= '';
  
positive.code: 
        cAtArrowScrollLeft:
          begin
            Dec(FScrollPos, FTabWidth);
            if FScrollPos<0 then
              FScrollPos:= 0;
            Invalidate;
          end;
  
        cAtArrowScrollRight:
          begin
            Inc(FScrollPos, FTabWidth);
            Invalidate;
          end;
  
        cAtTabPlus:
  
negative.code:     procedure DoPaintXTo(C: TCanvas; const R: TRect; ATabBg, ATabCloseBg,
        ATabCloseBorder, ATabCloseXMark: TColor);
      procedure DoPaintDropMark(C: TCanvas);
      procedure DoScrollAnimation(APosTo: integer);
      procedure GetRectArrowDown(out R: TRect);
      procedure GetRectArrowLeftRight(out RL, RR: TRect);
      function GetScrollPageSize: integer;
      function RealTabAngle: Integer;
      procedure SetTabAngle(AValue: Integer);
      procedure SetTabAngleMaxTabs(AValue: Integer);
  