anchor.diff:      DoHandleClick;
       Invalidate;
       Exit
  -  end;
  -
  -  if IsRightClick then
  -  begin
  -    DoHandleRightClick;
  -    Exit;
     end;
   end;
   
  
positive.code: 
  procedure TATTabs.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer);
  var
    IsClick, IsDblClick, IsRightClick: boolean;
  begin
    IsClick:= FMouseDown and
      (Abs(X-FMouseDownPnt.X) < cTabsMouseMaxDistanceToClick) and
      (Abs(Y-FMouseDownPnt.Y) < cTabsMouseMaxDistanceToClick);
    IsDblClick:= IsClick and FMouseDownDbl;
    IsRightClick:= FMouseDownRightBtn and
      (Abs(X-FMouseDownPnt.X) < cTabsMouseMaxDistanceToClick) and
      (Abs(Y-FMouseDownPnt.Y) < cTabsMouseMaxDistanceToClick);
         
    FMouseDown:= false;
    FMouseDownDbl:= false;
  
negative.code: begin
    inherited;
    TabIndex:= FTabIndexLoaded;
  end;
  
  procedure TATTabs.DoContextPopup(MousePos: TPoint; var Handled: Boolean);
  begin
    inherited;
    if not Handled then
    begin
      DoHandleRightClick;
      Handled:= true;
    end;
  end;
  
  function TATTabs.GetButtonsEmpty: boolean;
  