From ad1b1fca2f48197137494ba3b51a007bdacff69c Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 22 Mar 2021 13:14:23 +0100
Subject: [PATCH] ZooFlow: Improve Admin icons

---
 GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb |  1 +
 GUIs.ZooFlow/Administration/frmAdmin_Start.vb          | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
index ac547b79..9c4f21ba 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
@@ -750,6 +750,7 @@ Partial Class frmAdmin_Start
         Me.TypeImages.Add("editnames", "image://svgimages/dashboards/editnames.svg")
         Me.TypeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
         Me.TypeImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg")
+        Me.TypeImages.Add("travel_map", "image://svgimages/icon builder/travel_map.svg")
         '
         'BarButtonItem11
         '
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
index 071a5f8e..eb8d1f3c 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
@@ -195,13 +195,14 @@ Public Class frmAdmin_Start
         })
         Dim oActiveColumn = New Columns.TreeListColumn() With {
             .Name = "columnActive",
-            .Caption = "Aktiv",
+            .Caption = " ",
             .FieldName = "Active",
             .Visible = True,
             .VisibleIndex = 1,
             .ColumnEdit = oActiveEditor,
             .MaxWidth = 30,
-            .MinWidth = 30
+            .MinWidth = 30,
+            .Image = ActiveImages.GetImage(0)
         }
         oActiveColumn.OptionsColumn.AllowEdit = False
 
@@ -221,13 +222,14 @@ Public Class frmAdmin_Start
         })
         Dim oTypeColumn = New Columns.TreeListColumn() With {
             .Name = "columnType",
-            .Caption = "Typ",
+            .Caption = " ",
             .FieldName = "Scope",
             .Visible = True,
             .VisibleIndex = 2,
             .ColumnEdit = oTypeEditor,
             .MaxWidth = 30,
-            .MinWidth = 30
+            .MinWidth = 30,
+            .Image = TypeImages.GetImage(6)
         }
         oTypeColumn.OptionsColumn.AllowEdit = False