2024.3.31.0

Plugins
ISiteSettings: add 'CMDEncoding', 'EnvironmentPrograms' properties; add 'EnvironmentProgramsUpdated' function

SCrawler
GlobalSettingsForm: add the ability to find the program environment
SettingsCLS: update 'ProgramFile' class; add 'EnvironmentProgramsList' property and 'UpdateEnvironmentPrograms' function
Add the ability to display group users
Add 'GroupUsersViewer'

SCrawler/Download/Groups/GroupUsersViewer.vb

@@ -0,0 +1,56 @@
+' Copyright (C) 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 SCrawler.API.Base
+Imports PersonalUtilities.Forms
+Namespace DownloadObjects.Groups
+    Friend Class GroupUsersViewer : Inherits SimpleListForm(Of IUserData)
+        Friend Sub New(ByVal Users As IEnumerable(Of IUserData))
+            MyBase.New(Users, Settings.Design)
+            DesignXMLNodeName = "GroupUsersViewer"
+            Provider = New CustomProvider(Function(u As UserDataBase) u.ToStringForLog)
+            FormText = "Users"
+            Icon = My.Resources.UsersIcon_32
+            MyDefs.DelegateClosingChecker = False
+            Mode = SimpleListFormModes.SelectedItems
+            MultiSelect = False
+            Size = New Size(300, 400)
+        End Sub
+        Protected Overrides Sub MyForm_KeyDown(sender As Object, e As KeyEventArgs)
+            Try
+                If e.KeyCode = Keys.F And e.Control Then
+                    e.Handled = True
+                    FocusUser()
+                ElseIf e = ShowUsersButtonKey Then
+                    MsgBoxE(New MMessage(DataSourceCollection.ListToStringE(vbCr, Provider,,, EDP.LogMessageValue), "User list") With {.Editable = True})
+                End If
+            Catch
+            End Try
+        End Sub
+        Friend Overloads Shared Sub Show(ByVal Users As IEnumerable(Of IUserData))
+            If Users.ListExists Then
+                MainFrameObj.OpenedGroupUsersForms.Add(New GroupUsersViewer(Users))
+                MainFrameObj.OpenedGroupUsersForms.Last.Show()
+            Else
+                MsgBoxE({"No users were found based on the selected parameters", "Show group users"}, vbExclamation)
+            End If
+        End Sub
+        Protected Overrides Sub CMB_DATA_ActionOnListDoubleClick(ByVal Sender As Object, ByVal e As EventArgs, ByVal Item As ListViewItem)
+            FocusUser()
+        End Sub
+        Private Sub FocusUser()
+            Try
+                If _LatestSelected.ValueBetween(0, DataSourceCollection.Count - 1) Then MainFrameObj.FocusUser(DataSourceCollection(_LatestSelected).Key, True)
+            Catch
+            End Try
+        End Sub
+        Friend Overloads Sub Show()
+            MyForm.Show()
+        End Sub
+    End Class
+End Namespace