MS FNDD_LOGIN_USER_MODULE, Übersetzung etc

app/DD_Clipboard_Searcher/frmMain.vb

@@ -7,6 +7,7 @@ Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.Windows
 Imports DigitalData.GUIs.ClipboardWatcher
 Imports DevExpress.XtraBars.ToastNotifications
+Imports DigitalData.GUIs.Common
 
 Public Class frmMain
     Private WithEvents _Hotkey As New ClassHotkey(Me)
@@ -125,6 +126,12 @@ Public Class frmMain
                     RibbonPageGroup1.Visible = False
                     RibbonControl1.Minimized = True
                 End If
+                If BASEDATA_DT_LANGUAGE.Rows.Count > 1 Then
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Else
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                End If
+
                 lblVersion.Caption = My.Application.Info.Version.ToString
                 lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
             Catch ex As Exception
@@ -510,4 +517,14 @@ Public Class frmMain
     Private Sub bbtniKonfig_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniKonfig.ItemClick
         frmConfig_Basic.ShowDialog()
     End Sub
+
+    Private Sub bbtnitmLanguage_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLanguage.ItemClick
+        Dim oNForm As New frmLanguage_Select(LogConfig, MyConnectionString, USER_USERNAME, BASEDATA_DT_LANGUAGE, "EF")
+        oNForm.ShowDialog
+
+        If oNForm.pChanged = True Then
+            MsgBox("For the changes to take effect, the program must now be closed. Restart it afterwards.", MsgBoxStyle.Exclamation, "Restart:")
+            Me.Close()
+        End If
+    End Sub
 End Class