AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zooflow: Fix messageboxes without title

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Globix
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

19
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -14,6 +14,9 @@ Public Class frmAdmin_Globix
Private AttributesAutomatic As New Dictionary(Of String, String)
Private Pages As ClassDetailPageManager
Private Logger As Logger = My.LogConfig.GetLogger
Private FormHelper As FormHelper
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -22,10 +25,10 @@ Public Class frmAdmin_Globix
Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert
Me.GlobixHelper = New ClassGIDatatables(My.LogConfig)
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub
Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitializeBaseForm(My.LogConfig)
Try
VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
@@ -107,7 +110,7 @@ Public Class frmAdmin_Globix
oDragDropManager.AddGridView(viewAssignedUsers)
oDragDropManager.AddGridView(viewAvailableUsers)
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "frmAdmin_Globix_Load")
End Try
End Sub
Sub Load_TabData()
@@ -212,7 +215,7 @@ Public Class frmAdmin_Globix
ShowStatus($"{oPage.Name} saved - {Now.ToString}", Color.DodgerBlue)
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick")
ShowStatus($"{ex.Message} saved - {Now.ToString}", Color.Red)
End Try
'Else
@@ -302,7 +305,7 @@ Public Class frmAdmin_Globix
Return False
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Insert_Doctype")
ShowStatus($"Error Saving Fileflow Profile {ex.Message}", Color.Red)
Return False
End Try
@@ -325,7 +328,7 @@ Public Class frmAdmin_Globix
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Update_Doctype")
Return False
End Try
@@ -589,11 +592,11 @@ Public Class frmAdmin_Globix
Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
Try
If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then
Dim oMsgBox As New frmDialog("The RegEx resulted in a proper match!", "", False)
Dim oMsgBox As New frmDialog("The RegEx resulted in a proper match!", "Testing Regex", frmDialog.DialogType.Success)
oMsgBox.ShowDialog()
Else
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!", "Testing Regex", frmDialog.DialogType.Warning)
oMsgBox.ShowDialog()
End If
@@ -668,7 +671,7 @@ Public Class frmAdmin_Globix
' ShowStatus($"{oPage.Name} deleted!")
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "BarButtonItem2_ItemClick")
End Try
End Sub

2
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBAttribute
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

13
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb
View File

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

2
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBEntity
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _

12
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.vb
View File

@@ -1,19 +1,21 @@
Imports DigitalData.Modules.Logging
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging
Public Class frmAdmin_IDBEntity
Implements IAdminForm
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
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_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -27,7 +29,7 @@ Public Class frmAdmin_IDBEntity
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "frmAdmin_IDBEntity_Load")
End Try
End Sub
@@ -74,7 +76,7 @@ Public Class frmAdmin_IDBEntity
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "SaveData")
Return False
End Try
End Function
@@ -84,7 +86,7 @@ Public Class frmAdmin_IDBEntity
TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False
End Try
End Function

2
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBObjectStore
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _

10
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb
View File

@@ -1,4 +1,6 @@
Public Class frmAdmin_IDBObjectStore
Imports DigitalData.GUIs.Common
Public Class frmAdmin_IDBObjectStore
Implements IAdminForm
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
@@ -6,7 +8,7 @@
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Private FormHelper As FormHelper
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Dim oStorePath As String = String.Empty
@@ -19,9 +21,9 @@
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 BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@@ -103,7 +105,7 @@
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "SaveData")
Return False
End Try
End Function

9
GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb
View File

@@ -12,9 +12,11 @@ Public Class frmAdmin_User
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Property ErrorHandler As BaseErrorHandler
Private Property Pages As ClassDetailPageManager
Private Property Logger As Logger
Private Property FormHelper As FormHelper
Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -23,7 +25,6 @@ Public Class frmAdmin_User
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
PrimaryKey = pPrimaryKey
IsInsert = pIsInsert
ErrorHandler = New BaseErrorHandler(My.LogConfig, My.LogConfig.GetLogger, Me)
Logger = My.LogConfig.GetLogger()
End Sub
@@ -69,7 +70,7 @@ Public Class frmAdmin_User
TBDD_USERTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "DeleteData")
FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False
End Try
End Function
@@ -94,7 +95,7 @@ Public Class frmAdmin_User
oPage.IsInsert = False
txtStatus.Caption = $"{oPage.Name} gespeichert!"
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "ItemClick")
FormHelper.ShowErrorMessage(ex, "ItemClick")
End Try
Else
txtStatus.Caption = $"Keine Änderungen"

