anchor.diff:  
   
   procedure TKMapEdInterface.MouseMove(Shift: TShiftState; X,Y: Integer; var aHandled: Boolean);
  +const
  +  DRAG_OBJECT_MOUSE_MOVE_DIST = 15; //distance in pixels, when drag object mode starts
   begin
     inherited MouseMove(Shift, X, Y, aHandled);
     if aHandled then Exit;
   
     aHandled := True;
   
  -  if fDragObjectReady then
  +  if fDragObjectReady and (KMLength(fDragObjMousePosStart, KMPoint(X,Y)) > DRAG_OBJECT_MOUSE_MOVE_DIST) then
     begin
       if not (ssLeft in Shift) then
       begin
  
positive.code:       if Obj is TKMHouse then
          fDragHouseOffset := KMPointSubtract(TKMHouse(Obj).Entrance, gGameCursor.Cell); //Save drag point adjustement to house position
        fDragObjectReady := True;
      end;
    end;
  
  
negative.code: 
      // Drag object feature fields
      fDragObjectReady: Boolean;   // Ready to start drag object
      fDragObjMousePosStart: TKMPoint;
      fDragingObject: Boolean;     // Flag when drag object is happening
      fDragObject: TObject;        // Object to drag
      fDragHouseOffset: TKMPoint;  // Offset for house position, to let grab house with any of its points
  