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

Imports System.Windows.Forms

Imports PowerSong.SongDatabase

Imports PowerSong.SongDatabase.Items



Public Class frmTitle



    Private FTitle As New AdhocItem



    Public ReadOnly Property Title() As AdhocItem

        Get

            UpdateTitle()

            Return FTitle

        End Get

    End Property



    Private Enum EMode

        Add

        Edit

    End Enum



    Private FMode As EMode



    Public Sub New()

        InitializeComponent()

        FMode = EMode.Add

        Text = "Add Title"

    End Sub



    Public Sub New(ByVal existingTitle As AdhocItem)



        InitializeComponent()



        FMode = EMode.Edit

        FTitle = existingTitle

        txtTitle.Text = FTitle.Title

        txtContents.Text = FTitle.CombineIntoString

        Text = "Edit Title"



    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 UpdateTitle()

        FTitle.Title = txtTitle.Text

        FTitle.Parts = BaseItem.SplitIntoParts(txtContents.Lines)

    End Sub



    Private Sub frmTitle_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown

        txtTitle.SelectAll()

        txtTitle.Focus()

    End Sub



End Class