/Source Code/PowerSong/Styles/frmConfigureStyles.vb

Imports System.Windows.Forms

Imports PowerSong.SongDatabase



Public Class frmConfigureStyles



    Private FStyles As Styles



    Public Sub New(ByVal styles As Styles)

        InitializeComponent()

        FStyles = styles

        UpdateList()

    End Sub



    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click

        Me.DialogResult = System.Windows.Forms.DialogResult.OK

        Me.Close()

    End Sub



    Private Sub UpdateList()

        lstStyles.Items.Clear()

        For Each Style As Style In FStyles.GetAllStyles

            lstStyles.Items.Add(New ListItem(Of Guid)(Style.Name, Style.StyleID))

        Next

    End Sub



    Private Sub btnAddStyle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddStyle.Click

        If (New frmNewStyle(FStyles)).ShowDialog = Windows.Forms.DialogResult.OK Then

            UpdateList()

            UpdateControls()

        End If

    End Sub



    Private Sub btnDeleteStyle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteStyle.Click



        Dim StyleID As Guid = DirectCast(lstStyles.SelectedItem, ListItem(Of Guid)).Key

        If MsgBox("Are you sure you wish to delete the style '" + FStyles.GetStyle(StyleID).Name + "'?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            FStyles.DeleteStyle(StyleID)

            lstStyles.Items.RemoveAt(lstStyles.SelectedIndex)

            UpdateControls()

        End If



    End Sub



    Private Sub btnEditStyle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditStyle.Click



        Dim StyleID As Guid = DirectCast(lstStyles.SelectedItem, ListItem(Of Guid)).Key

        If New frmEditStyle(FStyles.GetStyle(StyleID), FStyles).ShowDialog = Windows.Forms.DialogResult.OK Then

            UpdateList()

            UpdateControls()

        End If



    End Sub



    Private Sub lstStyles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstStyles.SelectedIndexChanged

        UpdateControls()

    End Sub



    Private Sub UpdateControls()

        btnDeleteStyle.Enabled = lstStyles.SelectedIndex > -1

        btnEditStyle.Enabled = lstStyles.SelectedIndex > -1

    End Sub



End Class