Add persisting compression options between runs (i.e options no longer reset to default every time)

Author: Iridium-IO

CompactGUI/Models/SetttingsHandler.vb

@@ -60,6 +60,7 @@ Public Class Settings : Inherits ObservableObject
 
     Public Property SettingsVersion As Decimal
     Public Property ResultsDBLastUpdated As DateTime = DateTime.UnixEpoch
+    Public Property SelectedCompressionMode As Integer = 0
     Public Property SkipNonCompressable As Boolean = False
     Public Property SkipUserNonCompressable As Boolean = False
     Public Property WatchFolderForChanges As Boolean = False
@@ -85,7 +86,6 @@ Public Class Settings : Inherits ObservableObject
     Public Property WindowWidth As Decimal = 500
     Public Property WindowHeight As Decimal = 800
 
-
     'TODO: Add local saving of per-folder skip list
     Public Sub Save()
         SettingsHandler.WriteToFile()

CompactGUI/ViewModels/MainViewModel.vb

@@ -139,12 +139,9 @@ Public Class MainViewModel : Inherits ObservableObject
 
     Private Sub ChooseCompression()
 
+        ActiveFolder.SelectedCompressionMode = BindableSettings.SelectedCompressionMode
         State = "ChooseCompressionOptions"
 
-        SettingsHandler.AppSettings.SkipNonCompressable = False
-        SettingsHandler.AppSettings.SkipUserNonCompressable = False
-        SettingsHandler.AppSettings.Save()
-
 
     End Sub
 
@@ -168,6 +165,10 @@ Public Class MainViewModel : Inherits ObservableObject
         Dim res = Await cm.RunCompactAsync(CProgress)
 
         ActiveFolder.IsFreshlyCompressed = True
+
+        BindableSettings.SelectedCompressionMode = ActiveFolder.SelectedCompressionMode
+        BindableSettings.Save()
+
         AnalyseBegin()
 
     End Sub