anchor.diff:    begin
       if PtInRect(RScrollL, Pnt) then
       begin
  -      Result:= cAtArrowScrollLeft;
  +      Result:= TabIndexArrowScrollLeft;
         Exit
       end;
   
       if PtInRect(RScrollR, Pnt) then
       begin
  -      Result:= cAtArrowScrollRight;
  +      Result:= TabIndexArrowScrollRight;
         Exit
       end;
     end;
  
positive.code:     var ACanChange: boolean) of object;
  
  type
    TATTabTriangle = (tabTriDown, tabTriLeft, tabTriRight);
    TATTabShowClose = (tbShowNone, tbShowAll, tbShowActive, tbShowMouseOver);
  
  //int constants for GetTabAt
  const
    cAtTabNone = -1; //none tab
    cAtTabPlus = -2;
    cAtArrowDown = -3;
    cAtArrowScrollLeft = -4;
    cAtArrowScrollRight = -5;
  
  type
    { TATTabs }
  
negative.code:   if FTabShowMenu then
      if PtInRect(RDown, Pnt) then
      begin
        Result:= TabIndexArrowMenu;
        Exit
      end;
  
  