2024.2.17.0

YT
Add the ability to edit playlist items
Add 'Open file' to the context menu
Add the ability to embed thumbnail in the audio/video as cover art
VideoOptionsForm: audio codec does not change when changing audio/video in the video options form

SCrawler
DownloadFeedForm: add ability to merge multiple special feeds into one
AutoDownloader: fix bug when users are added during pool reconfiguration
Scheduler: add the ability to move tasks
FeedMedia: fix image rendering bug
Feed: add select all/none; add the ability to add to a special feed(s) with removal from the current one; add loaded feed name to the title; refresh the loaded feed using the 'Refresh' button
FeedSpecialCollection: add 'Add' button to feed chooser; fixed a bug in the 'Delete' function
SettingsHostCollection, PluginHost: add 'IDisposable' support
API.UserDataBase: add Responser handler options
API.OnlyFans: handle 500 error
API.Threads: extract 'csrftoken' from cookies; simplify 500 error when updating tokens
API.Instagram: update handling of JSON parsing error when downloading reels; fix error downloading single post
API.Facebook: simplify token update errors
API.Twitter: update handling of JSON parsing error

SCrawler.YouTube/Base/YouTubeSettings.vb

@@ -273,6 +273,9 @@ Namespace API.YouTube.Base
         <Browsable(True), GridVisible, XMLVN({"DefaultsVideo"}, 1080), Category("Defaults Video"), DisplayName("Default definition"),
             Description("The default maximum video resolution. -1 for max definition")>
         Public ReadOnly Property DefaultVideoDefinition As XMLValue(Of Integer)
+        <Browsable(True), GridVisible, XMLVN({"DefaultsVideo"}, False), Category("Defaults Video"), DisplayName("Embed thumbnail (video)"),
+            Description("Embed thumbnail in the video as cover art. Default: true.")>
+        Public ReadOnly Property DefaultVideoEmbedThumbnail As XMLValue(Of Boolean)
         <Browsable(True), GridVisible, XMLVN({"DefaultsVideo"}), Category("Defaults Video"), DisplayName("Include zero size formats"),
             Description("Include formats with zero size (or undefined size).")>
         Public ReadOnly Property DefaultVideoIncludeNullSize As XMLValue(Of Boolean)
@@ -360,6 +363,9 @@ Namespace API.YouTube.Base
             TypeConverter(GetType(ValueCollectionConverter)),
             Description("Additional audio format for downloading videos. This means that the audio will be extracted and saved as a separate file in these formats.")>
         Public ReadOnly Property DefaultAudioCodecAddit As XMLValuesCollection(Of String)
+        <Browsable(True), GridVisible, XMLVN({"DefaultsAudio"}, True), Category("Defaults Audio"), DisplayName("Embed thumbnail"),
+            Description("Embed thumbnail in the audio as cover art. Default: true.")>
+        Public ReadOnly Property DefaultAudioEmbedThumbnail As XMLValue(Of Boolean)
 #End Region
 #Region "Defaults Subtitles"
         <XMLVN({"DefaultsSubtitles"}, {"en"}, CollectionMode:=IXMLValuesCollection.Modes.String)>

SCrawler.YouTube/Controls/VideoOptionsForm.vb

@@ -30,7 +30,7 @@ Namespace API.YouTube.Controls
         Private ReadOnly Property CNT_PROCESSOR As TableControlsProcessor
         Friend Property MyContainer As YouTubeMediaContainerBase
         Private Initialization As Boolean = True
-        Private ReadOnly IsSavedObject As Boolean
+        Private ReadOnly InheritsFromContainer As Boolean
         Private Class FpsFieldChecker : Inherits FieldsCheckerProviderBase
             Private ReadOnly MyProvider As ANumbers = YouTubeSettings.FpsFormatProvider.MyProviderDefault
             Public Overrides Property ErrorMessage As String
@@ -52,11 +52,11 @@ Namespace API.YouTube.Controls
         End Class
 #End Region
 #Region "Initializers"
-        Friend Sub New(ByVal Container As YouTubeMediaContainerBase, Optional ByVal IsSavedObject As Boolean = False)
+        Friend Sub New(ByVal Container As YouTubeMediaContainerBase, Optional ByVal InheritsFromContainer As Boolean = False)
             InitializeComponent()
             MyContainer = Container
             CNT_PROCESSOR = New TableControlsProcessor(TP_CONTROLS)
-            Me.IsSavedObject = IsSavedObject
+            Me.InheritsFromContainer = InheritsFromContainer
             MyFieldsChecker = New FieldsChecker
         End Sub
 #End Region
@@ -89,8 +89,8 @@ Namespace API.YouTube.Controls
                         If Not .PlaylistTitle.IsEmptyString Or Not .Title.IsEmptyString Then Text &= $" - { .PlaylistTitle.IfNullOrEmpty(.Title)}"
                         TP_MAIN.Controls.Remove(TP_HEADER_BASE)
                         TP_MAIN.RowStyles(0).Height = 0
-                        Dim def% = If(IsSavedObject, .ArrayMaxResolution, MyYouTubeSettings.DefaultVideoDefinition.Value)
-                        If IsSavedObject Then
+                        Dim def% = If(InheritsFromContainer, .ArrayMaxResolution, MyYouTubeSettings.DefaultVideoDefinition.Value)
+                        If InheritsFromContainer Then
                             __audioOnly = def = -2
                             If def <= 0 Then def = MyYouTubeSettings.DefaultVideoDefinition
                         Else
@@ -119,7 +119,7 @@ Namespace API.YouTube.Controls
                         LBL_URL.Text = .URL
                     End If
 
-                    If .IsMusic Or __audioOnly Then
+                    If .IsMusic Or __audioOnly Or (InheritsFromContainer And .IsAudioSelected) Then
                         OPT_AUDIO.Checked = True
                     Else
                         OPT_VIDEO.Checked = True
@@ -128,7 +128,7 @@ Namespace API.YouTube.Controls
 
                     arr = AvailableVideoFormats
                     CMB_FORMAT.Items.AddRange(arr)
-                    If IsSavedObject Then
+                    If InheritsFromContainer Then
                         __optionValue = .OutputVideoExtension.IfNullOrEmpty(MyYouTubeSettings.DefaultVideoFormat.Value)
                     Else
                         __optionValue = MyYouTubeSettings.DefaultVideoFormat.Value
@@ -137,7 +137,7 @@ Namespace API.YouTube.Controls
 
                     arr = AvailableAudioFormats
                     CMB_AUDIO_CODEC.Items.AddRange(arr)
-                    If IsSavedObject Then
+                    If InheritsFromContainer Then
                         __optionValue = .OutputAudioCodec.IfNullOrEmpty(IIf(.IsMusic, MyYouTubeSettings.DefaultAudioCodecMusic.Value, MyYouTubeSettings.DefaultAudioCodec.Value))
                     Else
                         __optionValue = IIf(.IsMusic, MyYouTubeSettings.DefaultAudioCodecMusic.Value, MyYouTubeSettings.DefaultAudioCodec.Value)
@@ -146,14 +146,18 @@ Namespace API.YouTube.Controls
 
                     arr = AvailableSubtitlesFormats
                     CMB_SUBS_FORMAT.Items.AddRange(arr)
-                    If IsSavedObject Then
+                    If InheritsFromContainer Then
                         __optionValue = .OutputSubtitlesFormat.IfNullOrEmpty(IIf(.IsMusic, "LRC", MyYouTubeSettings.DefaultSubtitlesFormat.Value))
                     Else
                         __optionValue = IIf(.IsMusic, "LRC", MyYouTubeSettings.DefaultSubtitlesFormat.Value)
                     End If
                     setDef(CMB_SUBS_FORMAT, __optionValue)
 
