anchor.diff:  
   procedure TCEMainForm.sesoptDeclareProperties(aFiler: TFiler);
   begin
  -  aFiler.DefineProperty('Menu_FileMRU_Items', @optset_FileMRUItems, @optget_FileMRUItems, true);
  -  aFiler.DefineProperty('Menu_FileMRU_Limit', @optset_FileMRULimit, @optget_FileMRULimit, true);
  -  aFiler.DefineProperty('Menu_ProjMRU_Items', @optset_ProjMRUItems, @optget_ProjMRUItems, true);
  -  aFiler.DefineProperty('Menu_ProjMRU_Limit', @optset_ProjMRULimit, @optget_ProjMRULimit, true);
  -  //
     aFiler.DefineProperty('Runnable_Switches', @optset_RunnableSw, @optget_RunnableSw, true);
   end;
   
   procedure TCEMainForm.sesoptAfterLoad;
   begin
  -end;
  -
  -procedure TCEMainForm.optget_FileMRUItems(aWriter: TWriter);
  -begin
  -  aWriter.WriteString(fFileMru.DelimitedText);
  -end;
  -
  -procedure TCEMainForm.optset_FileMRUItems(aReader: TReader);
  -begin
  -  fFileMru.DelimitedText := aReader.ReadString;
  -end;
  -
  -procedure TCEMainForm.optget_FileMRULimit(aWriter: TWriter);
  -begin
  -  aWriter.WriteInteger(fFileMru.maxCount);
  -end;
  -
  -procedure TCEMainForm.optset_FileMRULimit(aReader: TReader);
  -begin
  -  fFileMru.maxCount := aReader.ReadInteger;
  -end;
  -
  -procedure TCEMainForm.optget_ProjMRUItems(aWriter: TWriter);
  -begin
  -  aWriter.WriteString(fProjMru.DelimitedText);
  -end;
  -
  -procedure TCEMainForm.optset_ProjMRUItems(aReader: TReader);
  -begin
  -  fProjMru.DelimitedText := aReader.ReadString;
  -end;
  -
  -procedure TCEMainForm.optget_ProjMRULimit(aWriter: TWriter);
  -begin
  -  aWriter.WriteInteger(fProjMru.maxCount);
  -end;
  -
  -procedure TCEMainForm.optset_ProjMRULimit(aReader: TReader);
  -begin
  -  fProjMru.maxCount := aReader.ReadInteger;
   end;
   
   procedure TCEMainForm.optset_RunnableSw(aReader: TReader);
  
positive.code:         end;
      end
    else inherited;
  end;
  {$ENDREGION}
  
  
negative.code:     procedure assignTo(aValue: TPersistent); override;
    end;
  
    TCEPersistentMainMrus = class(TWritableLfmTextComponent)
    private
      fProjMruPt: TCEMRUFileList;
      fFileMruPt: TCEMRUFileList;
      procedure setProjMru(aValue: TCEMRUFileList);
      procedure setFileMru(aValue: TCEMRUFileList);
    published
      property mostRecentFiles: TCEMRUFileList read fFileMruPt write setFileMru;
      property mostRecentprojects: TCEMRUFileList read fProjMruPt write setProjMru;
    public
      procedure setTargets(projs: TCEMRUFileList; files: TCEMRUFileList);
    end;
  
  var
    CEMainForm: TCEMainForm;
  
  