Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb

@@ -1,18 +1,21 @@
-Public Class frmAdmin_IDBAttribute
+Imports DigitalData.GUIs.Common
+
+Public Class frmAdmin_IDBAttribute
     Implements IAdminForm
 
     Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
     Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
     Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
+    Private FormHelper As FormHelper
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        InitializeBaseForm(My.LogConfig)
         Me.PrimaryKey = PrimaryKey
         Me.IsInsert = IsInsert
+        FormHelper = New FormHelper(My.LogConfig, Me)
     End Sub
 
     Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -27,7 +30,7 @@
                 DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmAdmin_Attribute_Load")
         End Try
     End Sub
     Private Sub FillAttribute()
@@ -105,7 +108,7 @@
             FillAttribute()
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "SaveData")
             ShowStatus($"Unexpeced error saving attribute {TextEdit2.Text} - {ex.Message}", Color.Red)
             Return False
         End Try
@@ -120,7 +123,7 @@
             End If
 
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "DeleteAttribute")
             Return False
         End Try
     End Function