Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb

@@ -2,7 +2,7 @@
 
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdmin_Globix
-    Inherits BaseRibbonForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>

GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb

@@ -14,6 +14,9 @@ Public Class frmAdmin_Globix
     Private AttributesAutomatic As New Dictionary(Of String, String)
 
     Private Pages As ClassDetailPageManager
+    Private Logger As Logger = My.LogConfig.GetLogger
+    Private FormHelper As FormHelper
+
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -22,10 +25,10 @@ Public Class frmAdmin_Globix
         Me.PrimaryKey = PrimaryKey
         Me.IsInsert = IsInsert
         Me.GlobixHelper = New ClassGIDatatables(My.LogConfig)
+        FormHelper = New FormHelper(My.LogConfig, Me)
     End Sub
 
     Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        InitializeBaseForm(My.LogConfig)
         Try
             VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
             TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
@@ -107,7 +110,7 @@ Public Class frmAdmin_Globix
             oDragDropManager.AddGridView(viewAssignedUsers)
             oDragDropManager.AddGridView(viewAvailableUsers)
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmAdmin_Globix_Load")
         End Try
     End Sub
     Sub Load_TabData()
@@ -212,7 +215,7 @@ Public Class frmAdmin_Globix
 
             ShowStatus($"{oPage.Name} saved - {Now.ToString}", Color.DodgerBlue)
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick")
             ShowStatus($"{ex.Message} saved - {Now.ToString}", Color.Red)
         End Try
         'Else
@@ -302,7 +305,7 @@ Public Class frmAdmin_Globix
                 Return False
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "Insert_Doctype")
             ShowStatus($"Error Saving Fileflow Profile {ex.Message}", Color.Red)
             Return False
         End Try
@@ -325,7 +328,7 @@ Public Class frmAdmin_Globix
             End If
 
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "Update_Doctype")
             Return False
         End Try
 
@@ -589,11 +592,11 @@ Public Class frmAdmin_Globix
     Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
         Try
             If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then
-                Dim oMsgBox As New frmDialog("The RegEx resulted in a proper match!", "", False)
+                Dim oMsgBox As New frmDialog("The RegEx resulted in a proper match!", "Testing Regex", frmDialog.DialogType.Success)
                 oMsgBox.ShowDialog()
 
             Else
-                Dim oMsgBox As New frmDialog("No Match- There might be an error in the RegEx!", "", True)
+                Dim oMsgBox As New frmDialog("No Match- There might be an error in the RegEx!", "Testing Regex", frmDialog.DialogType.Warning)
                 oMsgBox.ShowDialog()
 
             End If
@@ -668,7 +671,7 @@ Public Class frmAdmin_Globix
 
             ' ShowStatus($"{oPage.Name} deleted!")
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "BarButtonItem2_ItemClick")
         End Try
     End Sub