Zooflow: small changes

GUIs.ZooFlow/Globix/frmGlobix_Index.vb

@@ -414,7 +414,8 @@ Public Class frmGlobix_Index
                 Dim oDataType = oIndex.DataType
 
                 If oDataType <> "BOOLEAN" Then
-                    oControls.AddLabel(oControlName, oIndex.LabelCaption, oLabelPosition, oControlCount)
+                    Dim oLabel = oControls.AddLabel(oControlName, oIndex.LabelCaption, oLabelPosition, oControlCount)
+                    pnlIndex.Controls.Add(oLabel)
                 End If
 
                 'Dim oDefaultValue = Check_HistoryValues(oControlName, oIndex.DocTypeName)
@@ -799,24 +800,20 @@ Public Class frmGlobix_Index
         Logger.Info("Importing file with DocumentType [{0}]", oDokart.Name)
         Dim oResult = Await GlobixFlowNew(oDokart)
         If oResult = True Then
-            'Dim oArgs As New XtraMessageBoxArgs With {
-            '    .LookAndFeel = LookAndFeel,
-            '    .Text = "Die Datei wurde erfolgreich verarbeitet!",
-            '    .Caption = Text
-            '}
-            'oArgs.AutoCloseOptions.Delay = 3000
-            'oArgs.AutoCloseOptions.ShowTimerOnDefaultButton = True
-            ''oArgs.DoNotShowAgainCheckBoxVisible = True
-            'XtraMessageBox.Show(oArgs)
+            Dim oArgs = GetMessageBoxArgs()
+            Dim oMessageResult = XtraMessageBox.Show(oArgs)
 
             DocumentViewer1.CloseDocument()
             DocumentViewer1.Done()
 
+
             CancelAttempts = MAX_CANCEL_ATTEMPTS
             Close()
         End If
     End Sub
 
+
+
     Private Sub PreviewItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles PreviewItem.CheckedChanged
         If FormLoaded Then
             SetFilePreview(PreviewItem.Checked)
@@ -829,4 +826,26 @@ Public Class frmGlobix_Index
             My.UIConfigManager.Save()
         End If
     End Sub
+
+    Private Function GetMessageBoxArgs() As XtraMessageBoxArgs
+        Dim oArgs As New XtraMessageBoxArgs With {
+            .LookAndFeel = LookAndFeel,
+            .Text = "Die Datei wurde erfolgreich verarbeitet!",
+            .Caption = Text,
+            .DoNotShowAgainCheckBoxVisible = True
+        }
+        AddHandler oArgs.Closed, AddressOf MessageboxClosed
+        AddHandler oArgs.Load, AddressOf MessageboxLoad
+        Return oArgs
+    End Function
+
+    Private Sub MessageboxClosed(sender As Object, e As XtraMessageBoxClosedArgs)
+        Dim oShowMessageBoxNextTime = e.Visible
+        My.UIConfig.Globix.ShowSuccessMessageBox = oShowMessageBoxNextTime
+        My.UIConfigManager.Save()
+    End Sub
+
+    Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs)
+        e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox
+    End Sub
 End Class