mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
dd7f071e1a
Added DownloadLimitDate, update and Reset functions in the plugin, DateLimit property in the IPluginContentProvider Fixed donation button link, images loading error, cookies error, instagram settings form, minor bugs.
77 lines
3.5 KiB
VB.net
77 lines
3.5 KiB
VB.net
' Copyright (C) 2022 Andy
|
|
' This program is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU General Public License as published by
|
|
' the Free Software Foundation, either version 3 of the License, or
|
|
' (at your option) any later version.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY
|
|
Imports System.ComponentModel
|
|
Imports PersonalUtilities.Forms
|
|
Namespace DownloadObjects
|
|
Friend Class ActiveDownloadingProgress
|
|
Private Const MinWidth As Integer = 450
|
|
Private MyView As FormsView
|
|
Friend Property Opened As Boolean = False
|
|
Private ReadOnly JobsList As List(Of DownloadProgress)
|
|
Friend Property DisableProgressChange As Boolean = False
|
|
Friend Sub New()
|
|
InitializeComponent()
|
|
JobsList = New List(Of DownloadProgress)
|
|
AddHandler Downloader.OnReconfigured, AddressOf Downloader_OnReconfigured
|
|
Downloader_OnReconfigured()
|
|
End Sub
|
|
Private Sub ActiveDownloadingProgress_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
MyView = New FormsView(Me)
|
|
MyView.ImportFromXML(Settings.Design)
|
|
MyView.SetMeSize()
|
|
Opened = True
|
|
End Sub
|
|
Private Sub ActiveDownloadingProgress_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
MyView.ExportToXML(Settings.Design)
|
|
e.Cancel = True
|
|
Hide()
|
|
End Sub
|
|
Private Sub Downloader_OnReconfigured()
|
|
Const RowHeight% = 30
|
|
With TP_MAIN
|
|
If .Controls.Count > 0 Then
|
|
For Each c As Control In .Controls
|
|
If Not c Is Nothing Then c.Dispose()
|
|
Next
|
|
.Controls.Clear()
|
|
End If
|
|
.RowStyles.Clear()
|
|
.RowCount = 0
|
|
End With
|
|
JobsList.ListClearDispose
|
|
With Downloader
|
|
If .Pool.Count > 0 Then
|
|
For Each j As TDownloader.Job In .Pool
|
|
With TP_MAIN
|
|
.RowStyles.Add(New RowStyle(SizeType.Absolute, RowHeight))
|
|
.RowCount += 1
|
|
JobsList.Add(New DownloadProgress(j))
|
|
AddHandler JobsList.Last.OnTotalCountChange, AddressOf Jobs_OnTotalCountChange
|
|
.Controls.Add(JobsList.Last.Get, 0, .RowStyles.Count - 1)
|
|
End With
|
|
Next
|
|
TP_MAIN.RowStyles.Add(New RowStyle(SizeType.Percent, 100))
|
|
TP_MAIN.RowCount += 1
|
|
End If
|
|
Dim s As Size = Size
|
|
s.Height = TP_MAIN.RowStyles.Count * RowHeight + PaddingE.GetOf({TP_MAIN}).Vertical(TP_MAIN.RowStyles.Count) - TP_MAIN.RowStyles.Count * 2
|
|
MinimumSize = New Size(MinWidth, s.Height)
|
|
Size = s
|
|
End With
|
|
TP_MAIN.Refresh()
|
|
End Sub
|
|
Private Sub Jobs_OnTotalCountChange()
|
|
If JobsList.Count > 0 And Not DisableProgressChange Then
|
|
MainProgress.TotalCount = JobsList.Sum(Function(j) CLng(j.Job.Progress.TotalCount))
|
|
MainProgress.CurrentCounter = Math.Max(JobsList.Sum(Function(j) CLng(j.Job.Progress.CurrentCounter)) - 1, 0)
|
|
If MainProgress.CurrentCounter > 0 Then MainProgress.Perform()
|
|
End If
|
|
End Sub
|
|
End Class
|
|
End Namespace |