-                    If MyYouTubeSettings.DefaultVideoFPS > 0 Then TXT_FPS.Text = MyYouTubeSettings.DefaultVideoFPS
+                    If InheritsFromContainer Then
+                        If .OutputVideoFPS > 0 Then TXT_FPS.Text = .OutputVideoFPS
+                    Else
+                        If MyYouTubeSettings.DefaultVideoFPS > 0 Then TXT_FPS.Text = MyYouTubeSettings.DefaultVideoFPS
+                    End If
                     MyFieldsChecker.AddControl(Of Double)(TXT_FPS, TXT_FPS.CaptionText, True, New FpsFieldChecker)
                     MyFieldsChecker.EndLoaderOperations()
                     TP_SUBS.Enabled = .Subtitles.Count > 0
@@ -208,7 +212,7 @@ Namespace API.YouTube.Controls
                 Dim data As IEnumerable(Of Control)
 
                 If .HasElements Then
-                    data = .Elements.Select(Function(ee) New MediaItem(ee) With {.Dock = DockStyle.Fill, .Checked = ee.Checked, .IgnoreDownloadState = True})
+                    data = .Elements.Select(Function(ee) New MediaItem(ee, True) With {.Dock = DockStyle.Fill, .Checked = ee.Checked})
                 Else
                     data = (From m As MediaObject In .Self.MediaObjects
                             Where m.Type = __contentType
@@ -229,6 +233,8 @@ Namespace API.YouTube.Controls
                                                                       If MyContainer.HasElements Then
                                                                           With DirectCast(d, MediaItem)
                                                                               AddHandler .CheckedChanged, AddressOf MediaItem_CheckedChanged
+                                                                              AddHandler .BeforeOpenEditor, AddressOf MediaItem_BeforeOpenEditor
+                                                                              AddHandler .BeforeOpenEditorFull, AddressOf MediaItem_BeforeOpenEditorFull
                                                                               AddHandler .Click, AddressOf CNT_PROCESSOR.MediaItem_Click
                                                                               AddHandler .KeyDown, AddressOf CNT_PROCESSOR.MediaItem_KeyDown
                                                                           End With
@@ -296,6 +302,28 @@ Namespace API.YouTube.Controls
         Private Sub MediaItem_CheckedChanged(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer)
             ControlInvokeFast(TP_CONTROLS, Sub() Container.Checked = Sender.Checked, EDP.None)
         End Sub
+        Private Sub MediaItem_BeforeOpenEditor(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer)
+            MediaItem_BeforeOpenEditorImpl(Sender, Container, False)
+        End Sub
+        Private Sub MediaItem_BeforeOpenEditorFull(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer)
+            MediaItem_BeforeOpenEditorImpl(Sender, Container, True)
+        End Sub
+        Private Sub MediaItem_BeforeOpenEditorImpl(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer, ByVal Full As Boolean)
+            If MyContainer.HasElements Then
+                ControlInvokeFast(TP_CONTROLS, Sub()
+                                                   With DirectCast(Container, YouTubeMediaContainerBase)
+                                                       .File = $"{TXT_FILE.Text.CSFilePS}{ .File.File}"
+                                                       If Full Then
+                                                           .OutputVideoExtension = CMB_FORMAT.Text.StringToLower
+                                                           .OutputVideoFPS = AConvert(Of Double)(TXT_FPS.Text, YouTubeSettings.FpsFormatProvider.MyProviderDefault, -1)
+                                                           .OutputAudioCodec = CMB_AUDIO_CODEC.Text.StringToLower
+                                                           .OutputSubtitlesFormat = CMB_SUBS_FORMAT.Text.StringToLower
+                                                           .IsAudioSelected = OPT_AUDIO.Checked
+                                                       End If
+                                                   End With
+                                               End Sub, EDP.None)
+            End If
+        End Sub
 #End Region
 #Region "OK, Cancel"
         Private Sub BTT_DOWN_Click(sender As Object, e As EventArgs) Handles BTT_DOWN.Click
@@ -373,6 +401,19 @@ Namespace API.YouTube.Controls
         Private Sub OPT_VIDEO_AUDIO_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIDEO.CheckedChanged, OPT_AUDIO.CheckedChanged
             If Not Initialization Then
                 CMB_FORMAT.Enabled = OPT_VIDEO.Checked
+                Dim upFormat As Action(Of String) = Sub(ByVal format As String)
+                                                        If Not format.IsEmptyString Then
+                                                            format = format.ToLower
+                                                            Dim fIndex% = CMB_AUDIO_CODEC.Items.Cast(Of String).ListIndexOf(Function(f) f.ToLower = format)
+                                                            If fIndex >= 0 Then CMB_AUDIO_CODEC.SelectedIndex = fIndex
+                                                        End If
+                                                    End Sub
+                If OPT_VIDEO.Checked Then
+                    upFormat(MyYouTubeSettings.DefaultAudioCodec)
+                Else
+                    upFormat(MyYouTubeSettings.DefaultAudioCodecMusic)
+                End If
+
                 If MyContainer.HasElements Then
                     NUM_RES.Enabled = OPT_VIDEO.Checked
                 Else

SCrawler.YouTube/Downloader/MediaItem.Designer.vb

@@ -30,11 +30,16 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_DOWN = New System.Windows.Forms.ToolStripMenuItem()
             Me.SEP_DOWN = New System.Windows.Forms.ToolStripSeparator()
             Me.BTT_OPEN_FOLDER = New System.Windows.Forms.ToolStripMenuItem()
+            Me.BTT_OPEN_FILE = New System.Windows.Forms.ToolStripMenuItem()
             Me.SEP_FOLDER = New System.Windows.Forms.ToolStripSeparator()
+            Me.BTT_PLS_ITEM_EDIT = New System.Windows.Forms.ToolStripMenuItem()
+            Me.BTT_PLS_ITEM_EDIT_FULL = New System.Windows.Forms.ToolStripMenuItem()
+            Me.SEP_PLS_ITEM_EDIT = New System.Windows.Forms.ToolStripSeparator()
             Me.BTT_COPY_LINK = New System.Windows.Forms.ToolStripMenuItem()
             Me.BTT_OPEN_IN_BROWSER = New System.Windows.Forms.ToolStripMenuItem()
             Me.SEP_DOWN_AGAIN = New System.Windows.Forms.ToolStripSeparator()
             Me.BTT_DOWN_AGAIN = New System.Windows.Forms.ToolStripMenuItem()
+            Me.BTT_VIEW_SETTINGS = New System.Windows.Forms.ToolStripMenuItem()
             Me.SEP_DEL = New System.Windows.Forms.ToolStripSeparator()
             Me.BTT_REMOVE_FROM_LIST = New System.Windows.Forms.ToolStripMenuItem()
             Me.BTT_DELETE_FILE = New System.Windows.Forms.ToolStripMenuItem()
@@ -42,7 +47,6 @@ Namespace DownloadObjects.STDownloader
             Me.TP_CHECKED_TITLE = New System.Windows.Forms.TableLayoutPanel()
             Me.LBL_TITLE = New System.Windows.Forms.Label()
             Me.CH_CHECKED = New System.Windows.Forms.CheckBox()
-            Me.BTT_VIEW_SETTINGS = New System.Windows.Forms.ToolStripMenuItem()
             TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
             TP_MAIN.SuspendLayout()
             CType(Me.ICON_VIDEO, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -83,10 +87,10 @@ Namespace DownloadObjects.STDownloader
             '
             'CONTEXT_MAIN
             '
-            Me.CONTEXT_MAIN.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_DOWN, Me.SEP_DOWN, Me.BTT_OPEN_FOLDER, Me.SEP_FOLDER, Me.BTT_COPY_LINK, Me.BTT_OPEN_IN_BROWSER, Me.SEP_DOWN_AGAIN, Me.BTT_DOWN_AGAIN, Me.BTT_VIEW_SETTINGS, Me.SEP_DEL, Me.BTT_REMOVE_FROM_LIST, Me.BTT_DELETE_FILE})
+            Me.CONTEXT_MAIN.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_DOWN, Me.SEP_DOWN, Me.BTT_OPEN_FOLDER, Me.BTT_OPEN_FILE, Me.SEP_FOLDER, Me.BTT_PLS_ITEM_EDIT, Me.BTT_PLS_ITEM_EDIT_FULL, Me.SEP_PLS_ITEM_EDIT, Me.BTT_COPY_LINK, Me.BTT_OPEN_IN_BROWSER, Me.SEP_DOWN_AGAIN, Me.BTT_DOWN_AGAIN, Me.BTT_VIEW_SETTINGS, Me.SEP_DEL, Me.BTT_REMOVE_FROM_LIST, Me.BTT_DELETE_FILE})
             Me.CONTEXT_MAIN.Name = "CONTEXT_MAIN"
             Me.CONTEXT_MAIN.ShowItemToolTips = False
