43 lines
1.1 KiB
VB.net
43 lines
1.1 KiB
VB.net
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
|