2024.6.13.0

Remove compatibility of settings of older versions
This commit is contained in:
Andy
2024-06-13 12:16:38 +03:00
parent aef4ce1c8f
commit 744698c99e
5 changed files with 9 additions and 222 deletions

View File

@@ -379,10 +379,7 @@ Namespace DownloadObjects
Friend Sub New(ByVal x As EContainer)
Me.New
Initialization = True
'URGENT: replace this line
Dim m% = x.Value(Name_Mode).FromXML(Of Integer)(Modes.None)
If m = 1 Or m = 2 Then m = Modes.Specified
Mode = m
Mode = x.Value(Name_Mode).FromXML(Of Integer)(Modes.None)
Import(x)
If Name.IsEmptyString Then Name = "Default"
Groups.ListAddList(x.Value(Name_Groups).StringToList(Of String)("|"), LAP.NotContainsOnly)