AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.Common/Base/BaseErrorHandler.vb
View File

@ -3,7 +3,7 @@ Imports System.Windows.Forms
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Namespace Base Namespace Base
Public Class BaseErrorHandler Public Class NNBaseErrorHandler
Private ReadOnly _LogConfig As LogConfig Private ReadOnly _LogConfig As LogConfig
Private ReadOnly _Logger As Logger Private ReadOnly _Logger As Logger
Private ReadOnly _Form As Form Private ReadOnly _Form As Form

11
GUIs.Common/Base/BaseForm.vb
View File

@ -3,11 +3,10 @@ Imports DevExpress.XtraEditors
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Namespace Base Namespace Base
Public Class BaseForm Public Class NNBaseForm
Inherits XtraForm Inherits XtraForm
Private ReadOnly _Logger As Logger Private ReadOnly _Logger As Logger
Private ReadOnly _ErrorHandler As BaseErrorHandler
Protected ReadOnly Property Logger As Logger Protected ReadOnly Property Logger As Logger
Get Get
@ -25,7 +24,7 @@ Namespace Base
' My.LogConfig is undefined in the designer ' My.LogConfig is undefined in the designer
_Logger = LogConfig.GetLogger(oClassName) _Logger = LogConfig.GetLogger(oClassName)
_ErrorHandler = New BaseErrorHandler(LogConfig, _Logger, Me) '_ErrorHandler = New BaseErrorHandler(LogConfig, _Logger, Me)
' When you add something, be careful if it ' When you add something, be careful if it
' depends on a global var like My.LogConfig ' depends on a global var like My.LogConfig
@ -34,16 +33,16 @@ Namespace Base
''' ============== PUBLIC METHODS ============== ''' ============== PUBLIC METHODS ==============
Public Sub ShowInfoMessage(Message As String) Public Sub ShowInfoMessage(Message As String)
_ErrorHandler.ShowInfoMessage(Message) '_ErrorHandler.ShowInfoMessage(Message)
End Sub End Sub
Public Sub ShowErrorMessage(Exception As Exception) Public Sub ShowErrorMessage(Exception As Exception)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2) Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
_ErrorHandler.ShowErrorMessage(Exception, oCallingClass) '_ErrorHandler.ShowErrorMessage(Exception, oCallingClass)
End Sub End Sub
Public Sub ShowErrorMessage(ErrorMessage As String) Public Sub ShowErrorMessage(ErrorMessage As String)
_ErrorHandler.ShowErrorMessage(ErrorMessage) '_ErrorHandler.ShowErrorMessage(ErrorMessage)
End Sub End Sub
End Class End Class
End Namespace End Namespace

62
GUIs.Common/Base/BaseRibbonForm.vb
View File

