anchor.diff:  end;
   
   procedure TATTabs.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  -begin
  +const
  +  cMaxMoveDuringClick = 8;
  +begin
  +  if FMouseDown and not FMouseDrag then
  +    if (Abs(X-FMouseDownPnt.X) + Abs(Y-FMouseDownPnt.Y)) < cMaxMoveDuringClick then
  +    begin
  +      FMouseDown:= false;
  +      DoHandleClick;
  +      Exit
  +    end;
  +
     FMouseDown:= false;
  -  FMouseDownPnt:= Point(0, 0);
     Cursor:= crDefault;
     Screen.Cursor:= crDefault;
   
  
positive.code:     Exit;
    end;
  
    if Button=mbLeft then
    begin
      case FTabIndexOver of
        cAtArrowDown:
  
negative.code:     FOnTabMove: TATTabMoveEvent;
      FOnTabChangeQuery: TATTabChangeQueryEvent;
  
      procedure DoHandleClick;
      procedure DoPaintTo(C: TCanvas);
      procedure DoPaintBgTo(C: TCanvas; const ARect: TRect);
      procedure DoPaintTabTo(C: TCanvas; ARect: TRect; const ACaption: atString;
  