MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -310,8 +310,9 @@ Public Class frmFlowForm
 
                 Init_Folderwatch()
                 Folderwatch_CheckFiles()
-                GlobixToolStripMenuItem.Visible = True
-
+                BarButtonItemGlobixGE.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+            Else
+                BarButtonItemGlobixGE.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
 
 
@@ -571,18 +572,6 @@ Public Class frmFlowForm
         Return True
     End Function
 
-    Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
-        Dim oForm As New frmSQLConfig(My.LogConfig) With {
-            .ConnectionString = My.SystemConfig.ConnectionString,
-            .FormTitle = "ECM Datenbank"
-        }
-        Dim oResult = oForm.ShowDialog()
-
-        If oResult = DialogResult.OK Then
-            My.SystemConfig.ConnectionString = oForm.ConnectionString
-            My.SystemConfigManager.Save()
-        End If
-    End Sub
 
     Private Sub DatenbankverbindungToolStripMenuItem1_Click(sender As Object, e As EventArgs)
         Dim oForm As New frmSQLConfig(My.LogConfig) With {
@@ -936,10 +925,6 @@ Public Class frmFlowForm
 
     End Sub
 
-    Private Sub TsiGlobixConfig_Click(sender As Object, e As EventArgs) Handles TsiGlobixConfig.Click
-        frmGlobixBasicConfig.ShowDialog()
-    End Sub
-
     Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject)
         Dim ClipboardContents As String = Clipboard.GetText().Trim()
         Dim oState = My.Application.ClipboardWatcher
@@ -1113,10 +1098,6 @@ Public Class frmFlowForm
 
     End Sub
 
-    Private Async Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click
-        frmConfigBasic.ShowDialog()
-        Await ConfigureQuicksearch1(True)
-    End Sub
 
     Private Sub ShowErrorMessage(pEx As Exception)
         Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
@@ -1242,7 +1223,7 @@ Public Class frmFlowForm
         Await ConfigureQuicksearch1(True)
     End Sub
 
-    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
+    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemGlobixGE.ItemClick
         frmGlobixBasicConfig.ShowDialog()
     End Sub