@ -1,62 +0,0 @@
Imports DevExpress.XtraBars.Docking
Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.Logging
Namespace Base
''' <summary>
''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms
''' </summary>
''' <example>
''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form.
'''
''' Partial Class frmExample
''' Inherits BaseRibbonForm
'''
''' ...
''' End Class
''' </example>
Public Class BaseRibbonForm
Inherits RibbonForm
Private _Logger As Logger
Private _ErrorHandler As BaseErrorHandler
Protected ReadOnly Property Logger As Logger
Get
Return _Logger
End Get
End Property
Public Sub New()
End Sub
Public Sub InitializeBaseForm(LogConfig As LogConfig)
' Get the full name of the inheriting form
' so the log messages have the right classname
Dim oClassName = [GetType]().FullName
' My.LogConfig is undefined in the designer
_Logger = LogConfig?.GetLogger(oClassName)
_ErrorHandler = New BaseErrorHandler(LogConfig, _Logger, Me)
' When you add something, be careful if it
' depends on a global var like My.LogConfig
' you might need to check for its existence with ?
End Sub
''' ============== PUBLIC METHODS ==============
Public Sub ShowInfoMessage(Message As String)
_ErrorHandler.ShowInfoMessage(Message)
End Sub
Public Sub ShowErrorMessage(Exception As Exception)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
_ErrorHandler.ShowErrorMessage(Exception, oCallingClass)
End Sub
Public Sub ShowErrorMessage(ErrorMessage As String)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
_ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage), oCallingClass)
End Sub
End Class
End Namespace

13
GUIs.Common/Common.vbproj
View File

@ -112,9 +112,6 @@
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Base\BaseResult.vb" /> <Compile Include="Base\BaseResult.vb" />
<Compile Include="Base\BaseRibbonForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Constants.vb" /> <Compile Include="Constants.vb" />
<Compile Include="DataResultList\DataResultConfig.vb" /> <Compile Include="DataResultList\DataResultConfig.vb" />
<Compile Include="DataResultList\DataResultParams.vb" /> <Compile Include="DataResultList\DataResultParams.vb" />
@ -124,6 +121,7 @@
<Compile Include="DataResultList\frmDataResultList.vb"> <Compile Include="DataResultList\frmDataResultList.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="FormHelper.vb" />
<Compile Include="frmDialog.Designer.vb"> <Compile Include="frmDialog.Designer.vb">
<DependentUpon>frmDialog.vb</DependentUpon> <DependentUpon>frmDialog.vb</DependentUpon>
</Compile> </Compile>
@ -563,5 +561,14 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\selectdatamember.svg" /> <None Include="Resources\selectdatamember.svg" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<None Include="Resources\checkbox.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\cancel.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\actions_checkcircled1.svg" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

47
GUIs.Common/FormHelper.vb Normal file
View File

@ -0,0 +1,47 @@
Imports DigitalData.Modules.Logging
Imports System.Windows.Forms
Public Class FormHelper
Private ReadOnly LogConfig As LogConfig
Private ReadOnly Logger As Logger
Private ReadOnly Form As Form
Public Sub New(pLogConfig As LogConfig, pForm As Form)
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
Form = pForm
End Sub
Public Function ShowInfoMessage(pMessage As String, pTitle As String) As DialogResult
Logger.Info(pMessage)
Dim oForm As New frmDialog(pMessage, pTitle, frmDialog.DialogType.Info)
Return oForm.ShowDialog()
End Function
Public Function ShowErrorMessage(pMessage As String, pTitle As String) As DialogResult
Return ShowErrorMessage(New ApplicationException(pMessage), pTitle)
End Function
Public Function ShowErrorMessage(pException As Exception, pTitle As String) As DialogResult
Logger.Error(pException)
Dim oMessage = String.Format("In der Funktion '{0}' ist folgender Fehler aufgetreten: {1}", pTitle, vbNewLine & vbNewLine & pException.Message)
If LogConfig.Debug Then
oMessage &= vbNewLine & vbNewLine & "=== Debug Information ==="
oMessage &= vbNewLine & vbNewLine & "Stacktrace:"
oMessage &= vbNewLine & pException.StackTrace
End If
Dim oForm As New frmDialog(oMessage, pTitle, frmDialog.DialogType.Error)
Return oForm.ShowDialog()
End Function
Public Function ShowWarningMessage(pMessage As String, pTitle As String) As DialogResult
Logger.Warn(pMessage)
Dim oForm As New frmDialog(pMessage, pTitle, frmDialog.DialogType.Error)
Return oForm.ShowDialog()
End Function
End Class

1
GUIs.Common/IBaseForm.vb
View File

@ -4,5 +4,4 @@ Imports DigitalData.Modules.Logging
Public Interface IBaseForm Public Interface IBaseForm
ReadOnly Property LogConfig As LogConfig ReadOnly Property LogConfig As LogConfig
ReadOnly Property Logger As Logger ReadOnly Property Logger As Logger
ReadOnly Property ErrorHandler As BaseErrorHandler
End Interface End Interface

30
GUIs.Common/My Project/Resources.Designer.vb generated
View File

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

63
GUIs.Common/My Project/Resources.resx
View File

@ -145,8 +145,8 @@
<data name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save" 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> <value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="grid" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="grid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\grid.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\grid.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -157,9 +157,6 @@
<data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="autoarrange" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="autoarrange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\autoarrange1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\autoarrange1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -172,30 +169,36 @@
<data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="togglefieldcodes" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="togglefieldcodes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\togglefieldcodes1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\togglefieldcodes1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checkbox.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="selectdatamember" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\selectdatamember.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\updatedataextract4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\updatedataextract4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="refreshallpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refreshallpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="enablescrolling" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="enablescrolling" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\enablescrolling.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\enablescrolling.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="title" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\title.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <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="clearpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="singlepageview1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="singlepageview1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\singlepageview1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -208,11 +211,14 @@
<data name="bo_contract" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bo_contract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_contract1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\bo_contract1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clearall" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="clearall" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\clearall1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\clearall1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="_page" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="clearpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="categorize" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="categorize" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\categorize.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\categorize.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -220,8 +226,8 @@
<data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="actions_database" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="title" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_database3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\title.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -232,11 +238,11 @@
<data name="actions_user" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_user" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_user1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_user1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_database" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\actions_database3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="filterquery" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="filterquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\filterquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\filterquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -250,17 +256,20 @@
<data name="private" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="private" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\private.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\private.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Copy_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Copy_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="save1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="_page" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="handtool" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="handtool" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handtool1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\handtool1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -274,7 +283,7 @@
<data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="selectdatamember" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_checkcircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\selectdatamember.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_checkcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
</root> </root>

4
GUIs.Common/NNMsgBoxEx.Designer.vb generated
View File

@ -102,7 +102,7 @@ Partial Class NNMsgBoxEx
Me.PanelControl1.Size = New System.Drawing.Size(485, 47) Me.PanelControl1.Size = New System.Drawing.Size(485, 47)
Me.PanelControl1.TabIndex = 23 Me.PanelControl1.TabIndex = 23
' '
'MsgBoxEx 'NNMsgBoxEx
' '
Me.Appearance.BackColor = System.Drawing.SystemColors.ControlLightLight Me.Appearance.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Appearance.Options.UseBackColor = True Me.Appearance.Options.UseBackColor = True
@ -115,7 +115,7 @@ Partial Class NNMsgBoxEx
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "MsgBoxEx" Me.Name = "NNMsgBoxEx"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "[Title]" Me.Text = "[Title]"
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()

4
GUIs.Common/NNMsgBoxEx.vb
View File

@ -189,4 +189,8 @@ Public Class NNMsgBoxEx
Button2 Button2
Button3 Button3
End Enum End Enum
Private Sub NNMsgBoxEx_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class End Class

7
GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb
View File

@ -15,13 +15,13 @@ Public Class ctrlObjectPropertyDialog
Private Property LogConfig As LogConfig Implements IBaseForm.LogConfig Private Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Private Property Logger As Logger Implements IBaseForm.Logger Private Property Logger As Logger Implements IBaseForm.Logger
Private Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Private Property ControlManager As AttributeControls Private Property ControlManager As AttributeControls
Private Property GridBuilder As GridBuilder Private Property GridBuilder As GridBuilder
Private Property Client As Client Private Property Client As Client
Private Property Environment As Environment Private Property Environment As Environment
Private Property ObjectId As Long Private Property ObjectId As Long
Private Property HostForm As Form Private Property HostForm As Form
Private Property FormHelper As FormHelper
Private ReadOnly Changes As New Dictionary(Of String, Object) Private ReadOnly Changes As New Dictionary(Of String, Object)
@ -42,7 +42,6 @@ Public Class ctrlObjectPropertyDialog
LogConfig = pLogConfig LogConfig = pLogConfig
Logger = pLogConfig.GetLogger() Logger = pLogConfig.GetLogger()
HostForm = pHostForm HostForm = pHostForm
ErrorHandler = New BaseErrorHandler(pLogConfig, pHostForm)
ControlManager = New AttributeControls(pLogConfig, pEnv, pClient) ControlManager = New AttributeControls(pLogConfig, pEnv, pClient)
GridBuilder = New GridBuilder(ViewObjectHistory, ViewValueHistory) GridBuilder = New GridBuilder(ViewObjectHistory, ViewValueHistory)
@ -67,10 +66,10 @@ Public Class ctrlObjectPropertyDialog
}) })
Next Next
ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!") FormHelper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
Changes.Clear() Changes.Clear()
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "SaveChanges") FormHelper.ShowErrorMessage(ex, "SaveChanges")
End Try End Try
End Function End Function

9
GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb
View File

@ -20,10 +20,10 @@ Public Class frmObjectPropertyDialog
Private ReadOnly ObjectId As Int64 Private ReadOnly ObjectId As Int64
Private ReadOnly DatabaseIDB As MSSQLServer Private ReadOnly DatabaseIDB As MSSQLServer
Private ReadOnly ControlManager As AttributeControls Private ReadOnly ControlManager As AttributeControls
Private Property FormHelper As FormHelper
Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger
Private ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Private ReadOnly Changes As New Dictionary(Of String, Object) Private ReadOnly Changes As New Dictionary(Of String, Object)
@ -41,7 +41,6 @@ Public Class frmObjectPropertyDialog
ControlManager = New AttributeControls(LogConfig, Environment, pClient) ControlManager = New AttributeControls(LogConfig, Environment, pClient)
AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged
ErrorHandler = New BaseErrorHandler(LogConfig, Me)
End Sub End Sub
Private Async Sub frmObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Async Sub frmObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@ -68,7 +67,7 @@ Public Class frmObjectPropertyDialog
cmbBusinessEntity.EditValue = oEntityIds.First() cmbBusinessEntity.EditValue = oEntityIds.First()
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load") FormHelper.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load")
Finally Finally
If oHandle IsNot Nothing Then If oHandle IsNot Nothing Then
SplashScreenManager.CloseOverlayForm(oHandle) SplashScreenManager.CloseOverlayForm(oHandle)
@ -225,10 +224,10 @@ Public Class frmObjectPropertyDialog
}) })
Next Next
ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!") FormHelper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!", "btnSave_ItemClick")
Changes.Clear() Changes.Clear()
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick") FormHelper.ShowErrorMessage(ex, "btnSave_ItemClick")
End Try End Try
End Sub End Sub

15
GUIs.Common/Resources/actions_checkcircled1.svg Normal file
View File

@ -0,0 +1,15 @@
<?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;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="CheckCircled">
<path d="M16,4C9.4,4,4,9.4,4,16c0,6.6,5.4,12,12,12s12-5.4,12-12C28,9.4,22.6,4,16,4z M14,22l-6-6l2-2l4,4l8-8l2,2 L14,22z" class="Green" />
</g>
</svg>

7
GUIs.Common/Resources/cancel.svg Normal file
View File

@ -0,0 +1,7 @@
<?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">
.Red{fill:#D11C1C;}
</style>
<path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M23,20l-3,3l-4-4l-4,4l-3-3l4-4l-4-4l3-3l4,4 l4-4l3,3l-4,4L23,20z" class="Red" />
</svg>

17
GUIs.Common/Resources/checkbox.svg Normal file
View File

@ -0,0 +1,17 @@
<?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">
.Black{fill:#727272;}
.Yellow{fill:#FFB115;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.White{fill:#FFFFFF;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
.st2{opacity:0.25;}
</style>
<g id="CheckBox">
<path d="M27,4H5C4.5,4,4,4.5,4,5v22c0,0.5,0.5,1,1,1h22c0.5,0,1-0.5,1-1V5C28,4.5,27.5,4,27,4z M14,22l-6-6l2-2l4,4 l8-8l2,2L14,22z" class="Green" />
</g>
</svg>

212
GUIs.Common/frmDialog.Designer.vb generated
View File

@ -22,76 +22,152 @@ Partial Class frmDialog
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.OK_Button = New System.Windows.Forms.Button() Me.components = New System.ComponentModel.Container()
Me.Cancel_Button = New System.Windows.Forms.Button() Me.btnPositive = New DevExpress.XtraEditors.SimpleButton()
Me.Panel1 = New System.Windows.Forms.Panel() Me.btnNegative = New DevExpress.XtraEditors.SimpleButton()
Me.lblMeldung = New System.Windows.Forms.Label() Me.pnlContent = New DevExpress.XtraEditors.PanelControl()
Me.Panel2 = New System.Windows.Forms.Panel() Me.txtContent = New DevExpress.XtraEditors.LabelControl()
Me.Panel1.SuspendLayout() Me.SvgImageBox1 = New DevExpress.XtraEditors.SvgImageBox()
Me.Panel2.SuspendLayout() Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
Me.pnlHeader = New DevExpress.XtraEditors.PanelControl()
Me.txtTitle = New DevExpress.XtraEditors.LabelControl()
Me.pnlFooter = New DevExpress.XtraEditors.PanelControl()
Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
CType(Me.pnlContent, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlContent.SuspendLayout()
CType(Me.SvgImageBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHeader.SuspendLayout()
CType(Me.pnlFooter, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlFooter.SuspendLayout()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'OK_Button 'btnPositive
' '
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnPositive.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnPositive.DialogResult = System.Windows.Forms.DialogResult.OK
Me.OK_Button.Location = New System.Drawing.Point(3, 10) Me.btnPositive.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.actions_checkcircled
Me.OK_Button.Name = "OK_Button" Me.btnPositive.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
Me.OK_Button.Size = New System.Drawing.Size(86, 32) Me.btnPositive.Location = New System.Drawing.Point(386, 5)
Me.OK_Button.TabIndex = 0 Me.btnPositive.Name = "btnPositive"
Me.OK_Button.Text = "OK" Me.btnPositive.Size = New System.Drawing.Size(100, 23)
Me.btnPositive.TabIndex = 0
Me.btnPositive.Text = "OK"
' '
'Cancel_Button 'btnNegative
' '
Me.Cancel_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnNegative.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnNegative.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnNegative.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.cancel
Me.Cancel_Button.Location = New System.Drawing.Point(358, 10) Me.btnNegative.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
Me.Cancel_Button.Name = "Cancel_Button" Me.btnNegative.Location = New System.Drawing.Point(280, 5)
Me.Cancel_Button.Size = New System.Drawing.Size(91, 32) Me.btnNegative.Name = "btnNegative"
Me.Cancel_Button.TabIndex = 1 Me.btnNegative.Size = New System.Drawing.Size(100, 23)
Me.Cancel_Button.Text = "Abbrechen" Me.btnNegative.TabIndex = 1
Me.btnNegative.Text = "Abbrechen"
' '
'Panel1 'pnlContent
' '
Me.Panel1.BackColor = System.Drawing.Color.OrangeRed Me.pnlContent.Controls.Add(Me.txtContent)
Me.Panel1.Controls.Add(Me.lblMeldung) Me.pnlContent.Controls.Add(Me.SvgImageBox1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.pnlContent.Controls.Add(Me.PanelControl1)
Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.pnlContent.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.pnlContent.Location = New System.Drawing.Point(0, 40)
Me.Panel1.Name = "Panel1" Me.pnlContent.Name = "pnlContent"
Me.Panel1.Size = New System.Drawing.Size(452, 180) Me.pnlContent.Size = New System.Drawing.Size(498, 145)
Me.Panel1.TabIndex = 2 Me.pnlContent.TabIndex = 3
' '
'lblMeldung 'txtContent
' '
Me.lblMeldung.AutoSize = True Me.txtContent.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Me.lblMeldung.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Or System.Windows.Forms.AnchorStyles.Left) _
Me.lblMeldung.Location = New System.Drawing.Point(3, 9) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblMeldung.Name = "lblMeldung" Me.txtContent.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!)
Me.lblMeldung.Size = New System.Drawing.Size(56, 21) Me.txtContent.Appearance.Options.UseFont = True
Me.lblMeldung.TabIndex = 0 Me.txtContent.Appearance.Options.UseTextOptions = True
Me.lblMeldung.Text = "Label1" Me.txtContent.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top
Me.txtContent.AutoEllipsis = True
Me.txtContent.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.txtContent.Location = New System.Drawing.Point(98, 6)
Me.txtContent.Name = "txtContent"
Me.txtContent.Padding = New System.Windows.Forms.Padding(10)
Me.txtContent.Size = New System.Drawing.Size(388, 133)
Me.txtContent.TabIndex = 1
Me.txtContent.Text = "txtContent"
' '
'Panel2 'SvgImageBox1
' '
Me.Panel2.Controls.Add(Me.OK_Button) Me.SvgImageBox1.BackColor = System.Drawing.Color.Transparent
Me.Panel2.Controls.Add(Me.Cancel_Button) Me.SvgImageBox1.Location = New System.Drawing.Point(22, 16)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.SvgImageBox1.Name = "SvgImageBox1"
Me.Panel2.Location = New System.Drawing.Point(0, 180) Me.SvgImageBox1.Size = New System.Drawing.Size(60, 60)
Me.Panel2.Name = "Panel2" Me.SvgImageBox1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
Me.Panel2.Size = New System.Drawing.Size(452, 45) Me.SvgImageBox1.TabIndex = 0
Me.Panel2.TabIndex = 3 Me.SvgImageBox1.TabStop = False
Me.SvgImageBox1.Text = "SvgImageBox1"
'
'PanelControl1
'
Me.PanelControl1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
Me.PanelControl1.Appearance.Options.UseBackColor = True
Me.PanelControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.PanelControl1.Location = New System.Drawing.Point(12, 6)
Me.PanelControl1.Name = "PanelControl1"
Me.PanelControl1.Size = New System.Drawing.Size(80, 80)
Me.PanelControl1.TabIndex = 2
'
'pnlHeader
'
Me.pnlHeader.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
Me.pnlHeader.Appearance.Options.UseBackColor = True
Me.pnlHeader.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.pnlHeader.Controls.Add(Me.txtTitle)
Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(498, 40)
Me.pnlHeader.TabIndex = 4
'
'txtTitle
'
Me.txtTitle.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTitle.Appearance.ForeColor = System.Drawing.Color.White
Me.txtTitle.Appearance.Options.UseFont = True
Me.txtTitle.Appearance.Options.UseForeColor = True
Me.txtTitle.Location = New System.Drawing.Point(12, 12)
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(45, 17)
Me.txtTitle.TabIndex = 0
Me.txtTitle.Text = "txtTitle"
'
'pnlFooter
'
Me.pnlFooter.Controls.Add(Me.btnPositive)
Me.pnlFooter.Controls.Add(Me.btnNegative)
Me.pnlFooter.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlFooter.Location = New System.Drawing.Point(0, 185)
Me.pnlFooter.Name = "pnlFooter"
Me.pnlFooter.Size = New System.Drawing.Size(498, 40)
Me.pnlFooter.TabIndex = 5
'
'SvgImageCollection1
'
Me.SvgImageCollection1.Add("warning", "image://svgimages/business objects/bo_attention.svg")
Me.SvgImageCollection1.Add("error", "image://svgimages/outlook inspired/highimportance.svg")
Me.SvgImageCollection1.Add("success", "image://svgimages/icon builder/actions_checkcircled.svg")
Me.SvgImageCollection1.Add("info", "image://svgimages/outlook inspired/about.svg")
Me.SvgImageCollection1.Add("question", "image://svgimages/icon builder/actions_question.svg")
' '
'frmDialog 'frmDialog
' '
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button Me.ClientSize = New System.Drawing.Size(498, 225)
Me.ClientSize = New System.Drawing.Size(452, 225) Me.Controls.Add(Me.pnlContent)
Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.pnlFooter)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.pnlHeader)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
@ -99,15 +175,27 @@ Partial Class frmDialog
Me.ShowInTaskbar = False Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Dialog1" Me.Text = "Dialog1"
Me.Panel1.ResumeLayout(False) CType(Me.pnlContent, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.PerformLayout() Me.pnlContent.ResumeLayout(False)
Me.Panel2.ResumeLayout(False) CType(Me.SvgImageBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHeader.ResumeLayout(False)
Me.pnlHeader.PerformLayout()
CType(Me.pnlFooter, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlFooter.ResumeLayout(False)
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents btnNegative As DevExpress.XtraEditors.SimpleButton
Friend WithEvents Cancel_Button As System.Windows.Forms.Button Friend WithEvents btnPositive As DevExpress.XtraEditors.SimpleButton
Friend WithEvents Panel1 As Windows.Forms.Panel Friend WithEvents pnlContent As DevExpress.XtraEditors.PanelControl
Friend WithEvents Panel2 As Windows.Forms.Panel Friend WithEvents pnlHeader As DevExpress.XtraEditors.PanelControl
Friend WithEvents lblMeldung As Windows.Forms.Label Friend WithEvents pnlFooter As DevExpress.XtraEditors.PanelControl
Friend WithEvents SvgImageBox1 As DevExpress.XtraEditors.SvgImageBox
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
Friend WithEvents txtContent As DevExpress.XtraEditors.LabelControl
Friend WithEvents txtTitle As DevExpress.XtraEditors.LabelControl
Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
End Class End Class

3
GUIs.Common/frmDialog.resx
View File

@ -117,4 +117,7 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root> </root>

97
GUIs.Common/frmDialog.vb
View File

@ -2,38 +2,101 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Public Class frmDialog Public Class frmDialog
Public Sub New(pMessageText As String, pTitle As String, IsError As Boolean)
#Region "WinAPI"
Public Const WM_NCLBUTTONDOWN As Integer = &HA1
Public Const HT_CAPTION As Integer = &H2
<System.Runtime.InteropServices.DllImport("user32.dll")>
Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
<System.Runtime.InteropServices.DllImport("user32.dll")>
Public Shared Function ReleaseCapture() As Boolean
End Function
#End Region
Public Enum DialogType
Warning
[Error]
Success
Info
Question
End Enum
Public Sub New(pMessageText As String, pTitle As String, pDialogType As DialogType)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
txtContent.Text = pMessageText
txtTitle.Text = pTitle
Me.lblMeldung.Text = pMessageText Select Case pDialogType
Me.Text = pTitle Case DialogType.Success
If IsError Then pnlContent.BackColor = Color.LightGreen
Panel1.BackColor = Color.Red SvgImageBox1.SvgImage = SvgImageCollection1.Item("success")
Cancel_Button.Visible = False btnNegative.Visible = False
Else SetOkCancelButtons()
Panel1.BackColor = Color.OrangeRed
Cancel_Button.Visible = True Case DialogType.Info
pnlContent.BackColor = Color.LightBlue
SvgImageBox1.SvgImage = SvgImageCollection1.Item("info")
SetOkCancelButtons()
Case DialogType.Error
pnlContent.BackColor = Color.LightCoral
SvgImageBox1.SvgImage = SvgImageCollection1.Item("error")
btnNegative.Visible = False
SetOkCancelButtons()
Case DialogType.Warning
pnlContent.BackColor = Color.LightYellow
SvgImageBox1.SvgImage = SvgImageCollection1.Item("warning")
SetOkCancelButtons()
Case DialogType.Question
pnlContent.BackColor = Color.LightYellow
SvgImageBox1.SvgImage = SvgImageCollection1.Item("question")
SetYesNoButtons()
End Select
Dim oLineBreaks = txtContent.Text.Split(vbNewLine).Count
If oLineBreaks > 6 Then
Dim oHeightOffset = oLineBreaks * 20
Height += oHeightOffset
End If End If
btnPositive.Focus()
End Sub End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Private Sub SetYesNoButtons()
Me.DialogResult = System.Windows.Forms.DialogResult.OK btnNegative.Text = "Nein"
Me.Close() btnNegative.DialogResult = DialogResult.No
btnPositive.Text = "Ja"
btnPositive.DialogResult = DialogResult.Yes
End Sub End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click Private Sub SetOkCancelButtons()
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel btnNegative.Text = "Abbrechen"
Me.Close() btnNegative.DialogResult = DialogResult.Cancel
btnPositive.Text = "OK"
btnPositive.DialogResult = DialogResult.OK
End Sub End Sub
Public Sub CancelButtonInvisible() Public Sub CancelButtonInvisible()
Cancel_Button.Visible = False btnNegative.Visible = False
End Sub End Sub
Public Sub CancelButtonVisible() Public Sub CancelButtonVisible()
Cancel_Button.Visible = True btnNegative.Visible = True
End Sub End Sub
Private Sub Header_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles pnlHeader.MouseDown, txtTitle.MouseDown
If e.Button = MouseButtons.Left Then
ReleaseCapture()
SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
End If
End Sub
End Class End Class

12
GUIs.Common/frmDocumentResultList.vb
View File

@ -31,7 +31,6 @@ Public Class frmDocumentResultList
' Interface implementations ' Interface implementations
Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger
Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm
' Helper Classes ' Helper Classes
@ -48,6 +47,7 @@ Public Class frmDocumentResultList
Private ReadOnly Helpers As DocumentResultList.Helpers Private ReadOnly Helpers As DocumentResultList.Helpers
Private ReadOnly Params As Params Private ReadOnly Params As Params
Private ReadOnly LayoutManager As Layout Private ReadOnly LayoutManager As Layout
Private ReadOnly FormHelper As FormHelper
Private WithEvents Watcher As Watcher Private WithEvents Watcher As Watcher
' Runtime variables ' Runtime variables
@ -97,7 +97,7 @@ Public Class frmDocumentResultList
LogConfig = pLogConfig LogConfig = pLogConfig
Logger = pLogConfig.GetLogger() Logger = pLogConfig.GetLogger()
ErrorHandler = New BaseErrorHandler(pLogConfig, Me) FormHelper = New FormHelper(pLogConfig, Me)
Environment = pEnvironment Environment = pEnvironment
Params = pParams Params = pParams
@ -228,7 +228,7 @@ Public Class frmDocumentResultList
End If End If
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Form Load", "Error while loading results") FormHelper.ShowErrorMessage(ex, "Error while loading results")
Finally Finally
IsLoading = False IsLoading = False
@ -288,7 +288,7 @@ Public Class frmDocumentResultList
DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocument.Contents)) DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocument.Contents))
If IsNothing(oDocument) Then If IsNothing(oDocument) Then
DocumentViewer1.CloseDocument() DocumentViewer1.CloseDocument()
ErrorHandler.ShowErrorMessage("File could not be loaded!") FormHelper.ShowErrorMessage("File could not be loaded!", "GridView_FocusedRowChanged")
Exit Sub Exit Sub
End If End If
@ -310,7 +310,7 @@ Public Class frmDocumentResultList
UpdateRibbonActions(Nothing) UpdateRibbonActions(Nothing)
End If End If
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GridView_FocusedRowChanged") FormHelper.ShowErrorMessage(ex, "GridView_FocusedRowChanged")
Finally Finally
Cursor = Cursors.Default Cursor = Cursors.Default
End Try End Try
@ -400,7 +400,7 @@ Public Class frmDocumentResultList
End If End If
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Watcher_FileChanged") FormHelper.ShowErrorMessage(ex, "Watcher_FileChanged")
Finally Finally
' Signal to the watcher that the file is no longer in use ' Signal to the watcher that the file is no longer in use

30
GUIs.Common/frmFileFlow_Duplicate.Designer.vb generated
View File

@ -27,16 +27,16 @@ Partial Class frmFileFlow_Duplicate
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.LabelControlMessage = New DevExpress.XtraEditors.LabelControl() Me.LabelControlMessage = New DevExpress.XtraEditors.LabelControl()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.PanelControl2 = New DevExpress.XtraEditors.PanelControl() Me.PanelControl2 = New DevExpress.XtraEditors.PanelControl()
Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanelControl1.SuspendLayout() Me.PanelControl1.SuspendLayout()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanelControl2.SuspendLayout() Me.PanelControl2.SuspendLayout()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'PanelControl1 'PanelControl1
@ -98,6 +98,18 @@ Partial Class frmFileFlow_Duplicate
Me.LabelControlMessage.TabIndex = 1 Me.LabelControlMessage.TabIndex = 1
Me.LabelControlMessage.Text = "Diese Datei ist doppelt....Text aus New" Me.LabelControlMessage.Text = "Diese Datei ist doppelt....Text aus New"
' '
'PictureEdit1
'
Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
Me.PictureEdit1.Location = New System.Drawing.Point(12, 22)
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.DarkRed
Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit1.Size = New System.Drawing.Size(100, 96)
Me.PictureEdit1.TabIndex = 0
'
'PanelControl2 'PanelControl2
' '
Me.PanelControl2.Appearance.BackColor = System.Drawing.SystemColors.Info Me.PanelControl2.Appearance.BackColor = System.Drawing.SystemColors.Info
@ -160,18 +172,6 @@ Partial Class frmFileFlow_Duplicate
Me.SimpleButton3.TabIndex = 1 Me.SimpleButton3.TabIndex = 1
Me.SimpleButton3.Text = "Datei anzeigen" Me.SimpleButton3.Text = "Datei anzeigen"
' '
'PictureEdit1
'
Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
Me.PictureEdit1.Location = New System.Drawing.Point(12, 22)
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.DarkRed
Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit1.Size = New System.Drawing.Size(100, 96)
Me.PictureEdit1.TabIndex = 0
'
'frmFileFlow_Duplicate 'frmFileFlow_Duplicate
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
@ -189,9 +189,9 @@ Partial Class frmFileFlow_Duplicate
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanelControl1.ResumeLayout(False) Me.PanelControl1.ResumeLayout(False)
Me.PanelControl1.PerformLayout() Me.PanelControl1.PerformLayout()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanelControl2.ResumeLayout(False) Me.PanelControl2.ResumeLayout(False)
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub

46
GUIs.Common/frmFileFlow_Duplicate.resx
View File

@ -154,6 +154,29 @@
My0wLjktMC4zYy0wLjksMC0xLjQsMS0xLjQsMS40aC0xLjRjMC0wLjgsMC4zLTEuNCwwLjgtMS45czEu My0wLjktMC4zYy0wLjksMC0xLjQsMS0xLjQsMS40aC0xLjRjMC0wLjgsMC4zLTEuNCwwLjgtMS45czEu
Mi0wLjcsMi0wLjcgIHMxLjUsMC4yLDEuOSwwLjZjMC41LDAuNCwwLjcsMC45LDAuNywxLjZDMjguNiw4 Mi0wLjcsMi0wLjcgIHMxLjUsMC4yLDEuOSwwLjZjMC41LDAuNCwwLjcsMC45LDAuNywxLjZDMjguNiw4
LjIsMjYuNyw4LjUsMjYuNyw5LjR6IiBjbGFzcz0iR3JlZW4iIC8+DQo8L3N2Zz4L LjIsMjYuNyw4LjUsMjYuNyw5LjR6IiBjbGFzcz0iR3JlZW4iIC8+DQo8L3N2Zz4L
</value>
</data>
<data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu
MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu
MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww
LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt
MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs
OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K
ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y
LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value> </value>
</data> </data>
<data name="SimpleButton5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="SimpleButton5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -230,29 +253,6 @@
Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+ aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
DQogIDwvZz4NCjwvc3ZnPgs= DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu
MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu
MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww
LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt
MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs
OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K
ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y
LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value> </value>
</data> </data>
</root> </root>

3
GUIs.Common/frmFileFlow_Duplicate.vb
View File

@ -19,4 +19,7 @@
LabelControlMessage.Text = omessagetext LabelControlMessage.Text = omessagetext
End Sub End Sub
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
End Sub
End Class End Class

2
GUIs.Monitor/frmMonitor.Designer.vb generated
View File

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

17
GUIs.Monitor/frmMonitor.vb
View File

@ -18,6 +18,8 @@ Imports DevExpress.XtraEditors.Controls
Public Class frmMonitor Public Class frmMonitor
Public Property LogConfig As LogConfig Public Property LogConfig As LogConfig
Public Property Logger As Logger
Public Property FormHelper As FormHelper
Public Property ConfigManager As ConfigManager(Of Config) Public Property ConfigManager As ConfigManager(Of Config)
Public Property Database As MSSQLServer Public Property Database As MSSQLServer
@ -33,9 +35,6 @@ Public Class frmMonitor
Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"} Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"}
Private SQLResultGrids As List(Of GridControl) Private SQLResultGrids As List(Of GridControl)
Private SQLResultTabs As List(Of XtraTabPage) Private SQLResultTabs As List(Of XtraTabPage)
Private ActiveSQLResultGrid As GridControl Private ActiveSQLResultGrid As GridControl
@ -76,8 +75,10 @@ Public Class frmMonitor
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor") LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor")
Logger = LogConfig.GetLogger()
FormHelper = New FormHelper(LogConfig, Me)
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.UserAppDataPath, Application.StartupPath) ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.UserAppDataPath, Application.StartupPath)
InitializeBaseForm(LogConfig)
If ConfigManager.Config.ConnectionString = String.Empty Then If ConfigManager.Config.ConnectionString = String.Empty Then
Dim oSQLConfig As New frmSQLConfig(LogConfig) Dim oSQLConfig As New frmSQLConfig(LogConfig)
@ -86,7 +87,7 @@ Public Class frmMonitor
ConfigManager.Save() ConfigManager.Save()
Application.Restart() Application.Restart()
Else Else
ShowErrorMessage("No Database configured. Application will close!") FormHelper.ShowErrorMessage("No Database configured. Application will close!", "frmStart_Load")
Application.Exit() Application.Exit()
End If End If
@ -143,7 +144,7 @@ Public Class frmMonitor
SplitContainerControl3.Collapsed = True SplitContainerControl3.Collapsed = True
SplitContainerMain.Collapsed = True SplitContainerMain.Collapsed = True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "frmStart_Load")
End Try End Try
End Sub End Sub
@ -195,7 +196,7 @@ Public Class frmMonitor
Next Next
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "LoadData")
Return False Return False
Finally Finally
SplitContainerContent.Enabled = False SplitContainerContent.Enabled = False
@ -219,7 +220,7 @@ Public Class frmMonitor
cmbSearchKeys.Properties.Items.Clear() cmbSearchKeys.Properties.Items.Clear()
cmbSearchKeys.Properties.Items.AddRange(SearchKeys) cmbSearchKeys.Properties.Items.AddRange(SearchKeys)
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "LoadSearchKeys")
End Try End Try
End Sub End Sub

5
GUIs.Test.TestGUI/frmMsgBox.vb
View File

@ -14,11 +14,12 @@ Public Class frmMsgBox
End Sub End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Dim oMsgbox = New NNMsgBoxEx("Hallo Welt!", "Ein Titel") Dim oMsgbox = New frmDialog("Diese Datei ist hier unerwünscht!", "Zooflow", frmDialog.DialogType.Error)
oMsgbox.ShowDialog() oMsgbox.ShowDialog()
End Sub End Sub
Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
MsgBox("Hallo Welt", MsgBoxStyle.OkOnly, "EinTitel") Dim oMsgbox = New frmDialog("Der Fluxkompensator ist leer. Bitte auffüllen!", "File Flow", frmDialog.DialogType.Warning)
oMsgbox.ShowDialog()
End Sub End Sub
End Class End Class

3
GUIs.Test.TestGUI/frmObjectProperties.vb
View File

@ -18,7 +18,4 @@ Public Class frmObjectProperties
Public ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig Public ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Public ReadOnly Property Logger As Logger Implements IBaseForm.Logger Public ReadOnly Property Logger As Logger Implements IBaseForm.Logger
Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
End Class End Class

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

@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Globix Partial Class frmAdmin_Globix
Inherits BaseRibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <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 AttributesAutomatic As New Dictionary(Of String, String)
Private Pages As ClassDetailPageManager 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) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
@ -22,10 +25,10 @@ Public Class frmAdmin_Globix
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
Me.GlobixHelper = New ClassGIDatatables(My.LogConfig) Me.GlobixHelper = New ClassGIDatatables(My.LogConfig)
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub End Sub
Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitializeBaseForm(My.LogConfig)
Try Try
VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
@ -107,7 +110,7 @@ Public Class frmAdmin_Globix
oDragDropManager.AddGridView(viewAssignedUsers) oDragDropManager.AddGridView(viewAssignedUsers)
oDragDropManager.AddGridView(viewAvailableUsers) oDragDropManager.AddGridView(viewAvailableUsers)
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "frmAdmin_Globix_Load")
End Try End Try
End Sub End Sub
Sub Load_TabData() Sub Load_TabData()
@ -212,7 +215,7 @@ Public Class frmAdmin_Globix
ShowStatus($"{oPage.Name} saved - {Now.ToString}", Color.DodgerBlue) ShowStatus($"{oPage.Name} saved - {Now.ToString}", Color.DodgerBlue)
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick")
ShowStatus($"{ex.Message} saved - {Now.ToString}", Color.Red) ShowStatus($"{ex.Message} saved - {Now.ToString}", Color.Red)
End Try End Try
'Else 'Else
@ -302,7 +305,7 @@ Public Class frmAdmin_Globix
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Insert_Doctype")
ShowStatus($"Error Saving Fileflow Profile {ex.Message}", Color.Red) ShowStatus($"Error Saving Fileflow Profile {ex.Message}", Color.Red)
Return False Return False
End Try End Try
@ -325,7 +328,7 @@ Public Class frmAdmin_Globix
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Update_Doctype")
Return False Return False
End Try End Try
@ -589,11 +592,11 @@ Public Class frmAdmin_Globix
Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
Try Try
If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then 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() oMsgBox.ShowDialog()
Else 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() oMsgBox.ShowDialog()
End If End If
@ -668,7 +671,7 @@ Public Class frmAdmin_Globix
' ShowStatus($"{oPage.Name} deleted!") ' ShowStatus($"{oPage.Name} deleted!")
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "BarButtonItem2_ItemClick")
End Try End Try
End Sub End Sub

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

@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBAttribute Partial Class frmAdmin_IDBAttribute
Inherits BaseRibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <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 Implements IAdminForm
Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Private FormHelper As FormHelper
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub End Sub
Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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 DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "frmAdmin_Attribute_Load")
End Try End Try
End Sub End Sub
Private Sub FillAttribute() Private Sub FillAttribute()
@ -105,7 +108,7 @@
FillAttribute() FillAttribute()
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "SaveData")
ShowStatus($"Unexpeced error saving attribute {TextEdit2.Text} - {ex.Message}", Color.Red) ShowStatus($"Unexpeced error saving attribute {TextEdit2.Text} - {ex.Message}", Color.Red)
Return False Return False
End Try End Try
@ -120,7 +123,7 @@
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "DeleteAttribute")
Return False Return False
End Try End Try
End Function End Function

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

@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBEntity Partial Class frmAdmin_IDBEntity
Inherits BaseRibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <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 Public Class frmAdmin_IDBEntity
Implements IAdminForm Implements IAdminForm
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private FormHelper As FormHelper
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub End Sub
Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@ -27,7 +29,7 @@ Public Class frmAdmin_IDBEntity
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "frmAdmin_IDBEntity_Load")
End Try End Try
End Sub End Sub
@ -74,7 +76,7 @@ Public Class frmAdmin_IDBEntity
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "SaveData")
Return False Return False
End Try End Try
End Function End Function
@ -84,7 +86,7 @@ Public Class frmAdmin_IDBEntity
TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey) TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False Return False
End Try End Try
End Function End Function

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

@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBObjectStore Partial Class frmAdmin_IDBObjectStore
Inherits BaseRibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <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 Implements IAdminForm
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
@ -6,7 +8,7 @@
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Private FormHelper As FormHelper
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Dim oStorePath As String = String.Empty Dim oStorePath As String = String.Empty
@ -19,9 +21,9 @@
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@ -103,7 +105,7 @@
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "SaveData")
Return False Return False
End Try End Try
End Function 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 Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Property ErrorHandler As BaseErrorHandler
Private Property Pages As ClassDetailPageManager Private Property Pages As ClassDetailPageManager
Private Property Logger As Logger Private Property Logger As Logger
Private Property FormHelper As FormHelper
Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False) Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' 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. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
PrimaryKey = pPrimaryKey PrimaryKey = pPrimaryKey
IsInsert = pIsInsert IsInsert = pIsInsert
ErrorHandler = New BaseErrorHandler(My.LogConfig, My.LogConfig.GetLogger, Me)
Logger = My.LogConfig.GetLogger() Logger = My.LogConfig.GetLogger()
End Sub End Sub
@ -69,7 +70,7 @@ Public Class frmAdmin_User
TBDD_USERTableAdapter.Delete(PrimaryKey) TBDD_USERTableAdapter.Delete(PrimaryKey)
Return True Return True
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "DeleteData") FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False Return False
End Try End Try
End Function End Function
@ -94,7 +95,7 @@ Public Class frmAdmin_User
oPage.IsInsert = False oPage.IsInsert = False
txtStatus.Caption = $"{oPage.Name} gespeichert!" txtStatus.Caption = $"{oPage.Name} gespeichert!"
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "ItemClick") FormHelper.ShowErrorMessage(ex, "ItemClick")
End Try End Try
Else Else
txtStatus.Caption = $"Keine Änderungen" 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 LogConfig As Modules.Logging.LogConfig Implements IBaseForm.LogConfig
Public ReadOnly Property Logger As Modules.Logging.Logger Implements IBaseForm.Logger 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 PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
@ -14,6 +15,7 @@ Public Class frmAdmin_UserGroupRelations
Private Property SelectedGroupId As Integer = Nothing Private Property SelectedGroupId As Integer = Nothing
Private Property SelectedAvailableUser As Integer = Nothing Private Property SelectedAvailableUser As Integer = Nothing
Private Property SelectedRelatedUser As Integer = Nothing Private Property SelectedRelatedUser As Integer = Nothing
Private FormHelper As FormHelper = Nothing
Public Sub New(pPrimaryKey As Integer) Public Sub New(pPrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich. ' 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. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = My.LogConfig LogConfig = My.LogConfig
ErrorHandler = New BaseErrorHandler(LogConfig, Me) FormHelper = New FormHelper(LogConfig, Me)
End Sub End Sub
Private Async Sub frmAdmin_UserGroupRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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) Dim oTable As DataTable = Await My.DatabaseECM.GetDatatableAsync(oSQL)
GridControl2.DataSource = oTable GridControl2.DataSource = oTable
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Fehler beim Laden des Formulars") FormHelper.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
End Try End Try
End Sub End Sub
@ -56,7 +58,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql) Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
Return oTable Return oTable
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GetAvailableUsersByGroupId") FormHelper.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -72,7 +74,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql) Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
Return oTable Return oTable
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GetRelatedUsersByGroupId") FormHelper.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
Return Nothing Return Nothing
End Try End Try
End Function End Function

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

@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_ClipboardWatcher Partial Class frmAdmin_ClipboardWatcher
Inherits BaseRibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <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 Const PROFILE_TYPE_DATA_ONLY As Integer = 2
Private Pages As ClassDetailPageManager Private Pages As ClassDetailPageManager
Private FormHelper As FormHelper
Friend Class ProfileType Friend Class ProfileType
Public Property Id As Integer Public Property Id As Integer
@ -57,15 +58,12 @@ Public Class frmAdmin_ClipboardWatcher
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub End Sub
Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
InitializeBaseForm(My.LogConfig)
Try Try
TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey) TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey)
@ -129,7 +127,7 @@ Public Class frmAdmin_ClipboardWatcher
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "frmAdmin_CWProfile_Load")
End Try End Try
End Sub End Sub
@ -176,7 +174,7 @@ Public Class frmAdmin_ClipboardWatcher
ShowStatus($"{oPage.Name} gespeichert!") ShowStatus($"{oPage.Name} gespeichert!")
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick")
End Try End Try
Else Else
ShowStatus("Keine Änderungen!") ShowStatus("Keine Änderungen!")

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

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

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

@ -1,5 +1,6 @@
Imports DevExpress.XtraEditors.DXErrorProvider Imports DevExpress.XtraEditors.DXErrorProvider
Imports DevExpress.XtraLayout Imports DevExpress.XtraLayout
Imports DigitalData.GUIs.Common
Public Class frmAdmin_SourceSQL Public Class frmAdmin_SourceSQL
Implements IAdminForm Implements IAdminForm
@ -11,13 +12,15 @@ Public Class frmAdmin_SourceSQL
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Pages As ClassDetailPageManager Private Pages As ClassDetailPageManager
Private FormHelper As FormHelper
Public Sub New(PrimaryKey As Integer) Public Sub New(PrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig) FormHelper = New FormHelper(My.LogConfig, Me)
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
End Sub End Sub
@ -45,7 +48,7 @@ Public Class frmAdmin_SourceSQL
ValidationHelper() ValidationHelper()
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "frmAdmin_SourceSQL_Load")
End Try End Try
End Sub End Sub
@ -105,7 +108,7 @@ Public Class frmAdmin_SourceSQL
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "SaveData")
Return False Return False
End Try End Try
End Function End Function
@ -115,7 +118,7 @@ Public Class frmAdmin_SourceSQL
TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey) TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False Return False
End Try End Try
End Function 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()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Start Partial Class frmAdmin_Start
Inherits BaseRibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <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 CurrentModule As String
Private CurrentPage As String Private CurrentPage As String
Private CurrentItem As ClassDetailForm.DetailData Private CurrentItem As ClassDetailForm.DetailData
Private FormHelper As FormHelper
Private Logger As Logger
Private DetailForm As ClassDetailForm 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 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) DetailForm = New ClassDetailForm(My.LogConfig)
AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed
@ -46,7 +42,7 @@ Public Class frmAdmin_Start
Load_GridData(oDetailData) Load_GridData(oDetailData)
Else 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() oMsgBox.ShowDialog()
End If End If
End If End If
@ -103,7 +99,7 @@ Public Class frmAdmin_Start
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "TreeListMenu_FocusedNodeChanged")
End Try End Try
End Sub End Sub
@ -219,7 +215,7 @@ Public Class frmAdmin_Start
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "GridView1_RowClick")
End Try End Try
End Sub End Sub
@ -260,7 +256,7 @@ Public Class frmAdmin_Start
Try Try
DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True) DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True)
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "btnAddRecord_ItemClick")
End Try End Try
End Sub End Sub

2
GUIs.ZooFlow/ClassDragDrop.vb
View File

@ -100,7 +100,7 @@ Public Class ClassDragDrop
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) 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() oMsgBox.ShowDialog()
End Try End Try
End Sub End Sub

2
GUIs.ZooFlow/ClassInit.vb
View File

@ -372,7 +372,7 @@ Public Class ClassInit
Dim oMessage = $"{oMessageStart}{oMessage1}{oMessage2}{oMessageEnd}" 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() oMsgBox.ShowDialog()
Application.ExitThread() Application.ExitThread()
Else Else

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

@ -127,14 +127,16 @@ Public Class ClassFilehandle
Else Else
oMSG = "Shortcuts cannot be droppped!" oMSG = "Shortcuts cannot be droppped!"
End If End If
Dim oMsgBox As New frmDialog(oMSG, "", True) Dim oMsgBox As New frmDialog(oMSG, "FileHandle", frmDialog.DialogType.Warning)
oMsgBox.ShowDialog() oMsgBox.ShowDialog()
Return False Return False
End If End If
Return UserFiles.Insert_GI_File(oTempFilePath, pHandletype) Return UserFiles.Insert_GI_File(oTempFilePath, pHandletype)
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function

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

@ -82,7 +82,7 @@ Public Class ClassFolderwatcher
Catch ex As Exception Catch ex As Exception
Logger.Error(ex.Message) 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() oMsgBox.ShowDialog()
End Try End Try
End Function End Function

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

@ -261,7 +261,7 @@ Public Class ClassValidator
Private Sub ShowValidationMessage() Private Sub ShowValidationMessage()
'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT) '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() oMsgBox.ShowDialog()
End Sub End Sub
End Class 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.UseBackColor = True
Me.SimpleButton4.Appearance.Options.UseFont = True Me.SimpleButton4.Appearance.Options.UseFont = True
Me.SimpleButton4.Appearance.Options.UseForeColor = 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.Location = New System.Drawing.Point(20, 85)
Me.SimpleButton4.Name = "SimpleButton4" Me.SimpleButton4.Name = "SimpleButton4"
Me.SimpleButton4.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light Me.SimpleButton4.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light

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

@ -209,30 +209,6 @@
Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w
LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh
c3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= 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> </value>
</data> </data>
<data name="SimpleButton3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <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 Else
otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message
End If 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() oMsgBox.ShowDialog()
Exit Sub Exit Sub
End Try 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 Else
omsg = "Please check Datatype of Indexvalue!" omsg = "Please check Datatype of Indexvalue!"
End If End If
Dim oMsgBox As New frmDialog(omsg, "", True) Dim oMsgBox As New frmDialog(omsg, "Indexe Laden", frmDialog.DialogType.Warning)
oMsgBox.ShowDialog() oMsgBox.ShowDialog()
Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType) Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
End Select End Select
@ -659,7 +659,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Else Else
oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)" oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)"
End If End If
Dim oMsgBox As New frmDialog(oMsg, "", False) Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Warning)
oMsgBox.CancelButtonInvisible() oMsgBox.CancelButtonInvisible()
oMsgBox.ShowDialog() oMsgBox.ShowDialog()
CancelAttempts += 1 CancelAttempts += 1
@ -671,7 +671,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Else Else
oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?" oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?"
End If End If
Dim oMsgBox As New frmDialog(oMsg, "", False) Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Question)
oMsgBox.CancelButtonVisible() oMsgBox.CancelButtonVisible()
If oMsgBox.DialogResult = DialogResult.Yes Then 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 Get
End Property 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> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</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"> <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> <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>
<data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZOOFLOW_DRAG_NORMAL" 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> <value>..\Resources\ZOOFLOW_DRAG_NORMAL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -241,21 +244,24 @@
<data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\nextview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="del4" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <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>
<data name="link1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\link1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\ZooflowTitle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -304,9 +310,6 @@
<data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<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"> <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> <value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -340,8 +343,8 @@
<data name="actions_addcircled1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="documentproperties" 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> <value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\new4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -379,8 +385,11 @@
<data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="doublenext1" 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> <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>
<data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\windows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="editdatasource1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="viewmergeddata1" 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> <value>..\Resources\viewmergeddata1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\managedatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -433,12 +439,12 @@
<data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -454,9 +460,15 @@
<data name="actions_send1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<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"> <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> <value>..\Resources\del5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\new1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -499,9 +511,6 @@
<data name="new3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\new3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -514,8 +523,8 @@
<data name="actions_calendar1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<data name="switchrowcolumns" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bo_category" 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> <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>
<data name="actions_deletecircled5" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\ZOOFLOW_DRAG_PROGRESSIVE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <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>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <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> <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>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_deletecircled3" 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> <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>
<data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<data name="ZooFlow_Sidebar_individuelle_suche" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="definednameuseinformula2" 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> <value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="actions_calendar" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <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>
<data name="actions_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="StatusAnnotations_Information_16xLG_color" 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> <value>..\Resources\StatusAnnotations_Information_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <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>
<data name="doublenext1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Checked-outforEdit_Color_13297" 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> <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_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>
<data name="about4" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\about4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="switchrowcolumns" 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> <value>..\Resources\switchrowcolumns.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="bo_document" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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>
<data name="bo_category" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_addcircled3" 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> <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>
<data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\definednameuseinformula3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="actions_addcircled3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="unlink" 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> <value>..\Resources\unlink.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="bo_category1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bo_appointment1" 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> <value>..\Resources\bo_appointment1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
</root> </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\actions_calendar1.svg" />
<None Include="Resources\viewmergeddata1.svg" /> <None Include="Resources\viewmergeddata1.svg" />
<None Include="Resources\bo_category1.svg" /> <None Include="Resources\bo_category1.svg" />
<None Include="Resources\bo_appointment1.svg" />
<Content Include="Zooflow.ico" /> <Content Include="Zooflow.ico" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <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 DevExpress.LookAndFeel
Imports System.Threading.Tasks Imports System.Threading.Tasks
Imports System.Threading Imports System.Threading
Imports DigitalData.Controls.MessageBoxEx
Public Class frmFlowForm Public Class frmFlowForm
#Region "Sidebar DllImport" #Region "Sidebar DllImport"
@ -160,9 +159,9 @@ Public Class frmFlowForm
Private Logger As Logger Private Logger As Logger
Private Init As ClassInit Private Init As ClassInit
Private FileEx As Filesystem.File Private FileEx As Filesystem.File
Private ErrorHandler As BaseErrorHandler
Private Modules As ClassModules Private Modules As ClassModules
Private Search As SearchRunner Private Search As SearchRunner
Private FormHelper As FormHelper
' Globix Helper Classes ' Globix Helper Classes
Private FileDropNew As FileDrop Private FileDropNew As FileDrop
@ -227,8 +226,9 @@ Public Class frmFlowForm
' === Initialize Environment === ' === Initialize Environment ===
Logger = My.LogConfig.GetLogger() Logger = My.LogConfig.GetLogger()
FormHelper = New FormHelper(My.LogConfig, Me)
Environment = My.Application.GetEnvironment() 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) Modules = New ClassModules(My.LogConfig, My.SystemConfig)
FileEx = New Filesystem.File(My.LogConfig) FileEx = New Filesystem.File(My.LogConfig)
Search = New SearchRunner(My.LogConfig, Environment, "FlowSearch") With { Search = New SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
@ -295,7 +295,7 @@ Public Class frmFlowForm
ProfileLoader = New ClassProfileLoader(My.LogConfig, My.Database) ProfileLoader = New ClassProfileLoader(My.LogConfig, My.Database)
ProfileLoader.LoadProfiles() ProfileLoader.LoadProfiles()
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Init Search FLOW") FormHelper.ShowErrorMessage(ex, "Init Search FLOW")
End Try End Try
Else Else
My.Application.ClipboardWatcher.MonitoringActive = False My.Application.ClipboardWatcher.MonitoringActive = False
@ -315,7 +315,7 @@ Public Class frmFlowForm
Else Else
oMsg = "File-Exclusions in Folderwatch could not be created!" oMsg = "File-Exclusions in Folderwatch could not be created!"
End If End If
Dim oMsgBox As New frmDialog(oMsg, "Error", True) Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Warning)
oMsgBox.ShowDialog() oMsgBox.ShowDialog()
End If End If
@ -367,7 +367,7 @@ Public Class frmFlowForm
colPrimary.FieldName = AccessedFilesTable.Columns(1).ColumnName ' "DisplayFileName" colPrimary.FieldName = AccessedFilesTable.Columns(1).ColumnName ' "DisplayFileName"
colSecondary.FieldName = AccessedFilesTable.Columns(2).ColumnName '"Changed when" colSecondary.FieldName = AccessedFilesTable.Columns(2).ColumnName '"Changed when"
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Load_Recent_Files")
End Try End Try
End Function End Function
@ -448,7 +448,7 @@ Public Class frmFlowForm
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Init_Folderwatch")
End Try End Try
Try Try
@ -475,7 +475,7 @@ Public Class frmFlowForm
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Init_Folderwatch")
End Try End Try
End Sub End Sub
@ -500,18 +500,18 @@ Public Class frmFlowForm
End Sub End Sub
Sub ExitZooflow() Sub ExitZooflow()
Dim omessage = "Wollen sie ZooFlow wirklich beenden?" Dim oMessage = "Wollen sie ZooFlow wirklich beenden?"
If My.Application.User.Language <> "de-DE" Then 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 End If
Dim oTitle = "Zooflow beenden" Dim oTitle = "Zooflow beenden"
If My.Application.User.Language <> "de-DE" Then If My.Application.User.Language <> "de-DE" Then
oTitle = "Exit Zooflow" oTitle = "Exit Zooflow"
End If End If
Dim oMsgBox As New frmDialog(omessage, oTitle, False) Dim oMsgBox As New frmDialog(oMessage, oTitle, frmDialog.DialogType.Question)
oMsgBox.ShowDialog() oMsgBox.ShowDialog()
If oMsgBox.DialogResult = DialogResult.OK Then If oMsgBox.DialogResult = DialogResult.Yes Then
Close() Close()
Else Else
ESCHitCount = 0 ESCHitCount = 0
@ -613,7 +613,7 @@ Public Class frmFlowForm
End If End If
If TheFormIsAlreadyLoaded("frmIndexFileList") Then If TheFormIsAlreadyLoaded("frmIndexFileList") Then
Cursor = Cursors.Default 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() oMsgBox.ShowDialog()
Exit Function Exit Function
End If End If
@ -679,7 +679,7 @@ Public Class frmFlowForm
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Globix_CheckDroppedFiles")
Finally Finally
CleanTempFiles() CleanTempFiles()
Show() Show()
@ -718,7 +718,7 @@ Public Class frmFlowForm
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Globix_Open_IndexDialog")
End Try End Try
End Sub End Sub
Sub NotifyIconReset() Sub NotifyIconReset()
@ -740,7 +740,7 @@ Public Class frmFlowForm
End Select End Select
NotifyIcon.ShowBalloonTip(30000, NI_TITLE, NI_MESSAGE, oNIType) NotifyIcon.ShowBalloonTip(30000, NI_TITLE, NI_MESSAGE, oNIType)
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "GlobixClosed")
End Try End Try
End Sub End Sub
Sub Folderwatch_CheckFiles() Sub Folderwatch_CheckFiles()
@ -789,7 +789,7 @@ Public Class frmFlowForm
Logger.Info("FWSCAN not started") Logger.Info("FWSCAN not started")
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Folderwatch_CheckFiles")
End Try End Try
Try Try
@ -826,7 +826,7 @@ Public Class frmFlowForm
Logger.Info("Folderwatch not started") Logger.Info("Folderwatch not started")
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "Folderwatch_CheckFiles")
End Try End Try
If TimerCheckFolderWatchTable.Enabled = False Then 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 If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
Else 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() oMsgBox.ShowDialog()
End If End If
@ -1098,12 +1098,6 @@ Public Class frmFlowForm
End Sub 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 Private Function GetResultWindowString(SearchContent As String) As String
If SearchContent <> String.Empty Then If SearchContent <> String.Empty Then
If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then
@ -1136,7 +1130,7 @@ Public Class frmFlowForm
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "CheckQuickSearch1")
Finally Finally
RunningTask = Nothing RunningTask = Nothing
SplashScreenManager.CloseOverlayForm(oHandle) SplashScreenManager.CloseOverlayForm(oHandle)
@ -1164,7 +1158,7 @@ Public Class frmFlowForm
My.SystemConfig.AppServerConfig = oForm.ServiceAddress My.SystemConfig.AppServerConfig = oForm.ServiceAddress
My.SystemConfigManager.Save() My.SystemConfigManager.Save()
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage("Service Config") FormHelper.ShowErrorMessage(ex, "Service Config")
End Try End Try
End Sub End Sub
@ -1196,7 +1190,7 @@ Public Class frmFlowForm
End If End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) FormHelper.ShowErrorMessage(ex, "PictureBoxPM_Click")
End Try End Try
End Sub End Sub
Private Function PM_Running() As Boolean Private Function PM_Running() As Boolean
@ -1254,7 +1248,7 @@ Public Class frmFlowForm
Search.RunWithDataTable(oResult, "Suche") Search.RunWithDataTable(oResult, "Suche")
Catch ex As Exception Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Laden eines Dokuments") FormHelper.ShowErrorMessage(ex, "Laden eines Dokuments")
Finally Finally
SplashScreenManager.CloseOverlayForm(oHandle) SplashScreenManager.CloseOverlayForm(oHandle)
End Try End Try