anchor.diff:      var ACanChange: boolean) of object;
   
   type
  -  TATTabTriangle = (tabTriDown, tabTriLeft, tabTriRight);
  -  TATTabShowClose = (tbShowNone, tbShowAll, tbShowActive, tbShowMouseOver);
  +  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;
  +  TabIndexNone = -1; //none tab
  +  TabIndexPlus = -2;
  +  TabIndexArrowMenu = -3;
  +  TabIndexArrowScrollLeft = -4;
  +  TabIndexArrowScrollRight = -5;
   
   type
     { TATTabs }
  
positive.code:   if FTabShowMenu then
      if PtInRect(RDown, Pnt) then
      begin
        Result:= cAtArrowDown;
        Exit
      end;
  
  
negative.code:   if FMouseDownButton=mbLeft then
    begin
      case FTabIndexOver of
        TabIndexArrowMenu:
          begin
            EndDrag(false);
            FTabIndexOver:= -1;
  