small fixes

fix ui #754
fix name processing #760
This commit is contained in:
hama3254 2023-06-09 16:15:24 +02:00
parent ef75816810
commit 5102d2d3b6
5 changed files with 11 additions and 11 deletions

Binary file not shown.

View File

@ -34,7 +34,7 @@ Partial Class CheckBoxComboBox
' '
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
Me.ClientSize = New System.Drawing.Size(320, 302) Me.ClientSize = New System.Drawing.Size(320, 327)
Me.ControlBox = False Me.ControlBox = False
Me.DisplayHeader = False Me.DisplayHeader = False
Me.MaximizeBox = False Me.MaximizeBox = False

View File

@ -145,19 +145,19 @@ Public Class CheckBoxComboBox
Private Sub Animation_Tick(sender As Object, e As EventArgs) Handles Animation.Tick Private Sub Animation_Tick(sender As Object, e As EventArgs) Handles Animation.Tick
If Me.Text = "CR Dub selection" Then If Me.Text = "CR Dub selection" Then
If Me.Height < 300 Then If Me.Height < 330 Then
Me.Height = Me.Height + 30 Me.Height = Me.Height + 30
Else Else
Me.Height = 300 Me.Height = 330
Animation.Enabled = False Animation.Enabled = False
End If End If
ElseIf Me.Text = "CR Sub selection" Then ElseIf Me.Text = "CR Sub selection" Then
If Me.Height < 270 Then If Me.Height < 300 Then
Me.Height = Me.Height + 30 Me.Height = Me.Height + 30
Else Else
Me.Height = 270 Me.Height = 300
Animation.Enabled = False Animation.Enabled = False
End If End If

View File

@ -1351,6 +1351,11 @@ Public Class Main
If TextBox2_Text = Nothing Or TextBox2_Text = "Use Custom Name" Or CBool(InStr(TextBox2_Text, "++")) = True Then If TextBox2_Text = Nothing Or TextBox2_Text = "Use Custom Name" Or CBool(InStr(TextBox2_Text, "++")) = True Then
If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then
CR_season_number = Nothing
ElseIf IgnoreSeason = 2 Then
CR_season_number = Nothing
End If
If Season_Prefix = "[default season prefix]" Then If Season_Prefix = "[default season prefix]" Then
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
@ -1370,11 +1375,6 @@ Public Class Main
CR_FolderSeason = CR_season_number CR_FolderSeason = CR_season_number
If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then
CR_season_number = Nothing
ElseIf IgnoreSeason = 2 Then
CR_season_number = Nothing
End If
If Episode_Prefix = "[default episode prefix]" Then If Episode_Prefix = "[default episode prefix]" Then

View File

@ -200,7 +200,7 @@ Public Class Einstellungen
CB_CR_Harsubs.Items.Clear() CB_CR_Harsubs.Items.Clear()
For i As Integer = 0 To Main.LangValueEnum.Count - 1 For i As Integer = 0 To Main.LangValueEnum.Count - 2
CB_CR_Harsubs.Items.Add(Main.LangValueEnum(i).Name) CB_CR_Harsubs.Items.Add(Main.LangValueEnum(i).Name)
If Main.LangValueEnum(i).CR_Value = Main.SubSprache.CR_Value Then If Main.LangValueEnum(i).CR_Value = Main.SubSprache.CR_Value Then
'MsgBox(CB_CR_Harsubs.Items.Count.ToString) 'MsgBox(CB_CR_Harsubs.Items.Count.ToString)