Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Controls.DocumentViewer/DocumentViewer.Designer.vb

@@ -42,24 +42,25 @@ Partial Class DocumentViewer
         Me.buttonPrevPage = New DevExpress.XtraBars.BarButtonItem()
         Me.txtCurrentPage = New DevExpress.XtraBars.BarEditItem()
         Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
+        Me.labelPageCount = New DevExpress.XtraBars.BarStaticItem()
         Me.buttonNextPage = New DevExpress.XtraBars.BarButtonItem()
         Me.buttonLastPage = New DevExpress.XtraBars.BarButtonItem()
         Me.buttonSettings = New DevExpress.XtraBars.BarButtonItem()
-        Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
-        Me.RepositoryItemColorEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemColorEdit()
         Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
         Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
         Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
         Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
         Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
         Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
+        Me.RepositoryItemColorEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemColorEdit()
+        Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
         Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl()
         Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GdViewer
@@ -161,9 +162,9 @@ Partial Class DocumentViewer
         Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
         Me.BarManager1.DockControls.Add(Me.barDockControlRight)
         Me.BarManager1.Form = Me
-        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.buttonPrint, Me.buttonFitPage, Me.buttonFitWidth, Me.buttonZoomIn, Me.buttonZoomOut, Me.buttonRotateRight, Me.buttonRotateLeft, Me.buttonFlipX, Me.buttonFlipY, Me.buttonSettings, Me.buttonPrevPage, Me.buttonNextPage, Me.buttonFirstPage, Me.buttonLastPage, Me.txtCurrentPage, Me.BarStaticItem1})
+        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.buttonPrint, Me.buttonFitPage, Me.buttonFitWidth, Me.buttonZoomIn, Me.buttonZoomOut, Me.buttonRotateRight, Me.buttonRotateLeft, Me.buttonFlipX, Me.buttonFlipY, Me.buttonSettings, Me.buttonPrevPage, Me.buttonNextPage, Me.buttonFirstPage, Me.buttonLastPage, Me.txtCurrentPage, Me.BarStaticItem1, Me.labelPageCount})
         Me.BarManager1.MainMenu = Me.ToolbarDocumentViewer
-        Me.BarManager1.MaxItemId = 24
+        Me.BarManager1.MaxItemId = 25
         Me.BarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemColorEdit1, Me.RepositoryItemComboBox1})
         '
         'ToolbarDocumentViewer
@@ -172,7 +173,7 @@ Partial Class DocumentViewer
         Me.ToolbarDocumentViewer.DockCol = 0
         Me.ToolbarDocumentViewer.DockRow = 0
         Me.ToolbarDocumentViewer.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
-        Me.ToolbarDocumentViewer.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitWidth), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomIn), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomOut), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateLeft), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateRight), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipX), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipY), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFirstPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrevPage), New DevExpress.XtraBars.LinkPersistInfo(Me.txtCurrentPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonNextPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonLastPage), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.buttonSettings, DevExpress.XtraBars.BarItemPaintStyle.Standard)})
+        Me.ToolbarDocumentViewer.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitWidth), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomIn), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomOut), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateLeft), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateRight), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipX), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipY), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFirstPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrevPage), New DevExpress.XtraBars.LinkPersistInfo(Me.txtCurrentPage), New DevExpress.XtraBars.LinkPersistInfo(Me.labelPageCount), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonNextPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonLastPage), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.buttonSettings, DevExpress.XtraBars.BarItemPaintStyle.Standard)})
         Me.ToolbarDocumentViewer.OptionsBar.AllowCollapse = True
         Me.ToolbarDocumentViewer.OptionsBar.AllowQuickCustomization = False
         Me.ToolbarDocumentViewer.OptionsBar.DrawDragBorder = False
@@ -281,6 +282,12 @@ Partial Class DocumentViewer
         Me.RepositoryItemTextEdit2.EditFormat.FormatType = DevExpress.Utils.FormatType.Numeric
         Me.RepositoryItemTextEdit2.Name = "RepositoryItemTextEdit2"
         '
+        'labelPageCount
+        '
+        Me.labelPageCount.Caption = "/ 0"
+        Me.labelPageCount.Id = 24
+        Me.labelPageCount.Name = "labelPageCount"
+        '
         'buttonNextPage
         '
         Me.buttonNextPage.Caption = "Vor"
@@ -305,22 +312,6 @@ Partial Class DocumentViewer
         Me.buttonSettings.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25)
         Me.buttonSettings.Name = "buttonSettings"
         '
-        'RepositoryItemComboBox1
-        '
-        Me.RepositoryItemComboBox1.AutoHeight = False
-        Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.RepositoryItemComboBox1.Items.AddRange(New Object() {"Arrow", "Text"})
-        Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
-        '
-        'RepositoryItemColorEdit1
-        '
-        Me.RepositoryItemColorEdit1.AutoHeight = False
-        Me.RepositoryItemColorEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.RepositoryItemColorEdit1.Name = "RepositoryItemColorEdit1"
-        Me.RepositoryItemColorEdit1.ShowCustomColors = False
-        Me.RepositoryItemColorEdit1.ShowSystemColors = False
-        Me.RepositoryItemColorEdit1.ShowWebColors = False
-        '
         'barDockControlTop
         '
         Me.barDockControlTop.CausesValidation = False
@@ -364,6 +355,22 @@ Partial Class DocumentViewer
         Me.RepositoryItemTextEdit1.AutoHeight = False
         Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1"
         '
+        'RepositoryItemColorEdit1
+        '
+        Me.RepositoryItemColorEdit1.AutoHeight = False
+        Me.RepositoryItemColorEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemColorEdit1.Name = "RepositoryItemColorEdit1"
+        Me.RepositoryItemColorEdit1.ShowCustomColors = False
+        Me.RepositoryItemColorEdit1.ShowSystemColors = False
+        Me.RepositoryItemColorEdit1.ShowWebColors = False
+        '
+        'RepositoryItemComboBox1
+        '
+        Me.RepositoryItemComboBox1.AutoHeight = False
+        Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemComboBox1.Items.AddRange(New Object() {"Arrow", "Text"})
+        Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
+        '
         'SpreadsheetControl1
         '
         Me.SpreadsheetControl1.Location = New System.Drawing.Point(461, 377)
@@ -390,9 +397,9 @@ Partial Class DocumentViewer
         Me.Size = New System.Drawing.Size(1015, 590)
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -429,4 +436,5 @@ Partial Class DocumentViewer
     Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents RepositoryItemColorEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemColorEdit
     Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
+    Friend WithEvents labelPageCount As DevExpress.XtraBars.BarStaticItem
 End Class

Controls.DocumentViewer/DocumentViewer.vb

@@ -8,6 +8,7 @@ Imports GdPicture14
 Imports DevExpress
 Imports DevExpress.Office.Utils
 Imports System.IO
+Imports DevExpress.XtraRichEdit.Commands
 
 Public Class DocumentViewer
     Private Enum ZoomMode
@@ -21,6 +22,13 @@ Public Class DocumentViewer
         ZoomFitHeight
     End Enum
 
+    Private Enum ViewerMode
+        GDPicture
+        RichText
+        Excel
+    End Enum
+
+    Private _ViewerMode As ViewerMode
     Private _currentSearchOccurence As Integer = 0
     Private _toggleGamma As Boolean = True
     Private _licenseKey As String = String.Empty
@@ -41,6 +49,7 @@ Public Class DocumentViewer
         UpdateMainUi()
     End Sub
 
+
     Public Property FileLoaded As Boolean = False
 
     ''' <summary>
@@ -76,16 +85,18 @@ Public Class DocumentViewer
             Exit Sub
         End If
 
+        If FilePath Is Nothing OrElse FilePath.Trim().Length = 0 Then
+            _logger.Warn("FilePath was not provided. File not loaded.")
+            Exit Sub
+        End If
+
         _logger.Info("Loading File {0}", FilePath)
 
-        Dim oFileLoaded = DoLoadFile(FilePath)
+        FileLoaded = DoLoadFile(FilePath)
         _FilePath = FilePath
         _Fileinfo = New FileInfo(FilePath)
 
-        If oFileLoaded = True Then
+        SetViewerMode(_Fileinfo.Extension)
-            FileLoaded = True
-        End If
-
         UpdateMainUi()
     End Sub
 
@@ -101,12 +112,9 @@ Public Class DocumentViewer
 
         _logger.Info("Loading File [{0}]", FileName)
 
-        Dim ofileloaded = DoLoadFile(Stream, oExtension)
+        FileLoaded = DoLoadFile(Stream, oExtension)
-
-        If oFileLoaded = True Then
-            FileLoaded = True
-        End If
 
+        SetViewerMode(oExtension)
         UpdateMainUi()
     End Sub
 
@@ -125,20 +133,32 @@ Public Class DocumentViewer
         Next
         _TempFiles.Clear()
     End Sub
+
+    Private Sub SetViewerMode(Extension As String)
+        Select Case Extension.ToUpper
+            Case ".MSG"
+                _ViewerMode = ViewerMode.RichText
+            Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
+                _ViewerMode = ViewerMode.RichText
+            Case ".XLSX", ".XLS", "CSV"
+                _ViewerMode = ViewerMode.Excel
+            Case Else
+                _ViewerMode = ViewerMode.GDPicture
+        End Select
+    End Sub
+
+
     Private Sub FreeFile()
         Try
             If Len(_FilePath) OrElse _Fileinfo Is Nothing Then
                 Exit Sub
             End If
             Dim oExtension As String = _Fileinfo.Extension.ToUpper
-            Select Case oExtension.ToUpper
+            Select Case _ViewerMode
-                Case ".MSG"
+                Case ViewerMode.RichText
                     RichEditControl1.CreateNewDocument()
 
-                Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
+                Case ViewerMode.Excel
-                    RichEditControl1.CreateNewDocument()
-
-                Case ".XLSX", ".XLS", "CSV"
                     SpreadsheetControl1.CreateNewDocument()
 
                 Case Else
@@ -151,7 +171,7 @@ Public Class DocumentViewer
     End Sub
     Private Function DoLoadFile(FilePath As String) As Boolean
         Try
-            Dim oFileInfo = New IO.FileInfo(FilePath)
+            Dim oFileInfo = New FileInfo(FilePath)
             Dim oExtension As String = oFileInfo.Extension.ToUpper
 
             RichEditControl1.Visible = False
@@ -160,7 +180,7 @@ Public Class DocumentViewer
             SpreadsheetControl1.Visible = False
             SpreadsheetControl1.Dock = DockStyle.None
 
-            ToolbarDocumentViewer.Visible = False
+            'ToolbarDocumentViewer.Visible = False
 
             Select Case oExtension.ToUpper
                 Case ".MSG"
@@ -194,7 +214,7 @@ Public Class DocumentViewer
                     SpreadsheetControl1.Dock = DockStyle.Fill
 
                 Case Else
-                    ToolbarDocumentViewer.Visible = True
+                    'ToolbarDocumentViewer.Visible = True
 
                     GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
                     GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
@@ -219,7 +239,7 @@ Public Class DocumentViewer
             SpreadsheetControl1.Visible = False
             SpreadsheetControl1.Dock = DockStyle.None
 
-            ToolbarDocumentViewer.Visible = False
+            ' ToolbarDocumentViewer.Visible = False
 
             Select Case Extension.ToUpper
                 Case ".MSG"
@@ -241,6 +261,7 @@ Public Class DocumentViewer
                 Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
                     RichEditControl1.LoadDocument(Stream, GetDocumentFormat(Extension))
 
+                    RichEditControl1.ActiveViewType = XtraRichEdit.RichEditViewType.PrintLayout
                     RichEditControl1.Visible = True
                     RichEditControl1.Dock = DockStyle.Fill
 
@@ -254,7 +275,7 @@ Public Class DocumentViewer
                     SpreadsheetControl1.Dock = DockStyle.Fill
 
                 Case Else
-                    ToolbarDocumentViewer.Visible = True
+                    'ToolbarDocumentViewer.Visible = True
 
                     GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
                     GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
@@ -348,6 +369,61 @@ Public Class DocumentViewer
 
     Private Sub UpdateMainUi()
 
+        Select Case _ViewerMode
+            Case ViewerMode.GDPicture
+                buttonPrint.Enabled = True
+                buttonFitWidth.Enabled = True
+                buttonFitPage.Enabled = True
+                buttonZoomIn.Enabled = True
+                buttonZoomOut.Enabled = True
+                buttonRotateLeft.Enabled = True
+                buttonRotateRight.Enabled = True
+                buttonFlipX.Enabled = True
+                buttonFlipY.Enabled = True
+                buttonFirstPage.Enabled = True
+                buttonPrevPage.Enabled = True
+                buttonNextPage.Enabled = True
+                buttonLastPage.Enabled = True
+                buttonSettings.Enabled = True
+                txtCurrentPage.Enabled = True
+
+            Case ViewerMode.RichText
+                buttonFitPage.Enabled = True
+                buttonZoomIn.Enabled = True
+                buttonZoomOut.Enabled = True
+                buttonFitWidth.Enabled = True
+                buttonNextPage.Enabled = True
+                buttonPrevPage.Enabled = True
+
+                buttonPrint.Enabled = False
+                buttonRotateLeft.Enabled = False
+                buttonRotateRight.Enabled = False
+                buttonFlipX.Enabled = False
+                buttonFlipY.Enabled = False
+                buttonFirstPage.Enabled = False
+                buttonLastPage.Enabled = False
+                buttonSettings.Enabled = False
+                txtCurrentPage.Enabled = False
+
+            Case ViewerMode.Excel
+                buttonPrint.Enabled = False
+                buttonFitWidth.Enabled = False
+                buttonFitPage.Enabled = False
+                buttonZoomIn.Enabled = False
+                buttonZoomOut.Enabled = False
+                buttonRotateLeft.Enabled = False
+                buttonRotateRight.Enabled = False
+                buttonFlipX.Enabled = False
+                buttonFlipY.Enabled = False
+                buttonFirstPage.Enabled = False
+                buttonPrevPage.Enabled = False
+                buttonNextPage.Enabled = False
+                buttonLastPage.Enabled = False
+                buttonSettings.Enabled = False
+                txtCurrentPage.Enabled = False
+
+        End Select
+
     End Sub
 
     Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFirstPage.ItemClick
@@ -355,11 +431,21 @@ Public Class DocumentViewer
     End Sub
 
     Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonPrevPage.ItemClick
-        GdViewer.DisplayPreviousPage()
+        If _ViewerMode = ViewerMode.GDPicture Then
+            GdViewer.DisplayPreviousPage()
+        ElseIf _ViewerMode = ViewerMode.RichText Then
+            Dim oCmd As New PreviousPageCommand(RichEditControl1)
+            oCmd.Execute()
+        End If
     End Sub
 
     Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonNextPage.ItemClick
-        GdViewer.DisplayNextPage()
+        If _ViewerMode = ViewerMode.GDPicture Then
+            GdViewer.DisplayNextPage()
+        ElseIf _ViewerMode = ViewerMode.RichText Then
+            Dim oCmd As New NextPageCommand(RichEditControl1)
+            oCmd.Execute()
+        End If
     End Sub
 
     Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonLastPage.ItemClick
@@ -387,15 +473,25 @@ Public Class DocumentViewer
         End If
     End Sub
 
-    Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonZoomOut.ItemClick
+    Private Sub btnZoomOut_Click(sender As Object, e As EventArgs) Handles buttonZoomOut.ItemClick
-        GdViewer.ZoomOUT()
+        If _ViewerMode = ViewerMode.GDPicture Then
+            GdViewer.ZoomOUT()
+        ElseIf _ViewerMode = ViewerMode.RichText Then
+            Dim oCmd As New ZoomOutCommand(RichEditControl1)
+            oCmd.Execute()
+        End If
     End Sub
 
-    Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonZoomIn.ItemClick
+    Private Sub btnZoomIn_Click(sender As Object, e As EventArgs) Handles buttonZoomIn.ItemClick
-        GdViewer.ZoomIN()
+        If _ViewerMode = ViewerMode.GDPicture Then
+            GdViewer.ZoomIN()
+        ElseIf _ViewerMode = ViewerMode.RichText Then
+            Dim oCmd As New ZoomInCommand(RichEditControl1)
+            oCmd.Execute()
+        End If
     End Sub
 
-    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonPrint.ItemClick
+    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles buttonPrint.ItemClick
         If GdViewer.PageCount = 0 Then
             Return
         End If
@@ -403,19 +499,19 @@ Public Class DocumentViewer
         GdViewer.PrintDialog()
     End Sub
 
-    Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonRotateLeft.ItemClick
+    Private Sub btnRotateLeft_Click(sender As Object, e As EventArgs) Handles buttonRotateLeft.ItemClick
         GdViewer.Rotate(RotateFlipType.Rotate270FlipNone)
     End Sub
 
-    Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonRotateRight.ItemClick
+    Private Sub btnRotateRight_Click(sender As Object, e As EventArgs) Handles buttonRotateRight.ItemClick
         GdViewer.Rotate(RotateFlipType.Rotate90FlipNone)
     End Sub
 
-    Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFlipX.ItemClick
+    Private Sub btnFlipX_Click(sender As Object, e As EventArgs) Handles buttonFlipX.ItemClick
         GdViewer.Rotate(RotateFlipType.RotateNoneFlipX)
     End Sub
 
-    Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFlipY.ItemClick
+    Private Sub btnFlipY_Click(sender As Object, e As EventArgs) Handles buttonFlipY.ItemClick
         GdViewer.Rotate(RotateFlipType.RotateNoneFlipY)
     End Sub
 
@@ -442,9 +538,10 @@ Public Class DocumentViewer
     Private Sub UpdateaNavigationToolbar()
         Try
             Dim oCurrentZoom As Double = GdViewer.Zoom
-            Dim oCurrentPage As Integer = GdViewer.CurrentPage()
+            Dim oCurrentPage As Integer = GdViewer.CurrentPage
             Dim oPageCount As Integer = GdViewer.PageCount
-            txtCurrentPage.EditValue = oCurrentPage.ToString()
+            txtCurrentPage.EditValue = oCurrentPage
+            labelPageCount.Caption = $"/ {oPageCount}"
 
             If oCurrentPage = oPageCount Then
                 buttonLastPage.Enabled = False
@@ -468,11 +565,21 @@ Public Class DocumentViewer
     End Sub
 
     Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitWidth.ItemClick
-        GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+        If _ViewerMode = ViewerMode.GDPicture Then
+            GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+        ElseIf _ViewerMode = ViewerMode.RichText Then
+            Dim oCmd As New FitWidthCommand(RichEditControl1)
+            oCmd.Execute()
+        End If
     End Sub
 
     Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitPage.ItemClick
-        GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
+        If _ViewerMode = ViewerMode.GDPicture Then
+            GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
+        ElseIf _ViewerMode = ViewerMode.RichText Then
+            Dim oCmd As New FitToPageCommand(RichEditControl1)
+            oCmd.Execute()
+        End If
     End Sub
 
     Private Sub RichEditControl1_SizeChanged(sender As Object, e As EventArgs) Handles RichEditControl1.SizeChanged

Controls.DocumentViewer/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("DocumentViewer")>
-<Assembly: AssemblyCopyright("Copyright ©  2021")>
+<Assembly: AssemblyCopyright("Copyright © 2021")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.4.4.0")>
+<Assembly: AssemblyVersion("1.6.0.0")>
-<Assembly: AssemblyFileVersion("1.4.4.0")>
+<Assembly: AssemblyFileVersion("1.6.0.0")>

Controls.LookupGrid/LookupControl.vb

@@ -1,137 +0,0 @@
-
-Imports System.ComponentModel
-Imports DevExpress.XtraEditors
-Imports DevExpress.XtraEditors.Controls
-
-Public Class LookupControl
-    <Category("Einstellungen"), Description("Gibt an, ob mehrere Werte auswählbar sind"), DefaultValue(False)>
-    Public Property MultiSelect As Boolean
-    <Category("Einstellungen"), Description("Gibt an, ob neue Werte hinzugefügt werden können"), DefaultValue(False)>
-    Public Property AllowAddNewValues As Boolean
-    <Category("Einstellungen"), Description("Gibt an, ob das Hinzufügen von identischen Werten erlaubt ist"), DefaultValue(False)>
-    Public Property PreventDuplicates As Boolean
-
-
-    Public Property DataSource As DataTable
-
-    Public Property SelectedValues As List(Of String)
-        Get
-            If _selectedValues Is Nothing Then
-                Return New List(Of String)
-            End If
-
-            Return _selectedValues
-        End Get
-        Set(value As List(Of String))
-            _selectedValues = value
-
-            UpdateSelectedValues(value)
-        End Set
-    End Property
-    Private _selectedValues As List(Of String)
-
-    Private _lookupControlMulti As GridLookUpEdit
-    Private _lookupControlSingle As ButtonEdit
-
-    Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
-    Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt"
-    Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt"
-
-    Private Function GetLookupForm() As frmLookupGrid
-        Dim oForm As New frmLookupGrid() With {
-            .MultiSelect = MultiSelect,
-            .AddNewValues = AllowAddNewValues,
-            .PreventDuplicates = PreventDuplicates,
-            .DataSource = DataSource,
-            .SelectedValues = SelectedValues,
-            .StartPosition = Windows.Forms.FormStartPosition.Manual,
-            .Location = PointToScreen(New System.Drawing.Point(Width, 0))
-        }
-
-        Return oForm
-    End Function
-
-    Private Sub Grid_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If MultiSelect = False Then
-            _lookupControlSingle = New ButtonEdit With {
-                .Dock = Windows.Forms.DockStyle.Fill
-            }
-
-            AddHandler _lookupControlSingle.ButtonClick, AddressOf lookupControlSingle_ButtonClick
-
-            Controls.Add(_lookupControlSingle)
-        Else
-            _lookupControlMulti = New GridLookUpEdit With {
-                .Dock = Windows.Forms.DockStyle.Fill
-            }
-
-            With _lookupControlMulti.Properties
-                .View.OptionsBehavior.ReadOnly = True
-                .View.OptionsBehavior.Editable = False
-                .View.OptionsView.ShowColumnHeaders = False
-                .PopupFormSize = New System.Drawing.Size(.PopupFormSize.Width, 100)
-            End With
-
-            _lookupControlMulti.Properties.Buttons.Add(New EditorButton() With {
-                .Kind = ButtonPredefines.Ellipsis,
-                .Tag = TAG_BUTTON_LOOKUP_FORM
-            })
-
-            AddHandler _lookupControlMulti.ButtonClick, AddressOf lookupControlMulti_ButtonClick
-            AddHandler _lookupControlMulti.EditValueChanging, AddressOf lookupControlMulti_EditValueChanging
-
-            Controls.Add(_lookupControlMulti)
-        End If
-
-        UpdateSelectedValues(SelectedValues)
-    End Sub
-
-    Private Sub UpdateSelectedValues(Values As List(Of String))
-        If MultiSelect = True Then
-            _lookupControlMulti.Properties.DataSource = Values
-            _lookupControlMulti.Properties.NullText = IIf(Values.Count = 0, TEXT_NO_RECORDS, String.Format(TEXT_N_RECORDS, Values.Count))
-        Else
-            _lookupControlSingle.Text = Values.FirstOrDefault()
-        End If
-    End Sub
-
-    Private Sub lookupControlMulti_EditValueChanging(sender As Object, e As ChangingEventArgs)
-        e.Cancel = True
-    End Sub
-
-    Private Sub lookupControlMulti_ButtonClick(sender As Object, e As ButtonPressedEventArgs)
-        If e.Button.Tag <> TAG_BUTTON_LOOKUP_FORM Then
-            Exit Sub
-        End If
-
-        Dim oForm As frmLookupGrid = GetLookupForm()
-        Dim oResult = oForm.ShowDialog()
-
-        If oResult = Windows.Forms.DialogResult.OK Then
-            Dim oValues = oForm.SelectedValues
-
-            UpdateSelectedValues(oValues)
-
-            SelectedValues = oValues
-        End If
-
-        oForm.Dispose()
-    End Sub
-
-    Private Sub lookupControlSingle_ButtonClick(sender As Object, e As ButtonPressedEventArgs)
-        Dim oForm As frmLookupGrid = GetLookupForm()
-        Dim oResult = oForm.ShowDialog()
-
-        If oResult = Windows.Forms.DialogResult.OK Then
-            Dim oValues = oForm.SelectedValues
-
-            UpdateSelectedValues(oValues)
-
-            SelectedValues = oValues
-        End If
-
-        oForm.Dispose()
-    End Sub
-End Class
-
-

Controls.LookupGrid/LookupControl.vbproj

@@ -98,23 +98,7 @@
     <Compile Include="frmLookupGrid.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="LookupControl.Designer.vb">
+    <Compile Include="LookupGridLocalizer.vb" />
-      <DependentUpon>LookupControl.vb</DependentUpon>
-    </Compile>
-    <Compile Include="LookupControl.vb">
-      <SubType>UserControl</SubType>
-    </Compile>
-    <Compile Include="LookupControl2.vb">
-      <SubType>Component</SubType>
-    </Compile>
-    <Compile Include="LookupGridHandler.vb" />
-    <Compile Include="LookupGridRegistration.vb" />
-    <Compile Include="LookupGridView.Designer.vb">
-      <DependentUpon>LookupGridView.vb</DependentUpon>
-    </Compile>
-    <Compile Include="LookupGridView.vb">
-      <SubType>Component</SubType>
-    </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -154,12 +138,6 @@
     <EmbeddedResource Include="frmLookupGrid.resx">
       <DependentUpon>frmLookupGrid.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="LookupControl.resx">
-      <DependentUpon>LookupControl.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="LookupControl2.resx">
-      <DependentUpon>LookupControl2.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="LookupControl3.resx">
       <DependentUpon>LookupControl3.vb</DependentUpon>
     </EmbeddedResource>

Controls.LookupGrid/LookupControl.vbproj.bak

@@ -1,180 +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>{3DCD6D1A-C830-4241-B7E4-27430E7EA483}</ProjectGuid>
-    <OutputType>Library</OutputType>
-    <RootNamespace>DigitalData.Controls.LookupGrid</RootNamespace>
-    <AssemblyName>DigitalData.Controls.LookupGrid</AssemblyName>
-    <FileAlignment>512</FileAlignment>
-    <MyType>Windows</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <DebugSymbols>true</DebugSymbols>
-    <DebugType>full</DebugType>
-    <DefineDebug>true</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>DigitalData.Controls.LookupGrid.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <DebugType>pdbonly</DebugType>
-    <DefineDebug>false</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <Optimize>true</Optimize>
-    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>DigitalData.Controls.LookupGrid.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="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a">
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-    </Reference>
-    <Reference Include="DevExpress.Office.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Office.v18.1.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Pdf.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Pdf.v18.1.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Printing.v18.1.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.RichEdit.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.RichEdit.v18.1.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.RichEdit.v18.1.Export, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.RichEdit.v18.1.Export.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraLayout.v18.1.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraPrinting.v18.1.dll</HintPath>
-    </Reference>
-    <Reference Include="System" />
-    <Reference Include="System.Data" />
-    <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.Diagnostics" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Threading.Tasks" />
-  </ItemGroup>
-  <ItemGroup>
-    <Compile Include="frmLookupGrid.Designer.vb">
-      <DependentUpon>frmLookupGrid.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLookupGrid.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="LookupControl.Designer.vb">
-      <DependentUpon>LookupControl.vb</DependentUpon>
-    </Compile>
-    <Compile Include="LookupControl.vb">
-      <SubType>UserControl</SubType>
-    </Compile>
-    <Compile Include="LookupControl2.vb">
-      <SubType>Component</SubType>
-    </Compile>
-    <Compile Include="LookupGridHandler.vb" />
-    <Compile Include="LookupGridRegistration.vb" />
-    <Compile Include="LookupGridView.Designer.vb">
-      <DependentUpon>LookupGridView.vb</DependentUpon>
-    </Compile>
-    <Compile Include="LookupGridView.vb">
-      <SubType>Component</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>
-    <Compile Include="LookupGridControl.Designer.vb">
-      <DependentUpon>LookupGridControl.vb</DependentUpon>
-    </Compile>
-    <Compile Include="LookupGridControl.vb">
-      <SubType>Component</SubType>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
-    <EmbeddedResource Include="frmLookupGrid.resx">
-      <DependentUpon>frmLookupGrid.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="LookupControl.resx">
-      <DependentUpon>LookupControl.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="LookupControl2.resx">
-      <DependentUpon>LookupControl2.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
-    <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>
-  </ItemGroup>
-  <ItemGroup>
-    <Service Include="{94E38DFF-614B-4CBD-B67C-F211BB35CE8B}" />
-  </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-</Project>

Controls.LookupGrid/LookupControl2.vb

@@ -1,272 +0,0 @@
-Imports System.ComponentModel
-Imports System.Drawing
-Imports System.Windows.Forms
-Imports DevExpress.Accessibility
-Imports DevExpress.XtraEditors
-Imports DevExpress.XtraEditors.Drawing
-Imports DevExpress.XtraEditors.Registrator
-Imports DevExpress.XtraEditors.Repository
-Imports DevExpress.XtraEditors.ViewInfo
-Imports DevExpress.XtraEditors.Controls
-
-<ToolboxItem(True)>
-Public Class LookupControl2
-    Inherits GridLookUpEdit
-
-    Public Delegate Sub SelectedValuesChangedHandler(sender As Object, SelectedValues As List(Of String))
-    Public Event SelectedValuesChanged As SelectedValuesChangedHandler
-
-    Public Property AllowAddNewValues As Boolean
-    Public Property PreventDuplicates As Boolean
-    Public Property DataSource As DataTable
-
-    Public Property MultiSelect As Boolean
-        Get
-            Return _Multiselect
-        End Get
-        Set(value As Boolean)
-            SetDropdownButtonEnabled(value)
-            _MultiSelect = value
-        End Set
-    End Property
-
-    Public Property SelectedValues As List(Of String)
-        Get
-            Return _SelectedValues
-        End Get
-        Set(value As List(Of String))
-            UpdateSelectedValues(value)
-        End Set
-    End Property
-
-    Public Overloads Property [ReadOnly] As Boolean
-        Get
-            Return _ReadOnly
-        End Get
-        Set(value As Boolean)
-            SetFormButtonEnabled(Not value)
-            _ReadOnly = value
-        End Set
-    End Property
-
-    Private ReadOnly _LookupFormButton As EditorButton
-
-    Private Const TAG_DROPDOWN = "openDropdown"
-    Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
-
-    Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
-    Private _SelectedValues As New List(Of String)
-    Private _MultiSelect As Boolean
-
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents fProperties As RepositoryItemGridLookUpEdit
-    Friend WithEvents fPropertiesView As DevExpress.XtraGrid.Views.Grid.GridView
-    Private _ReadOnly As Boolean = False
-
-    Shared Sub New()
-        RepositoryItemLookupControl2.RegisterLookupControl2()
-    End Sub
-
-    Public Sub New()
-        MyClass.New(MultiSelect:=False)
-    End Sub
-
-    Public Sub New(MultiSelect As Boolean)
-        _LookupFormButton = New EditorButton() With {
-            .Kind = ButtonPredefines.Search,
-            .Tag = TAG_BUTTON_LOOKUP_FORM,
-            .Width = 20
-        }
-
-        Properties.Buttons.Item(0).Tag = TAG_DROPDOWN
-        Properties.Buttons.AddRange({_LookupFormButton})
-        Properties.NullText = _R.GetString("LookupControl_NoRecords")
-
-        AddHandler ButtonClick, AddressOf HandleButtonClick
-        AddHandler EditValueChanging, AddressOf HandleEditValueChanging
-        AddHandler QueryPopUp, AddressOf HandleQueryPopup
-    End Sub
-
-    Private Sub SetFormButtonEnabled(pVisible As Boolean)
-        Dim oButton As EditorButton = Properties.Buttons.
-            Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM).
-            FirstOrDefault()
-
-        If oButton IsNot Nothing Then
-            oButton.Visible = pVisible
-        End If
-    End Sub
-
-    Private Sub SetDropdownButtonEnabled(pVisible As Boolean)
-        Dim oButton As EditorButton = Properties.Buttons.
-            Where(Function(b) b.Tag = TAG_DROPDOWN).
-            FirstOrDefault()
-
-        If oButton IsNot Nothing Then
-            oButton.Visible = pVisible
-        End If
-    End Sub
-
-    ''' <summary>
-    ''' Prevents popup from opening when multiselect is false
-    ''' </summary>
-    Private Sub HandleQueryPopup(sender As Object, e As CancelEventArgs)
-        If MultiSelect = False Then
-            e.Cancel = True
-        End If
-    End Sub
-
-    ''' <summary>
-    ''' Prevents Editvalue changing when multiselect is true
-    ''' </summary>
-    Private Sub HandleEditValueChanging(sender As Object, e As ChangingEventArgs)
-        If MultiSelect Then
-            e.Cancel = True
-        End If
-    End Sub
-
-    ''' <summary>
-    ''' Handles opening frmLookup when ellipsis button is clicked
-    ''' </summary>
-    Private Sub HandleButtonClick(sender As Object, e As ButtonPressedEventArgs)
-        Select Case e.Button.Tag
-            Case TAG_BUTTON_LOOKUP_FORM
-                Using oForm = GetLookupForm()
-                    Dim oResult = oForm.ShowDialog()
-
-                    If oResult = Windows.Forms.DialogResult.OK Then
-                        Dim oValues = oForm.SelectedValues
-                        UpdateSelectedValues(oValues)
-                    End If
-                End Using
-        End Select
-    End Sub
-
-    Private Sub UpdateSelectedValues(Values As List(Of String))
-        If Values Is Nothing Then
-            Exit Sub
-        End If
-
-        Values.RemoveAll(Function(v) String.IsNullOrEmpty(v))
-
-        If MultiSelect = True Then
-            Properties.DataSource = Values
-
-            Select Case Values.Count
-                Case 0
-                    Properties.NullText = _R.GetString("LookupControl_NoRecords")
-                Case 1
-                    Properties.NullText = _R.GetString("LookupControl_OneRecord")
-                Case Else
-                    Properties.NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count)
-            End Select
-        Else
-            Properties.NullText = Values.FirstOrDefault()
-            Text = Values.FirstOrDefault()
-            EditValue = Nothing
-        End If
-
-        _SelectedValues = Values
-
-        RaiseEvent SelectedValuesChanged(Me, Values)
-    End Sub
-
-    Private Function GetLookupForm() As frmLookupGrid
-        Dim oForm As New frmLookupGrid() With {
-            .MultiSelect = MultiSelect,
-            .AddNewValues = AllowAddNewValues,
-            .PreventDuplicates = PreventDuplicates,
-            .DataSource = DataSource,
-            .SelectedValues = SelectedValues,
-            .StartPosition = FormStartPosition.Manual,
-            .Location = PointToScreen(New Point(Width, 0))
-        }
-
-        Return oForm
-    End Function
-
-    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
-    Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl2
-        Get
-            Return TryCast(MyBase.Properties, RepositoryItemLookupControl2)
-        End Get
-    End Property
-
-    Public Overrides ReadOnly Property EditorTypeName As String
-        Get
-            Return RepositoryItemLookupControl2.CustomEditName
-        End Get
-    End Property
-
-    Private Sub InitializeComponent()
-        Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit()
-        Me.fPropertiesView = New DevExpress.XtraGrid.Views.Grid.GridView()
-        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'fProperties
-        '
-        Me.fProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.fProperties.Name = "fProperties"
-        Me.fProperties.PopupView = Me.fPropertiesView
-        '
-        'fPropertiesView
-        '
-        Me.fPropertiesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
-        Me.fPropertiesView.Name = "fPropertiesView"
-        Me.fPropertiesView.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.fPropertiesView.OptionsView.ShowGroupPanel = False
-        CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-End Class
-
-<UserRepositoryItem("RegisterLookupControl2")>
-Public Class RepositoryItemLookupControl2
-    Inherits RepositoryItemGridLookUpEdit
-
-    Shared Sub New()
-        RegisterLookupControl2()
-    End Sub
-
-    Public Const CustomEditName As String = "LookupControl2"
-
-    Public Overrides ReadOnly Property EditorTypeName As String
-        Get
-            Return CustomEditName
-        End Get
-    End Property
-
-    Public Shared Sub RegisterLookupControl2()
-        Dim img As Image = Nothing
-        EditorRegistrationInfo.Default.Editors.Add(
-            New EditorClassInfo(
-                CustomEditName,
-                GetType(LookupControl2),
-                GetType(RepositoryItemLookupControl2),
-                GetType(GridLookUpEditBaseViewInfo),
-                New ButtonEditPainter(),
-                True,
-                img,
-                GetType(ButtonEditAccessible)
-            )
-        )
-    End Sub
-
-    Public Overrides Sub Assign(item As RepositoryItem)
-        BeginUpdate()
-        Try
-            MyBase.Assign(item)
-            Dim source As RepositoryItemLookupControl2 = TryCast(item, RepositoryItemLookupControl2)
-            If source Is Nothing Then
-                Return
-            End If
-        Finally
-            EndUpdate()
-        End Try
-    End Sub
-End Class

