add SettingsManager.RegisterProvider()

This commit is contained in:
2024-01-04 12:30:10 +01:00
parent 6c98288690
commit 127332d6c8
2 changed files with 15 additions and 11 deletions

View File

@@ -48,16 +48,6 @@ Public Class SettingsManager
End Set
End Property
Private Sub AddAutoSaveHandler()
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit
addedHandler = True
End Sub
Private Sub RemoveAutoSaveHandler()
RemoveHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit
addedHandler = False
End Sub
Public Sub New()
RaiseEvent InitializingManager(Me, EventArgs.Empty)
End Sub
@@ -68,6 +58,20 @@ Public Class SettingsManager
Me.AutoSaveOnExit = autoSaveOnExit
End Sub
Public Sub RegisterProvider(provider As ISettingsProvider)
settingsProvider.Add(provider)
End Sub
Private Sub AddAutoSaveHandler()
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit
addedHandler = True
End Sub
Private Sub RemoveAutoSaveHandler()
RemoveHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit
addedHandler = False
End Sub
Private Sub AutoSaveSettingsOnExit(sender As Object, e As EventArgs)
RaiseEvent AutoSavingSettings(Me, New EventArgs)
Save()