staxrip/Source/Forms/CommandLineVideoEncoderForm.vb

Imports StaxRip.UI

Public Class CommandLineVideoEncoderForm
    Inherits DialogBase

#Region " Designer "
    Friend WithEvents EncodingControl As StaxRip.MacroEditorControl
    Friend WithEvents laType As LabelEx
    Friend WithEvents TipProvider As StaxRip.UI.TipProvider
    Friend WithEvents CompCheckControl As StaxRip.MacroEditorControl
    Friend WithEvents cbQualityMode As CheckBoxEx
    Friend WithEvents numPercent As NumEdit
    Friend WithEvents laPercent As LabelEx
    Friend WithEvents bnCancel As StaxRip.UI.ButtonEx
    Friend WithEvents bnOK As StaxRip.UI.ButtonEx
    Friend WithEvents tlpMain As TableLayoutPanel
    Friend WithEvents tbType As StaxRip.UI.TextEdit
    Friend WithEvents tlpTop As TableLayoutPanel
    Friend WithEvents flpBottom As FlowLayoutPanelEx
    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.laType = New LabelEx()
        Me.cbQualityMode = New CheckBoxEx()
        Me.numPercent = New StaxRip.UI.NumEdit()
        Me.CompCheckControl = New StaxRip.MacroEditorControl()
        Me.EncodingControl = New StaxRip.MacroEditorControl()
        Me.TipProvider = New StaxRip.UI.TipProvider(Me.components)
        Me.laPercent = New LabelEx()
        Me.bnCancel = New StaxRip.UI.ButtonEx()
        Me.bnOK = New StaxRip.UI.ButtonEx()
        Me.tlpMain = New TableLayoutPanel()
        Me.flpBottom = New FlowLayoutPanelEx()
        Me.tlpTop = New TableLayoutPanel()
        Me.tbType = New StaxRip.UI.TextEdit()
        Me.tlpMain.SuspendLayout()
        Me.flpBottom.SuspendLayout()
        Me.tlpTop.SuspendLayout()
        Me.SuspendLayout()
        '
        'laType
        '
        Me.laType.Anchor = AnchorStyles.None
        Me.laType.AutoSize = True
        Me.laType.Location = New System.Drawing.Point(20, 26)
        Me.laType.Margin = New Padding(20, 0, 3, 0)
        Me.laType.Name = "laType"
        Me.laType.Size = New System.Drawing.Size(289, 48)
        Me.laType.TabIndex = 0
        Me.laType.Text = "Output File Type:"
        '
        'cbQualityMode
        '
        Me.cbQualityMode.Anchor = AnchorStyles.None
        Me.cbQualityMode.AutoSize = True
        Me.cbQualityMode.Location = New System.Drawing.Point(468, 24)
        Me.cbQualityMode.Margin = New Padding(50, 3, 3, 3)
        Me.cbQualityMode.Name = "cbQualityMode"
        Me.cbQualityMode.Size = New System.Drawing.Size(281, 52)
        Me.cbQualityMode.TabIndex = 3
        Me.cbQualityMode.Text = "Quality Mode"
        Me.TipProvider.SetTipText(Me.cbQualityMode, "In Quality Mode bitrate related features are disabled.")
        '
        'numPercent
        '
        Me.numPercent.Anchor = AnchorStyles.None
        Me.numPercent.Increment = 5.0R
        Me.numPercent.Location = New System.Drawing.Point(1122, 20)
        Me.numPercent.Maximum = 200.0R
        Me.numPercent.Name = "numPercent"
        Me.numPercent.Size = New System.Drawing.Size(140, 60)
        Me.numPercent.TabIndex = 5
        '
        'CompCheckControl
        '
        Me.CompCheckControl.Dock = DockStyle.Fill
        Me.CompCheckControl.Font = FontManager.GetDefaultFont()
        Me.CompCheckControl.Location = New System.Drawing.Point(15, 422)
        Me.CompCheckControl.Margin = New Padding(15, 15, 15, 0)
        Me.CompCheckControl.Name = "CompCheckControl"
        Me.CompCheckControl.Size = New System.Drawing.Size(1363, 286)
        Me.CompCheckControl.TabIndex = 1
        Me.CompCheckControl.Text = "Compressibility Check"
        '
        'EncodingControl
        '
        Me.EncodingControl.Dock = DockStyle.Fill
        Me.EncodingControl.Font = FontManager.GetDefaultFont()
        Me.EncodingControl.Location = New System.Drawing.Point(15, 106)
        Me.EncodingControl.Margin = New Padding(15, 0, 15, 0)
        Me.EncodingControl.Name = "EncodingControl"
        Me.EncodingControl.Size = New System.Drawing.Size(1363, 301)
        Me.EncodingControl.TabIndex = 0
        Me.EncodingControl.Text = "Command Line"
        '
        'laPercent
        '
        Me.laPercent.Anchor = AnchorStyles.None
        Me.laPercent.AutoSize = True
        Me.laPercent.Location = New System.Drawing.Point(802, 26)
        Me.laPercent.Margin = New Padding(50, 0, 3, 0)
        Me.laPercent.Name = "laPercent"
        Me.laPercent.Size = New System.Drawing.Size(314, 48)
        Me.laPercent.TabIndex = 4
        Me.laPercent.Text = "Aimed Quality (%):"
        '
        'bnCancel
        '
        Me.bnCancel.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
        Me.bnCancel.DialogResult = DialogResult.Cancel
        Me.bnCancel.Location = New System.Drawing.Point(265, 0)
        Me.bnCancel.Margin = New Padding(15, 0, 0, 0)
        Me.bnCancel.Size = New System.Drawing.Size(250, 70)
        Me.bnCancel.Text = "Cancel"
        '
        'bnOK
        '
        Me.bnOK.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
        Me.bnOK.DialogResult = DialogResult.OK
        Me.bnOK.Location = New System.Drawing.Point(0, 0)
        Me.bnOK.Margin = New Padding(0)
        Me.bnOK.Size = New System.Drawing.Size(250, 70)
        Me.bnOK.Text = "OK"
        '
        'tlpMain
        '
        Me.tlpMain.ColumnCount = 1
        Me.tlpMain.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 100.0!))
        Me.tlpMain.Controls.Add(Me.flpBottom, 0, 3)
        Me.tlpMain.Controls.Add(Me.tlpTop, 0, 0)
        Me.tlpMain.Controls.Add(Me.EncodingControl, 0, 1)
        Me.tlpMain.Controls.Add(Me.CompCheckControl, 0, 2)
        Me.tlpMain.Dock = DockStyle.Fill
        Me.tlpMain.Location = New System.Drawing.Point(0, 0)
        Me.tlpMain.Margin = New Padding(0, 3, 0, 3)
        Me.tlpMain.Name = "tlpMain"
        Me.tlpMain.RowCount = 4
        Me.tlpMain.RowStyles.Add(New RowStyle())
        Me.tlpMain.RowStyles.Add(New RowStyle(SizeType.Percent, 50.0!))
        Me.tlpMain.RowStyles.Add(New RowStyle(SizeType.Percent, 50.0!))
        Me.tlpMain.RowStyles.Add(New RowStyle())
        Me.tlpMain.Size = New System.Drawing.Size(1393, 809)
        Me.tlpMain.TabIndex = 1
        '
        'flpBottom
        '
        Me.flpBottom.Anchor = AnchorStyles.Right
        Me.flpBottom.AutoSize = True
        Me.flpBottom.AutoSizeMode = AutoSizeMode.GrowAndShrink
        Me.flpBottom.Controls.Add(Me.bnOK)
        Me.flpBottom.Controls.Add(Me.bnCancel)
        Me.flpBottom.Location = New System.Drawing.Point(863, 723)
        Me.flpBottom.Margin = New Padding(15)
        Me.flpBottom.Name = "flpBottom"
        Me.flpBottom.Size = New System.Drawing.Size(515, 70)
        Me.flpBottom.TabIndex = 4
        '
        'tlpTop
        '
        Me.tlpTop.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
        Me.tlpTop.ColumnCount = 6
        Me.tlpTop.ColumnStyles.Add(New ColumnStyle())
        Me.tlpTop.ColumnStyles.Add(New ColumnStyle())
        Me.tlpTop.ColumnStyles.Add(New ColumnStyle())
        Me.tlpTop.ColumnStyles.Add(New ColumnStyle())
        Me.tlpTop.ColumnStyles.Add(New ColumnStyle())
        Me.tlpTop.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 100.0!))
        Me.tlpTop.Controls.Add(Me.laType, 0, 0)
        Me.tlpTop.Controls.Add(Me.tbType, 1, 0)
        Me.tlpTop.Controls.Add(Me.cbQualityMode, 2, 0)
        Me.tlpTop.Controls.Add(Me.laPercent, 3, 0)
        Me.tlpTop.Controls.Add(Me.numPercent, 4, 0)
        Me.tlpTop.Location = New System.Drawing.Point(3, 3)
        Me.tlpTop.Name = "tlpTop"
        Me.tlpTop.RowCount = 1
        Me.tlpTop.RowStyles.Add(New RowStyle())
        Me.tlpTop.Size = New System.Drawing.Size(1387, 100)
        Me.tlpTop.TabIndex = 6
        '
        'tbType
        '
        Me.tbType.Anchor = AnchorStyles.None
        Me.tbType.Location = New System.Drawing.Point(315, 22)
        Me.tbType.Size = New System.Drawing.Size(100, 55)
        Me.tbType.TextBox.TextAlign = HorizontalAlignment.Center
        '
        'CommandLineVideoEncoderForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
        Me.AutoScaleMode = AutoScaleMode.Dpi
        Me.ClientSize = New System.Drawing.Size(1393, 809)
        Me.Controls.Add(Me.tlpMain)
        Me.Font = FontManager.GetDefaultFont()
        Me.FormBorderStyle = FormBorderStyle.Sizable
        Me.KeyPreview = True
        Me.Margin = New Padding(6)
        Me.Name = "CommandLineVideoEncoderForm"
        Me.Text = $"Command Line Video Encoder - {g.DefaultCommands.GetApplicationDetails()}"
        Me.tlpMain.ResumeLayout(False)
        Me.tlpMain.PerformLayout()
        Me.flpBottom.ResumeLayout(False)
        Me.tlpTop.ResumeLayout(False)
        Me.tlpTop.PerformLayout()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Encoder As BatchEncoder

    Sub New(encoder As BatchEncoder)
        MyBase.New()
        InitializeComponent()
        RestoreClientSize(50, 22)
        Me.Encoder = encoder

        cbQualityMode.Checked = encoder.QualityMode
        tbType.Text = encoder.OutputExt

        EncodingControl.SetCommandLineDefaults()
        EncodingControl.Value = encoder.CommandLines

        CompCheckControl.SetCommandLineDefaults()
        CompCheckControl.Value = encoder.CompCheckCommandLines

        numPercent.Value = encoder.AutoCompCheckValue

        TipProvider.SetTip("Adjusts the target file size or image size after the compressibility check accordingly.", numPercent, laPercent)
        ApplyTheme()

        AddHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
    End Sub

    Protected Overrides Sub Dispose(disposing As Boolean)
        RemoveHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
        components?.Dispose()
        MyBase.Dispose(disposing)
    End Sub

    Sub OnThemeChanged(theme As Theme)
        ApplyTheme(theme)
    End Sub

    Sub ApplyTheme()
        ApplyTheme(ThemeManager.CurrentTheme)
    End Sub

    Sub ApplyTheme(theme As Theme)
        If DesignHelp.IsDesignMode Then
            Exit Sub
        End If

        BackColor = theme.General.BackColor
    End Sub

    Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
        If DialogResult = DialogResult.OK Then
            Encoder.OutputFileTypeValue = tbType.Text
            Encoder.CommandLines = EncodingControl.Value
            Encoder.CompCheckCommandLines = CompCheckControl.Value
            Encoder.QualityMode = cbQualityMode.Checked
            Encoder.AutoCompCheckValue = CInt(numPercent.Value)
        End If
    End Sub

    Sub cbQualityMode_CheckedChanged(sender As Object, e As EventArgs) Handles cbQualityMode.CheckedChanged
        tlpMain.SuspendLayout()

        If cbQualityMode.Checked Then
            tlpMain.RowStyles(2).Height = 0
        Else
            tlpMain.RowStyles(2).Height = 50
        End If

        CompCheckControl.Visible = Not cbQualityMode.Checked
        tlpMain.ResumeLayout()

        laPercent.Visible = Not cbQualityMode.Checked
        numPercent.Visible = Not cbQualityMode.Checked
    End Sub
End Class