anchor.diff:      {$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
  
positive.code:     DoHandleClick;
      Invalidate;
      Exit
    end;
  
    if IsRightClick then
    begin
      DoHandleRightClick;
      Exit;
    end;
  end;
  
  
negative.code: 
  procedure TATTabs.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer);
  var
    IsClick, IsDblClick: 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;
  