anchor.diff:      if extractFilePath(fProject.getAbsoluteSourceName(i)) = dir then
         fProject.Sources.Delete(i);
     fProject.endUpdate;
  -  UpdateByEvent;
   end;
   
   procedure TCEProjectInspectWidget.btnRemFileClick(Sender: TObject);
  
positive.code:   with TOpenDialog.Create(nil) do
    try
      filter := DdiagFilter;
      if execute then
        fProject.addSource(filename);
    finally
      free;
    end;
  
negative.code:     procedure TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
      procedure TreeSelectionChanged(Sender: TObject);
    protected
      procedure updateImperative; override;
      procedure updateDelayed; override;
      procedure SetVisible(Value: boolean); override;
    private
      fActOpenFile: TAction;
  