Config und DocView

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -213,6 +213,7 @@ Public Class frmConfig_Basic
         Select Case TabControl1.SelectedIndex
             Case 1
                 cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
+                CheckBox_ForceTemporaryMode.Checked = CONFIG.Config.Viewer_ForceTemporaryMode
             Case 2
                 Dim DTSCAN_folderwatch As Data.DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
                 If Not DTSCAN_folderwatch Is Nothing Then
@@ -543,4 +544,10 @@ Public Class frmConfig_Basic
             End If
         End If
     End Sub
+
+
+    Private Sub CheckBox_ForceTemporaryMode_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_ForceTemporaryMode.CheckedChanged
+        CONFIG.Config.Viewer_ForceTemporaryMode = CheckBox_ForceTemporaryMode.Checked
+        CONFIG.Save()
+    End Sub
 End Class