replace viewer with gdpicture documentviewer

Global_Indexer/frmConfig_Basic.vb

@@ -123,55 +123,11 @@ Public Class frmConfig_Basic
         Cursor = Cursors.Default
     End Sub
 
-    Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        'SaveConfigValue("UniversalViewer", txtuniversalViewer.Text)
-        CONFIG.Config.UniversalViewerPath = txtuniversalViewer.Text
-        CONFIG.Save()
-    End Sub
     <STAThread()> _
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
     End Sub
-    <STAThread()> _
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnaddUniversalViewer.Click
-        Try
-            With OpenFileDialog1
-                ' Do
-                If txtuniversalViewer.Text <> "" Then
-                    Try
-                        OpenFileDialog1.InitialDirectory = Path.GetDirectoryName(txtuniversalViewer.Text)
-                    Catch ex As Exception
 
-                    End Try
-
-                End If
-                .Filter = "Viewer.Exe|*.exe"
-                .FilterIndex = 1
-
-                If USER_LANGUAGE = "de-DE" Then
-                    .Title = "Pfad zu Universal Viewer.exe:"
-                Else
-                    .Title = "Path to Universal Viewer.exe"
-                End If
-
-
-                If .ShowDialog() = DialogResult.OK Then
-                    Me.txtuniversalViewer.Text = .FileName
-                    'SaveConfigValue("UniversalViewer", txtuniversalViewer.Text)
-                    UniversalViewer_Path = txtuniversalViewer.Text
-                    CONFIG.Config.UniversalViewerPath = txtuniversalViewer.Text
-                    CONFIG.Save()
-                End If
-            End With
-        Catch ex As Exception
-            If ex.Message.Contains("aktuellen Thread muss der STA-Modus") Then
-                MsgBox("Diese Einstellung kann während des Starts nicht geändert werden!" & vbNewLine & "Schliessen Sie das Formular. Sie weren in Folge erneut aufgefordert den PFad zu UViewer einzugeben!", MsgBoxStyle.Information)
-            Else
-                MsgBox("Unexpected error in Add UViewer-Path:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End If
-        End Try
-
-    End Sub
     Dim reload As Boolean = False
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
@@ -432,19 +388,11 @@ Public Class frmConfig_Basic
 
                 Me.txtActualConnection.Text = constr
             End If
-            Me.txtuniversalViewer.Text = UniversalViewer_Path
-            chkLogErrorsOnly.Checked = LogErrorsOnly
-            txtuniversalViewer.Enabled = True
-            btnaddUniversalViewer.Enabled = True
 
             If ERROR_STATE = "FAILED DBCONNECTION" Then
                 Me.TabControl1.SelectedIndex = 0
             ElseIf ERROR_STATE = "NO DB-CONNECTION" Then
                 Me.TabControl1.SelectedIndex = 0
-                txtuniversalViewer.Enabled = False
-                btnaddUniversalViewer.Enabled = False
-            ElseIf ERROR_STATE = "NO UV" Then
-                Me.TabControl1.SelectedIndex = 1
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Load_Basics:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)