Referenzen aktualisiert. GDPicture Lizenz&nuget

GUIs.Monitor/Constants.vb

@@ -15,10 +15,26 @@
         Public Const STATE_HIGHLIGHT As String = "HIGHLIGHT"
     End Class
 
+    Public Class DDDefaultColors
+        Public Const CHART_BACKGROUND_COLOR As String = "#172146"
+        Public Const CHART_TEXT_COLOR As String = "#8E9EB0"
+
+        Public Const CHART_LEGEND_BACKGROUND_COLOR As String = "#172146"
+        Public Const CHART_LEGEND_TEXT_COLOR As String = "#8E9EB0"
+
+        Public Const PALETTE_COLOR_1 As String = "#6859F6"
+        Public Const PALETTE_COLOR_2 As String = "#F046C1"
+        Public Const PALETTE_COLOR_3 As String = "#5E246C"
+        Public Const PALETTE_COLOR_4 As String = "#5051A5"
+        Public Const PALETTE_COLOR_5 As String = "#5E6A83"
+
+    End Class
+
     Public Enum ReturnTypeEnum
         Undefined
         Table
         TreeView
+        ChartView
     End Enum
 
     Public Enum DataTypeEnum
@@ -34,4 +50,41 @@
         List
         SQL
     End Enum
+
+    Public Enum ChartPosEnum
+        Undefined
+        TopLeft
+        BottomLeft
+        TopRight
+        BottomRight
+    End Enum
+
+    Public Enum ChartTypeEnum
+        Undefined
+        Bar
+        Line
+        Area
+        Pie
+        StackedBar
+    End Enum
+
+    Public Enum LabelTypeEnum
+        NoLabels
+        DefaultLabels
+    End Enum
+
+    Public Enum DesignTypeEnum
+        DefaultColors       'Office
+        Mixed
+        Office2013
+        Aspect
+        Solstice
+        DDDefault
+    End Enum
+
+    Public Enum SkinModeEnum
+        LightMode
+        DarkMode
+    End Enum
+
 End Namespace

GUIs.Monitor/Data/ChartParameter.vb

@@ -0,0 +1,18 @@
+Public Class ChartParameter
+    Public Id As Integer
+    Public Title As String
+    Public SerieTitle As String
+    Public ChartPos As Constants.ChartPosEnum
+    Public SQLCommand As String
+    Public ChartType As Constants.ChartTypeEnum
+    Public Argument As String
+    Public Value As String
+    Public SearchId As Integer
+    Public LabelType As Constants.LabelTypeEnum
+    Public DesignType As Constants.DesignTypeEnum
+    Public DesignBaseColor As Integer
+
+    Public Overrides Function ToString() As String
+        Return Title
+    End Function
+End Class

GUIs.Monitor/Data/Config.vb

@@ -4,4 +4,5 @@ Public Class Config
     <ConnectionString>
     Public Property ConnectionString As String = String.Empty
     Public Property Debug As Boolean = False
+    Public Property DarkMode As Boolean = False
 End Class

GUIs.Monitor/Data/Search.vb

@@ -4,6 +4,7 @@
     Public Description As String
     Public SQLCommand As String
     Public ReturnType As Constants.ReturnTypeEnum
+    Public ExpectedParameterCount As Integer
 
     Public Parameters As List(Of SearchParameter)
 

GUIs.Monitor/Forms/frmMonitor.Designer.vb

@@ -23,6 +23,7 @@ Partial Class frmMonitor
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMonitor))
         Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
@@ -37,11 +38,15 @@ Partial Class frmMonitor
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.lbVersion = New DevExpress.XtraBars.BarStaticItem()
         Me.lbSearchTime = New DevExpress.XtraBars.BarStaticItem()
+        Me.btnExportChart2PDF = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnExportChart2PNG = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnDarkMode = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.ribbonGroupEinstellungen = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.XtraTabControlFileHTML = New DevExpress.XtraTab.XtraTabControl()
@@ -144,13 +149,13 @@ Partial Class frmMonitor
         '
         Me.RibbonControl1.ApplicationButtonDropDownControl = Me.ApplicationMenu1
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.btnExportDetails, Me.btnExportMain, Me.lbResultCount, Me.btnReloadSearches, Me.btnResetLayout, Me.BarButtonItem2, Me.lbVersion, Me.BarButtonItem3, Me.lbSearchTime})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.btnExportDetails, Me.btnExportMain, Me.lbResultCount, Me.btnReloadSearches, Me.btnResetLayout, Me.BarButtonItem2, Me.lbVersion, Me.BarButtonItem3, Me.lbSearchTime, Me.btnExportChart2PDF, Me.btnExportChart2PNG, Me.btnDarkMode})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 14
+        Me.RibbonControl1.MaxItemId = 21
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowToolbarCustomizeItem = False
-        Me.RibbonControl1.Size = New System.Drawing.Size(1379, 160)
+        Me.RibbonControl1.Size = New System.Drawing.Size(1379, 158)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
         '
@@ -241,13 +246,36 @@ Partial Class frmMonitor
         '
         'lbSearchTime
         '
-        Me.lbSearchTime.Caption = "BarStaticItem1"
+        Me.lbSearchTime.Caption = "lbSearchTime"
         Me.lbSearchTime.Id = 13
         Me.lbSearchTime.Name = "lbSearchTime"
         '
+        'btnExportChart2PDF
+        '
+        Me.btnExportChart2PDF.Caption = "Export Charts als PDF"
+        Me.btnExportChart2PDF.Enabled = False
+        Me.btnExportChart2PDF.Id = 14
+        Me.btnExportChart2PDF.ImageOptions.SvgImage = CType(resources.GetObject("btnExportChart2PDF.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.btnExportChart2PDF.Name = "btnExportChart2PDF"
+        '
+        'btnExportChart2PNG
+        '
+        Me.btnExportChart2PNG.Caption = "Export Charts als Bild"
+        Me.btnExportChart2PNG.Enabled = False
+        Me.btnExportChart2PNG.Id = 15
+        Me.btnExportChart2PNG.ImageOptions.SvgImage = CType(resources.GetObject("btnExportChart2PNG.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.btnExportChart2PNG.Name = "btnExportChart2PNG"
+        '
+        'btnDarkMode
+        '
+        Me.btnDarkMode.Caption = "Dark Mode"
+        Me.btnDarkMode.Id = 20
+        Me.btnDarkMode.ImageOptions.SvgImage = CType(resources.GetObject("btnDarkMode.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.btnDarkMode.Name = "btnDarkMode"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2, Me.RibbonPageGroup4})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2, Me.RibbonPageGroup4, Me.ribbonGroupEinstellungen})
         Me.RibbonPage1.Name = "RibbonPage1"
         Me.RibbonPage1.Text = "Start"
         '
@@ -270,6 +298,8 @@ Partial Class frmMonitor
         Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
         Me.RibbonPageGroup2.ItemLinks.Add(Me.btnExportMain)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.btnExportDetails)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.btnExportChart2PDF)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.btnExportChart2PNG)
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
         Me.RibbonPageGroup2.Text = "Export"
         '
@@ -280,15 +310,21 @@ Partial Class frmMonitor
         Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
         Me.RibbonPageGroup4.Text = "Suche"
         '
+        'ribbonGroupEinstellungen
+        '
+        Me.ribbonGroupEinstellungen.ItemLinks.Add(Me.btnDarkMode)
+        Me.ribbonGroupEinstellungen.Name = "ribbonGroupEinstellungen"
+        Me.ribbonGroupEinstellungen.Text = "Einstellungen"
+        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.lbResultCount)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.lbVersion)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.lbSearchTime)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 749)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 747)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 24)
         '
         'RibbonPage2
         '
@@ -309,7 +345,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageFile1.Controls.Add(Me.DocumentViewer1)
         Me.XtraTabPageFile1.Name = "XtraTabPageFile1"
-        Me.XtraTabPageFile1.Size = New System.Drawing.Size(388, 564)
+        Me.XtraTabPageFile1.Size = New System.Drawing.Size(388, 562)
         Me.XtraTabPageFile1.Text = "File 1"
         '
         'DocumentViewer1
@@ -318,14 +354,14 @@ Partial Class frmMonitor
         Me.DocumentViewer1.FileLoaded = False
         Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
         Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(388, 564)
+        Me.DocumentViewer1.Size = New System.Drawing.Size(388, 562)
         Me.DocumentViewer1.TabIndex = 0
         '
         'XtraTabPageFile2
         '
         Me.XtraTabPageFile2.Controls.Add(Me.DocumentViewer2)
         Me.XtraTabPageFile2.Name = "XtraTabPageFile2"
-        Me.XtraTabPageFile2.Size = New System.Drawing.Size(388, 564)
+        Me.XtraTabPageFile2.Size = New System.Drawing.Size(388, 562)
         Me.XtraTabPageFile2.Text = "File 2"
         '
         'DocumentViewer2
@@ -334,14 +370,14 @@ Partial Class frmMonitor
         Me.DocumentViewer2.FileLoaded = False
         Me.DocumentViewer2.Location = New System.Drawing.Point(0, 0)
         Me.DocumentViewer2.Name = "DocumentViewer2"
-        Me.DocumentViewer2.Size = New System.Drawing.Size(388, 564)
+        Me.DocumentViewer2.Size = New System.Drawing.Size(388, 562)
         Me.DocumentViewer2.TabIndex = 1
         '
         'XtraTabPageHtml1
         '
         Me.XtraTabPageHtml1.Controls.Add(Me.RichEditControl1)
         Me.XtraTabPageHtml1.Name = "XtraTabPageHtml1"
-        Me.XtraTabPageHtml1.Size = New System.Drawing.Size(388, 564)
+        Me.XtraTabPageHtml1.Size = New System.Drawing.Size(388, 562)
         Me.XtraTabPageHtml1.Text = "HTML 1"
         '
         'RichEditControl1
@@ -354,14 +390,14 @@ Partial Class frmMonitor
         Me.RichEditControl1.Name = "RichEditControl1"
         Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden
         Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden
-        Me.RichEditControl1.Size = New System.Drawing.Size(388, 564)
+        Me.RichEditControl1.Size = New System.Drawing.Size(388, 562)
         Me.RichEditControl1.TabIndex = 0
         '
         'XtraTabPageHtml2
         '
         Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2)
         Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2"
-        Me.XtraTabPageHtml2.Size = New System.Drawing.Size(388, 564)
+        Me.XtraTabPageHtml2.Size = New System.Drawing.Size(388, 562)
         Me.XtraTabPageHtml2.Text = "HTML 2"
         '
         'RichEditControl2
@@ -372,7 +408,7 @@ Partial Class frmMonitor
         Me.RichEditControl2.Location = New System.Drawing.Point(0, 0)
         Me.RichEditControl2.MenuManager = Me.RibbonControl1
         Me.RichEditControl2.Name = "RichEditControl2"
-        Me.RichEditControl2.Size = New System.Drawing.Size(388, 564)
+        Me.RichEditControl2.Size = New System.Drawing.Size(388, 562)
         Me.RichEditControl2.TabIndex = 1
         '
         'GridControl1
@@ -382,7 +418,7 @@ Partial Class frmMonitor
         Me.GridControl1.MainView = Me.GridView1
         Me.GridControl1.MenuManager = Me.RibbonControl1
         Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(730, 373)
+        Me.GridControl1.Size = New System.Drawing.Size(730, 371)
         Me.GridControl1.TabIndex = 0
         Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         '
@@ -549,7 +585,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageSQL1.Controls.Add(Me.GridControl2)
         Me.XtraTabPageSQL1.Name = "XtraTabPageSQL1"
-        Me.XtraTabPageSQL1.Size = New System.Drawing.Size(730, 373)
+        Me.XtraTabPageSQL1.Size = New System.Drawing.Size(730, 371)
         Me.XtraTabPageSQL1.Text = "SQL 1"
         '
         'GridControl2
@@ -559,7 +595,7 @@ Partial Class frmMonitor
         Me.GridControl2.MainView = Me.GridView2
         Me.GridControl2.MenuManager = Me.RibbonControl1
         Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(730, 373)
+        Me.GridControl2.Size = New System.Drawing.Size(730, 371)
         Me.GridControl2.TabIndex = 1
         Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
         '
@@ -572,7 +608,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3)
         Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2"
-        Me.XtraTabPageSQL2.Size = New System.Drawing.Size(730, 373)
+        Me.XtraTabPageSQL2.Size = New System.Drawing.Size(730, 371)
         Me.XtraTabPageSQL2.Text = "SQL 2"
         '
         'GridControl3
@@ -582,7 +618,7 @@ Partial Class frmMonitor
         Me.GridControl3.MainView = Me.GridView3
         Me.GridControl3.MenuManager = Me.RibbonControl1
         Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(730, 373)
+        Me.GridControl3.Size = New System.Drawing.Size(730, 371)
         Me.GridControl3.TabIndex = 1
         Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
         '
@@ -595,7 +631,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4)
         Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3"
-        Me.XtraTabPageSQL3.Size = New System.Drawing.Size(730, 373)
+        Me.XtraTabPageSQL3.Size = New System.Drawing.Size(730, 371)
         Me.XtraTabPageSQL3.Text = "SQL 3"
         '
         'GridControl4
@@ -605,7 +641,7 @@ Partial Class frmMonitor
         Me.GridControl4.MainView = Me.GridView4
         Me.GridControl4.MenuManager = Me.RibbonControl1
         Me.GridControl4.Name = "GridControl4"
-        Me.GridControl4.Size = New System.Drawing.Size(730, 373)
+        Me.GridControl4.Size = New System.Drawing.Size(730, 371)
         Me.GridControl4.TabIndex = 1
         Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
         '
@@ -618,7 +654,7 @@ Partial Class frmMonitor
         '
         Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1)
         Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4"
-        Me.XtraTabPageSQL4.Size = New System.Drawing.Size(730, 373)
+        Me.XtraTabPageSQL4.Size = New System.Drawing.Size(730, 371)
         Me.XtraTabPageSQL4.Text = "SQL 4"
         '
         'SplitContainerFileHTML
@@ -644,7 +680,7 @@ Partial Class frmMonitor
         'XtraTabControl2
         '
         Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl2.Location = New System.Drawing.Point(0, 160)
+        Me.XtraTabControl2.Location = New System.Drawing.Point(0, 158)
         Me.XtraTabControl2.Name = "XtraTabControl2"
         Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
         Me.XtraTabControl2.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[False]
@@ -820,4 +856,8 @@ Partial Class frmMonitor
     Friend WithEvents lbVersion As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents lbSearchTime As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents btnExportChart2PDF As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnExportChart2PNG As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ribbonGroupEinstellungen As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents btnDarkMode As DevExpress.XtraBars.BarButtonItem
 End Class

GUIs.Monitor/Forms/frmMonitor.resx

@@ -0,0 +1,224 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>362, 17</value>
+  </metadata>
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="btnExportChart2PDF.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABoHAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs
+        YWNre2ZpbGw6IzcyNzI3Mjt9Cgkuc3Qwe29wYWNpdHk6MC4yO30KPC9zdHlsZT4NCiAgPHBhdGggZD0i
+        TTgsNGgxOHY2aDJWM2MwLTAuNS0wLjUtMS0xLTFIN0M2LjUsMiw2LDIuNSw2LDN2N2gyVjR6IiBjbGFz
+        cz0iQmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0yNiwyNkg4VjE2SDZ2MTFjMCwwLjUsMC41LDEsMSwxaDIw
+        YzAuNSwwLDEtMC41LDEtMVYxNmgtMlYyNnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPHBhdGggZD0iTTEw
+        LjMsMTEuNkg5LjZWMTRoMC42YzAuOSwwLDEuMy0wLjQsMS4zLTEuMkMxMS41LDEyLDExLjEsMTEuNiwx
+        MC4zLDExLjZ6IiBjbGFzcz0iUmVkIiAvPg0KICA8cGF0aCBkPSJNMTYuNywxMS43aC0wLjh2NC45aDAu
+        OGMwLjcsMCwxLjMtMC4yLDEuNi0wLjdzMC42LTEuMSwwLjYtMS44YzAtMC43LTAuMi0xLjMtMC42LTEu
+        NyAgQzE4LDExLjksMTcuNCwxMS43LDE2LjcsMTEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDxwYXRoIGQ9
+        Ik0yOSw4SDVDNC40LDgsNCw4LjQsNCw5djEwYzAsMC42LDAuNCwxLDEsMWgyNGMwLjYsMCwxLTAuNCwx
+        LTFWOUMzMCw4LjQsMjkuNiw4LDI5LDh6IE0xMi41LDE0LjYgIGMtMC41LDAuNS0xLjIsMC43LTIuMSww
+        LjdIOS42VjE4SDh2LTcuN2gyLjVjMS44LDAsMi43LDAuOCwyLjcsMi41QzEzLjIsMTMuNSwxMywxNC4y
+        LDEyLjUsMTQuNnogTTE5LjYsMTYuOSAgQzE4LjksMTcuNiwxOCwxOCwxNi44LDE4aC0yLjV2LTcuN2gy
+        LjVjMi41LDAsMy44LDEuMywzLjgsMy44QzIwLjcsMTUuMywyMC4zLDE2LjIsMTkuNiwxNi45eiBNMjYs
+        MTEuN2gtMi41djEuOWgyLjNWMTVoLTIuM3YzICBoLTEuNnYtNy43SDI2VjExLjd6IiBjbGFzcz0iUmVk
+        IiAvPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTAuMywxMS42SDkuNlYxNGgwLjZj
+        MC45LDAsMS4zLTAuNCwxLjMtMS4yQzExLjUsMTIsMTEuMSwxMS42LDEwLjMsMTEuNnoiIGNsYXNzPSJC
+        bGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMTYuNywxMS43aC0wLjh2NC45aDAuOGMwLjcsMCwxLjMtMC4y
+        LDEuNi0wLjdzMC42LTEuMSwwLjYtMS44YzAtMC43LTAuMi0xLjMtMC42LTEuNyAgIEMxOCwxMS45LDE3
+        LjQsMTEuNywxNi43LDExLjd6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTI5LDhINUM0
+        LjQsOCw0LDguNCw0LDl2MTBjMCwwLjYsMC40LDEsMSwxaDI0YzAuNiwwLDEtMC40LDEtMVY5QzMwLDgu
+        NCwyOS42LDgsMjksOHogTTEyLjUsMTQuNiAgIGMtMC41LDAuNS0xLjIsMC43LTIuMSwwLjdIOS42VjE4
+        SDh2LTcuN2gyLjVjMS44LDAsMi43LDAuOCwyLjcsMi41QzEzLjIsMTMuNSwxMywxNC4yLDEyLjUsMTQu
+        NnogTTE5LjYsMTYuOSAgIEMxOC45LDE3LjYsMTgsMTgsMTYuOCwxOGgtMi41di03LjdoMi41YzIuNSww
+        LDMuOCwxLjMsMy44LDMuOEMyMC43LDE1LjMsMjAuMywxNi4yLDE5LjYsMTYuOXogTTI2LDExLjdoLTIu
+        NXYxLjloMi4zVjE1aC0yLjN2MyAgIGgtMS42di03LjdIMjZWMTEuN3oiIGNsYXNzPSJCbGFjayIgLz4N
+        CiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="btnExportChart2PNG.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANECAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iUGljdHVyZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        R3JlZW57ZmlsbDojMDM5QzIzO30KCS5ZZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5zdDB7b3BhY2l0eTow
+        LjU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMjksNEgzQzIuNSw0LDIsNC41LDIsNXYyMmMwLDAuNSww
+        LjUsMSwxLDFoMjZjMC41LDAsMS0wLjUsMS0xVjVDMzAsNC41LDI5LjUsNCwyOSw0eiBNMjgsMjZINFY2
+        aDI0VjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8Y2lyY2xlIGN4PSIyMSIgY3k9IjExIiByPSIzIiBj
+        bGFzcz0iWWVsbG93IiAvPg0KICA8cG9seWdvbiBwb2ludHM9IjIwLDI0IDEwLDE0IDYsMTggNiwyNCAi
+        IGNsYXNzPSJHcmVlbiIgLz4NCiAgPGcgY2xhc3M9InN0MCI+DQogICAgPHBvbHlnb24gcG9pbnRzPSIy
+        MiwyNCAxOCwyMCAyMCwxOCAyNiwyNCAgIiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="btnDarkMode.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iTG9jYWxDb2xvcnMiPg0KICAg
+        IDxwYXRoIGQ9Ik0zMSwxMEgxMWMtMC41LDAtMSwwLjUtMSwxdjIwYzAsMC41LDAuNSwxLDEsMWgyMGMw
+        LjUsMCwxLTAuNSwxLTFWMTFDMzIsMTAuNSwzMS41LDEwLDMxLDEweiBNMzAsMzBIMTJWMTIgICBoMThW
+        MzB6IE0xMCwyMkgxYy0wLjUsMC0xLTAuNS0xLTFWMWMwLTAuNSwwLjUtMSwxLTFoMjBjMC41LDAsMSww
+        LjUsMSwxdjloLTJWMkgydjE4aDhWMjJ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTgs
+        MThINHYtNmg0VjE4eiBNMjgsMjBoLTZ2LTZoNlYyMHogTTIwLDI4aC02di02aDZWMjh6IE05LDhoMVY0
+        SDR2Nmg0VjlDOCw4LjQsOC40LDgsOSw4eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJN
+        MTgsOGgtNlY0aDZWOHoiIGNsYXNzPSJSZWQiIC8+DQogICAgPHBhdGggZD0iTTIwLDIwaC02di02aDZW
+        MjB6IE0yOCwyMGgtNnYtNmg2VjIweiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOCwy
+        OGgtNnYtNmg2VjI4eiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPGcgY2xhc3M9InN0MSI+DQogICAgICA8
+        cGF0aCBkPSJNMjAsMjhoLTZ2LTZoNlYyOHoiIGNsYXNzPSJHcmVlbiIgLz4NCiAgICAgIDxwYXRoIGQ9
+        Ik0yOCwyMGgtNnYtNmg2VjIweiIgY2xhc3M9IkJsdWUiIC8+DQogICAgICA8cGF0aCBkPSJNOCwxOEg0
+        di02aDRWMTh6IiBjbGFzcz0iUmVkIiAvPg0KICAgIDwvZz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>196, 17</value>
+  </metadata>
+  <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>514, 17</value>
+  </metadata>
+  <metadata name="AdornerUIManager2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>673, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>35</value>
+  </metadata>
+  <metadata name="WorkspaceManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>836, 17</value>
+  </metadata>
+</root>

