add monodiag, add workflow overview
This commit is contained in:
42
GUIs.ClientSuite/Workflow/WorkflowItem.vb
Normal file
42
GUIs.ClientSuite/Workflow/WorkflowItem.vb
Normal file
@@ -0,0 +1,42 @@
|
||||
Imports System.ComponentModel
|
||||
Imports DigitalData.GUIs.ClientSuite
|
||||
|
||||
Public Class WorkflowItem
|
||||
Implements INotifyPropertyChanged
|
||||
|
||||
|
||||
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
||||
|
||||
Public Enum ItemState
|
||||
Normal
|
||||
Warning
|
||||
Danger
|
||||
End Enum
|
||||
|
||||
Public Property StateImage As Image
|
||||
|
||||
Public Property Title As String
|
||||
|
||||
Public Property WorkflowName As String
|
||||
|
||||
Private _state As ItemState
|
||||
<Browsable(False)>
|
||||
Public Property State As ItemState
|
||||
Get
|
||||
Return _state
|
||||
End Get
|
||||
Set(value As ItemState)
|
||||
_state = value
|
||||
Select Case value
|
||||
Case ItemState.Normal
|
||||
StateImage = My.Resources.ampel_gruen
|
||||
Case ItemState.Warning
|
||||
StateImage = My.Resources.ampel_gelb
|
||||
Case ItemState.Danger
|
||||
StateImage = My.Resources.ampel_rot
|
||||
Case Else
|
||||
StateImage = Nothing
|
||||
End Select
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
Reference in New Issue
Block a user