Zooflow: administration

This commit is contained in:
Jonathan Jenne
2021-03-17 10:25:23 +01:00
parent 099d65ed70
commit 64137a297c
38 changed files with 2612 additions and 444 deletions

View File

@@ -185,7 +185,7 @@ Public Class frmAdmin_Start
Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList)
' === ACTIVE COLUMN
Dim oActiveEditor As New RepositoryItemImageComboBox With {
.SmallImages = SvgImageCollection1,
.SmallImages = ActiveImages,
.GlyphAlignment = HorzAlignment.Center
}
oActiveEditor.Buttons.Clear()
@@ -207,7 +207,7 @@ Public Class frmAdmin_Start
' === TYPE/SCOPE COLUMN
Dim oTypeEditor As New RepositoryItemImageComboBox With {
.SmallImages = CWImages,
.SmallImages = TypeImages,
.GlyphAlignment = HorzAlignment.Center
}
oTypeEditor.Buttons.Clear()
@@ -215,7 +215,9 @@ Public Class frmAdmin_Start
New ImageComboBoxItem("Profil", "PROFILE", 0),
New ImageComboBoxItem("Prozess", "PROCESS", 1),
New ImageComboBoxItem("Fenster", "WINDOW", 2),
New ImageComboBoxItem("Feld", "CONTROL", 3)
New ImageComboBoxItem("Feld", "CONTROL", 3),
New ImageComboBoxItem("Attribut", "ATTRIBUTE", 4),
New ImageComboBoxItem("Entität", "ENTITY", 5)
})
Dim oTypeColumn = New Columns.TreeListColumn() With {
.Name = "columnType",