ZooFlow: Replace old winforms treeview with Devexpress TreeList

GUIs.ZooFlow/frmAdministrationZooFlow.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdministrationZooFlow
     Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     '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,13 +20,9 @@ Partial Class frmAdministrationZooFlow
     '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.components = New System.ComponentModel.Container()
-        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Business Entities")
-        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Attributes")
-        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("IDB", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2})
-        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Knoten2")
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministrationZooFlow))
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
@@ -34,14 +30,20 @@ Partial Class frmAdministrationZooFlow
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.TreeViewMain = New System.Windows.Forms.TreeView()
         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
+        Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
+        Me.DpiAwareImageCollection1 = New DevExpress.Utils.DPIAwareImageCollection(Me.components)
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DpiAwareImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
@@ -83,31 +85,6 @@ Partial Class frmAdministrationZooFlow
         Me.RibbonPage2.Name = "RibbonPage2"
         Me.RibbonPage2.Text = "RibbonPage2"
         '
-        'TreeViewMain
-        '
-        Me.TreeViewMain.Dock = System.Windows.Forms.DockStyle.Left
-        Me.TreeViewMain.ImageIndex = 0
-        Me.TreeViewMain.ImageList = Me.ImageList1
-        Me.TreeViewMain.Location = New System.Drawing.Point(0, 159)
-        Me.TreeViewMain.Name = "TreeViewMain"
-        TreeNode1.ImageKey = "Building_16xMD.png"
-        TreeNode1.Name = "Knoten1"
-        TreeNode1.SelectedImageIndex = 1
-        TreeNode1.Text = "Business Entities"
-        TreeNode2.ImageKey = "Hammer_Builder_16xLG.png"
-        TreeNode2.Name = "Knoten3"
-        TreeNode2.SelectedImageIndex = 2
-        TreeNode2.Text = "Attributes"
-        TreeNode3.ImageIndex = 0
-        TreeNode3.Name = "Knoten0"
-        TreeNode3.Text = "IDB"
-        TreeNode4.Name = "Knoten2"
-        TreeNode4.Text = "Knoten2"
-        Me.TreeViewMain.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode4})
-        Me.TreeViewMain.SelectedImageIndex = 0
-        Me.TreeViewMain.Size = New System.Drawing.Size(153, 269)
-        Me.TreeViewMain.TabIndex = 2
-        '
         'ImageList1
         '
         Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
@@ -119,32 +96,74 @@ Partial Class frmAdministrationZooFlow
         'XtraTabControl1
         '
         Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl1.Location = New System.Drawing.Point(153, 159)
+        Me.XtraTabControl1.Location = New System.Drawing.Point(175, 159)
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(647, 269)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(625, 269)
         Me.XtraTabControl1.TabIndex = 5
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
         '
         'XtraTabPage1
         '
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(645, 246)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(623, 246)
         Me.XtraTabPage1.Text = "Business Entities"
         '
         'XtraTabPage2
         '
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(645, 246)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(333, 144)
         Me.XtraTabPage2.Text = "XtraTabPage2"
         '