-            Me.CONTEXT_MAIN.Size = New System.Drawing.Size(185, 226)
+            Me.CONTEXT_MAIN.Size = New System.Drawing.Size(185, 298)
             '
             'BTT_DOWN
             '
@@ -107,11 +111,42 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_OPEN_FOLDER.Size = New System.Drawing.Size(184, 22)
             Me.BTT_OPEN_FOLDER.Text = "Open folder"
             '
+            'BTT_OPEN_FILE
+            '
+            Me.BTT_OPEN_FILE.Image = CType(resources.GetObject("BTT_OPEN_FILE.Image"), System.Drawing.Image)
+            Me.BTT_OPEN_FILE.Name = "BTT_OPEN_FILE"
+            Me.BTT_OPEN_FILE.Size = New System.Drawing.Size(184, 22)
+            Me.BTT_OPEN_FILE.Text = "Open file"
+            '
             'SEP_FOLDER
             '
             Me.SEP_FOLDER.Name = "SEP_FOLDER"
             Me.SEP_FOLDER.Size = New System.Drawing.Size(181, 6)
             '
+            'BTT_PLS_ITEM_EDIT
+            '
+            Me.BTT_PLS_ITEM_EDIT.Image = CType(resources.GetObject("BTT_PLS_ITEM_EDIT.Image"), System.Drawing.Image)
+            Me.BTT_PLS_ITEM_EDIT.Name = "BTT_PLS_ITEM_EDIT"
+            Me.BTT_PLS_ITEM_EDIT.Size = New System.Drawing.Size(184, 22)
+            Me.BTT_PLS_ITEM_EDIT.Text = "Edit"
+            Me.BTT_PLS_ITEM_EDIT.Visible = False
+            '
+            'BTT_PLS_ITEM_EDIT_FULL
+            '
+            Me.BTT_PLS_ITEM_EDIT_FULL.AutoToolTip = True
+            Me.BTT_PLS_ITEM_EDIT_FULL.Image = CType(resources.GetObject("BTT_PLS_ITEM_EDIT_FULL.Image"), System.Drawing.Image)
+            Me.BTT_PLS_ITEM_EDIT_FULL.Name = "BTT_PLS_ITEM_EDIT_FULL"
+            Me.BTT_PLS_ITEM_EDIT_FULL.Size = New System.Drawing.Size(184, 22)
+            Me.BTT_PLS_ITEM_EDIT_FULL.Text = "Edit (inherit settings)"
+            Me.BTT_PLS_ITEM_EDIT_FULL.ToolTipText = "Inherit settings selected in the form"
+            Me.BTT_PLS_ITEM_EDIT_FULL.Visible = False
+            '
+            'SEP_PLS_ITEM_EDIT
+            '
+            Me.SEP_PLS_ITEM_EDIT.Name = "SEP_PLS_ITEM_EDIT"
+            Me.SEP_PLS_ITEM_EDIT.Size = New System.Drawing.Size(181, 6)
+            Me.SEP_PLS_ITEM_EDIT.Visible = False
+            '
             'BTT_COPY_LINK
             '
             Me.BTT_COPY_LINK.Image = Global.SCrawler.My.Resources.Resources.LinkPic_32
@@ -138,6 +173,13 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_DOWN_AGAIN.Size = New System.Drawing.Size(184, 22)
             Me.BTT_DOWN_AGAIN.Text = "Download again"
             '
+            'BTT_VIEW_SETTINGS
+            '
+            Me.BTT_VIEW_SETTINGS.Image = Global.SCrawler.My.Resources.Resources.SettingsPic_16
+            Me.BTT_VIEW_SETTINGS.Name = "BTT_VIEW_SETTINGS"
+            Me.BTT_VIEW_SETTINGS.Size = New System.Drawing.Size(184, 22)
+            Me.BTT_VIEW_SETTINGS.Text = "View settings"
+            '
             'SEP_DEL
             '
             Me.SEP_DEL.Name = "SEP_DEL"
@@ -212,13 +254,6 @@ Namespace DownloadObjects.STDownloader
             Me.CH_CHECKED.TabIndex = 0
             Me.CH_CHECKED.UseVisualStyleBackColor = True
             '
-            'BTT_VIEW_SETTINGS
-            '
-            Me.BTT_VIEW_SETTINGS.Image = Global.SCrawler.My.Resources.Resources.SettingsPic_16
-            Me.BTT_VIEW_SETTINGS.Name = "BTT_VIEW_SETTINGS"
-            Me.BTT_VIEW_SETTINGS.Size = New System.Drawing.Size(184, 22)
-            Me.BTT_VIEW_SETTINGS.Text = "View settings"
-            '
             'MediaItem
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -253,5 +288,9 @@ Namespace DownloadObjects.STDownloader
         Private WithEvents SEP_DOWN_AGAIN As ToolStripSeparator
         Private WithEvents SEP_DEL As ToolStripSeparator
         Private WithEvents BTT_VIEW_SETTINGS As ToolStripMenuItem
+        Private WithEvents BTT_OPEN_FILE As ToolStripMenuItem
+        Private WithEvents BTT_PLS_ITEM_EDIT As ToolStripMenuItem
+        Private WithEvents SEP_PLS_ITEM_EDIT As ToolStripSeparator
+        Private WithEvents BTT_PLS_ITEM_EDIT_FULL As ToolStripMenuItem
     End Class
 End Namespace

SCrawler.YouTube/Downloader/MediaItem.resx

@@ -138,6 +138,138 @@
         PNWfb/GWbyQQ2Z/pgjaJ9XsI91sIjr1H+fgUVeYh/KVrFs8Itp6O1B2RR+fAdhzupEHDXnw3U3GVpuAq
         +w/y3l2wnHCNxMrhGIGMcp2WpkyYWeqcC30Co5OYu0gvwZIRtc4b606cpoUYtF9y3BgvNkFSmhcSO25a
         TGCkk99shOQwl9bXawAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="BTT_OPEN_FILE.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAk9JREFUOE+Nk0tIVGEUgKcWZlZWEK1aZEmZUlmpEQUtrF1Q0WNfUUgtCqKZLMXQ
