diff --git a/VECTO/Configuration.vb b/VECTO/Configuration.vb index 8b6eac1d550401df2c4b4dfb34459035032d9b76..63d54dcd94b20d72d61246d1e7a76f443f1aa975 100644 --- a/VECTO/Configuration.vb +++ b/VECTO/Configuration.vb @@ -32,6 +32,7 @@ Public Class Configuration Public Multithreaded As Boolean Public ValidateRunData As Boolean + Public SaveVectoRunData As Boolean public OutputFolder As String @@ -63,6 +64,7 @@ Public Class Configuration ValidateRunData = True OutputFolder = "" Multithreaded = True + SaveVectoRunData = False End Sub Public Sub Load() @@ -95,6 +97,7 @@ Public Class Configuration DeclMode = body.GetEx(Of Boolean)("DeclMode") ValidateRunData = IsNothing(body("ValidateRunData")) OrElse body.GetEx(Of Boolean)("ValidateRunData") OutputFolder = If(body("OutputFolder") Is Nothing, "", body("OutputFolder").Value(of string)()) + SaveVectoRunData = body.GetEx(Of Boolean)("SaveRunData") End Using Catch ex As Exception GUIMsg(MessageType.Err, "Error while loading settings!") @@ -121,6 +124,7 @@ Public Class Configuration body.Add("DeclMode", DeclMode) body.Add("ValidateRunData", ValidateRunData) body.Add("OutputFolder", OutputFolder) + body.Add("SaveRunData", SaveVectoRunData) JSONFileWriter.WriteFile(New Dictionary(Of String, Object) From {{"Header", header}, {"Body", body}}, FilePath) End Sub diff --git a/VECTO/GUI/MainForm.vb b/VECTO/GUI/MainForm.vb index 33d7b72ee63ca36e21fedf2aa1e3ea59b8debac9..4c96c8426a092e5e7220b40e628d50f33a4084e2 100644 --- a/VECTO/GUI/MainForm.vb +++ b/VECTO/GUI/MainForm.vb @@ -1505,8 +1505,8 @@ lbFound: ChBoxMod1Hz.Checked = Cfg.Mod1Hz RbDecl.Checked = Cfg.DeclMode - cbValidateRunData.Checked = cfg.ValidateRunData - + cbValidateRunData.Checked = Cfg.ValidateRunData + cbSaveVectoRunData.Checked = Cfg.SaveVectoRunData tbOutputFolder.Text = Cfg.OutputFolder End Sub @@ -1516,6 +1516,7 @@ lbFound: Cfg.ModOut = ChBoxModOut.Checked Cfg.Mod1Hz = ChBoxMod1Hz.Checked Cfg.ValidateRunData = cbValidateRunData.Checked + Cfg.SaveVectoRunData = cbSaveVectoRunData.Checked Cfg.OutputFolder = tbOutputFolder.Text End Sub