mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-24 02:08:48 +08:00
567 lines
28 KiB
VB.net
567 lines
28 KiB
VB.net
|
|
Imports StaxRip.UI
|
|
|
|
Public Class CommandLineAudioEncoderForm
|
|
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 = "Command Lines"
|
|
'
|
|
'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
|
|
'
|
|
'CommandLineAudioEncoderForm
|
|
'
|
|
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 = "CommandLineAudioEncoderForm"
|
|
Me.Text = "Audio Command Lines"
|
|
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("Copy Command Line", Sub() Clipboard.SetText(TempProfile.GetCode))
|
|
cms.Add("Show Command Line...", Sub() g.ShowCommandLinePreview("Command Lines", 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 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 form As New HelpForm()
|
|
|
|
form.Doc.WriteStart(Text)
|
|
form.Doc.WriteTips(TipProvider.GetTips, EditControl.TipProvider.GetTips)
|
|
form.Doc.WriteP("Macros")
|
|
|
|
Dim macroList As New StringPairList
|
|
|
|
macroList.Add("%input%", "Audio source file")
|
|
macroList.Add("%output%", "Audio target File")
|
|
macroList.Add("%bitrate%", "Audio bitrate")
|
|
macroList.Add("%delay%", "Audio delay")
|
|
macroList.Add("%channels%", "Audio channels count")
|
|
macroList.Add("%language_native%", "Native language name")
|
|
macroList.Add("%language_english%", "English language name")
|
|
|
|
form.Doc.WriteTable("Command Line Audio Settings Macros", "The macros below are only available in the command line audio settings dialog and override global macros with the same name in case they are defined in both scopes.", macroList)
|
|
form.Doc.WriteTable("Global Macros", Macro.GetTips())
|
|
form.Show()
|
|
End Sub
|
|
|
|
Private Sub CommandLineAudioEncoderForm_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 CommandLineAudioEncoderForm_HelpRequested(sender As Object, hlpevent As HelpEventArgs) Handles Me.HelpRequested
|
|
ShowHelp()
|
|
End Sub
|
|
End Class
|