GUIs.Monitor/Forms/frmMonitor.vb

@@ -1,5 +1,13 @@
-Imports System.Text.RegularExpressions
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports DevExpress.LookAndFeel
 Imports DevExpress.Utils
+Imports DevExpress.XtraBars
+Imports DevExpress.XtraCharts
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraEditors.Repository
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Columns
 Imports DevExpress.XtraGrid.Views.Grid
@@ -11,15 +19,17 @@ Imports DevExpress.XtraTreeList.Nodes
 Imports DigitalData.Controls.DocumentViewer
 Imports DigitalData.GUIs.Common
 Imports DigitalData.GUIs.Monitor.Constants
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
-Imports DigitalData.Modules.Language
-Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Patterns
 
+
 Public Class frmMonitor
-    Private ReadOnly ColumnMarkers As New List(Of String) From {"[HTML]", "[SQL]", "[FILENAME]"}
+    Private ReadOnly InvisibleColumnMarkers As New List(Of String) From {"[HTML]", "[SQL]", "[FILENAME]"}
+    Private ReadOnly VisibleColumnMarkers As New List(Of String) From {"[SEARCH|"}
+
     Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"}
     Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"}
     Private ReadOnly Property HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"}
@@ -38,12 +48,12 @@ Public Class frmMonitor
 
     Private SQLResultGrids As List(Of GridControl)
     Private SQLResultTabs As List(Of XtraTabPage)
-    Private SQLResultGridIndex As Integer = 0
+    'Private SQLResultGridIndex As Integer = 0
     Private ActiveSQLResultGrid As GridControl
 
     Private FileResultViewers As List(Of DocumentViewer)
     Private FileResultTabs As List(Of XtraTabPage)
-    Private FileResultViewerIndex As Integer = 0
+    'Private FileResultViewerIndex As Integer = 0
 
     Private HtmlResultViewers As List(Of RichEditControl)
     Private HtmlResultTabs As List(Of XtraTabPage)
@@ -52,8 +62,12 @@ Public Class frmMonitor
     Private GridControlResults As GridControl
     Private GridViewResults As GridView
 
-    Private MarkedColumns As New List(Of GridColumn)
+    Private ChartViewResultContainer As SplitContainerControl
+
+    Private InvisibleMarkedColumns As New List(Of GridColumn)
+    Private VisibleMarkedColumns As New List(Of GridColumn)
     Private ActiveSearch As Search = Nothing
+    Private HyperLinkColumnSearchIds As New Dictionary(Of String, Integer)
 
     Private GridBuilder As GridBuilder
     Private ControlHelper As Common.ControlHelper
@@ -73,8 +87,13 @@ Public Class frmMonitor
     Private Validator As Validator
     Private GridLoader As GridLoader
 
+    Private SelectedChart As ChartControl
+
+    Private SkinMode As SkinModeEnum
+
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
+
             LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor")
             Logger = LogConfig.GetLogger()
 
@@ -84,7 +103,7 @@ Public Class frmMonitor
             Patterns = New Patterns2(LogConfig)
             FormHelper = New FormHelper(LogConfig, Me)
             ControlHelper = New Common.ControlHelper(LogConfig)
-            Workspace = New DocumentResultList.Workspace(Of Config)(LogConfig, ConfigManager, WorkspaceManager1)
+            Workspace = New DocumentResultList.Workspace(Of Config)(LogConfig, ConfigManager, WorkspaceManager1, "de-DE")
 
             SplitContainerBuilderHTML = New SplitContainerBuilder(LogConfig, Me, SplitContainerFileHTML)
             SplitContainerBuilderHTML.InitAutoResize()
@@ -113,8 +132,21 @@ Public Class frmMonitor
             Validator = New Validator(LogConfig, LayoutControl1, AdornerUIManager2, ControlHelper)
             GridLoader = New GridLoader(LogConfig, SvgImageCollection1)
 
+            btnDarkMode.Visibility = BarItemVisibility.Never    ' DarkMode ist erstmal aus
+            ribbonGroupEinstellungen.Visible = False
+            'If ConfigManager.Config.DarkMode = False Then
+            SkinMode = SkinModeEnum.LightMode
+            'Else
+            'SkinMode = SkinModeEnum.DarkMode
+            'End If
+            'SetDarkMode()
+
+            AddHandler GridLoader.ChartControlClicked, AddressOf ChartControl_Click
+
             InitGrid()
             InitTreeList()
+            InitChartContainer()
+            InitBarItems()
 
             Dim oGrids As GridView() = New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4}.ToArray
             GridBuilder.SetDefaults(oGrids)
@@ -132,8 +164,8 @@ Public Class frmMonitor
 
             LoadSearches()
 
-
+            ' TODO - GDPicture Version konfigurierbar machen
-            Dim oLicense = LoadGDPicture()
+            Dim oLicense = LoadGDPicture("11.2024")
 
             For Each oGrid In SQLResultGrids
                 AddHandler oGrid.Enter, Sub()
@@ -147,7 +179,6 @@ Public Class frmMonitor
                                         End Sub
             Next
 
-
             For Each oViewer As DocumentViewer In FileResultViewers
                 oViewer.Init(LogConfig, oLicense)
             Next
@@ -155,17 +186,17 @@ Public Class frmMonitor
             SplitContainerFileHTML.Collapsed = True
 
             SetResultCount(0)
+            SetSearchTimeValue("")
             SetVersion()
 
-
         Catch ex As Exception
             FormHelper.ShowErrorMessage(ex, "frmStart_Load")
         End Try
     End Sub
 
-    Private Function LoadGDPicture() As String
+    Private Function LoadGDPicture(pVersion As String) As String
-        Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
+        Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' AND VERSION = '" + pVersion + "'"
-        Return Database.GetScalarValue(oSQL)
+        Return CStr(Database.GetScalarValue(oSQL))
     End Function
 
 
@@ -184,34 +215,47 @@ Public Class frmMonitor
                 Return False
             End If
 
-            Dim oSearch As Search = cmbSearches.EditValue
+            Dim oSearch As Search = CType(cmbSearches.EditValue, Search)
 
-            MarkedColumns.Clear()
+            InvisibleMarkedColumns.Clear()
+            VisibleMarkedColumns.Clear()
+            HyperLinkColumnSearchIds.Clear()
             HideAllTabs()
 
             Dim oMissingParams = Validator.Validate(oSearch)
-
             If oMissingParams = True Then
+                Return False
+            End If
 
+            If oSearch.ExpectedParameterCount > 0 And oSearch.Parameters.Count <> oSearch.ExpectedParameterCount Then
+                Logger.Error($"[{0}] parameter were defined, but [{1}] parameter were expected!", oSearch.Parameters.Count, oSearch.ExpectedParameterCount)
+                FormHelper.ShowErrorMessage("Die Suche erwartet mehr Parameter als definiert wurden!", "LoadSearches")
                 Return False
             End If
 
             Dim oControls As List(Of Control) = LayoutControl1.Controls.Cast(Of Control).ToList()
-            Dim oSQL = Patterns.ReplaceControlValues(oSearch.SQLCommand, oControls)
+            Dim oSQL As String
-            Dim oTable As DataTable = Await Database.GetDatatableAsync(oSQL)
+            Dim oTable As DataTable = Nothing
+
+            If oSearch.SQLCommand.Length > 0 Then
+                oSQL = Patterns.ReplaceControlValues(oSearch.SQLCommand, oControls)
+                Logger.Debug($"SQL after replacing placeholder: [{0}]", oSQL)
+                oTable = Await Database.GetDatatableAsync(oSQL)
+            End If
+
             Dim oStartTime = Now
 
-            If oSearch.ReturnType = Constants.ReturnTypeEnum.TreeView Then
+            If oSearch.ReturnType = ReturnTypeEnum.TreeView Then
-                GridControlResults.Visible = False
-                GridControlResults.Dock = DockStyle.None
 
-                TreeListResults.Visible = True
+                ' Baum
-                TreeListResults.Dock = DockStyle.Fill
+                SetResultVisbility(ReturnTypeEnum.TreeView)
+
+                If oTable Is Nothing Then
+                    Return False
+                End If
 
                 TreeListResults.DataSource = oTable
 
-                lbResultCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-
                 Dim oMaxLength = 0
                 For Each oRow As DataRow In oTable.Rows
                     Dim oProcess = oRow.Item("COLUMN1")
@@ -233,7 +277,7 @@ Public Class frmMonitor
                 For Each oNode As TreeListNode In TreeListResults.Nodes
                     ExpandNodes(oNode, Function(n)
                                            Dim oObjectValue = n.GetValue(oStateColumn)
-                                           Dim oValue As String = NotNull(oObjectValue.ToString, String.Empty)
+                                           Dim oValue As String = ObjectEx.NotNull(oObjectValue.ToString, String.Empty)
                                            Return oValue IsNot Nothing AndAlso (oValue = State.STATE_WARNING Or oValue = State.STATE_FAILURE)
                                        End Function)
                 Next
@@ -245,35 +289,125 @@ Public Class frmMonitor
                 SetResultCount(TreeListResults.AllNodesCount)
 
                 TreeListResults.Focus()
-            Else
+            ElseIf oSearch.ReturnType = Constants.ReturnTypeEnum.ChartView Then
-                GridControlResults.Visible = True
+                ' Charts
-                GridControlResults.Dock = DockStyle.Fill
+                SetResultVisbility(ReturnTypeEnum.ChartView)
 
-                TreeListResults.Visible = False
+                ' Oberer SplitContainer
-                TreeListResults.Dock = DockStyle.None
+                Dim splitContainer1 As SplitContainerControl = CType(ChartViewResultContainer.Panel1.Controls(0), SplitContainerControl)
+                ' Unterer SplitContainer
+                Dim splitContainer2 As SplitContainerControl = CType(ChartViewResultContainer.Panel2.Controls(0), SplitContainerControl)
+
+                ChartViewResultContainer.PanelVisibility = SplitPanelVisibility.Both
+                splitContainer1.PanelVisibility = SplitPanelVisibility.Both
+                splitContainer2.PanelVisibility = SplitPanelVisibility.Both
+
+                Dim chartArray(4) As ChartControl
+                ' TopLeft
+                chartArray(0) = CType(splitContainer1.Panel1.Controls(0), ChartControl)
+                ' TopRight
+                chartArray(1) = CType(splitContainer1.Panel2.Controls(0), ChartControl)
+                ' BottomLeft
+                chartArray(2) = CType(splitContainer2.Panel1.Controls(0), ChartControl)
+                ' BottomRight
+                chartArray(3) = CType(splitContainer2.Panel2.Controls(0), ChartControl)
+
+                For i As Integer = 0 To 3
+                    chartArray(i).Titles.Clear()
+                    chartArray(i).Series.Clear()
+                Next
+                ResizeCharContainer()
+
+                Dim oChartParameters As List(Of ChartParameter)
+                oChartParameters = SearchLoader.ChartParameters.Where(Function(p) p.SearchId = oSearch.Id And p.ChartType <> ChartTypeEnum.Undefined).ToList()
+
+                For Each oChartParameterSet In oChartParameters
+                    Dim ChartViewResults As ChartControl
+
+                    Select Case oChartParameterSet.ChartPos
+                        Case ChartPosEnum.TopLeft
+                            ChartViewResults = chartArray(0)
+                        Case ChartPosEnum.TopRight
+                            ChartViewResults = chartArray(1)
+                        Case ChartPosEnum.BottomLeft
+                            ChartViewResults = chartArray(2)
+                        Case ChartPosEnum.BottomRight
+                            ChartViewResults = chartArray(3)
+                        Case Else
+                            ChartViewResults = chartArray(0)
+                    End Select
+
+                    SetChartTitle(ChartViewResults, oChartParameterSet.Title)
+                    SetChartDesign(ChartViewResults, oChartParameterSet.DesignType, oChartParameterSet.DesignBaseColor)
+                    Dim oSerie As Series = Await GetChartSerie(oChartParameterSet, oControls)
+                    ChartViewResults.Series.Add(oSerie)
+                Next
+
+                SetPanelVisibility(chartArray)
+
+                ChartViewResultContainer.Focus()
+
+            Else
+                ' Tabelle
+                SetResultVisbility(ReturnTypeEnum.Table)
+
+                If oTable Is Nothing Then
+                    Return False
+                End If
 
                 GridControlResults.DataSource = oTable
                 GridViewResults.PopulateColumns()
                 GridBuilder.SetDateTimeColumns(GridViewResults)
 
-                lbResultCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-
                 For Each oColumn As GridColumn In GridViewResults.Columns
                     If oColumn.ColumnType = GetType(Integer) Then
                         oColumn.AppearanceCell.TextOptions.HAlignment = HorzAlignment.Center
                     End If
                 Next
 
-                MarkedColumns = GridViewResults.Columns.AsEnumerable.
+                InvisibleMarkedColumns = GridViewResults.Columns.AsEnumerable.
                     Where(Function(column)
                               Dim oCaption = column.FieldName.ToUpper.Trim
-                              Return ColumnMarkers.Any(Function(marker) oCaption.EndsWith(marker))
+                              Return InvisibleColumnMarkers.Any(Function(marker) oCaption.EndsWith(marker))
                           End Function).ToList()
 
-                For Each oColumn In MarkedColumns
+                For Each oColumn In InvisibleMarkedColumns
                     oColumn.VisibleIndex = -1
                 Next
 
+                VisibleMarkedColumns = GridViewResults.Columns.AsEnumerable.
+                    Where(Function(column)
+                              Dim oCaption = column.FieldName.ToUpper.Trim
+                              Return VisibleColumnMarkers.Any(Function(marker) oCaption.Contains(marker))
+                          End Function).ToList()
+
+                For Each oColumn In VisibleMarkedColumns
+                    If oColumn.FieldName.Contains("[SEARCH|") Then
+                        Dim oUrlEdit As New RepositoryItemHyperLinkEdit() With
+                        {
+                            .SingleClick = True
+                        }
+
+                        GridControlResults.RepositoryItems.Add(oUrlEdit)
+
+                        For index = 0 To GridViewResults.Columns.Count - 1
+                            If GridViewResults.Columns.Item(index).FieldName = oColumn.FieldName Then
+                                GridViewResults.Columns.Item(index).ColumnEdit = oUrlEdit
+
+                                ' Column Caption setzen
+                                Dim colTitle As String = oColumn.FieldName.Substring(0, oColumn.FieldName.IndexOf("["))
+                                GridViewResults.Columns.Item(index).Caption = colTitle
+
+                                ' Add SearchId in Dictionary
+                                HyperLinkColumnSearchIds.Add(oColumn.FieldName, GetSearchIdFromColumnFieldName(oColumn.FieldName))
+                            End If
+                        Next
+
+                        AddHandler oUrlEdit.OpenLink, AddressOf HyperLinkEdit_OpenLinkAsync
+                    End If
+                Next
+
+                SetColumnsToDisAllowEditInGridViewResults()
                 SetResultCount(GridViewResults.RowCount)
 
                 GridControlResults.Focus()
@@ -284,10 +418,10 @@ Public Class frmMonitor
 
             Workspace.LoadWorkspace(oSearch.Id.ToString)
 
-            btnExportMain.Enabled = True
+            ActivateMenuBarButtons(oSearch.ReturnType)
 
             Dim oTotalTime = Now.Subtract(oStartTime)
-            lbSearchTime.Caption = oTotalTime.ToString("mm':'ss")
+            SetSearchTimeValue(oTotalTime.ToString("mm':'ss"))
 
             Return True
         Catch ex As Exception
@@ -298,16 +432,335 @@ Public Class frmMonitor
         End Try
     End Function
 
