anchor.diff:    end;
   
     if Button = mbRight then
  -  begin
       RightClick_Cancel;
  -  end;
   
     //So terrain brushes start on mouse down not mouse move
     UpdateCursor(X, Y, Shift);
  
positive.code:   ResetCursorMode;
    //Reset drag object fields
    ResetDragObject;
  end;
  
  
  
negative.code:   U: TKMUnit;
    H: TKMHouse;
  begin
    if fIgnoreMouseUp then
    begin
      fIgnoreMouseUp := False; //Ignore mouse up only once
      Exit;
    end;
  
    if fDragingObject then
    begin
      DragHouseModeEnd;
  