/Source Code/PowerSong/Item Management/frmSetBackground.vb

Imports System.Windows.Forms

Imports PowerSong.SongDatabase

Imports PowerSong.SongDatabase.Style

Imports PowerSong.SongDatabase.Items



Public Class frmSetBackground



    Private FBackground As OverrideBackground = Nothing



    Public ReadOnly Property Background() As OverrideBackground

        Get

            UpdateBackground()

            Return FBackground

        End Get

    End Property



    Public Sub New(Optional ByVal currentBackground As OverrideBackground = Nothing)



        InitializeComponent()



        If currentBackground IsNot Nothing Then



            Select Case currentBackground.Type



                Case EBackgroundType.Image

                    txtBackgroundImage.Text = currentBackground.Value

                    optImage.Checked = True



                Case EBackgroundType.None

                    optDefault.Checked = True



                Case EBackgroundType.SolidColour

                    pbSolidColour.BackColor = currentBackground.Value

                    optSolidColour.Checked = True



                Case Else

                    ' Everything else is ignored because we can't handle anything else



            End Select



        End If



    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 Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click

        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel

        Me.Close()

    End Sub



    Private Sub btnSelectImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectImage.Click



        If dlgOpenImage.ShowDialog = Windows.Forms.DialogResult.OK Then

            txtBackgroundImage.Text = dlgOpenImage.FileName

            optImage.Checked = True

        End If



    End Sub



    Private Sub btnSelectSolidColour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectSolidColour.Click, pbSolidColour.Click



        If optSolidColour.Checked = False Then

            optSolidColour.Checked = True

        End If



        dlgSelectColour.Color = pbSolidColour.BackColor

        If dlgSelectColour.ShowDialog = Windows.Forms.DialogResult.OK Then

            pbSolidColour.BackColor = dlgSelectColour.Color

        End If



    End Sub



    Private Sub UpdateBackground()



        If optDefault.Checked Then

            FBackground = Nothing

        Else



            If optSolidColour.Checked Then

                FBackground = New OverrideBackground(EBackgroundType.SolidColour, pbSolidColour.BackColor)

            ElseIf optImage.Checked Then

                FBackground = New OverrideBackground(EBackgroundType.Image, txtBackgroundImage.Text)

            End If



        End If



    End Sub



    Private Sub optImage_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optImage.CheckedChanged



        If optImage.Checked AndAlso txtBackgroundImage.Text = "" Then

            btnSelectImage_Click(sender, e)

        End If



    End Sub



End Class