Wombat
3fca229f52
frmCategoryEdit umbenannt in frmSettings Weitere (erfolglose) Tests, um die richtige Zeitzone bei Google-Kalender-Terminen zu hinterlegen
37 lines
1.0 KiB
VB.net
37 lines
1.0 KiB
VB.net
Imports Newtonsoft.Json
|
|
Public Class Settings
|
|
|
|
Public Property Categories As List(Of Category)
|
|
Public Property DefaultTimezoneId As String
|
|
|
|
|
|
Public Sub New()
|
|
Load()
|
|
End Sub
|
|
|
|
Private Sub Load()
|
|
If My.Settings.CategoryList IsNot Nothing AndAlso My.Settings.CategoryList.Trim.Length > 0 Then
|
|
Try
|
|
Categories = JsonConvert.DeserializeObject(Of List(Of Category))(My.Settings.CategoryList)
|
|
Catch ex As Exception
|
|
Categories = New List(Of Category)
|
|
End Try
|
|
Else
|
|
Categories = New List(Of Category)
|
|
End If
|
|
|
|
If My.Settings.DefaultTimezoneId Is Nothing Then
|
|
DefaultTimezoneId = TimeZoneInfo.Local.Id
|
|
Else
|
|
DefaultTimezoneId = My.Settings.DefaultTimezoneId
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub Save()
|
|
My.Settings.CategoryList = JsonConvert.SerializeObject(Categories)
|
|
My.Settings.DefaultTimezoneId = DefaultTimezoneId
|
|
My.Settings.Save()
|
|
End Sub
|
|
|
|
End Class
|