anchor.diff:        if Obj is TKMHouse then
           fDragHouseOffset := KMPointSubtract(TKMHouse(Obj).Entrance, gGameCursor.Cell); //Save drag point adjustement to house position
         fDragObjectReady := True;
  +      fDragObjMousePosStart := KMPoint(X,Y);
       end;
     end;
   
  
positive.code: 
  
  procedure TKMapEdInterface.MouseMove(Shift: TShiftState; X,Y: Integer; var aHandled: Boolean);
  begin
    inherited MouseMove(Shift, X, Y, aHandled);
    if aHandled then Exit;
  
    aHandled := True;
  
    if fDragObjectReady then
    begin
      if not (ssLeft in Shift) then
      begin
  
negative.code:   fDragObjectReady := False;
    fDragingObject := False;
    fDragHouseOffset := KMPOINT_ZERO;
    fDragObjMousePosStart := KMPOINT_ZERO;
    fDragObject := nil;
  
    if gRes.Cursors.Cursor = kmc_Drag then
  