add "ScaledBorderAndShadow:yes" option #764

2023-06-17 17:23:31 +02:00 · 2023-06-17 17:23:31 +02:00 · 311f5f24b4
parent 5102d2d3b6
commit 311f5f24b4
9 changed files with 175 additions and 65 deletions
--- a/Downloader/v17/.suo
+++ b/Downloader/v17/.suo
--- a/Downloader/App.config
+++ b/Downloader/App.config
@ -165,6 +165,9 @@
   <setting name="User_Agend" serializeAs="String">
    <value>"User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 Safari/537.36 Edg/112.0.1722.34"</value>
   </setting>
+   <setting name="SubtitleMod1" serializeAs="String">
+    <value>False</value>
+   </setting>
  </Crunchyroll_Downloader.My.MySettings>
 </userSettings>
 </configuration>
--- a/Downloader/CRD_List_Item.vb
+++ b/Downloader/CRD_List_Item.vb
@ -1170,6 +1170,11 @@ Public Class CRD_List_Item
                        End Try
                    End If
                    Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
+
+                    If My.Settings.SubtitleMod1 = True Then
+                        InputData = AddScaledBorderAndShadow(InputData)
+                    End If
+
                    Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
                        sink.WriteLine(InputData)
                    End Using
--- a/Downloader/Main.vb
+++ b/Downloader/Main.vb
@ -1856,6 +1856,11 @@ Public Class Main

                        Dim SubText As String = ""
                        SubText = Curl(SoftSubsList(i2).Url.Replace(" -i ", "").Replace(Chr(34), ""))
+
+                        If My.Settings.SubtitleMod1 = True Then
+                            SubText = AddScaledBorderAndShadow(SubText)
+                        End If
+
                        Dim Pfad3 As String = Pfad2.Replace(Chr(34), "")
                        Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + "." + GetSubFileLangName(SoftSubsList(i2).SubLangValue) + Path.GetExtension(Pfad3)), SubFormat)
                        If i = 0 And IncludeLangName = False Then
@ -2224,6 +2229,10 @@ Public Class Main
    End Sub

    Private Sub Btn_Browser_Click(sender As Object, e As EventArgs) Handles Btn_Browser.Click
+
+        'Dim Teststring As String = TheTextBox.Text
+        'TheTextBox.Text = AddScaledBorderAndShadow(Teststring)
+        'Exit Sub
        'Debug.WriteLine(Date.Now.ToString + "." + Date.Now.Millisecond.ToString)
        UserBowser = True

--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@ -630,6 +630,18 @@ Namespace My
                Me("User_Agend") = value
            End Set
        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property SubtitleMod1() As Boolean
+            Get
+                Return CType(Me("SubtitleMod1"),Boolean)
+            End Get
+            Set
+                Me("SubtitleMod1") = value
+            End Set
+        End Property
    End Class
 End Namespace

--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@ -146,5 +146,8 @@
    <Setting Name="User_Agend" Type="System.String" Scope="User">
      <Value Profile="(Default)">"User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 Safari/537.36 Edg/112.0.1722.34"</Value>
    </Setting>
+    <Setting Name="SubtitleMod1" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
  </Settings>
 </SettingsFile>
--- a/Downloader/Subfolder.vb
+++ b/Downloader/Subfolder.vb
@ -1,6 +1,7 @@
 Imports System.ComponentModel
 Imports System.IO
 Imports System.Runtime.Remoting
+Imports System.Runtime.Remoting.Messaging
 Imports System.Text
 Imports System.Windows.Forms.VisualStyles

@ -50,6 +51,20 @@ Module Subfolder
    End Function