+    Private Sub SetChartDesign(pChartView As ChartControl, pDesignType As DesignTypeEnum, pDesignBaseColor As Integer)
+
+        Select Case pDesignType
+            Case DesignTypeEnum.Aspect
+                pChartView.PaletteName = "Aspect"
+            Case DesignTypeEnum.Mixed
+                pChartView.PaletteName = "Mixed"
+            Case DesignTypeEnum.Office2013
+                pChartView.PaletteName = "Office 2013"
+            Case DesignTypeEnum.Solstice
+                pChartView.PaletteName = "Solstice"
+            Case DesignTypeEnum.DDDefault
+                pChartView.PaletteName = "DDDefault Palette"
+            Case Else
+                pChartView.PaletteName = "Office"
+        End Select
+
+        pChartView.PaletteBaseColorNumber = pDesignBaseColor
+    End Sub
+
+    Private Sub ActivateMenuBarButtons(pSearchType As ReturnTypeEnum)
+        Select Case pSearchType
+            Case ReturnTypeEnum.ChartView
+                btnExportMain.Enabled = False
+                BarButtonItem2.Enabled = False
+                btnResetLayout.Enabled = False
+            Case Else
+                btnExportMain.Enabled = True
+                BarButtonItem2.Enabled = True
+                btnResetLayout.Enabled = True
+        End Select
+    End Sub
+
+    Private Async Function GetChartSerie(pChartParameters As ChartParameter, pControls As List(Of Control)) As Threading.Tasks.Task(Of Series)
+        Dim oSerie As Series
+
+        Dim serieTitle As String
+
+        If String.IsNullOrEmpty(pChartParameters.SerieTitle) = False Then
+            serieTitle = pChartParameters.SerieTitle
+        Else
+            serieTitle = pChartParameters.Title
+        End If
+
+        Select Case pChartParameters.ChartType
+            Case ChartTypeEnum.Bar
+                oSerie = New Series(serieTitle, ViewType.Bar)
+            Case ChartTypeEnum.Line
+                oSerie = New Series(serieTitle, ViewType.Line)
+            Case ChartTypeEnum.Area
+                oSerie = New Series(serieTitle, ViewType.Area)
+            Case ChartTypeEnum.Pie
+                oSerie = New Series(serieTitle, ViewType.Pie) With {
+                    .LegendTextPattern = "{A}"
+                }
+            Case ChartTypeEnum.StackedBar
+                oSerie = New Series(serieTitle, ViewType.StackedBar)
+            Case Else
+                Return Nothing
+        End Select
+
+        SetSerieLabels(oSerie, pChartParameters.ChartType, pChartParameters.LabelType)
+
+        Dim oSQL As String = Patterns.ReplaceControlValues(pChartParameters.SQLCommand, pControls)
+        Logger.Debug($"SQL after replacing placeholder: [{0}]", oSQL)
+        Dim oTable As DataTable = Await Database.GetDatatableAsync(oSQL)
+
+        Dim xAxisTitle As String = pChartParameters.Argument
+        Dim yAxisTitle As String = pChartParameters.Value
+
+        For Each oRow In oTable.Rows
+            Dim value1 As String = CStr(oRow.Item(xAxisTitle))
+            Dim value2 As String = CStr(oRow.Item(yAxisTitle))
+            oSerie.Points.Add(New SeriesPoint(value1, value2))
+        Next
+
+        oSerie.ArgumentScaleType = ScaleType.Qualitative
+
+        Return oSerie
+
+    End Function
+
+    Private Sub SetSerieLabels(pSerie As Series, pChartType As ChartTypeEnum, pLabelType As LabelTypeEnum)
+
+        If (pLabelType = LabelTypeEnum.NoLabels) Then
+            pSerie.LabelsVisibility = DefaultBoolean.False
+            Exit Sub
+        End If
+
+        pSerie.LabelsVisibility = DefaultBoolean.True
+        pSerie.Label.TextPattern = "{V}"
+
+        Select Case pChartType
+            Case ChartTypeEnum.Bar
+                Dim barLabel As SideBySideBarSeriesLabel = TryCast(pSerie.Label, SideBySideBarSeriesLabel)
+                If barLabel IsNot Nothing Then
+                    barLabel.Position = BarSeriesLabelPosition.Top
+                End If
+            Case ChartTypeEnum.Line
+                Dim lineLabel As PointSeriesLabel = TryCast(pSerie.Label, PointSeriesLabel)
+                If lineLabel IsNot Nothing Then
+                    lineLabel.Position = PointLabelPosition.Outside
+                End If
+            Case ChartTypeEnum.Area
+                Dim areaLabel As PointSeriesLabel = TryCast(pSerie.Label, PointSeriesLabel)
+                If areaLabel IsNot Nothing Then
+                    areaLabel.Position = PointLabelPosition.Outside
+                End If
+            Case ChartTypeEnum.Pie
+                Dim pieLabel As PieSeriesLabel = TryCast(pSerie.Label, PieSeriesLabel)
+                If pieLabel IsNot Nothing Then
+                    pieLabel.Position = PieSeriesLabelPosition.Outside
+                End If
+            Case ChartTypeEnum.StackedBar
+                Dim stackedBarLabel As StackedBarSeriesLabel = TryCast(pSerie.Label, StackedBarSeriesLabel)
+                If stackedBarLabel IsNot Nothing Then
+                    stackedBarLabel.Position = BarSeriesLabelPosition.Auto
+                End If
+            Case Else
+
+        End Select
+
+    End Sub
+
+    Private Sub SetChartTitle(pChartView As ChartControl, pTitle As String)
+        ' Wenn bereits ein Titel vorhanden ist, wird kein neuer ergänzt
+        ' relevant bei mehrere Charts in einem ChartControl
+        If pChartView.Titles.Count = 0 Then
+            Dim oTitle As New ChartTitle With {
+                .Text = pTitle
+            }
+            pChartView.Titles.Add(oTitle)
+        End If
+    End Sub
+
+    Private Sub SetPanelVisibility(chartArray() As ChartControl)
+        If chartArray.Length < 4 Then
+            Exit Sub
+        End If
+
+        Dim showTop As Boolean = True
+        Dim showBottom As Boolean = True
+
+        If chartArray(0).Titles.Count = 0 And chartArray(1).Titles.Count = 0 Then
+            showTop = False
+        End If
+
+        If chartArray(2).Titles.Count = 0 And chartArray(3).Titles.Count = 0 Then
+            showBottom = False
+        End If
+
+        If showBottom = False Then
+            ChartViewResultContainer.PanelVisibility = SplitPanelVisibility.Panel1
+        ElseIf showTop = False Then
+            ChartViewResultContainer.PanelVisibility = SplitPanelVisibility.Panel2
+        End If
+
+        If showTop = True Then
+            Dim showLeft As Boolean = chartArray(0).Titles.Count > 0
+            Dim showRight As Boolean = chartArray(1).Titles.Count > 0
+
+            Dim splitContainer1 As SplitContainerControl = CType(ChartViewResultContainer.Panel1.Controls(0), SplitContainerControl)
+
+            If showRight = False Then
+                splitContainer1.PanelVisibility = SplitPanelVisibility.Panel1
+            ElseIf showLeft = False Then
+                splitContainer1.PanelVisibility = SplitPanelVisibility.Panel2
+            End If
+        End If
+
+        If showBottom = True Then
+            Dim showLeft As Boolean = chartArray(2).Titles.Count > 0
+            Dim showRight As Boolean = chartArray(3).Titles.Count > 0
+
+            Dim splitContainer2 As SplitContainerControl = CType(ChartViewResultContainer.Panel2.Controls(0), SplitContainerControl)
+
+            If showRight = False Then
+                splitContainer2.PanelVisibility = SplitPanelVisibility.Panel1
+            ElseIf showLeft = False Then
+                splitContainer2.PanelVisibility = SplitPanelVisibility.Panel2
+            End If
+        End If
+
+    End Sub
+
+    Private Sub SetResultVisbility(pSearchMode As ReturnTypeEnum)
+        Select Case pSearchMode
+            Case ReturnTypeEnum.TreeView
+                GridControlResults.Visible = False
+                GridControlResults.Dock = DockStyle.None
+                TreeListResults.Visible = True
+                TreeListResults.Dock = DockStyle.Fill
+                ChartViewResultContainer.Visible = False
+                ChartViewResultContainer.Dock = DockStyle.None
+
+                lbResultCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+
+                EnableButtons(btnExportMain)
+                EnableButtons(btnExportDetails)
+                DisableButtons(btnExportChart2PDF)
+                DisableButtons(btnExportChart2PNG)
+
+            Case ReturnTypeEnum.ChartView
+                GridControlResults.Visible = False
+                GridControlResults.Dock = DockStyle.None
+                TreeListResults.Visible = False
+                TreeListResults.Dock = DockStyle.None
+                ChartViewResultContainer.Visible = True
+                ChartViewResultContainer.Dock = DockStyle.Fill
+
+                lbResultCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+
+                DisableButtons(btnExportMain)
+                DisableButtons(btnExportDetails)
+                EnableButtons(btnExportChart2PDF)
+                EnableButtons(btnExportChart2PNG)
+
+            Case ReturnTypeEnum.Table
+                GridControlResults.Visible = True
+                GridControlResults.Dock = DockStyle.Fill
+                TreeListResults.Visible = False
+                TreeListResults.Dock = DockStyle.None
+                ChartViewResultContainer.Visible = False
+                ChartViewResultContainer.Dock = DockStyle.None
+
+                lbResultCount.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+
+                EnableButtons(btnExportMain)
+                EnableButtons(btnExportDetails)
+                DisableButtons(btnExportChart2PDF)
+                DisableButtons(btnExportChart2PNG)
+
+        End Select
+
+    End Sub
+
+    Private Sub DisableButtons(pBarButtonItem As BarButtonItem)
+        pBarButtonItem.Enabled = False
+        pBarButtonItem.Visibility = BarItemVisibility.Never
+    End Sub
+
+    Private Sub EnableButtons(pBarButtonItem As BarButtonItem)
+        pBarButtonItem.Enabled = True
+        pBarButtonItem.Visibility = BarItemVisibility.Always
+    End Sub
+
+    Private Sub InitBarItems()
+        btnExportMain.Visibility = BarItemVisibility.Always
+        btnExportMain.Enabled = False
+        btnExportDetails.Visibility = BarItemVisibility.Always
+        btnExportDetails.Enabled = False
+        DisableButtons(btnExportChart2PDF)
+        DisableButtons(btnExportChart2PNG)
+
+        lbResultCount.Visibility = BarItemVisibility.Never
+        lbSearchTime.Visibility = BarItemVisibility.Never
+    End Sub
+
+    ''' <summary>
+    ''' Linklogik für Hyperlink-Spalten
+    ''' </summary>
+    Private Async Function HyperLinkEdit_OpenLinkAsync(sender As Object, e As OpenLinkEventArgs) As Threading.Tasks.Task
+        Dim searchId As Integer = HyperLinkColumnSearchIds(GridViewResults.FocusedColumn.FieldName)
+
+        Dim oSearch As Search = SearchLoader.Searches.Where(Function(search) search.Id = searchId).SingleOrDefault()
+        cmbSearches.EditValue = oSearch     ' Es wird jetzt erwartet, dass das ChangeValue-Event der ComboBox ausgelöst wird!
+
+        Dim oSearchParameter As SearchParameter = oSearch.Parameters.Where(Function(param) param.Required = True).FirstOrDefault()
+
+        If oSearchParameter Is Nothing And oSearch.ExpectedParameterCount > 0 Then
+            Logger.Error($"[{0}] parameter were defined, but [{1}] parameter were expected!", oSearch.Parameters.Count, oSearch.ExpectedParameterCount)
+            FormHelper.ShowErrorMessage("Die Suche erwartet 1 Parameter, aber es wurde kein Parameter gefunden!", "LoadSearches")
+            Return
+        Else
+            Dim oControl As Control = LayoutControl1.Controls.Find(oSearchParameter.PatternTitle, True).FirstOrDefault()
+            oControl.Text = CStr(e.EditValue)
+        End If
+
+        Await LoadData()
+        ' e.EditValue = "www.google.de"
+        e.Handled = True
+
+    End Function
+
+    Private Function GetSearchIdFromColumnFieldName(pFieldName As String) As Integer
+        If String.IsNullOrEmpty(pFieldName) = True Then
+            Return 0
+        End If
+
+        Dim startIndex = pFieldName.IndexOf("|") + 1
+        Dim endIndex = pFieldName.IndexOf("]")
+        Dim length = endIndex - startIndex
+        Dim searchIdText = pFieldName.Substring(startIndex, length)
+
+        Dim retValue As Integer
+
+        If (Integer.TryParse(searchIdText, retValue) = False) Then
+            retValue = 0
+        End If
+
+        Return retValue
+    End Function
+
+    Private Sub SetColumnsToDisAllowEditInGridViewResults()
+        For Each oColumn As GridColumn In GridViewResults.Columns
+
+            If TypeOf oColumn.ColumnEdit IsNot RepositoryItemHyperLinkEdit Then
+                ' Verbietet Spaltenweise die Bearbeitung
+                oColumn.OptionsColumn.AllowEdit = False
+            End If
+
+        Next
+    End Sub
+
     Private Sub SetExpandedForChildNodes(pRootNode As TreeListNode, Optional pDepth As Integer = 0)
         If pDepth > 10 Then
             Exit Sub
         End If
 
+        If CType(pRootNode.Item("PARENT_ID"), Int32) = 0 Then
+            ' Auswertung für Parent-Knoten
+            ExpandCollapseNode(pRootNode)
+        End If
+
         For Each oNode As TreeListNode In pRootNode.Nodes
             Try
-                Dim oExpanded As TristateBoolean = NotNull(oNode.Item("EXPANDED"), TristateBoolean.Indeterminate)
+                ExpandCollapseNode(oNode)
-                ExpandCollapseNode(oNode, oExpanded)
 
+                ' Und rein in die Rekursion
                 SetExpandedForChildNodes(oNode, pDepth + 1)
             Catch ex As Exception
                 Logger.Error(ex)
@@ -318,6 +771,7 @@ Public Class frmMonitor
     Private Sub LoadSearches()
         Try
             SearchLoader.LoadSearchParameters()
+            SearchLoader.LoadChartParameters()
             SearchLoader.LoadSearches()
 
             cmbSearches.Properties.Items.Clear()
@@ -343,6 +797,9 @@ Public Class frmMonitor
         DisposeGrid()
         InitGrid()
 
+        DisposeCharts()
+        InitChartContainer()
+
         SplitContainerSQL.Collapsed = True
         SplitContainerFileHTML.Collapsed = True
 
@@ -350,6 +807,7 @@ Public Class frmMonitor
         btnExportDetails.Enabled = False
 
         SetResultCount(0)
+        InitBarItems()
 
         LoadSearch()
         HideAllTabs()
@@ -368,6 +826,7 @@ Public Class frmMonitor
             AdornerUIManager2.Hide()
             AdornerUIManager2.Elements.Clear()
 
+            ' TODO - Hier passt etwas noch nicht
             Root.Clear(disposeItemAndControls:=False)
             LayoutControl1.Clear(True, True)
 
@@ -398,6 +857,9 @@ Public Class frmMonitor
                 Dim oSQL = pParam.ItemString
                 Dim oTable = Database.GetDatatable(oSQL)
                 Return oTable
+
+            Case Else
+                Return Nothing
         End Select
     End Function
 
@@ -438,7 +900,7 @@ Public Class frmMonitor
                 Try
                     Dim oExtracted = ExtractTitle(oSQLCommand.Value)
                     Dim oCommand = oExtracted.Item1
-                    Dim oTitle = NotNull(oExtracted.Item2, oSQLCommand.Key)
+                    Dim oTitle = ObjectEx.NotNull(oExtracted.Item2, oSQLCommand.Key)
 
                     Dim oTable As DataTable = Database.GetDatatable(oCommand)
 
@@ -541,8 +1003,9 @@ Public Class frmMonitor
         End If
     End Sub
 
-    Private Sub ExpandCollapseNode(pNode As TreeListNode, pState As TristateBoolean)
+    Private Sub ExpandCollapseNode(pNode As TreeListNode)
-        Select Case pState
+        Dim oExpanded As TristateBoolean = ObjectEx.NotNull(pNode.Item("EXPANDED"), TristateBoolean.Indeterminate)
+        Select Case oExpanded
             Case TristateBoolean.False
                 pNode.Collapse()
             Case TristateBoolean.True
@@ -557,7 +1020,7 @@ Public Class frmMonitor
 
         Dim oTabPage = DirectCast(RichEditControl.Parent, XtraTabPage)
         oTabPage.PageVisible = True
-        oTabPage.Text = NotNull(Title, oTabPage.Text)
+        oTabPage.Text = ObjectEx.NotNull(Title, oTabPage.Text)
 
         XtraTabControlFileHTML.SelectedTabPage = oTabPage
     End Sub
@@ -567,7 +1030,7 @@ Public Class frmMonitor
 
         Dim oTabPage = DirectCast(DocumentViewer.Parent, XtraTabPage)
         oTabPage.PageVisible = True
-        oTabPage.Text = NotNull(Title, oTabPage.Text)
+        oTabPage.Text = ObjectEx.NotNull(Title, oTabPage.Text)
 
         XtraTabControlFileHTML.SelectedTabPage = oTabPage
     End Sub
@@ -580,7 +1043,7 @@ Public Class frmMonitor
 
         Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage)
         oTabPage.PageVisible = True
-        oTabPage.Text = $"{NotNull(Title, oTabPage.Text)} ({Table.Rows.Count})"
+        oTabPage.Text = $"{ObjectEx.NotNull(Title, oTabPage.Text)} ({Table.Rows.Count})"
 
         XtraTabControlSQL.SelectedTabPage = oTabPage
     End Sub
@@ -614,7 +1077,7 @@ Public Class frmMonitor
 
     Private Sub TreeListResults_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs)
         Dim oColumn = TreeListResults.Columns.Item("STATE")
-        Dim oState = NotNull(e.Node.GetValue(oColumn), Nothing)
+        Dim oState = ObjectEx.NotNull(e.Node.GetValue(oColumn), Nothing)
 
         If oState Is Nothing Then
             Exit Sub
@@ -633,6 +1096,7 @@ Public Class frmMonitor
                 oColor = Color.LightSkyBlue
         End Select
 
+        e.Appearance.ForeColor = Color.Black 'TODO - funktioniert nicht immer GraphicsEx.GetContrastedColor(oColor)
         e.Appearance.BackColor = oColor
         e.Appearance.Options.UseBackColor = True
         e.Handled = False
@@ -758,7 +1222,7 @@ Public Class frmMonitor
             Dim oGridResultIndex As Integer = 0
             Dim oViewerResultIndex As Integer = 0
 
-            For Each oColumn As GridColumn In MarkedColumns
+            For Each oColumn As GridColumn In InvisibleMarkedColumns
 
                 Dim oValue = oRow.ItemEx(oColumn.FieldName, String.Empty)
 
@@ -807,7 +1271,6 @@ Public Class frmMonitor
                         oViewerResultIndex += 1
                         FillResultViewer(oViewer, oValue, oTitle)
                         SplitContainerFileHTML.Collapsed = False
-
                     End If
 
                 End If
@@ -826,7 +1289,7 @@ Public Class frmMonitor
     End Sub
 
     Private Sub GridViewResults_ColumnFilterChanged(sender As Object, e As EventArgs)
-        Dim oView As GridView = sender
+        Dim oView As GridView = CType(sender, GridView)
         SetResultCount(oView.DataRowCount)
     End Sub
 
@@ -852,10 +1315,14 @@ Public Class frmMonitor
             DisposeGrid()
             InitGrid()
 
+            DisposeCharts()
+            InitChartContainer()
+
             HideAllTabs()
             Await LoadData()
 
             SetResultCount(0)
+            InitBarItems()
         End If
     End Sub
 
@@ -866,12 +1333,25 @@ Public Class frmMonitor
         GridControlResults = Nothing
     End Sub
 
+    Private Sub DisposeCharts()
+        ChartViewResultContainer.Dispose()
+        ChartViewResultContainer = Nothing
+    End Sub
+
     Private Sub SetResultCount(pResults As Integer)
-        lbResultCount.Caption = String.Format(lbResultCount.Tag, pResults)
+        lbResultCount.Caption = String.Format(CStr(lbResultCount.Tag), pResults)
+    End Sub
+
+    Private Sub SetSearchTimeValue(pValue As String)
+        If pValue.Equals("00:00") Then
+            lbSearchTime.Caption = ""
+        Else
+            lbSearchTime.Caption = pValue
+        End If
     End Sub
 
     Private Sub SetVersion()
-        lbVersion.Caption = String.Format(lbVersion.Tag, System.Reflection.Assembly.GetEntryAssembly().GetName().Version)
+        lbVersion.Caption = String.Format(CStr(lbVersion.Tag), System.Reflection.Assembly.GetEntryAssembly().GetName().Version)
     End Sub
 
     Private Sub InitGrid()
@@ -899,6 +1379,23 @@ Public Class frmMonitor
         SplitContainerSQL.Panel1.Controls.Add(TreeListResults)
     End Sub
 
+    Private Sub InitChartContainer()
+        ChartViewResultContainer = GridLoader.InitChartViewResultContainer()
+        SplitContainerSQL.Panel1.Controls.Add(ChartViewResultContainer)
+        SelectedChart = Nothing
+    End Sub
+
+    Private Sub ResizeCharContainer()
+        If ChartViewResultContainer.Visible = True Then
+            Dim splitContainer1 As SplitContainerControl = CType(ChartViewResultContainer.Panel1.Controls(0), SplitContainerControl)
+            Dim splitContainer2 As SplitContainerControl = CType(ChartViewResultContainer.Panel2.Controls(0), SplitContainerControl)
+
+            ChartViewResultContainer.SplitterPosition = CInt(ChartViewResultContainer.Height / 2)
+            splitContainer1.SplitterPosition = CInt(splitContainer1.Width / 2)
+            splitContainer2.SplitterPosition = CInt(splitContainer2.Width / 2)
+        End If
+    End Sub
+
     Private Sub BarButtonItem2_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
         If ActiveSearch Is Nothing Then
             Exit Sub
@@ -914,5 +1411,123 @@ Public Class frmMonitor
             FormHelper.ShowErrorMessage(ex, "Log Verzeichnis öffnen")
         End Try
     End Sub
+
+    Private Sub ChartControl_Click(sender As Object, e As EventArgs)
+        SelectedChart = CType(sender, ChartControl)
+    End Sub
+
+    Private Sub btnExportChart2PDF_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExportChart2PDF.ItemClick
+        Try
+            If Not IsNothing(SelectedChart) Then
+                XtraSaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf"
+                XtraSaveFileDialog1.FileName = SelectedChart.Titles(0).ToString()
+                If XtraSaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
+                    ExportChart2Pdf(SelectedChart, XtraSaveFileDialog1.FileName)
+                End If
+            Else
+                FormHelper.ShowInfoMessage("Bitte einen Chart auswählen", "Chart Export per PDF")
+            End If
+        Catch ex As Exception
+            FormHelper.ShowErrorMessage(ex, "Chart Export nach PDF")
+        End Try
+    End Sub
+
+    Private Sub btnExportChart2PNG_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExportChart2PNG.ItemClick
+        Try
+            If Not IsNothing(SelectedChart) Then
+                XtraSaveFileDialog1.Filter = "PNG Files (*.png*)|*.png"
+                XtraSaveFileDialog1.FileName = SelectedChart.Titles(0).ToString()
+                If XtraSaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
+                    ExportChartToImage(SelectedChart, XtraSaveFileDialog1.FileName)
+                End If
+            Else
+                FormHelper.ShowInfoMessage("Bitte einen Chart auswählen", "Chart Export per PNG")
+            End If
+        Catch ex As Exception
+            FormHelper.ShowErrorMessage(ex, "Chart Export nach PNG")
+        End Try
+    End Sub
+
+    Sub ExportChart2Pdf(pMyChart As ChartControl, pFilePath As String)
+        Try
+            pMyChart.OptionsPrint.ImageFormat = DevExpress.XtraCharts.Printing.PrintImageFormat.Metafile
+            pMyChart.ExportToPdf(pFilePath, New DevExpress.XtraPrinting.PdfExportOptions With {
+                .ConvertImagesToJpeg = False
+            })
+            ' Exports to a stream as PDF. 
+            Dim pdfStream As FileStream = New FileStream(pFilePath, FileMode.Create)
+            pMyChart.ExportToPdf(pdfStream)
+            ' ... 
+            pdfStream.Close()
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+
+    Sub ExportChartToImage(pMyChart As ChartControl, pFilePath As String)
+        Try
+            SaveChartImageToFile(pMyChart, ImageFormat.Png, pFilePath)
+            Dim image As Image = GetChartImage(pMyChart, ImageFormat.Png)
+            image.Save(pFilePath)
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+
+    End Sub
+
+    Private Sub SaveChartImageToFile(ByVal chart As ChartControl, ByVal format As ImageFormat, ByVal fileName As String)
+        ' Create an image in the specified format from the chart  
+        ' and save it to the specified path.  
+        chart.ExportToImage(fileName, format)
+    End Sub
+
+    Private Function GetChartImage(ByVal chart As ChartControl, ByVal format As ImageFormat) As Image
+        ' Create an image.  
+        Dim image As Image = Nothing
+
+        ' Create an image of the chart.  
+        Using s As New MemoryStream()
+            chart.ExportToImage(s, format)
+            image = System.Drawing.Image.FromStream(s)
+        End Using
+
+        ' Return the image.  
+        Return image
+    End Function
+
+    Private Sub btnDarkMode_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnDarkMode.ItemClick
+        SwitchDarkMode()
+    End Sub
+
+    Private Sub frmMonitor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If SkinMode = SkinModeEnum.LightMode Then
+            ConfigManager.Config.DarkMode = False
+        Else
+            ConfigManager.Config.DarkMode = True
+        End If
+        ConfigManager.Save()
+
+    End Sub
+
+    Private Sub SwitchDarkMode()
+        If SkinMode = SkinModeEnum.LightMode Then
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.BlueDark)
+            SkinMode = SkinModeEnum.DarkMode
+
+        Else
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.Default)
+            SkinMode = SkinModeEnum.LightMode
+        End If
+    End Sub
+
+    Private Sub SetDarkMode()
+        If SkinMode = SkinModeEnum.LightMode Then
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.Default)
+        Else
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.BlueDark)
+        End If
+    End Sub
+
+
 End Class
 

GUIs.Monitor/Helper/GridLoader.vb

@@ -1,10 +1,15 @@
-Imports DevExpress.Utils
+Imports DevExpress.LookAndFeel
+Imports DevExpress.Utils
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraCharts
+Imports DevExpress.XtraEditors
 Imports DevExpress.XtraEditors.Controls
 Imports DevExpress.XtraEditors.Repository
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraTreeList
 Imports DigitalData.GUIs.Common
+Imports DigitalData.GUIs.Monitor.Constants
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
 
@@ -20,6 +25,8 @@ Public Class GridLoader
     Public ReadOnly Property SvgImageCollection As SvgImageCollection
     Public ReadOnly Property GridBuilder As GridBuilder
 
+    Public Event ChartControlClicked As EventHandler
+
     Private ReadOnly StateIcons As New Dictionary(Of String, NodeImage) From {
         {STATE_SUCCESS, NodeImage.Success},
         {STATE_FAILURE, NodeImage.Failure}
@@ -75,11 +82,82 @@ Public Class GridLoader
 
         GridBuilder.SetDefaults(oView)
         GridBuilder.SetClipboardHandler(oView)
-        GridBuilder.SetReadOnlyOptions(oView)
+        ' GridBuilder.SetReadOnlyOptions(oView)
-
+        ' TODO Spalten die nicht HyperLinks sind readonly machen
         Return oGrid
     End Function
 
+    Public Function InitChartViewResultContainer() As SplitContainerControl
+        ' Vorbereiten der SplitContainer-Struktur inkl. der ChartControls
+        Dim oChartViewResultContainer As SplitContainerControl
+        Dim oSplitContainerTop As SplitContainerControl
+        Dim oSplitContainerBottom As SplitContainerControl
+
+        oChartViewResultContainer = New SplitContainerControl With {
+            .Name = "ChartViewResultContainer",
+            .Visible = False,
+            .Dock = DockStyle.Fill,
+            .Horizontal = False,
+            .IsSplitterFixed = True
+        }
+
+        oSplitContainerTop = New SplitContainerControl With {
+            .Name = "SplitContainerTop",
+            .Dock = DockStyle.Fill,
+            .Horizontal = True,
+            .IsSplitterFixed = True
+        }
+
+        oSplitContainerBottom = New SplitContainerControl With {
+            .Name = "SplitContainerBottom",
+            .Dock = DockStyle.Fill,
+            .Horizontal = True,
+            .IsSplitterFixed = True
+        }
+
+        oChartViewResultContainer.Panel1.AddControl(oSplitContainerTop)
+        oChartViewResultContainer.Panel2.AddControl(oSplitContainerBottom)
+
+        Dim oChartControlTopLeft As New ChartControl With {
+            .Name = "ChartControlTopLeft",
+            .Dock = DockStyle.Fill
+        }
+        Dim oChartControlTopRight As New ChartControl With {
+            .Name = "ChartControlTopRight",
+            .Dock = DockStyle.Fill
+        }
+        Dim oChartControlBottomLeft As New ChartControl With {
+            .Name = "ChartControlBottomLeft",
+            .Dock = DockStyle.Fill
+        }
+        Dim oChartControlBottomRight As New ChartControl With {
+            .Name = "ChartControlBottomRight",
+            .Dock = DockStyle.Fill
+        }
+
+        ' Registrieren der Haus-eigenen Palette
+        oChartControlTopLeft.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+        oChartControlTopRight.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+        oChartControlBottomLeft.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+        oChartControlBottomRight.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+
+        AddHandler oChartControlTopLeft.Click, AddressOf ChartControl_Click
+        AddHandler oChartControlTopRight.Click, AddressOf ChartControl_Click
+        AddHandler oChartControlBottomLeft.Click, AddressOf ChartControl_Click
+        AddHandler oChartControlBottomRight.Click, AddressOf ChartControl_Click
+
+        oSplitContainerTop.Panel1.AddControl(oChartControlTopLeft)
+        oSplitContainerTop.Panel2.AddControl(oChartControlTopRight)
+        oSplitContainerBottom.Panel1.AddControl(oChartControlBottomLeft)
+        oSplitContainerBottom.Panel2.AddControl(oChartControlBottomRight)
+
+        Return oChartViewResultContainer
+    End Function
+
+    Private Sub ChartControl_Click(sender As Object, e As EventArgs)
+        RaiseEvent ChartControlClicked(sender, Nothing)
+    End Sub
+
     Public Sub InitTreeListColumns(pTreeList As TreeList, pMaxLength As Integer)
         Dim oColumn1 = pTreeList.Columns.Item("COLUMN1")
         Dim oColumn2 = pTreeList.Columns.Item("COLUMN2")
@@ -176,4 +254,17 @@ Public Class GridLoader
 
         Return oStateEdit
     End Function
+
+
+    Public Function GetDDDefaulPalette() As Palette
+        ' Digital Data Default Palette für Dark Mode
+        Dim palette As Palette = New Palette("DDDefault Palette")
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_1))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_2))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_3))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_4))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_5))
+        Return palette
+    End Function
+
 End Class

GUIs.Monitor/Helper/SearchLoader.vb

@@ -0,0 +1,234 @@
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+Imports DigitalData.GUIs.Monitor.Constants
+
+Public Class SearchLoader
+    Inherits BaseClass
+
+    Private ReadOnly Config As Config
+    Private ReadOnly Database As MSSQLServer
+
+    Public Searches As New List(Of Search)
+    Public Parameters As New List(Of SearchParameter)
+    Public ChartParameters As New List(Of ChartParameter)
+
+    Public Sub New(pLogConfig As LogConfig, pConfig As Config, pDatabase As MSSQLServer)
+        MyBase.New(pLogConfig)
+        Config = pConfig
+        Database = pDatabase
+    End Sub
+
+    Public Sub LoadSearches()
+        Try
+            Searches.Clear()
+
+            Dim oSQL = $"SELECT * FROM TBMON_PROFILE WHERE ACTIVE = 1 ORDER BY SEQUENCE"
+            Dim oTable = Database.GetDatatable(oSQL)
+
+            For Each oRow As DataRow In oTable.Rows
+                Dim oSearchId = oRow.ItemEx("GUID", 0)
+                Dim oParams = Parameters.
+                    Where(Function(param) param.SearchId = oSearchId).
+                    OrderBy(Function(param) param.Sequence).
+                    ToList()
+
+                Dim oSearch = New Search With {
+                    .Id = oSearchId,
+                    .Title = oRow.ItemEx("TITLE", String.Empty),
+                    .Description = oRow.ItemEx("CAPTION", String.Empty),
+                    .ReturnType = GetReturnType(oRow.ItemEx("RETURN_TYPE", String.Empty)),
+                    .SQLCommand = oRow.ItemEx("EXEC_SQL", String.Empty),
+                    .Parameters = oParams
+                }
+
+                ' Erzeuge einen Titel, falls der leer ist
+                If oSearch.Title.Length <= 0 Then
+                    Logger.Warn($"For searchId [{0}] an empty title were defined!", oSearch.Id)
+                    oSearch.Title = "Suche " + oSearch.Id.ToString
+                End If
+
+                ' Es wurde kein SQL Command definiert, ohne geht nix
+                ' Außer es ist eine Chart-Suche
+                If oSearch.ReturnType <> ReturnTypeEnum.ChartView And (oSearch.SQLCommand Is Nothing Or oSearch.SQLCommand.Length = 0) Then
+                    Logger.Error($"For searchId [{0}] is NO SQLCommand defined!", oSearch.Id)
+                    Continue For
+                End If
+
+                ' Anzahl der erwarteten Parameter
+                oSearch.ExpectedParameterCount = oSearch.SQLCommand.Split({"#CTRL#"}, StringSplitOptions.None).Length - 1
+
+                Searches.Add(oSearch)
+            Next
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+
+        End Try
+    End Sub
+
+    Public Sub LoadSearchParameters()
+        Dim oSQL As String = $"SELECT * FROM TBMON_PROFILE_PARAM WHERE ACTIVE = 1"
+        Dim oTable As DataTable = Database.GetDatatable(oSQL)
+        Dim oParameters As New List(Of SearchParameter)
+
+        For Each oRow As DataRow In oTable.Rows
+            oParameters.Add(New SearchParameter With {
+                .Id = oRow.ItemEx("GUID", 0),
+                .Title = oRow.ItemEx("CAPTION", String.Empty),
+                .Description = oRow.ItemEx("DESCRIPTION", String.Empty),
+                .DataType = GetDataType(oRow.ItemEx("DATA_TYPE", "VARCHAR")),
+                .ItemString = oRow.ItemEx("ITEMS", String.Empty),
+                .ItemType = GetItemType(oRow.ItemEx("ITEM_TYPE", String.Empty)),
+                .Required = oRow.ItemEx("REQUIRED", True),
+                .PatternTitle = oRow.ItemEx("PATTERN", String.Empty),
+                .SearchId = oRow.ItemEx("PROFILE_ID", 0),
+                .DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty),
+                .Sequence = oRow.ItemEx("SEQUENCE", 0)
+            })
+        Next
+
+        Parameters = oParameters
+    End Sub
+
+    Public Sub LoadChartParameters()
+        Dim oSQL As String = $"SELECT * FROM TBMON_CHARTS WHERE ACTIVE = 1"
+        Dim oTable As DataTable = Database.GetDatatable(oSQL)
+        Dim oParameters As New List(Of ChartParameter)
+
+        For Each oRow As DataRow In oTable.Rows
+            oParameters.Add(New ChartParameter With {
+                .Id = oRow.ItemEx("GUID", 0),
+                .Title = oRow.ItemEx("TITLE", String.Empty),
+                .SearchId = oRow.ItemEx("PROFILE_ID", 0),
+                .ChartPos = GetChartPosType(oRow.ItemEx("POS_ID", 0)),
+                .SQLCommand = oRow.ItemEx("SQL_COMMAND", String.Empty),
+                .ChartType = GetChartType(oRow.ItemEx("CHART_TYPE", String.Empty)),
+                .Argument = oRow.ItemEx("ARGUMENT", String.Empty),
+                .Value = oRow.ItemEx("VALUE", String.Empty),
+                .LabelType = GetLabelType(oRow.ItemEx("LABEL_TYPE", String.Empty)),
+                .SerieTitle = oRow.ItemEx("SERIE_TITLE", String.Empty),
+                .DesignType = GetDesignType(oRow.ItemEx("DESIGN_TYPE", String.Empty)),
+                .DesignBaseColor = GetDesignBaseColor(oRow.ItemEx("DESIGN_TYPE", String.Empty))
+            })
+        Next
+
+        ChartParameters = oParameters
+    End Sub
+
+    Private Function GetItemType(pTypeString As String) As ItemTypeEnum
+        Select Case pTypeString
+            Case "LIST"
+                Return ItemTypeEnum.List
+            Case "SQL"
+                Return ItemTypeEnum.SQL
+            Case Else
+                Return ItemTypeEnum.Undefined
+        End Select
+    End Function
+
+    Private Function GetReturnType(pTypeString As String) As ReturnTypeEnum
+        Select Case pTypeString
+            Case "Table"
+                Return ReturnTypeEnum.Table
+            Case "TreeView"
+                Return ReturnTypeEnum.TreeView
+            Case "ChartView"
+                Return ReturnTypeEnum.ChartView
+            Case Else
+                Return ReturnTypeEnum.Undefined
+        End Select
+    End Function
+
+    Private Function GetDataType(pTypeString As String) As DataTypeEnum
+        Select Case pTypeString.ToUpper
+            Case "BIT"
+                Return DataTypeEnum.Boolean
+            Case "VARCHAR"
+                Return DataTypeEnum.String
+            Case "INT"
+                Return DataTypeEnum.Integer
+            Case "DATE"
+                Return DataTypeEnum.Date
+            Case Else
+                Return DataTypeEnum.Undefined
+        End Select
+    End Function
+
+    Private Function GetChartType(pTypeString As String) As ChartTypeEnum
+        Select Case pTypeString.ToUpper
+            Case "BAR"
+                Return ChartTypeEnum.Bar
+            Case "AREA"
+                Return ChartTypeEnum.Area
+            Case "LINE"
+                Return ChartTypeEnum.Line
+            Case "PIE"
+                Return ChartTypeEnum.Pie
+            Case "STACKEDBAR"
+                Return ChartTypeEnum.StackedBar
+            Case Else
+                Return ChartTypeEnum.Undefined
+        End Select
+    End Function
+
+    Private Function GetLabelType(pTypeString As String) As LabelTypeEnum
+        Select Case pTypeString.ToUpper
+            Case "NOLABELS"
+                Return LabelTypeEnum.NoLabels
+            Case "DEFAULT"
+                Return LabelTypeEnum.DefaultLabels
+            Case Else
+                Return LabelTypeEnum.NoLabels
+        End Select
+    End Function
+
+    Private Function GetDesignType(pTypeString As String) As DesignTypeEnum
+
+        Dim items() As String = pTypeString.Split("|"c)
+
+        Select Case items(0).ToUpper
+            Case "ASPECT"
+                Return DesignTypeEnum.Aspect
+            Case "MIXED"
+                Return DesignTypeEnum.Mixed
+            Case "OFFICE2013"
+                Return DesignTypeEnum.Office2013
+            Case "SOLSTICE"
+                Return DesignTypeEnum.Solstice
+            Case "DDDEFAULT"
+                Return DesignTypeEnum.DDDefault
+            Case Else
+                Return DesignTypeEnum.DefaultColors
+        End Select
+    End Function
+
+    Private Function GetDesignBaseColor(pTypeString As String) As Integer
+        Dim items() As String = pTypeString.Split("|"c)
+        Dim retValue As Integer = 0
+
+        If items.Length > 1 Then
+            If Integer.TryParse(items(1), retValue) = False Then
+                retValue = 0
+            End If
+        End If
+
+        Return retValue
+    End Function
+
+    Private Function GetChartPosType(pPosTypeId As Integer) As ChartPosEnum
+        Select Case pPosTypeId
+            Case 1
+                Return ChartPosEnum.TopLeft
+            Case 2
+                Return ChartPosEnum.TopRight
+            Case 3
+                Return ChartPosEnum.BottomLeft
+            Case 4
+                Return ChartPosEnum.BottomRight
+            Case Else
+                Return ChartPosEnum.Undefined
+        End Select
+    End Function
+
+End Class

GUIs.Monitor/Monitor.vbproj

@@ -8,7 +8,7 @@
     <OutputType>WinExe</OutputType>
     <RootNamespace>DigitalData.GUIs.Monitor</RootNamespace>
     <AssemblyName>DigitalData.GUIs.Monitor</AssemblyName>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
     <StartupObject>Monitor.Program</StartupObject>
     <FileAlignment>512</FileAlignment>
     <OptionExplicit>On</OptionExplicit>
@@ -16,6 +16,8 @@
     <OptionStrict>Off</OptionStrict>
     <OptionInfer>On</OptionInfer>
     <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -46,75 +48,266 @@
     <ApplicationIcon>ChartType_Line.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DevExpress.BonusSkins.v21.2" />
+    <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
-    <Reference Include="DevExpress.Data.v21.2" />
+      <HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
-    <Reference Include="DevExpress.Dialogs.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Printing.v21.2.Core" />
-    <Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.DataVisualization.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Spreadsheet.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Data.Desktop.v21.2" />
-    <Reference Include="DevExpress.Utils.v21.2" />
-    <Reference Include="DevExpress.XtraBars.v21.2" />
-    <Reference Include="DevExpress.Sparkline.v21.2.Core" />
-    <Reference Include="DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraEditors.v21.2" />
-    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraSpreadsheet.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DigitalData.Controls.DocumentViewer">
-      <HintPath>..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Controls.SQLConfig, Version=1.0.2.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.BonusSkins.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\DDMonorepo\SQLConfig\bin\Debug\DigitalData.Controls.SQLConfig.dll</HintPath>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.BonusSkins.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Charts.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Data.Desktop.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Data.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.DataVisualization.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.DataVisualization.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Dialogs.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Dialogs.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Office.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Printing.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.RichEdit.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Spreadsheet.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Spreadsheet.v21.2.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.Utils.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraBars.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraCharts.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraCharts.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraCharts.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraCharts.v21.2.UI.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraCharts.v21.2.Wizard, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraCharts.v21.2.Wizard.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraDialogs.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraEditors.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraGrid.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraLayout.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraPrinting.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraSpreadsheet.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraTreeList.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Controls.DocumentViewer">
+      <HintPath>..\..\..\2_DLL Projekte\DDMonoRepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.GUIs.Common, Version=1.7.8.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDMonoRepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Base">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
-      <HintPath>..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Config, Version=1.1.4.1, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Config">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
-      <HintPath>..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Database, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Database">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
-      <HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Language, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Logging">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-      <HintPath>..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Patterns">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
-      <HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Patterns, Version=1.1.0.1, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DocumentFormat.OpenXml, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
-      <HintPath>..\..\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
+    </Reference>
+    <Reference Include="DocumentFormat.OpenXml.Framework, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
+      <HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.CAD, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Common, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Document, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Email, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.HTML, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.PDF, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.RTF, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.SVG, Version=14.3.18.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.wia.gateway, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6973b5c22dcf45f7, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.18\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+    </Reference>
+    <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
+    </Reference>
+    <Reference Include="Newtonsoft.Json.Bson, Version=1.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll</HintPath>
     </Reference>
     <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
     </Reference>
+    <Reference Include="OpenMcdf, Version=2.4.1.0, Culture=neutral, PublicKeyToken=fdbb1629d7c00800, processorArchitecture=MSIL">
+      <HintPath>..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll</HintPath>
+    </Reference>
     <Reference Include="PresentationCore" />
+    <Reference Include="protobuf-net, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
+      <HintPath>..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll</HintPath>
+    </Reference>
+    <Reference Include="protobuf-net.Core, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
+      <HintPath>..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="RtfPipe, Version=2.0.7677.4303, Culture=neutral, PublicKeyToken=5f6ab4ce530296d2, processorArchitecture=MSIL">
+      <HintPath>..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll</HintPath>
+    </Reference>
     <Reference Include="System" />
+    <Reference Include="System.Buffers, Version=4.0.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Collections.Immutable, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Collections.Immutable.8.0.0\lib\net462\System.Collections.Immutable.dll</HintPath>
+    </Reference>
     <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Core" />
     <Reference Include="System.IO.Compression" />
+    <Reference Include="System.IO.Packaging, Version=8.0.0.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.IO.Packaging.8.0.1\lib\net462\System.IO.Packaging.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Memory, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Net.Http" />
+    <Reference Include="System.Net.Http.Formatting, Version=6.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Numerics" />
+    <Reference Include="System.Numerics.Vectors, Version=4.1.5.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    </Reference>
     <Reference Include="System.Runtime.Remoting" />
     <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.Security" />
+    <Reference Include="System.Security.Cryptography.Pkcs, Version=8.0.0.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Pkcs.8.0.1\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
+    </Reference>
     <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Text.Encodings.Web, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Text.Encodings.Web.8.0.0\lib\net462\System.Text.Encodings.Web.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Text.Json, Version=8.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Text.Json.8.0.6\lib\net462\System.Text.Json.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
     <Reference Include="System.Transactions" />
+    <Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
+    </Reference>
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
     <Reference Include="Microsoft.CSharp" />
@@ -139,33 +332,34 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="ApplicationEvents.vb" />
-    <Compile Include="Config.vb" />
+    <Compile Include="Data\ChartParameter.vb" />
+    <Compile Include="Data\Config.vb" />
     <Compile Include="Constants.vb" />
-    <Compile Include="frmMonitor.Designer.vb">
+    <Compile Include="Forms\frmMonitor.Designer.vb">
       <DependentUpon>frmMonitor.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmMonitor.vb">
+    <Compile Include="Forms\frmMonitor.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="GridLoader.vb" />
+    <Compile Include="Helper\GridLoader.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
       <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="ParameterLoader.vb" />
+    <Compile Include="Helper\ParameterLoader.vb" />
-    <Compile Include="Search.vb" />
+    <Compile Include="Data\Search.vb" />
-    <Compile Include="SearchLoader.vb" />
+    <Compile Include="Helper\SearchLoader.vb" />
-    <Compile Include="SearchParameter.vb" />
+    <Compile Include="Data\SearchParameter.vb" />
-    <Compile Include="frmLoading.Designer.vb">
+    <Compile Include="Forms\frmLoading.Designer.vb">
       <DependentUpon>frmLoading.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmLoading.vb">
+    <Compile Include="Forms\frmLoading.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Validator.vb" />
+    <Compile Include="Helper\Validator.vb" />
-    <EmbeddedResource Include="frmMonitor.resx">
+    <EmbeddedResource Include="Forms\frmMonitor.resx">
       <DependentUpon>frmMonitor.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
@@ -180,7 +374,7 @@
       <DependentUpon>Resources.resx</DependentUpon>
       <DesignTime>True</DesignTime>
     </Compile>
-    <EmbeddedResource Include="frmLoading.resx">
+    <EmbeddedResource Include="Forms\frmLoading.resx">
       <DependentUpon>frmLoading.vb</DependentUpon>
     </EmbeddedResource>
     <None Include="app.config" />
@@ -234,7 +428,15 @@
     <None Include="Resources\deletetable.svg" />
     <None Include="Resources\actions_reload.svg" />
   </ItemGroup>
+  <ItemGroup />
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\GdPicture.runtimes.windows.14.3.18\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.3.18\build\net462\GdPicture.runtimes.windows.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.18\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.18\build\net462\GdPicture.runtimes.windows.targets'))" />
+  </Target>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

GUIs.Monitor/My Project/AssemblyInfo.vb

@@ -10,8 +10,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyConfiguration("")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Monitor")>
-<Assembly: AssemblyCopyright("Copyright © 2022")>
+<Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("1.3.2.0")>
+<Assembly: AssemblyTrademark("1.6.7.0")>
 <Assembly: AssemblyCulture("")>
 
 ' Setting ComVisible to false makes the types in this assembly not visible 
@@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 ' [assembly: AssemblyVersion("1.0.*")]
-<Assembly: AssemblyVersion("1.3.2.0")>
+<Assembly: AssemblyVersion("1.6.7.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.6.7.0")>

GUIs.Monitor/My Project/Settings.Designer.vb

@@ -12,15 +12,16 @@ Option Strict On
 Option Explicit On
 
 
-
+Namespace My
-<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"),  _
- Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-Partial Friend NotInheritable Class Settings
-    Inherits Global.System.Configuration.ApplicationSettingsBase
-    
-    Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings)
     
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class Settings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings)
+        
 #Region "Automatische My.Settings-Speicherfunktion"
 #If _MyType = "WindowsForms" Then
     Private Shared addedHandler As Boolean
@@ -29,16 +30,16 @@ Partial Friend NotInheritable Class Settings
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
     Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
-        If My.Application.SaveMySettingsOnExit Then
+            ' If My.Application.SaveMySettingsOnExit Then
-            My.Settings.Save()
+            '     My.Settings.Save()
-        End If
+            ' End If
-    End Sub
+        End Sub
 #End If
 #End Region
-    
+        
-    Public Shared ReadOnly Property [Default]() As Settings
+        Public Shared ReadOnly Property [Default]() As Settings
-        Get
+            Get
-            
+                
 #If _MyType = "WindowsForms" Then
                If Not addedHandler Then
                     SyncLock addedHandlerLockObject
@@ -49,10 +50,11 @@ Partial Friend NotInheritable Class Settings
                     End SyncLock
                 End If
 #End If
-            Return defaultInstance
+                Return defaultInstance
-        End Get
+            End Get
-    End Property
+        End Property
-End Class
+    End Class
+End Namespace
 
 Namespace My
     
@@ -62,9 +64,9 @@ Namespace My
     Friend Module MySettingsProperty
         
         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.DigitalData.GUIs.Monitor.Settings
+        Friend ReadOnly Property Settings() As Global.DigitalData.GUIs.Monitor.My.Settings
             Get
-                Return Global.DigitalData.GUIs.Monitor.Settings.Default
+                Return Global.DigitalData.GUIs.Monitor.My.Settings.Default
             End Get
         End Property
     End Module

GUIs.Monitor/SearchLoader.vb

@@ -1,115 +0,0 @@
-Imports DigitalData.Modules.Base
-Imports DigitalData.Modules.Database
-Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Language
-Imports DigitalData.GUIs.Monitor.Constants
-
-Public Class SearchLoader
-    Inherits BaseClass
-
-    Private ReadOnly Config As Config
-    Private ReadOnly Database As MSSQLServer
-
-    Public Searches As New List(Of Search)
-    Public Parameters As New List(Of SearchParameter)
-
-    Public Sub New(pLogConfig As LogConfig, pConfig As Config, pDatabase As MSSQLServer)
-        MyBase.New(pLogConfig)
-        Config = pConfig
-        Database = pDatabase
-    End Sub
-
-    Public Sub LoadSearches()
-        Try
-            Searches.Clear()
-
-            Dim oSQL = $"SELECT * FROM TBMON_PROFILE WHERE ACTIVE = 1 ORDER BY SEQUENCE"
-            Dim oTable = Database.GetDatatable(oSQL)
-
-            For Each oRow As DataRow In oTable.Rows
-                Dim oSearchId = oRow.ItemEx("GUID", 0)
-                Dim oParams = Parameters.
-                    Where(Function(param) param.SearchId = oSearchId).
-                    OrderBy(Function(param) param.Sequence).
-                    ToList()
-
-                Searches.Add(New Search With {
-                    .Id = oSearchId,
-                    .Title = oRow.ItemEx("TITLE", String.Empty),
-                    .Description = oRow.ItemEx("CAPTION", String.Empty),
-                    .ReturnType = GetReturnType(oRow.ItemEx("RETURN_TYPE", String.Empty)),
-                    .SQLCommand = oRow.ItemEx("EXEC_SQL", String.Empty),
-                    .Parameters = oParams
-                })
-            Next
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-
-        End Try
-    End Sub
-
-    Public Sub LoadSearchParameters()
-        Dim oSQL As String = $"SELECT * FROM TBMON_PROFILE_PARAM WHERE ACTIVE = 1"
-        Dim oTable As DataTable = Database.GetDatatable(oSQL)
-        Dim oParameters As New List(Of SearchParameter)
-
-        For Each oRow As DataRow In oTable.Rows
-            oParameters.Add(New SearchParameter With {
-                .Id = oRow.ItemEx("GUID", 0),
-                .Title = oRow.ItemEx("CAPTION", String.Empty),
-                .Description = oRow.ItemEx("DESCRIPTION", String.Empty),
-                .DataType = GetDataType(oRow.ItemEx("DATA_TYPE", "VARCHAR")),
-                .ItemString = oRow.ItemEx("ITEMS", String.Empty),
-                .ItemType = GetItemType(oRow.ItemEx("ITEM_TYPE", String.Empty)),
-                .Required = oRow.ItemEx("REQUIRED", True),
-                .PatternTitle = oRow.ItemEx("PATTERN", String.Empty),
-                .SearchId = oRow.ItemEx("PROFILE_ID", 0),
-                .DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty),
-                .Sequence = oRow.ItemEx("SEQUENCE", 0)
-            })
-        Next
-
-        Parameters = oParameters
-    End Sub
-
-    Private Function GetItemType(pTypeString As String) As ItemTypeEnum
-        Select Case pTypeString
-            Case "LIST"
-                Return ItemTypeEnum.List
-            Case "SQL"
-                Return ItemTypeEnum.SQL
-            Case Else
-                Return ItemTypeEnum.Undefined
-        End Select
-    End Function
-
-    Private Function GetReturnType(pTypeString As String) As ReturnTypeEnum
-        Select Case pTypeString
-            Case "Table"
-                Return ReturnTypeEnum.Table
-            Case "TreeView"
-                Return ReturnTypeEnum.TreeView
-            Case Else
-                Return ReturnTypeEnum.Undefined
-        End Select
-    End Function
-
-    Private Function GetDataType(pTypeString As String) As DataTypeEnum
-        Select Case pTypeString
-            Case "BIT"
-                Return DataTypeEnum.Boolean
-            Case "VARCHAR"
-                Return DataTypeEnum.String
-            Case "INT"
-                Return DataTypeEnum.Integer
-            Case "DATE"
-                Return DataTypeEnum.Date
-            Case Else
-                Return DataTypeEnum.Undefined
-        End Select
-    End Function
-
-
-
-End Class

GUIs.Monitor/app.config

@@ -14,10 +14,10 @@
         <value>True</value>
       </setting>
       <setting name="DefaultAppSkin" serializeAs="String">
-        <value>Skin/Office 2019 Colorful</value>
+        <value></value>
       </setting>
       <setting name="DefaultPalette" serializeAs="String">
-        <value>Yale</value>
+        <value></value>
       </setting>
       <setting name="TouchUI" serializeAs="String">
         <value></value>
@@ -46,7 +46,7 @@
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
   <startup>
-    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
   </startup>
   <system.diagnostics>
     <sources>
@@ -78,6 +78,54 @@
         <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.18.0" newVersion="14.3.18.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14.Common" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.18.0" newVersion="14.3.18.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14.Imaging" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.18.0" newVersion="14.3.18.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.2.0" newVersion="4.0.2.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-6.0.1.0" newVersion="6.0.1.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.4.0" newVersion="4.0.4.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Collections.Immutable" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-8.0.0.0" newVersion="8.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.5.0" newVersion="4.1.5.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Security.Cryptography.Pkcs" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-8.0.0.1" newVersion="8.0.0.1" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-8.0.0.6" newVersion="8.0.0.6" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.IO.Packaging" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-8.0.0.1" newVersion="8.0.0.1" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
 </configuration>

GUIs.Monitor/frmMonitor.resx

@@ -1,138 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>362, 17</value>
-  </metadata>
-  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>196, 17</value>
-  </metadata>
-  <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>514, 17</value>
-  </metadata>
-  <metadata name="AdornerUIManager2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>673, 17</value>
-  </metadata>
-  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>35</value>
-  </metadata>
-  <metadata name="WorkspaceManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>836, 17</value>
-  </metadata>
-</root>

GUIs.Monitor/packages.config

@@ -1,4 +1,30 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
+  <package id="BouncyCastle.Cryptography" version="2.5.0" targetFramework="net462" />
+  <package id="DocumentFormat.OpenXml" version="3.2.0" targetFramework="net462" />
+  <package id="DocumentFormat.OpenXml.Framework" version="3.2.0" targetFramework="net462" />
+  <package id="GdPicture" version="14.3.18" targetFramework="net462" />
+  <package id="GdPicture.runtimes.windows" version="14.3.18" targetFramework="net462" />
+  <package id="Microsoft.AspNet.WebApi.Client" version="6.0.0" targetFramework="net462" />
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net462" />
+  <package id="Microsoft.CSharp" version="4.7.0" targetFramework="net462" />
+  <package id="Microsoft.VisualBasic" version="10.3.0" targetFramework="net462" />
+  <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net462" />
+  <package id="Newtonsoft.Json.Bson" version="1.0.2" targetFramework="net462" />
   <package id="NLog" version="5.0.5" targetFramework="net461" />
+  <package id="OpenMcdf" version="2.4.1" targetFramework="net462" />
+  <package id="protobuf-net" version="3.2.46" targetFramework="net462" />
+  <package id="protobuf-net.Core" version="3.2.46" targetFramework="net462" />
+  <package id="RtfPipe" version="2.0.7677.4303" targetFramework="net462" />
+  <package id="System.Buffers" version="4.6.0" targetFramework="net462" />
+  <package id="System.Collections.Immutable" version="8.0.0" targetFramework="net462" />
+  <package id="System.IO.Packaging" version="8.0.1" targetFramework="net462" />
+  <package id="System.Memory" version="4.6.0" targetFramework="net462" />
+  <package id="System.Numerics.Vectors" version="4.6.0" targetFramework="net462" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.1.0" targetFramework="net462" />
+  <package id="System.Security.Cryptography.Pkcs" version="8.0.1" targetFramework="net462" />
+  <package id="System.Text.Encodings.Web" version="8.0.0" targetFramework="net462" />
+  <package id="System.Text.Json" version="8.0.6" targetFramework="net462" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net462" />
+  <package id="System.ValueTuple" version="4.5.0" targetFramework="net462" />
 </packages>

Monitor/App.config

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="utf-8" ?>
-<configuration>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
-    </startup>
-</configuration>

Monitor/Form1.Designer.vb

@@ -1,31 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Form1
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        components = New System.ComponentModel.Container()
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Text = "Form1"
-    End Sub
-
-End Class

Monitor/Form1.vb

@@ -1,3 +0,0 @@
-Public Class Form1
-
-End Class

Monitor/Monitor.sln

@@ -1,25 +0,0 @@
-
-Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.27703.2000
-MinimumVisualStudioVersion = 10.0.40219.1
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Monitor", "Monitor.vbproj", "{54EE2A2E-B44B-451E-AF82-953FB573EC27}"
-EndProject
-Global
-	GlobalSection(SolutionConfigurationPlatforms) = preSolution
-		Debug|Any CPU = Debug|Any CPU
-		Release|Any CPU = Release|Any CPU
-	EndGlobalSection
-	GlobalSection(ProjectConfigurationPlatforms) = postSolution
-		{54EE2A2E-B44B-451E-AF82-953FB573EC27}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{54EE2A2E-B44B-451E-AF82-953FB573EC27}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{54EE2A2E-B44B-451E-AF82-953FB573EC27}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{54EE2A2E-B44B-451E-AF82-953FB573EC27}.Release|Any CPU.Build.0 = Release|Any CPU
-	EndGlobalSection
-	GlobalSection(SolutionProperties) = preSolution
-		HideSolutionNode = FALSE
-	EndGlobalSection
-	GlobalSection(ExtensibilityGlobals) = postSolution
-		SolutionGuid = {93774107-95C2-4A9C-B03F-8463AC2EBE0B}
-	EndGlobalSection
-EndGlobal

Monitor/Monitor.vbproj

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
-  <PropertyGroup>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{54EE2A2E-B44B-451E-AF82-953FB573EC27}</ProjectGuid>
-    <OutputType>WinExe</OutputType>
-    <StartupObject>Monitor.My.MyApplication</StartupObject>
-    <RootNamespace>Monitor</RootNamespace>
-    <AssemblyName>Monitor</AssemblyName>
-    <FileAlignment>512</FileAlignment>
-    <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
-    <Deterministic>true</Deterministic>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugSymbols>true</DebugSymbols>
-    <DebugType>full</DebugType>
-    <DefineDebug>true</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>Monitor.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugType>pdbonly</DebugType>
-    <DefineDebug>false</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <Optimize>true</Optimize>
-    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>Monitor.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionCompare>Binary</OptionCompare>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionStrict>Off</OptionStrict>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionInfer>On</OptionInfer>
-  </PropertyGroup>
-  <ItemGroup>
-    <Reference Include="System" />
-    <Reference Include="System.Data" />
-    <Reference Include="System.Deployment" />
-    <Reference Include="System.Drawing" />
-    <Reference Include="System.Windows.Forms" />
-    <Reference Include="System.Xml" />
-    <Reference Include="System.Core" />
-    <Reference Include="System.Xml.Linq" />
-    <Reference Include="System.Data.DataSetExtensions" />
-    <Reference Include="System.Net.Http" />
-  </ItemGroup>
-  <ItemGroup>
-    <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System" />
-    <Import Include="System.Collections" />
-    <Import Include="System.Collections.Generic" />
-    <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
-    <Import Include="System.Diagnostics" />
-    <Import Include="System.Windows.Forms" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Threading.Tasks" />
-  </ItemGroup>
-  <ItemGroup>
-    <Compile Include="Form1.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="Form1.Designer.vb">
-      <DependentUpon>Form1.vb</DependentUpon>
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="My Project\Application.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Application.myapp</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Settings.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Settings.settings</DependentUpon>
-      <DesignTimeSharedInput>True</DesignTimeSharedInput>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
-    <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="My Project\Application.myapp">
-      <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="My Project\Settings.settings">
-      <Generator>SettingsSingleFileGenerator</Generator>
-      <CustomToolNamespace>My</CustomToolNamespace>
-      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="App.config" />
-  </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-</Project>

Monitor/My Project/Application.Designer.vb

@@ -1,38 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
-'
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-
-Namespace My
-
-    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
-    ' or if you encounter build errors in this file, go to the Project Designer
-    ' (go to Project Properties or double-click the My Project node in
-    ' Solution Explorer), and make changes on the Application tab.
-    '
-    Partial Friend Class MyApplication
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
-        Public Sub New()
-            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
-            Me.IsSingleInstance = false
-            Me.EnableVisualStyles = true
-            Me.SaveMySettingsOnExit = true
-            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
-        End Sub
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
-        Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.Monitor.Form1
-        End Sub
-    End Class
-End Namespace

Monitor/My Project/Application.myapp

@@ -1,11 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
-  <MySubMain>true</MySubMain>
-  <MainForm>Form1</MainForm>
-  <SingleInstance>false</SingleInstance>
-  <ShutdownMode>0</ShutdownMode>
-  <EnableVisualStyles>true</EnableVisualStyles>
-  <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
-  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>

Monitor/My Project/AssemblyInfo.vb

@@ -1,35 +0,0 @@
-Imports System
-Imports System.Reflection
-Imports System.Runtime.InteropServices
-
-' Allgemeine Informationen über eine Assembly werden über die folgenden
-' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
-' die einer Assembly zugeordnet sind.
-
-' Werte der Assemblyattribute überprüfen
-
-<Assembly: AssemblyTitle("Monitor")>
-<Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("")>
-<Assembly: AssemblyProduct("Monitor")>
-<Assembly: AssemblyCopyright("Copyright ©  2021")>
-<Assembly: AssemblyTrademark("")>
-
-<Assembly: ComVisible(False)>
-
-'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
-<Assembly: Guid("074fdcb2-a378-49c1-9ca0-ba7ad0b230ad")>
-
-' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
-'
-'      Hauptversion
-'      Nebenversion
-'      Buildnummer
-'      Revision
-'
-' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
-' indem Sie "*" wie unten gezeigt eingeben:
-' <Assembly: AssemblyVersion("1.0.*")>
-
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>

Monitor/My Project/Resources.Designer.vb

@@ -1,62 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
-'
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-
-Namespace My.Resources
-
-    'This class was auto-generated by the StronglyTypedResourceBuilder
-    'class via a tool like ResGen or Visual Studio.
-    'To add or remove a member, edit your .ResX file then rerun ResGen
-    'with the /str option, or rebuild your VS project.
-    '''<summary>
-    '''  A strongly-typed resource class, for looking up localized strings, etc.
-    '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
-    Friend Module Resources
-
-        Private resourceMan As Global.System.Resources.ResourceManager
-
-        Private resourceCulture As Global.System.Globalization.CultureInfo
-
-        '''<summary>
-        '''  Returns the cached ResourceManager instance used by this class.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
-            Get
-                If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Monitor.Resources", GetType(Resources).Assembly)
-                    resourceMan = temp
-                End If
-                Return resourceMan
-            End Get
-        End Property
-
-        '''<summary>
-        '''  Overrides the current thread's CurrentUICulture property for all
-        '''  resource lookups using this strongly typed resource class.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Friend Property Culture() As Global.System.Globalization.CultureInfo
-            Get
-                Return resourceCulture
-            End Get
-            Set(ByVal value As Global.System.Globalization.CultureInfo)
-                resourceCulture = value
-            End Set
-        End Property
-    End Module
-End Namespace

