rename Workflow to ModuleWorkflow
This commit is contained in:
27
GUIs.ClientSuite/ModuleWorkflow/GridOverview.vb
Normal file
27
GUIs.ClientSuite/ModuleWorkflow/GridOverview.vb
Normal file
@@ -0,0 +1,27 @@
|
||||
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
|
||||
Reference in New Issue
Block a user