28 lines
779 B
VB.net
28 lines
779 B
VB.net
Public Class GridOverview
|
|
Private _DataSource As List(Of WorkflowItem)
|
|
|
|
Public Property DataSource As List(Of WorkflowItem)
|
|
Get
|
|
Return _DataSource
|
|
End Get
|
|
Set(value As List(Of WorkflowItem))
|
|
_DataSource = value
|
|
GridControl.DataSource = value
|
|
|
|
If Not IsNothing(value) Then
|
|
ApplyStyles()
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub ApplyStyles()
|
|
With gvOverview.Columns.Item("StateImage")
|
|
.VisibleIndex = 0
|
|
.MaxWidth = 20
|
|
.OptionsColumn.ShowCaption = False
|
|
End With
|
|
gvOverview.Columns.Item("Process").VisibleIndex = 1
|
|
gvOverview.Columns.Item("State").Visible = False
|
|
End Sub
|
|
End Class
|