Monitor/My Project/Resources.resx

@@ -1,117 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

Monitor/My Project/Settings.Designer.vb

@@ -1,73 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
-'
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-
-Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    Partial Friend NotInheritable Class MySettings
-        Inherits Global.System.Configuration.ApplicationSettingsBase
-
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
-
-#Region "My.Settings Auto-Save Functionality"
-#If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
-
-        Private Shared addedHandlerLockObject As New Object
-
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
-            End If
-        End Sub
-#End If
-#End Region
-
-        Public Shared ReadOnly Property [Default]() As MySettings
-            Get
-
-#If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
-                            End If
-                        End SyncLock
-                    End If
-#End If
-                Return defaultInstance
-            End Get
-        End Property
-    End Class
-End Namespace
-
-Namespace My
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
-    Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
-        Friend ReadOnly Property Settings() As Global.Monitor.My.MySettings
-            Get
-                Return Global.Monitor.My.MySettings.Default
-            End Get
-        End Property
-    End Module
-End Namespace

Monitor/My Project/Settings.settings

@@ -1,7 +0,0 @@
-<?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
-  <Profiles>
-    <Profile Name="(Default)" />
-  </Profiles>
-  <Settings />
-</SettingsFile>

Monitor/frmMonitor.designer.vb

@@ -1,725 +0,0 @@
-Imports DigitalData.GUIs.Common.Base
-
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmMonitor
-    'Inherits DevExpress.XtraBars.Ribbon.RibbonForm
-    Inherits BaseRibbonForm
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMonitor))
-        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
-        Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
-        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
-        Me.cmbSearchKeys = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
-        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.LayoutItemSearchValue_Text = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutItemSearchValue_Date = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPageFile1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
-        Me.XtraTabPageFile2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.DocumentViewer2 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
-        Me.XtraTabPageHtml1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl()
-        Me.XtraTabPageHtml2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.RichEditControl2 = New DevExpress.XtraRichEdit.RichEditControl()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.TreeListResults = New DevExpress.XtraTreeList.TreeList()
-        Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
-        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPageSQL1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageSQL2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageSQL3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageSQL4 = New DevExpress.XtraTab.XtraTabPage()
-        Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
-        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.LayoutControl1.SuspendLayout()
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl1.SuspendLayout()
-        Me.XtraTabPageFile1.SuspendLayout()
-        Me.XtraTabPageFile2.SuspendLayout()
-        Me.XtraTabPageHtml1.SuspendLayout()
-        Me.XtraTabPageHtml2.SuspendLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerControl1.SuspendLayout()
-        CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerControl3.SuspendLayout()
-        CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl3.SuspendLayout()
-        Me.XtraTabPageSQL1.SuspendLayout()
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageSQL2.SuspendLayout()
-        CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageSQL3.SuspendLayout()
-        CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageSQL4.SuspendLayout()
-        CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerControl2.SuspendLayout()
-        CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl2.SuspendLayout()
-        Me.XtraTabPage3.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'RibbonControl1
-        '
-        Me.RibbonControl1.ApplicationButtonDropDownControl = Me.ApplicationMenu1
-        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1})
-        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 7
-        Me.RibbonControl1.Name = "RibbonControl1"
-        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.ShowToolbarCustomizeItem = False
-        Me.RibbonControl1.Size = New System.Drawing.Size(1379, 159)
-        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
-        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
-        '
-        'ApplicationMenu1
-        '
-        Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem1)
-        Me.ApplicationMenu1.Name = "ApplicationMenu1"
-        Me.ApplicationMenu1.Ribbon = Me.RibbonControl1
-        '
-        'BarButtonItem1
-        '
-        Me.BarButtonItem1.Caption = "SQL Konfiguration"
-        Me.BarButtonItem1.Id = 2
-        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.managedatasource
-        Me.BarButtonItem1.Name = "BarButtonItem1"
-        '
-        'buttonSearch
-        '
-        Me.buttonSearch.Caption = "Sicht laden"
-        Me.buttonSearch.Id = 1
-        Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted
-        Me.buttonSearch.Name = "buttonSearch"
-        Me.buttonSearch.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
-        '
-        'BarButtonItem2
-        '
-        Me.BarButtonItem2.Caption = "Export Grid als XLSX"
-        Me.BarButtonItem2.Enabled = False
-        Me.BarButtonItem2.Id = 4
-        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.export
-        Me.BarButtonItem2.Name = "BarButtonItem2"
-        '
-        'BarButtonItem3
-        '
-        Me.BarButtonItem3.Caption = "Export als XLSX"
-        Me.BarButtonItem3.Id = 5
-        Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image)
-        Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
-        Me.BarButtonItem3.Name = "BarButtonItem3"
-        '
-        'RibbonPage1
-        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
-        Me.RibbonPage1.Name = "RibbonPage1"
-        Me.RibbonPage1.Text = "Start"
-        '
-        'RibbonPageGroup1
-        '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.RibbonPageGroup1.Text = "Daten"
-        '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "Export"
-        '
-        'RibbonStatusBar1
-        '
-        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 749)
-        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
-        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 22)
-        '
-        'RibbonPage2
-        '
-        Me.RibbonPage2.Name = "RibbonPage2"
-        Me.RibbonPage2.Text = "RibbonPage2"
-        '
-        'LayoutControl1
-        '
-        Me.LayoutControl1.Controls.Add(Me.TextEdit1)
-        Me.LayoutControl1.Controls.Add(Me.cmbSearchKeys)
-        Me.LayoutControl1.Controls.Add(Me.TextEdit2)
-        Me.LayoutControl1.Controls.Add(Me.DateEdit1)
-        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControl1.Name = "LayoutControl1"
-        Me.LayoutControl1.Root = Me.Root
-        Me.LayoutControl1.Size = New System.Drawing.Size(235, 564)
-        Me.LayoutControl1.TabIndex = 0
-        Me.LayoutControl1.Text = "LayoutControl1"
-        '
-        'TextEdit1
-        '
-        Me.TextEdit1.Location = New System.Drawing.Point(15, 77)
-        Me.TextEdit1.MenuManager = Me.RibbonControl1
-        Me.TextEdit1.Name = "TextEdit1"
-        Me.TextEdit1.Size = New System.Drawing.Size(205, 20)
-        Me.TextEdit1.StyleController = Me.LayoutControl1
-        Me.TextEdit1.TabIndex = 4
-        '
-        'cmbSearchKeys
-        '
-        Me.cmbSearchKeys.Location = New System.Drawing.Point(15, 31)
-        Me.cmbSearchKeys.MenuManager = Me.RibbonControl1
-        Me.cmbSearchKeys.Name = "cmbSearchKeys"
-        Me.cmbSearchKeys.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.cmbSearchKeys.Size = New System.Drawing.Size(205, 20)
-        Me.cmbSearchKeys.StyleController = Me.LayoutControl1
-        Me.cmbSearchKeys.TabIndex = 5
-        '
-        'TextEdit2
-        '
-        Me.TextEdit2.Location = New System.Drawing.Point(15, 169)
-        Me.TextEdit2.MenuManager = Me.RibbonControl1
-        Me.TextEdit2.Name = "TextEdit2"
-        Me.TextEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.TextEdit2.Size = New System.Drawing.Size(205, 20)
-        Me.TextEdit2.StyleController = Me.LayoutControl1
-        Me.TextEdit2.TabIndex = 6
-        '
-        'DateEdit1
-        '
-        Me.DateEdit1.EditValue = Nothing
-        Me.DateEdit1.Location = New System.Drawing.Point(15, 123)
-        Me.DateEdit1.MenuManager = Me.RibbonControl1
-        Me.DateEdit1.Name = "DateEdit1"
-        Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.DateEdit1.Size = New System.Drawing.Size(205, 20)
-        Me.DateEdit1.StyleController = Me.LayoutControl1
-        Me.DateEdit1.TabIndex = 7
-        '
-        'Root
-        '
-        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.Root.GroupBordersVisible = False
-        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutItemSearchValue_Text, Me.LayoutControlItem2, Me.LayoutItemSearchValue_Date, Me.LayoutControlItem3})
-        Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(235, 564)
-        Me.Root.TextVisible = False
-        '
-        'LayoutItemSearchValue_Text
-        '
-        Me.LayoutItemSearchValue_Text.Control = Me.TextEdit1
-        Me.LayoutItemSearchValue_Text.Location = New System.Drawing.Point(0, 46)
-        Me.LayoutItemSearchValue_Text.Name = "LayoutItemSearchValue_Text"
-        Me.LayoutItemSearchValue_Text.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutItemSearchValue_Text.Size = New System.Drawing.Size(215, 46)
-        Me.LayoutItemSearchValue_Text.Text = "Parameter"
-        Me.LayoutItemSearchValue_Text.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(88, 13)
-        '
-        'LayoutControlItem2
-        '
-        Me.LayoutControlItem2.Control = Me.cmbSearchKeys
-        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(215, 46)
-        Me.LayoutControlItem2.Text = "Sicht Titel"
-        Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(88, 13)
-        '
-        'LayoutItemSearchValue_Date
-        '
-        Me.LayoutItemSearchValue_Date.Control = Me.DateEdit1
-        Me.LayoutItemSearchValue_Date.Location = New System.Drawing.Point(0, 92)
-        Me.LayoutItemSearchValue_Date.Name = "LayoutItemSearchValue_Date"
-        Me.LayoutItemSearchValue_Date.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutItemSearchValue_Date.Size = New System.Drawing.Size(215, 46)
-        Me.LayoutItemSearchValue_Date.Text = "Datum Parameter"
-        Me.LayoutItemSearchValue_Date.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(88, 13)
-        Me.LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
-        '
-        'LayoutControlItem3
-        '
-        Me.LayoutControlItem3.Control = Me.TextEdit2
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 138)
-        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(215, 406)
-        Me.LayoutControlItem3.Text = "Auswertung"
-        Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(88, 13)
-        '
-        'XtraTabControl1
-        '
-        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
-        Me.XtraTabControl1.Name = "XtraTabControl1"
-        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageFile1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(409, 564)
-        Me.XtraTabControl1.TabIndex = 1
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageFile1, Me.XtraTabPageFile2, Me.XtraTabPageHtml1, Me.XtraTabPageHtml2})
-        '
-        'XtraTabPageFile1
-        '
-        Me.XtraTabPageFile1.Controls.Add(Me.DocumentViewer1)
-        Me.XtraTabPageFile1.Name = "XtraTabPageFile1"
-        Me.XtraTabPageFile1.Size = New System.Drawing.Size(407, 541)
-        Me.XtraTabPageFile1.Text = "File 1"
-        '
-        'DocumentViewer1
-        '
-        Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DocumentViewer1.FileLoaded = False
-        Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
-        Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(407, 541)
-        Me.DocumentViewer1.TabIndex = 0
-        '
-        'XtraTabPageFile2
-        '
-        Me.XtraTabPageFile2.Controls.Add(Me.DocumentViewer2)
-        Me.XtraTabPageFile2.Name = "XtraTabPageFile2"
-        Me.XtraTabPageFile2.Size = New System.Drawing.Size(407, 541)
-        Me.XtraTabPageFile2.Text = "File 2"
-        '
-        'DocumentViewer2
-        '
-        Me.DocumentViewer2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DocumentViewer2.FileLoaded = False
-        Me.DocumentViewer2.Location = New System.Drawing.Point(0, 0)
-        Me.DocumentViewer2.Name = "DocumentViewer2"
-        Me.DocumentViewer2.Size = New System.Drawing.Size(407, 541)
-        Me.DocumentViewer2.TabIndex = 1
-        '
-        'XtraTabPageHtml1
-        '
-        Me.XtraTabPageHtml1.Controls.Add(Me.RichEditControl1)
-        Me.XtraTabPageHtml1.Name = "XtraTabPageHtml1"
-        Me.XtraTabPageHtml1.Size = New System.Drawing.Size(407, 541)
-        Me.XtraTabPageHtml1.Text = "HTML 1"
-        '
-        'RichEditControl1
-        '
-        Me.RichEditControl1.ActiveViewType = DevExpress.XtraRichEdit.RichEditViewType.Simple
-        Me.RichEditControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.RichEditControl1.LayoutUnit = DevExpress.XtraRichEdit.DocumentLayoutUnit.Pixel
-        Me.RichEditControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RichEditControl1.MenuManager = Me.RibbonControl1
-        Me.RichEditControl1.Name = "RichEditControl1"
-        Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden
-        Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden
-        Me.RichEditControl1.Size = New System.Drawing.Size(407, 541)
-        Me.RichEditControl1.TabIndex = 0
-        Me.RichEditControl1.Text = "RichEditControl1"
-        '
-        'XtraTabPageHtml2
-        '
-        Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2)
-        Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2"
-        Me.XtraTabPageHtml2.Size = New System.Drawing.Size(407, 541)
-        Me.XtraTabPageHtml2.Text = "HTML 2"
-        '
-        'RichEditControl2
-        '
-        Me.RichEditControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.RichEditControl2.Location = New System.Drawing.Point(0, 0)
-        Me.RichEditControl2.MenuManager = Me.RibbonControl1
-        Me.RichEditControl2.Name = "RichEditControl2"
-        Me.RichEditControl2.Size = New System.Drawing.Size(407, 541)
-        Me.RichEditControl2.TabIndex = 1
-        Me.RichEditControl2.Text = "RichEditControl2"
-        '
-        'GridControl1
-        '
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl1.MainView = Me.GridView1
-        Me.GridControl1.MenuManager = Me.RibbonControl1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(711, 350)
-        Me.GridControl1.TabIndex = 0
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
-        '
-        'GridView1
-        '
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
-        '
-        'TreeListResults
-        '
-        Me.TreeListResults.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TreeListResults.Location = New System.Drawing.Point(0, 0)
-        Me.TreeListResults.MenuManager = Me.RibbonControl1
-        Me.TreeListResults.Name = "TreeListResults"
-        Me.TreeListResults.OptionsView.ShowColumns = False
-        Me.TreeListResults.Size = New System.Drawing.Size(713, 181)
-        Me.TreeListResults.TabIndex = 4
-        '
-        'SvgImageCollection1
-        '
-        Me.SvgImageCollection1.Add("default", "image://svgimages/outlook inspired/about.svg")
-        Me.SvgImageCollection1.Add("sql", "image://svgimages/icon builder/actions_database.svg")
-        Me.SvgImageCollection1.Add("file", "image://svgimages/pdf viewer/documentpdf.svg")
-        Me.SvgImageCollection1.Add("mail", "image://svgimages/icon builder/actions_envelopeclose.svg")
-        Me.SvgImageCollection1.Add("success", "image://svgimages/icon builder/actions_checkcircled.svg")
-        Me.SvgImageCollection1.Add("failure", "image://svgimages/icon builder/actions_deletecircled.svg")
-        Me.SvgImageCollection1.Add("warning", "image://svgimages/business objects/bo_attention.svg")
-        Me.SvgImageCollection1.Add("waiting", "image://svgimages/business objects/bo_audit_changehistory.svg")
-        Me.SvgImageCollection1.Add("actions_user", "image://svgimages/icon builder/actions_user.svg")
-        Me.SvgImageCollection1.Add("highimportance", "image://svgimages/outlook inspired/highimportance.svg")
-        '
-        'SplitContainerControl1
-        '
-        Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
-        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerControl1.Name = "SplitContainerControl1"
-        Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1)
-        Me.SplitContainerControl1.Panel1.Text = "Panel1"
-        Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl3)
-        Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(958, 564)
-        Me.SplitContainerControl1.SplitterPosition = 235
-        Me.SplitContainerControl1.TabIndex = 9
-        '
-        'SplitContainerControl3
-        '
-        Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
-        Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl3.Horizontal = False
-        Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerControl3.Name = "SplitContainerControl3"
-        Me.SplitContainerControl3.Panel1.Controls.Add(Me.TreeListResults)
-        Me.SplitContainerControl3.Panel1.Text = "Panel1"
-        Me.SplitContainerControl3.Panel2.Controls.Add(Me.XtraTabControl3)
-        Me.SplitContainerControl3.Panel2.Text = "Panel2"
-        Me.SplitContainerControl3.Size = New System.Drawing.Size(713, 564)
-        Me.SplitContainerControl3.SplitterPosition = 181
-        Me.SplitContainerControl3.TabIndex = 5
-        '
-        'XtraTabControl3
-        '
-        Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0)
-        Me.XtraTabControl3.Name = "XtraTabControl3"
-        Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPageSQL1
-        Me.XtraTabControl3.Size = New System.Drawing.Size(713, 373)
-        Me.XtraTabControl3.TabIndex = 0
-        Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSQL1, Me.XtraTabPageSQL2, Me.XtraTabPageSQL3, Me.XtraTabPageSQL4})
-        '
-        'XtraTabPageSQL1
-        '
-        Me.XtraTabPageSQL1.Controls.Add(Me.GridControl2)
-        Me.XtraTabPageSQL1.Name = "XtraTabPageSQL1"
-        Me.XtraTabPageSQL1.Size = New System.Drawing.Size(711, 350)
-        Me.XtraTabPageSQL1.Text = "SQL 1"
-        '
-        'GridControl2
-        '
-        Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl2.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl2.MainView = Me.GridView2
-        Me.GridControl2.MenuManager = Me.RibbonControl1
-        Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(711, 350)
-        Me.GridControl2.TabIndex = 1
-        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
-        '
-        'GridView2
-        '
-        Me.GridView2.GridControl = Me.GridControl2
-        Me.GridView2.Name = "GridView2"
-        '
-        'XtraTabPageSQL2
-        '
-        Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3)
-        Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2"
-        Me.XtraTabPageSQL2.Size = New System.Drawing.Size(711, 350)
-        Me.XtraTabPageSQL2.Text = "SQL 2"
-        '
-        'GridControl3
-        '
-        Me.GridControl3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl3.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl3.MainView = Me.GridView3
-        Me.GridControl3.MenuManager = Me.RibbonControl1
-        Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(711, 350)
-        Me.GridControl3.TabIndex = 1
-        Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
-        '
-        'GridView3
-        '
-        Me.GridView3.GridControl = Me.GridControl3
-        Me.GridView3.Name = "GridView3"
-        '
-        'XtraTabPageSQL3
-        '
-        Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4)
-        Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3"
-        Me.XtraTabPageSQL3.Size = New System.Drawing.Size(711, 350)
-        Me.XtraTabPageSQL3.Text = "SQL 3"
-        '
-        'GridControl4
-        '
-        Me.GridControl4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl4.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl4.MainView = Me.GridView4
-        Me.GridControl4.MenuManager = Me.RibbonControl1
-        Me.GridControl4.Name = "GridControl4"
-        Me.GridControl4.Size = New System.Drawing.Size(711, 350)
-        Me.GridControl4.TabIndex = 1
-        Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
-        '
-        'GridView4
-        '
-        Me.GridView4.GridControl = Me.GridControl4
-        Me.GridView4.Name = "GridView4"
-        '
-        'XtraTabPageSQL4
-        '
-        Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1)
-        Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4"
-        Me.XtraTabPageSQL4.Size = New System.Drawing.Size(711, 350)
-        Me.XtraTabPageSQL4.Text = "SQL 4"
-        '
-        'SplitContainerControl2
-        '
-        Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
-        Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerControl2.Name = "SplitContainerControl2"
-        Me.SplitContainerControl2.Panel1.Controls.Add(Me.SplitContainerControl1)
-        Me.SplitContainerControl2.Panel1.Text = "Panel1"
-        Me.SplitContainerControl2.Panel2.Controls.Add(Me.XtraTabControl1)
-        Me.SplitContainerControl2.Panel2.Text = "Panel2"
-        Me.SplitContainerControl2.Size = New System.Drawing.Size(1377, 564)
-        Me.SplitContainerControl2.SplitterPosition = 958
-        Me.SplitContainerControl2.TabIndex = 10
-        '
-        'XtraTabControl2
-        '
-        Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl2.Location = New System.Drawing.Point(0, 159)
-        Me.XtraTabControl2.Name = "XtraTabControl2"
-        Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
-        Me.XtraTabControl2.Size = New System.Drawing.Size(1379, 590)
-        Me.XtraTabControl2.TabIndex = 11
-        Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4})
-        '
-        'XtraTabPage3
-        '
-        Me.XtraTabPage3.Controls.Add(Me.SplitContainerControl2)
-        Me.XtraTabPage3.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.enablesearch
-        Me.XtraTabPage3.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
-        Me.XtraTabPage3.Name = "XtraTabPage3"
-        Me.XtraTabPage3.Size = New System.Drawing.Size(1377, 564)
-        Me.XtraTabPage3.Text = "Auswahl Sicht"
-        '
-        'XtraTabPage4
-        '
-        Me.XtraTabPage4.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.bo_dashboard
-        Me.XtraTabPage4.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
-        Me.XtraTabPage4.Name = "XtraTabPage4"
-        Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 564)
-        Me.XtraTabPage4.Text = "Dashboard"
-        '
-        'XtraSaveFileDialog1
-        '
-        Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
-        '
-        'BarStaticItem1
-        '
-        Me.BarStaticItem1.Id = 6
-        Me.BarStaticItem1.ImageOptions.Image = CType(resources.GetObject("BarStaticItem1.ImageOptions.Image"), System.Drawing.Image)
-        Me.BarStaticItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.LargeImage"), System.Drawing.Image)
-        Me.BarStaticItem1.Name = "BarStaticItem1"
-        '
-        'frmMonitor
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1379, 771)
-        Me.Controls.Add(Me.XtraTabControl2)
-        Me.Controls.Add(Me.RibbonStatusBar1)
-        Me.Controls.Add(Me.RibbonControl1)
-        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line
-        Me.Name = "frmMonitor"
-        Me.Ribbon = Me.RibbonControl1
-        Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "Monitor"
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.LayoutControl1.ResumeLayout(False)
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl1.ResumeLayout(False)
-        Me.XtraTabPageFile1.ResumeLayout(False)
-        Me.XtraTabPageFile2.ResumeLayout(False)
-        Me.XtraTabPageHtml1.ResumeLayout(False)
-        Me.XtraTabPageHtml2.ResumeLayout(False)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerControl1.ResumeLayout(False)
-        CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerControl3.ResumeLayout(False)
-        CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl3.ResumeLayout(False)
-        Me.XtraTabPageSQL1.ResumeLayout(False)
-        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageSQL2.ResumeLayout(False)
-        CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageSQL3.ResumeLayout(False)
-        CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageSQL4.ResumeLayout(False)
-        CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerControl2.ResumeLayout(False)
-        CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl2.ResumeLayout(False)
-        Me.XtraTabPage3.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
-    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
-    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
-    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents cmbSearchKeys As DevExpress.XtraEditors.ComboBoxEdit
-    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
-    Friend WithEvents LayoutItemSearchValue_Text As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents buttonSearch As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit
-    Friend WithEvents TreeListResults As DevExpress.XtraTreeList.TreeList
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPageFile1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents XtraTabPageFile2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents XtraTabPageHtml1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents XtraTabPageHtml2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPageSQL1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageSQL2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageSQL3 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControl4 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView4 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageSQL4 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer
-    Friend WithEvents DocumentViewer2 As Controls.DocumentViewer.DocumentViewer
-    Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl
-    Friend WithEvents RichEditControl2 As DevExpress.XtraRichEdit.RichEditControl
-    Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit
-    Friend WithEvents LayoutItemSearchValue_Date As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
-    Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu
-    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog
-    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
-End Class

