mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
54ffe10f71
Cleaned up the code Replace some old functions with new ones Adapted to the new library environment Enable/Disable display user/downloaded image Autodownloader option 'Show notification' not saved Separate thread for standalone video downloader Expanded the description of some errors with additional information Fixed date/time renaming issue Fixed internal library bugs Fixed minor bugs
78 lines
4.0 KiB
VB.net
78 lines
4.0 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.Forms
|
|
Namespace DownloadObjects.Groups
|
|
Friend Class GroupEditorForm
|
|
Private WithEvents MyDefs As DefaultFormOptions
|
|
Friend Property MyGroup As DownloadGroup
|
|
Friend Sub New(ByRef g As DownloadGroup)
|
|
InitializeComponent()
|
|
MyGroup = g
|
|
MyDefs = New DefaultFormOptions(Me, Settings.Design)
|
|
End Sub
|
|
Friend Class NameChecker : Implements IFieldsCheckerProvider
|
|
Private Property ErrorMessage As String Implements IFieldsCheckerProvider.ErrorMessage
|
|
Private Property Name As String Implements IFieldsCheckerProvider.Name
|
|
Private Property TypeError As Boolean Implements IFieldsCheckerProvider.TypeError
|
|
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
|
|
Private 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 Implements ICustomProvider.Convert
|
|
If Not ACheck(Value) Then
|
|
ErrorMessage = $"{ParamName} name cannot be empty"
|
|
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"
|
|
Else
|
|
Return Value
|
|
End If
|
|
Return Nothing
|
|
End Function
|
|
Private Function GetFormat(ByVal FormatType As Type) As Object Implements IFormatProvider.GetFormat
|
|
Throw New NotImplementedException("GetFormat is not available in this context")
|
|
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
|
|
Else
|
|
Text = "New Group"
|
|
End If
|
|
.MyFieldsChecker = New FieldsChecker
|
|
.MyFieldsCheckerE.AddControl(Of String)(DEFS_GROUP.TXT_NAME, DEFS_GROUP.TXT_NAME.CaptionText,,
|
|
New NameChecker(If(MyGroup?.Name, String.Empty), Settings.Groups, "Group"))
|
|
.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 |