+        UPJRmuY4TYYKmbPJcVSCAkuFQislzCx7rSo3Oc5T7zzu17njdZosxMXH/bn/+b97zn/ONfBjAJoPQctR
+        sB2bH1rsw8OEvnVj0BbUbdNJ19HW2+fmbgZO4wIR2MRm3irIQcsO2RA0Qe3mf9EOajGRuEycuXEiaDky
+        vdlXTfjrc0Kfu1BfVkJjtqR68G80cfRDIrgSL4Km/fCinFC/GU9JEs7CTUy25hAafYIy8hhl2IEy2Iwy
+        0IzacRaq1kNNClizdEHjPhiw4nFcRClKFLukWZvG1PWVuI0GPMVr8LYb8XZcRvX/gqEH0HZSskmPEbyu
+        w9N+CaV41bS9/Qx86oQPdhh1EOwuwesw4bGdY7LvPoHhNgIlq5nIS5gl0DLoyIF3LfgbDjBhFap348uL
+        Q5EDyrVEgvZT+Htv4ytYiit/WYzAfh6lIgl1bBB/xQYmi1YQqkomVJmMapbLswhN2ajfX+ErW8dU+Vpc
+        eUtiBRcIPDpBoKcU99V4uJf1p2Va+2q3QE8hSvcN3PkJUL9r5g6kXW8sUoKRqSE7vlupBCUTrJl6u3SB
+        PNWfb/GWbyQQ2Z/pgjaJ9XsI91sIjr1H+fgUVeYh/KVrFs8Itp6O1B2RR+fAdhzupEHDXnw3U3GVpuAq
+        +w/y3l2wnHCNxMrhGIGMcp2WpkyYWeqcC30Co5OYu0gvwZIRtc4b606cpoUYtF9y3BgvNkFSmhcSO25a
+        TGCkk99shOQwl9bXawAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="BTT_PLS_ITEM_EDIT.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+        DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+        bGUAAEjHnZZ3VFTXFofPvXd6oc0w0hl6ky4wgPQuIB0EURhmBhjKAMMMTWyIqEBEEREBRZCggAGjoUis
+        iGIhKKhgD0gQUGIwiqioZEbWSnx5ee/l5ffHvd/aZ+9z99l7n7UuACRPHy4vBZYCIJkn4Ad6ONNXhUfQ
+        sf0ABniAAaYAMFnpqb5B7sFAJC83F3q6yAn8i94MAUj8vmXo6U+ng/9P0qxUvgAAyF/E5mxOOkvE+SJO
+        yhSkiu0zIqbGJIoZRomZL0pQxHJijlvkpZ99FtlRzOxkHlvE4pxT2clsMfeIeHuGkCNixEfEBRlcTqaI
+        b4tYM0mYzBXxW3FsMoeZDgCKJLYLOKx4EZuImMQPDnQR8XIAcKS4LzjmCxZwsgTiQ7mkpGbzuXHxArou
+        S49uam3NoHtyMpM4AoGhP5OVyOSz6S4pyalMXjYAi2f+LBlxbemiIluaWltaGpoZmX5RqP+6+Dcl7u0i
+        vQr43DOI1veH7a/8UuoAYMyKarPrD1vMfgA6tgIgd/8Pm+YhACRFfWu/8cV5aOJ5iRcIUm2MjTMzM424
+        HJaRuKC/6386/A198T0j8Xa/l4fuyollCpMEdHHdWClJKUI+PT2VyeLQDf88xP848K/zWBrIieXwOTxR
+        RKhoyri8OFG7eWyugJvCo3N5/6mJ/zDsT1qca5Eo9Z8ANcoISN2gAuTnPoCiEAESeVDc9d/75oMPBeKb
+        F6Y6sTj3nwX9+65wifiRzo37HOcSGExnCfkZi2viawnQgAAkARXIAxWgAXSBITADVsAWOAI3sAL4gWAQ
+        DtYCFogHyYAPMkEu2AwKQBHYBfaCSlAD6kEjaAEnQAc4DS6Ay+A6uAnugAdgBIyD52AGvAHzEARhITJE
+        geQhVUgLMoDMIAZkD7lBPlAgFA5FQ3EQDxJCudAWqAgqhSqhWqgR+hY6BV2ArkID0D1oFJqCfoXewwhM
+        gqmwMqwNG8MM2An2hoPhNXAcnAbnwPnwTrgCroOPwe3wBfg6fAcegZ/DswhAiAgNUUMMEQbigvghEUgs
+        wkc2IIVIOVKHtCBdSC9yCxlBppF3KAyKgqKjDFG2KE9UCIqFSkNtQBWjKlFHUe2oHtQt1ChqBvUJTUYr
+        oQ3QNmgv9Cp0HDoTXYAuRzeg29CX0HfQ4+g3GAyGhtHBWGE8MeGYBMw6TDHmAKYVcx4zgBnDzGKxWHms
+        AdYO64dlYgXYAux+7DHsOewgdhz7FkfEqeLMcO64CBwPl4crxzXhzuIGcRO4ebwUXgtvg/fDs/HZ+BJ8
+        Pb4LfwM/jp8nSBN0CHaEYEICYTOhgtBCuER4SHhFJBLVidbEACKXuIlYQTxOvEIcJb4jyZD0SS6kSJKQ
+        tJN0hHSedI/0ikwma5MdyRFkAXknuZF8kfyY/FaCImEk4SXBltgoUSXRLjEo8UISL6kl6SS5VjJHslzy
+        pOQNyWkpvJS2lIsUU2qDVJXUKalhqVlpirSptJ90snSxdJP0VelJGayMtoybDFsmX+awzEWZMQpC0aC4
+        UFiULZR6yiXKOBVD1aF6UROoRdRvqP3UGVkZ2WWyobJZslWyZ2RHaAhNm+ZFS6KV0E7QhmjvlygvcVrC
+        WbJjScuSwSVzcopyjnIcuUK5Vrk7cu/l6fJu8onyu+U75B8poBT0FQIUMhUOKlxSmFakKtoqshQLFU8o
+        3leClfSVApXWKR1W6lOaVVZR9lBOVd6vfFF5WoWm4qiSoFKmclZlSpWiaq/KVS1TPaf6jC5Ld6In0Svo
+        PfQZNSU1TzWhWq1av9q8uo56iHqeeqv6Iw2CBkMjVqNMo1tjRlNV01czV7NZ874WXouhFa+1T6tXa05b
+        RztMe5t2h/akjpyOl06OTrPOQ12yroNumm6d7m09jB5DL1HvgN5NfVjfQj9ev0r/hgFsYGnANThgMLAU
+        vdR6KW9p3dJhQ5Khk2GGYbPhqBHNyMcoz6jD6IWxpnGE8W7jXuNPJhYmSSb1Jg9MZUxXmOaZdpn+aqZv
+        xjKrMrttTjZ3N99o3mn+cpnBMs6yg8vuWlAsfC22WXRbfLS0suRbtlhOWWlaRVtVWw0zqAx/RjHjijXa
+        2tl6o/Vp63c2ljYCmxM2v9ga2ibaNtlOLtdZzllev3zMTt2OaVdrN2JPt4+2P2Q/4qDmwHSoc3jiqOHI
+        dmxwnHDSc0pwOub0wtnEme/c5jznYuOy3uW8K+Lq4Vro2u8m4xbiVun22F3dPc692X3Gw8Jjncd5T7Sn
+        t+duz2EvZS+WV6PXzAqrFetX9HiTvIO8K72f+Oj78H26fGHfFb57fB+u1FrJW9nhB/y8/Pb4PfLX8U/z
+        /z4AE+AfUBXwNNA0MDewN4gSFBXUFPQm2Dm4JPhBiG6IMKQ7VDI0MrQxdC7MNaw0bGSV8ar1q66HK4Rz
+        wzsjsBGhEQ0Rs6vdVu9dPR5pEVkQObRGZ03WmqtrFdYmrT0TJRnFjDoZjY4Oi26K/sD0Y9YxZ2O8Yqpj
+        ZlgurH2s52xHdhl7imPHKeVMxNrFlsZOxtnF7YmbineIL4+f5rpwK7kvEzwTahLmEv0SjyQuJIUltSbj
+        kqOTT/FkeIm8nhSVlKyUgVSD1ILUkTSbtL1pM3xvfkM6lL4mvVNAFf1M9Ql1hVuFoxn2GVUZbzNDM09m
+        SWfxsvqy9bN3ZE/kuOd8vQ61jrWuO1ctd3Pu6Hqn9bUboA0xG7o3amzM3zi+yWPT0c2EzYmbf8gzySvN
+        e70lbEtXvnL+pvyxrR5bmwskCvgFw9tst9VsR23nbu/fYb5j/45PhezCa0UmReVFH4pZxde+Mv2q4quF
+        nbE7+0ssSw7uwuzi7Rra7bD7aKl0aU7p2B7fPe1l9LLCstd7o/ZeLV9WXrOPsE+4b6TCp6Jzv+b+Xfs/
+        VMZX3qlyrmqtVqreUT13gH1g8KDjwZYa5ZqimveHuIfu1nrUttdp15UfxhzOOPy0PrS+92vG140NCg1F
+        DR+P8I6MHA082tNo1djYpNRU0gw3C5unjkUeu/mN6zedLYYtta201qLj4Ljw+LNvo78dOuF9ovsk42TL
+        d1rfVbdR2grbofbs9pmO+I6RzvDOgVMrTnV32Xa1fW/0/ZHTaqerzsieKTlLOJt/duFczrnZ86nnpy/E
+        XRjrjup+cHHVxds9AT39l7wvXbnsfvlir1PvuSt2V05ftbl66hrjWsd1y+vtfRZ9bT9Y/NDWb9nffsPq
+        RudN65tdA8sHzg46DF645Xrr8m2v29fvrLwzMBQydHc4cnjkLvvu5L2key/vZ9yff7DpIfph4SOpR+WP
+        lR7X/aj3Y+uI5ciZUdfRvidBTx6Mscae/5T+04fx/Kfkp+UTqhONk2aTp6fcp24+W/1s/Hnq8/npgp+l
+        f65+ofviu18cf+mbWTUz/pL/cuHX4lfyr468Xva6e9Z/9vGb5Dfzc4Vv5d8efcd41/s+7P3EfOYH7IeK
+        j3ofuz55f3q4kLyw8Bv3hPP74uYdwgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAahJREFUOE9j+P//P8l4
+        vaOjPYyNIYkPO1lZsa1wdNy42sHh3Hxb22KQGFaF2LC4qjjroUP7n97s6vx/Ny/3/ypn54+LbGwisSpG
+        x+aaouwZren/u5f2/3/18tX/qzNn/l/i4XGSgYFBFasGZKwjzcJ6YVnU152blvw3LHH53zCl/ufatWu+
+        T+1vDALJY9UEwxrijExHZgd+/Xy1Hcg98BNkCMglMM0gjKEJhuX5GVh2TvD+/O5c0///P9b///qo819P
+        lgmKZhBG0QTDMjwMzJs7XT+9OVHz///XFf+/PWj7j00zCKNwQFiah4FtXbPjp8d78////7bo/4/79Tg1
+        gzAKR1mUg3lOocXbe9uz/v9/M/H/1zuVeDWDMJwhJcDBvK4p4tb1DQn//r/u+f/zRh5BzSAMZyyrdVh9
+        c33B9//32159vZr2hxjNIAwm1GUE3e+ur/n9/+Ls/592Nf9fUun3khjNIMzAysTAv6g6+OT/E33/j09N
+        +zWpMuImsZpBmMHIQK9x19T8/03x1ufE+TkqsCnChxmUlFWuyEpJtAHTtT42BfjxfwYAtlm0ShMkSB4A
+        AAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="BTT_PLS_ITEM_EDIT_FULL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+        DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+        bGUAAEjHnZZ3VFTXFofPvXd6oc0w0hl6ky4wgPQuIB0EURhmBhjKAMMMTWyIqEBEEREBRZCggAGjoUis
+        iGIhKKhgD0gQUGIwiqioZEbWSnx5ee/l5ffHvd/aZ+9z99l7n7UuACRPHy4vBZYCIJkn4Ad6ONNXhUfQ
+        sf0ABniAAaYAMFnpqb5B7sFAJC83F3q6yAn8i94MAUj8vmXo6U+ng/9P0qxUvgAAyF/E5mxOOkvE+SJO
+        yhSkiu0zIqbGJIoZRomZL0pQxHJijlvkpZ99FtlRzOxkHlvE4pxT2clsMfeIeHuGkCNixEfEBRlcTqaI
+        b4tYM0mYzBXxW3FsMoeZDgCKJLYLOKx4EZuImMQPDnQR8XIAcKS4LzjmCxZwsgTiQ7mkpGbzuXHxArou
+        S49uam3NoHtyMpM4AoGhP5OVyOSz6S4pyalMXjYAi2f+LBlxbemiIluaWltaGpoZmX5RqP+6+Dcl7u0i
+        vQr43DOI1veH7a/8UuoAYMyKarPrD1vMfgA6tgIgd/8Pm+YhACRFfWu/8cV5aOJ5iRcIUm2MjTMzM424
+        HJaRuKC/6386/A198T0j8Xa/l4fuyollCpMEdHHdWClJKUI+PT2VyeLQDf88xP848K/zWBrIieXwOTxR
+        RKhoyri8OFG7eWyugJvCo3N5/6mJ/zDsT1qca5Eo9Z8ANcoISN2gAuTnPoCiEAESeVDc9d/75oMPBeKb
+        F6Y6sTj3nwX9+65wifiRzo37HOcSGExnCfkZi2viawnQgAAkARXIAxWgAXSBITADVsAWOAI3sAL4gWAQ
+        DtYCFogHyYAPMkEu2AwKQBHYBfaCSlAD6kEjaAEnQAc4DS6Ay+A6uAnugAdgBIyD52AGvAHzEARhITJE
+        geQhVUgLMoDMIAZkD7lBPlAgFA5FQ3EQDxJCudAWqAgqhSqhWqgR+hY6BV2ArkID0D1oFJqCfoXewwhM
+        gqmwMqwNG8MM2An2hoPhNXAcnAbnwPnwTrgCroOPwe3wBfg6fAcegZ/DswhAiAgNUUMMEQbigvghEUgs
+        wkc2IIVIOVKHtCBdSC9yCxlBppF3KAyKgqKjDFG2KE9UCIqFSkNtQBWjKlFHUe2oHtQt1ChqBvUJTUYr
+        oQ3QNmgv9Cp0HDoTXYAuRzeg29CX0HfQ4+g3GAyGhtHBWGE8MeGYBMw6TDHmAKYVcx4zgBnDzGKxWHms
+        AdYO64dlYgXYAux+7DHsOewgdhz7FkfEqeLMcO64CBwPl4crxzXhzuIGcRO4ebwUXgtvg/fDs/HZ+BJ8
+        Pb4LfwM/jp8nSBN0CHaEYEICYTOhgtBCuER4SHhFJBLVidbEACKXuIlYQTxOvEIcJb4jyZD0SS6kSJKQ
+        tJN0hHSedI/0ikwma5MdyRFkAXknuZF8kfyY/FaCImEk4SXBltgoUSXRLjEo8UISL6kl6SS5VjJHslzy
+        pOQNyWkpvJS2lIsUU2qDVJXUKalhqVlpirSptJ90snSxdJP0VelJGayMtoybDFsmX+awzEWZMQpC0aC4
+        UFiULZR6yiXKOBVD1aF6UROoRdRvqP3UGVkZ2WWyobJZslWyZ2RHaAhNm+ZFS6KV0E7QhmjvlygvcVrC
+        WbJjScuSwSVzcopyjnIcuUK5Vrk7cu/l6fJu8onyu+U75B8poBT0FQIUMhUOKlxSmFakKtoqshQLFU8o
+        3leClfSVApXWKR1W6lOaVVZR9lBOVd6vfFF5WoWm4qiSoFKmclZlSpWiaq/KVS1TPaf6jC5Ld6In0Svo
+        PfQZNSU1TzWhWq1av9q8uo56iHqeeqv6Iw2CBkMjVqNMo1tjRlNV01czV7NZ874WXouhFa+1T6tXa05b
+        RztMe5t2h/akjpyOl06OTrPOQ12yroNumm6d7m09jB5DL1HvgN5NfVjfQj9ev0r/hgFsYGnANThgMLAU
+        vdR6KW9p3dJhQ5Khk2GGYbPhqBHNyMcoz6jD6IWxpnGE8W7jXuNPJhYmSSb1Jg9MZUxXmOaZdpn+aqZv
+        xjKrMrttTjZ3N99o3mn+cpnBMs6yg8vuWlAsfC22WXRbfLS0suRbtlhOWWlaRVtVWw0zqAx/RjHjijXa
+        2tl6o/Vp63c2ljYCmxM2v9ga2ibaNtlOLtdZzllev3zMTt2OaVdrN2JPt4+2P2Q/4qDmwHSoc3jiqOHI
+        dmxwnHDSc0pwOub0wtnEme/c5jznYuOy3uW8K+Lq4Vro2u8m4xbiVun22F3dPc692X3Gw8Jjncd5T7Sn
+        t+duz2EvZS+WV6PXzAqrFetX9HiTvIO8K72f+Oj78H26fGHfFb57fB+u1FrJW9nhB/y8/Pb4PfLX8U/z
+        /z4AE+AfUBXwNNA0MDewN4gSFBXUFPQm2Dm4JPhBiG6IMKQ7VDI0MrQxdC7MNaw0bGSV8ar1q66HK4Rz
+        wzsjsBGhEQ0Rs6vdVu9dPR5pEVkQObRGZ03WmqtrFdYmrT0TJRnFjDoZjY4Oi26K/sD0Y9YxZ2O8Yqpj
+        ZlgurH2s52xHdhl7imPHKeVMxNrFlsZOxtnF7YmbineIL4+f5rpwK7kvEzwTahLmEv0SjyQuJIUltSbj
+        kqOTT/FkeIm8nhSVlKyUgVSD1ILUkTSbtL1pM3xvfkM6lL4mvVNAFf1M9Ql1hVuFoxn2GVUZbzNDM09m
+        SWfxsvqy9bN3ZE/kuOd8vQ61jrWuO1ctd3Pu6Hqn9bUboA0xG7o3amzM3zi+yWPT0c2EzYmbf8gzySvN
+        e70lbEtXvnL+pvyxrR5bmwskCvgFw9tst9VsR23nbu/fYb5j/45PhezCa0UmReVFH4pZxde+Mv2q4quF
+        nbE7+0ssSw7uwuzi7Rra7bD7aKl0aU7p2B7fPe1l9LLCstd7o/ZeLV9WXrOPsE+4b6TCp6Jzv+b+Xfs/
+        VMZX3qlyrmqtVqreUT13gH1g8KDjwZYa5ZqimveHuIfu1nrUttdp15UfxhzOOPy0PrS+92vG140NCg1F
+        DR+P8I6MHA082tNo1djYpNRU0gw3C5unjkUeu/mN6zedLYYtta201qLj4Ljw+LNvo78dOuF9ovsk42TL
+        d1rfVbdR2grbofbs9pmO+I6RzvDOgVMrTnV32Xa1fW/0/ZHTaqerzsieKTlLOJt/duFczrnZ86nnpy/E
+        XRjrjup+cHHVxds9AT39l7wvXbnsfvlir1PvuSt2V05ftbl66hrjWsd1y+vtfRZ9bT9Y/NDWb9nffsPq
+        RudN65tdA8sHzg46DF645Xrr8m2v29fvrLwzMBQydHc4cnjkLvvu5L2key/vZ9yff7DpIfph4SOpR+WP
+        lR7X/aj3Y+uI5ciZUdfRvidBTx6Mscae/5T+04fx/Kfkp+UTqhONk2aTp6fcp24+W/1s/Hnq8/npgp+l
+        f65+ofviu18cf+mbWTUz/pL/cuHX4lfyr468Xva6e9Z/9vGb5Dfzc4Vv5d8efcd41/s+7P3EfOYH7IeK
+        j3ofuz55f3q4kLyw8Bv3hPP74uYdwgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAahJREFUOE9j+P//P8l4
+        vaOjPYyNIYkPO1lZsa1wdNy42sHh3Hxb22KQGFaF2LC4qjjroUP7n97s6vx/Ny/3/ypn54+LbGwisSpG
+        x+aaouwZren/u5f2/3/18tX/qzNn/l/i4XGSgYFBFasGZKwjzcJ6YVnU152blvw3LHH53zCl/ufatWu+
+        T+1vDALJY9UEwxrijExHZgd+/Xy1Hcg98BNkCMglMM0gjKEJhuX5GVh2TvD+/O5c0///P9b///qo819P
+        lgmKZhBG0QTDMjwMzJs7XT+9OVHz///XFf+/PWj7j00zCKNwQFiah4FtXbPjp8d78////7bo/4/79Tg1
+        gzAKR1mUg3lOocXbe9uz/v9/M/H/1zuVeDWDMJwhJcDBvK4p4tb1DQn//r/u+f/zRh5BzSAMZyyrdVh9
+        c33B9//32159vZr2hxjNIAwm1GUE3e+ur/n9/+Ls/592Nf9fUun3khjNIMzAysTAv6g6+OT/E33/j09N
+        +zWpMuImsZpBmMHIQK9x19T8/03x1ufE+TkqsCnChxmUlFWuyEpJtAHTtT42BfjxfwYAtlm0ShMkSB4A
+        AAAASUVORK5CYII=
 </value>
   </data>
   <data name="BTT_OPEN_IN_BROWSER.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

