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:     fMouseDownOnMap: Boolean;
  
      // Drag object feature fields
      fDraggingObject: 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
  
  
negative.code:       fDragObject := Obj;
        if Obj is TKMHouse then
          fDragHouseOffset := KMPointSubtract(TKMHouse(Obj).Entrance, gGameCursor.Cell); //Save drag point adjustement to house position
        fDragObjectReady := True;
      end;
    end;
  
  