From 0af9e01d9a503b4ee860c8e211510bc8c9d96002 Mon Sep 17 00:00:00 2001
From: "VKMTHD\\haraldmartini" <harald.martini@student.tugraz.at>
Date: Mon, 28 Nov 2022 12:18:28 +0100
Subject: [PATCH] save vecto run data is now persistent between application
starts
---
VECTO/Configuration.vb | 4 ++++
VECTO/GUI/MainForm.vb | 5 +++--
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/VECTO/Configuration.vb b/VECTO/Configuration.vb
index 8b6eac1d55..63d54dcd94 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 33d7b72ee6..4c96c8426a 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
--
GitLab