anchor.diff:    i: Integer;
     RBottom: TRect;
     AColorXBg, AColorXBorder, AColorXMark: TColor;
  -  ARect, ARectArrowDown, FRectArrowLeft, FRectArrowRight: TRect;
  +  ARect, FRectArrowDown, FRectArrowLeft, FRectArrowRight: TRect;
     AType: TATTabElemType;
     Data: TATTabData;
   begin
  
positive.code:     FTabList: TList;
      FTabMenu: TatPopupMenu;
  
      FImages: TImageList;
      FBitmap: TBitmap;
      FOnTabClick: TNotifyEvent;
  
negative.code: var
    i: Integer;
    Pnt: TPoint;
    R1, RDown, RScrollL, RScrollR: TRect;
  begin
    Result:= -1;
    Pnt:= Point(X, Y);
  
    //arrows?
    GetRectArrowDown(RDown);
    GetRectArrowLeftRight(RScrollL, RScrollR);
  
    if FTabShowScrollArrows then
    begin
      if PtInRect(RScrollL, Pnt) then
      begin
        Result:= cAtArrowScrollLeft;
        Exit
      end;
  
      if PtInRect(RScrollR, Pnt) then
      begin
        Result:= cAtArrowScrollRight;
        Exit
      end;
    end;
  
    if FTabShowMenu then
      if PtInRect(RDown, Pnt) then
  