staxrip/Forms/BatchAudioEncoderForm.vb

Imports StaxRip.UI

Public Class BatchAudioEncoderForm
    Inherits DialogBase

#Region " Designer "
    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overloads Overrides Sub Dispose(disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents EditControl As StaxRip.MacroEditorControl
    Friend WithEvents tbStreamName As System.Windows.Forms.TextBox
    Friend WithEvents lStreamName As System.Windows.Forms.Label
    Friend WithEvents lInput As System.Windows.Forms.Label
    Friend WithEvents tbChannels As System.Windows.Forms.TextBox
    Friend WithEvents lChannels As System.Windows.Forms.Label
    Friend WithEvents bnCancel As StaxRip.UI.ButtonEx
    Friend WithEvents bnOK As StaxRip.UI.ButtonEx
    Friend WithEvents tbType As System.Windows.Forms.TextBox
    Friend WithEvents mbLanguage As StaxRip.UI.MenuButton
    Friend WithEvents tbProfileName As TextBoxEx
    Friend WithEvents laProfileName As LabelEx
    Friend WithEvents bnMenu As ButtonEx
    Friend WithEvents cms As ContextMenuStripEx
    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
    Friend WithEvents tlpBitrateEtcValues As TableLayoutPanel
    Friend WithEvents tlpBitrateEtcLabels As TableLayoutPanel
    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
    Friend WithEvents tlpMain As TableLayoutPanel
    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.tbInput = New System.Windows.Forms.TextBox()
        Me.lInput = New System.Windows.Forms.Label()
        Me.lType = New System.Windows.Forms.Label()
        Me.lBitrate = New System.Windows.Forms.Label()
        Me.tbBitrate = New System.Windows.Forms.TextBox()
        Me.lLanguage = New System.Windows.Forms.Label()
        Me.lDelay = New System.Windows.Forms.Label()
        Me.tbDelay = New System.Windows.Forms.TextBox()
        Me.TipProvider = New StaxRip.UI.TipProvider(Me.components)
        Me.tbStreamName = New System.Windows.Forms.TextBox()
        Me.tbChannels = New System.Windows.Forms.TextBox()
        Me.ValidationProvider = New StaxRip.UI.ValidationProvider()
        Me.EditControl = New StaxRip.MacroEditorControl()
        Me.lStreamName = New System.Windows.Forms.Label()
        Me.lChannels = New System.Windows.Forms.Label()
        Me.bnCancel = New StaxRip.UI.ButtonEx()
        Me.bnOK = New StaxRip.UI.ButtonEx()
        Me.tbType = New System.Windows.Forms.TextBox()
        Me.mbLanguage = New StaxRip.UI.MenuButton()
        Me.tbProfileName = New StaxRip.UI.TextBoxEx()
        Me.laProfileName = New StaxRip.UI.LabelEx()
        Me.bnMenu = New StaxRip.UI.ButtonEx()
        Me.cms = New StaxRip.UI.ContextMenuStripEx(Me.components)
        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
        Me.tlpBitrateEtcValues = New System.Windows.Forms.TableLayoutPanel()
        Me.tlpBitrateEtcLabels = New System.Windows.Forms.TableLayoutPanel()
        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
        Me.tlpMain = New System.Windows.Forms.TableLayoutPanel()
        Me.TableLayoutPanel1.SuspendLayout()
        Me.tlpBitrateEtcValues.SuspendLayout()
        Me.tlpBitrateEtcLabels.SuspendLayout()
        Me.FlowLayoutPanel1.SuspendLayout()
        Me.tlpMain.SuspendLayout()
        Me.SuspendLayout()
        '
        'tbInput
        '
        Me.tbInput.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbInput.Location = New System.Drawing.Point(10, 89)
        Me.tbInput.Margin = New System.Windows.Forms.Padding(10, 5, 5, 5)
        Me.tbInput.Name = "tbInput"
        Me.tbInput.Size = New System.Drawing.Size(570, 55)
        Me.tbInput.TabIndex = 1
        '
        'lInput
        '
        Me.lInput.Anchor = System.Windows.Forms.AnchorStyles.Left
        Me.lInput.AutoSize = True
        Me.lInput.Location = New System.Drawing.Point(5, 15)
        Me.lInput.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lInput.Name = "lInput"
        Me.lInput.Size = New System.Drawing.Size(452, 48)
        Me.lInput.TabIndex = 0
        Me.lInput.Text = "Supported Input File Types:"
        '
        'lType
        '
        Me.lType.Anchor = System.Windows.Forms.AnchorStyles.Left
        Me.lType.AutoSize = True
        Me.lType.Location = New System.Drawing.Point(590, 15)
        Me.lType.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lType.Name = "lType"
        Me.lType.Size = New System.Drawing.Size(289, 48)
        Me.lType.TabIndex = 11
        Me.lType.Text = "Output File Type:"
        '
        'lBitrate
        '
        Me.lBitrate.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lBitrate.AutoSize = True
        Me.lBitrate.Location = New System.Drawing.Point(5, 15)
        Me.lBitrate.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lBitrate.Name = "lBitrate"
        Me.lBitrate.Size = New System.Drawing.Size(185, 48)
        Me.lBitrate.TabIndex = 2
        Me.lBitrate.Text = "Bitrate:"
        '
        'tbBitrate
        '
        Me.tbBitrate.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbBitrate.Location = New System.Drawing.Point(10, 12)
        Me.tbBitrate.Margin = New System.Windows.Forms.Padding(10, 5, 5, 5)
        Me.tbBitrate.Name = "tbBitrate"
        Me.ValidationProvider.SetPattern(Me.tbBitrate, "^[1-9]+\d*$")
        Me.tbBitrate.Size = New System.Drawing.Size(180, 55)
        Me.tbBitrate.TabIndex = 3
        Me.tbBitrate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'lLanguage
        '
        Me.lLanguage.Anchor = System.Windows.Forms.AnchorStyles.Left
        Me.lLanguage.AutoSize = True
        Me.lLanguage.Location = New System.Drawing.Point(1176, 15)
        Me.lLanguage.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lLanguage.Name = "lLanguage"
        Me.lLanguage.Size = New System.Drawing.Size(182, 48)
        Me.lLanguage.TabIndex = 13
        Me.lLanguage.Text = "Language:"
        '
        'lDelay
        '
        Me.lDelay.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lDelay.AutoSize = True
        Me.lDelay.Location = New System.Drawing.Point(395, 15)
        Me.lDelay.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lDelay.Name = "lDelay"
        Me.lDelay.Size = New System.Drawing.Size(185, 48)
        Me.lDelay.TabIndex = 7
        Me.lDelay.Text = "Delay:"
        '
        'tbDelay
        '
        Me.tbDelay.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbDelay.Location = New System.Drawing.Point(395, 12)
        Me.tbDelay.Margin = New System.Windows.Forms.Padding(5)
        Me.tbDelay.Name = "tbDelay"
        Me.ValidationProvider.SetPattern(Me.tbDelay, "^(-?[1-9]+\d*|-?0)$")
        Me.tbDelay.Size = New System.Drawing.Size(185, 55)
        Me.tbDelay.TabIndex = 8
        Me.tbDelay.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'tbStreamName
        '
        Me.tbStreamName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbStreamName.Location = New System.Drawing.Point(590, 246)
        Me.tbStreamName.Margin = New System.Windows.Forms.Padding(5)
        Me.tbStreamName.Name = "tbStreamName"
        Me.tbStreamName.Size = New System.Drawing.Size(576, 55)
        Me.tbStreamName.TabIndex = 10
        '
        'tbChannels
        '
        Me.tbChannels.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbChannels.Location = New System.Drawing.Point(200, 12)
        Me.tbChannels.Margin = New System.Windows.Forms.Padding(5)
        Me.tbChannels.Name = "tbChannels"
        Me.ValidationProvider.SetPattern(Me.tbChannels, "^[1-9]{1}$")
        Me.tbChannels.Size = New System.Drawing.Size(185, 55)
        Me.tbChannels.TabIndex = 6
        Me.tbChannels.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'EditControl
        '
        Me.EditControl.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EditControl.Location = New System.Drawing.Point(15, 320)
        Me.EditControl.Margin = New System.Windows.Forms.Padding(15, 0, 15, 0)
        Me.EditControl.Name = "EditControl"
        Me.EditControl.Size = New System.Drawing.Size(1734, 377)
        Me.EditControl.TabIndex = 5
        Me.EditControl.Text = "Batch Code"
        '
        'lStreamName
        '
        Me.lStreamName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lStreamName.AutoSize = True
        Me.lStreamName.Location = New System.Drawing.Point(590, 171)
        Me.lStreamName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lStreamName.Name = "lStreamName"
        Me.lStreamName.Size = New System.Drawing.Size(576, 48)
        Me.lStreamName.TabIndex = 9
        Me.lStreamName.Text = "Track Name:"
        '
        'lChannels
        '
        Me.lChannels.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lChannels.AutoSize = True
        Me.lChannels.Location = New System.Drawing.Point(200, 15)
        Me.lChannels.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lChannels.Name = "lChannels"
        Me.lChannels.Size = New System.Drawing.Size(185, 48)
        Me.lChannels.TabIndex = 4
        Me.lChannels.Text = "Channels:"
        '
        'bnCancel
        '
        Me.bnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.bnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.bnCancel.Location = New System.Drawing.Point(365, 15)
        Me.bnCancel.Margin = New System.Windows.Forms.Padding(15)
        Me.bnCancel.Size = New System.Drawing.Size(250, 70)
        Me.bnCancel.Text = "Cancel"
        '
        'bnOK
        '
        Me.bnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.bnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.bnOK.Location = New System.Drawing.Point(100, 15)
        Me.bnOK.Margin = New System.Windows.Forms.Padding(0, 15, 0, 15)
        Me.bnOK.Size = New System.Drawing.Size(250, 70)
        Me.bnOK.Text = "OK"
        '
        'tbType
        '
        Me.tbType.Anchor = System.Windows.Forms.AnchorStyles.Left
        Me.tbType.Location = New System.Drawing.Point(590, 89)
        Me.tbType.Margin = New System.Windows.Forms.Padding(5)
        Me.tbType.Name = "tbType"
        Me.tbType.Size = New System.Drawing.Size(180, 55)
        Me.tbType.TabIndex = 15
        '
        'mbLanguage
        '
        Me.mbLanguage.Anchor = System.Windows.Forms.AnchorStyles.Left
        Me.mbLanguage.Location = New System.Drawing.Point(1176, 83)
        Me.mbLanguage.Margin = New System.Windows.Forms.Padding(5)
        Me.mbLanguage.ShowMenuSymbol = True
        Me.mbLanguage.Size = New System.Drawing.Size(335, 68)
        '
        'tbProfileName
        '
        Me.tbProfileName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbProfileName.Location = New System.Drawing.Point(1176, 246)
        Me.tbProfileName.Margin = New System.Windows.Forms.Padding(5, 5, 10, 5)
        Me.tbProfileName.Size = New System.Drawing.Size(572, 55)
        '
        'laProfileName
        '
        Me.laProfileName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.laProfileName.AutoSize = True
        Me.laProfileName.Location = New System.Drawing.Point(1174, 171)
        Me.laProfileName.Size = New System.Drawing.Size(581, 48)
        Me.laProfileName.Text = "Name:"
        Me.laProfileName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'bnMenu
        '
        Me.bnMenu.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.bnMenu.ContextMenuStrip = Me.cms
        Me.bnMenu.Location = New System.Drawing.Point(15, 15)
        Me.bnMenu.Margin = New System.Windows.Forms.Padding(15)
        Me.bnMenu.ShowMenuSymbol = True
        Me.bnMenu.Size = New System.Drawing.Size(70, 70)
        '
        'cms
        '
        Me.cms.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.cms.ImageScalingSize = New System.Drawing.Size(48, 48)
        Me.cms.Name = "cms"
        Me.cms.Size = New System.Drawing.Size(61, 4)
        '
        'TableLayoutPanel1
        '
        Me.TableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TableLayoutPanel1.ColumnCount = 3
        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!))
        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!))
        Me.TableLayoutPanel1.Controls.Add(Me.tlpBitrateEtcValues, 0, 3)
        Me.TableLayoutPanel1.Controls.Add(Me.tlpBitrateEtcLabels, 0, 2)
        Me.TableLayoutPanel1.Controls.Add(Me.lInput, 0, 0)
        Me.TableLayoutPanel1.Controls.Add(Me.tbProfileName, 2, 3)
        Me.TableLayoutPanel1.Controls.Add(Me.laProfileName, 2, 2)
        Me.TableLayoutPanel1.Controls.Add(Me.lType, 1, 0)
        Me.TableLayoutPanel1.Controls.Add(Me.lLanguage, 2, 0)
        Me.TableLayoutPanel1.Controls.Add(Me.tbStreamName, 1, 3)
        Me.TableLayoutPanel1.Controls.Add(Me.lStreamName, 1, 2)
        Me.TableLayoutPanel1.Controls.Add(Me.tbType, 1, 1)
        Me.TableLayoutPanel1.Controls.Add(Me.mbLanguage, 2, 1)
        Me.TableLayoutPanel1.Controls.Add(Me.tbInput, 0, 1)
        Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 3)
        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
        Me.TableLayoutPanel1.RowCount = 4
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
        Me.TableLayoutPanel1.Size = New System.Drawing.Size(1758, 314)
        Me.TableLayoutPanel1.TabIndex = 18
        '
        'tlpBitrateEtcValues
        '
        Me.tlpBitrateEtcValues.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tlpBitrateEtcValues.ColumnCount = 3
        Me.tlpBitrateEtcValues.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.tlpBitrateEtcValues.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.tlpBitrateEtcValues.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.tlpBitrateEtcValues.Controls.Add(Me.tbBitrate, 0, 0)
        Me.tlpBitrateEtcValues.Controls.Add(Me.tbChannels, 1, 0)
        Me.tlpBitrateEtcValues.Controls.Add(Me.tbDelay, 2, 0)
        Me.tlpBitrateEtcValues.Location = New System.Drawing.Point(0, 234)
        Me.tlpBitrateEtcValues.Margin = New System.Windows.Forms.Padding(0)
        Me.tlpBitrateEtcValues.Name = "tlpBitrateEtcValues"
        Me.tlpBitrateEtcValues.RowCount = 1
        Me.tlpBitrateEtcValues.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlpBitrateEtcValues.Size = New System.Drawing.Size(585, 80)
        Me.tlpBitrateEtcValues.TabIndex = 20
        '
        'tlpBitrateEtcLabels
        '
        Me.tlpBitrateEtcLabels.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tlpBitrateEtcLabels.ColumnCount = 3
        Me.tlpBitrateEtcLabels.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.tlpBitrateEtcLabels.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.tlpBitrateEtcLabels.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
        Me.tlpBitrateEtcLabels.Controls.Add(Me.lBitrate, 0, 0)
        Me.tlpBitrateEtcLabels.Controls.Add(Me.lChannels, 1, 0)
        Me.tlpBitrateEtcLabels.Controls.Add(Me.lDelay, 2, 0)
        Me.tlpBitrateEtcLabels.Location = New System.Drawing.Point(0, 156)
        Me.tlpBitrateEtcLabels.Margin = New System.Windows.Forms.Padding(0)
        Me.tlpBitrateEtcLabels.Name = "tlpBitrateEtcLabels"
        Me.tlpBitrateEtcLabels.RowCount = 1
        Me.tlpBitrateEtcLabels.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlpBitrateEtcLabels.Size = New System.Drawing.Size(585, 78)
        Me.tlpBitrateEtcLabels.TabIndex = 19
        '
        'FlowLayoutPanel1
        '
        Me.FlowLayoutPanel1.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.FlowLayoutPanel1.AutoSize = True
        Me.FlowLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.FlowLayoutPanel1.Controls.Add(Me.bnMenu)
        Me.FlowLayoutPanel1.Controls.Add(Me.bnOK)
        Me.FlowLayoutPanel1.Controls.Add(Me.bnCancel)
        Me.FlowLayoutPanel1.Location = New System.Drawing.Point(1134, 697)
        Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(0)
        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(630, 100)
        Me.FlowLayoutPanel1.TabIndex = 19
        '
        'tlpMain
        '
        Me.tlpMain.ColumnCount = 1
        Me.tlpMain.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlpMain.Controls.Add(Me.FlowLayoutPanel1, 0, 2)
        Me.tlpMain.Controls.Add(Me.TableLayoutPanel1, 0, 0)
        Me.tlpMain.Controls.Add(Me.EditControl, 0, 1)
        Me.tlpMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.tlpMain.Location = New System.Drawing.Point(0, 0)
        Me.tlpMain.Name = "tlpMain"
        Me.tlpMain.RowCount = 3
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 320.0!))
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlpMain.Size = New System.Drawing.Size(1764, 797)
        Me.tlpMain.TabIndex = 20
        '
        'BatchAudioEncoderForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
        Me.ClientSize = New System.Drawing.Size(1764, 797)
        Me.Controls.Add(Me.tlpMain)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Me.KeyPreview = True
        Me.Margin = New System.Windows.Forms.Padding(11, 10, 11, 10)
        Me.Name = "BatchAudioEncoderForm"
        Me.Text = "Batch Audio Settings"
        Me.TableLayoutPanel1.ResumeLayout(False)
        Me.TableLayoutPanel1.PerformLayout()
        Me.tlpBitrateEtcValues.ResumeLayout(False)
        Me.tlpBitrateEtcValues.PerformLayout()
        Me.tlpBitrateEtcLabels.ResumeLayout(False)
        Me.tlpBitrateEtcLabels.PerformLayout()
        Me.FlowLayoutPanel1.ResumeLayout(False)
        Me.tlpMain.ResumeLayout(False)
        Me.tlpMain.PerformLayout()
        Me.ResumeLayout(False)

    End Sub

    Friend WithEvents tbInput As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents lType As System.Windows.Forms.Label
    Friend WithEvents lBitrate As System.Windows.Forms.Label
    Friend WithEvents tbBitrate As System.Windows.Forms.TextBox
    Friend WithEvents lLanguage As System.Windows.Forms.Label
    Friend WithEvents lDelay As System.Windows.Forms.Label
    Friend WithEvents tbDelay As System.Windows.Forms.TextBox
    Friend WithEvents TipProvider As StaxRip.UI.TipProvider
    Friend WithEvents ValidationProvider As StaxRip.UI.ValidationProvider