SCrawler.YouTube/Downloader/MediaItem.vb

@@ -23,6 +23,8 @@ Namespace DownloadObjects.STDownloader
         Public Event DownloadAgain As MediaItemEventHandler
         Public Event DownloadRequested As MediaItemEventHandler
         Public Event CheckedChanged As MediaItemEventHandler
+        Public Event BeforeOpenEditor As MediaItemEventHandler
+        Public Event BeforeOpenEditorFull As MediaItemEventHandler
 #End Region
 #Region "Declarations"
 #Region "Controls"
@@ -51,8 +53,8 @@ Namespace DownloadObjects.STDownloader
                 ControlInvokeFast(CH_CHECKED, Sub() CH_CHECKED.Checked = _Checked, EDP.None)
             End Set
         End Property
-        <Browsable(False)> Public Property IgnoreDownloadState As Boolean = False
         Private ReadOnly FileOption As SFO = SFO.File
+        Private ReadOnly ContainerHasElements As Boolean = False
 #End Region
 #Region "Initializers"
         Public Sub New()
@@ -111,16 +113,18 @@ Namespace DownloadObjects.STDownloader
                 .ContextMenuStrip = CONTEXT_MAIN
             }
         End Sub
-        Public Sub New(ByVal Container As IYouTubeMediaContainer)
+        Public Sub New(ByVal Container As IYouTubeMediaContainer, Optional ByVal HasElements As Boolean = False)
             Me.New
             Const d$ = " " & ChrW(183) & " "
             MyContainer = Container