+    Public Function AddScaledBorderAndShadow(ByVal Subtitle As String) As String
+        Dim Output As String = Subtitle
+
+        If CBool(InStr(Output, "[V4+ Styles]")) And CBool(InStr(Output, "ScaledBorderAndShadow")) = False Then
+
+            Dim Styles() As String = Output.Split(New String() {"[V4+ Styles]"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Output = Styles(0) + "ScaledBorderAndShadow: yes" + vbNewLine + vbNewLine + "[V4+ Styles]" + Styles(1)
+
+        End If
+
+
+        Return Output
+    End Function
+

    Public Sub WriteText(ByVal Pfad As String, ByVal Content As String)

--- a/Downloader/einstellungen.Designer.vb
+++ b/Downloader/einstellungen.Designer.vb
@ -32,6 +32,7 @@ Partial Class Einstellungen
        Me.CR_SoftSubs = New MetroFramework.Controls.MetroComboBox()
        Me.GB_SubLanguage = New System.Windows.Forms.GroupBox()
        Me.CB_CR_Harsubs = New MetroFramework.Controls.MetroComboBox()
+        Me.DubMode = New MetroFramework.Controls.MetroCheckBox()
        Me.TabPage2 = New MetroFramework.Controls.MetroTabPage()
        Me.GroupBox18 = New System.Windows.Forms.GroupBox()
        Me.ListViewAdd_True = New MetroFramework.Controls.MetroCheckBox()
@ -120,11 +121,13 @@ Partial Class Einstellungen
        Me.CB_Anime = New MetroFramework.Controls.MetroCheckBox()
        Me.TB_NameString = New MetroFramework.Controls.MetroTextBox()
        Me.MetroTabPage1 = New MetroFramework.Controls.MetroTabPage()
+        Me.GroupBox22 = New System.Windows.Forms.GroupBox()
+        Me.CB_Cap = New MetroFramework.Controls.MetroCheckBox()
        Me.GroupBox20 = New System.Windows.Forms.GroupBox()
        Me.ChB_Chapters = New MetroFramework.Controls.MetroCheckBox()
        Me.GroupBox19 = New System.Windows.Forms.GroupBox()
+        Me.CB_OverrideDub = New MetroFramework.Controls.MetroCheckBox()
        Me.CB_CR_Audio = New MetroFramework.Controls.MetroComboBox()
-        Me.DubMode = New MetroFramework.Controls.MetroCheckBox()
        Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
        Me.GroupBox15 = New System.Windows.Forms.GroupBox()
        Me.Bitrate_Funi = New MetroFramework.Controls.MetroComboBox()
@ -154,9 +157,8 @@ Partial Class Einstellungen
        Me.Label5 = New MetroFramework.Controls.MetroLabel()
        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
        Me.Btn_Save = New System.Windows.Forms.Button()
-        Me.CB_OverrideDub = New MetroFramework.Controls.MetroCheckBox()
-        Me.GroupBox22 = New System.Windows.Forms.GroupBox()
-        Me.CB_Cap = New MetroFramework.Controls.MetroCheckBox()
+        Me.GroupBox23 = New System.Windows.Forms.GroupBox()
+        Me.CB_Mod1 = New MetroFramework.Controls.MetroCheckBox()
        CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox14.SuspendLayout()
        Me.SoftSubs.SuspendLayout()
@ -184,6 +186,7 @@ Partial Class Einstellungen
        Me.GB_Filename_Pre.SuspendLayout()
        Me.GroupBox12.SuspendLayout()
        Me.MetroTabPage1.SuspendLayout()
+        Me.GroupBox22.SuspendLayout()
        Me.GroupBox20.SuspendLayout()
        Me.GroupBox19.SuspendLayout()
        Me.TabPage6.SuspendLayout()
@ -196,7 +199,7 @@ Partial Class Einstellungen
        Me.GroupBox8.SuspendLayout()
        Me.TabPage7.SuspendLayout()
        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.GroupBox22.SuspendLayout()
+        Me.GroupBox23.SuspendLayout()
        Me.SuspendLayout()
        '
        'ToolTip1
@ -300,9 +303,23 @@ Partial Class Einstellungen
        Me.CB_CR_Harsubs.TabIndex = 20
        Me.CB_CR_Harsubs.UseSelectable = True
        '
+        'DubMode
+        '
+        Me.DubMode.BackColor = System.Drawing.Color.Transparent
+        Me.DubMode.FontSize = MetroFramework.MetroCheckBoxSize.SomethingInBetween
+        Me.DubMode.Location = New System.Drawing.Point(70, 20)
+        Me.DubMode.Name = "DubMode"
+        Me.DubMode.Size = New System.Drawing.Size(348, 29)
+        Me.DubMode.TabIndex = 5
+        Me.DubMode.Text = "skip hardsubs if unavailable on dubbed shows"
+        Me.DubMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.DubMode.UseCustomBackColor = True
+        Me.DubMode.UseSelectable = True
+        '
        'TabPage2
        '
        Me.TabPage2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
+        Me.TabPage2.Controls.Add(Me.GroupBox23)
        Me.TabPage2.Controls.Add(Me.GroupBox18)
        Me.TabPage2.Controls.Add(Me.GroupBox16)
        Me.TabPage2.Controls.Add(Me.GroupBox4)
@ -339,7 +356,7 @@ Partial Class Einstellungen
        '
        Me.ListViewAdd_True.AutoSize = True
        Me.ListViewAdd_True.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.ListViewAdd_True.Location = New System.Drawing.Point(119, 21)
+        Me.ListViewAdd_True.Location = New System.Drawing.Point(119, 25)
        Me.ListViewAdd_True.Name = "ListViewAdd_True"
        Me.ListViewAdd_True.Size = New System.Drawing.Size(255, 19)
        Me.ListViewAdd_True.TabIndex = 5
@ -467,7 +484,7 @@ Partial Class Einstellungen
        Me.GroupBox2.Controls.Add(Me.Panel1)
        Me.GroupBox2.Font = New System.Drawing.Font("Arial", 9.75!)
        Me.GroupBox2.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox2.Location = New System.Drawing.Point(5, 350)
+        Me.GroupBox2.Location = New System.Drawing.Point(5, 410)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(490, 63)
        Me.GroupBox2.TabIndex = 50
@ -800,10 +817,10 @@ Partial Class Einstellungen
        Me.TabPage1.HorizontalScrollbarBarColor = True
        Me.TabPage1.HorizontalScrollbarHighlightOnWheel = False
        Me.TabPage1.HorizontalScrollbarSize = 10
-        Me.TabPage1.Location = New System.Drawing.Point(4, 44)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 35)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(501, 519)
+        Me.TabPage1.Size = New System.Drawing.Size(501, 528)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "  Main"
        Me.TabPage1.VerticalScrollbar = True
@ -1037,7 +1054,7 @@ Partial Class Einstellungen
        Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
        Me.TabControl1.Location = New System.Drawing.Point(22, 60)
        Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 3
+        Me.TabControl1.SelectedIndex = 1
        Me.TabControl1.Size = New System.Drawing.Size(509, 567)
        Me.TabControl1.TabIndex = 0
        Me.TabControl1.UseSelectable = True
@ -1051,9 +1068,9 @@ Partial Class Einstellungen
        Me.MetroTabPage2.HorizontalScrollbarBarColor = True
        Me.MetroTabPage2.HorizontalScrollbarHighlightOnWheel = False
        Me.MetroTabPage2.HorizontalScrollbarSize = 10
-        Me.MetroTabPage2.Location = New System.Drawing.Point(4, 44)
+        Me.MetroTabPage2.Location = New System.Drawing.Point(4, 35)
        Me.MetroTabPage2.Name = "MetroTabPage2"
-        Me.MetroTabPage2.Size = New System.Drawing.Size(501, 519)
+        Me.MetroTabPage2.Size = New System.Drawing.Size(501, 528)
        Me.MetroTabPage2.TabIndex = 8
        Me.MetroTabPage2.Text = "Naming"
        Me.MetroTabPage2.VerticalScrollbarBarColor = True
@ -1366,6 +1383,30 @@ Partial Class Einstellungen
        Me.MetroTabPage1.VerticalScrollbarHighlightOnWheel = False
        Me.MetroTabPage1.VerticalScrollbarSize = 10
        '
+        'GroupBox22
+        '
+        Me.GroupBox22.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox22.Controls.Add(Me.CB_Cap)
+        Me.GroupBox22.Font = New System.Drawing.Font("Arial", 9.75!)
+        Me.GroupBox22.ForeColor = System.Drawing.Color.Black
+        Me.GroupBox22.Location = New System.Drawing.Point(3, 280)
+        Me.GroupBox22.Name = "GroupBox22"
+        Me.GroupBox22.Size = New System.Drawing.Size(490, 65)
+        Me.GroupBox22.TabIndex = 35
+        Me.GroupBox22.TabStop = False
+        Me.GroupBox22.Text = "CC"
+        '
+        'CB_Cap
+        '
+        Me.CB_Cap.AutoSize = True
+        Me.CB_Cap.FontSize = MetroFramework.MetroCheckBoxSize.Medium
+        Me.CB_Cap.Location = New System.Drawing.Point(158, 23)
+        Me.CB_Cap.Name = "CB_Cap"
+        Me.CB_Cap.Size = New System.Drawing.Size(168, 19)
+        Me.CB_Cap.TabIndex = 5
+        Me.CB_Cap.Text = "use captions if available"
+        Me.CB_Cap.UseSelectable = True
+        '
        'GroupBox20
        '
        Me.GroupBox20.BackColor = System.Drawing.Color.Transparent
@ -1404,6 +1445,19 @@ Partial Class Einstellungen
        Me.GroupBox19.TabStop = False
        Me.GroupBox19.Text = "Dubbed"
        '
+        'CB_OverrideDub
+        '
+        Me.CB_OverrideDub.BackColor = System.Drawing.Color.Transparent
+        Me.CB_OverrideDub.FontSize = MetroFramework.MetroCheckBoxSize.SomethingInBetween
+        Me.CB_OverrideDub.Location = New System.Drawing.Point(70, 56)
+        Me.CB_OverrideDub.Name = "CB_OverrideDub"
+        Me.CB_OverrideDub.Size = New System.Drawing.Size(348, 29)
+        Me.CB_OverrideDub.TabIndex = 22
+        Me.CB_OverrideDub.Text = "override Dub language"
+        Me.CB_OverrideDub.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.CB_OverrideDub.UseCustomBackColor = True
+        Me.CB_OverrideDub.UseSelectable = True
+        '
        'CB_CR_Audio
        '
        Me.CB_CR_Audio.DropDownHeight = 275
@ -1417,19 +1471,6 @@ Partial Class Einstellungen
        Me.CB_CR_Audio.TabIndex = 21
        Me.CB_CR_Audio.UseSelectable = True
        '
-        'DubMode
-        '
-        Me.DubMode.BackColor = System.Drawing.Color.Transparent
-        Me.DubMode.FontSize = MetroFramework.MetroCheckBoxSize.SomethingInBetween
-        Me.DubMode.Location = New System.Drawing.Point(70, 20)
-        Me.DubMode.Name = "DubMode"
-        Me.DubMode.Size = New System.Drawing.Size(348, 29)
-        Me.DubMode.TabIndex = 5
-        Me.DubMode.Text = "skip hardsubs if unavailable on dubbed shows"
-        Me.DubMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.DubMode.UseCustomBackColor = True
-        Me.DubMode.UseSelectable = True
-        '
        'TabPage6
        '
        Me.TabPage6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
@ -1440,10 +1481,10 @@ Partial Class Einstellungen
        Me.TabPage6.HorizontalScrollbarBarColor = True
        Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
        Me.TabPage6.HorizontalScrollbarSize = 10
-        Me.TabPage6.Location = New System.Drawing.Point(4, 44)
+        Me.TabPage6.Location = New System.Drawing.Point(4, 35)
        Me.TabPage6.Name = "TabPage6"
        Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage6.Size = New System.Drawing.Size(501, 519)
+        Me.TabPage6.Size = New System.Drawing.Size(501, 528)
        Me.TabPage6.TabIndex = 4
        Me.TabPage6.Text = " Funimation"
        Me.TabPage6.VerticalScrollbarBarColor = True
@ -1677,9 +1718,9 @@ Partial Class Einstellungen
        Me.TabPage7.Controls.Add(Me.Label4)
        Me.TabPage7.Controls.Add(Me.Label6)
        Me.TabPage7.Controls.Add(Me.Label5)
-        Me.TabPage7.Location = New System.Drawing.Point(4, 44)
+        Me.TabPage7.Location = New System.Drawing.Point(4, 35)
        Me.TabPage7.Name = "TabPage7"
-        Me.TabPage7.Size = New System.Drawing.Size(501, 519)
+        Me.TabPage7.Size = New System.Drawing.Size(501, 528)
        Me.TabPage7.TabIndex = 5
        Me.TabPage7.Text = " About  "
        '
@ -1811,42 +1852,32 @@ Partial Class Einstellungen
        Me.Btn_Save.TabIndex = 9
        Me.Btn_Save.UseVisualStyleBackColor = False
        '
-        'CB_OverrideDub
+        'GroupBox23
        '
-        Me.CB_OverrideDub.BackColor = System.Drawing.Color.Transparent
-        Me.CB_OverrideDub.FontSize = MetroFramework.MetroCheckBoxSize.SomethingInBetween
-        Me.CB_OverrideDub.Location = New System.Drawing.Point(70, 56)
-        Me.CB_OverrideDub.Name = "CB_OverrideDub"
-        Me.CB_OverrideDub.Size = New System.Drawing.Size(348, 29)
-        Me.CB_OverrideDub.TabIndex = 22
-        Me.CB_OverrideDub.Text = "override Dub language"
-        Me.CB_OverrideDub.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.CB_OverrideDub.UseCustomBackColor = True
-        Me.CB_OverrideDub.UseSelectable = True
+        Me.GroupBox23.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox23.Controls.Add(Me.CB_Mod1)
+        Me.GroupBox23.Font = New System.Drawing.Font("Arial", 9.75!)
+        Me.GroupBox23.ForeColor = System.Drawing.Color.Black
+        Me.GroupBox23.Location = New System.Drawing.Point(5, 350)
+        Me.GroupBox23.Name = "GroupBox23"
+        Me.GroupBox23.Size = New System.Drawing.Size(490, 60)
+        Me.GroupBox23.TabIndex = 51
+        Me.GroupBox23.TabStop = False
+        Me.GroupBox23.Text = "Subtitle Mods"
        '
-        'GroupBox22
+        'CB_Mod1
        '
-        Me.GroupBox22.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox22.Controls.Add(Me.CB_Cap)
-        Me.GroupBox22.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox22.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox22.Location = New System.Drawing.Point(3, 280)
-        Me.GroupBox22.Name = "GroupBox22"
-        Me.GroupBox22.Size = New System.Drawing.Size(490, 65)
-        Me.GroupBox22.TabIndex = 35
-        Me.GroupBox22.TabStop = False
-        Me.GroupBox22.Text = "CC"
-        '
-        'CB_Cap
-        '
-        Me.CB_Cap.AutoSize = True
-        Me.CB_Cap.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.CB_Cap.Location = New System.Drawing.Point(158, 23)
-        Me.CB_Cap.Name = "CB_Cap"
-        Me.CB_Cap.Size = New System.Drawing.Size(168, 19)
-        Me.CB_Cap.TabIndex = 5
-        Me.CB_Cap.Text = "use captions if available"
-        Me.CB_Cap.UseSelectable = True
+        Me.CB_Mod1.AutoSize = True
+        Me.CB_Mod1.FontSize = MetroFramework.MetroCheckBoxSize.Medium
+        Me.CB_Mod1.ForeColor = System.Drawing.Color.Black
+        Me.CB_Mod1.Location = New System.Drawing.Point(87, 25)
+        Me.CB_Mod1.Name = "CB_Mod1"
+        Me.CB_Mod1.Size = New System.Drawing.Size(305, 19)
+        Me.CB_Mod1.TabIndex = 5
+        Me.CB_Mod1.Text = "add 'ScaledBorderAndShadow:yes' to subtitles"
+        Me.ToolTip1.SetToolTip(Me.CB_Mod1, "adds the 'ScaledBorderAndShadow:yes' to the subtitles see more on https://github." &
+        "com/hama3254/Crunchyroll-Downloader-v3.0/issues/764")
+        Me.CB_Mod1.UseSelectable = True
        '
        'Einstellungen
        '
@ -1900,6 +1931,8 @@ Partial Class Einstellungen
        Me.GroupBox12.ResumeLayout(False)
        Me.GroupBox12.PerformLayout()
        Me.MetroTabPage1.ResumeLayout(False)
+        Me.GroupBox22.ResumeLayout(False)
+        Me.GroupBox22.PerformLayout()
        Me.GroupBox20.ResumeLayout(False)
        Me.GroupBox20.PerformLayout()
        Me.GroupBox19.ResumeLayout(False)
@ -1915,8 +1948,8 @@ Partial Class Einstellungen
        Me.GroupBox8.PerformLayout()
        Me.TabPage7.ResumeLayout(False)
        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.GroupBox22.ResumeLayout(False)
-        Me.GroupBox22.PerformLayout()
+        Me.GroupBox23.ResumeLayout(False)
+        Me.GroupBox23.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@ -2056,4 +2089,6 @@ Partial Class Einstellungen
    Friend WithEvents CB_OverrideDub As MetroFramework.Controls.MetroCheckBox
    Friend WithEvents GroupBox22 As GroupBox
    Friend WithEvents CB_Cap As MetroFramework.Controls.MetroCheckBox
+    Friend WithEvents GroupBox23 As GroupBox
+    Friend WithEvents CB_Mod1 As MetroFramework.Controls.MetroCheckBox
 End Class
--- a/Downloader/einstellungen.vb
+++ b/Downloader/einstellungen.vb
@ -17,7 +17,7 @@ Public Class Einstellungen
    Dim LastVersionString As String = "v3.8-Beta"

    Public CR_SoftSubsTemp As New List(Of String)
-
+    Dim TempCheckSubMod1 As Boolean = False

    Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load

@ -388,6 +388,7 @@ Public Class Einstellungen
        Main.IgnoreSeason = CB_Ignore.SelectedIndex
        My.Settings.IgnoreSeason = CB_Ignore.SelectedIndex

+        My.Settings.SubtitleMod1 = CB_Mod1.Checked

        If DubMode.Checked = True Then
            Main.DubMode = True
@ -1110,6 +1111,14 @@ Public Class Einstellungen
            TempTB.Enabled = False
        End If

+        If (CB_Merge.Text = "[merge disabled]") = False And DD_DLMode.Text = "Default - ffmpeg" Then
+            CB_Mod1.Enabled = False
+            CB_Mod1.Checked = False
+        Else
+            CB_Mod1.Enabled = True
+            CB_Mod1.Checked = TempCheckSubMod1
+        End If
+
    End Sub

    Private Sub TempTB_Click(sender As Object, e As EventArgs) Handles TempTB.Click
@ -1193,6 +1202,25 @@ Public Class Einstellungen
        Popup.Show()
    End Sub

+    Private Sub CB_Merge_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CB_Merge.SelectedIndexChanged
+
+        If (CB_Merge.Text = "[merge disabled]") = False And DD_DLMode.Text = "Default - ffmpeg" Then
+            CB_Mod1.Enabled = False
+            CB_Mod1.Checked = False
+        Else
+            CB_Mod1.Enabled = True
+            CB_Mod1.Checked = TempCheckSubMod1
+        End If
+
+    End Sub
+
+    Private Sub CB_Mod1_CheckedChanged(sender As Object, e As EventArgs) Handles CB_Mod1.CheckedChanged
+        If CB_Mod1.Enabled = True Then
+            TempCheckSubMod1 = CB_Mod1.Checked
+        End If
+
+    End Sub
+


    'Private Sub CB_CR_Audio_Click(sender As Object, e As EventArgs) Handles CB_CR_Audio.Click