ZooFlow: Improve Admin icons

This commit is contained in:
Jonathan Jenne 2021-03-22 13:14:23 +01:00
parent 97dca56181
commit ad1b1fca2f
2 changed files with 7 additions and 4 deletions

View File

@ -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
'

View File

@ -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