Monitor/frmMonitor.resx

@@ -1,199 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>183, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="BarButtonItem3.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAFRyZWVWaWV3O1RyZWU7X0Ij1wAA
-        AY1JREFUOE9j+P//PwMQMJ6fZr/v/FS7/+cm2/4/O9Hm/5kJ1v9P9ljsB8oxgdTgwhCCgYH57ETr/78e
-        L/z/4/6c/99vT/3/7Vrf/33FmiBJVnRNyBhCMDCwnOwy///1au//z6cq/388Wvz/47HK/ztzVEGSbOia
-        kDGEANpytNHw/4djFf/f7s74/3pbIhAn/9+apgySZEfXhIwhBNAFu0q09+zIVvm/LV35/5ZUxf+bkxX+
-        r4mV3wuUYwNiRiBmQsIgPooBIAFWIOYorJ0BEuACYk4gZj831W4/vsCFOwWGC2pn/s+vns6QVz0NqIZw
-        4GIYkF0x5X9m2aT/GaUT/6cW9v0nFLgYBqQBNaUU9DIk53WDXEAwcDEMiM/p+B+X1c4Qm9EKMgBf4GL3
-        QlRq8/+I5EaGsKR6kAGgwAXFAihAuYGYB0qzAzH2QAyJr/0fHFvDEBhTBVRDOIljGOAfWfHfN6KMwSe8
-        FGQA6bHgFVJ83jO46L9HUOF/t4A80mMBGYNsITkWkDEQEIiF/wwAEzc5In1OcF0AAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BarButtonItem3.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAFRyZWVWaWV3O1RyZWU7X0Ij1wAA
-        BelJREFUWEet1glQ1FUcB/C1Q8vK0QSbEjDNctKMQ2C5PSYFvEUERRDFBA/EkpyJtLzI1Bx1UlEDtcMj
-        QxGVPECQKxUsCW/Lq2usGcBluXGab9/ff/+7LOvmsNqb+cz77/73vfd7b/h/+WvU1o7aX0gNLri8bTgu
-        bx9hINdprV1KFcFqPxw/bgos4tiO9JhMBMAmxvY4dTyzJgD/1P3aBrdNilf4yiyd6QmZyNoiD2JsUkCn
-        Uyv9cO/vfDT/cbC1340yW7n3Vy4KlnjJLHb0JLWztsiDGJtU37lgmTcab+5C442v0HRrj4XdaLq5m/el
-        34WGX3bQduR+4CGzvEDt6aELkOq75i30RN3Fdag9twR15StRf3Et6q9sQsPVLbQZ9Zc2oP7CGtSVLUdt
-        aRL7ZBxPdJNZXqRHLsA+e4Eb6n5agZrT81Fzir6fRwkGRXOhL4qHvnAOzYa+YDZqS5LwXbyzzNKdOtBD
-        FaA8AdTtaIILas8u4uSzDPJnUhz0J2NVM6DPm47qXBGDmuJ3cCjuDZnFkR69gMMz+3Pnidwxd1/8rmoe
-        d86TKEzgzuNRU8BT4O71+VLgLGTE9P1fTkD+CLtsGuFYuG1MD4i00Qapo8yMdDL5XIxwwvqhDsUca0/K
-        U0AP1SREnqLnSXbjRD3oZTHAd4KU2tNML7WX33SjZ0kKkHn+izzqxuv7CpUv5IZMIkcpxZh4DY6SAp42
-        I8n3DD1HsriQ78zJfWG8L+SzzCknbvW05Mv7eA+ZKgWYfyfFdihLCSw4vyUI57cGoZzkunyzpUCUpwwj
-        6QNRsv6tIo6VAmWOtkWn9+BoeA+Jll4Zw6ZEd+HHPq1iuS3yFmtlM6botrqgJa/BU6AdNEWjHRyljGFT
-        ojt/qRej+ySaf2M0mxxAk0quWz5n4N6dE8hJcpcCTNFtdUFL2kFR0A6Mkp5jlKZEd85CDzRc/wKNjOXG
-        GxLhYqfqa4PrBg3XUtFwZSuOJrpKAabotrqgJS4Oz4GRLMLAIyACbj6hOPaeG2rLPkHNmSTU/rCUKbqa
-        Ub2ekb2RMb4BdefX8j6TtfRD6IuZLSWLcMiQnKbotrqgJY+ASHgGTNYItSnRnZXgjJqzi1GdPwfVJ2fR
-        TIPcOOhyY6E7MYPehi5HxDDQEpERqySnKbisLmhJduzhHyE9xyhPgZKcmUxOffECTj4duuwYmgbd8amq
-        aOiOReHuURGJu0cmozpvDtKnvS4FmKLb6oKW3P0j4O43if0kjmkpYB9juDp/LncdT4ZT0OXxJHLZn4hF
-        NelyeArZPIFsQ5F7IvvYfgID/CaCNO6kDFKje92w7oUpwY5ICXbAxiBHcsCGQDPDWnwmhjpg5aCXWke3
-        tQUtDfBlAb7h7MM5RmkSIpJoXcmBJLKNEW30ipneKvmdPAGSiPIoty0H3HzC4OYbxr5VAXIKkmidqItK
-        /pcIKUyedSG7NZLvJb7l+NuehFKAq0+YxtU7TBnDpvwdnF7lV1D6qT9K+TJbQnJdYmk1rfIj6f1RmOxj
-        exS7eE+Ai1co+1BlDJsSxUfm97Mat4pac7dMDsYrT4FtUczF4czFpQi1KVGcldAXzXdy0HR7n5l0K75V
-        NP95DBkzXpMCbItiF+14kMaZ1KZEcUZcHyX1Gi6noPHn7aptaLxm0CD91TS+0KYZkrFsDfZG95YCbIvi
-        N7UhcPYMgbHv7zkW/dxGIn3qq9CfYhDl8X2xiFF7ZhEjORl151Ypas4u5/0kJSvuMpyq82Zj58ReUoBt
-        UWxObUoU747oxcnjUZUVjqrDEyjUIHM8KjNDUHlAjENlhhjDZJyGHSEvyyS2BZE5ZZCahF+G9mTkTufk
-        Y1G5fwyNRuW+UaqRqEwfjoq9IhgV3wSh6tBEvmc6ySS2RbE5ZZBagLy8VmVFcNeTOLkIR+VBnkZmGCoy
-        eRIHQlHBU6jYbzQOm5maHPvIJ6BE8UeedoXJXvZI9rLDcq092WGZOc8WS4WHHd537Wp7FJtTmzGKrb5F
-        q6y9RcvvZHEJIj7KGs2/P84ZFqX5IpcAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BarStaticItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAMdEVYdFRpdGxlAEFib3V0O1VEZxsAAADVSURBVDhPpdPNCcJAEIbhnBTFUhSEgNiETdmAnvwB
-        ISkjB/GmLQgqYhWKosb3C0Z2lzUh5PAcnJn9THQnGI0TV4glTnjhhiNWGMCaNz80oYNvpAUitGAFNLCB
-        74DPFm38AubwDRaJkQV0oXf1DeVf4OvJUM2pU6wiVsDeKZrKnuCs5t0pmsoCHnUDUjXrvMJFzYlTNJUF
-        RGrqb3waRVNRgG5smA/MvsUqtBvWVV7DN+izg3WVRQuywL9bKeppmTrIzpkBuR60G1ph/TZXHKBH7sOY
-        TYIP2fNBkIMCKs8AAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BarStaticItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAMdEVYdFRpdGxlAEFib3V0O1VEZxsAAAHFSURBVFhHxda9SkNBEIbh3ERUECxEUMErESwtxM5K
-        hICVIFZGvAbBwlIQhAiiWNkoeAla2FgKBv8QFH+O74STcHZm2GSDORZPsZOZ+ZYTTVLJsuxfucUyucUy
-        ucUymcJc/SxmDGs4wR2e8YhbHKGGYXizLTrPFLwhSPA+vpB18YFdDMHs0nmm4Awt4hVeWMwDZhHs03mm
-        oAbW4S3vlTyxJXR26jxTKDTLoLc0lVyi8yR0ninkjRN4g7ewH/J2VGHyTEGa0IC3SGv3e69pOzB5pkDT
-        JH7yoW5SLiD/HVWdFxwETZuFob+2rPOCg6DpUg3FpDwBcajzgoOgST7dvGFP6gWudV5wEM5QTOoFmjov
-        OAhnKGYgFxjkW3Cj84KDoOlKDcWkXqCh84KDoGlbDcWkXqCm84KDoGlGDcWkXOATIzovOAiaxGk+1E3K
-        BfZg8kxBmjAN+ej0FvXjCaMweaYgTTn5eeUtSyXfK/No7dV5ptBuzG3BW9orCV9FZ6fOM4Vic24F7/AC
-        Yl6wgGCfzjMFPZCbwjF6+Zr+xgHkh6zZpfNMwRsqkD/OOi7QRDv0HufYwDi82RadZwplc4tlcotlcovl
-        ySq/BghXOy4DehcAAAAASUVORK5CYII=
-</value>
-  </data>
-  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>335, 17</value>
-  </metadata>
-</root>

