25 lines
924 B
VB.net
25 lines
924 B
VB.net
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 |