Zooflow: Fix messageboxes without title

This commit is contained in:
Jonathan Jenne
2022-05-23 15:07:07 +02:00
parent ce7261acca
commit 39c69704f4
56 changed files with 683 additions and 432 deletions

View File

@@ -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