anchor.diff:  {$ENDREGION}
   
   {$REGION project ---------------------------------------------------------------}
  +procedure TCEMainForm.showProjTitle;
  +begin
  +  if (fProject <> nil) and fileExists(fProject.Filename) then
  +    caption := format('Coedit - %s', [shortenPath(fProject.Filename, 30)])
  +  else
  +    caption := 'Coedit';
  +end;
  +
   procedure TCEMainForm.saveProjSource(const aEditor: TCESynMemo);
   begin
     if fProject = nil then exit;
  
positive.code:   closeProj;
    newProj;
    fProject.loadFromFile(aFilename);
  end;
  
  procedure TCEMainForm.mruProjItemClick(Sender: TObject);
  
negative.code:     procedure openProj(const aFilename: string);
      procedure closeProj;
      procedure addSource(const aFilename: string);
      procedure showProjTitle;
  
      // mru
      procedure mruChange(Sender: TObject);
  