Public Class frmCategoryEdit

    Private Sub frmCategoryEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        prepare()
    End Sub

    Private Sub prepare()
        grd.DataSource = General.Settings.Categories
        With grdv
            .PopulateColumns()
            .Columns(NameOf(Category.Key)).OptionsColumn.AllowEdit = False
            .Columns(NameOf(Category.Key)).Caption = "Kürzel"
            .Columns(NameOf(Category.Text)).Caption = "Bezeichnung"
            .Columns(NameOf(Category.Color)).Caption = "Farbe"
            .Columns(NameOf(Category.Exclude)).Caption = "Auf Kalender ausschließen"
        End With
    End Sub

    Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick
        GridFunctions.EndGridEdit(grdv)
        General.Settings.Save()
        DialogResult = DialogResult.OK
    End Sub

End Class