Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb

@@ -127,14 +127,16 @@ Public Class ClassFilehandle
                 Else
                     oMSG = "Shortcuts cannot be droppped!"
                 End If
-                Dim oMsgBox As New frmDialog(oMSG, "", True)
+                Dim oMsgBox As New frmDialog(oMSG, "FileHandle", frmDialog.DialogType.Warning)
                 oMsgBox.ShowDialog()
                 Return False
             End If
 
             Return UserFiles.Insert_GI_File(oTempFilePath, pHandletype)
         Catch ex As Exception
-            MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
+            Dim oMsgBox As New frmDialog(ex.Message, "Decide_FileHandle", frmDialog.DialogType.Error)
+            oMsgBox.ShowDialog()
+
             Return False
         End Try
     End Function

GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb

@@ -82,7 +82,7 @@ Public Class ClassFolderwatcher
         Catch ex As Exception
             Logger.Error(ex.Message)
 
-            Dim oMsgBox As New frmDialog("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, "", True)
+            Dim oMsgBox As New frmDialog(ex.Message, "Folder Watch", frmDialog.DialogType.Error)
             oMsgBox.ShowDialog()
         End Try
     End Function

GUIs.ZooFlow/Modules/Globix/ClassValidator.vb

@@ -261,7 +261,7 @@ Public Class ClassValidator
 
     Private Sub ShowValidationMessage()
         'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
-        Dim oMsgBox As New frmDialog(ClassConstants.TITLE_MISSING_INPUT & vbNewLine & ClassConstants.TEXT_MISSING_INPUT, "", True)
+        Dim oMsgBox As New frmDialog(ClassConstants.TEXT_MISSING_INPUT, ClassConstants.TITLE_MISSING_INPUT, frmDialog.DialogType.Warning)
         oMsgBox.ShowDialog()
     End Sub
 End Class

GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb

@@ -117,7 +117,7 @@ Partial Class frmFileflow_Duplicate
         Me.SimpleButton4.Appearance.Options.UseBackColor = True
         Me.SimpleButton4.Appearance.Options.UseFont = True
         Me.SimpleButton4.Appearance.Options.UseForeColor = True
-        Me.SimpleButton4.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.SimpleButton4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment1
         Me.SimpleButton4.Location = New System.Drawing.Point(20, 85)
         Me.SimpleButton4.Name = "SimpleButton4"
         Me.SimpleButton4.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light

GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx

@@ -209,30 +209,6 @@
         Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w
         LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh
         c3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
-</value>
-  </data>
-  <data name="SimpleButton4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAP4DAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
-        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
-        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
-        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVG9kYXkiPg0KICAgIDxwYXRoIGQ9
-        Ik0yOSwwSDFDMC41LDAsMCwwLjUsMCwxdjMwYzAsMC41LDAuNSwxLDEsMWgyOGMwLjUsMCwxLTAuNSwx
-        LTFWMUMzMCwwLjUsMjkuNSwwLDI5LDB6IE0yOCwzMEgyVjRoMjZWMzB6IiBjbGFzcz0iQmxhY2siIC8+
-        DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTAsMTJINFY2aDZWMTJ6IE0xOCw2
-        aC02djZoNlY2eiBNMjYsNmgtNnY2aDZWNnogTTI2LDE0aC02djZoNlYxNHogTTEwLDIySDR2Nmg2VjIy
-        eiBNMTgsMjJoLTZ2Nmg2VjIyeiAgICAgTTI2LDIyaC02djZoNlYyMnogTTEwLDE0SDR2Nmg2VjE0eiIg
-        Y2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cmVjdCB4PSIxMiIgeT0iMTQiIHdpZHRoPSI2
-        IiBoZWlnaHQ9IjYiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
 </value>
   </data>
   <data name="SimpleButton3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">

GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb

@@ -52,7 +52,7 @@ Public Class frmGlobixBasicConfig
                 Else
                     otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message
                 End If
-                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!", Text, frmDialog.DialogType.Warning)
                 oMsgBox.ShowDialog()
                 Exit Sub
             End Try

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -470,7 +470,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                         Else
                             omsg = "Please check Datatype of Indexvalue!"
                         End If
-                        Dim oMsgBox As New frmDialog(omsg, "", True)
+                        Dim oMsgBox As New frmDialog(omsg, "Indexe Laden", frmDialog.DialogType.Warning)
                         oMsgBox.ShowDialog()
                         Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
                 End Select
@@ -659,7 +659,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                     Else
                         oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)"
                     End If
-                    Dim oMsgBox As New frmDialog(oMsg, "", False)
+                    Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Warning)
                     oMsgBox.CancelButtonInvisible()
                     oMsgBox.ShowDialog()
                     CancelAttempts += 1
@@ -671,7 +671,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                     Else
                         oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?"
                     End If
-                    Dim oMsgBox As New frmDialog(oMsg, "", False)
+                    Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Question)
                     oMsgBox.CancelButtonVisible()
 
                     If oMsgBox.DialogResult = DialogResult.Yes Then