+        'TreeList1
+        '
+        Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
+        Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.TreeList1.Location = New System.Drawing.Point(0, 159)
+        Me.TreeList1.MenuManager = Me.RibbonControl1
+        Me.TreeList1.Name = "TreeList1"
+        Me.TreeList1.BeginUnboundLoad()
+        Me.TreeList1.AppendNode(New Object() {"IDB"}, -1)
+        Me.TreeList1.AppendNode(New Object() {"Attributes"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
+        Me.TreeList1.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES")
+        Me.TreeList1.AppendNode(New Object() {"Globix"}, -1)
+        Me.TreeList1.AppendNode(New Object() {"Clipboard Watcher"}, -1)
+        Me.TreeList1.EndUnboundLoad()
+        Me.TreeList1.OptionsBehavior.Editable = False
+        Me.TreeList1.OptionsBehavior.ReadOnly = True
+        Me.TreeList1.OptionsView.ShowColumns = False
+        Me.TreeList1.OptionsView.ShowHorzLines = False
+        Me.TreeList1.OptionsView.ShowIndicator = False
+        Me.TreeList1.OptionsView.ShowVertLines = False
+        Me.TreeList1.SelectImageList = Me.SvgImageCollection1
+        Me.TreeList1.Size = New System.Drawing.Size(175, 269)
+        Me.TreeList1.TabIndex = 8
+        '
+        'TreeListColumn1
+        '
+        Me.TreeListColumn1.Caption = "TreeListColumn1"
+        Me.TreeListColumn1.FieldName = "TreeListColumn1"
+        Me.TreeListColumn1.Name = "TreeListColumn1"
+        Me.TreeListColumn1.Visible = True
+        Me.TreeListColumn1.VisibleIndex = 0
+        '
+        'SvgImageCollection1
+        '
+        Me.SvgImageCollection1.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg")
+        Me.SvgImageCollection1.Add("bo_organization", "image://svgimages/business objects/bo_organization.svg")
+        Me.SvgImageCollection1.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
+        '
+        'DpiAwareImageCollection1
+        '
+        Me.DpiAwareImageCollection1.Stream = CType(resources.GetObject("DpiAwareImageCollection1.Stream"), DevExpress.Utils.DPIAwareImageCollectionStreamer)
+        '
         'frmAdministrationZooFlow
         '
         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.XtraTabControl1)
-        Me.Controls.Add(Me.TreeViewMain)
+        Me.Controls.Add(Me.TreeList1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.Name = "frmAdministrationZooFlow"
@@ -154,6 +173,9 @@ Partial Class frmAdministrationZooFlow
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl1.ResumeLayout(False)
+        CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DpiAwareImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -165,9 +187,12 @@ Partial Class frmAdministrationZooFlow
     Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents TreeViewMain As TreeView
     Friend WithEvents ImageList1 As ImageList
     Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
     Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
     Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
+    Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
+    Friend WithEvents DpiAwareImageCollection1 As DevExpress.Utils.DPIAwareImageCollection
 End Class

GUIs.ZooFlow/frmAdministrationZooFlow.resx

@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC8
-        CQAAAk1TRnQBSQFMAgEBAwEAARgBAAEYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAwEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -167,6 +167,20 @@
         AQcB+AEfBAAB8AEHAfgBHwQAAfABBwH4AR8EAAHwAQcB+AEfBAAB8AEHAfgBHwIAAYABAAHwAQcB+AEf
         AgABgAEAAfABBwH8AT8CAAH8AQAB8AEHAcABEQIAAfwBAAHwAQcBwAEBAgAB/AEAAfABBwHAAQECAAH8
         AQAB8AEHAcABAQIAAfwBAAL/AcABAQIAAfwBAAL/AcABAwIACw==
+</value>
+  </data>
+  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>127, 17</value>
+  </metadata>
+  <metadata name="DpiAwareImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>293, 17</value>
+  </metadata>
+  <assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="DpiAwareImageCollection1.Stream" type="DevExpress.Utils.DPIAwareImageCollectionStreamer, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu
+        My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAADBE
+        ZXZFeHByZXNzLlV0aWxzLkRQSUF3YXJlSW1hZ2VDb2xsZWN0aW9uU3RyZWFtZXIAAAAAAgAAAAs=
 </value>
   </data>
 </root>

GUIs.ZooFlow/frmAdministrationZooFlow.vb

@@ -1,21 +1,6 @@
 Public Class frmAdministrationZooFlow
     Private _TABIndex As Integer
-    Private Sub frmAdministrationZooFlow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-    End Sub
-
-    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
-        Dim selnode As TreeNode = TreeViewMain.SelectedNode
-        If Not IsNothing(selnode) Then
-            Select Case selnode.Text
-                Case "Business Entities"
-                    _TABIndex = 0
-                Case "Attributes"
-                    _TABIndex = 1
-            End Select
-            DisplayTabs()
-        End If
-    End Sub
     Sub DisplayTabs()
         Try
             Dim oindex = 0
@@ -30,4 +15,19 @@
 
         End Try
     End Sub
+
+    Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged
+        If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
+            Exit Sub
+        End If
+
+        Select Case e.Node.Tag.ToString
+            Case "IDB_ATTRIBUTES"
+                _TABIndex = 0
+            Case "IDB_ENTITIES"
+                _TABIndex = 1
+        End Select
+
+        DisplayTabs()
+    End Sub
 End Class