MS

GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb

@@ -7,6 +7,7 @@ Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Filesystem
 Imports DigitalData.Modules.Messaging
 Imports Limilabs.Mail
+Imports DigitalData.GUIs.Common
 
 Public Class ClassFilehandle
     Inherits BaseClass
@@ -126,7 +127,7 @@ Public Class ClassFilehandle
                 Else
                     oMSG = "Shortcuts cannot be droppped!"
                 End If
-                Dim oMsgBox As New Dialog1(oMSG, "", True)
+                Dim oMsgBox As New frmDialog(oMSG, "", True)
                 oMsgBox.ShowDialog()
                 Return False
             End If

GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
 
@@ -81,7 +82,7 @@ Public Class ClassFolderwatcher
         Catch ex As Exception
             Logger.Error(ex.Message)
 
-            Dim oMsgBox As New Dialog1("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, "", True)
+            Dim oMsgBox As New frmDialog("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, "", True)
             oMsgBox.ShowDialog()
         End Try
     End Function

GUIs.ZooFlow/Modules/Globix/ClassValidator.vb

@@ -6,6 +6,7 @@ Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.Common
 
 Public Class ClassValidator
     Inherits BaseClass
@@ -260,7 +261,7 @@ Public Class ClassValidator
 
     Private Sub ShowValidationMessage()
         'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
-        Dim oMsgBox As New Dialog1(ClassConstants.TITLE_MISSING_INPUT & vbNewLine & ClassConstants.TEXT_MISSING_INPUT, "", True)
+        Dim oMsgBox As New frmDialog(ClassConstants.TITLE_MISSING_INPUT & vbNewLine & ClassConstants.TEXT_MISSING_INPUT, "", True)
         oMsgBox.ShowDialog()
     End Sub
 End Class

GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb

@@ -1,4 +1,5 @@
 Imports DevExpress.XtraEditors
+Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Logging
 
 Public Class frmGlobixBasicConfig
@@ -51,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 Dialog1("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!", "", True)
                 oMsgBox.ShowDialog()
                 Exit Sub
             End Try

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -16,6 +16,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Patterns
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraSplashScreen
+Imports DigitalData.GUIs.Common
 
 Public Class frmGlobix_Index
 #Region "+++++ Variablen ++++++"
@@ -469,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 Dialog1(omsg, "", True)
+                        Dim oMsgBox As New frmDialog(omsg, "", True)
                         oMsgBox.ShowDialog()
                         Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
                 End Select
@@ -658,8 +659,8 @@ 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 Dialog1(oMsg, "", False)
-                    oMsgBox.Cancel_Button.Visible = False
+                    Dim oMsgBox As New frmDialog(oMsg, "", False)
+                    oMsgBox.CancelButtonInvisible()
                     oMsgBox.ShowDialog()
                     CancelAttempts += 1
                     e.Cancel = True
@@ -670,8 +671,9 @@ 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 Dialog1(oMsg, "", False)
-                    oMsgBox.Cancel_Button.Visible = True
+                    Dim oMsgBox As New frmDialog(oMsg, "", False)
+                    oMsgBox.CancelButtonVisible()
+
                     If oMsgBox.DialogResult = DialogResult.Yes Then
                         Dim containsfw_file As Boolean = False
                         Try