anchor.diff:  
         cAtArrowScrollLeft:
           begin
  -          Dec(FScrollPos, FTabWidth);
  -          if FScrollPos<0 then
  -            FScrollPos:= 0;
  -          Invalidate;
  +          DoScrollLeft;
           end;
   
         cAtArrowScrollRight:
           begin
  -          Inc(FScrollPos, FTabWidth);
  -          Invalidate;
  +          DoScrollRight;
           end;
   
         cAtTabPlus:
  
positive.code:   FTabAngle:= 4;
    FTabAngleMaxTabs:= 10;
    FTabHeight:= 24;
    FTabWidthMin:= 20;
    FTabWidthMax:= 130;
    FTabWidthHideX:= 55;
    FTabNumPrefix:= '';
  
negative.code:     procedure SwitchTab(ANext: boolean);
      procedure MoveTab(AFrom, ATo: integer; AActivateThen: boolean);
      procedure DragDrop(Source: TObject; X, Y: Integer); override;
      procedure DoScrollLeft;
      procedure DoScrollRight;
    protected
      procedure Paint; override;
      procedure Resize; override;
  