anchor.diff:  
     aHandled := True;
   
  -  if fDraggingObject then
  +  if fDragObjectReady then
  +  begin
       if not (ssLeft in Shift) then
       begin
         ResetDragObject;
         Exit;
  -    end else
  +    end else begin
         gRes.Cursors.Cursor := kmc_Drag;
  +      fDragingObject := True;
  +    end;
  +  end;
   
     fMyControls.MouseMove(X,Y,Shift);
   
  
positive.code:       fDragObject := Obj;
        if Obj is TKMHouse then
          fDragHouseOffset := KMPointSubtract(TKMHouse(Obj).Entrance, gGameCursor.Cell); //Save drag point adjustement to house position
        fDraggingObject := True;
      end;
    end;
  
  
negative.code: 
  function TKMapEdInterface.IsDragHouseModeOn: Boolean;
  begin
    Result := fDragingObject and (fDragObject is TKMHouse) and (gGameCursor.Mode = cmHouses);
  end;
  
  
  