Imports System.ComponentModel
Imports DevExpress.Utils

Public Class frmWorkflowOverview
    Private WorkflowItems As BindingList(Of WorkflowItem)
    Private WorkflowDetails As BindingList(Of WorkflowDetail)

    Private Sub frmWorkflowOverview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WorkflowItems = New BindingList(Of WorkflowItem) From {
            New WorkflowItem() With {
                .Title = "Eingangsrechnung XYZ",
                .State = WorkflowItem.ItemState.Danger,
                .WorkflowName = "Rechnungseingang",
                .CreatedAt = DateTime.Now.AddDays(-3)
            },
            New WorkflowItem() With {
                .Title = "Eingangsrechnung ABC",
                .State = WorkflowItem.ItemState.Normal,
                .WorkflowName = "Rechnungseingang",
                .CreatedAt = DateTime.Now
            },
            New WorkflowItem() With {
                .Title = "Mietvertrag XYZ läuft aus",
                .State = WorkflowItem.ItemState.Warning,
                .WorkflowName = "Vertragsprüfung",
                .CreatedAt = DateTime.Now.AddDays(-1)
            }
        }

        WorkflowDetails = New BindingList(Of WorkflowDetail) From {
            New WorkflowDetail() With {
                .Title = "foooo!"
            }
        }

        GridWorkflowOverview.DataSource = WorkflowItems
        GridWorkflowDetails.DataSource = WorkflowDetails

        gvOverview.GroupFormat = "[#image]{1} {2}"

        With gvOverview.Columns.Item("CreatedAt")
            .OptionsFilter.FilterPopupMode = DevExpress.XtraGrid.Columns.FilterPopupMode.DateAlt
            .GroupInterval = DevExpress.XtraGrid.ColumnGroupInterval.DateRange
            .SortOrder = DevExpress.Data.ColumnSortOrder.Descending
            .Group()
        End With

    End Sub
End Class