mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
1b1226025a
Add JFF Update groups Add advanced filter Add advanced download Disable 'ShowInTaskbar' on several forms API.Base.M3U8: add external cache support API.Base.UserDataBase: update token names Feed.FeedMedia: add clone icon UserCreatorForm: fix bug collection labels not showing MainFrame: update 'DownloadSiteFull' function UserSearchForm: move focus to textbox on form is open
91 lines
4.2 KiB
VB.net
91 lines
4.2 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
|
|
Namespace DownloadObjects.Groups
|
|
Friend Class GroupEditorForm
|
|
Private WithEvents MyDefs As DefaultFormOptions
|
|
Friend Property MyGroup As DownloadGroup
|
|
Friend Property DownloadMode As Boolean = False
|
|
Friend Property FilterMode As Boolean = False
|
|
Friend Sub New(ByRef g As DownloadGroup)
|
|
InitializeComponent()
|
|
MyGroup = g
|
|
MyDefs = New DefaultFormOptions(Me, Settings.Design)
|
|
End Sub
|
|
Friend Class NameChecker : Inherits FieldsCheckerProviderBase
|
|
Private ReadOnly ExistingGroupName As String
|
|
Private ReadOnly Property Source As IEnumerable(Of IGroup)
|
|
Private ReadOnly ParamName As String
|
|
Friend Sub New(ByVal _ExistingGroupName As String, ByRef _Source As IEnumerable(Of IGroup), ByVal Param As String)
|
|
ExistingGroupName = _ExistingGroupName
|
|
Source = _Source
|
|
ParamName = Param
|
|
End Sub
|
|
Public Overrides Function Convert(ByVal Value As Object, ByVal DestinationType As Type, ByVal Provider As IFormatProvider,
|
|
Optional ByVal NothingArg As Object = Nothing, Optional ByVal e As ErrorsDescriber = Nothing) As Object
|
|
If Not ACheck(Value) Then
|
|
ErrorMessage = $"{ParamName} name cannot be empty"
|
|
HasError = True
|
|
ElseIf Not ExistingGroupName.IsEmptyString AndAlso CStr(Value) = ExistingGroupName Then
|
|
Return Value
|
|
ElseIf Source.Count > 0 AndAlso Source.LongCount(Function(g) g.Name = CStr(Value)) > 0 Then
|
|
ErrorMessage = $"A {ParamName.ToLower} with the same name already exists"
|
|
HasError = True
|
|
Else
|
|
Return Value
|
|
End If
|
|
Return Nothing
|
|
End Function
|
|
End Class
|
|
Private Sub GroupEditorForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
With MyDefs
|
|
.MyViewInitialize(True)
|
|
.AddOkCancelToolbar()
|
|
If Not MyGroup Is Nothing Then
|
|
With MyGroup
|
|
DEFS_GROUP.Set(MyGroup)
|
|
Text &= $" { .Name}"
|
|
End With
|
|
ElseIf DownloadMode Then
|
|
Text = "Download options"
|
|
ElseIf FilterMode Then
|
|
Text = "Filter options"
|
|
Else
|
|
Text = "New Group"
|
|
End If
|
|
.MyFieldsChecker = New FieldsChecker
|
|
If DownloadMode Or FilterMode Then
|
|
DEFS_GROUP.HideName()
|
|
Dim s As Size = Size
|
|
s.Height -= 31
|
|
MaximumSize = Nothing
|
|
MinimumSize = Nothing
|
|
Size = s
|
|
MinimumSize = s
|
|
MaximumSize = s
|
|
Else
|
|
.MyFieldsCheckerE.AddControl(Of String)(DEFS_GROUP.TXT_NAME, DEFS_GROUP.TXT_NAME.CaptionText,,
|
|
New NameChecker(If(MyGroup?.Name, String.Empty), Settings.Groups, "Group"))
|
|
End If
|
|
.MyFieldsChecker.EndLoaderOperations()
|
|
.EndLoaderOperations()
|
|
End With
|
|
End Sub
|
|
Private Sub MyDefs_ButtonOkClick(ByVal Sender As Object, ByVal e As KeyHandleEventArgs) Handles MyDefs.ButtonOkClick
|
|
If MyDefs.MyFieldsChecker.AllParamsOK Then
|
|
If MyGroup Is Nothing Then MyGroup = New DownloadGroup
|
|
With MyGroup
|
|
.NameBefore = .Name
|
|
DEFS_GROUP.Get(MyGroup)
|
|
End With
|
|
MyDefs.CloseForm()
|
|
End If
|
|
End Sub
|
|
End Class
|
|
End Namespace |