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

Imports System.Windows.Forms

Imports PowerSong.Projection

Imports PowerSong.SongDatabase



Public Class frmNotice



    Private FNotice As Notice = Nothing



    Public ReadOnly Property Notice() As Notice

        Get

            UpdateNotice()

            Return FNotice

        End Get

    End Property



    Private FDatabase As Database = Nothing



    Public Sub New(ByVal database As Database)



        InitializeComponent()



        FDatabase = database



        pbTextColour.BackColor = database.Settings.NoticeDefaultBackgroundColour

        pbBackgroundColour.BackColor = database.Settings.NoticeDefaultFontColour

        txtDuration.Value = database.Settings.NoticeDefaultDuration



    End Sub



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



        ' Validate the form

        If txtContent.Text.Trim.Length = 0 Then

            MsgBox("Please specify some content for the notice.", MsgBoxStyle.Information)

            Exit Sub

        End If



        ' Close the form

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



        dlgSelectColour.Color = pbTextColour.BackColor

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

            pbTextColour.BackColor = dlgSelectColour.Color

        End If



    End Sub



    Private Sub SelectBackgroundColour(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectBackgroundColour.Click, pbBackgroundColour.Click



        dlgSelectColour.Color = pbBackgroundColour.BackColor

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

            pbBackgroundColour.BackColor = dlgSelectColour.Color

        End If



    End Sub



    Private Sub UpdateNotice()



        Dim BackgroundColour As Color = FDatabase.Settings.NoticeDefaultBackgroundColour

        Dim ForegroundColour As Color = FDatabase.Settings.NoticeDefaultFontColour

        Dim Duration As Integer = FDatabase.Settings.NoticeDefaultDuration



        If chkOverrideSettings.Checked Then

            BackgroundColour = pbBackgroundColour.BackColor

            ForegroundColour = pbTextColour.BackColor

            Duration = txtDuration.Value

        End If



        FNotice = New Notice(txtContent.Text, FDatabase.Settings.NoticeSpeed, Duration, BackgroundColour, ForegroundColour)

        FNotice.Font = New Font(FDatabase.Settings.NoticeFontName, _

                                FDatabase.Settings.NoticeFontSize, _

                                FDatabase.Settings.NoticeFontStyle, _

                                GraphicsUnit.Point)



    End Sub



    Private Sub chkOverrideSettings_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOverrideSettings.CheckedChanged

        pnlOverride.Enabled = chkOverrideSettings.Checked

    End Sub



End Class