12
GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb
View File

@@ -6,7 +6,8 @@ Public Class frmAdmin_UserGroupRelations
Public ReadOnly Property LogConfig As Modules.Logging.LogConfig Implements IBaseForm.LogConfig
Public ReadOnly Property Logger As Modules.Logging.Logger Implements IBaseForm.Logger
Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
@@ -14,6 +15,7 @@ Public Class frmAdmin_UserGroupRelations
Private Property SelectedGroupId As Integer = Nothing
Private Property SelectedAvailableUser As Integer = Nothing
Private Property SelectedRelatedUser As Integer = Nothing
Private FormHelper As FormHelper = Nothing
Public Sub New(pPrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -21,7 +23,7 @@ Public Class frmAdmin_UserGroupRelations
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = My.LogConfig
ErrorHandler = New BaseErrorHandler(LogConfig, Me)
FormHelper = New FormHelper(LogConfig, Me)
End Sub
Private Async Sub frmAdmin_UserGroupRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -39,7 +41,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable As DataTable = Await My.DatabaseECM.GetDatatableAsync(oSQL)
GridControl2.DataSource = oTable
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
FormHelper.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
End Try
End Sub
@@ -56,7 +58,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
Return oTable
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
FormHelper.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
Return Nothing
End Try
End Function
@@ -72,7 +74,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
Return oTable
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
FormHelper.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
Return Nothing
End Try
End Function

2
GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_ClipboardWatcher
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

10
GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb
View File

@@ -33,6 +33,7 @@ Public Class frmAdmin_ClipboardWatcher
Private Const PROFILE_TYPE_DATA_ONLY As Integer = 2
Private Pages As ClassDetailPageManager
Private FormHelper As FormHelper
Friend Class ProfileType
Public Property Id As Integer
@@ -57,15 +58,12 @@ Public Class frmAdmin_ClipboardWatcher
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_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
InitializeBaseForm(My.LogConfig)
Try
TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey)
@@ -129,7 +127,7 @@ Public Class frmAdmin_ClipboardWatcher
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "frmAdmin_CWProfile_Load")
End Try
End Sub
@@ -176,7 +174,7 @@ Public Class frmAdmin_ClipboardWatcher
ShowStatus($"{oPage.Name} gespeichert!")
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick")
End Try
Else
ShowStatus("Keine Änderungen!")

2
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_SourceSQL
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>

13
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb
View File

@@ -1,5 +1,6 @@
Imports DevExpress.XtraEditors.DXErrorProvider
Imports DevExpress.XtraLayout
Imports DigitalData.GUIs.Common
Public Class frmAdmin_SourceSQL
Implements IAdminForm
@@ -11,13 +12,15 @@ Public Class frmAdmin_SourceSQL
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Pages As ClassDetailPageManager
Private FormHelper As FormHelper
Public Sub New(PrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
FormHelper = New FormHelper(My.LogConfig, Me)
Me.PrimaryKey = PrimaryKey
End Sub
@@ -45,7 +48,7 @@ Public Class frmAdmin_SourceSQL
ValidationHelper()
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "frmAdmin_SourceSQL_Load")
End Try
End Sub
@@ -105,8 +108,8 @@ Public Class frmAdmin_SourceSQL
Return True
Catch ex As Exception
ShowErrorMessage(ex)
Return False
FormHelper.ShowErrorMessage(ex, "SaveData")
Return False
End Try
End Function
@@ -115,7 +118,7 @@ Public Class frmAdmin_SourceSQL
TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False
End Try
End Function

2
GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb generated
View File

@@ -4,7 +4,7 @@ Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Start
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

