anchor.diff:    FConfigData.FixInsightOptions.Validate := Validate;
   
     FConfigFile := TConfigFile.Create(ConfigFileName, GenerateConfig);
  +
     if GenerateConfig then
  -    GenerateFullConfig;
  +    GenerateDefaultConfig;
   end;
   
   destructor TConfigManager.Destroy;
  
positive.code:   WriteObjectToConfig(FConfigData,
      function (const Instance : TObject; const Prop : TRttiProperty) : Boolean
      begin
        Result := Prop.IsReadable and FilterConfig(Instance, Prop);
      end
    );
    FConfigFile.Save;
  end;
  
  function TConfigManager.FilterConfig(const Instance : TObject; const Prop : TRttiProperty) : Boolean;
    var
      Attr : TCustomAttribute;
  begin
  
negative.code:   end;
  end;
  
  procedure TConfigManager.GenerateDefaultConfig;
  begin
    SetDefaults;
    FillFileFromData;
  end;
  
  procedure TConfigManager.ReadObjectFromConfig(const Instance : TObject; Filter : TFilterPropPredicate);
    var
      Ctx : TRttiContext;
      InstanceType : TRttiInstanceType;
  