Zooflow: Fix messageboxes without title

2022-05-23 15:07:07 +02:00
parent ce7261acca
commit 39c69704f4
56 changed files with 683 additions and 432 deletions
--- a/GUIs.ZooFlow/ClassInit.vb
+++ b/GUIs.ZooFlow/ClassInit.vb
@@ -372,7 +372,7 @@ Public Class ClassInit

            Dim oMessage = $"{oMessageStart}{oMessage1}{oMessage2}{oMessageEnd}"

-            Dim oMsgBox As New frmDialog(oMessage, _MainForm.Text, True)
+            Dim oMsgBox As New frmDialog(oMessage, _MainForm.Text, frmDialog.DialogType.Error)
            oMsgBox.ShowDialog()
            Application.ExitThread()
        Else