20
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -16,18 +16,14 @@ Public Class frmAdmin_Start
Private CurrentModule As String
Private CurrentPage As String
Private CurrentItem As ClassDetailForm.DetailData
Private FormHelper As FormHelper
Private Logger As Logger
Private DetailForm As ClassDetailForm
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
End Sub
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FormHelper = New FormHelper(My.LogConfig, Me)
Logger = My.LogConfig.GetLogger()
DetailForm = New ClassDetailForm(My.LogConfig)
AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed
@@ -46,7 +42,7 @@ Public Class frmAdmin_Start
Load_GridData(oDetailData)
Else
Dim oMsgBox As New frmDialog($"Could not load data for Page [{oKey}] because it does not exist!", "Error", True)
Dim oMsgBox As New frmDialog($"Could not load data for Page [{oKey}] because it does not exist!", "Error", frmDialog.DialogType.Error)
oMsgBox.ShowDialog()
End If
End If
@@ -103,7 +99,7 @@ Public Class frmAdmin_Start
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "TreeListMenu_FocusedNodeChanged")
End Try
End Sub
@@ -219,7 +215,7 @@ Public Class frmAdmin_Start
End If
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "GridView1_RowClick")
End Try
End Sub
@@ -260,7 +256,7 @@ Public Class frmAdmin_Start
Try
DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True)
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "btnAddRecord_ItemClick")
End Try
End Sub

2
GUIs.ZooFlow/ClassDragDrop.vb
View File

@@ -100,7 +100,7 @@ Public Class ClassDragDrop
Catch ex As Exception
Logger.Error(ex)
Dim oMsgBox As New frmDialog("Error in view_MouseMove: " & ex.Message, "", True)
Dim oMsgBox As New frmDialog(ex.Message, "View_MouseMove", frmDialog.DialogType.Error)
oMsgBox.ShowDialog()
End Try
End Sub

2
GUIs.ZooFlow/ClassInit.vb
View File

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

6
GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
View File

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

2
GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb
View File

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

2
GUIs.ZooFlow/Modules/Globix/ClassValidator.vb
View File

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

2
GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb generated
View File

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

24
GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx
View File

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

2
GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb
View File

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

6
GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
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

10
GUIs.ZooFlow/My Project/Resources.Designer.vb generated
View File

