anchor.diff:    if FMouseDownButton=mbLeft then
     begin
       case FTabIndexOver of
  -      cAtArrowDown:
  +      TabIndexArrowMenu:
           begin
             EndDrag(false);
             FTabIndexOver:= -1;
  
positive.code:     AColorXBg:= clNone;
      AColorXBorder:= clNone;
      AColorXMark:= clWhite;
      if FTabIndexOver=cAtTabPlus then
        AType:= aeTabPlusOver
      else
        AType:= aeTabPlus;
  
negative.code:     var ACanChange: boolean) of object;
  
  type
    TATTabTriangle = (
      tabTriDown,
      tabTriLeft,
      tabTriRight
      );
  
    TATTabShowClose = (
      tbShowNone,
      tbShowAll,
      tbShowActive,
      tbShowMouseOver
      );
  
  //int constants for GetTabAt
  const
    TabIndexNone = -1; //none tab
    TabIndexPlus = -2;
    TabIndexArrowMenu = -3;
    TabIndexArrowScrollLeft = -4;
    TabIndexArrowScrollRight = -5;
  
  type
    { TATTabs }
  