display fixes

fix display issue resolution #478
fix stuck display of queued episodes #477
This commit is contained in:
hama3254 2022-05-15 11:10:41 +02:00
parent f2442adfcd
commit 5d8c382ef2
12 changed files with 21 additions and 1034 deletions

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

View File

@ -636,7 +636,15 @@ Public Class Anime_Add
StatusLabel.Cursor = Cursors.Hand
StatusLabel.Text = "Status: items in queue, click me to work off."
End If
If CBool(InStr(Main.Text, "Crunchyroll Downloader")) Or CBool(InStr(Main.Text, " downloads in queue")) Then
Main.Text = "Status: " + ListBox1.Items.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
End If
Else
If CBool(InStr(Main.Text, " downloads in queue")) Then
Main.Text = "Crunchyroll Downloader"
End If
StatusLabel.Cursor = Cursors.Default
End If
End Sub

View File

@ -94,7 +94,7 @@ Public Class CefSharp_Browser
Private Sub GeckoFX_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AddHandler RequestResource.GetUrl, AddressOf ObserveHttp
WebBrowser1.RequestHandler = New CEFRequestHandler()
WebBrowser1.RequestHandler = New RequestEventHandler()
Main.waveOutSetVolume(0, 0)
If Me.Width > My.Computer.Screen.Bounds.Width Then
Me.Width = My.Computer.Screen.Bounds.Width

View File

@ -105,10 +105,6 @@
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
</PropertyGroup>
<ItemGroup>
<Reference Include="CEFRequestHandler, Version=1.0.0.0, Culture=neutral, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\CEFRequestHandler\CEFRequestHandler\bin\x64\Debug\CEFRequestHandler.dll</HintPath>
</Reference>
<Reference Include="CefSharp, Version=101.0.150.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
<HintPath>..\packages\CefSharp.Common.101.0.150\lib\net452\CefSharp.dll</HintPath>
</Reference>
@ -125,6 +121,9 @@
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="RequestHandler">
<HintPath>..\..\RequestHandler\RequestHandler\bin\x64\Debug\RequestHandler.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />

View File

@ -1581,6 +1581,7 @@ Public Class Main
Anime_Add.StatusLabel.Text = "Status: idle"
Me.Text = "Crunchyroll Downloader"
Me.Invalidate()
ResoBackString = Nothing
Return Nothing
End Function))
Catch ex As Exception
@ -2190,6 +2191,7 @@ Public Class Main
Me.Invoke(New Action(Function() As Object
Anime_Add.StatusLabel.Text = "Status: idle"
Me.Text = "Crunchyroll Downloader"
ResoBackString = Nothing
Me.Invalidate()
Return Nothing
End Function))
@ -2197,6 +2199,7 @@ Public Class Main
Me.Invoke(New Action(Function() As Object
Anime_Add.StatusLabel.Text = "Status: idle"
Me.Text = "Crunchyroll Downloader"
ResoBackString = Nothing
Me.Invalidate()
Return Nothing
End Function))
@ -4224,6 +4227,7 @@ Public Class Main
Me.Invoke(New Action(Function() As Object
Me.Text = "Crunchyroll Downloader"
Anime_Add.StatusLabel.Text = "idle"
ResoBackString = Nothing
Me.Invalidate()
Return Nothing
End Function))
@ -4231,6 +4235,7 @@ Public Class Main
Me.Invoke(New Action(Function() As Object
Me.Text = "Crunchyroll Downloader!"
Anime_Add.StatusLabel.Text = "idle"
ResoBackString = Nothing
Me.Invalidate()
Return Nothing
End Function))
@ -5124,8 +5129,8 @@ Public Class Main
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")) Then
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue" + vbNewLine + "open the add window to continue"
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 Sub

View File

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