anchor.diff:              begin
                 EndDrag(false);
                 DeleteTab(FTabIndexOver, true, true);
  -              Exit
               end;
             end;
           end;
  
positive.code:     case FTabIndexOver of
        cAtArrowDown:
          begin
            FMouseDown:= false;
            EndDrag(false);
            FTabIndexOver:= -1;
            Invalidate;
            ShowTabMenu;
            Exit
          end;
  
        cAtTabPlus:
          begin
            FMouseDown:= false;
            EndDrag(false);
            FTabIndexOver:= -1;
            if Assigned(FOnTabPlusClick) then
              FOnTabPlusClick(Self);
            Exit;
          end;
  
        else
  
negative.code: end;
  
  procedure TATTabs.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
    if FMouseDown and not FMouseDrag then
      if (Abs(X-FMouseDownPnt.X) < cTabsMouseMaxDistanceToClick) and
         (Abs(Y-FMouseDownPnt.Y) < cTabsMouseMaxDistanceToClick) then
      begin
        FMouseDown:= false;
        DoHandleClick;
  