mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-16 00:32:18 +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
84 lines
4.1 KiB
VB.net
84 lines
4.1 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
|
|
Imports CView = SCrawler.API.Reddit.IRedditView.View
|
|
Imports CPeriod = SCrawler.API.Reddit.IRedditView.Period
|
|
Namespace API.Reddit
|
|
Friend Class RedditViewSettingsForm
|
|
Private WithEvents MyDefs As DefaultFormOptions
|
|
Private ReadOnly Property MyOptions As IRedditView
|
|
Friend Sub New(ByRef opt As IRedditView)
|
|
InitializeComponent()
|
|
MyOptions = opt
|
|
MyDefs = New DefaultFormOptions(Me, Settings.Design)
|
|
End Sub
|
|
Private Sub ChannelSettingsForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Try
|
|
Dim n$ = String.Empty
|
|
If TypeOf MyOptions Is Channel Then
|
|
n = $"Channel [{DirectCast(MyOptions, Channel).Name}]"
|
|
ElseIf TypeOf MyOptions Is Base.IUserData Then
|
|
n = $"User [{DirectCast(MyOptions, Base.IUserData).Name}]"
|
|
End If
|
|
If Not n.IsEmptyString Then Text = n
|
|
With MyDefs
|
|
.MyViewInitialize(True)
|
|
.AddOkCancelToolbar()
|
|
Select Case MyOptions.ViewMode
|
|
Case CView.Hot : OPT_VIEW_MODE_HOT.Checked = True
|
|
Case CView.Top : OPT_VIEW_MODE_TOP.Checked = True
|
|
Case Else : OPT_VIEW_MODE_NEW.Checked = True
|
|
End Select
|
|
Select Case MyOptions.ViewPeriod
|
|
Case CPeriod.Hour : OPT_PERIOD_HOUR.Checked = True
|
|
Case CPeriod.Day : OPT_PERIOD_DAY.Checked = True
|
|
Case CPeriod.Week : OPT_PERIOD_WEEK.Checked = True
|
|
Case CPeriod.Month : OPT_PERIOD_MONTH.Checked = True
|
|
Case CPeriod.Year : OPT_PERIOD_YEAR.Checked = True
|
|
Case Else : OPT_PERIOD_ALL.Checked = True
|
|
End Select
|
|
ChangePeriodEnabled()
|
|
.EndLoaderOperations()
|
|
End With
|
|
Catch ex As Exception
|
|
MyDefs.InvokeLoaderError(ex)
|
|
End Try
|
|
End Sub
|
|
Private Sub MyDefs_ButtonOkClick(ByVal Sender As Object, ByVal e As KeyHandleEventArgs) Handles MyDefs.ButtonOkClick
|
|
With MyOptions
|
|
Select Case True
|
|
Case OPT_VIEW_MODE_HOT.Checked : .ViewMode = CView.Hot
|
|
Case OPT_VIEW_MODE_TOP.Checked : .ViewMode = CView.Top
|
|
Case Else : .ViewMode = CView.New
|
|
End Select
|
|
Select Case True
|
|
Case OPT_PERIOD_HOUR.Checked : .ViewPeriod = CPeriod.Hour
|
|
Case OPT_PERIOD_DAY.Checked : .ViewPeriod = CPeriod.Day
|
|
Case OPT_PERIOD_WEEK.Checked : .ViewPeriod = CPeriod.Week
|
|
Case OPT_PERIOD_MONTH.Checked : .ViewPeriod = CPeriod.Month
|
|
Case OPT_PERIOD_YEAR.Checked : .ViewPeriod = CPeriod.Year
|
|
Case Else : .ViewPeriod = CPeriod.All
|
|
End Select
|
|
End With
|
|
MyDefs.CloseForm()
|
|
End Sub
|
|
Private Sub OPT_VIEW_MODE_NEW_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIEW_MODE_NEW.CheckedChanged
|
|
ChangePeriodEnabled()
|
|
End Sub
|
|
Private Sub OPT_VIEW_MODE_HOT_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIEW_MODE_HOT.CheckedChanged
|
|
ChangePeriodEnabled()
|
|
End Sub
|
|
Private Sub OPT_VIEW_MODE_TOP_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIEW_MODE_TOP.CheckedChanged
|
|
ChangePeriodEnabled()
|
|
End Sub
|
|
Private Sub ChangePeriodEnabled()
|
|
TP_PERIOD.Enabled = OPT_VIEW_MODE_TOP.Checked
|
|
End Sub
|
|
End Class
|
|
End Namespace |