Controls.LookupGrid/LookupControl3.vb

@@ -47,6 +47,8 @@ Public Class RepositoryItemLookupControl3
 
     Public Sub New()
         SetDropdownButtonEnabled(_MultiSelect)
+
+        UpdateSelectedValues(New List(Of String))
     End Sub
 
     Private Const NAME_DATATABLE_INTERNAL = "__INTERNAL_DATATABLE__"
@@ -114,6 +116,8 @@ Public Class RepositoryItemLookupControl3
             GetType(ButtonEditAccessible)
         )
         EditorRegistrationInfo.Default.Editors.Add(oClassInfo)
+
+
     End Sub
 
     Private Sub SetFormButtonEnabled(pVisible As Boolean)
@@ -156,14 +160,19 @@ Public Class RepositoryItemLookupControl3
         If MultiSelect = True Then
             Select Case Values.Count
                 Case 0
-                    NullText = String.Empty
+                    NullText = String.Format(_R.GetString("LookupControl_NoRecords"))
                 Case 1
                     NullText = Values.FirstOrDefault()
                 Case Else
                     NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count)
             End Select
         Else
-            NullText = Values.FirstOrDefault()
+            Select Case Values.Count
+                Case 0
+                    NullText = String.Format(_R.GetString("LookupControl_NoRecords"))
+                Case Else
+                    NullText = Values.FirstOrDefault()
+            End Select
         End If
 
         ' If No external Datasource is supplied, create one containing the currently selected values
@@ -188,6 +197,10 @@ Public Class RepositoryItemLookupControl3
         RaiseEvent SelectedValuesChanged(Me, Values)
     End Sub
 
