MS diverses

GUIs.ZooFlow/frmFlowForm.vb

@@ -361,7 +361,7 @@ Public Class frmFlowForm
             Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
             Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
 
-            GridControl1.DataSource = AccessedFilesTable
+            GridControlRecentFiles.DataSource = AccessedFilesTable
             colPrimary.FieldName = "DisplayFileName"
             colSecondary.FieldName = "Changed when"
         Catch ex As Exception
@@ -498,11 +498,18 @@ Public Class frmFlowForm
     End Sub
 
     Sub ExitZooflow()
-        Dim oMsgBox As New MsgBoxEx("Are you sure you want to close ZooFlow?", "Exit Zooflow", MessageBoxIcon.Question)
-        oMsgBox.SetButtons("Yes", "No")
+        Dim omessage = "Wollen sie ZooFlow wirklich beenden?"
+        If My.Application.User.Language <> "de-DE" Then
+            omessage = "Are you sure you want to close ZooFlow?"
+        End If
+        Dim oTitle = "Zooflow beenden"
+        If My.Application.User.Language <> "de-DE" Then
+            oTitle = "Exit Zooflow"
+        End If
+        Dim oMsgBox As New Dialog1(omessage, oTitle)
         oMsgBox.ShowDialog()
 
-        If oMsgBox.Result = MsgBoxEx.DialogBoxResult.Button1 Then
+        If oMsgBox.DialogResult = DialogResult.OK Then
             Close()
         Else
             ESCHitCount = 0
@@ -723,6 +730,13 @@ Public Class frmFlowForm
             NotifyIconReset()
             AddHandler IndexForm.FormClosed, AddressOf GlobixClosed
             IndexForm.ShowDialog()
+            If IndexForm.oSuccess = True Then
+                Dim oMessage As String = "Datei erfolgreich importiert!"
+                If My.Application.User.Language <> "de-DE" Then
+                    oMessage = "File successfully imported!"
+                End If
+                NotifyIcon.ShowBalloonTip(15000, "FileFlow", oMessage, ToolTipIcon.Info)
+            End If
             Cursor = Cursors.Default
         Catch ex As Exception
             ShowErrorMessage(ex)
@@ -1253,7 +1267,7 @@ Public Class frmFlowForm
                 Dim oRow As DataRow = oFile.Row
                 Dim oObjectId As Long = oRow.Item("DocId")
 
-                Dim oDataSource As DataTable = GridControl1.DataSource
+                Dim oDataSource As DataTable = GridControlRecentFiles.DataSource
                 Dim oResult = oDataSource.AsEnumerable().
                     Where(Function(row) row.Item("DocId") = oObjectId).
                     CopyToDataTable()