+            ContainerHasElements = HasElements
             With MyContainer
                 .Progress = MyProgress
+                If HasElements Then BTT_PLS_ITEM_EDIT.Visible = True : BTT_PLS_ITEM_EDIT_FULL.Visible = True : SEP_PLS_ITEM_EDIT.Visible = True
                 If .HasElements Then FileOption = SFO.Path Else FileOption = SFO.File
                 If .DownloadState = Plugin.UserMediaStates.Downloaded AndAlso
                    (.ObjectType = Base.YouTubeMediaType.Channel Or .ObjectType = Base.YouTubeMediaType.PlayList) AndAlso FileOption = SFO.File AndAlso
-                   Not .File.Exists AndAlso .File.Exists(SFO.Path, False) Then FileOption = SFO.Path
+                   Not .File.Exists AndAlso .File.Exists(SFO.Path, False) Then FileOption = SFO.Path : BTT_OPEN_FILE.Visible = False
                 If Not .SiteKey = YouTubeSiteKey Then
                     BTT_DOWN_AGAIN.Visible = False
                     SEP_DOWN_AGAIN.Visible = False
@@ -224,11 +228,17 @@ Namespace DownloadObjects.STDownloader
                     .Controls.Clear()
                     .ColumnStyles.Clear()
                     .ColumnCount = 0