+    Protected Overrides Function ShouldSerializeNullText() As Boolean
+        Return False
+    End Function
+
     Public Overrides Sub CreateDefaultButton()
         Dim oButtons As New List(Of EditorButton) From {
             New EditorButton() With {
@@ -260,19 +273,19 @@ Public Class RepositoryItemLookupControl3
     End Sub
 
     Private Shadows Sub Popup(sender As LookupControl3, e As EventArgs) Handles Me.BeforePopup
-        Dim oView As ColumnView = sender.Properties.View
+        Try
+            Dim oView As ColumnView = sender.Properties.View
 
-        If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then
+            If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then
-            Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName
+                Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName
+                Dim oOperator = New DevExpress.Data.Filtering.InOperator(oFirstColumn, SelectedValues)
 
-            Dim oWrapped = SelectedValues.
+                View.ActiveFilterCriteria = oOperator
-                Select(Function(v As String) $"'{v}'").
+                View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never
-                ToArray()
+            End If
-            Dim oValueString As String = String.Join(",", oWrapped)
+        Catch ex As Exception
-            Dim oCriterium As String = $"[{oFirstColumn}] IN ({oValueString})"
+            'noop
-            View.ActiveFilterCriteria = DevExpress.Data.Filtering.CriteriaOperator.Parse(oCriterium)
+        End Try
-            View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never
-        End If
     End Sub
 
     Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp

Controls.LookupGrid/LookupGridHandler.vb

@@ -1,21 +0,0 @@
-Imports System.Windows.Forms
-Imports DevExpress.XtraGrid.Views.Grid
-
-Namespace LookupGrid
-    Public Class LookupGridHandler
-        Inherits Handler.GridHandler
-
-        Public Sub New(ByVal gridView As GridView)
-            MyBase.New(gridView)
-        End Sub
-
-        Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
-            MyBase.OnKeyDown(e)
-            If e.KeyData = Keys.Delete AndAlso View.State = GridState.Normal Then
-                View.DeleteRow(View.FocusedRowHandle)
-            End If
-        End Sub
-    End Class
-
-End Namespace
-

Controls.LookupGrid/LookupGridLocalizer.vb

@@ -0,0 +1,24 @@
+Imports DevExpress.XtraEditors.Controls
+
+Public Class LookupGridLocalizer
+    Inherits EditResLocalizer
+
+    Private Const LANG_DE = "de-DE"
+
+    Public Overrides Function GetLocalizedString(id As StringId) As String
+        Dim oResult As String
+
+        Select Case id
+            Case StringId.LookUpEditValueIsNull
+                If Language = LANG_DE Then
+                    oResult = "[Kein Wert ausgewählt]"
+                Else
+                    oResult = "[No Value selected]"
+                End If
+            Case Else
+                oResult = MyBase.GetLocalizedString(id)
+        End Select
+
+        Return oResult
+    End Function
+End Class

Controls.LookupGrid/LookupGridRegistration.vb

@@ -1,26 +0,0 @@
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Views.Base
-Imports DevExpress.XtraGrid.Views.Base.Handler
-Imports DevExpress.XtraGrid.Registrator
-
-Namespace LookupGrid
-    Public Class LookupGridViewInfoRegistrator
-        Inherits GridInfoRegistrator
-
-        Public Overrides ReadOnly Property ViewName() As String
-            Get
-                Return "GridView"
-            End Get
-        End Property
-        Public Overrides Function CreateView(ByVal grid As GridControl) As BaseView
-            Return New LookupGridView(TryCast(grid, GridControl))
-        End Function
-        Public Overrides Function CreateHandler(ByVal view As BaseView) As BaseViewHandler
-            Return New LookupGridHandler(TryCast(view, LookupGridView))
-        End Function
-    End Class
-
-
-
-End Namespace
-

Controls.LookupGrid/LookupGridView.Designer.vb

@@ -1,47 +0,0 @@
-Partial Class LookupGridView
-    Inherits System.ComponentModel.Component
-
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Public Sub New(ByVal container As System.ComponentModel.IContainer)
-        MyClass.New()
-
-        'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers
-        If (container IsNot Nothing) Then
-            container.Add(Me)
-        End If
-
-    End Sub
-
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Public Sub New()
-        MyBase.New()
-
-        'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
-        InitializeComponent()
-
-    End Sub
-
-    'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
-    <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 Komponenten-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        components = New System.ComponentModel.Container()
-    End Sub
-
-End Class

Controls.LookupGrid/LookupGridView.vb

@@ -1,56 +0,0 @@
-Imports DevExpress.Data.Helpers
-Imports DevExpress.Data.Filtering
-Imports DevExpress.XtraGrid.Views.Base
-Imports System.Reflection
-
-Namespace LookupGrid
-    Public Class LookupGridView
-        Inherits DevExpress.XtraGrid.Views.Grid.GridView
-
-        Private _simpleSearch As Boolean
-        Public Sub New()
-            Me.New(Nothing)
-        End Sub
-        Public Property SimpleSearch() As Boolean
-            Get
-                Return _simpleSearch
-            End Get
-            Set(ByVal value As Boolean)
-                _simpleSearch = value
-            End Set
-        End Property
-
-        Public Sub New(ByVal grid As DevExpress.XtraGrid.GridControl)
-            MyBase.New(grid)
-            ' put your initialization code here
-        End Sub
-        Protected Overrides ReadOnly Property ViewName() As String
-            Get
-                Return "LookupGridView"
-            End Get
-        End Property
-        Protected Overrides Function ConvertGridFilterToDataFilter(ByVal criteria As CriteriaOperator) As CriteriaOperator
-            Dim originalFindFilterText As String = Convert.ToString(GetType(ColumnView).InvokeMember("findFilterText", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.GetField, Nothing, Me, New Object() {}))
-            If SimpleSearch Then
-                If Not (String.IsNullOrEmpty(originalFindFilterText)) Then
-                    GetType(ColumnView).InvokeMember("findFilterText", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.SetField, Nothing, Me, New Object() {String.Concat("""", originalFindFilterText, """")})
-                End If
-                Dim findCriteria As CriteriaOperator = Nothing
-                Dim _lastParserResults As FindSearchParserResults = Nothing
-                If Not (String.IsNullOrEmpty(FindFilterText)) Then
-                    _lastParserResults = (New FindSearchParser()).Parse(FindFilterText, GetFindToColumnsCollection())
-                    GetType(ColumnView).GetField("lastParserResults", BindingFlags.NonPublic Or BindingFlags.Instance).SetValue(Me, _lastParserResults)
-                    If Not IsServerMode Then
-                        _lastParserResults.AppendColumnFieldPrefixes()
-                    End If
-                    findCriteria = DxFtsContainsHelperAlt.Create(_lastParserResults, FilterCondition.Contains, IsServerMode)
-                End If
-                GetType(ColumnView).InvokeMember("findFilterText", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.SetField, Nothing, Me, New Object() {originalFindFilterText})
-                Return criteria And findCriteria
-            End If
-            Return MyBase.ConvertGridFilterToDataFilter(criteria)
-        End Function
-    End Class
-
-End Namespace
-

Controls.LookupGrid/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("LookupGrid")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("3000")>
+<Assembly: AssemblyTrademark("3200")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.0.3.0")>
+<Assembly: AssemblyVersion("3.2.0.0")>
-<Assembly: AssemblyFileVersion("3.0.3.0")>
+<Assembly: AssemblyFileVersion("3.2.0.0")>

Controls.LookupGrid/My Project/licenses.licx

@@ -1,3 +1,4 @@
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Controls.LookupGrid/frmLookupGrid.vb

@@ -1,5 +1,6 @@
 Imports System.Windows.Forms
 Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Grid
 
@@ -12,6 +13,8 @@ Public Class frmLookupGrid
     Public Property NewValues As New HashSet(Of String)
 
     Public Const COLUMN_SELECTED = "SELECTED"
+    Public Const COLUMN_VALUE = "VALUE"
+    Public Const TABLE_TEMP = "TEMP"
 
     Private _DataColumn As Integer
     Private _DataSourceTemp As DataTable
@@ -25,21 +28,21 @@ Public Class frmLookupGrid
 
         ' Original Datasource soll nicht verändert werden
         If DataSource Is Nothing Then
-            _DataSourceTemp = New DataTable("TEMP")
+            _DataSourceTemp = New DataTable(TABLE_TEMP)
-            _DataSourceTemp.Columns.Add(New DataColumn("VALUE"))
+            _DataSourceTemp.Columns.Add(New DataColumn(COLUMN_VALUE))
         Else
             _DataSourceTemp = DataSource.Copy()
         End If
 
         If MultiSelect Then
             If Not _DataSourceTemp.Columns.Contains(COLUMN_SELECTED) Then
-                Dim selectedColumn = New DataColumn() With {
+                Dim oSelectedColumn = New DataColumn() With {
-                    .ColumnName = "SELECTED",
+                    .ColumnName = COLUMN_SELECTED,
                     .DataType = GetType(Boolean),
                     .DefaultValue = False
                 }
-                _DataSourceTemp.Columns.Add(selectedColumn)
+                _DataSourceTemp.Columns.Add(oSelectedColumn)
-                selectedColumn.SetOrdinal(0)
+                oSelectedColumn.SetOrdinal(0)
             End If
         End If
 
@@ -87,6 +90,10 @@ Public Class frmLookupGrid
 
         ' Spaltenbreite anpassen
         _View.BestFitColumns()
+
+        ' Datenspalte zusätzlich in der Breite anpassen
+        Dim oDataColumn As GridColumn = _View.Columns.Item(_DataColumn)
+        oDataColumn.BestFit()
     End Sub
 
     Private Sub SaveSelectedValues()
@@ -205,7 +212,7 @@ Public Class frmLookupGrid
 
     Private Sub viewLookup_ShowingEditor(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles viewLookup.ShowingEditor
         Dim rowHandleIsNewItemRow = (_View.FocusedRowHandle = GridControl.NewItemRowHandle)
-        Dim columnIsCheckboxColumn = _View.FocusedColumn.FieldName = "SELECTED"
+        Dim columnIsCheckboxColumn = (_View.FocusedColumn.FieldName = COLUMN_SELECTED)
 
         ' Prevent editing of Data Column/allow editing for Checkbox Column and NewValue Row
         If rowHandleIsNewItemRow Or columnIsCheckboxColumn Then

Controls.RegexEditor/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("RegexEditor")>
-<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyCopyright("Copyright © 2021")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyVersion("1.2.0.0")>
-<Assembly: AssemblyFileVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.2.0.0")>

Controls.RegexEditor/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -59,5 +59,65 @@ Namespace My.Resources
                 resourceCulture = value
             End Set
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property about() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("about", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_check1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_check1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property definednameuseinformula() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("definednameuseinformula", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property definednameuseinformula1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("definednameuseinformula1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property definednameuseinformula2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("definednameuseinformula2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
     End Module
 End Namespace

Controls.RegexEditor/My Project/Resources.resx

@@ -46,7 +46,7 @@
     
     mimetype: application/x-microsoft.net.object.binary.base64
     value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
             : and then encoded with base64 encoding.
     
     mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
             : 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">
@@ -68,9 +69,10 @@
               <xsd:sequence>
                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <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">
@@ -85,9 +87,10 @@
                 <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="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">
@@ -109,9 +112,28 @@
     <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>
+    <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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="definednameuseinformula" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
 </root>

Controls.RegexEditor/My Project/licenses.licx

@@ -0,0 +1,3 @@
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Controls.RegexEditor/RegexEditor.vbproj

@@ -48,21 +48,33 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DevExpress.Data.Desktop.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Data.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Printing.v20.1.Core, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.Utils.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraEditors.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraEditors.v19.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraLayout.v19.2.dll</HintPath>
+    </Reference>
+    <Reference Include="PresentationCore" />
     <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.Runtime.Remoting" />
     <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" />
+    <Reference Include="UIAutomationClient" />
+    <Reference Include="WindowsBase" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -102,6 +114,7 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -130,5 +143,23 @@
       <Name>Language</Name>
     </ProjectReference>
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_check.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\definednameuseinformula.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\definednameuseinformula1.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_check1.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\definednameuseinformula2.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\about.svg" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

Controls.RegexEditor/Resources/about.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{display:none;}
+	.st2{display:inline;fill:#039C23;}
+	.st3{display:inline;fill:#D11C1C;}
+	.st4{display:inline;fill:#727272;}
+</style>
+  <g id="About">
+    <path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M16,6c1.1,0,2,0.9,2,2s-0.9,2-2,2s-2-0.9-2-2   S14.9,6,16,6z M20,24h-8v-2h2v-8h-2v-2h2h4v10h2V24z" class="Blue" />
+  </g>
+</svg>

Controls.RegexEditor/Resources/actions_check.svg

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Check">
+    <polygon points="27,5 11,21 5,15 2,18 11,27 30,8  " class="Green" />
+  </g>
+</svg>

Controls.RegexEditor/Resources/actions_check1.svg

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Check">
+    <polygon points="27,5 11,21 5,15 2,18 11,27 30,8  " class="Green" />
+  </g>
+</svg>

Controls.RegexEditor/Resources/definednameuseinformula.svg

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="DefinedNameUseInFormula" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Black{fill:#727272;}
+</style>
+  <path d="M7,20l-7-7V9l7-7h22c0.6,0,1,0.4,1,1v16c0,0.6-0.4,1-1,1h-8.4l0.5-2h2.3H28V4H7.8L2,9.8v2.3L7.8,18h3.8h1.6  l-0.4,2H7z M6,11c0,1.1,0.9,2,2,2s2-0.9,2-2c0-1.1-0.9-2-2-2S6,9.9,6,11z" class="Black" />
+  <path d="M19.9,14h2.3l-0.5,2h-2.3l-2.1,8.7c-0.3,1.2-0.7,2.2-1.2,3c-0.6,0.8-1.2,1.4-2,1.8c-0.7,0.4-1.6,0.6-2.6,0.6  c-1,0-1.8-0.2-2.3-0.6c-0.7-0.5-1-1-1-1.6c0-0.5,0.2-0.9,0.5-1.2c0.3-0.3,0.7-0.5,1.2-0.5c0.2,0,0.4,0,0.6,0.1  c0.2,0.1,0.4,0.2,0.6,0.3c0.1,0.1,0.3,0.3,0.6,0.7c0.1,0.2,0.3,0.3,0.4,0.3c0.1,0.1,0.2,0.1,0.4,0.1c0.5,0,0.9-0.6,1.1-1.7l2.2-9.9  h-1.7l0.4-2h1.7l0.4-1.7c0.3-1.4,1-2.4,2-3.2c1-0.8,2.3-1.1,4-1.1c0.8,0,1.5,0.1,1.9,0.3c0.5,0.2,0.8,0.5,1.1,0.8  c0.3,0.4,0.4,0.7,0.4,1.1c0,0.3-0.1,0.6-0.2,0.9c-0.2,0.3-0.4,0.5-0.6,0.6c-0.3,0.1-0.6,0.2-0.9,0.2c-0.3,0-0.6-0.1-0.9-0.2  c-0.3-0.1-0.5-0.3-0.8-0.6c-0.3-0.3-0.5-0.5-0.6-0.6c-0.1-0.1-0.3-0.1-0.4-0.1c-0.3,0-0.6,0.1-0.8,0.4c-0.1,0.2-0.3,0.6-0.4,1.3  L19.9,14z M22.5,22.3l1.2,2.4c0.7-0.9,1.1-1.5,1.3-1.7c0.3-0.3,0.6-0.5,1-0.7s0.6-0.2,0.9-0.2c0.3,0,0.6,0.1,0.8,0.3  s0.3,0.4,0.3,0.7c0,0.2,0,0.4-0.1,0.5s-0.2,0.3-0.3,0.4s-0.3,0.2-0.4,0.2c-0.1,0-0.2,0-0.5,0.1c-0.3,0-0.5,0-0.6,0.1  c-0.1,0-0.2,0.1-0.4,0.2c-0.2,0.1-0.3,0.3-0.5,0.4c-0.1,0.1-0.3,0.4-0.8,1.1l0.4,0.8c0.3,0.6,0.6,1.1,0.8,1.2  c0.2,0.2,0.4,0.3,0.6,0.3c0.3,0,0.7-0.2,1.1-0.6l0.8,1c-0.9,0.8-1.8,1.2-2.7,1.2c-0.4,0-0.7-0.1-1-0.2c-0.3-0.1-0.6-0.3-0.8-0.6  c-0.2-0.2-0.5-0.6-0.7-1.1l-0.4-0.9c-0.4,0.7-0.8,1.2-1.2,1.6c-0.4,0.4-0.8,0.7-1.1,0.9c-0.3,0.2-0.6,0.2-0.9,0.2  c-0.2,0-0.4,0-0.6-0.1c-0.1-0.1-0.3-0.2-0.4-0.4C18,29.3,18,29.2,18,29c0-0.2,0.1-0.4,0.2-0.6c0.1-0.2,0.3-0.3,0.4-0.4  c0.2-0.1,0.5-0.1,0.9-0.1c0.3,0,0.5-0.1,0.7-0.2c0.2-0.1,0.4-0.2,0.6-0.5c0.2-0.2,0.5-0.7,1-1.4L21,24.3h-1.1l0.3-1.4  c0.6-0.1,1.2-0.3,1.7-0.6H22.5z" class="Blue" />
+</svg>

Controls.RegexEditor/Resources/definednameuseinformula1.svg

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="DefinedNameUseInFormula" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Black{fill:#727272;}
+</style>
+  <path d="M7,20l-7-7V9l7-7h22c0.6,0,1,0.4,1,1v16c0,0.6-0.4,1-1,1h-8.4l0.5-2h2.3H28V4H7.8L2,9.8v2.3L7.8,18h3.8h1.6  l-0.4,2H7z M6,11c0,1.1,0.9,2,2,2s2-0.9,2-2c0-1.1-0.9-2-2-2S6,9.9,6,11z" class="Black" />
+  <path d="M19.9,14h2.3l-0.5,2h-2.3l-2.1,8.7c-0.3,1.2-0.7,2.2-1.2,3c-0.6,0.8-1.2,1.4-2,1.8c-0.7,0.4-1.6,0.6-2.6,0.6  c-1,0-1.8-0.2-2.3-0.6c-0.7-0.5-1-1-1-1.6c0-0.5,0.2-0.9,0.5-1.2c0.3-0.3,0.7-0.5,1.2-0.5c0.2,0,0.4,0,0.6,0.1  c0.2,0.1,0.4,0.2,0.6,0.3c0.1,0.1,0.3,0.3,0.6,0.7c0.1,0.2,0.3,0.3,0.4,0.3c0.1,0.1,0.2,0.1,0.4,0.1c0.5,0,0.9-0.6,1.1-1.7l2.2-9.9  h-1.7l0.4-2h1.7l0.4-1.7c0.3-1.4,1-2.4,2-3.2c1-0.8,2.3-1.1,4-1.1c0.8,0,1.5,0.1,1.9,0.3c0.5,0.2,0.8,0.5,1.1,0.8  c0.3,0.4,0.4,0.7,0.4,1.1c0,0.3-0.1,0.6-0.2,0.9c-0.2,0.3-0.4,0.5-0.6,0.6c-0.3,0.1-0.6,0.2-0.9,0.2c-0.3,0-0.6-0.1-0.9-0.2  c-0.3-0.1-0.5-0.3-0.8-0.6c-0.3-0.3-0.5-0.5-0.6-0.6c-0.1-0.1-0.3-0.1-0.4-0.1c-0.3,0-0.6,0.1-0.8,0.4c-0.1,0.2-0.3,0.6-0.4,1.3  L19.9,14z M22.5,22.3l1.2,2.4c0.7-0.9,1.1-1.5,1.3-1.7c0.3-0.3,0.6-0.5,1-0.7s0.6-0.2,0.9-0.2c0.3,0,0.6,0.1,0.8,0.3  s0.3,0.4,0.3,0.7c0,0.2,0,0.4-0.1,0.5s-0.2,0.3-0.3,0.4s-0.3,0.2-0.4,0.2c-0.1,0-0.2,0-0.5,0.1c-0.3,0-0.5,0-0.6,0.1  c-0.1,0-0.2,0.1-0.4,0.2c-0.2,0.1-0.3,0.3-0.5,0.4c-0.1,0.1-0.3,0.4-0.8,1.1l0.4,0.8c0.3,0.6,0.6,1.1,0.8,1.2  c0.2,0.2,0.4,0.3,0.6,0.3c0.3,0,0.7-0.2,1.1-0.6l0.8,1c-0.9,0.8-1.8,1.2-2.7,1.2c-0.4,0-0.7-0.1-1-0.2c-0.3-0.1-0.6-0.3-0.8-0.6  c-0.2-0.2-0.5-0.6-0.7-1.1l-0.4-0.9c-0.4,0.7-0.8,1.2-1.2,1.6c-0.4,0.4-0.8,0.7-1.1,0.9c-0.3,0.2-0.6,0.2-0.9,0.2  c-0.2,0-0.4,0-0.6-0.1c-0.1-0.1-0.3-0.2-0.4-0.4C18,29.3,18,29.2,18,29c0-0.2,0.1-0.4,0.2-0.6c0.1-0.2,0.3-0.3,0.4-0.4  c0.2-0.1,0.5-0.1,0.9-0.1c0.3,0,0.5-0.1,0.7-0.2c0.2-0.1,0.4-0.2,0.6-0.5c0.2-0.2,0.5-0.7,1-1.4L21,24.3h-1.1l0.3-1.4  c0.6-0.1,1.2-0.3,1.7-0.6H22.5z" class="Blue" />
+</svg>

Controls.RegexEditor/Resources/definednameuseinformula2.svg

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="DefinedNameUseInFormula" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Black{fill:#727272;}
+</style>
+  <path d="M7,20l-7-7V9l7-7h22c0.6,0,1,0.4,1,1v16c0,0.6-0.4,1-1,1h-8.4l0.5-2h2.3H28V4H7.8L2,9.8v2.3L7.8,18h3.8h1.6  l-0.4,2H7z M6,11c0,1.1,0.9,2,2,2s2-0.9,2-2c0-1.1-0.9-2-2-2S6,9.9,6,11z" class="Black" />
+  <path d="M19.9,14h2.3l-0.5,2h-2.3l-2.1,8.7c-0.3,1.2-0.7,2.2-1.2,3c-0.6,0.8-1.2,1.4-2,1.8c-0.7,0.4-1.6,0.6-2.6,0.6  c-1,0-1.8-0.2-2.3-0.6c-0.7-0.5-1-1-1-1.6c0-0.5,0.2-0.9,0.5-1.2c0.3-0.3,0.7-0.5,1.2-0.5c0.2,0,0.4,0,0.6,0.1  c0.2,0.1,0.4,0.2,0.6,0.3c0.1,0.1,0.3,0.3,0.6,0.7c0.1,0.2,0.3,0.3,0.4,0.3c0.1,0.1,0.2,0.1,0.4,0.1c0.5,0,0.9-0.6,1.1-1.7l2.2-9.9  h-1.7l0.4-2h1.7l0.4-1.7c0.3-1.4,1-2.4,2-3.2c1-0.8,2.3-1.1,4-1.1c0.8,0,1.5,0.1,1.9,0.3c0.5,0.2,0.8,0.5,1.1,0.8  c0.3,0.4,0.4,0.7,0.4,1.1c0,0.3-0.1,0.6-0.2,0.9c-0.2,0.3-0.4,0.5-0.6,0.6c-0.3,0.1-0.6,0.2-0.9,0.2c-0.3,0-0.6-0.1-0.9-0.2  c-0.3-0.1-0.5-0.3-0.8-0.6c-0.3-0.3-0.5-0.5-0.6-0.6c-0.1-0.1-0.3-0.1-0.4-0.1c-0.3,0-0.6,0.1-0.8,0.4c-0.1,0.2-0.3,0.6-0.4,1.3  L19.9,14z M22.5,22.3l1.2,2.4c0.7-0.9,1.1-1.5,1.3-1.7c0.3-0.3,0.6-0.5,1-0.7s0.6-0.2,0.9-0.2c0.3,0,0.6,0.1,0.8,0.3  s0.3,0.4,0.3,0.7c0,0.2,0,0.4-0.1,0.5s-0.2,0.3-0.3,0.4s-0.3,0.2-0.4,0.2c-0.1,0-0.2,0-0.5,0.1c-0.3,0-0.5,0-0.6,0.1  c-0.1,0-0.2,0.1-0.4,0.2c-0.2,0.1-0.3,0.3-0.5,0.4c-0.1,0.1-0.3,0.4-0.8,1.1l0.4,0.8c0.3,0.6,0.6,1.1,0.8,1.2  c0.2,0.2,0.4,0.3,0.6,0.3c0.3,0,0.7-0.2,1.1-0.6l0.8,1c-0.9,0.8-1.8,1.2-2.7,1.2c-0.4,0-0.7-0.1-1-0.2c-0.3-0.1-0.6-0.3-0.8-0.6  c-0.2-0.2-0.5-0.6-0.7-1.1l-0.4-0.9c-0.4,0.7-0.8,1.2-1.2,1.6c-0.4,0.4-0.8,0.7-1.1,0.9c-0.3,0.2-0.6,0.2-0.9,0.2  c-0.2,0-0.4,0-0.6-0.1c-0.1-0.1-0.3-0.2-0.4-0.4C18,29.3,18,29.2,18,29c0-0.2,0.1-0.4,0.2-0.6c0.1-0.2,0.3-0.3,0.4-0.4  c0.2-0.1,0.5-0.1,0.9-0.1c0.3,0,0.5-0.1,0.7-0.2c0.2-0.1,0.4-0.2,0.6-0.5c0.2-0.2,0.5-0.7,1-1.4L21,24.3h-1.1l0.3-1.4  c0.6-0.1,1.2-0.3,1.7-0.6H22.5z" class="Blue" />
+</svg>

Controls.RegexEditor/frmRegexEditor.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmRegexEditor
-    Inherits DevExpress.XtraEditors.XtraForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Form overrides dispose to clean up the component list.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -19,62 +19,29 @@ Partial Class frmRegexEditor
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.btnTest = New System.Windows.Forms.Button()
-        Me.btnSave = New System.Windows.Forms.Button()
-        Me.labelResult = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.txtTest = New System.Windows.Forms.TextBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtRegex = New System.Windows.Forms.TextBox()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.labelResult = New DevExpress.XtraBars.BarStaticItem()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'btnTest
-        '
-        Me.btnTest.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnTest.Location = New System.Drawing.Point(187, 192)
-        Me.btnTest.Name = "btnTest"
-        Me.btnTest.Size = New System.Drawing.Size(112, 31)
-        Me.btnTest.TabIndex = 23
-        Me.btnTest.Text = "Test"
-        Me.btnTest.UseVisualStyleBackColor = True
-        '
-        'btnSave
-        '
-        Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnSave.Location = New System.Drawing.Point(305, 192)
-        Me.btnSave.Name = "btnSave"
-        Me.btnSave.Size = New System.Drawing.Size(112, 31)
-        Me.btnSave.TabIndex = 22
-        Me.btnSave.Text = "Speichern"
-        Me.btnSave.UseVisualStyleBackColor = True
-        '
-        'labelResult
-        '
-        Me.labelResult.AutoSize = True
-        Me.labelResult.Location = New System.Drawing.Point(12, 163)
-        Me.labelResult.Name = "labelResult"
-        Me.labelResult.Size = New System.Drawing.Size(284, 13)
-        Me.labelResult.TabIndex = 21
-        Me.labelResult.Text = "Klicken Sie auf Test, um die Regular Expression zu testen."
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(12, 150)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(52, 13)
-        Me.Label3.TabIndex = 20
-        Me.Label3.Text = "Ergebnis:"
-        '
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(12, 100)
+        Me.Label2.Location = New System.Drawing.Point(12, 151)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(63, 13)
+        Me.Label2.Size = New System.Drawing.Size(64, 13)
         Me.Label2.TabIndex = 19
         Me.Label2.Text = "Test String:"
         '
@@ -82,15 +49,16 @@ Partial Class frmRegexEditor
         '
         Me.txtTest.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtTest.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtTest.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtTest.Location = New System.Drawing.Point(12, 116)
+        Me.txtTest.Location = New System.Drawing.Point(12, 167)
+        Me.txtTest.Multiline = True
         Me.txtTest.Name = "txtTest"
-        Me.txtTest.Size = New System.Drawing.Size(405, 20)
+        Me.txtTest.Size = New System.Drawing.Size(487, 136)
         Me.txtTest.TabIndex = 18
         '
         'Label4
         '
-        Me.Label4.Location = New System.Drawing.Point(12, 48)
+        Me.Label4.Location = New System.Drawing.Point(12, 110)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(419, 33)
         Me.Label4.TabIndex = 17
@@ -100,9 +68,9 @@ Partial Class frmRegexEditor
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(12, 9)
+        Me.Label1.Location = New System.Drawing.Point(12, 69)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(103, 13)
+        Me.Label1.Size = New System.Drawing.Size(108, 13)
         Me.Label1.TabIndex = 16
         Me.Label1.Text = "Regular Expression:"
         '
@@ -110,41 +78,117 @@ Partial Class frmRegexEditor
         '
         Me.txtRegex.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtRegex.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtRegex.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtRegex.Location = New System.Drawing.Point(12, 25)
+        Me.txtRegex.Location = New System.Drawing.Point(12, 85)
         Me.txtRegex.Name = "txtRegex"
-        Me.txtRegex.Size = New System.Drawing.Size(405, 20)
+        Me.txtRegex.Size = New System.Drawing.Size(487, 22)
         Me.txtRegex.TabIndex = 15
         '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticItem1, Me.labelResult})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 6
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(511, 66)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Speichern und schließen"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.actions_check1
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Regular Expression testen"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.definednameuseinformula1
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarStaticItem1
+        '
+        Me.BarStaticItem1.Caption = "Ergebnis"
+        Me.BarStaticItem1.Id = 3
+        Me.BarStaticItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.about
+        Me.BarStaticItem1.Name = "BarStaticItem1"
+        Me.BarStaticItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelResult)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 309)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(511, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'labelResult
+        '
+        Me.labelResult.Caption = "<kein Ergebnis>"
+        Me.labelResult.Id = 5
+        Me.labelResult.Name = "labelResult"
+        '
         'frmRegexEditor
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(429, 235)
+        Me.ClientSize = New System.Drawing.Size(511, 331)
-        Me.Controls.Add(Me.btnTest)
-        Me.Controls.Add(Me.btnSave)
-        Me.Controls.Add(Me.labelResult)
-        Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.txtTest)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.txtRegex)
-        Me.IconOptions.ShowIcon = False
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.definednameuseinformula2
         Me.Name = "frmRegexEditor"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
         Me.Text = "Regex Editor"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-
-    Friend WithEvents btnTest As Button
-    Friend WithEvents btnSave As Button
-    Friend WithEvents labelResult As Label
-    Friend WithEvents Label3 As Label
     Friend WithEvents Label2 As Label
     Friend WithEvents txtTest As TextBox
     Friend WithEvents Label4 As Label
     Friend WithEvents Label1 As Label
     Friend WithEvents txtRegex As TextBox
+    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 BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents labelResult As DevExpress.XtraBars.BarStaticItem
 End Class

Controls.RegexEditor/frmRegexEditor.vb

@@ -4,6 +4,8 @@ Public Class frmRegexEditor
     Public RegexString As String
 
     Public Sub New(RegexString As String)
+        MyBase.New()
+
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -15,21 +17,23 @@ Public Class frmRegexEditor
         txtRegex.Text = RegexString
     End Sub
 
-    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        RegexString = txtRegex.Text
+        DialogResult = DialogResult.OK
+        Close()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
         Try
             Dim oTestString As String = txtTest.Text
 
             If Regex.IsMatch(oTestString, txtRegex.Text) Then
-                labelResult.Text = "Test String ist gültig."
+                labelResult.Caption = "Test String ist gültig."
             Else
-                labelResult.Text = "Test String ist nicht gültig."
+                labelResult.Caption = "Test String ist nicht gültig."
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test")
         End Try
     End Sub
-
-    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
-        RegexString = txtRegex.Text
-    End Sub
 End Class

Controls.SQLEditor/App.config

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    </startup>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="FirebirdSql.Data.FirebirdClient" publicKeyToken="3750abcc3150b00c" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-7.5.0.0" newVersion="7.5.0.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</configuration>

Controls.SQLEditor/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

Controls.SQLEditor/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?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>frmSQLEditor</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

Controls.SQLEditor/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+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("SQLEditor")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("SQLEditor")>
+<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("bc3b504e-8893-409e-a7ba-e09cd11c11b4")>
+
+' 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.1.0.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>

Controls.SQLEditor/My Project/Resources.Designer.vb

@@ -0,0 +1,153 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.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>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</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("DigitalData.Controls.SQLEditor.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_checkcircled() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_checkcircled", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_database() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_database", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_database1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_database1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property editdatasource() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("editdatasource", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property highimportance() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("highimportance", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property updatedataextract() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("updatedataextract", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property updatedataextract1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("updatedataextract1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property updatedataextract2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("updatedataextract2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+    End Module
+End Namespace

Controls.SQLEditor/My Project/Resources.resx

@@ -0,0 +1,148 @@
+<?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>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="actions_database" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="editdatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\editdatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_database1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_database1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="updatedataextract1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\updatedataextract1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="updatedataextract2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\updatedataextract2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="highimportance" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="actions_checkcircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_checkcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+</root>

Controls.SQLEditor/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </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", "16.8.1.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 "Automatische My.Settings-Speicherfunktion"
+#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(sender As Global.System.Object, 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.DigitalData.Controls.SQLEditor.My.MySettings
+            Get
+                Return Global.DigitalData.Controls.SQLEditor.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

Controls.SQLEditor/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?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>

Controls.SQLEditor/My Project/licenses.licx

@@ -0,0 +1,6 @@
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Controls.SQLEditor/Resources/actions_check.svg

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Check">
+    <polygon points="27,5 11,21 5,15 2,18 11,27 30,8  " class="Green" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/actions_checkcircled.svg

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="CheckCircled">
+    <path d="M16,4C9.4,4,4,9.4,4,16c0,6.6,5.4,12,12,12s12-5.4,12-12C28,9.4,22.6,4,16,4z M14,22l-6-6l2-2l4,4l8-8l2,2   L14,22z" class="Green" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/actions_database.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Database">
+    <path d="M16,24c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4s10-1.8,10-4v-4C26,22.2,21.5,24,16,24z" class="Yellow" />
+    <path d="M16,18c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4s10-1.8,10-4v-4C26,16.2,21.5,18,16,18z" class="Yellow" />
+    <path d="M16,4C10.5,4,6,5.8,6,8v4c0,2.2,4.5,4,10,4s10-1.8,10-4V8C26,5.8,21.5,4,16,4z" class="Yellow" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/actions_database1.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Database">
+    <path d="M16,24c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4s10-1.8,10-4v-4C26,22.2,21.5,24,16,24z" class="Yellow" />
+    <path d="M16,18c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4s10-1.8,10-4v-4C26,16.2,21.5,18,16,18z" class="Yellow" />
+    <path d="M16,4C10.5,4,6,5.8,6,8v4c0,2.2,4.5,4,10,4s10-1.8,10-4V8C26,5.8,21.5,4,16,4z" class="Yellow" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/editdatasource.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.Red{fill:#D11C1C;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+</style>
+  <g id="EditDataSource">
+    <path d="M4,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S4,12.2,4,10z M24,18L24,18C24,18,24,18,24,18   C24,18,24,18,24,18z M14,20c5.5,0,10-1.8,10-4v-4c0,2.2-4.5,4-10,4S4,14.2,4,12v4C4,18.2,8.5,20,14,20z M15.2,26l4.8-4.8   c-1.7,0.5-3.7,0.8-6,0.8c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4C14.4,26,14.8,26,15.2,26z" class="Yellow" />
+    <path d="M29,23l-8,8l-4-4l8-8L29,23z M30,22l1.7-1.7c0.4-0.4,0.4-1,0-1.3L29,16.3c-0.4-0.4-1-0.4-1.3,0L26,18L30,22z    M16,28v4h4L16,28z" class="Blue" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/highimportance.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{display:none;}
+	.st2{display:inline;fill:#039C23;}
+	.st3{display:inline;fill:#D11C1C;}
+	.st4{display:inline;fill:#727272;}
+</style>
+  <g id="HighImportance">
+    <path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M16,24c-1.1,0-2-0.9-2-2s0.9-2,2-2s2,0.9,2,2   S17.1,24,16,24z M18,18h-4V8h4V18z" class="Red" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/updatedataextract.svg

@@ -0,0 +1,16 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+</style>
+  <g id="UpdateDataExtract">
+    <path d="M4,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S4,12.2,4,10z M14,20c0.5,0,1.1,0,1.6-0.1   c1.6-2.4,4.3-3.9,7.4-3.9c0.3,0,0.7,0,1,0.1c0,0,0,0,0-0.1v-4c0,2.2-4.5,4-10,4S4,14.2,4,12v4C4,18.2,8.5,20,14,20z M14,24L14,24   c0.1-0.7,0.3-1.4,0.5-2c-0.2,0-0.4,0-0.5,0c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4V24z" class="Yellow" />
+    <path d="M30,18v6h-0.1H24l2.5-2.5C25.6,20.6,24.4,20,23,20c-2.4,0-4.4,1.7-4.9,4h-2c0.5-3.4,3.4-6,6.9-6   c1.9,0,3.7,0.8,4.9,2.1L30,18z M23,30c-1.4,0-2.6-0.6-3.5-1.5L22,26h-5.9H16v6l2.1-2.1c1.3,1.3,3,2.1,4.9,2.1c3.5,0,6.4-2.6,6.9-6   h-2C27.4,28.3,25.4,30,23,30z" class="Green" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/updatedataextract1.svg

@@ -0,0 +1,16 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+</style>
+  <g id="UpdateDataExtract">
+    <path d="M4,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S4,12.2,4,10z M14,20c0.5,0,1.1,0,1.6-0.1   c1.6-2.4,4.3-3.9,7.4-3.9c0.3,0,0.7,0,1,0.1c0,0,0,0,0-0.1v-4c0,2.2-4.5,4-10,4S4,14.2,4,12v4C4,18.2,8.5,20,14,20z M14,24L14,24   c0.1-0.7,0.3-1.4,0.5-2c-0.2,0-0.4,0-0.5,0c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4V24z" class="Yellow" />
+    <path d="M30,18v6h-0.1H24l2.5-2.5C25.6,20.6,24.4,20,23,20c-2.4,0-4.4,1.7-4.9,4h-2c0.5-3.4,3.4-6,6.9-6   c1.9,0,3.7,0.8,4.9,2.1L30,18z M23,30c-1.4,0-2.6-0.6-3.5-1.5L22,26h-5.9H16v6l2.1-2.1c1.3,1.3,3,2.1,4.9,2.1c3.5,0,6.4-2.6,6.9-6   h-2C27.4,28.3,25.4,30,23,30z" class="Green" />
+  </g>
+</svg>

Controls.SQLEditor/Resources/updatedataextract2.svg

@@ -0,0 +1,16 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+</style>
+  <g id="UpdateDataExtract">
+    <path d="M4,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S4,12.2,4,10z M14,20c0.5,0,1.1,0,1.6-0.1   c1.6-2.4,4.3-3.9,7.4-3.9c0.3,0,0.7,0,1,0.1c0,0,0,0,0-0.1v-4c0,2.2-4.5,4-10,4S4,14.2,4,12v4C4,18.2,8.5,20,14,20z M14,24L14,24   c0.1-0.7,0.3-1.4,0.5-2c-0.2,0-0.4,0-0.5,0c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4V24z" class="Yellow" />
+    <path d="M30,18v6h-0.1H24l2.5-2.5C25.6,20.6,24.4,20,23,20c-2.4,0-4.4,1.7-4.9,4h-2c0.5-3.4,3.4-6,6.9-6   c1.9,0,3.7,0.8,4.9,2.1L30,18z M23,30c-1.4,0-2.6-0.6-3.5-1.5L22,26h-5.9H16v6l2.1-2.1c1.3,1.3,3,2.1,4.9,2.1c3.5,0,6.4-2.6,6.9-6   h-2C27.4,28.3,25.4,30,23,30z" class="Green" />
+  </g>
+</svg>

Controls.SQLEditor/SQLEditor.vbproj

@@ -4,30 +4,36 @@
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}</ProjectGuid>
+    <ProjectGuid>{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}</ProjectGuid>
     <OutputType>Library</OutputType>
-    <RootNamespace>DigitalData.GUIs.Common</RootNamespace>
+    <StartupObject>
-    <AssemblyName>DigitalData.GUIs.Common</AssemblyName>
+    </StartupObject>
+    <RootNamespace>DigitalData.Controls.SQLEditor</RootNamespace>
+    <AssemblyName>DigitalData.Controls.SQLEditor</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Windows</MyType>
     <TargetFrameworkVersion>v4.6.1</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>DigitalData.GUIs.Common.xml</DocumentationFile>
+    <DocumentationFile>DigitalData.Controls.SQLEditor.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>DigitalData.GUIs.Common.xml</DocumentationFile>
+    <DocumentationFile>DigitalData.Controls.SQLEditor.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup>
@@ -43,33 +49,31 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="Accessibility" />
-    <Reference Include="DevExpress.Dialogs.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Sparkline.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraDialogs.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraTreeList.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DigitalData.Controls.DocumentViewer">
-      <HintPath>..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
-    </Reference>
-    <Reference Include="GdPicture.NET.14">
-      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
-    </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.4.6.8\lib\net45\NLog.dll</HintPath>
+      <HintPath>..\packages\NLog.4.7.5\lib\net45\NLog.dll</HintPath>
     </Reference>
     <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Data.Linq" />
+    <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.IO.Compression" />
     <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
+    <Reference Include="System.Security" />
     <Reference Include="System.ServiceModel" />
     <Reference Include="System.Transactions" />
     <Reference Include="System.Windows.Forms" />
@@ -85,38 +89,25 @@
     <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="Base\BaseErrorHandler.vb" />
+    <Compile Include="frmSQLEditor.Designer.vb">
-    <Compile Include="Base\BaseRibbonForm.vb">
+      <DependentUpon>frmSQLEditor.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSQLEditor.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Constants.vb" />
-    <Compile Include="DataResultList\DataResultConfig.vb" />
-    <Compile Include="DataResultList\DataResultParams.vb" />
-    <Compile Include="DataResultList\frmDataResultList.Designer.vb">
-      <DependentUpon>frmDataResultList.vb</DependentUpon>
-    </Compile>
-    <Compile Include="DataResultList\frmDataResultList.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="DocumentResultList\DocumentResultConfig.vb" />
-    <Compile Include="DocumentResultList\DocumentResultParams.vb" />
-    <Compile Include="DocumentResultList\frmDocumentResultList.Designer.vb">
-      <DependentUpon>frmDocumentResultList.vb</DependentUpon>
-    </Compile>
-    <Compile Include="DocumentResultList\frmDocumentResultList.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="IResultForm.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -130,11 +121,8 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="DataResultList\frmDataResultList.resx">
+    <EmbeddedResource Include="frmSQLEditor.resx">
-      <DependentUpon>frmDataResultList.vb</DependentUpon>
+      <DependentUpon>frmSQLEditor.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="DocumentResultList\frmDocumentResultList.resx">
-      <DependentUpon>frmDocumentResultList.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -154,14 +142,43 @@
       <CustomToolNamespace>My</CustomToolNamespace>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
+    <None Include="App.config" />
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\Modules.Config\Config.vbproj">
+    <None Include="packages.config" />
-      <Project>{44982f9b-6116-44e2-85d0-f39650b1ef99}</Project>
+    <None Include="Resources\actions_check.svg" />
-      <Name>Config</Name>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\updatedataextract.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_database.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_database1.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\updatedataextract1.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\updatedataextract2.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\editdatasource.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\highimportance.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\actions_checkcircled.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\GUIs.Common\Common.vbproj">
+      <Project>{d20a6bf2-c7c6-4a7a-b34d-fa27d775a049}</Project>
+      <Name>Common</Name>
     </ProjectReference>
     <ProjectReference Include="..\Modules.Database\Database.vbproj">
-      <Project>{EAF0EA75-5FA7-485D-89C7-B2D843B03A96}</Project>
+      <Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
       <Name>Database</Name>
     </ProjectReference>
     <ProjectReference Include="..\Modules.Language\Language.vbproj">
@@ -169,59 +186,13 @@
       <Name>Language</Name>
     </ProjectReference>
     <ProjectReference Include="..\Modules.Logging\Logging.vbproj">
-      <Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
+      <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
       <Name>Logging</Name>
     </ProjectReference>
-    <ProjectReference Include="..\Modules.ZooFlow\ZooFlow.vbproj">
+    <ProjectReference Include="..\Modules.Patterns\Patterns.vbproj">
-      <Project>{81cac44f-3711-4c8f-ae98-e02a7448782a}</Project>
+      <Project>{7c3b0c7e-59fe-4e1a-a655-27ae119f9444}</Project>
-      <Name>ZooFlow</Name>
+      <Name>Patterns</Name>
     </ProjectReference>
   </ItemGroup>
-  <ItemGroup>
-    <None Include="packages.config" />
-    <None Include="Resources\txt.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\pdf.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\doc.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\xls.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\ppt.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\dwg.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\dxf.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\tiff.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\jpg.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\_blank.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\_page.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\png.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Article_32x32.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Open_32x32.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Copy_32x32.png" />
-  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

Controls.SQLEditor/frmSQLEditor.Designer.vb

@@ -0,0 +1,607 @@
+Imports DigitalData.GUIs.Common.Base
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmSQLEditor
+    Inherits BaseRibbonForm
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor))
+        Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
+        Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Me.RepositoryItemRibbonSearchEdit2 = New DevExpress.XtraBars.Ribbon.Internal.RepositoryItemRibbonSearchEdit()
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.GridControlPlaceholders = New DevExpress.XtraGrid.GridControl()
+        Me.BindingSourcePlaceholder = New System.Windows.Forms.BindingSource(Me.components)
+        Me.GridViewPlaceholder = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colPlaceholder = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colReplacement = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarStaticItem2 = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarStaticItem3 = New DevExpress.XtraBars.BarStaticItem()
+        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.GridControlResult = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewResult = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.txtSQL = New DevExpress.XtraEditors.MemoEdit()
+        Me.DropDownButton1 = New DevExpress.XtraEditors.DropDownButton()
+        Me.DropDownButton11 = New DevExpress.XtraEditors.DropDownButton()
+        Me.RibbonControl11 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage11 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup11 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar11 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.DropDownButton2 = New DevExpress.XtraEditors.DropDownButton()
+        Me.DropDownButton3 = New DevExpress.XtraEditors.DropDownButton()
+        Me.cmbConnections = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
+        Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem()
+        Me.SimpleSeparator2 = New DevExpress.XtraLayout.SimpleSeparator()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        CType(Me.RepositoryItemRibbonSearchEdit2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.GridControlPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.BindingSourcePlaceholder, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewPlaceholder, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControlResult, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewResult, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSQL.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cmbConnections.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SimpleSeparator2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'RepositoryItemRibbonSearchEdit2
+        '
+        Me.RepositoryItemRibbonSearchEdit2.AllowFocused = False
+        Me.RepositoryItemRibbonSearchEdit2.AutoHeight = False
+        Me.RepositoryItemRibbonSearchEdit2.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        EditorButtonImageOptions1.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
+        EditorButtonImageOptions1.SvgImage = CType(resources.GetObject("EditorButtonImageOptions1.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.RepositoryItemRibbonSearchEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", -1, True, True, True, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Clear, "", -1, True, False, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])})
+        Me.RepositoryItemRibbonSearchEdit2.Name = "RepositoryItemRibbonSearchEdit2"
+        Me.RepositoryItemRibbonSearchEdit2.NullText = "Search"
+        '
+        'LayoutControl1
+        '
+        Me.LayoutControl1.Controls.Add(Me.GridControlPlaceholders)
+        Me.LayoutControl1.Controls.Add(Me.GridControlResult)
+        Me.LayoutControl1.Controls.Add(Me.txtSQL)
+        Me.LayoutControl1.Controls.Add(Me.DropDownButton1)
+        Me.LayoutControl1.Controls.Add(Me.DropDownButton11)
+        Me.LayoutControl1.Controls.Add(Me.DropDownButton2)
+        Me.LayoutControl1.Controls.Add(Me.DropDownButton3)
+        Me.LayoutControl1.Controls.Add(Me.cmbConnections)
+        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
+        Me.LayoutControl1.Name = "LayoutControl1"
+        Me.LayoutControl1.Root = Me.Root
+        Me.LayoutControl1.Size = New System.Drawing.Size(1283, 604)
+        Me.LayoutControl1.TabIndex = 0
+        Me.LayoutControl1.Text = "LayoutControl1"
+        '
+        'GridControlPlaceholders
+        '
+        Me.GridControlPlaceholders.DataSource = Me.BindingSourcePlaceholder
+        Me.GridControlPlaceholders.Location = New System.Drawing.Point(12, 347)
+        Me.GridControlPlaceholders.MainView = Me.GridViewPlaceholder
+        Me.GridControlPlaceholders.MenuManager = Me.RibbonControl1
+        Me.GridControlPlaceholders.Name = "GridControlPlaceholders"
+        Me.GridControlPlaceholders.Size = New System.Drawing.Size(417, 245)
+        Me.GridControlPlaceholders.TabIndex = 7
+        Me.GridControlPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewPlaceholder})
+        '
+        'GridViewPlaceholder
+        '
+        Me.GridViewPlaceholder.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPlaceholder, Me.colReplacement})
+        Me.GridViewPlaceholder.GridControl = Me.GridControlPlaceholders
+        Me.GridViewPlaceholder.Name = "GridViewPlaceholder"
+        '
+        'colPlaceholder
+        '
+        Me.colPlaceholder.Caption = "Platzhalter"
+        Me.colPlaceholder.Name = "colPlaceholder"
+        Me.colPlaceholder.Visible = True
+        Me.colPlaceholder.VisibleIndex = 0
+        '
+        'colReplacement
+        '
+        Me.colReplacement.Caption = "Ersetzung"
+        Me.colReplacement.Name = "colReplacement"
+        Me.colReplacement.Visible = True
+        Me.colReplacement.VisibleIndex = 1
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticItem1, Me.BarStaticItem2, Me.BarStaticItem3, Me.BarButtonItem3})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 8
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(1283, 66)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Speichern und schließen"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "SQL testen"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarStaticItem1
+        '
+        Me.BarStaticItem1.Caption = "Ergebnis"
+        Me.BarStaticItem1.Id = 3
+        Me.BarStaticItem1.Name = "BarStaticItem1"
+        '
+        'BarStaticItem2
+        '
+        Me.BarStaticItem2.Caption = "Fehler bei Abfrage"
+        Me.BarStaticItem2.Id = 4
+        Me.BarStaticItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarStaticItem2.Name = "BarStaticItem2"
+        Me.BarStaticItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarStaticItem3
+        '
+        Me.BarStaticItem3.Caption = "Abfrage ausgeführt"
+        Me.BarStaticItem3.Id = 5
+        Me.BarStaticItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarStaticItem3.Name = "BarStaticItem3"
+        Me.BarStaticItem3.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "Verbindungen.."
+        Me.BarButtonItem3.Id = 7
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        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 = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem2)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem3)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 670)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1283, 22)
+        '
+        'GridControlResult
+        '
+        Me.GridControlResult.Location = New System.Drawing.Point(433, 347)
+        Me.GridControlResult.MainView = Me.GridViewResult
+        Me.GridControlResult.MenuManager = Me.RibbonControl1
+        Me.GridControlResult.Name = "GridControlResult"
+        Me.GridControlResult.Size = New System.Drawing.Size(838, 245)
+        Me.GridControlResult.TabIndex = 5
+        Me.GridControlResult.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewResult})
+        '
+        'GridViewResult
+        '
+        Me.GridViewResult.GridControl = Me.GridControlResult
+        Me.GridViewResult.Name = "GridViewResult"
+        '
+        'txtSQL
+        '
+        Me.txtSQL.Location = New System.Drawing.Point(20, 99)
+        Me.txtSQL.MenuManager = Me.RibbonControl1
+        Me.txtSQL.Name = "txtSQL"
+        Me.txtSQL.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSQL.Properties.Appearance.Options.UseFont = True
+        Me.txtSQL.Size = New System.Drawing.Size(1243, 199)
+        Me.txtSQL.StyleController = Me.LayoutControl1
+        Me.txtSQL.TabIndex = 4
+        '
+        'DropDownButton1
+        '
+        Me.DropDownButton1.Location = New System.Drawing.Point(853, 12)
+        Me.DropDownButton1.MenuManager = Me.RibbonControl1
+        Me.DropDownButton1.Name = "DropDownButton1"
+        Me.DropDownButton1.Size = New System.Drawing.Size(418, 22)
+        Me.DropDownButton1.StyleController = Me.LayoutControl1
+        Me.DropDownButton1.TabIndex = 8
+        Me.DropDownButton1.Text = "Dokument-Indizies"
+        '
+        'DropDownButton11
+        '
+        Me.DropDownButton11.Location = New System.Drawing.Point(433, 12)
+        Me.DropDownButton11.MenuManager = Me.RibbonControl11
+        Me.DropDownButton11.Name = "DropDownButton11"
+        Me.DropDownButton11.Size = New System.Drawing.Size(416, 22)
+        Me.DropDownButton11.StyleController = Me.LayoutControl1
+        Me.DropDownButton11.TabIndex = 8
+        Me.DropDownButton11.Text = "Controls (zur Laufzeit ausgewertet)"
+        '
+        'RibbonControl11
+        '
+        Me.RibbonControl11.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
+        Me.RibbonControl11.ExpandCollapseItem.Id = 0
+        Me.RibbonControl11.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl11.ExpandCollapseItem, Me.RibbonControl11.SearchEditItem, Me.BarButtonItem11, Me.BarButtonItem21})
+        Me.RibbonControl11.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl11.MaxItemId = 3
+        Me.RibbonControl11.Name = "RibbonControl11"
+        Me.RibbonControl11.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage11})
+        Me.RibbonControl11.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRibbonSearchEdit2})
+        Me.RibbonControl11.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl11.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
+        Me.RibbonControl11.ShowToolbarCustomizeItem = False
+        Me.RibbonControl11.Size = New System.Drawing.Size(1283, 55)
+        Me.RibbonControl11.StatusBar = Me.RibbonStatusBar11
+        Me.RibbonControl11.Toolbar.ShowCustomizeItem = False
+        '
+        'BarButtonItem11
+        '
+        Me.BarButtonItem11.Caption = "Speichern und schließen"
+        Me.BarButtonItem11.Id = 1
+        Me.BarButtonItem11.Name = "BarButtonItem11"
+        '
+        'BarButtonItem21
+        '
+        Me.BarButtonItem21.Caption = "SQL testen"
+        Me.BarButtonItem21.Id = 2
+        Me.BarButtonItem21.Name = "BarButtonItem21"
+        '
+        'RibbonPage11
+        '
+        Me.RibbonPage11.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup11})
+        Me.RibbonPage11.Name = "RibbonPage11"
+        Me.RibbonPage11.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup11
+        '
+        Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem11)
+        Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem21)
+        Me.RibbonPageGroup11.Name = "RibbonPageGroup11"
+        Me.RibbonPageGroup11.Text = "RibbonPageGroup1"
+        '
+        'RibbonStatusBar11
+        '
+        Me.RibbonStatusBar11.Location = New System.Drawing.Point(0, 757)
+        Me.RibbonStatusBar11.Name = "RibbonStatusBar11"
+        Me.RibbonStatusBar11.Ribbon = Me.RibbonControl11
+        Me.RibbonStatusBar11.Size = New System.Drawing.Size(1283, 22)
+        '
+        'DropDownButton2
+        '
+        Me.DropDownButton2.Location = New System.Drawing.Point(853, 38)
+        Me.DropDownButton2.MenuManager = Me.RibbonControl1
+        Me.DropDownButton2.Name = "DropDownButton2"
+        Me.DropDownButton2.Size = New System.Drawing.Size(418, 22)
+        Me.DropDownButton2.StyleController = Me.LayoutControl1
+        Me.DropDownButton2.TabIndex = 9
+        Me.DropDownButton2.Text = "Anwendungsdaten"
+        '
+        'DropDownButton3
+        '
+        Me.DropDownButton3.Location = New System.Drawing.Point(433, 38)
+        Me.DropDownButton3.MenuManager = Me.RibbonControl1
+        Me.DropDownButton3.Name = "DropDownButton3"
+        Me.DropDownButton3.Size = New System.Drawing.Size(416, 22)
+        Me.DropDownButton3.StyleController = Me.LayoutControl1
+        Me.DropDownButton3.TabIndex = 10
+        Me.DropDownButton3.Text = "Umgebungsinformationen"
+        '
+        'cmbConnections
+        '
+        Me.cmbConnections.Location = New System.Drawing.Point(20, 39)
+        Me.cmbConnections.MenuManager = Me.RibbonControl1
+        Me.cmbConnections.Name = "cmbConnections"
+        Me.cmbConnections.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.cmbConnections.Size = New System.Drawing.Size(401, 20)
+        Me.cmbConnections.StyleController = Me.LayoutControl1
+        Me.cmbConnections.TabIndex = 6
+        '
+        'Root
+        '
+        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.Root.GroupBordersVisible = False
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.SimpleLabelItem2, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.SimpleSeparator1, Me.SimpleLabelItem1, Me.SimpleSeparator2})
+        Me.Root.Name = "Root"
+        Me.Root.Size = New System.Drawing.Size(1283, 604)
+        Me.Root.TextVisible = False
+        '
+        'LayoutControlItem3
+        '
+        Me.LayoutControlItem3.Control = Me.cmbConnections
+        Me.LayoutControlItem3.ImageOptions.SvgImage = CType(resources.GetObject("LayoutControlItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.LayoutControlItem3.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
+        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(421, 59)
+        Me.LayoutControlItem3.Text = "SQL Verbindung"
+        Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(105, 16)
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.GridControlResult
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(421, 335)
+        Me.LayoutControlItem2.Name = "LayoutControlItem2"
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(842, 249)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem2.TextVisible = False
+        '
+        'LayoutControlItem4
+        '
+        Me.LayoutControlItem4.Control = Me.GridControlPlaceholders
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 335)
+        Me.LayoutControlItem4.Name = "LayoutControlItem4"
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(421, 249)
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem4.TextVisible = False
+        '
+        'SimpleLabelItem2
+        '
+        Me.SimpleLabelItem2.AllowHotTrack = False
+        Me.SimpleLabelItem2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleLabelItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.SimpleLabelItem2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
+        Me.SimpleLabelItem2.Location = New System.Drawing.Point(421, 299)
+        Me.SimpleLabelItem2.Name = "SimpleLabelItem2"
+        Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.SimpleLabelItem2.Size = New System.Drawing.Size(842, 36)
+        Me.SimpleLabelItem2.Text = "Ergebnis"
+        Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(105, 16)
+        '
+        'LayoutControlItem1
+        '
+        Me.LayoutControlItem1.Control = Me.txtSQL
+        Me.LayoutControlItem1.ImageOptions.SvgImage = CType(resources.GetObject("LayoutControlItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.LayoutControlItem1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 60)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(1263, 238)
+        Me.LayoutControlItem1.Text = "SQL Abfrage"
+        Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(105, 16)
+        '
+        'LayoutControlItem5
+        '
+        Me.LayoutControlItem5.Control = Me.DropDownButton1
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(841, 0)
+        Me.LayoutControlItem5.Name = "LayoutControlItem5"
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(422, 26)
+        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem5.TextVisible = False
+        '
+        'LayoutControlItem6
+        '
+        Me.LayoutControlItem6.Control = Me.DropDownButton11
+        Me.LayoutControlItem6.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
+        Me.LayoutControlItem6.CustomizationFormText = "LayoutControlItem5"
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(421, 0)
+        Me.LayoutControlItem6.Name = "LayoutControlItem6"
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(420, 26)
+        Me.LayoutControlItem6.Text = "LayoutControlItem5"
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem6.TextVisible = False
+        '
+        'LayoutControlItem7
+        '
+        Me.LayoutControlItem7.Control = Me.DropDownButton2
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(841, 26)
+        Me.LayoutControlItem7.Name = "LayoutControlItem7"
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(422, 33)
+        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem7.TextVisible = False
+        '
+        'LayoutControlItem8
+        '
+        Me.LayoutControlItem8.Control = Me.DropDownButton3
+        Me.LayoutControlItem8.Location = New System.Drawing.Point(421, 26)
+        Me.LayoutControlItem8.Name = "LayoutControlItem8"
+        Me.LayoutControlItem8.Size = New System.Drawing.Size(420, 33)
+        Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem8.TextVisible = False
+        '
+        'SimpleSeparator1
+        '
+        Me.SimpleSeparator1.AllowHotTrack = False
+        Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 298)
+        Me.SimpleSeparator1.Name = "SimpleSeparator1"
+        Me.SimpleSeparator1.Size = New System.Drawing.Size(1263, 1)
+        '
+        'SimpleLabelItem1
+        '
+        Me.SimpleLabelItem1.AllowHotTrack = False
+        Me.SimpleLabelItem1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleLabelItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.SimpleLabelItem1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
+        Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 299)
+        Me.SimpleLabelItem1.Name = "SimpleLabelItem1"
+        Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
+        Me.SimpleLabelItem1.Size = New System.Drawing.Size(421, 36)
+        Me.SimpleLabelItem1.Text = "Platzhalter"
+        Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(105, 16)
+        '
+        'SimpleSeparator2
+        '
+        Me.SimpleSeparator2.AllowHotTrack = False
+        Me.SimpleSeparator2.Location = New System.Drawing.Point(0, 59)
+        Me.SimpleSeparator2.Name = "SimpleSeparator2"
+        Me.SimpleSeparator2.Size = New System.Drawing.Size(1263, 1)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'frmSQLEditor
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1283, 692)
+        Me.Controls.Add(Me.LayoutControl1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmSQLEditor.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.Name = "frmSQLEditor"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "SQL Editor"
+        CType(Me.RepositoryItemRibbonSearchEdit2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.GridControlPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.BindingSourcePlaceholder, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewPlaceholder, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlResult, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewResult, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSQL.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RibbonControl11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cmbConnections.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SimpleSeparator2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
+    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 BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents GridControlResult As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewResult As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents txtSQL As DevExpress.XtraEditors.MemoEdit
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents GridControlPlaceholders As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewPlaceholder As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents DropDownButton1 As DevExpress.XtraEditors.DropDownButton
+    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem
+    Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem
+    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents DropDownButton11 As DevExpress.XtraEditors.DropDownButton
+    Friend WithEvents RibbonControl11 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPage11 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup11 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar11 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents DropDownButton2 As DevExpress.XtraEditors.DropDownButton
+    Friend WithEvents DropDownButton3 As DevExpress.XtraEditors.DropDownButton
+    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents RepositoryItemRibbonSearchEdit2 As DevExpress.XtraBars.Ribbon.Internal.RepositoryItemRibbonSearchEdit
+    Friend WithEvents colPlaceholder As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colReplacement As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarStaticItem2 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarStaticItem3 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents BindingSourcePlaceholder As BindingSource
+    Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator
+    Friend WithEvents SimpleSeparator2 As DevExpress.XtraLayout.SimpleSeparator
+    Friend WithEvents cmbConnections As DevExpress.XtraEditors.ComboBoxEdit
+End Class

Controls.SQLEditor/frmSQLEditor.resx

@@ -0,0 +1,367 @@
+<?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>
+  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="EditorButtonImageOptions1.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFUCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAxNiAxNiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAxNiAxNiI+DQogIDxz
+        dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuTWFza3tmaWxsOiM3MDcwNzA7fQoJLnN0MHtvcGFjaXR5OjAu
+        NTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJJbnNpZGVfQm9yZGVyIj4NCiAgICA8cGF0aCBkPSJNOS41LDJD
+        NywyLDUsNCw1LDYuNWMwLDEsMC4zLDEuOSwwLjksMi42bC00LjQsNC40bDEsMWw0LjQtNC40QzcuNiwx
+        MC43LDguNSwxMSw5LjUsMTFDMTIsMTEsMTQsOSwxNCw2LjUgICBTMTIsMiw5LjUsMnogTTkuNSwxMEM3
+        LjYsMTAsNiw4LjQsNiw2LjVTNy42LDMsOS41LDNTMTMsNC42LDEzLDYuNVMxMS40LDEwLDkuNSwxMHoi
+        IGNsYXNzPSJNYXNrIiAvPg0KICA8L2c+DQogIDxnIGlkPSJMYXllcl8yIiAvPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <metadata name="BindingSourcePlaceholder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3
+        LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8
+        L3N2Zz4L
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFoEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVXBkYXRlRGF0YUV4dHJhY3QiPg0KICAgIDxwYXRo
+        IGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0YzAsMi4yLTQuNSw0LTEwLDRT
+        NCwxMi4yLDQsMTB6IE0xNCwyMGMwLjUsMCwxLjEsMCwxLjYtMC4xICAgYzEuNi0yLjQsNC4zLTMuOSw3
+        LjQtMy45YzAuMywwLDAuNywwLDEsMC4xYzAsMCwwLDAsMC0wLjF2LTRjMCwyLjItNC41LDQtMTAsNFM0
+        LDE0LjIsNCwxMnY0QzQsMTguMiw4LjUsMjAsMTQsMjB6IE0xNCwyNEwxNCwyNCAgIGMwLjEtMC43LDAu
+        My0xLjQsMC41LTJjLTAuMiwwLTAuNCwwLTAuNSwwYy01LjUsMC0xMC0xLjgtMTAtNHY0YzAsMi4yLDQu
+        NSw0LDEwLDRWMjR6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAgIDxwYXRoIGQ9Ik0zMCwxOHY2aC0wLjFI
+        MjRsMi41LTIuNUMyNS42LDIwLjYsMjQuNCwyMCwyMywyMGMtMi40LDAtNC40LDEuNy00LjksNGgtMmMw
+        LjUtMy40LDMuNC02LDYuOS02ICAgYzEuOSwwLDMuNywwLjgsNC45LDIuMUwzMCwxOHogTTIzLDMwYy0x
+        LjQsMC0yLjYtMC42LTMuNS0xLjVMMjIsMjZoLTUuOUgxNnY2bDIuMS0yLjFjMS4zLDEuMywzLDIuMSw0
+        LjksMi4xYzMuNSwwLDYuNC0yLjYsNi45LTYgICBoLTJDMjcuNCwyOC4zLDI1LjQsMzAsMjMsMzB6IiBj
+        bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarStaticItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg
+        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
+        My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx
+        Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z
+        dmc+Cw==
+</value>
+  </data>
+  <data name="BarStaticItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2
+        LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy
+        Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy
+        ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAoEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRWRpdENvbm5lY3Rpb24iPg0K
+        ICAgIDxwYXRoIGQ9Ik0xOCwyNS45QzE3LjQsMjYsMTYuNywyNiwxNiwyNnMtMS40LDAtMi0wLjFWMjho
+        LTR2NGg0aDRoNHYtNGgtNFYyNS45eiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxwYXRoIGQ9Ik02LDEw
+        VjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0YzAsMi4yLTQuNSw0LTEwLDRTNiwxMi4yLDYs
+        MTB6IE0xNiwxNmMtNS41LDAtMTAtMS44LTEwLTR2NCAgIGMwLDIuMiw0LjUsNCwxMCw0czEwLTEuOCwx
+        MC00di00QzI2LDE0LjIsMjEuNSwxNiwxNiwxNnogTTE2LDIyYy01LjUsMC0xMC0xLjgtMTAtNHY0YzAs
+        Mi4yLDQuNSw0LDEwLDRzMTAtMS44LDEwLTR2LTQgICBDMjYsMjAuMiwyMS41LDIyLDE2LDIyeiIgY2xh
+        c3M9IlllbGxvdyIgLz4NCiAgICA8ZyBjbGFzcz0ic3QxIj4NCiAgICAgIDxwYXRoIGQ9Ik0xMCwzMkgy
+        di00aDhWMzJ6IE0zMCwyOGgtOHY0aDhWMjh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICA8
+        L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="LayoutControlItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAoEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRWRpdENvbm5lY3Rpb24iPg0K
+        ICAgIDxwYXRoIGQ9Ik0xOCwyNS45QzE3LjQsMjYsMTYuNywyNiwxNiwyNnMtMS40LDAtMi0wLjFWMjho
+        LTR2NGg0aDRoNHYtNGgtNFYyNS45eiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxwYXRoIGQ9Ik02LDEw
+        VjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0YzAsMi4yLTQuNSw0LTEwLDRTNiwxMi4yLDYs
+        MTB6IE0xNiwxNmMtNS41LDAtMTAtMS44LTEwLTR2NCAgIGMwLDIuMiw0LjUsNCwxMCw0czEwLTEuOCwx
+        MC00di00QzI2LDE0LjIsMjEuNSwxNiwxNiwxNnogTTE2LDIyYy01LjUsMC0xMC0xLjgtMTAtNHY0YzAs
+        Mi4yLDQuNSw0LDEwLDRzMTAtMS44LDEwLTR2LTQgICBDMjYsMjAuMiwyMS41LDIyLDE2LDIyeiIgY2xh
+        c3M9IlllbGxvdyIgLz4NCiAgICA8ZyBjbGFzcz0ic3QxIj4NCiAgICAgIDxwYXRoIGQ9Ik0xMCwzMkgy
+        di00aDhWMzJ6IE0zMCwyOGgtOHY0aDhWMjh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICA8
+        L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="SimpleLabelItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iRmllbGRfSGVhZGVycyIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l
+        dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3
+        O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxn
+        IGNsYXNzPSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0yMCwxOGgtOHYtNmg4VjE4eiBNMzAsMTJoLTh2Nmg4
+        VjEyeiBNMjAsMjBoLTh2Nmg4VjIweiBNMTAsMjBIMnY2aDhWMjB6IE0zMCwyMGgtOHY2aDhWMjB6IiBj
+        bGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCiAgPHBhdGggZD0iTTEyLDR2NmgxOFY0SDEyeiBNMTYsOGwt
+        Mi0yaDRMMTYsOHogTTIsMTJ2Nmg4di02SDJ6IE02LDE2bC0yLTJoNEw2LDE2eiIgY2xhc3M9IkJsdWUi
+        IC8+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="LayoutControlItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRmlsdGVyUXVlcnkiPg0KICAg
+        IDxwYXRoIGQ9Ik04LDEwSDB2Nmg4VjEweiBNOCwySDB2Nmg4VjJ6IE0xOCwyaC04djZoOFYyeiBNMTgs
+        MTBoLTh2Nmg4VjEweiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxnIGNsYXNzPSJzdDEiPg0KICAgICAg
+        PHBhdGggZD0iTTI4LDE2aC04di02aDhWMTZ6IE0yOCwyaC04djZoOFYyeiBNMCwyNGg4di02SDBWMjR6
+        IE0xNC4zLDIxLjFjLTAuMi0wLjItMC4zLTAuNC0wLjMtMC43VjE4aC00djZoNy4yICAgIEwxNC4zLDIx
+        LjF6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMTYsMTgg
+        MzIsMTggMzIsMjAgMjYsMjYgMjYsMzIgMjIsMzIgMjIsMjYgMTYsMjAgICIgY2xhc3M9IlllbGxvdyIg
+        Lz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="SimpleLabelItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iVGl0bGVfMV8iPg0KICAgIDxw
+        YXRoIGQ9Ik0yOSwxNEgxYy0wLjUsMC0xLDAuNS0xLDF2MTJjMCwwLjUsMC41LDEsMSwxaDI4YzAuNSww
+        LDEtMC41LDEtMVYxNUMzMCwxNC41LDI5LjUsMTQsMjksMTR6ICAgIE0yOCwyNkgyVjE2aDI2VjI2eiBN
+        MjIuOSwxMS4yQzIzLjcsMTAuNiwyNCwxMCwyNCw5YzAtMC42LTAuMi0xLjItMC43LTEuNmMtMC41LTAu
+        NC0xLjEtMC43LTEuOC0wLjhjMC42LTAuMiwxLjEtMC41LDEuNS0wLjkgICBjMC40LTAuNCwwLjYtMC45
+        LDAuNi0xLjRjMC0wLjctMC4zLTEuMy0wLjktMS43QzIyLjEsMi4yLDIxLjEsMiwxOS45LDJIMTZ2OS45
+        VjEyaDRDMjEuMiwxMiwyMi4zLDExLjgsMjIuOSwxMS4yeiBNMTguNCwzLjdoMC45ICAgYzEuMSwwLDEu
+        NywwLjQsMS43LDEuMWMwLDAuNC0wLjEsMC43LTAuNCwwLjlDMjAuNCw1LjksMjAsNiwxOS41LDZoLTEu
+        MVYzLjd6IE0xOC40LDEwLjJWNy42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjMgICBjMC4zLDAuMiww
+        LjUsMC42LDAuNSwwLjljMCwwLjQtMC4xLDAuNy0wLjUsMWMtMC4zLDAuMi0wLjgsMC40LTEuMywwLjRI
+        MTguNHogTTguOSw5LjhoMy4ybDAuNiwyLjNIMTVMMTEuOCwySDkuNEw2LjEsMTJoMi4yICAgTDguOSw5
+        Ljh6IE0xMC40LDQuN2MwLjEtMC4zLDAuMS0wLjYsMC4xLTAuOWgwLjFjMCwwLjMsMC4xLDAuNiwwLjEs
+        MC45bDEsMy4zSDkuNEwxMC40LDQuN3oiIGlkPSJUaXRsZSIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+
+        DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="frmSQLEditor.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOwDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRWRpdERhdGFT
+        b3VyY2UiPg0KICAgIDxwYXRoIGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0
+        YzAsMi4yLTQuNSw0LTEwLDRTNCwxMi4yLDQsMTB6IE0yNCwxOEwyNCwxOEMyNCwxOCwyNCwxOCwyNCwx
+        OCAgIEMyNCwxOCwyNCwxOCwyNCwxOHogTTE0LDIwYzUuNSwwLDEwLTEuOCwxMC00di00YzAsMi4yLTQu
+        NSw0LTEwLDRTNCwxNC4yLDQsMTJ2NEM0LDE4LjIsOC41LDIwLDE0LDIweiBNMTUuMiwyNmw0LjgtNC44
+        ICAgYy0xLjcsMC41LTMuNywwLjgtNiwwLjhjLTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQs
+        MTAsNEMxNC40LDI2LDE0LjgsMjYsMTUuMiwyNnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg
+        ZD0iTTI5LDIzbC04LDhsLTQtNGw4LThMMjksMjN6IE0zMCwyMmwxLjctMS43YzAuNC0wLjQsMC40LTEs
+        MC0xLjNMMjksMTYuM2MtMC40LTAuNC0xLTAuNC0xLjMsMEwyNiwxOEwzMCwyMnogICAgTTE2LDI4djRo
+        NEwxNiwyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+</root>

Controls.SQLEditor/frmSQLEditor.vb

@@ -0,0 +1,145 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Patterns
+Imports DigitalData.Modules.Language.Utils
+Imports DigitalData.GUIs.Common
+Imports DevExpress.XtraGrid.Views.Grid
+
+Public Class frmSQLEditor
+    Public SQLString As String
+
+    Private LogConfig As LogConfig
+    Private SQLServer As MSSQLServer
+    Private CurrentPosition As String
+
+    Private Placeholders As New List(Of Placeholder)
+    Private Connections As New List(Of Connection)
+
+    Private Patterns As ClassPatterns
+
+    Friend Class Placeholder
+        Public Property Placeholder As String
+        Public Property Replacement As String
+    End Class
+
+    Friend Class Connection
+        Public Property Guid As Integer
+        Public Property Name As String
+        Public Property Description As String
+        Public Property Provider As String
+        Public Property Server As String
+        Public Property Database As String
+        Public Property Username As String
+        Public Property Password As String
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+    Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer)
+        MyBase.New(LogConfig)
+        InitializeComponent()
+
+        Me.LogConfig = LogConfig
+        Me.SQLServer = SQLServer
+        Patterns = New ClassPatterns(LogConfig)
+    End Sub
+
+    Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            txtSQL.Text = SQLString
+
+            BindingSourcePlaceholder.DataSource = Placeholders
+            Placeholders.Clear()
+
+            Connections = Load_SQLConnections()
+
+            Dim oViews As New List(Of GridView) From {GridViewResult, GridViewPlaceholder}
+            Dim oGridBuilder As New GridBuilder(oViews)
+            oGridBuilder.
+                WithDefaults().
+                WithReadOnlyOptions(GridViewResult)
+
+            cmbConnections.Properties.Items.Clear()
+            For Each oConnection In Connections
+                cmbConnections.Properties.Items.Add(oConnection)
+            Next
+        Catch ex As Exception
+            ShowErrorMessage(ex)
+        End Try
+    End Sub
+
+    Private Function Load_SQLConnections()
+        Try
+            Dim oSQL As String = "SELECT * FROM TBDD_CONNECTION"
+            Dim oTable As DataTable = SQLServer.GetDatatable(oSQL)
+            Dim oConnections As New List(Of Connection)
+
+            For Each oRow As DataRow In oTable.Rows
+                oConnections.Add(New Connection With {
+                    .Guid = NotNull(oRow.Item("GUID"), String.Empty),
+                    .Name = NotNull(oRow.Item("BEZEICHNUNG"), String.Empty),
+                    .Provider = NotNull(oRow.Item("SQL_PROVIDER"), String.Empty),
+                    .Database = NotNull(oRow.Item("DATENBANK"), String.Empty),
+                    .Description = NotNull(oRow.Item("BEMERKUNG"), String.Empty),
+                    .Password = NotNull(oRow.Item("PASSWORD"), String.Empty),
+                    .Server = NotNull(oRow.Item("SERVER"), String.Empty),
+                    .Username = NotNull(oRow.Item("USERNAME"), String.Empty)
+                })
+            Next
+
+            Return oConnections
+        Catch ex As Exception
+            ShowErrorMessage(ex)
+            Return New List(Of Connection)
+        End Try
+    End Function
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        SQLString = txtSQL.Text
+        DialogResult = DialogResult.OK
+        Close()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        If cmbConnections.SelectedItem Is Nothing Then
+            ShowErrorMessage("Bitte wählen sie eine Datenbank Verbindung!")
+            Exit Sub
+        End If
+
+        Try
+            Dim oSQL As String = txtSQL.EditValue.ToString
+            Dim oConnection As Connection = cmbConnections.SelectedItem
+            Dim oConnectionString = SQLServer.GetConnectionString(oConnection.Server, oConnection.Database, oConnection.Username, oConnection.Password)
+            Dim oTable As DataTable = SQLServer.GetDatatableWithConnection(oSQL, oConnectionString)
+
+            GridControlResult.DataSource = oTable
+        Catch ex As Exception
+            ShowErrorMessage(ex)
+        End Try
+    End Sub
+
+    Private Sub txtSQL_EditValueChanged(sender As Object, e As EventArgs) Handles txtSQL.EditValueChanged
+        CurrentPosition = txtSQL.SelectionStart
+        Dim oValue = txtSQL.EditValue.ToString.Trim
+
+        If oValue.Length > 0 Then
+            GridControlPlaceholders.Enabled = True
+            CheckForPlaceholders(txtSQL.EditValue)
+        Else
+            GridControlPlaceholders.Enabled = False
+        End If
+    End Sub
+
+    Private Sub CheckForPlaceholders(Text As String)
+        Placeholders.Clear()
+
+        For Each oPattern In Patterns.GetAllPatterns(Text)
+            Placeholders.Add(New Placeholder With {
+                .Placeholder = oPattern.ToString,
+                .Replacement = ""
+            })
+        Next
+    End Sub
+End Class

Controls.SQLEditor/packages.config

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="NLog" version="4.7.5" targetFramework="net461" />
+</packages>

DDMonorepo.sln

@@ -126,6 +126,12 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDMI.File.Test", "Modules.E
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GlobalIndexer", "GUIs.GlobalIndexer\GlobalIndexer.vbproj", "{40384B94-1F94-4249-9A5A-D02E0B346738}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SQLEditor", "Controls.SQLEditor\SQLEditor.vbproj", "{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SQLConfig", "SQLConfig\SQLConfig.vbproj", "{65EFB268-C0E0-40C1-8981-9F70DEE5C74A}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Monitor", "GUIs.Monitor\Monitor.vbproj", "{E24E8D40-0361-4C07-8FAE-3621DE316E70}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -332,6 +338,18 @@ Global
 		{40384B94-1F94-4249-9A5A-D02E0B346738}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{40384B94-1F94-4249-9A5A-D02E0B346738}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{40384B94-1F94-4249-9A5A-D02E0B346738}.Release|Any CPU.Build.0 = Release|Any CPU
+		{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Release|Any CPU.Build.0 = Release|Any CPU
+		{65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Release|Any CPU.Build.0 = Release|Any CPU
+		{E24E8D40-0361-4C07-8FAE-3621DE316E70}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{E24E8D40-0361-4C07-8FAE-3621DE316E70}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{E24E8D40-0361-4C07-8FAE-3621DE316E70}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{E24E8D40-0361-4C07-8FAE-3621DE316E70}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
@@ -387,6 +405,9 @@ Global
 		{1477032D-7A02-4C5F-B026-A7117DA4BC6B} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}
 		{16857A4E-2609-47E6-9C35-7669D64DD040} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}
 		{40384B94-1F94-4249-9A5A-D02E0B346738} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB}
+		{3E7BC8A9-91EF-49B8-8110-2C01F664C24A} = {F98C0329-C004-417F-B2AB-7466E88D8220}
+		{65EFB268-C0E0-40C1-8981-9F70DEE5C74A} = {F98C0329-C004-417F-B2AB-7466E88D8220}
+		{E24E8D40-0361-4C07-8FAE-3621DE316E70} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286}

