mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 08:12:17 +00:00
e868c2e694
IPluginContentProvider: add 'ProgressPreChanged' and 'ProgressPreMaximumChanged' events YT.MediaItem: change folder opening on double click YT.VideoListForm: change the icon for the 'Download' button Add advanced progress Add user metrics calculation UserDataBase: fix GIF hash bug Instagram: heic to jpg Mastodon.SiteSettings: add the main domain to the list of domains with saving the settings Mastodon.UserData: handle 'Forbidden' error; fix bug in parsing non-user posts Pinterest: remove cookies requirement for saved posts PornHub: fix resolutions issue; add 'DownloadUHD' option Reddit: fix missing images bug; fix broken images bug; update container parsing function MainFrame: fix collection pointing bug
38 lines
1.4 KiB
VB.net
38 lines
1.4 KiB
VB.net
' Copyright (C) 2023 Andy https://github.com/AAndyProgram
|
|
' 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 PersonalUtilities.Forms.Toolbars
|
|
Namespace API.YouTube
|
|
Friend Class YTPreProgress : Inherits MyProgress
|
|
Private ReadOnly AssocProgress As PreProgress
|
|
Friend Sub New(ByRef ExtProgress As PreProgress)
|
|
AssocProgress = ExtProgress
|
|
End Sub
|
|
Public Overrides Property Maximum As Double
|
|
Get
|
|
Return _Maximum
|
|
End Get
|
|
Set(ByVal Max As Double)
|
|
_Maximum = Max
|
|
AssocProgress.ChangeMax(Max, False)
|
|
End Set
|
|
End Property
|
|
Public Overrides Sub Perform(Optional ByVal Value As Double = 1)
|
|
AssocProgress.Perform(Value)
|
|
End Sub
|
|
Public Overrides Sub Done()
|
|
AssocProgress.Done()
|
|
End Sub
|
|
Public Overrides Property Visible(Optional ByVal ProgressBar As Boolean = True, Optional ByVal Label As Boolean = True) As Boolean
|
|
Get
|
|
Return True
|
|
End Get
|
|
Set : End Set
|
|
End Property
|
|
End Class
|
|
End Namespace |