Monitor/frmMonitor.vb

@@ -1,583 +0,0 @@
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Views.Grid
-Imports DevExpress.XtraTreeList.Nodes
-Imports DigitalData.Controls.SQLConfig
-Imports DigitalData.GUIs.Common
-Imports DigitalData.Modules.Config
-Imports DigitalData.Modules.Database
-Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Language.Utils
-Imports DevExpress.XtraTab
-Imports DigitalData.Controls.DocumentViewer
-Imports DevExpress.XtraEditors
-Imports DevExpress.XtraRichEdit
-Imports DevExpress.XtraTreeList.Columns
-Imports DevExpress.XtraEditors.Repository
-Imports DevExpress.Utils
-Imports DevExpress.XtraEditors.Controls
-
-Public Class frmMonitor
-    Public Property LogConfig As LogConfig
-    Public Property ConfigManager As ConfigManager(Of Config)
-    Public Property Database As MSSQLServer
-
-    Private ReadOnly SearchKeys As New List(Of SearchKey)
-
-    Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"}
-    Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"}
-    Private ReadOnly HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"}
-    Private ReadOnly DataColumns As List(Of String) = SQLColumns.
-        Concat(DocViewColumns).
-        Concat(HtmlViewColumns).
-        ToList
-
-    Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"}
-
-
-
-
-    Private SQLResultGrids As List(Of GridControl)
-    Private SQLResultTabs As List(Of XtraTabPage)
-    Private ActiveSQLResultGrid As GridControl
-
-    Private FileResultViewers As List(Of DocumentViewer)
-    Private FileResultTabs As List(Of XtraTabPage)
-
-    Private HtmlResultViewers As List(Of RichEditControl)
-    Private HtmlResultTabs As List(Of XtraTabPage)
-
-    Private Const STATE_SUCCESS As String = "SUCCESS"
-    Private Const STATE_FAILURE As String = "FAILURE"
-    Private Const STATE_WARNING As String = "WARNING"
-    Private Const STATE_WAITING As String = "WAITING"
-    Private Const STATE_HIGHLIGHT As String = "HIGHLIGHT"
-
-
-    Private Enum NodeImage
-        [Default] = 0
-        SQL = 1
-        File = 2
-        Mail = 3
-        Success = 4
-        Failure = 5
-        Warning = 6
-        Waiting = 7
-        User = 8
-        Highlight = 9
-    End Enum
-
-    Private ReadOnly StateIcons As New Dictionary(Of String, NodeImage) From {
-        {STATE_SUCCESS, NodeImage.Success},
-        {STATE_FAILURE, NodeImage.Failure}
-    }
-
-    Private GridBuilder As GridBuilder
-
-    Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor")
-            ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.UserAppDataPath, Application.StartupPath)
-            InitializeBaseForm(LogConfig)
-
-            If ConfigManager.Config.ConnectionString = String.Empty Then
-                Dim oSQLConfig As New frmSQLConfig(LogConfig)
-                If oSQLConfig.ShowDialog() = DialogResult.OK Then
-                    ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString
-                    ConfigManager.Save()
-                    Application.Restart()
-                Else
-                    ShowErrorMessage("No Database configured. Application will close!")
-                    Application.Exit()
-
-                End If
-            End If
-            If ConfigManager.Config.IDB_Praefix <> "" Then
-                If ConfigManager.Config.SearchKeySQL.Contains("@IDB_PRAEFIX") Then
-                    Dim oREPLACE = ConfigManager.Config.SearchKeySQL.Replace("@IDB_PRAEFIX", ConfigManager.Config.IDB_Praefix)
-                    ConfigManager.Config.SearchKeySQL = oREPLACE
-                    ConfigManager.Save()
-                End If
-                Console.WriteLine(ConfigManager.Config.SearchKeySQL)
-
-            End If
-                Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
-            Database = New MSSQLServer(LogConfig, oConnectionString)
-            GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4})
-            GridBuilder.
-                WithDefaults().
-                WithDefaults(TreeListResults).
-                WithReadOnlyOptions().
-                WithReadOnlyOptions(TreeListResults)
-
-            SQLResultGrids = New List(Of GridControl) From {GridControl1, GridControl2, GridControl3, GridControl4}
-            SQLResultTabs = New List(Of XtraTabPage) From {XtraTabPageSQL1, XtraTabPageSQL2, XtraTabPageSQL3, XtraTabPageSQL4}
-
-            FileResultViewers = New List(Of DocumentViewer) From {DocumentViewer1, DocumentViewer2}
-            FileResultTabs = New List(Of XtraTabPage) From {XtraTabPageFile1, XtraTabPageFile2}
-
-            HtmlResultViewers = New List(Of RichEditControl) From {RichEditControl1, RichEditControl2}
-            HtmlResultTabs = New List(Of XtraTabPage) From {XtraTabPageHtml1, XtraTabPageHtml2}
-
-            LoadSearchKeys()
-
-            Dim oLicense = LoadGDPicture()
-
-            For Each oGrid In SQLResultGrids
-                AddHandler oGrid.Enter, Sub()
-                                            ActiveSQLResultGrid = oGrid
-                                            BarButtonItem2.Enabled = True
-                                        End Sub
-
-                AddHandler oGrid.Leave, Sub()
-                                            ActiveSQLResultGrid = Nothing
-                                            BarButtonItem2.Enabled = False
-                                        End Sub
-            Next
-
-
-            For Each oViewer As DocumentViewer In FileResultViewers
-                oViewer.Init(LogConfig, oLicense)
-            Next
-            SplitContainerControl3.Collapsed = True
-            SplitContainerControl2.Collapsed = True
-        Catch ex As Exception
-            ShowErrorMessage(ex)
-        End Try
-    End Sub
-
-    Private Function LoadGDPicture() As String
-        Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
-        Return Database.GetScalarValue(oSQL)
-    End Function
-
-    Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick
-        LoadData()
-    End Sub
-
-    Private Function LoadData() As Boolean
-        Try
-
-
-            Dim oSQL As String = $"EXEC [{ConfigManager.Config.IDB_Praefix}].[dbo].[PRDD_MONITORING_GET_TREEVIEW_RESULT] '{cmbSearchKeys.EditValue}','{TextEdit1.EditValue.ToString}',1"
-            Dim oTable As DataTable = Database.GetDatatable(oSQL)
-
-            TreeListResults.DataSource = oTable
-            TreeListResults.PopulateColumns()
-
-            InitTreeList()
-
-            ' Show all columns in DisplayColumns List
-            For Each oColumn In TreeListResults.Columns
-                oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName)
-                If oColumn.FieldName = "ADDED_WHEN" Then
-                    oColumn.Format.FormatType = FormatType.DateTime
-                    oColumn.Format.FormatString = "dd.MM.yyyy  HH:MM:ss"
-                End If
-
-            Next
-            'Dim edit As New RepositoryItemDateEdit()
-            'TreeListResults.Columns("ADDED_WHEN").ColumnEdit = edit
-            'edit.Mask.EditMask = "g"
-            'edit.Mask.UseMaskAsDisplayFormat = True
-            Dim oStateColumn As TreeListColumn = TreeListResults.Columns.Item("STATE")
-
-            For Each oNode As TreeListNode In TreeListResults.Nodes
-                ExpandNodes(oNode, Function(n)
-                                       Dim oObjectValue = n.GetValue(oStateColumn)
-                                       Dim oValue As String = NotNull(oObjectValue, String.Empty)
-                                       Return oValue IsNot Nothing AndAlso (oValue = STATE_WARNING Or oValue = STATE_FAILURE)
-                                   End Function)
-            Next
-            Return True
-        Catch ex As Exception
-            ShowErrorMessage(ex)
-            Return False
-        End Try
-    End Function
-
-    Private Sub LoadSearchKeys()
-        Try
-            Dim oSQL = ConfigManager.Config.SearchKeySQL
-            Dim oTable = Database.GetDatatable(oSQL)
-
-            For Each oRow As DataRow In oTable.Rows
-                SearchKeys.Add(New SearchKey With {
-                    .Id = CInt(oRow.Item(0)),
-                    .Title = oRow.Item(1).ToString,
-                    .TypeName = "Varchar"'oRow.Item(2).ToString
-                })
-            Next
-
-            cmbSearchKeys.Properties.Items.Clear()
-            cmbSearchKeys.Properties.Items.AddRange(SearchKeys)
-        Catch ex As Exception
-            ShowErrorMessage(ex)
-        End Try
-    End Sub
-
-    Private Sub InitTreeList()
-        TreeListResults.KeyFieldName = "GUID"
-        TreeListResults.ParentFieldName = "PARENT_ID"
-
-        Dim oStateEdit As New RepositoryItemImageComboBox With {
-            .SmallImages = SvgImageCollection1,
-            .GlyphAlignment = HorzAlignment.Near
-        }
-        oStateEdit.Buttons.Clear()
-        oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From {
-            New ImageComboBoxItem("Success", "SUCCESS", NodeImage.Success),
-            New ImageComboBoxItem("Failure", "FAILURE", NodeImage.Failure),
-            New ImageComboBoxItem("Warning", "WARNING", NodeImage.Warning),
-            New ImageComboBoxItem("Waiting", "WAITING", NodeImage.Waiting),
-            New ImageComboBoxItem("Default", "DEFAULT", NodeImage.Default),
-            New ImageComboBoxItem("User", "USER", NodeImage.User),
-            New ImageComboBoxItem("Highlight", "HIGHLIGHT", NodeImage.Highlight)
-        })
-
-        Dim oIconEdit As New RepositoryItemImageComboBox With {
-            .SmallImages = SvgImageCollection1,
-            .GlyphAlignment = HorzAlignment.Near
-        }
-        oStateEdit.Buttons.Clear()
-        oStateEdit.Items.AddRange(New List(Of ImageComboBoxItem) From {
-            New ImageComboBoxItem("Email", "MAIL", NodeImage.Mail),
-            New ImageComboBoxItem("SQL", "SQL", NodeImage.SQL),
-            New ImageComboBoxItem("File", "FILE", NodeImage.File)
-        })
-
-        Dim oColumn1 = TreeListResults.Columns.Item("COLUMN1")
-        Dim oStateColumn = TreeListResults.Columns.Item("STATE")
-        Dim oIconColumn = TreeListResults.Columns.Item("ICON")
-
-        oColumn1.VisibleIndex = 0
-        oStateColumn.VisibleIndex = 1
-        oIconColumn.VisibleIndex = 2
-
-        With oStateColumn
-            .ColumnEdit = oStateEdit
-            .MaxWidth = 25
-            .MinWidth = 25
-            .Caption = " "
-            .ImageOptions.Image = SvgImageCollection1.GetImage(NodeImage.Success)
-        End With
-
-        With oIconColumn
-            .ColumnEdit = oStateEdit
-            .MaxWidth = 25
-            .MinWidth = 25
-            .Caption = " "
-            .ImageOptions.Image = SvgImageCollection1.GetImage(NodeImage.SQL)
-        End With
-
-    End Sub
-
-    Private Sub cmbSearchKeys_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbSearchKeys.SelectedValueChanged
-        Dim oItem As SearchKey = CType(cmbSearchKeys.SelectedItem, SearchKey)
-
-        Select Case oItem.TypeName
-            Case "VARCHAR"
-                LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
-                LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
-                TextEdit1.EditValue = String.Empty
-            Case "DATE"
-                LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
-                LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
-
-            Case Else
-                LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
-                LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
-                BarStaticItem1.Caption = "oItem.TypeName=" + oItem.TypeName
-
-        End Select
-    End Sub
-
-    Private Sub TreeListResults_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListResults.FocusedNodeChanged
-        If e.Node Is Nothing Then
-            Exit Sub
-        End If
-
-        Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns)
-
-        Dim oSQLCommands = oValues.
-            Where(Function(v) v.Key.StartsWith("SELECT")).
-            Where(Function(v) v.Value IsNot Nothing).
-            ToDictionary(Function(v) v.Key, Function(v) v.Value)
-
-        Dim oFilePaths = oValues.
-            Where(Function(v) v.Key.StartsWith("DOCVIEW")).
-            Where(Function(v) v.Value IsNot Nothing).
-            ToDictionary(Function(v) v.Key, Function(v) v.Value)
-
-        Dim oHtmlDocuments = oValues.
-            Where(Function(v) v.Key.StartsWith("HTML")).
-            Where(Function(v) v.Value IsNot Nothing).
-            ToDictionary(Function(v) v.Key, Function(v) v.Value)
-
-        Dim oAllTabs = SQLResultTabs.
-            Concat(FileResultTabs).
-            Concat(HtmlResultTabs)
-        For Each oTabPage In oAllTabs
-            oTabPage.PageVisible = False
-        Next
-
-        SplitContainerControl3.Collapsed = oSQLCommands.Count = 0
-        SplitContainerControl2.Collapsed = (oFilePaths.Count + oHtmlDocuments.Count) = 0
-
-        For Each oSQLCommand As KeyValuePair(Of String, String) In oSQLCommands
-            Try
-                Dim oExtracted = ExtractTitle(oSQLCommand.Value)
-                Dim oCommand = oExtracted.Item1
-                Dim oTitle = oExtracted.Item2
-
-                Dim oTable As DataTable = Database.GetDatatable(oCommand)
-
-                If oTable Is Nothing Then
-                    Continue For
-                End If
-
-                Dim oGridIndex = Integer.Parse(oSQLCommand.Key.Last()) - 1
-                Dim oGridControl As GridControl = SQLResultGrids.Item(oGridIndex)
-
-                FillResultGrid(oGridControl, oTable, oTitle)
-            Catch ex As Exception
-                Logger.Error(ex)
-                Continue For
-            End Try
-        Next
-
-        For Each oFile As KeyValuePair(Of String, String) In oFilePaths
-            Try
-                Dim oExtracted = ExtractTitle(oFile.Value)
-                Dim oPath = oExtracted.Item1
-                Dim oTitle = oExtracted.Item2
-
-                If oPath Is Nothing Then
-                    Continue For
-                End If
-
-                If Not IO.File.Exists(oPath) Then
-                    Continue For
-                End If
-
-                Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1
-                Dim oViewer As DocumentViewer = FileResultViewers.Item(oViewerIndex)
-
-                FillResultViewer(oViewer, oPath, oTitle)
-            Catch ex As Exception
-                Logger.Error(ex)
-                Continue For
-            End Try
-        Next
-
-        For Each oFile As KeyValuePair(Of String, String) In oHtmlDocuments
-            Try
-                Dim oExtracted = ExtractTitle(oFile.Value)
-                Dim oHtml = oExtracted.Item1
-                Dim oTitle = oExtracted.Item2
-
-                If oHtml Is Nothing Then
-                    Continue For
-                End If
-
-                Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1
-                Dim oViewer As RichEditControl = HtmlResultViewers.Item(oViewerIndex)
-
-                FillResultHtmlViewer(oViewer, oHtml, oTitle)
-            Catch ex As Exception
-                Logger.Error(ex)
-                Continue For
-            End Try
-        Next
-    End Sub
-
-    Private Function ExtractTitle(Value As String) As Tuple(Of String, String)
-        If Value.Contains("|"c) Then
-            Dim oSplit = Value.Split("|"c).ToList
-            Dim oValue = oSplit.First()
-            Dim oTitle = oSplit.Item(1)
-
-            Return New Tuple(Of String, String)(oValue, oTitle)
-        End If
-
-        Return New Tuple(Of String, String)(Value, Nothing)
-    End Function
-
-    Private Sub ExpandNodes(RootNode As TreeListNode, Condition As Predicate(Of TreeListNode))
-        For Each oNode As TreeListNode In RootNode.Nodes
-            ExpandNodes(oNode, Condition)
-
-            If Condition(oNode) = True Then
-                oNode.Expand()
-                ExpandParentNode(oNode)
-            End If
-        Next
-    End Sub
-
-    Private Sub ExpandParentNode(ChildNode As TreeListNode)
-        If ChildNode.ParentNode IsNot Nothing Then
-            ChildNode.ParentNode.Expand()
-            ExpandParentNode(ChildNode.ParentNode)
-        End If
-    End Sub
-
-    Private Sub FillResultHtmlViewer(RichEditControl As RichEditControl, Html As String, Title As String)
-        RichEditControl.HtmlText = Html
-
-        Dim oTabPage = DirectCast(RichEditControl.Parent, XtraTabPage)
-        oTabPage.PageVisible = True
-        oTabPage.Text = NotNull(Title, oTabPage.Text)
-
-        XtraTabControl1.SelectedTabPage = oTabPage
-    End Sub
-
-    Private Sub FillResultViewer(DocumentViewer As DocumentViewer, Path As String, Title As String)
-        DocumentViewer.LoadFile(Path)
-
-        Dim oTabPage = DirectCast(DocumentViewer.Parent, XtraTabPage)
-        oTabPage.PageVisible = True
-        oTabPage.Text = NotNull(Title, oTabPage.Text)
-
-        XtraTabControl1.SelectedTabPage = oTabPage
-    End Sub
-
-    Private Sub FillResultGrid(GridControl As GridControl, Table As DataTable, Title As String)
-        GridControl.DataSource = Table
-
-        Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage)
-        oTabPage.PageVisible = True
-        oTabPage.Text = NotNull(Title, oTabPage.Text)
-
-        XtraTabControl3.SelectedTabPage = oTabPage
-    End Sub
-
-    Private Function GetValuesFromNode(Node As TreeListNode, ColumnNames As List(Of String)) As Dictionary(Of String, String)
-        Dim oValues As New Dictionary(Of String, String)
-
-        For Each oColumnName In ColumnNames
-            Dim oValue = MaybeGetValueForColumn(Node, oColumnName)
-            oValues.Add(oColumnName, oValue)
-        Next
-
-        Return oValues
-    End Function
-
-    Private Function MaybeGetValueForColumn(Node As TreeListNode, FieldName As String) As String
-        Dim oColumn = TreeListResults.Columns.Item(FieldName)
-
-        If oColumn Is Nothing Then
-            Return Nothing
-        End If
-
-        Dim oValue = Node.GetValue(oColumn)?.ToString
-
-        If oValue Is String.Empty Then
-            Return Nothing
-        Else
-            Return oValue
-        End If
-    End Function
-
-    Private Sub TreeListResults_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs) Handles TreeListResults.CustomDrawNodeCell
-        Dim oColumn = TreeListResults.Columns.Item("STATE")
-        Dim oState = NotNull(e.Node.GetValue(oColumn), Nothing)
-
-        If oState Is Nothing Then
-            Exit Sub
-        End If
-
-        Dim oColor As Color = Nothing
-
-        Select Case oState.ToString
-            Case STATE_SUCCESS
-                oColor = Color.LightGreen
-            Case STATE_FAILURE
-                oColor = Color.LightCoral
-            Case STATE_WARNING
-                oColor = Color.Yellow
-            Case STATE_WAITING
-                oColor = Color.LightSkyBlue
-        End Select
-
-        e.Appearance.BackColor = oColor
-        e.Appearance.Options.UseBackColor = True
-        e.Handled = False
-    End Sub
-
-    Private Sub TreeListResults_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeListResults.GetStateImage
-        'Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns)
-        'Dim oSQLCommands = oValues.
-        '    Where(Function(v) v.Key.StartsWith("SELECT")).
-        '    Where(Function(v) v.Value IsNot Nothing).
-        '    Count()
-
-        'Dim oFilePaths = oValues.
-        '    Where(Function(v) v.Key.StartsWith("DOCVIEW")).
-        '    Where(Function(v) v.Value IsNot Nothing).
-        '    Count()
-
-        'Dim oHtmlDocuments = oValues.
-        '    Where(Function(v) v.Key.StartsWith("HTML")).
-        '    Where(Function(v) v.Value IsNot Nothing).
-        '    Count()
-
-        'Dim oIconColumn = TreeListResults.Columns.Item("ICON")
-        'Dim oIcon = NotNull(e.Node.GetValue(oIconColumn), Nothing)
-        'Dim oStateColumn = TreeListResults.Columns.Item("STATE")
-        'Dim oState = NotNull(e.Node.GetValue(oStateColumn), Nothing)
-
-        'If oSQLCommands > 0 Then
-        '    e.NodeImageIndex = NodeImage.SQL
-        'ElseIf oFilePaths > 0 Then
-        '    e.NodeImageIndex = NodeImage.File
-        'ElseIf oHtmlDocuments > 0 Then
-        '    e.NodeImageIndex = NodeImage.Mail
-        'Else
-        '    If oState IsNot Nothing AndAlso StateIcons.ContainsKey(oState) Then
-        '        Dim oIconIndex = StateIcons.Item(oState)
-        '        e.NodeImageIndex = oIconIndex
-        '    Else
-        '        e.NodeImageIndex = NodeImage.Default
-        '    End If
-        'End If
-    End Sub
-
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Dim oSQLConfig As New frmSQLConfig(LogConfig)
-        If oSQLConfig.ShowDialog() = DialogResult.OK Then
-            ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString
-            ConfigManager.Save()
-
-            Database = New MSSQLServer(LogConfig, oSQLConfig.ConnectionString)
-
-            LoadSearchKeys()
-        End If
-    End Sub
-
-    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
-        If ActiveSQLResultGrid IsNot Nothing Then
-            XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx"
-
-            If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then
-                ActiveSQLResultGrid.ExportToXlsx(XtraSaveFileDialog1.FileName)
-            End If
-        End If
-    End Sub
-
-    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx"
-
-        If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then
-            TreeListResults.ExportToXlsx(XtraSaveFileDialog1.FileName)
-        End If
-    End Sub
-End Class
-
-Friend Class SearchKey
-    Public Id As Integer
-    Public Title As String
-    Public TypeName As String
-
-    Public Overrides Function ToString() As String
-        Return Title
-    End Function
-End Class