-                    If IgnoreDownloadState Or MyContainer.MediaState = Plugin.UserMediaStates.Downloaded Then
+                    If ContainerHasElements Or MyContainer.MediaState = Plugin.UserMediaStates.Downloaded Then
                         If Not MyContainer.SiteKey = YouTubeSiteKey Then UpdateMediaIcon()
-                        If IgnoreDownloadState Then
+                        If ContainerHasElements Then
                             BTT_OPEN_FOLDER.Visible = False
+                            BTT_OPEN_FILE.Visible = False
                             SEP_FOLDER.Visible = False
+                            If Not ContainerHasElements Then
+                                BTT_PLS_ITEM_EDIT.Visible = False
+                                BTT_PLS_ITEM_EDIT_FULL.Visible = False
+                                SEP_PLS_ITEM_EDIT.Visible = False
+                            End If
                             BTT_DOWN_AGAIN.Visible = False
                             SEP_DOWN_AGAIN.Visible = False
                             BTT_REMOVE_FROM_LIST.Visible = False
@@ -369,7 +379,7 @@ Namespace DownloadObjects.STDownloader
                                                                                    ICON_WHAT.DoubleClick, LBL_TIME.DoubleClick, ICON_SIZE.DoubleClick, LBL_INFO.DoubleClick,
                                                                                    LBL_PROGRESS.DoubleClick, PR_MAIN.DoubleClick
             Controls_Click(sender, e)
-            If Not IgnoreDownloadState AndAlso Not MyDownloaderSettings.OnItemDoubleClick = DoubleClickBehavior.None Then
+            If Not ContainerHasElements AndAlso Not MyDownloaderSettings.OnItemDoubleClick = DoubleClickBehavior.None Then
                 Dim m As New MMessage("The specified path was not found.", "Open file/folder",, vbExclamation)
                 If MyDownloaderSettings.OnItemDoubleClick = DoubleClickBehavior.File Then
                     If FileOption = SFO.File And MyContainer.File.Exists(SFO.File, False) Then
@@ -405,6 +415,27 @@ Namespace DownloadObjects.STDownloader
         Private Sub BTT_OPEN_FOLDER_Click(sender As Object, e As EventArgs) Handles BTT_OPEN_FOLDER.Click
             If MyContainer.File.Exists(FileOption, False) Then GlobalOpenPath(MyContainer.File)
         End Sub
+        Private Sub BTT_OPEN_FILE_Click(sender As Object, e As EventArgs) Handles BTT_OPEN_FILE.Click
+            If MyContainer.File.Exists(SFO.File) Then MyContainer.File.Open(,, EDP.ShowAllMsg)
+        End Sub
+        Private Sub BTT_PLS_ITEM_EDIT_Click(sender As Object, e As EventArgs) Handles BTT_PLS_ITEM_EDIT.Click, BTT_PLS_ITEM_EDIT_FULL.Click
+            If ContainerHasElements Then
+                With DirectCast(MyContainer, YouTubeMediaContainerBase)
+                    Dim initProtected As Boolean = .Protected
+                    Dim isFull As Boolean = sender Is BTT_PLS_ITEM_EDIT_FULL
+                    .Protected = False
+                    If isFull Then
+                        RaiseEvent BeforeOpenEditorFull(Me, MyContainer)
+                    Else
+                        RaiseEvent BeforeOpenEditor(Me, MyContainer)
+                    End If
+                    Using f As New VideoOptionsForm(MyContainer, initProtected Or isFull)
+                        f.ShowDialog()
+                        .Protected = IIf(f.DialogResult = DialogResult.OK, True, initProtected)
+                    End Using
+                End With
+            End If
+        End Sub
         Private Sub BTT_COPY_LINK_Click(sender As Object, e As EventArgs) Handles BTT_COPY_LINK.Click
             If Not MyContainer.URL.IsEmptyString Then
                 BufferText = MyContainer.URL

SCrawler.YouTube/Objects/YouTubeMediaContainerBase.vb

@@ -139,22 +139,26 @@ Namespace API.YouTube.Objects
 #End Region
 #Region "Data info"
         Friend ReadOnly Property MediaObjects As List(Of MediaObject) Implements IYouTubeMediaContainer.MediaObjects
+        Friend Property [Protected] As Boolean = False
+        Friend Property IsAudioSelected As Boolean = False
 #Region "Array"
         ''' <summary>[-10] = disabled; [-1] = max; [-2] = audio only</summary>
         <XMLEC> Friend Property ArrayMaxResolution As Integer = -10
         ''' <param name="Value">[-1] = max; [-2] = audio only</param>
         Friend Sub SetMaxResolution(ByVal Value As Integer)
-            ArrayMaxResolution = Value
-            SelectedVideoIndex = -1
-            If MediaObjects.Count > 0 And Value <> -2 Then
-                If Value = -1 Then
-                    SelectedVideoIndex = MediaObjects.FindIndex(Function(mo) mo.Type = UMTypes.Video)
-                Else
-                    SelectedVideoIndex = MediaObjects.FindIndex(Function(mo) mo.Type = UMTypes.Video And mo.Height <= Value)
-                    If SelectedVideoIndex = -1 Then SelectedVideoIndex = MediaObjects.FindIndex(Function(mo) mo.Type = UMTypes.Video)
+            If Not [Protected] Then
+                ArrayMaxResolution = Value
+                SelectedVideoIndex = -1
+                If MediaObjects.Count > 0 And Value <> -2 Then
+                    If Value = -1 Then
+                        SelectedVideoIndex = MediaObjects.FindIndex(Function(mo) mo.Type = UMTypes.Video)
+                    Else
+                        SelectedVideoIndex = MediaObjects.FindIndex(Function(mo) mo.Type = UMTypes.Video And mo.Height <= Value)
+                        If SelectedVideoIndex = -1 Then SelectedVideoIndex = MediaObjects.FindIndex(Function(mo) mo.Type = UMTypes.Video)
+                    End If
                 End If
+                If HasElements Then Elements.ForEach(Sub(e As YouTubeMediaContainerBase) e.SetMaxResolution(Value))
             End If
-            If HasElements Then Elements.ForEach(Sub(e As YouTubeMediaContainerBase) e.SetMaxResolution(Value))
         End Sub
 #End Region
 #Region "Thumbnails"
