Initial commit

SCrawler/DownloadedInfoForm.vb

@@ -0,0 +1,124 @@
+Imports System.ComponentModel
+Imports PersonalUtilities.Forms
+Imports SCrawler.API.Base
+Friend Class DownloadedInfoForm
+    Private MyView As FormsView
+    Private ReadOnly LParams As New ListAddParams(LAP.IgnoreICopier) With {.e = EDP.None}
+    Friend Enum ViewModes As Integer
+        Session = 0
+        All = 1
+    End Enum
+    Friend Property ViewMode As ViewModes
+        Get
+            Return IIf(MENU_VIEW_ALL.Checked, ViewModes.All, ViewModes.Session)
+        End Get
+        Set(ByVal SMode As ViewModes)
+            Settings.InfoViewMode.Value = CInt(SMode)
+        End Set
+    End Property
+    Private ReadOnly _TempUsersList As List(Of IUserData)
+    Friend Sub New()
+        InitializeComponent()
+        _TempUsersList = New List(Of IUserData)
+        If Settings.InfoViewMode.Value = CInt(ViewModes.All) Then
+            MENU_VIEW_SESSION.Checked = False
+            MENU_VIEW_ALL.Checked = True
+        Else
+            MENU_VIEW_SESSION.Checked = True
+            MENU_VIEW_ALL.Checked = False
+        End If
+        Settings.InfoViewMode.Value = ViewMode
+        RefillList()
+    End Sub
+    Private Sub DownloadedInfoForm_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            If MyView Is Nothing Then
+                MyView = New FormsView(Me)
+                MyView.ImportFromXML(Settings.Design)
+                MyView.SetMeSize()
+            End If
+            RefillList()
+        Catch ex As Exception
+        End Try
+    End Sub
+    Private Sub DownloadedInfoForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        e.Cancel = True
+        Hide()
+    End Sub
+    Private Sub DownloadedInfoForm_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+        If Not MyView Is Nothing Then MyView.Dispose(Settings.Design)
+        _TempUsersList.Clear()
+    End Sub
+    Private Sub DownloadedInfoForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+        If e.KeyCode = Keys.F5 Then RefillList() : e.Handled = True
+    End Sub
+    Private Class UsersDateOrder : Implements IComparer(Of IUserData)
+        Friend Function Compare(ByVal x As IUserData, ByVal y As IUserData) As Integer Implements IComparer(Of IUserData).Compare
+            Dim xv& = If(DirectCast(x, UserDataBase).LastUpdated.HasValue, DirectCast(x, UserDataBase).LastUpdated.Value.Ticks, 0)
+            Dim yv& = If(DirectCast(y, UserDataBase).LastUpdated.HasValue, DirectCast(y, UserDataBase).LastUpdated.Value.Ticks, 0)
+            Return xv.CompareTo(yv) * -1
+        End Function
+    End Class
+    Private Sub RefillList()
+        Try
+            _TempUsersList.Clear()
+            Dim lClear As Action = Sub() LIST_DOWN.Items.Clear()
+            If LIST_DOWN.InvokeRequired Then LIST_DOWN.Invoke(lClear) Else lClear.Invoke
+            If ViewMode = ViewModes.Session Then
+                _TempUsersList.ListAddList(Downloader.Downloaded, LParams)
+            Else
+                _TempUsersList.ListAddList(Settings.Users.SelectMany(Of IUserData) _
+                    (Function(u) If(u.IsCollection, DirectCast(u, API.UserDataBind).Collections, {u})), LParams)
+            End If
+            If _TempUsersList.Count > 0 Then
+                _TempUsersList.Sort(New UsersDateOrder)
+                For Each user As IUserData In _TempUsersList
+                    If LIST_DOWN.InvokeRequired Then
+                        LIST_DOWN.Invoke(Sub() LIST_DOWN.Items.Add(user.DownloadedInformation))
+                    Else
+                        LIST_DOWN.Items.Add(user.DownloadedInformation)
+                    End If
+                Next
+                If _LatestSelected >= 0 AndAlso _LatestSelected <= LIST_DOWN.Items.Count - 1 Then
+                    Dim aSel As Action = Sub() LIST_DOWN.SelectedIndex = _LatestSelected
+                    If LIST_DOWN.InvokeRequired Then LIST_DOWN.Invoke(aSel) Else aSel.Invoke
+                Else
+                    _LatestSelected = -1
+                End If
+            Else
+                _LatestSelected = -1
+            End If
+        Catch ex As Exception
+            ErrorsDescriber.Execute(EDP.SendInLog, ex, "[DownloadedInfoForm.RefillList]")
+        End Try
+    End Sub
+    Private Sub MENU_VIEW_SESSION_Click(sender As Object, e As EventArgs) Handles MENU_VIEW_SESSION.Click
+        MENU_VIEW_SESSION.Checked = True
+        MENU_VIEW_ALL.Checked = False
+        ViewMode = ViewModes.Session
+        RefillList()
+    End Sub
+    Private Sub MENU_VIEW_ALL_Click(sender As Object, e As EventArgs) Handles MENU_VIEW_ALL.Click
+        MENU_VIEW_SESSION.Checked = False
+        MENU_VIEW_ALL.Checked = True
+        ViewMode = ViewModes.All
+        RefillList()
+    End Sub
+    Private Sub BTT_REFRESH_Click(sender As Object, e As EventArgs) Handles BTT_REFRESH.Click
+        RefillList()
+    End Sub
+    Private _LatestSelected As Integer = -1
+    Private Sub LIST_DOWN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LIST_DOWN.SelectedIndexChanged
+        _LatestSelected = LIST_DOWN.SelectedIndex
+    End Sub
+    Private Sub LIST_DOWN_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles LIST_DOWN.MouseDoubleClick
+        Try
+            If _LatestSelected >= 0 AndAlso _LatestSelected <= _TempUsersList.Count - 1 AndAlso
+                Not DirectCast(_TempUsersList(_LatestSelected), UserDataBase).Disposed Then _TempUsersList(_LatestSelected).OpenFolder()
+        Catch ex As Exception
+        End Try
+    End Sub
+    Friend Sub Downloader_OnDownloadCountChange()
+        If ViewMode = ViewModes.Session Then RefillList()
+    End Sub
+End Class