Imports StaxRip.UI

Public Class SourceFilesForm
    Inherits DialogBase

#Region " Designer "
    Private components As System.ComponentModel.IContainer

    Friend WithEvents lb As ListBoxEx
    Friend WithEvents bnDown As ButtonEx
    Friend WithEvents bnUp As ButtonEx
    Friend WithEvents bnRemove As ButtonEx
    Friend WithEvents bnAddFiles As ButtonEx
    Friend WithEvents bnAddFolder As ButtonEx
    Friend WithEvents bnCancel As StaxRip.UI.ButtonEx
    Friend WithEvents tlpMain As TableLayoutPanel
    Friend WithEvents pnLB As PanelEx
    Friend WithEvents bnOK As StaxRip.UI.ButtonEx

    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.lb = New StaxRip.UI.ListBoxEx()
        Me.bnDown = New StaxRip.UI.ButtonEx()
        Me.bnRemove = New StaxRip.UI.ButtonEx()
        Me.bnUp = New StaxRip.UI.ButtonEx()
        Me.bnAddFiles = New StaxRip.UI.ButtonEx()
        Me.bnAddFolder = New StaxRip.UI.ButtonEx()
        Me.bnCancel = New StaxRip.UI.ButtonEx()
        Me.bnOK = New StaxRip.UI.ButtonEx()
        Me.tlpMain = New System.Windows.Forms.TableLayoutPanel()
        Me.pnLB = New PanelEx()
        Me.tlpMain.SuspendLayout()
        Me.pnLB.SuspendLayout()
        Me.SuspendLayout()
        '
        'lb
        '
        Me.lb.AllowDrop = True
        Me.lb.Dock = System.Windows.Forms.DockStyle.Fill
        Me.lb.DownButton = Me.bnDown
        Me.lb.FormattingEnabled = True
        Me.lb.HorizontalScrollbar = True
        Me.lb.IntegralHeight = False
        Me.lb.ItemHeight = 48
        Me.lb.Location = New System.Drawing.Point(0, 0)
        Me.lb.Name = "lb"
        Me.lb.RemoveButton = Me.bnRemove
        Me.lb.Size = New System.Drawing.Size(717, 600)
        Me.lb.TabIndex = 2
        Me.lb.UpButton = Me.bnUp
        '
        'bnDown
        '
        Me.bnDown.Anchor = System.Windows.Forms.AnchorStyles.Bottom
        Me.bnDown.Location = New System.Drawing.Point(749, 370)
        Me.bnDown.Margin = New System.Windows.Forms.Padding(8)
        Me.bnDown.Size = New System.Drawing.Size(350, 80)
        Me.bnDown.Text = "&Down"
        '
        'bnRemove
        '
        Me.bnRemove.Anchor = System.Windows.Forms.AnchorStyles.Top
        Me.bnRemove.Location = New System.Drawing.Point(749, 112)
        Me.bnRemove.Margin = New System.Windows.Forms.Padding(8)
        Me.bnRemove.Size = New System.Drawing.Size(350, 80)
        Me.bnRemove.Text = "&Remove"
        '
        'bnUp
        '
        Me.bnUp.Anchor = System.Windows.Forms.AnchorStyles.Bottom
        Me.bnUp.Location = New System.Drawing.Point(749, 274)
        Me.bnUp.Margin = New System.Windows.Forms.Padding(8)
        Me.bnUp.Size = New System.Drawing.Size(350, 80)
        Me.bnUp.Text = "&Up"
        '
        'bnAddFiles
        '
        Me.bnAddFiles.Anchor = System.Windows.Forms.AnchorStyles.Top
        Me.bnAddFiles.Location = New System.Drawing.Point(749, 16)
        Me.bnAddFiles.Margin = New System.Windows.Forms.Padding(8)
        Me.bnAddFiles.Size = New System.Drawing.Size(350, 80)
        Me.bnAddFiles.Text = "   &Add Files..."
        '
        'bnAddFolder
        '
        Me.bnAddFolder.Anchor = System.Windows.Forms.AnchorStyles.Top
        Me.bnAddFolder.Location = New System.Drawing.Point(749, 16)
        Me.bnAddFolder.Margin = New System.Windows.Forms.Padding(8)
        Me.bnAddFolder.Size = New System.Drawing.Size(350, 80)
        Me.bnAddFolder.Text = "     Add &Folder..."
        '
        'bnCancel
        '
        Me.bnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.bnCancel.Location = New System.Drawing.Point(749, 632)
        Me.bnCancel.Margin = New System.Windows.Forms.Padding(8)
        Me.bnCancel.Size = New System.Drawing.Size(350, 80)
        Me.bnCancel.Text = "Cancel"
        '
        'bnOK
        '
        Me.bnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.bnOK.Location = New System.Drawing.Point(483, 632)
        Me.bnOK.Margin = New System.Windows.Forms.Padding(8)
        Me.bnOK.Size = New System.Drawing.Size(350, 80)
        Me.bnOK.Text = "OK"
        '
        'tlpMain
        '
        Me.tlpMain.ColumnCount = 3
        Me.tlpMain.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlpMain.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
        Me.tlpMain.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
        Me.tlpMain.Controls.Add(Me.pnLB, 0, 0)
        Me.tlpMain.Controls.Add(Me.bnOK, 1, 7)
        Me.tlpMain.Controls.Add(Me.bnAddFiles, 2, 0)
        Me.tlpMain.Controls.Add(Me.bnAddFolder, 2, 1)
        Me.tlpMain.Controls.Add(Me.bnRemove, 2, 2)
        Me.tlpMain.Controls.Add(Me.bnUp, 2, 3)
        Me.tlpMain.Controls.Add(Me.bnDown, 2, 4)
        Me.tlpMain.Controls.Add(Me.bnCancel, 2, 7)
        Me.tlpMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.tlpMain.Location = New System.Drawing.Point(0, 0)
        Me.tlpMain.Name = "tlpMain"
        Me.tlpMain.Padding = New System.Windows.Forms.Padding(8)
        Me.tlpMain.RowCount = 8
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
        Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlpMain.Size = New System.Drawing.Size(1015, 729)
        Me.tlpMain.TabIndex = 7
        '
        'pnLB
        '
        Me.pnLB.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.tlpMain.SetColumnSpan(Me.pnLB, 2)
        Me.pnLB.Controls.Add(Me.lb)
        Me.pnLB.Location = New System.Drawing.Point(16, 16)
        Me.pnLB.Margin = New System.Windows.Forms.Padding(8)
        Me.pnLB.Name = "pnLB"
        Me.tlpMain.SetRowSpan(Me.pnLB, 7)
        Me.pnLB.Size = New System.Drawing.Size(717, 600)
        Me.pnLB.TabIndex = 9
        '
        'SourceFilesForm
        '
        Me.AcceptButton = Me.bnOK
        Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
        Me.CancelButton = Me.bnCancel
        Me.ClientSize = New System.Drawing.Size(1015, 729)
        Me.Controls.Add(Me.tlpMain)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Me.HelpButton = False
        Me.KeyPreview = True
        Me.Margin = New System.Windows.Forms.Padding(13, 14, 13, 14)
        Me.Name = "SourceFilesForm"
        Me.Text = $"Source Files - {g.DefaultCommands.GetApplicationDetails()}"
        Me.tlpMain.ResumeLayout(False)
        Me.pnLB.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Property IsMerge As Boolean

    Sub New()
        MyBase.New()
        InitializeComponent()

        ScaleClientSize(42, 25)
        MinimumSize = New Size(Width \ 2, CInt(Height * 0.6))

        bnAddFiles.Symbol = Symbol.Add
        bnAddFolder.Symbol = Symbol.DictionaryAdd
        bnRemove.Symbol = Symbol.Remove
        bnUp.Symbol = Symbol.Up
        bnDown.Symbol = Symbol.Down

        For Each bn In {bnAddFiles, bnAddFolder, bnRemove, bnUp, bnDown}
            bn.TextImageRelation = TextImageRelation.ImageBeforeText
            bn.ImageAlign = ContentAlignment.MiddleLeft
        Next

        ActiveControl = bnOK

        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

        BackColor = theme.General.BackColor
    End Sub

    Sub ShowOpenFileDialog()
        Using dialog As New OpenFileDialog
            dialog.Multiselect = True
            dialog.SetFilter(FileTypes.Video)
            dialog.SetInitDir(s.LastSourceDir)

            If dialog.ShowDialog() = DialogResult.OK Then
                s.LastSourceDir = dialog.FileName.Dir
                lb.Items.AddRange(dialog.FileNames.Sort.ToArray)
                lb.SelectedIndex = lb.Items.Count - 1
            End If
        End Using
    End Sub

    Sub bnAdd_Click() Handles bnAddFiles.Click
        ShowOpenFileDialog()
    End Sub

    Sub bnAddFolder_Click() Handles bnAddFolder.Click
        Using dialog As New FolderBrowserDialog
            If dialog.ShowDialog = DialogResult.OK Then
                Dim subfolders = Directory.GetDirectories(dialog.SelectedPath)
                Dim opt = SearchOption.TopDirectoryOnly

                If subfolders.Count > 0 Then
                    If MsgQuestion("Include sub folders?", TaskButton.YesNo) = DialogResult.Yes Then
                        opt = SearchOption.AllDirectories
                    End If
                End If

                lb.Items.AddRange(Directory.GetFiles(dialog.SelectedPath, "*.*", opt).Where(Function(val) FileTypes.Video.Contains(val.Ext)).OrderBy(Function(x) x, New StringLogicalComparer()).ToArray)
                lb.SelectedIndex = lb.Items.Count - 1
            End If
        End Using
    End Sub

    Protected Overrides Sub OnFormClosing(args As FormClosingEventArgs)
        MyBase.OnFormClosing(args)

        If DialogResult = DialogResult.OK Then
            Dim files = GetFiles()

            If Not g.VerifySource(files) Then
                args.Cancel = True
            End If
        End If
    End Sub

    Function GetFiles() As IEnumerable(Of String)
        Return lb.Items.OfType(Of String)
    End Function

    Sub lb_DragDrop(sender As Object, e As DragEventArgs) Handles lb.DragDrop
        Dim items = TryCast(e.Data.GetData(DataFormats.FileDrop), String())

        If Not items.NothingOrEmpty() Then
            Array.Sort(items)
            lb.Items.AddRange(items.Where(Function(val) File.Exists(val)).ToArray())
        End If
    End Sub

    Sub lb_DragEnter(sender As Object, e As DragEventArgs) Handles lb.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub
End Class