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.
218 lines
10 KiB
VB.net
218 lines
10 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 PersonalUtilities.Functions.XML.Base
|
|
Imports PersonalUtilities.Forms
|
|
Imports PersonalUtilities.Forms.Controls
|
|
Imports PersonalUtilities.Forms.Controls.Base
|
|
Imports ADB = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons
|
|
Imports SCrawler.Plugin.Attributes
|
|
Imports System.Reflection
|
|
Namespace Plugin.Hosts
|
|
Friend Class PropertyValueHost : Implements IPropertyValue, IComparable(Of PropertyValueHost)
|
|
Friend Const LeftOffsetDefault As Integer = 100
|
|
Friend Event OnPropertyUpdateRequested(ByVal Sender As PropertyValueHost)
|
|
Private Event ValueChanged As IPropertyValue.ValueChangedEventHandler Implements IPropertyValue.ValueChanged
|
|
Private _Type As Type
|
|
Friend Property [Type] As Type Implements IPropertyValue.Type
|
|
Get
|
|
Return If(ExternalValue?.Type, _Type)
|
|
End Get
|
|
Set(ByVal t As Type)
|
|
_Type = t
|
|
End Set
|
|
End Property
|
|
#Region "Control"
|
|
Friend Property Control As Control
|
|
Private ReadOnly ControlNumber As Integer = -1
|
|
Friend ReadOnly Property ControlHeight As Integer
|
|
Get
|
|
If Not Control Is Nothing Then
|
|
Return IIf(TypeOf Control Is CheckBox, 25, 28)
|
|
Else
|
|
Return 0
|
|
End If
|
|
End Get
|
|
End Property
|
|
Friend Sub CreateControl(Optional ByVal TT As ToolTip = Nothing)
|
|
With Options
|
|
If Type Is GetType(Boolean) Then
|
|
Control = New CheckBox
|
|
If Not .ControlToolTip.IsEmptyString And Not TT Is Nothing Then TT.SetToolTip(Control, .ControlToolTip)
|
|
DirectCast(Control, CheckBox).ThreeState = .ThreeStates
|
|
DirectCast(Control, CheckBox).Text = .ControlText
|
|
If .ThreeStates Then
|
|
DirectCast(Control, CheckBox).CheckState = CInt(AConvert(Of Integer)(Value, CInt(CheckState.Indeterminate)))
|
|
Else
|
|
DirectCast(Control, CheckBox).Checked = CBool(AConvert(Of Boolean)(Value, False))
|
|
End If
|
|
Control.Padding = New PaddingE(Control.Padding) With {.Left = LeftOffset}
|
|
Else
|
|
Control = New TextBoxExtended
|
|
With DirectCast(Control, TextBoxExtended)
|
|
.CaptionText = Options.ControlText
|
|
.CaptionToolTipEnabled = Not Options.ControlToolTip.IsEmptyString
|
|
.CaptionWidth = LeftOffset
|
|
If Not Options.ControlToolTip.IsEmptyString Then .CaptionToolTipText = Options.ControlToolTip : .CaptionToolTipEnabled = True
|
|
.Text = CStr(AConvert(Of String)(Value, String.Empty))
|
|
With .Buttons
|
|
.BeginInit()
|
|
If Not Source Is Nothing And Not UpdateMethod Is Nothing Then .Add(New ActionButton(ADB.Refresh))
|
|
.Add(ADB.Clear)
|
|
.EndInit(True)
|
|
End With
|
|
AddHandler .ActionOnButtonClick, AddressOf TextBoxClick
|
|
End With
|
|
End If
|
|
Control.Tag = Name
|
|
Control.Dock = DockStyle.Fill
|
|
End With
|
|
End Sub
|
|
Friend Sub DisposeControl()
|
|
If Not Control Is Nothing Then Control.Dispose() : Control = Nothing
|
|
End Sub
|
|
Private Sub TextBoxClick(ByVal Sender As ActionButton)
|
|
Try
|
|
If Sender.DefaultButton = ADB.Refresh AndAlso Not Source Is Nothing AndAlso Not UpdateMethod Is Nothing Then
|
|
If CBool(UpdateMethod.Invoke(Source, Nothing)) Then
|
|
RaiseEvent OnPropertyUpdateRequested(Me)
|
|
DirectCast(Control, TextBoxExtended).Text = CStr(AConvert(Of String)(Value, String.Empty))
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
ErrorsDescriber.Execute(EDP.LogMessageValue, ex, $"Updating [{Name}] property")
|
|
End Try
|
|
End Sub
|
|
Friend Sub UpdateValueByControl()
|
|
If Not Control Is Nothing Then
|
|
If TypeOf Control Is CheckBox Then
|
|
With DirectCast(Control, CheckBox)
|
|
If Options.ThreeStates Then Value = CInt(.CheckState) Else Value = .Checked
|
|
End With
|
|
Else
|
|
Value = AConvert(DirectCast(Control, TextBoxExtended).Text, AModes.Var, [Type],,,, ProviderValue)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Friend Function GetControlValue() As Object
|
|
If Not Control Is Nothing Then
|
|
If TypeOf Control Is CheckBox Then
|
|
With DirectCast(Control, CheckBox)
|
|
If Options.ThreeStates Then Return CInt(.CheckState) Else Return .Checked
|
|
End With
|
|
Else
|
|
Return AConvert(DirectCast(Control, TextBoxExtended).Text, AModes.Var, [Type],,,, ProviderValue)
|
|
End If
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
End Function
|
|
#End Region
|
|
#Region "Compatibility"
|
|
Private ReadOnly Source As Object
|
|
Friend ReadOnly Name As String
|
|
Private ReadOnly _XmlName As String
|
|
Friend ReadOnly Options As PropertyOption
|
|
Private _LeftOffset As Integer? = Nothing
|
|
Friend Property LeftOffset As Integer
|
|
Get
|
|
If _LeftOffset.HasValue Then
|
|
Return _LeftOffset
|
|
Else
|
|
Return If(Options?.LeftOffset, LeftOffsetDefault)
|
|
End If
|
|
End Get
|
|
Set(ByVal NewOffset As Integer)
|
|
_LeftOffset = NewOffset
|
|
End Set
|
|
End Property
|
|
#Region "Providers"
|
|
Friend Property ProviderFieldsChecker As IFormatProvider
|
|
Friend Property ProviderValue As IFormatProvider
|
|
Friend Sub SetProvider(ByVal Provider As IFormatProvider, ByVal FC As Boolean)
|
|
If FC Then ProviderFieldsChecker = Provider Else ProviderValue = Provider
|
|
End Sub
|
|
#End Region
|
|
Friend PropertiesChecking As String()
|
|
Friend PropertiesCheckingMethod As MethodInfo
|
|
Private UpdateMethod As MethodInfo
|
|
Private _UpdateDependencies As String() = Nothing
|
|
Friend ReadOnly Property UpdateDependencies As String()
|
|
Get
|
|
Return _UpdateDependencies
|
|
End Get
|
|
End Property
|
|
Friend Sub SetUpdateMethod(ByVal m As MethodInfo, ByVal Dependencies As String())
|
|
UpdateMethod = m
|
|
_UpdateDependencies = Dependencies
|
|
End Sub
|
|
Friend ReadOnly IsTaskCounter As Boolean
|
|
#End Region
|
|
Friend ReadOnly Exists As Boolean = False
|
|
#Region "Initializer"
|
|
Friend Sub New(ByRef PropertySource As Object, ByVal Member As MemberInfo)
|
|
Source = PropertySource
|
|
Name = Member.Name
|
|
|
|
ControlNumber = If(Member.GetCustomAttribute(Of ControlNumber)()?.PropertyNumber, -1)
|
|
|
|
If DirectCast(Member, PropertyInfo).PropertyType Is GetType(PropertyValue) Then
|
|
ExternalValue = DirectCast(DirectCast(Member, PropertyInfo).GetValue(Source), PropertyValue)
|
|
_Value = ExternalValue.Value
|
|
AddHandler ExternalValue.ValueChanged, AddressOf ExternalValueChanged
|
|
Options = Member.GetCustomAttribute(Of PropertyOption)()
|
|
IsTaskCounter = Not Member.GetCustomAttribute(Of TaskCounter)() Is Nothing
|
|
_XmlName = If(Member.GetCustomAttribute(Of PXML)()?.ElementName, String.Empty)
|
|
If Not _XmlName.IsEmptyString Then XValue = XMLValueBase.CreateInstance([Type])
|
|
Exists = True
|
|
End If
|
|
End Sub
|
|
Friend Sub SetXmlEnvironment(ByRef Container As Object, Optional ByVal _Nodes() As String = Nothing,
|
|
Optional ByVal FormatProvider As IFormatProvider = Nothing)
|
|
If Not _XmlName.IsEmptyString And Not XValue Is Nothing Then
|
|
XValue.SetEnvironment(_XmlName, _Value, Container, _Nodes, If(ProviderValue, FormatProvider))
|
|
Value(False) = XValue.Value
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
#Region "Value"
|
|
Private ReadOnly Property ExternalValue As PropertyValue
|
|
Friend ReadOnly Property XValue As IXMLValue
|
|
Private _Value As Object
|
|
Friend Overloads Property Value As Object Implements IPropertyValue.Value
|
|
Get
|
|
Return _Value
|
|
End Get
|
|
Set(ByVal NewValue As Object)
|
|
Value(True) = NewValue
|
|
End Set
|
|
End Property
|
|
Private Overloads WriteOnly Property Value(ByVal UpdateXML As Boolean) As Object
|
|
Set(ByVal NewValue As Object)
|
|
_Value = NewValue
|
|
If Not ExternalValue Is Nothing And Not _ExternalInvoked Then ExternalValue.Value = _Value
|
|
If UpdateXML And Not XValue Is Nothing Then XValue.Value = NewValue
|
|
RaiseEvent ValueChanged(_Value)
|
|
End Set
|
|
End Property
|
|
Private _ExternalInvoked As Boolean = False
|
|
Private Sub ExternalValueChanged(ByVal NewValue As Object)
|
|
If Not _ExternalInvoked Then
|
|
_ExternalInvoked = True
|
|
Value = NewValue
|
|
_ExternalInvoked = False
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
#Region "IComparable Support"
|
|
Private Function CompareTo(ByVal Other As PropertyValueHost) As Integer Implements IComparable(Of PropertyValueHost).CompareTo
|
|
Return ControlNumber.CompareTo(Other.ControlNumber)
|
|
End Function
|
|
#End Region
|
|
End Class
|
|
End Namespace |