anchor.diff:      if extractFilePath(fProject.getAbsoluteSourceName(i)) = dir then
         fProject.Sources.Delete(i);
     fProject.endUpdate;
  -  UpdateByEvent;
   end;
   
   procedure TCEProjectInspectWidget.btnRemFileClick(Sender: TObject);
  
positive.code:   begin
      i := Tree.Selected.Index;
      fProject.ConfigurationIndex := i;
      UpdateByEvent;
    end;
  end;
  
  
negative.code:   begin
      fname := Tree.Selected.Text;
      i := fProject.Sources.IndexOf(fname);
      if i > -1 then begin
        fProject.beginUpdate;
        fProject.Sources.Delete(i);
        fProject.endUpdate;
      end;
    end;
  end;
  
  