AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ZooFLow: fix active column?

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-06 13:21:19 +02:00
parent cefe07bf57
commit 1caed3d720
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@ -194,7 +194,7 @@ Public Class frmAdmin_Start
End Try End Try
End Sub End Sub
Private Function Get_ActiveColumn() As GridColumn Private Sub Style_ActiveColumn(ActiveColumn)
Dim oActiveEditor As New RepositoryItemImageComboBox With { Dim oActiveEditor As New RepositoryItemImageComboBox With {
.SmallImages = ActiveImages, .SmallImages = ActiveImages,
.GlyphAlignment = HorzAlignment.Center .GlyphAlignment = HorzAlignment.Center
@ -204,35 +204,36 @@ Public Class frmAdmin_Start
New ImageComboBoxItem("Active", True, 0), New ImageComboBoxItem("Active", True, 0),
New ImageComboBoxItem("Inactive", False, 1) New ImageComboBoxItem("Inactive", False, 1)
}) })
Dim oActiveColumn = New GridColumn() With {
.Name = "columnActive",
.Caption = " ",
.FieldName = COLUMN_NAME_ACTIVE,
.Visible = True,
.VisibleIndex = 0,
.ColumnEdit = oActiveEditor,
.MaxWidth = 30,
.MinWidth = 30,
.Image = ActiveImages.GetImage(0)
}
oActiveColumn.OptionsColumn.AllowEdit = False
Return oActiveColumn With ActiveColumn
End Function .Caption = " "
.Name = "columnActive"
.Visible = True
.VisibleIndex = 0
.ColumnEdit = oActiveEditor
.MaxWidth = 30
.MinWidth = 30
.Image = ActiveImages.GetImage(0)
.OptionsColumn.AllowEdit = False
End With
End Sub
Private Sub Load_Tree(Source As AdminItem) Private Sub Load_Tree(Source As AdminItem)
If Source Is Nothing OrElse Source.SQLResult Is Nothing Then If Source Is Nothing OrElse Source.SQLResult Is Nothing Then
Exit Sub Exit Sub
End If End If
Dim oActiveColumn = Get_ActiveColumn()
GridControl1.DataSource = Source.SQLResult GridControl1.DataSource = Source.SQLResult
GridControl1.ForceInitialize() GridControl1.ForceInitialize()
GridView1.PopulateColumns() GridView1.PopulateColumns()
If GridView1.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then If GridView1.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then
Dim oActiveColumn = New GridColumn() With {.FieldName = COLUMN_NAME_ACTIVE}
GridView1.Columns.Add(oActiveColumn) GridView1.Columns.Add(oActiveColumn)
Style_ActiveColumn(oActiveColumn)
Else
Style_ActiveColumn(GridView1.Columns.Item(COLUMN_NAME_ACTIVE))
End If End If
With GridView1.Appearance.EvenRow With GridView1.Appearance.EvenRow