anchor.diff:    U: TKMUnit;
     H: TKMHouse;
   begin
  +  if fIgnoreMouseUp then
  +  begin
  +    fIgnoreMouseUp := False; //Ignore mouse up only once
  +    Exit;
  +  end;
  +
     if fDragingObject then
     begin
       DragHouseModeEnd;
  
positive.code:   end;
  
    if Button = mbRight then
    begin
      RightClick_Cancel;
    end;
  
    //So terrain brushes start on mouse down not mouse move
    UpdateCursor(X, Y, Shift);
  
negative.code:   //Place a warrior, right click so you are not placing more warriors,
    //select the placed warrior.
  
    // When global tools are used, just cancel the tool, even if some page is open
    if (gGameCursor.Mode <> cmPaintBucket) and (gGameCursor.Mode <> cmUniversalEraser) then
    begin
      //These pages use RMB
      if fGuiTerrain.Visible(ttHeights) then Exit;
      if fGuiTerrain.Visible(ttTile) then Exit;
      if fGuiUnit.Visible then Exit;
      if fGuiHouse.Visible then Exit;
    end;
  
    fGuiTerrain.RightClickCancel;
  
  