GUIs.Common/Base/BaseErrorHandler.vb

@@ -8,18 +8,30 @@ Namespace Base
         Private _Logger As Logger
         Private _Form As Form
 
-        Private Const UNKNOWN_METHOD = "Unknown Method"
-        Private Const UNKNOWN_FORM = "Unknown Form"
-
         Public Sub New(LogConfig As LogConfig, Logger As Logger, Form As Form)
             _LogConfig = LogConfig
             _Logger = Logger
             _Form = Form
         End Sub
 
-        Public Sub ShowErrorMessage(Exception As Exception)
+        Public Sub ShowErrorMessage(Exception As Exception, Origin As String)
+            Dim oMessage = GetMessage(Exception, Origin)
+            ShowErrorMessage(Exception, Origin, oMessage)
+        End Sub
+
+        Public Sub ShowErrorMessage(Exception As Exception, Origin As String, Message As String)
             _Logger.Error(Exception)
-            MessageBox.Show(GetMessage(Exception), _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+            MessageBox.Show(Message, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Sub
+
+        Public Sub ShowErrorMessage(Text As String)
+            _Logger.Info(Text)
+            MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Sub
+
+        Public Sub ShowWarningMessage(Text As String)
+            _Logger.Info(Text)
+            MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
         End Sub
 
         Public Sub ShowInfoMessage(Text As String)
@@ -27,10 +39,7 @@ Namespace Base
             MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
         End Sub
 
-        Private Function GetMessage(Exception As Exception) As String
+        Private Function GetMessage(Exception As Exception, Origin As String) As String
-            Dim oTargetSite = Exception.TargetSite
-            Dim oMethodName = GetMethodName(Exception)
-            Dim oFormName = GetFormName(Exception)
             Dim oMessage As String = String.Empty
 
             If TypeOf Exception Is SqlClient.SqlException Then
@@ -38,66 +47,25 @@ Namespace Base
                 Select Case oNumber
                     Case 2627
                         oMessage = "Es wurde ein Doppelter Wert in eine Spalte eingetragen, die einzigartig sein muss."
+                    Case Else
+                        oMessage = Exception.Message
                 End Select
             ElseIf TypeOf Exception Is NoNullAllowedException Then
                 oMessage = "Einige benötigte Felder wurde nicht ausgefüllt."
             Else
-                oMessage = $"Es ist ein unerwarteter Fehler in {oFormName}/{oMethodName} aufgetreten. Mehr Informationen finden Sie im Log."
+                oMessage = $"An unhandled exception occurred in {Origin}: " & vbNewLine &
+                    Exception.Message & vbNewLine & vbNewLine &
+                    "More information can be found in the Application Log."
             End If
 
             If _LogConfig.Debug Then
-                oMessage &= vbNewLine & vbNewLine & "== Debug Informationen =="
+                oMessage &= vbNewLine & vbNewLine & "=== Debug Information ==="
-                oMessage &= vbNewLine & vbNewLine & "Die ursprüngliche Fehlermeldung lautet:"
-                oMessage &= vbNewLine & Exception.Message
                 oMessage &= vbNewLine & vbNewLine & "Stacktrace:"
                 oMessage &= vbNewLine & Exception.StackTrace
             End If
 
             Return oMessage
         End Function
-
-        'Private Function GetMessage(Exception As Exception) As String
-        '    Dim oTargetSite = Exception.TargetSite
-        '    Dim oMethodName = GetMethodName(Exception)
-        '    Dim oFormName = GetFormName(Exception)
-        '    Dim oMessage As String = String.Empty
-
-        '    oMessage &= $"Form: {oFormName}{vbNewLine}"
-        '    oMessage &= $"Method: {oMethodName}{vbNewLine}"
-
-        '    If Not String.IsNullOrEmpty(Exception.StackTrace) Then
-        '        oMessage &= $"Message: {Exception.Message}{vbNewLine}{vbNewLine}"
-        '    End If
-
-        '    If Not String.IsNullOrEmpty(Exception.StackTrace) Then
-        '        oMessage &= $"Stacktrace: {Exception.StackTrace}{vbNewLine}"
-        '    End If
-
-        '    oMessage &= $"{vbNewLine}"
-        '    oMessage &= $"Please report this error to error@digitaldata.works"
-
-        '    Return oMessage
-        'End Function
-
-        Private Function GetMethodName(Exception As Exception) As String
-            Dim oMethodName = Exception.TargetSite?.Name
-
-            If oMethodName Is Nothing Then
-                Return UNKNOWN_METHOD
-            Else
-                Return oMethodName
-            End If
-        End Function
-
-        Private Function GetFormName(Exception As Exception) As String
-            Dim oFormName = Exception.TargetSite?.ReflectedType?.Name
-
-            If oFormName Is Nothing Then
-                Return UNKNOWN_FORM
-            Else
-                Return oFormName
-            End If
-        End Function
     End Class
 
 End Namespace

GUIs.Common/Base/BaseForm.vb

@@ -0,0 +1,50 @@
+
+Imports DevExpress.XtraEditors
+Imports DigitalData.Modules.Logging
+
+Namespace Base
+    Public Class BaseForm
+        Inherits XtraForm
+
+        Private ReadOnly _Logger As Logger
+        Private ReadOnly _ErrorHandler As BaseErrorHandler
+
+        Protected ReadOnly Property Logger As Logger
+            Get
+                Return _Logger
+            End Get
+        End Property
+
+        Public Sub New()
+        End Sub
+
+        Public Sub New(LogConfig As LogConfig)
+            ' Get the full name of the inheriting form
+            ' so the log messages have the right classname
+            Dim oClassName = [GetType]().FullName
+
+            ' My.LogConfig is undefined in the designer
+            _Logger = LogConfig.GetLogger(oClassName)
+            _ErrorHandler = New BaseErrorHandler(LogConfig, _Logger, Me)
+
+            ' When you add something, be careful if it 
+            ' depends on a global var like My.LogConfig
+            ' you might need to check for its existence with ?
+        End Sub
+
+        ''' ============== PUBLIC METHODS ==============
+        Public Sub ShowInfoMessage(Message As String)
+            _ErrorHandler.ShowInfoMessage(Message)
+        End Sub
+
+        Public Sub ShowErrorMessage(Exception As Exception)
+            Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
+            _ErrorHandler.ShowErrorMessage(Exception, oCallingClass)
+        End Sub
+
+        Public Sub ShowErrorMessage(ErrorMessage As String)
+            _ErrorHandler.ShowErrorMessage(ErrorMessage)
+        End Sub
+    End Class
+End Namespace
+

GUIs.Common/Base/BaseRibbonForm.vb

@@ -5,14 +5,16 @@ Imports DigitalData.Modules.Logging
 Namespace Base
     ''' <summary>
     ''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms
-    ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.:
+    ''' </summary>
+    ''' <example>
+    ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form.
     ''' 
     ''' Partial Class frmExample
     '''     Inherits BaseRibbonForm
     '''     
     '''     ... 
     ''' End Class
-    ''' </summary>
+    ''' </example>
     Public Class BaseRibbonForm
         Inherits RibbonForm
 
@@ -43,13 +45,18 @@ Namespace Base
         End Sub
 
         ''' ============== PUBLIC METHODS ==============
+        Public Sub ShowInfoMessage(Message As String)
+            _ErrorHandler.ShowInfoMessage(Message)
+        End Sub
 
         Public Sub ShowErrorMessage(Exception As Exception)
-            _ErrorHandler.ShowErrorMessage(Exception)
+            Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
+            _ErrorHandler.ShowErrorMessage(Exception, oCallingClass)
         End Sub
 
         Public Sub ShowErrorMessage(ErrorMessage As String)
-            _ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage))
+            Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
+            _ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage), oCallingClass)
         End Sub
     End Class
 End Namespace

GUIs.Common/Common.vbproj

@@ -89,6 +89,9 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="Base\BaseErrorHandler.vb" />
+    <Compile Include="Base\BaseForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Base\BaseResult.vb" />
     <Compile Include="Base\BaseRibbonForm.vb">
       <SubType>Form</SubType>
@@ -114,6 +117,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="DocumentResultList\DocumentResultCache.vb" />
+    <Compile Include="GridBuilder.vb" />
     <Compile Include="IResultForm.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">

GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb

@@ -68,13 +68,15 @@ Public Class DocumentPropertyMenu
     Public Function GetLegacyMenuItems() As List(Of DXMenuItem)
         Dim oOpenFile = New DXMenuItem(OPEN_FILE, AddressOf OpenFile_Click)
         Dim oOpenFolder = New DXMenuItem(OPEN_DIRECTORY, AddressOf OpenFolder_Click)
-        Dim oCopyPath = New DXMenuItem(COPY_FILE_PATH, AddressOf CopyFilePath_Click)
+        Dim oCopyFilePath = New DXMenuItem(COPY_FILE_PATH, AddressOf CopyFilePath_Click)
+        Dim oCopyFolderPath = New DXMenuItem(COPY_FOLDER_PATH, AddressOf CopyFolderPath_Click)
         Dim oProperties = New DXMenuItem(OPEN_PROPERTIES, AddressOf Properties_Click_Legacy)
 
         Return New List(Of DXMenuItem) From {
             oOpenFile,
             oOpenFolder,
-            oCopyPath,
+            oCopyFilePath,
+            oCopyFolderPath,
             oProperties
         }
     End Function

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -560,24 +560,28 @@ Public Class frmDocumentResultList
     End Sub
 
     Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
-        If e.RowHandle < 0 Then
+        Try
-            Exit Sub
+            If e.RowHandle < 0 Then
-        End If
+                Exit Sub
+            End If
 
-        Dim oView As GridView = TryCast(sender, GridView)
+            e.DefaultDraw()
-        Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
-        Dim oRow As DataRow = oView.GetDataRow(e.RowHandle)
-        Dim oValue = oRow.Item(COLUMN_FILENAME)
 
-        e.DefaultDraw()
+            Dim oView As GridView = TryCast(sender, GridView)
+            Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
+            Dim oRow As DataRow = oView.GetDataRow(e.RowHandle)
+            Dim oValue = oRow.Item(COLUMN_FILENAME)
 
-        If e.Column.FieldName = COLUMN_ICON Then
+            If e.Column.FieldName = COLUMN_ICON Then
-            Dim oIcon = _Helpers.GetIconByExtension(oValue)
+                Dim oIcon = _Helpers.GetIconByExtension(oValue)
-            Dim offsetX = 0
+                Dim offsetX = 0
-            Dim offsetY = 0
+                Dim offsetY = 0
 
-            e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
+                e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
-        End If
+            End If
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
     End Sub
 
     Private Function TryGetItem(DataRow As DataRow, ColumnName As String, Optional DefaultValue As String = "") As String

GUIs.Common/GridBuilder.vb

@@ -0,0 +1,56 @@
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+
+Public Class GridBuilder
+    Public ReadOnly Property Views As New List(Of GridView)
+
+    Public Sub New(GridView As GridView)
+        Views.Add(GridView)
+    End Sub
+
+    Public Sub New(GridViews As List(Of GridView))
+        Views.AddRange(GridViews)
+    End Sub
+
+    ''' <summary>
+    ''' Applies common properties to all GridViews
+    ''' </summary>
+    Public Function WithDefaults() As GridBuilder
+        For Each oView In Views
+            WithDefaults(oView)
+        Next
+
+        Return Me
+    End Function
+
+    ''' <summary>
+    ''' Applies common properties to the supplied GridView
+    ''' </summary>
+    Public Function WithDefaults(GridView As GridView)
+        GridView.OptionsView.EnableAppearanceEvenRow = True
+        GridView.OptionsView.ShowAutoFilterRow = True
+
+        Return Me
+    End Function
+
+    ''' <summary>
+    ''' Applies read-only properties to all GridViews
+    ''' </summary>
+    Public Function WithReadOnlyOptions() As GridBuilder
+        For Each oView In Views
+            WithReadOnlyOptions(oView)
+        Next
+
+        Return Me
+    End Function
+
+    ''' <summary>
+    ''' Applies read-only properties to the supplied GridView
+    ''' </summary>
+    Public Function WithReadOnlyOptions(GridView As GridView) As GridBuilder
+        GridView.OptionsBehavior.Editable = False
+        GridView.OptionsBehavior.ReadOnly = True
+
+        Return Me
+    End Function
+End Class

GUIs.Common/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.7.0.0")>
+<Assembly: AssemblyVersion("1.7.5.0")>
-<Assembly: AssemblyFileVersion("1.7.0.0")>
+<Assembly: AssemblyFileVersion("1.7.5.0")>

GUIs.Monitor/Config.vb

@@ -0,0 +1,6 @@
+Imports DigitalData.Modules.Config.ConfigAttributes
+
+Public Class Config
+    <ConnectionString>
+    Public Property ConnectionString As String = String.Empty
+End Class

GUIs.Monitor/Monitor.vbproj

@@ -0,0 +1,168 @@
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>8.0.30703</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{E24E8D40-0361-4C07-8FAE-3621DE316E70}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <RootNamespace>DigitalData.GUIs.Monitor</RootNamespace>
+    <AssemblyName>DigitalData.GUIs.Monitor</AssemblyName>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <StartupObject>Monitor.Program</StartupObject>
+    <FileAlignment>512</FileAlignment>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionStrict>Off</OptionStrict>
+    <OptionInfer>On</OptionInfer>
+    <TargetFrameworkProfile />
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <ErrorReport>prompt</ErrorReport>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <ErrorReport>prompt</ErrorReport>
+  </PropertyGroup>
+  <PropertyGroup>
+    <MyType>WindowsForms</MyType>
+  </PropertyGroup>
+  <PropertyGroup>
+    <StartupObject>DigitalData.GUIs.Monitor.My.MyApplication</StartupObject>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DevExpress.BonusSkins.v19.2" />
+    <Reference Include="DevExpress.Data.v19.2" />
+    <Reference Include="DevExpress.Printing.v19.2.Core" />
+    <Reference Include="DevExpress.Utils.v19.2" />
+    <Reference Include="DevExpress.XtraBars.v19.2" />
+    <Reference Include="DevExpress.Sparkline.v19.2.Core" />
+    <Reference Include="DevExpress.XtraEditors.v19.2" />
+    <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.4.7.5\lib\net45\NLog.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Configuration" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Transactions" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Config.vb" />
+    <Compile Include="frmStart.Designer.vb">
+      <DependentUpon>frmStart.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmStart.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <EmbeddedResource Include="frmStart.resx">
+      <DependentUpon>frmStart.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Resources.resx</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <None Include="app.config" />
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <None Include="packages.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\GUIs.Common\Common.vbproj">
+      <Project>{d20a6bf2-c7c6-4a7a-b34d-fa27d775a049}</Project>
+      <Name>Common</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\Modules.Config\Config.vbproj">
+      <Project>{44982f9b-6116-44e2-85d0-f39650b1ef99}</Project>
+      <Name>Config</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\Modules.Database\Database.vbproj">
+      <Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
+      <Name>Database</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\Modules.Logging\Logging.vbproj">
+      <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
+      <Name>Logging</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\SQLConfig\SQLConfig.vbproj">
+      <Project>{65efb268-c0e0-40c1-8981-9f70dee5c74a}</Project>
+      <Name>SQLConfig</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\charttype_line.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\gettingstarted.svg" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- 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">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

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

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    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.DigitalData.GUIs.Monitor.frmStart
+        End Sub
+    End Class
+End Namespace

GUIs.Monitor/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?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>frmStart</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

GUIs.Monitor/My Project/AssemblyInfo.vb

@@ -0,0 +1,36 @@
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following 
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+<Assembly: AssemblyTitle("Monitor")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyConfiguration("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("Monitor")>
+<Assembly: AssemblyCopyright("Copyright ©  2021")>
+<Assembly: AssemblyTrademark("")>
+<Assembly: AssemblyCulture("")>
+
+' Setting ComVisible to false makes the types in this assembly not visible 
+' to COM components.  If you need to access a type in this assembly from 
+' COM, set the ComVisible attribute to true on that type.
+<Assembly: ComVisible(False)>
+
+' The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("c20b63ff-4512-4b80-90d8-b7e90d7a9328")>
+
+' Version information for an assembly consists of the following four values:
+'
+'      Major Version
+'      Minor Version 
+'      Build Number
+'      Revision
+'
+' 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.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

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

@@ -0,0 +1,83 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.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>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</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("DigitalData.GUIs.Monitor.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property charttype_line() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("charttype_line", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property gettingstarted() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("gettingstarted", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+    End Module
+End Namespace

GUIs.Monitor/My Project/Resources.resx

@@ -0,0 +1,127 @@
+<?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>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="charttype_line" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\charttype_line.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="gettingstarted" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+</root>

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

@@ -0,0 +1,71 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+
+<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)
+    
+#Region "Automatische My.Settings-Speicherfunktion"
+#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(sender As Global.System.Object, 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 Settings
+        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
+
+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.DigitalData.GUIs.Monitor.Settings
+            Get
+                Return Global.DigitalData.GUIs.Monitor.Settings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

GUIs.Monitor/My Project/Settings.settings

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

GUIs.Monitor/My Project/licenses.licx

@@ -0,0 +1,6 @@
+DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

GUIs.Monitor/Resources/charttype_line.svg

@@ -0,0 +1,20 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Red{fill:#D11C1C;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{opacity:0.35;}
+	.st3{opacity:0.65;}
+</style>
+  <g id="Line">
+    <path d="M29,10c-1.7,0-3,1.3-3,3c0,0.5,0.1,0.9,0.3,1.3l-10,10C15.9,24.1,15.5,24,15,24c-0.6,0-1.1,0.2-1.5,0.4   L5.8,18C5.9,17.7,6,17.4,6,17c0-1.7-1.3-3-3-3s-3,1.3-3,3s1.3,3,3,3c0.6,0,1.1-0.2,1.5-0.4l7.7,6.4c-0.1,0.3-0.2,0.7-0.2,1   c0,1.7,1.3,3,3,3s3-1.3,3-3c0-0.5-0.1-0.9-0.3-1.3l10-10c0.4,0.2,0.8,0.3,1.3,0.3c1.7,0,3-1.3,3-3S30.7,10,29,10z M3,18   c-0.6,0-1-0.4-1-1s0.4-1,1-1s1,0.4,1,1S3.6,18,3,18z M15,28c-0.6,0-1-0.4-1-1s0.4-1,1-1s1,0.4,1,1S15.6,28,15,28z M29,14   c-0.6,0-1-0.4-1-1s0.4-1,1-1s1,0.4,1,1S29.6,14,29,14z" class="Yellow" />
+    <path d="M29,20c-1,0-1.9,0.5-2.4,1.3L18,18.8c-0.1-1.6-1.4-2.8-3-2.8c-1.7,0-3,1.3-3,3c0,0.4,0.1,0.7,0.2,1l-7.7,6.4   C4.1,26.2,3.6,26,3,26c-1.7,0-3,1.3-3,3s1.3,3,3,3s3-1.3,3-3c0-0.4-0.1-0.7-0.2-1l7.7-6.4c0.4,0.3,1,0.4,1.5,0.4   c1,0,1.9-0.5,2.4-1.3l8.6,2.5c0.1,1.6,1.4,2.8,3,2.8c1.7,0,3-1.3,3-3S30.7,20,29,20z M3,30c-0.6,0-1-0.4-1-1s0.4-1,1-1s1,0.4,1,1   S3.6,30,3,30z M15,20c-0.6,0-1-0.4-1-1s0.4-1,1-1s1,0.4,1,1S15.6,20,15,20z M29,24c-0.6,0-1-0.4-1-1s0.4-1,1-1s1,0.4,1,1   S29.6,24,29,24z" class="Blue" />
+    <path d="M29,0c-1.7,0-3,1.3-3,3c0,0.2,0,0.4,0.1,0.5l-9.2,5.2C16.4,8.3,15.7,8,15,8c-0.8,0-1.5,0.3-2.1,0.8L6,5.4   C6,5.2,6,5.1,6,5c0-1.7-1.3-3-3-3S0,3.3,0,5s1.3,3,3,3c0.8,0,1.5-0.3,2.1-0.8l6.9,3.5c0,0.1,0,0.2,0,0.3c0,1.7,1.3,3,3,3s3-1.3,3-3   c0-0.1,0-0.3,0-0.4l9.1-5.2C27.6,5.7,28.3,6,29,6c1.7,0,3-1.3,3-3S30.7,0,29,0z M3,6C2.4,6,2,5.6,2,5s0.4-1,1-1c0.6,0,1,0.4,1,1   S3.6,6,3,6z M15,12c-0.6,0-1-0.4-1-1s0.4-1,1-1c0.6,0,1,0.4,1,1S15.6,12,15,12z M29,4c-0.6,0-1-0.4-1-1s0.4-1,1-1c0.6,0,1,0.4,1,1   S29.6,4,29,4z" class="Red" />
+  </g>
+</svg>

GUIs.Monitor/Resources/gettingstarted.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{display:none;}
+	.st2{display:inline;fill:#039C23;}
+	.st3{display:inline;fill:#D11C1C;}
+	.st4{display:inline;fill:#727272;}
+</style>
+  <g id="GettingStarted">
+    <path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M12,22V10l10,6L12,22z" class="Green" />
+  </g>
+</svg>

GUIs.Monitor/app.config

@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
+      <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
+    </sectionGroup>
+  </configSections>
+  <applicationSettings>
+    <DevExpress.LookAndFeel.Design.AppSettings>
+      <setting name="DPIAwarenessMode" serializeAs="String">
+        <value>System</value>
+      </setting>
+      <setting name="RegisterBonusSkins" serializeAs="String">
+        <value>True</value>
+      </setting>
+    </DevExpress.LookAndFeel.Design.AppSettings>
+  </applicationSettings>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
+  </startup>
+  <system.diagnostics>
+    <sources>
+      <!-- This section defines the logging configuration for My.Application.Log -->
+      <source name="DefaultSource" switchName="DefaultSwitch">
+        <listeners>
+          <add name="FileLog"/>
+          <!-- Uncomment the below section to write to the Application Event Log -->
+          <!--<add name="EventLog"/>-->
+        </listeners>
+      </source>
+    </sources>
+    <switches>
+      <add name="DefaultSwitch" value="Information"/>
+    </switches>
+    <sharedListeners>
+      <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+      <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+      <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+    </sharedListeners>
+  </system.diagnostics>
+</configuration>

GUIs.Monitor/frmStart.Designer.vb

@@ -0,0 +1,327 @@
+Imports DigitalData.GUIs.Common.Base
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmStart
+    '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()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
+        Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
+        Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
+        Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit()
+        Me.DockPanel2 = New DevExpress.XtraBars.Docking.DockPanel()
+        Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
+        Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
+        Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel()
+        Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.DockPanel1.SuspendLayout()
+        Me.DockPanel1_Container.SuspendLayout()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.DockPanel2.SuspendLayout()
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.DockPanel3.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 2
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.Size = New System.Drawing.Size(1085, 159)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Suchen"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1085, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'DockManager1
+        '
+        Me.DockManager1.Form = Me
+        Me.DockManager1.HiddenPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1})
+        Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel2, Me.DockPanel3})
+        Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"})
+        '
+        'DockPanel1
+        '
+        Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
+        Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
+        Me.DockPanel1.ID = New System.Guid("52706dba-4c71-4145-b8a3-5f5423d32fce")
+        Me.DockPanel1.Location = New System.Drawing.Point(0, 159)
+        Me.DockPanel1.Name = "DockPanel1"
+        Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
+        Me.DockPanel1.SavedDock = DevExpress.XtraBars.Docking.DockingStyle.Left
+        Me.DockPanel1.SavedIndex = 0
+        Me.DockPanel1.Size = New System.Drawing.Size(200, 495)
+        Me.DockPanel1.Text = "Suche"
+        Me.DockPanel1.Visibility = DevExpress.XtraBars.Docking.DockVisibility.Hidden
+        '
+        'DockPanel1_Container
+        '
+        Me.DockPanel1_Container.Controls.Add(Me.LayoutControl1)
+        Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46)
+        Me.DockPanel1_Container.Name = "DockPanel1_Container"
+        Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 446)
+        Me.DockPanel1_Container.TabIndex = 0
+        '
+        'LayoutControl1
+        '
+        Me.LayoutControl1.Controls.Add(Me.TextEdit1)
+        Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1)
+        Me.LayoutControl1.Controls.Add(Me.TextEdit2)
+        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(193, 446)
+        Me.LayoutControl1.TabIndex = 0
+        Me.LayoutControl1.Text = "LayoutControl1"
+        '
+        'TextEdit1
+        '
+        Me.TextEdit1.Location = New System.Drawing.Point(15, 123)
+        Me.TextEdit1.MenuManager = Me.RibbonControl1
+        Me.TextEdit1.Name = "TextEdit1"
+        Me.TextEdit1.Size = New System.Drawing.Size(163, 20)
+        Me.TextEdit1.StyleController = Me.LayoutControl1
+        Me.TextEdit1.TabIndex = 4
+        '
+        'ComboBoxEdit1
+        '
+        Me.ComboBoxEdit1.Location = New System.Drawing.Point(15, 31)
+        Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
+        Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
+        Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.ComboBoxEdit1.Size = New System.Drawing.Size(163, 20)
+        Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
+        Me.ComboBoxEdit1.TabIndex = 5
+        '
+        'Root
+        '
+        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.Root.GroupBordersVisible = False
+        Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3})
+        Me.Root.Name = "Root"
+        Me.Root.Size = New System.Drawing.Size(193, 446)
+        Me.Root.TextVisible = False
+        '
+        'LayoutControlItem1
+        '
+        Me.LayoutControlItem1.Control = Me.TextEdit1
+        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 92)
+        Me.LayoutControlItem1.Name = "LayoutControlItem1"
+        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(173, 334)
+        Me.LayoutControlItem1.Text = "Suchwert"
+        Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(63, 13)
+        '
+        'LayoutControlItem2
+        '
+        Me.LayoutControlItem2.Control = Me.ComboBoxEdit1
+        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(173, 46)
+        Me.LayoutControlItem2.Text = "Attribut"
+        Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(63, 13)
+        '
+        'LayoutControlItem3
+        '
+        Me.LayoutControlItem3.Control = Me.TextEdit2
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 46)
+        Me.LayoutControlItem3.Name = "LayoutControlItem3"
+        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(173, 46)
+        Me.LayoutControlItem3.Text = "Auswertung"
+        Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(63, 13)
+        '
+        'TextEdit2
+        '
+        Me.TextEdit2.Location = New System.Drawing.Point(15, 77)
+        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(163, 20)
+        Me.TextEdit2.StyleController = Me.LayoutControl1
+        Me.TextEdit2.TabIndex = 6
+        '
+        'DockPanel2
+        '
+        Me.DockPanel2.Controls.Add(Me.DockPanel2_Container)
+        Me.DockPanel2.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
+        Me.DockPanel2.ID = New System.Guid("157c74a2-d255-4e6b-b789-bde43010b2af")
+        Me.DockPanel2.Location = New System.Drawing.Point(885, 159)
+        Me.DockPanel2.Name = "DockPanel2"
+        Me.DockPanel2.OriginalSize = New System.Drawing.Size(200, 200)
+        Me.DockPanel2.Size = New System.Drawing.Size(200, 495)
+        Me.DockPanel2.Text = "Details"
+        '
+        'DockPanel2_Container
+        '
+        Me.DockPanel2_Container.Location = New System.Drawing.Point(4, 46)
+        Me.DockPanel2_Container.Name = "DockPanel2_Container"
+        Me.DockPanel2_Container.Size = New System.Drawing.Size(193, 446)
+        Me.DockPanel2_Container.TabIndex = 0
+        '
+        'TreeList1
+        '
+        Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeList1.Location = New System.Drawing.Point(200, 159)
+        Me.TreeList1.MenuManager = Me.RibbonControl1
+        Me.TreeList1.Name = "TreeList1"
+        Me.TreeList1.Size = New System.Drawing.Size(685, 495)
+        Me.TreeList1.TabIndex = 4
+        '
+        'DockPanel3
+        '
+        Me.DockPanel3.Controls.Add(Me.DockPanel3_Container)
+        Me.DockPanel3.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
+        Me.DockPanel3.ID = New System.Guid("d2ef8b04-1b9f-49ee-8a72-31210e059dbe")
+        Me.DockPanel3.Location = New System.Drawing.Point(0, 159)
+        Me.DockPanel3.Name = "DockPanel3"
+        Me.DockPanel3.OriginalSize = New System.Drawing.Size(200, 200)
+        Me.DockPanel3.Size = New System.Drawing.Size(200, 495)
+        Me.DockPanel3.Text = "DockPanel3"
+        '
+        'DockPanel3_Container
+        '
+        Me.DockPanel3_Container.Location = New System.Drawing.Point(3, 46)
+        Me.DockPanel3_Container.Name = "DockPanel3_Container"
+        Me.DockPanel3_Container.Size = New System.Drawing.Size(193, 446)
+        Me.DockPanel3_Container.TabIndex = 0
+        '
+        'frmStart
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1085, 676)
+        Me.Controls.Add(Me.TreeList1)
+        Me.Controls.Add(Me.DockPanel3)
+        Me.Controls.Add(Me.DockPanel2)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line
+        Me.Name = "frmStart"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Monitor"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.DockPanel1.ResumeLayout(False)
+        Me.DockPanel1_Container.ResumeLayout(False)
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.DockPanel2.ResumeLayout(False)
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.DockPanel3.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 DockManager1 As DevExpress.XtraBars.Docking.DockManager
+    Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel
+    Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
+    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit
+    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit
+    Friend WithEvents DockPanel2 As DevExpress.XtraBars.Docking.DockPanel
+    Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
+    Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel
+    Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer
+End Class

GUIs.Monitor/frmStart.resx

@@ -117,7 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>False</value>
+    <value>17, 17</value>
   </metadata>
 </root>

GUIs.Monitor/frmStart.vb

@@ -0,0 +1,33 @@
+Imports DigitalData.Controls.SQLConfig
+Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Public Class frmStart
+    Public Property LogConfig As LogConfig
+    Public Property ConfigManager As ConfigManager(Of Config)
+    Public Property Database As MSSQLServer
+
+    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)
+
+            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()
+                Else
+                    ShowErrorMessage("No Database configured. Application will close!")
+                    Application.Exit()
+
+                End If
+            End If
+
+            Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString)
+        Catch ex As Exception
+            ShowErrorMessage(ex)
+        End Try
+    End Sub
+End Class

GUIs.Monitor/packages.config

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="NLog" version="4.7.5" targetFramework="net452" />
+</packages>

GUIs.Test.DocumentViewerTest/Form1.Designer.vb

@@ -52,7 +52,7 @@ Partial Class Form1
         '
         'Button2
         '
-        Me.Button2.Location = New System.Drawing.Point(12, 38)
+        Me.Button2.Location = New System.Drawing.Point(12, 67)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(637, 23)
         Me.Button2.TabIndex = 2
@@ -61,7 +61,7 @@ Partial Class Form1
         '
         'Button3
         '
-        Me.Button3.Location = New System.Drawing.Point(12, 67)
+        Me.Button3.Location = New System.Drawing.Point(12, 96)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(637, 23)
         Me.Button3.TabIndex = 2
@@ -70,7 +70,7 @@ Partial Class Form1
         '
         'Button4
         '
-        Me.Button4.Location = New System.Drawing.Point(12, 96)
+        Me.Button4.Location = New System.Drawing.Point(12, 125)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(637, 23)
         Me.Button4.TabIndex = 3

GUIs.Test.TestGUI/App.config

@@ -1,35 +1,35 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <configSections>
         <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="TestGUI.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
+            <section name="TestGUI.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
         </sectionGroup>
     </configSections>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
     </startup>
     <userSettings>
         <TestGUI.My.MySettings>
             <setting name="WMFilepath" serializeAs="String">
-                <value/>
+                <value />
             </setting>
             <setting name="WMIndexName" serializeAs="String">
-                <value/>
+                <value />
             </setting>
             <setting name="WMSearch" serializeAs="String">
-                <value/>
+                <value />
             </setting>
         </TestGUI.My.MySettings>
     </userSettings>
   <runtime>
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>
-        <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
+        <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-4.0.1.1" newVersion="4.0.1.1"/>
+        <bindingRedirect oldVersion="0.0.0.0-4.0.1.1" newVersion="4.0.1.1" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="FirebirdSql.Data.FirebirdClient" publicKeyToken="3750abcc3150b00c" culture="neutral"/>
+        <assemblyIdentity name="FirebirdSql.Data.FirebirdClient" publicKeyToken="3750abcc3150b00c" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-7.5.0.0" newVersion="7.5.0.0"/>
+        <bindingRedirect oldVersion="0.0.0.0-7.5.0.0" newVersion="7.5.0.0" />
       </dependentAssembly>
     </assemblyBinding>
   </runtime>

GUIs.Test.TestGUI/TestGUI.vbproj

@@ -62,8 +62,8 @@
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.7.5\lib\net45\NLog.dll</HintPath>
     </Reference>
-    <Reference Include="Quartz, Version=3.2.3.0, Culture=neutral, PublicKeyToken=f6b8c98a402cc8a4, processorArchitecture=MSIL">
+    <Reference Include="Quartz, Version=3.3.2.0, Culture=neutral, PublicKeyToken=f6b8c98a402cc8a4, processorArchitecture=MSIL">
-      <HintPath>..\packages\Quartz.3.2.3\lib\net461\Quartz.dll</HintPath>
+      <HintPath>..\packages\Quartz.3.3.2\lib\net472\Quartz.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -113,12 +113,24 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="frmChecksum.Designer.vb">
+      <DependentUpon>frmChecksum.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmChecksum.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmConfigTest.Designer.vb">
       <DependentUpon>frmConfigTest.vb</DependentUpon>
     </Compile>
     <Compile Include="frmConfigTest.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmFilesystem.Designer.vb">
+      <DependentUpon>frmFilesystem.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmFilesystem.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmFolderWatcher.Designer.vb">
       <DependentUpon>frmFolderWatcher.vb</DependentUpon>
     </Compile>
@@ -167,9 +179,15 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmChecksum.resx">
+      <DependentUpon>frmChecksum.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmConfigTest.resx">
       <DependentUpon>frmConfigTest.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmFilesystem.resx">
+      <DependentUpon>frmFilesystem.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmFolderWatcher.resx">
       <DependentUpon>frmFolderWatcher.vb</DependentUpon>
     </EmbeddedResource>
@@ -239,6 +257,10 @@
       <Project>{a8c3f298-76ab-4359-ab3c-986e313b4336}</Project>
       <Name>EDMIService</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Windows\Windows.vbproj">
+      <Project>{5efaef9b-90b9-4f05-9f70-f79ad77fff86}</Project>
+      <Name>Windows</Name>
+    </ProjectReference>
   </ItemGroup>
   <ItemGroup>
     <None Include="Resources\alignhorizontalbottom.svg" />

GUIs.Test.TestGUI/frmChecksum.Designer.vb

@@ -0,0 +1,79 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmChecksum
+    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()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(12, 12)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(553, 20)
+        Me.TextBox1.TabIndex = 0
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(571, 10)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Datei 1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(652, 10)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(145, 23)
+        Me.Button3.TabIndex = 2
+        Me.Button3.Text = "Prüfsumme berechnen"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'frmChecksum
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Name = "frmChecksum"
+        Me.Text = "frmChecksum"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button3 As Button
+End Class

GUIs.Test.TestGUI/frmChecksum.resx

@@ -117,16 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="DBCW_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>178, 17</value>
-  </metadata>
-  <metadata name="TBCW_PROFILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>398, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>612, 17</value>
-  </metadata>
 </root>

GUIs.Test.TestGUI/frmChecksum.vb

@@ -0,0 +1,22 @@
+Imports DigitalData.Modules.Logging
+
+Public Class frmChecksum
+    Private LogConfig As LogConfig
+    Private FileEx As DigitalData.Modules.Filesystem.File
+
+    Private Sub frmChecksum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        LogConfig = New LogConfig(LogConfig.PathType.Temp)
+        FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
+            TextBox1.Text = OpenFileDialog1.FileName
+        End If
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim oChecksum = FileEx.GetChecksum(TextBox1.Text)
+        MsgBox(oChecksum)
+    End Sub
+End Class

GUIs.Test.TestGUI/frmFilesystem.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class LookupControl
+Partial Class frmFilesystem
-    Inherits System.Windows.Forms.UserControl
+    Inherits System.Windows.Forms.Form
 
-    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()>
+    <System.Diagnostics.DebuggerNonUserCode()> _
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,18 +20,17 @@ Partial Class LookupControl
     '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()>
+    <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.SuspendLayout()
         '
-        'LookupControl
+        'frmFilesystem
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.BackColor = System.Drawing.Color.Transparent
+        Me.Name = "frmFilesystem"
-        Me.Name = "LookupControl"
+        Me.Text = "frmFilesystem"
-        Me.Size = New System.Drawing.Size(270, 35)
         Me.ResumeLayout(False)
 
     End Sub

GUIs.Test.TestGUI/frmFilesystem.vb

@@ -0,0 +1,34 @@
+Imports DigitalData.Modules.Logging
+
+Public Class frmFilesystem
+    Private LogConfig As LogConfig
+    Private Filesystem As DigitalData.Modules.Filesystem.File
+
+    Private ShortName As String = "E:\some_test_file.txt"
+    Private LongName As String = "E:\some_test_file_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more.txt"
+
+    Private Sub frmFilesystem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            LogConfig = New LogConfig(LogConfig.PathType.Temp)
+            Filesystem = New DigitalData.Modules.Filesystem.File(LogConfig)
+
+            Using oWriter = IO.File.CreateText("E:\some_test_file.txt")
+                oWriter.WriteLine("bla bla bla")
+            End Using
+
+            IO.File.Copy(ShortName, LongName)
+
+            Dim oVersion1 = Filesystem.GetVersionedFilename(LongName)
+            IO.File.Copy(ShortName, oVersion1)
+
+            Dim oVersion2 = Filesystem.GetVersionedFilename(LongName)
+            IO.File.Copy(ShortName, oVersion2)
+        Catch ex As Exception
+
+        Finally
+            IO.File.Delete(ShortName)
+            IO.File.Delete(LongName)
+        End Try
+
+    End Sub
+End Class

GUIs.Test.TestGUI/frmLookup.vb

@@ -1,10 +1,23 @@
-Imports DigitalData.Controls.LookupGrid
+Imports System.Globalization
+Imports DevExpress.XtraEditors.Controls
+Imports DigitalData.Controls.LookupGrid
 
 Public Class frmLookup
 
     Private _Datasource As List(Of String) = New List(Of String) From {"Foo", "Bar", "Baz", "Bart", "Maggie", "Homer"}
 
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        'Localizer.Active = New LookupGridLocalizer()
+    End Sub
+
     Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim oCulture = CultureInfo.CurrentCulture
+        Dim oUICulture = CultureInfo.CurrentUICulture
+
         Dim oTable = GetDatatable(10)
 
         Dim LookupControl31 As New LookupControl3 With {
@@ -45,7 +58,8 @@ Public Class frmLookup
         Dim oDatatable As New DataTable
         Dim oColumns As New List(Of DataColumn) From {
             New DataColumn("Col1", GetType(String)),
-            New DataColumn("Col2", GetType(String))
+            New DataColumn("Col2", GetType(String)),
+            New DataColumn("Col3", GetType(String))
         }
 
         oDatatable.Columns.AddRange(oColumns.ToArray)
@@ -54,6 +68,7 @@ Public Class frmLookup
             Dim oRow = oDatatable.NewRow()
             oRow.Item("Col1") = Item
             oRow.Item("Col2") = Item & "_" & "SomeLong Random(String) !!!111einself"
+            oRow.Item("Col3") = Item & "_" & "SomeLong OTHER Random(String) !!!111einself"
             oDatatable.Rows.Add(oRow)
         Next
 

GUIs.Test.TestGUI/frmStart.Designer.vb

@@ -24,6 +24,9 @@ Partial Class frmStart
     Private Sub InitializeComponent()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Button1
@@ -44,11 +47,41 @@ Partial Class frmStart
         Me.Button2.Text = "LookupControl"
         Me.Button2.UseVisualStyleBackColor = True
         '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(12, 134)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(236, 55)
+        Me.Button3.TabIndex = 0
+        Me.Button3.Text = "Filesystem"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(12, 195)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(236, 59)
+        Me.Button4.TabIndex = 1
+        Me.Button4.Text = "Skalierungsfaktor"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Location = New System.Drawing.Point(12, 260)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(236, 60)
+        Me.Button5.TabIndex = 2
+        Me.Button5.Text = "Button5"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Name = "frmStart"
@@ -59,4 +92,7 @@ Partial Class frmStart
 
     Friend WithEvents Button1 As Button
     Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
 End Class

GUIs.Test.TestGUI/frmStart.vb

@@ -1,4 +1,6 @@
-Public Class frmStart
+Imports Microsoft.Win32
+
+Public Class frmStart
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         frmRelations.Show()
     End Sub
@@ -6,4 +8,18 @@
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         frmLookup.Show()
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        frmFilesystem.Show()
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim oScreen As New DigitalData.Modules.Windows.Screen()
+
+        MsgBox("Scaling: " & oScreen.GetScreenScaling(Me))
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        frmChecksum.Show()
+    End Sub
 End Class

GUIs.Test.TestGUI/packages.config

@@ -2,7 +2,7 @@
 <packages>
   <package id="Microsoft.Extensions.Logging.Abstractions" version="2.1.1" targetFramework="net461" />
   <package id="NLog" version="4.7.5" targetFramework="net461" />
-  <package id="Quartz" version="3.2.3" targetFramework="net461" />
+  <package id="Quartz" version="3.3.2" targetFramework="net472" />
   <package id="System.Buffers" version="4.5.1" targetFramework="net461" />
   <package id="System.Diagnostics.DiagnosticSource" version="4.7.1" targetFramework="net461" />
   <package id="System.Memory" version="4.5.4" targetFramework="net461" />

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -167,7 +167,7 @@ Public Class Form1
     End Sub
 
     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
-        Dim oExtractor = New PDFAttachments(_logConfig)
+        Dim oExtractor = New PDFEmbeds(_logConfig)
         Dim oResult = OpenFileDialog1.ShowDialog()
 
         If oResult = DialogResult.OK Then

GUIs.ZooFlow/Administration/ClassConstants.vb

@@ -0,0 +1,21 @@
+Namespace Administration
+    Public Class ClassConstants
+        Public Const MODULE_IDB = "IDB"
+        Public Const PAGE_IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
+        Public Const PAGE_IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES"
+        Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
+
+        Public Const MODULE_GLOBIX = "GLOBIX"
+        Public Const PAGE_GLOBIX_PROFILES = "GLOBIX_PROFILES"
+
+        Public Const MODULE_CW = "CW"
+        Public Const PAGE_CW_PROFILES = "CW_PROFILES"
+
+        Public Const MODULE_META = "META"
+        Public Const PAGE_META_SOURCE_SQL = "META_SOURCE_SQL"
+
+        Public Const COLUMN_NAME_ACTIVE = "ACTIVE"
+
+
+    End Class
+End Namespace

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -0,0 +1,155 @@
+Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants
+
+Public Class ClassDetailForm
+    Inherits Base.BaseClass
+
+    Public Event DetailFormClosed As EventHandler(Of Form)
+
+    Public ReadOnly Property DetailDataList As New Dictionary(Of String, DetailData)
+    Public ReadOnly Property DetailSettingsList As New Dictionary(Of String, DetailSettings) From {
+        {PAGE_IDB_ATTRIBUTES,                   ' This Key will be matched with the Entity Id from the Database
+        New DetailSettings With {
+            .GridTitle = "IDB Attribute",       ' This will be shown above the Data Grid
+            .NewRecordTitle = "Neues Attribut", ' This will be shown on the "New" Button
+            .[Module] = MODULE_IDB,
+            .Entity = PAGE_IDB_ATTRIBUTES
+        }},
+        {PAGE_IDB_BUSINESS_ENTITIES,
+        New DetailSettings With {
+            .GridTitle = "IDB Entitäten",
+            .NewRecordTitle = "Neue Entität",
+            .[Module] = MODULE_IDB,
+            .Entity = PAGE_IDB_BUSINESS_ENTITIES
+        }},
+        {PAGE_META_SOURCE_SQL,
+        New DetailSettings With {
+            .GridTitle = "Source SQL",
+            .NewRecordTitle = "Neuer Source SQL",
+            .[Module] = MODULE_META,
+            .Entity = PAGE_META_SOURCE_SQL
+        }},
+        {PAGE_GLOBIX_PROFILES,
+        New DetailSettings With {
+            .GridTitle = "Global Indexer Profile",
+            .NewRecordTitle = "Neues GLOBIX Profil",
+            .[Module] = MODULE_GLOBIX,
+            .Entity = PAGE_GLOBIX_PROFILES
+        }},
+        {PAGE_CW_PROFILES,
+        New DetailSettings With {
+            .GridTitle = "Clipboard Watcher Profile",
+            .NewRecordTitle = "Neues CW Profil",
+            .[Module] = MODULE_CW,
+            .Entity = PAGE_CW_PROFILES
+        }}
+    }
+
+    Public Sub New(LogConfig As Modules.Logging.LogConfig)
+        MyBase.New(LogConfig)
+    End Sub
+
+    Public Function Handle_OpenDetail(PrimaryKey As Integer, Page As String, IsInsert As Boolean) As Boolean
+        Select Case Page
+            Case PAGE_IDB_ATTRIBUTES
+                Load_IDBAttribute(PrimaryKey, IsInsert)
+                Return True
+
+            Case PAGE_IDB_BUSINESS_ENTITIES
+                Load_IDBEntity(PrimaryKey, IsInsert)
+                Return True
+
+            Case PAGE_CW_PROFILES
+                Load_CWProfile(PrimaryKey, IsInsert)
+                Return True
+
+            Case PAGE_GLOBIX_PROFILES
+                GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey
+                Load_GLOBIXProfile(PrimaryKey, IsInsert)
+                Return True
+
+            Case PAGE_META_SOURCE_SQL
+                Load_SourceSQL(PrimaryKey, IsInsert)
+                Return True
+
+            Case Else
+                Return False
+        End Select
+    End Function
+
+    Private Sub Load_SourceSQL(PrimaryKey As Integer, IsInsert As Boolean)
+        Try
+            Dim oForm As New frmAdmin_SourceSQL(PrimaryKey) With {.IsInsert = IsInsert}
+            oForm.ShowDialog()
+
+            RaiseEvent DetailFormClosed(Me, oForm)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
+
+    Private Sub Load_IDBAttribute(PrimaryKey As Integer, IsInsert As Boolean)
+        Try
+            Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey) With {.IsInsert = IsInsert}
+            oForm.ShowDialog()
+
+            RaiseEvent DetailFormClosed(Me, oForm)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
+
+    Private Sub Load_IDBEntity(PrimaryKey As Integer, IsInsert As Boolean)
+        Try
+            Dim oForm As New frmAdmin_IDBEntity(PrimaryKey) With {.IsInsert = IsInsert}
+            oForm.ShowDialog()
+
+            RaiseEvent DetailFormClosed(Me, oForm)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
+
+    Private Sub Load_CWProfile(PrimaryKey As Integer, IsInsert As Boolean)
+        Try
+            Dim oForm As New frmAdmin_ClipboardWatcher(PrimaryKey) With {.IsInsert = IsInsert}
+            oForm.ShowDialog()
+
+            RaiseEvent DetailFormClosed(Me, oForm)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
+    Private Sub Load_GLOBIXProfile(PrimaryKey As Integer, IsInsert As Boolean)
+        Try
+            Dim oForm As New frmGlobixAdministration(PrimaryKey) With {.IsInsert = IsInsert}
+            oForm.ShowDialog()
+
+            RaiseEvent DetailFormClosed(Me, oForm)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
+
+    Public Class DetailSettings
+        Public Property GridTitle As String
+        Public Property [Module] As String
+        Public Property Entity As String
+        Public Property NewRecordTitle As String
+    End Class
+
+    Public Class DetailData
+        Public Property Guid As Integer
+        Public Property ParentId As Integer
+        Public Property Entity As String
+        Public Property Scope As String
+        Public Property PrimaryKey As String
+        Public Property ForeignKey As String
+        Public Property SQLCommand As String
+        Public Property SQLResult As DataTable
+    End Class
+End Class

GUIs.ZooFlow/Administration/ClassDetailPage.vb

@@ -0,0 +1,263 @@
+Imports System.ComponentModel
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraLayout
+Imports DevExpress.XtraTab
+Imports DigitalData.Modules.Language.Utils
+Imports DigitalData.Modules.Logging
+
+''' <summary>
+''' 
+''' </summary>
+Public Class ClassDetailPages
+    Private ReadOnly LogConfig As LogConfig
+    Private ReadOnly Logger As Logger
+    Private ReadOnly HostForm As IAdminForm
+
+    Public Items As New Dictionary(Of String, DetailPage)
+
+    Public Event AnyControl_Focus As EventHandler(Of DetailPageEventArgs)
+    Public Event AnyControl_Changed As EventHandler(Of DetailPageEventArgs)
+    Public Event CurrentPage_Changed As EventHandler(Of DetailPageEventArgs)
+
+    Private CurrentPage As DetailPage
+
+    Public Property Current As DetailPage
+        Get
+            Return CurrentPage
+        End Get
+        Set(value As DetailPage)
+            CurrentPage = value
+
+            RaiseEvent CurrentPage_Changed(Me, New DetailPageEventArgs With {.Page = CurrentPage})
+        End Set
+    End Property
+
+    Public Class DetailPageEventArgs
+        Public Property Page As DetailPage
+    End Class
+
+    Public Class DetailPage
+        Public IsPrimary As Boolean = False
+        Public IsInsert As Boolean = False
+        Public TabPage As XtraTabPage
+        Public Name As String
+        Public BindingSource As BindingSource
+        Public DataTable As DataTable
+        Public AddedWhoEdit As TextEdit
+        Public ChangedWhoEdit As TextEdit
+    End Class
+
+    ''' <summary>
+    ''' Detail page which represents the primary page of a form
+    ''' </summary>
+    Public Class PrimaryPage
+        Inherits DetailPage
+
+        Public Sub New(Insert As Boolean)
+            IsInsert = Insert
+            IsPrimary = True
+        End Sub
+    End Class
+
+    Public Class ComboBoxItem
+        Public Property Text
+        Public Property Value
+
+        Public Overrides Function ToString() As String
+            Return Text
+        End Function
+    End Class
+
+    Public Sub New(LogConfig As LogConfig, Form As IAdminForm, LayoutControls As List(Of LayoutControl))
+        Me.LogConfig = LogConfig
+        Logger = LogConfig.GetLogger()
+        HostForm = Form
+
+        For Each oLayoutControl In LayoutControls
+            AddHandler oLayoutControl.Click, AddressOf Handle_Focus
+            AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus
+
+            For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
+                Dim oControl As BaseEdit = oContainer.Control
+                AddHandler oControl.GotFocus, AddressOf Handle_Focus
+                AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged
+                AddHandler oControl.Validating, AddressOf Handle_Validating
+            Next
+        Next
+    End Sub
+
+    ''' <summary>
+    ''' Add a new DetailPage or a new PrimaryPage
+    ''' </summary>
+    Public Sub Add(Page As DetailPage)
+        Items.Add(Page.TabPage.Name, Page)
+
+        AddHandler Page.BindingSource.AddingNew, Sub(sender As Object, e As EventArgs)
+                                                     Page.AddedWhoEdit.EditValue = Environment.UserName
+                                                 End Sub
+    End Sub
+
+    ''' <summary>
+    ''' Add a list of new DetailPages or new PrimaryPages
+    ''' </summary>
+    Public Sub AddRange(ParamArray Pages As DetailPage())
+        For Each oPage In Pages
+            Add(oPage)
+        Next
+    End Sub
+
+    ''' <summary>
+    ''' Get the DetailPage which uses the given `TabPage`
+    ''' </summary>
+    Public Function GetDetailPage(TabPage As XtraTabPage) As DetailPage
+        Try
+            Dim oItem = Items.
+                Where(Function(Item) TabPage.Equals(Item.Value.TabPage)).
+                FirstOrDefault()
+
+            Return oItem.Value
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Saves the pending changes to the binding source
+    ''' </summary>
+    ''' <returns>True, if changes were made, otherwise False</returns>
+    Public Function PrepareSave() As Boolean
+        Dim oPage = CurrentPage
+
+        If oPage Is Nothing Then
+            Return False
+        End If
+
+        Try
+            oPage.BindingSource.EndEdit()
+
+            If oPage.DataTable.GetChanges() IsNot Nothing Then
+                If oPage.IsInsert Then
+                    oPage.AddedWhoEdit.EditValue = My.Application.User.UserName
+                Else
+                    oPage.ChangedWhoEdit.EditValue = My.Application.User.UserName
+                End If
+
+                oPage.BindingSource.EndEdit()
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Sub Handle_Validating(sender As Object, e As BaseEditValidatingEventArgs)
+        Dim oControl As BaseEdit = sender
+        Dim oColumn As DataColumn = Get_DataColumnFromBaseEdit(oControl)
+
+        If oColumn IsNot Nothing Then
+            Dim oNullable As Boolean = oColumn.AllowDBNull
+
+            If oNullable = False Then
+                If TypeOf oControl Is ComboBoxEdit AndAlso DirectCast(oControl, ComboBoxEdit).SelectedIndex = -1 Then
+                    e.ErrorText = "Please select a value from the list."
+                    e.Cancel = True
+
+                ElseIf NotNull(oControl.EditValue.ToString, String.Empty) = String.Empty Then
+                    e.ErrorText = "Please input a value"
+                    e.Cancel = True
+
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Function Get_DataColumnFromBaseEdit(Control As BaseEdit) As DataColumn
+        Dim oBinding As Binding = Control.DataBindings.Item("EditValue")
+
+        If Control.DataBindings.Count = 0 OrElse oBinding Is Nothing Then
+            Return Nothing
+        End If
+
+        If oBinding.DataSource Is Nothing Then
+            Return Nothing
+        End If
+
+        If TypeOf oBinding.DataSource IsNot BindingSource Then
+            Return Nothing
+        End If
+
+        Try
+            Dim oSource As BindingSource = oBinding.DataSource
+            Dim oTableName As String = oSource.DataMember
+            Dim oDataSet As DataSet = oSource.DataSource
+            Dim oTable = oDataSet.Tables(oTableName)
+            Dim oColumnName As String = oBinding.BindingMemberInfo.BindingField
+            Dim oColumn As DataColumn = oTable.Columns.Item(oColumnName)
+
+            Return oColumn
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Private Sub Handle_Focus(sender As Control, e As EventArgs)
+        Dim oControl As Control = sender
+        Dim oLayoutControl As LayoutControl = Nothing
+
+        ' Get the Layout Control containing the Edit Contol
+        If TypeOf oControl.Parent Is LayoutControl Then
+            oLayoutControl = oControl.Parent
+        ElseIf TypeOf oControl Is LayoutControl Then
+            oLayoutControl = oControl
+        End If
+
+        If oLayoutControl Is Nothing Then
+            Exit Sub
+        End If
+
+        If TypeOf oLayoutControl.Parent Is XtraTabPage Then
+            Dim oTabPage As XtraTabPage = oLayoutControl.Parent
+
+            If Items.ContainsKey(oTabPage.Name) Then
+                CurrentPage = Items.Item(oTabPage.Name)
+
+                Dim oData As New DetailPageEventArgs With {.Page = Items.Item(oTabPage.Name)}
+                RaiseEvent CurrentPage_Changed(Me, oData)
+                RaiseEvent AnyControl_Focus(oControl, oData)
+            Else
+                CurrentPage = Nothing
+
+                RaiseEvent CurrentPage_Changed(Me, Nothing)
+                RaiseEvent AnyControl_Focus(oControl, Nothing)
+            End If
+        End If
+    End Sub
+
+    Private Sub Handle_EditValueChanged(sender As BaseEdit, e As EventArgs)
+        Dim oControl As BaseEdit = sender
+
+        ' Get the Layout Control containing the Edit Contol
+        If TypeOf oControl.Parent Is LayoutControl Then
+            Dim oLayoutControl As LayoutControl = oControl.Parent
+
+            ' Get the TabPage containing the Layout Control
+            If TypeOf oLayoutControl.Parent Is XtraTabPage Then
+                Dim oTabPage As XtraTabPage = oLayoutControl.Parent
+
+                If Items.ContainsKey(oTabPage.Name) Then
+                    Dim oData As New DetailPageEventArgs With {.Page = Items.Item(oTabPage.Name)}
+                    RaiseEvent AnyControl_Changed(oControl, oData)
+                Else
+                    RaiseEvent AnyControl_Changed(oControl, Nothing)
+                End If
+            End If
+        End If
+    End Sub
+End Class
+
+

GUIs.ZooFlow/Administration/ClassSourceBundle.vb

@@ -1,4 +1,4 @@
-Public Class SourceBundle
+Public Class ClassSourceBundle
     Public Overview As SourceSql
     Public Update As SourceSql
     Public Insert As SourceSql

GUIs.ZooFlow/Administration/ClassValidation.vb

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

GUIs.ZooFlow/Administration/IAdminForm.vb

@@ -1,9 +1,7 @@
-Imports DigitalData.Modules.Logging
+Public Interface IAdminForm
-
-Public Interface frmAdmin_Interface
     Property PrimaryKey As Integer
     Property HasChanges As Boolean
     Property IsInsert As Boolean
 
-    Function SaveData() As Boolean
+    Function DeleteData() As Boolean
 End Interface

GUIs.ZooFlow/Administration/frmAdmin_Base.vb

@@ -1,30 +0,0 @@
-Imports DevExpress.XtraBars.Ribbon
-Imports DigitalData.Modules.Logging
-
-Partial Public MustInherit Class BaseForm
-    Inherits RibbonForm
-
-    Friend Logger As Logger
-
-    Public Sub New()
-        Logger = My.LogConfig?.GetLogger
-    End Sub
-
-    Public Sub ShowInfo(Message As String)
-        MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
-    End Sub
-
-    Public Sub ShowError(Message As String)
-        MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
-    End Sub
-
-    Public Sub ShowError(Exception As Exception)
-        Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True)
-        Logger.Error(Exception)
-        ShowError($"Error in {oCallingClass}:{vbNewLine}{Exception.Message}")
-    End Sub
-End Class
-
-Partial Public Class frmAdmin_Base
-    Inherits BaseForm
-End Class

GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.Designer.vb

@@ -1,114 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmAdmin_CWDataSearch
-    Inherits frmAdmin_Base
-
-    '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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'RibbonControl1
-        '
-        Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
-        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2})
-        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 3
-        Me.RibbonControl1.Name = "RibbonControl1"
-        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
-        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
-        Me.RibbonControl1.ShowToolbarCustomizeItem = False
-        Me.RibbonControl1.Size = New System.Drawing.Size(800, 66)
-        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
-        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
-        '
-        'BarButtonItem1
-        '
-        Me.BarButtonItem1.Caption = "Speichern und Schließen"
-        Me.BarButtonItem1.Id = 1
-        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check3
-        Me.BarButtonItem1.Name = "BarButtonItem1"
-        '
-        'BarButtonItem2
-        '
-        Me.BarButtonItem2.Caption = "Speichern"
-        Me.BarButtonItem2.Id = 2
-        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save6
-        Me.BarButtonItem2.Name = "BarButtonItem2"
-        '
-        'RibbonPage1
-        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
-        Me.RibbonPage1.Name = "RibbonPage1"
-        Me.RibbonPage1.Text = "RibbonPage1"
-        '
-        'RibbonPageGroup1
-        '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
-        '
-        'RibbonStatusBar1
-        '
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
-        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
-        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
-        '
-        'RibbonPage2
-        '
-        Me.RibbonPage2.Name = "RibbonPage2"
-        Me.RibbonPage2.Text = "RibbonPage2"
-        '
-        'frmAdmin_CWDataSearch
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(Me.RibbonStatusBar1)
-        Me.Controls.Add(Me.RibbonControl1)
-        Me.Name = "frmAdmin_CWDataSearch"
-        Me.Ribbon = Me.RibbonControl1
-        Me.StatusBar = Me.RibbonStatusBar1
-        Me.Text = "Clipboard Watcher - Datensuche"
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        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 BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-End Class