' Copyright (C) 2023 Andy https://github.com/AAndyProgram ' This program is free software: you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation, either version 3 of the License, or ' (at your option) any later version. ' ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY Namespace DownloadObjects.STDownloader Partial Public Class VideoListForm : Inherits System.Windows.Forms.Form Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Private components As System.ComponentModel.IContainer Private Sub InitializeComponent() Dim SEP_2 As System.Windows.Forms.ToolStripSeparator Dim SEP_3 As System.Windows.Forms.ToolStripSeparator Dim MENU_ADD_SEP_1 As System.Windows.Forms.ToolStripSeparator Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(VideoListForm)) Me.TOOLBAR_BOTTOM = New System.Windows.Forms.StatusStrip() Me.PR_MAIN = New System.Windows.Forms.ToolStripProgressBar() Me.LBL_INFO = New System.Windows.Forms.ToolStripStatusLabel() Me.TP_CONTROLS = New System.Windows.Forms.TableLayoutPanel() Me.TOOLBAR_TOP = New System.Windows.Forms.ToolStrip() Me.BTT_SETTINGS = New System.Windows.Forms.ToolStripButton() Me.SEP_1 = New System.Windows.Forms.ToolStripSeparator() Me.MENU_ADD = New System.Windows.Forms.ToolStripDropDownButton() Me.BTT_ADD = New PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick() Me.BTT_ADD_PLS_ARR = New PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick() Me.BTT_ADD_NO_SHORTS = New PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick() Me.BTT_ADD_SHORTS_ONLY = New PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick() Me.BTT_DOWN = New System.Windows.Forms.ToolStripButton() Me.BTT_STOP = New System.Windows.Forms.ToolStripButton() Me.BTT_DELETE = New System.Windows.Forms.ToolStripButton() Me.BTT_CLEAR_DONE = New System.Windows.Forms.ToolStripButton() Me.BTT_CLEAR_ALL = New System.Windows.Forms.ToolStripButton() Me.SEP_LOG = New System.Windows.Forms.ToolStripSeparator() Me.BTT_LOG = New System.Windows.Forms.ToolStripButton() Me.BTT_INFO = New System.Windows.Forms.ToolStripButton() Me.BTT_DONATE = New System.Windows.Forms.ToolStripButton() SEP_2 = New System.Windows.Forms.ToolStripSeparator() SEP_3 = New System.Windows.Forms.ToolStripSeparator() MENU_ADD_SEP_1 = New System.Windows.Forms.ToolStripSeparator() Me.TOOLBAR_BOTTOM.SuspendLayout() Me.TOOLBAR_TOP.SuspendLayout() Me.SuspendLayout() ' 'SEP_2 ' SEP_2.Name = "SEP_2" SEP_2.Size = New System.Drawing.Size(6, 25) ' 'SEP_3 ' SEP_3.Name = "SEP_3" SEP_3.Size = New System.Drawing.Size(6, 25) ' 'MENU_ADD_SEP_1 ' MENU_ADD_SEP_1.Name = "MENU_ADD_SEP_1" MENU_ADD_SEP_1.Size = New System.Drawing.Size(181, 6) ' 'TOOLBAR_BOTTOM ' Me.TOOLBAR_BOTTOM.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PR_MAIN, Me.LBL_INFO}) Me.TOOLBAR_BOTTOM.Location = New System.Drawing.Point(0, 439) Me.TOOLBAR_BOTTOM.Name = "TOOLBAR_BOTTOM" Me.TOOLBAR_BOTTOM.Size = New System.Drawing.Size(584, 22) Me.TOOLBAR_BOTTOM.TabIndex = 0 ' 'PR_MAIN ' Me.PR_MAIN.Name = "PR_MAIN" Me.PR_MAIN.Size = New System.Drawing.Size(200, 16) ' 'LBL_INFO ' Me.LBL_INFO.Name = "LBL_INFO" Me.LBL_INFO.Size = New System.Drawing.Size(0, 17) ' 'TP_CONTROLS ' Me.TP_CONTROLS.AutoScroll = True Me.TP_CONTROLS.BackColor = System.Drawing.SystemColors.Window Me.TP_CONTROLS.ColumnCount = 1 Me.TP_CONTROLS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) Me.TP_CONTROLS.Dock = System.Windows.Forms.DockStyle.Fill Me.TP_CONTROLS.Location = New System.Drawing.Point(0, 25) Me.TP_CONTROLS.Name = "TP_CONTROLS" Me.TP_CONTROLS.RowCount = 1 Me.TP_CONTROLS.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TP_CONTROLS.Size = New System.Drawing.Size(584, 414) Me.TP_CONTROLS.TabIndex = 0 ' 'TOOLBAR_TOP ' Me.TOOLBAR_TOP.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.TOOLBAR_TOP.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_SETTINGS, Me.SEP_1, Me.MENU_ADD, SEP_2, Me.BTT_DOWN, Me.BTT_STOP, SEP_3, Me.BTT_DELETE, Me.BTT_CLEAR_DONE, Me.BTT_CLEAR_ALL, Me.SEP_LOG, Me.BTT_LOG, Me.BTT_INFO, Me.BTT_DONATE}) Me.TOOLBAR_TOP.Location = New System.Drawing.Point(0, 0) Me.TOOLBAR_TOP.Name = "TOOLBAR_TOP" Me.TOOLBAR_TOP.Size = New System.Drawing.Size(584, 25) Me.TOOLBAR_TOP.TabIndex = 2 ' 'BTT_SETTINGS ' Me.BTT_SETTINGS.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BTT_SETTINGS.Image = Global.SCrawler.My.Resources.Resources.SettingsPic_16 Me.BTT_SETTINGS.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_SETTINGS.Name = "BTT_SETTINGS" Me.BTT_SETTINGS.Size = New System.Drawing.Size(23, 22) Me.BTT_SETTINGS.Text = "Settings" ' 'SEP_1 ' Me.SEP_1.Name = "SEP_1" Me.SEP_1.Size = New System.Drawing.Size(6, 25) ' 'MENU_ADD ' Me.MENU_ADD.AutoToolTip = False Me.MENU_ADD.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_ADD, Me.BTT_ADD_PLS_ARR, MENU_ADD_SEP_1, Me.BTT_ADD_NO_SHORTS, Me.BTT_ADD_SHORTS_ONLY}) Me.MENU_ADD.Image = CType(resources.GetObject("MENU_ADD.Image"), System.Drawing.Image) Me.MENU_ADD.ImageTransparentColor = System.Drawing.Color.Magenta Me.MENU_ADD.Name = "MENU_ADD" Me.MENU_ADD.Size = New System.Drawing.Size(84, 22) Me.MENU_ADD.Text = "Add (Ins)" ' 'BTT_ADD ' Me.BTT_ADD.AutoToolTip = True Me.BTT_ADD.Image = CType(resources.GetObject("BTT_ADD.Image"), System.Drawing.Image) Me.BTT_ADD.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_ADD.Name = "BTT_ADD" Me.BTT_ADD.Size = New System.Drawing.Size(184, 22) Me.BTT_ADD.Tag = "a" Me.BTT_ADD.Text = "Add (Ins)" Me.BTT_ADD.ToolTipText = "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for download (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to a" & "dd without downloading." ' 'BTT_ADD_PLS_ARR ' Me.BTT_ADD_PLS_ARR.AutoToolTip = True Me.BTT_ADD_PLS_ARR.Image = CType(resources.GetObject("BTT_ADD_PLS_ARR.Image"), System.Drawing.Image) Me.BTT_ADD_PLS_ARR.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_ADD_PLS_ARR.Name = "BTT_ADD_PLS_ARR" Me.BTT_ADD_PLS_ARR.Size = New System.Drawing.Size(184, 22) Me.BTT_ADD_PLS_ARR.Tag = "pls" Me.BTT_ADD_PLS_ARR.Text = "Add playlist array" Me.BTT_ADD_PLS_ARR.ToolTipText = "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for download (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to a" & "dd without downloading." ' 'BTT_ADD_NO_SHORTS ' Me.BTT_ADD_NO_SHORTS.AutoToolTip = True Me.BTT_ADD_NO_SHORTS.Image = CType(resources.GetObject("BTT_ADD_NO_SHORTS.Image"), System.Drawing.Image) Me.BTT_ADD_NO_SHORTS.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_ADD_NO_SHORTS.Name = "BTT_ADD_NO_SHORTS" Me.BTT_ADD_NO_SHORTS.Size = New System.Drawing.Size(184, 22) Me.BTT_ADD_NO_SHORTS.Tag = "ans" Me.BTT_ADD_NO_SHORTS.Text = "Add (without Shorts)" Me.BTT_ADD_NO_SHORTS.ToolTipText = "Download all videos except 'Shorts'." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies fo" & "r download (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to add without downloading." ' 'BTT_ADD_SHORTS_ONLY ' Me.BTT_ADD_SHORTS_ONLY.AutoToolTip = True Me.BTT_ADD_SHORTS_ONLY.Image = CType(resources.GetObject("BTT_ADD_SHORTS_ONLY.Image"), System.Drawing.Image) Me.BTT_ADD_SHORTS_ONLY.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_ADD_SHORTS_ONLY.Name = "BTT_ADD_SHORTS_ONLY" Me.BTT_ADD_SHORTS_ONLY.Size = New System.Drawing.Size(184, 22) Me.BTT_ADD_SHORTS_ONLY.Tag = "as" Me.BTT_ADD_SHORTS_ONLY.Text = "Add (Shorts only)" Me.BTT_ADD_SHORTS_ONLY.ToolTipText = "Download only 'Shorts' videos." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for down" & "load (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to add without downloading." ' 'BTT_DOWN ' Me.BTT_DOWN.Image = Global.SCrawler.My.Resources.Resources.StartPic_Green_16 Me.BTT_DOWN.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_DOWN.Name = "BTT_DOWN" Me.BTT_DOWN.Size = New System.Drawing.Size(81, 22) Me.BTT_DOWN.Text = "Download" Me.BTT_DOWN.ToolTipText = "Download pending items (F5)" ' 'BTT_STOP ' Me.BTT_STOP.AutoToolTip = False Me.BTT_STOP.Enabled = False Me.BTT_STOP.Image = CType(resources.GetObject("BTT_STOP.Image"), System.Drawing.Image) Me.BTT_STOP.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_STOP.Name = "BTT_STOP" Me.BTT_STOP.Size = New System.Drawing.Size(51, 22) Me.BTT_STOP.Text = "Stop" ' 'BTT_DELETE ' Me.BTT_DELETE.Image = CType(resources.GetObject("BTT_DELETE.Image"), System.Drawing.Image) Me.BTT_DELETE.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_DELETE.Name = "BTT_DELETE" Me.BTT_DELETE.Size = New System.Drawing.Size(60, 22) Me.BTT_DELETE.Text = "Delete" Me.BTT_DELETE.ToolTipText = "Delete selected items" ' 'BTT_CLEAR_DONE ' Me.BTT_CLEAR_DONE.Image = CType(resources.GetObject("BTT_CLEAR_DONE.Image"), System.Drawing.Image) Me.BTT_CLEAR_DONE.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_CLEAR_DONE.Name = "BTT_CLEAR_DONE" Me.BTT_CLEAR_DONE.Size = New System.Drawing.Size(54, 22) Me.BTT_CLEAR_DONE.Text = "Clear" Me.BTT_CLEAR_DONE.ToolTipText = "Remove all downloaded items" ' 'BTT_CLEAR_ALL ' Me.BTT_CLEAR_ALL.Image = CType(resources.GetObject("BTT_CLEAR_ALL.Image"), System.Drawing.Image) Me.BTT_CLEAR_ALL.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_CLEAR_ALL.Name = "BTT_CLEAR_ALL" Me.BTT_CLEAR_ALL.Size = New System.Drawing.Size(69, 22) Me.BTT_CLEAR_ALL.Text = "Clear all" Me.BTT_CLEAR_ALL.ToolTipText = "Remove all items (pending and downloaded)" ' 'SEP_LOG ' Me.SEP_LOG.Name = "SEP_LOG" Me.SEP_LOG.Size = New System.Drawing.Size(6, 25) ' 'BTT_LOG ' Me.BTT_LOG.AutoToolTip = False Me.BTT_LOG.Image = CType(resources.GetObject("BTT_LOG.Image"), System.Drawing.Image) Me.BTT_LOG.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_LOG.Name = "BTT_LOG" Me.BTT_LOG.Size = New System.Drawing.Size(50, 22) Me.BTT_LOG.Text = "LOG" ' 'BTT_INFO ' Me.BTT_INFO.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.BTT_INFO.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BTT_INFO.Image = Global.SCrawler.My.Resources.Resources.InfoPic_32 Me.BTT_INFO.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_INFO.Name = "BTT_INFO" Me.BTT_INFO.Size = New System.Drawing.Size(23, 22) Me.BTT_INFO.ToolTipText = "Show program information and check for updates" ' 'BTT_DONATE ' Me.BTT_DONATE.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.BTT_DONATE.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BTT_DONATE.Image = Global.SCrawler.My.Resources.Resources.HeartPic_32 Me.BTT_DONATE.ImageTransparentColor = System.Drawing.Color.Magenta Me.BTT_DONATE.Name = "BTT_DONATE" Me.BTT_DONATE.Size = New System.Drawing.Size(23, 22) Me.BTT_DONATE.ToolTipText = "Support" ' 'VideoListForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(584, 461) Me.Controls.Add(Me.TP_CONTROLS) Me.Controls.Add(Me.TOOLBAR_TOP) Me.Controls.Add(Me.TOOLBAR_BOTTOM) Me.Icon = Global.SCrawler.My.Resources.SiteYouTube.YouTubeIcon_32 Me.KeyPreview = True Me.MinimumSize = New System.Drawing.Size(300, 200) Me.Name = "VideoListForm" Me.Text = "YouTube Downloader" Me.TOOLBAR_BOTTOM.ResumeLayout(False) Me.TOOLBAR_BOTTOM.PerformLayout() Me.TOOLBAR_TOP.ResumeLayout(False) Me.TOOLBAR_TOP.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Private WithEvents TOOLBAR_BOTTOM As StatusStrip Private WithEvents PR_MAIN As ToolStripProgressBar Private WithEvents LBL_INFO As ToolStripStatusLabel Protected WithEvents TP_CONTROLS As TableLayoutPanel Private WithEvents TOOLBAR_TOP As ToolStrip Private WithEvents BTT_DELETE As ToolStripButton Private WithEvents BTT_CLEAR_DONE As ToolStripButton Private WithEvents BTT_CLEAR_ALL As ToolStripButton Private WithEvents BTT_SETTINGS As ToolStripButton Private WithEvents SEP_1 As ToolStripSeparator Private WithEvents SEP_LOG As ToolStripSeparator Private WithEvents BTT_LOG As ToolStripButton Private WithEvents BTT_STOP As ToolStripButton Private WithEvents BTT_INFO As ToolStripButton Private WithEvents BTT_DONATE As ToolStripButton Protected WithEvents BTT_ADD As PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick Protected WithEvents BTT_ADD_PLS_ARR As PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick Protected WithEvents BTT_ADD_NO_SHORTS As PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick Protected WithEvents BTT_ADD_SHORTS_ONLY As PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick Protected WithEvents MENU_ADD As ToolStripDropDownButton Protected WithEvents BTT_DOWN As ToolStripButton End Class End Namespace