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:     {$endif}
      procedure DragOver(Source: TObject; X, Y: integer; State: TDragState; var Accept: Boolean); override;
      procedure Loaded; override;
      procedure DoContextPopup(MousePos: TPoint; var Handled: Boolean); override;
  
    published
      //inherited
  