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