Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-11-15 04:35:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

queue count display improved

Browse Source 
queue count display improved #477
This commit is contained in:
hama3254 2022-05-22 11:01:32 +02:00
parent 7188ebf2c5
commit 14edf6bfe4
5 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v17/.suo
View File

Binary file not shown.

10
Crunchyroll Downloader/Anime_Add.vb
View File

@ -749,9 +749,9 @@ Public Class Anime_Add
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles textBox2.Click Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
If textBox2.Text = "Use Custom Name" Then If TextBox2.Text = "Use Custom Name" Then
textBox2.Text = Nothing TextBox2.Text = Nothing
End If End If
End Sub End Sub
@ -859,8 +859,8 @@ Public Class Anime_Add
Private Sub GroupBox1_VisibleChanged(sender As Object, e As EventArgs) Handles groupBox1.VisibleChanged Private Sub GroupBox1_VisibleChanged(sender As Object, e As EventArgs) Handles groupBox1.VisibleChanged
If Not textBox2.Text = "Use Custom Name" Then If Not TextBox2.Text = "Use Custom Name" Then
textBox2.Text = "Use Custom Name" TextBox2.Text = "Use Custom Name"
End If End If
End Sub End Sub

4
Crunchyroll Downloader/Main.resx
View File

@ -196,7 +196,7 @@
<value>281, 17</value> <value>281, 17</value>
</metadata> </metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value> <value>375, 15</value>
</metadata> </metadata>
<metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>459, 17</value> <value>459, 17</value>
@ -538,7 +538,7 @@
<value>Check Token</value> <value>Check Token</value>
</data> </data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 92</value> <value>182, 70</value>
</data> </data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve"> <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value> <value>ContextMenuStrip1</value>

16
Crunchyroll Downloader/Main.vb
View File

@ -4791,7 +4791,7 @@ Public Class Main
End If End If
Next Next
Me.Invoke(New Action(Function() As Object Me.Invoke(New Action(Function() As Object
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue" + vbNewLine + "open the add window to continue" Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
Me.Invalidate() Me.Invalidate()
Return Nothing Return Nothing
End Function)) End Function))
@ -4837,7 +4837,7 @@ Public Class Main
End If End If
Next Next
Me.Invoke(New Action(Function() As Object Me.Invoke(New Action(Function() As Object
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue" + vbNewLine + "open the add window to continue" Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
Me.Invalidate() Me.Invalidate()
Return Nothing Return Nothing
End Function)) End Function))
@ -4938,7 +4938,7 @@ Public Class Main
ListBoxList.Add(WebbrowserURL) ListBoxList.Add(WebbrowserURL)
End If End If
Me.Invoke(New Action(Function() As Object Me.Invoke(New Action(Function() As Object
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue" Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue"
Me.Invalidate() Me.Invalidate()
Return Nothing Return Nothing
End Function)) End Function))
@ -5142,11 +5142,15 @@ Public Class Main
End Sub End Sub
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
If ListBoxList.Count > 0 Then
If CBool(InStr(Me.Text, "Crunchyroll Downloader")) Or CBool(InStr(Me.Text, " downloads in queue")) Then If Application.OpenForms().OfType(Of Anime_Add).Any = False Then
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue" If ListBoxList.Count > 0 Then
If CBool(InStr(Me.Text, "Crunchyroll Downloader")) Or CBool(InStr(Me.Text, " downloads in queue")) Then
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
End If
End If End If
End If End If
End Sub End Sub
Private Sub Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown

4
Crunchyroll Downloader/My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.7.1")> <Assembly: AssemblyVersion("3.8.7.2")>
<Assembly: AssemblyFileVersion("3.8.7.1")> <Assembly: AssemblyFileVersion("3.8.7.2")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>