@@ -660,6 +660,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property bo_appointment1() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("bo_appointment1", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>

121
GUIs.ZooFlow/My Project/Resources.resx
View File

@@ -196,12 +196,15 @@
<data name="DD_Icons_ICO_PMANAGER_256px" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="ZOOFLOW_DRAG_NORMAL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_DRAG_NORMAL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZooFlow_Sidebar_individuelle_suche" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_individuelle_suche.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -241,21 +244,24 @@
<data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="nextview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nextview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="del4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="viewmergeddata1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\viewmergeddata1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_deletecircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\link1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_category1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_category1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooflowTitle" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooflowTitle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -304,9 +310,6 @@
<data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -340,8 +343,8 @@
<data name="actions_addcircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -364,6 +367,9 @@
<data name="new4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -379,8 +385,11 @@
<data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="doublenext1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doublenext1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_drop" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_drop.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -397,8 +406,8 @@
<data name="windows" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\windows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="editdatasource1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\editdatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="viewmergeddata1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\viewmergeddata1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -409,15 +418,12 @@
<data name="managedatasource1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\managedatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZOOFLOW_DRAG_NORMAL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_DRAG_NORMAL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save9" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save9.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -433,12 +439,12 @@
<data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="unlink" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unlink.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="2_LUPE_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -454,9 +460,15 @@
<data name="actions_send1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_send1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="editdatasource1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\editdatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="del5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="new1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -499,9 +511,6 @@
<data name="new3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_deletecircled3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@@ -514,8 +523,8 @@
<data name="actions_calendar1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_calendar1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="switchrowcolumns" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\switchrowcolumns.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="bo_category" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_category.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_deletecircled5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -526,41 +535,35 @@
<data name="ZOOFLOW_DRAG_PROGRESSIVE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_DRAG_PROGRESSIVE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="StatusAnnotations_Information_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Information_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save8.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save9" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save9.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_validation1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_validation1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="actions_deletecircled3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_Sidebar_individuelle_suche" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_individuelle_suche.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_calendar" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_calendar.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -580,8 +583,8 @@
<data name="ZooFlow_PM_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_PM_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="StatusAnnotations_Information_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Information_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -595,23 +598,23 @@
<data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doublenext1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doublenext1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_drop" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_drop.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="switchrowcolumns" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\switchrowcolumns.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_document" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_category" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_category.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="actions_addcircled3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_addcircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save8.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -625,8 +628,8 @@
<data name="definednameuseinformula3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_addcircled3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_addcircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="unlink" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unlink.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -640,7 +643,7 @@
<data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_category1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_category1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="bo_appointment1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_appointment1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

29
GUIs.ZooFlow/Resources/bo_appointment1.svg Normal file
View File

@@ -0,0 +1,29 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
.st2{display:none;}
.st3{display:inline;fill:#FFB115;}
.st4{display:inline;}
.st5{display:inline;opacity:0.75;}
.st6{display:inline;opacity:0.5;}
.st7{display:inline;fill:#039C23;}
.st8{display:inline;fill:#D11C1C;}
.st9{display:inline;fill:#1177D7;}
.st10{display:inline;fill:#FFFFFF;}
</style>
<g id="Appointment">
<path d="M0,3v24c0,0.6,0.4,1,1,1h28c0.6,0,1-0.4,1-1V3c0-0.6-0.4-1-1-1H1C0.4,2,0,2.4,0,3z M28,26H2V6h26V26z" class="Black" />
<rect x="10" y="14" width="4" height="4" rx="0" ry="0" class="Red" />
<g class="st0">
<path d="M8,24H4v-4h4V24z M14,20h-4v4h4V20z M20,20h-4v4h4V20z M26,20h-4v4h4V20z M20,8h-4v4h4V8z M26,8h-4v4h4V8z M26,14h-4v4h4V14z M20,14h-4v4h4V14z M8,14H4v4h4V14z M14,8h-4v4h4V8z M8,8H4v4h4V8z" class="Black" />
</g>
</g>
</svg>

1
GUIs.ZooFlow/ZooFlow.vbproj
View File

@@ -1122,6 +1122,7 @@
<None Include="Resources\actions_calendar1.svg" />
<None Include="Resources\viewmergeddata1.svg" />
<None Include="Resources\bo_category1.svg" />
<None Include="Resources\bo_appointment1.svg" />
<Content Include="Zooflow.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

52
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -17,7 +17,6 @@ Imports DigitalData.Modules.Language
Imports DevExpress.LookAndFeel
Imports System.Threading.Tasks
Imports System.Threading
Imports DigitalData.Controls.MessageBoxEx
Public Class frmFlowForm
#Region "Sidebar DllImport"
@@ -160,9 +159,9 @@ Public Class frmFlowForm
Private Logger As Logger
Private Init As ClassInit
Private FileEx As Filesystem.File
Private ErrorHandler As BaseErrorHandler
Private Modules As ClassModules
Private Search As SearchRunner
Private FormHelper As FormHelper
' Globix Helper Classes
Private FileDropNew As FileDrop
@@ -227,8 +226,9 @@ Public Class frmFlowForm
' === Initialize Environment ===
Logger = My.LogConfig.GetLogger()
FormHelper = New FormHelper(My.LogConfig, Me)
Environment = My.Application.GetEnvironment()
ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)
'ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)
Modules = New ClassModules(My.LogConfig, My.SystemConfig)
FileEx = New Filesystem.File(My.LogConfig)
Search = New SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
@@ -295,7 +295,7 @@ Public Class frmFlowForm
ProfileLoader = New ClassProfileLoader(My.LogConfig, My.Database)
ProfileLoader.LoadProfiles()
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Init Search FLOW")
FormHelper.ShowErrorMessage(ex, "Init Search FLOW")
End Try
Else
My.Application.ClipboardWatcher.MonitoringActive = False
@@ -315,7 +315,7 @@ Public Class frmFlowForm
Else
oMsg = "File-Exclusions in Folderwatch could not be created!"
End If
Dim oMsgBox As New frmDialog(oMsg, "Error", True)
Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Warning)
oMsgBox.ShowDialog()
End If
@@ -367,7 +367,7 @@ Public Class frmFlowForm
colPrimary.FieldName = AccessedFilesTable.Columns(1).ColumnName ' "DisplayFileName"
colSecondary.FieldName = AccessedFilesTable.Columns(2).ColumnName '"Changed when"
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Load_Recent_Files")
End Try
End Function
@@ -448,7 +448,7 @@ Public Class frmFlowForm
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Init_Folderwatch")
End Try
Try
@@ -475,7 +475,7 @@ Public Class frmFlowForm
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Init_Folderwatch")
End Try
End Sub
@@ -500,18 +500,18 @@ Public Class frmFlowForm
End Sub
Sub ExitZooflow()
Dim omessage = "Wollen sie ZooFlow wirklich beenden?"
Dim oMessage = "Wollen sie ZooFlow wirklich beenden?"
If My.Application.User.Language <> "de-DE" Then
omessage = "Are you sure you want to close ZooFlow?"
oMessage = "Are you sure you want to close ZooFlow?"
End If
Dim oTitle = "Zooflow beenden"
If My.Application.User.Language <> "de-DE" Then
oTitle = "Exit Zooflow"
End If
Dim oMsgBox As New frmDialog(omessage, oTitle, False)
Dim oMsgBox As New frmDialog(oMessage, oTitle, frmDialog.DialogType.Question)
oMsgBox.ShowDialog()
If oMsgBox.DialogResult = DialogResult.OK Then
If oMsgBox.DialogResult = DialogResult.Yes Then
Close()
Else
ESCHitCount = 0
@@ -613,7 +613,7 @@ Public Class frmFlowForm
End If
If TheFormIsAlreadyLoaded("frmIndexFileList") Then
Cursor = Cursors.Default
Dim oMsgBox As New frmDialog("Please index the active file first!", "Drag 'n Drop not allowed!", True)
Dim oMsgBox As New frmDialog("Please index the active file first!", "Drag 'n Drop not allowed!", frmDialog.DialogType.Warning)
oMsgBox.ShowDialog()
Exit Function
End If
@@ -679,7 +679,7 @@ Public Class frmFlowForm
End If
Next
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Globix_CheckDroppedFiles")
Finally
CleanTempFiles()
Show()
@@ -718,7 +718,7 @@ Public Class frmFlowForm
End If
Cursor = Cursors.Default
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Globix_Open_IndexDialog")
End Try
End Sub
Sub NotifyIconReset()
@@ -740,7 +740,7 @@ Public Class frmFlowForm
End Select
NotifyIcon.ShowBalloonTip(30000, NI_TITLE, NI_MESSAGE, oNIType)
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "GlobixClosed")
End Try
End Sub
Sub Folderwatch_CheckFiles()
@@ -789,7 +789,7 @@ Public Class frmFlowForm
Logger.Info("FWSCAN not started")
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Folderwatch_CheckFiles")
End Try
Try
@@ -826,7 +826,7 @@ Public Class frmFlowForm
Logger.Info("Folderwatch not started")
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "Folderwatch_CheckFiles")
End Try
If TimerCheckFolderWatchTable.Enabled = False Then
@@ -917,7 +917,7 @@ Public Class frmFlowForm
If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
Else
Dim oMsgBox As New frmDialog("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", True)
Dim oMsgBox As New frmDialog("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", frmDialog.DialogType.Error)
oMsgBox.ShowDialog()
End If
@@ -1098,12 +1098,6 @@ Public Class frmFlowForm
End Sub
Private Sub ShowErrorMessage(pEx As Exception)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
ErrorHandler.ShowErrorMessage(pEx, oCallingClass)
End Sub
Private Function GetResultWindowString(SearchContent As String) As String
If SearchContent <> String.Empty Then
If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then
@@ -1136,7 +1130,7 @@ Public Class frmFlowForm
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "CheckQuickSearch1")
Finally
RunningTask = Nothing
SplashScreenManager.CloseOverlayForm(oHandle)
@@ -1164,7 +1158,7 @@ Public Class frmFlowForm
My.SystemConfig.AppServerConfig = oForm.ServiceAddress
My.SystemConfigManager.Save()
Catch ex As Exception
ErrorHandler.ShowErrorMessage("Service Config")
FormHelper.ShowErrorMessage(ex, "Service Config")
End Try
End Sub
@@ -1196,7 +1190,7 @@ Public Class frmFlowForm
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "PictureBoxPM_Click")
End Try
End Sub
Private Function PM_Running() As Boolean
@@ -1254,7 +1248,7 @@ Public Class frmFlowForm
Search.RunWithDataTable(oResult, "Suche")
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Laden eines Dokuments")
FormHelper.ShowErrorMessage(ex, "Laden eines Dokuments")
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try