#End Region

    Private Profile, TempProfile As BatchAudioProfile

    Sub New(profile As BatchAudioProfile)
        InitializeComponent()

        Me.Profile = profile
        TempProfile = ObjectHelp.GetCopy(Of BatchAudioProfile)(profile)
        tbType.Text = TempProfile.OutputFileType
        tbInput.Text = TempProfile.SupportedInput.Join(" ")
        If TempProfile.Name <> TempProfile.DefaultName Then tbProfileName.Text = TempProfile.Name
        tbProfileName.SendMessageCue(TempProfile.Name, False)

        EditControl.SetCommandLineDefaults()
        EditControl.Value = TempProfile.CommandLines
        EditControl.SpecialMacrosFunction = AddressOf TempProfile.ExpandMacros

        AddHandler EditControl.rtbEdit.TextChanged, AddressOf tbEditTextChanged

        tbStreamName.Text = TempProfile.StreamName
        tbBitrate.Text = TempProfile.Bitrate.ToString
        tbDelay.Text = TempProfile.Delay.ToString
        tbChannels.Text = TempProfile.Channels.ToString

        TipProvider.SetTip("Audio channels count", tbChannels, lChannels)
        TipProvider.SetTip("Display language of the track.", mbLanguage, lLanguage)
        TipProvider.SetTip("The targeted bitrate of the output file.", tbBitrate, lBitrate)
        TipProvider.SetTip("Audio delay to be fixed.", tbDelay, lDelay)
        TipProvider.SetTip("File types accepted as input, leave empty to support any file type.", tbInput, lInput)
        TipProvider.SetTip("Track name used by the muxer. The track name may contain macros.", tbStreamName, lStreamName)
        TipProvider.SetTip("If no name is defined StaxRip auto generate the name.", laProfileName, tbProfileName)

        cms.Add("Execute Batch Code", AddressOf Execute, TempProfile.File <> "").SetImage(Symbol.fa_terminal)
        cms.Add("Copy Batch Code", Sub() Clipboard.SetText(TempProfile.GetCode))
        cms.Add("Show Batch Code...", Sub() g.ShowCommandLinePreview("Batch Code", TempProfile.GetCode))
        cms.Add("Save Profile...", AddressOf SaveProfile, "Saves the current settings as profile").SetImage(Symbol.Save)
        cms.Add("Help", AddressOf ShowHelp).SetImage(Symbol.Help)

        ActiveControl = bnOK
    End Sub

    Sub SaveProfile()
        Dim gap = ObjectHelp.GetCopy(Of BatchAudioProfile)(TempProfile)
        Dim name = InputBox.Show("Enter the profile name.", "Save Profile", gap.Name)

        If name <> "" Then
            gap.Name = name
            s.AudioProfiles.Add(gap)
            MsgInfo("The profile was saved.")
        End If
    End Sub

    Sub Execute()
        Dim batchPath = p.TempDir + p.TargetFile.Base + "_aexe.bat"
        Dim batchCode = Proc.WriteBatchFile(batchPath, TempProfile.GetCode)
        Dim batchProc As New Process
        batchProc.StartInfo.FileName = "cmd.exe"
        batchProc.StartInfo.Arguments = "/k """ + batchPath + """"
        batchProc.StartInfo.WorkingDirectory = p.TempDir
        batchProc.Start()
    End Sub

    Private Sub CommandLineAudioSettingsForm_FormClosed() Handles Me.FormClosed
        If DialogResult = DialogResult.OK Then
            Profile.SupportedInput = TempProfile.SupportedInput
            Profile.OutputFileType = TempProfile.OutputFileType
            Profile.CommandLines = TempProfile.CommandLines
            Profile.Bitrate = TempProfile.Bitrate
            Profile.StreamName = TempProfile.StreamName
            Profile.Channels = TempProfile.Channels
            Profile.Name = TempProfile.Name
            Profile.Language = TempProfile.Language
            Profile.Delay = TempProfile.Delay
        End If
    End Sub

    Private Sub tbStreamName_TextChanged() Handles tbStreamName.TextChanged
        TempProfile.StreamName = tbStreamName.Text
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbInput_TextChanged() Handles tbInput.TextChanged
        TempProfile.SupportedInput = tbInput.Text.ToLower.SplitNoEmptyAndWhiteSpace(",", ";", " ")
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbType_TextChanged() Handles tbType.TextChanged
        TempProfile.OutputFileType = tbType.Text
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbBitrate_TextChanged() Handles tbBitrate.TextChanged
        TempProfile.Bitrate = tbBitrate.Text.ToInt
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbChannels_TextChanged() Handles tbChannels.TextChanged
        TempProfile.Channels = tbChannels.Text.ToInt
        EditControl.UpdatePreview()
    End Sub

    Private Sub mbLanguage_ValueChangedUser(value As Object) Handles mbLanguage.ValueChangedUser
        TempProfile.Language = DirectCast(mbLanguage.Value, Language)
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbEditTextChanged(sender As Object, args As EventArgs)
        TempProfile.CommandLines = EditControl.rtbEdit.Text
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbDelay_TextChanged() Handles tbDelay.TextChanged
        TempProfile.Delay = tbDelay.Text.ToInt
        EditControl.UpdatePreview()
    End Sub

    Private Sub tbProfileName_TextChanged(sender As Object, e As EventArgs) Handles tbProfileName.TextChanged
        TempProfile.Name = tbProfileName.Text
    End Sub

    Sub ShowHelp()
        Dim f As New HelpForm()

        f.Doc.WriteStart(Text)
        f.Doc.WriteP("The batch audio settings define audio conversion batch code.")
        f.Doc.WriteTips(TipProvider.GetTips, EditControl.TipProvider.GetTips)
        f.Doc.WriteP("Macros", Strings.MacrosHelp)

        Dim l As New StringPairList

        l.Add("%input%", "Audio source file")
        l.Add("%output%", "Audio target File")
        l.Add("%bitrate%", "Audio bitrate")
        l.Add("%delay%", "Audio delay")
        l.Add("%channels%", "Audio channels count")
        l.Add("%language_native%", "Native language name")
        l.Add("%language_english%", "English language name")

        f.Doc.WriteTable("Batch Audio Settings Macros", "The macros below are only available in the batch audio settings dialog and override global macros with the same name in case they are defined in both scopes.", l)
        f.Doc.WriteTable("Global Macros", Macro.GetTips())
        f.Show()
    End Sub

    Private Sub BatchAudioEncoderForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Refresh()

        For Each i In Language.Languages
            If i.IsCommon Then
                mbLanguage.Add(i.ToString, i)
            Else
                mbLanguage.Add("More | " + i.ToString.Substring(0, 1).ToUpper + " | " + i.ToString, i)
            End If
        Next

        mbLanguage.Value = TempProfile.Language
    End Sub

    Private Sub BatchAudioEncoderForm_HelpRequested(sender As Object, hlpevent As HelpEventArgs) Handles Me.HelpRequested
        ShowHelp()
    End Sub
End Class