@@ -213,8 +217,10 @@ Namespace API.YouTube.Objects
                 Return _OutputVideoExtension
             End Get
             Set(ByVal _OutputVideoExtension As String)
-                Me._OutputVideoExtension = _OutputVideoExtension
-                If HasElements Then Elements.ForEach(Sub(e) e.OutputVideoExtension = _OutputVideoExtension)
+                If Not [Protected] Then
+                    Me._OutputVideoExtension = _OutputVideoExtension
+                    If HasElements Then Elements.ForEach(Sub(e) e.OutputVideoExtension = _OutputVideoExtension)
+                End If
             End Set
         End Property
         <XMLEC("OutputVideoFPS")> Protected _OutputVideoFPS As Double = -1
@@ -223,8 +229,10 @@ Namespace API.YouTube.Objects
                 Return _OutputVideoFPS
             End Get
             Set(ByVal fps As Double)
-                _OutputVideoFPS = fps
-                If HasElements Then Elements.ForEach(Sub(elem) DirectCast(elem, YouTubeMediaContainerBase).OutputVideoFPS = fps)
+                If Not [Protected] Then
+                    _OutputVideoFPS = fps
+                    If HasElements Then Elements.ForEach(Sub(elem) DirectCast(elem, YouTubeMediaContainerBase).OutputVideoFPS = fps)
+                End If
             End Set
         End Property
 #End Region
@@ -241,8 +249,10 @@ Namespace API.YouTube.Objects
                 Return _OutputAudioCodec
             End Get
             Set(ByVal _OutputAudioCodec As String)
-                Me._OutputAudioCodec = _OutputAudioCodec
-                If HasElements Then Elements.ForEach(Sub(e) e.OutputAudioCodec = _OutputAudioCodec)
+                If Not [Protected] Then
+                    Me._OutputAudioCodec = _OutputAudioCodec
+                    If HasElements Then Elements.ForEach(Sub(e) e.OutputAudioCodec = _OutputAudioCodec)
+                End If
             End Set
         End Property
         <XMLEC(CollectionMode:=CollectionModes.String)>
@@ -282,8 +292,10 @@ Namespace API.YouTube.Objects
                 Return _OutputSubtitlesFormat
             End Get
             Set(ByVal _OutputSubtitlesFormat As String)
-                Me._OutputSubtitlesFormat = _OutputSubtitlesFormat
-                If HasElements Then Elements.ForEach(Sub(e) e.OutputSubtitlesFormat = _OutputSubtitlesFormat)
+                If Not [Protected] Then
+                    Me._OutputSubtitlesFormat = _OutputSubtitlesFormat
+                    If HasElements Then Elements.ForEach(Sub(e) e.OutputSubtitlesFormat = _OutputSubtitlesFormat)
+                End If
             End Set
         End Property
         <XMLEC(CollectionMode:=CollectionModes.String)>
@@ -565,8 +577,10 @@ Namespace API.YouTube.Objects
                 Return _AbsolutePath
             End Get
             Set(ByVal ap As Boolean)
-                _AbsolutePath = ap
-                If Elements.Count > 0 Then Elements.ForEach(Sub(e As YouTubeMediaContainerBase) e.AbsolutePath = ap)
+                If Not [Protected] Then
+                    _AbsolutePath = ap
+                    If Elements.Count > 0 Then Elements.ForEach(Sub(e As YouTubeMediaContainerBase) e.AbsolutePath = ap)
+                End If
             End Set
         End Property
         Public Overridable Property File As SFile Implements IYouTubeMediaContainer.File
@@ -574,28 +588,30 @@ Namespace API.YouTube.Objects
                 Return _File
             End Get
             Set(ByVal f As SFile)
-                Select Case ObjectType
-                    Case YouTubeMediaType.Channel : _File = f.Path
-                    Case YouTubeMediaType.PlayList
-                        If AbsolutePath Then
-                            _File.Path = f.Path
-                        Else
-                            _File.Path = $"{f.PathWithSeparator}{GetPlayListTitle()}"
-                        End If
-                    Case YouTubeMediaType.Single
-                        If PlaylistCount > 0 And Not FileIgnorePlaylist Then
-                            _File.Path = f.Path
-                            Dim pls$ = If(AbsolutePath, String.Empty, GetPlayListTitle())
-                            If Not _File.Path.Contains(pls) Then _File.Path = $"{_File.PathWithSeparator(Not pls.IsEmptyString)}{pls}"
-                        ElseIf Not f.Name.IsEmptyString Then
-                            _File = f
-                        Else
-                            _File.Path = f.Path
-                        End If
-                    Case Else : _File = f
-                End Select
-                GenerateFileName()
-                If HasElements Then Elements.ForEach(Sub(e) e.File = _File)
+                If Not [Protected] Then
+                    Select Case ObjectType
+                        Case YouTubeMediaType.Channel : _File = f.Path
+                        Case YouTubeMediaType.PlayList
+                            If AbsolutePath Then
+                                _File.Path = f.Path
+                            Else
+                                _File.Path = $"{f.PathWithSeparator}{GetPlayListTitle()}"
+                            End If
+                        Case YouTubeMediaType.Single
+                            If PlaylistCount > 0 And Not FileIgnorePlaylist Then
+                                _File.Path = f.Path
+                                Dim pls$ = If(AbsolutePath, String.Empty, GetPlayListTitle())
+                                If Not _File.Path.Contains(pls) Then _File.Path = $"{_File.PathWithSeparator(Not pls.IsEmptyString)}{pls}"
+                            ElseIf Not f.Name.IsEmptyString Then
+                                _File = f
+                            Else
+                                _File.Path = f.Path
+                            End If
+                        Case Else : _File = f
+                    End Select
+                    GenerateFileName()
+                    If HasElements Then Elements.ForEach(Sub(e) e.File = _File)
+                End If
             End Set
         End Property
         Public Property FileSettings As SFile
@@ -624,6 +640,7 @@ Namespace API.YouTube.Objects
                 If Not File.IsEmptyString Then
                     If File.Exists Then File = SFile.IndexReindex(File)
                     Dim cmd$ = String.Empty, formats$ = String.Empty, subs$ = String.Empty, remux$ = String.Empty
+                    Dim embedThumbArgAdded As Boolean = False
                     _Size = 0
                     Height = 0
                     Bitrate = 0
@@ -636,6 +653,10 @@ Namespace API.YouTube.Objects
                         _MediaType = UMTypes.Video
                         Height = SelectedVideo.Height
                         _File.Extension = OutputVideoExtension
+                        If Not embedThumbArgAdded And MyYouTubeSettings.DefaultVideoEmbedThumbnail Then
+                            formats.StringAppend("--embed-thumbnail", " ")
+                            embedThumbArgAdded = True
+                        End If
                     Else
                         formats.StringAppend("--extract-audio", " ")
                         _MediaType = UMTypes.Audio
@@ -653,7 +674,13 @@ Namespace API.YouTube.Objects
                             formats.StringAppend($"--audio-format {OutputAudioCodec.StringToLower}", " ")
                             atCodec = OutputAudioCodec.StringToLower
                         End If
-                        If SelectedVideoIndex = -1 Then formats.StringAppend("--add-metadata", " ")
+                        If SelectedVideoIndex = -1 Then
+                            formats.StringAppend("--add-metadata", " ")
+                            If Not embedThumbArgAdded And MyYouTubeSettings.DefaultAudioEmbedThumbnail Then
+                                formats.StringAppend("--embed-thumbnail", " ")
+                                embedThumbArgAdded = True
+                            End If
+                        End If
                         _Size += SelectedAudio.Size
                         If _MediaType = UMTypes.Undefined Then _MediaType = UMTypes.Audio
                         Bitrate = SelectedAudio.Bitrate