Imports DigitalData.Modules.Config

Public Class frmConfig
    Public Property ConfigManager As ConfigManager(Of MultiTool.Shared.Config)

    Private ReadOnly Property Config As MultiTool.Shared.Config
        Get
            Return ConfigManager?.Config
        End Get
    End Property

    Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtBaseURL.EditValue = Config.Webservice.BaseUrl
        txtUsername.EditValue = Config.Webservice.Username
        txtPassword.EditValue = Config.Webservice.Password
        txtImportBasePath.EditValue = Config.Webservice.ImportBasePath
        txtImportRelativePath.EditValue = Config.Webservice.ImportRelativePath
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Config.Webservice.BaseUrl = txtBaseURL.EditValue
        Config.Webservice.Username = txtUsername.EditValue
        Config.Webservice.Password = txtPassword.EditValue
        Config.Webservice.ImportBasePath = txtImportBasePath.EditValue
        Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue
        ConfigManager.Save()
    End Sub
End Class