mirror of
https://github.com/bellingcat/reddit-post-scraping-tool.git
synced 2026-06-10 20:48:29 +03:00
Add files via upload
Added dark mode to the About box
This commit is contained in:
Richard Mwewa
@@ -1,16 +1,22 @@
|
||||
Imports Newtonsoft.Json
|
||||
Imports Newtonsoft.Json.Linq
|
||||
Imports System.IO
|
||||
Imports System.Runtime
|
||||
Imports System.IO
|
||||
Imports System.Text.Json
|
||||
Imports Newtonsoft.Json.Linq
|
||||
|
||||
|
||||
Public Class SettingsManager
|
||||
|
||||
''' <summary>
|
||||
''' Represents the Dark Mode property.
|
||||
''' Indicates whether the dark mode is enabled or disabled.
|
||||
''' </summary>
|
||||
Public Property DarkMode As Boolean
|
||||
|
||||
Private ReadOnly settingsFilePath As String = Path.Combine(Environment.CurrentDirectory, "settings.json")
|
||||
|
||||
|
||||
' Load settings from the 'settings.json' file
|
||||
''' <summary>
|
||||
''' Loads application settings from the 'settings.json' file.
|
||||
''' If the settings file doesn't exist, it creates a new file with default settings.
|
||||
''' </summary>
|
||||
Public Sub LoadSettings()
|
||||
' Check if the settings.json file exists
|
||||
' and load the configurations from it
|
||||
@@ -33,7 +39,10 @@ Public Class SettingsManager
|
||||
End Sub
|
||||
|
||||
|
||||
' Toggle Dark mode
|
||||
''' <summary>
|
||||
''' Toggles the Dark Mode setting on or off based on the provided parameter.
|
||||
''' </summary>
|
||||
''' <param name="enabled">A Boolean indicating if Dark Mode should be enabled or not.</param>
|
||||
Public Sub ToggleDarkMode(enabled As Boolean)
|
||||
Dim json As String = File.ReadAllText(settingsFilePath)
|
||||
Dim options As New JsonSerializerOptions With {.PropertyNameCaseInsensitive = True}
|
||||
@@ -43,69 +52,99 @@ Public Class SettingsManager
|
||||
ApplyTheme()
|
||||
End Sub
|
||||
|
||||
|
||||
' Save current settings to settings.json
|
||||
''' <summary>
|
||||
''' Saves the provided settings to the 'settings.json' file.
|
||||
''' </summary>
|
||||
''' <param name="settings">An instance of the SettingsManager containing the configurations to be saved.</param>
|
||||
Private Sub SaveSettings(settings)
|
||||
Dim jsonOutput = Text.Json.JsonSerializer.Serialize(settings)
|
||||
File.WriteAllText(settingsFilePath, jsonOutput)
|
||||
End Sub
|
||||
|
||||
|
||||
' Apply theme
|
||||
''' <summary>
|
||||
''' Applies the visual theme based on the Dark Mode setting.
|
||||
''' If Dark Mode is enabled, a dark theme is applied. If it's disabled, a light theme is set.
|
||||
''' </summary>
|
||||
Public Sub ApplyTheme()
|
||||
Dim DarkMode As Boolean = GetDarkMode()
|
||||
If DarkMode Then
|
||||
' Enable dark mode for the Main form
|
||||
StartForm.BackColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.ToolsToolStripMenuTools.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.KeywordTextBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
StartForm.KeywordTextBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.KeywordTextBox.ForeColor = SystemColors.Control
|
||||
StartForm.SubredditTextBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
StartForm.SubredditTextBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.SubredditTextBox.ForeColor = SystemColors.Control
|
||||
StartForm.LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
StartForm.LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.LimitNumericUpDown.ForeColor = SystemColors.Control
|
||||
StartForm.LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
StartForm.LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.LimitNumericUpDown.ForeColor = SystemColors.Control
|
||||
StartForm.ListingComboBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
StartForm.ListingComboBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.ListingComboBox.ForeColor = SystemColors.Control
|
||||
StartForm.TimeframeComboBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
StartForm.TimeframeComboBox.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.Label1.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.Label2.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.Label3.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.Label4.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.Label5.ForeColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.TimeframeComboBox.ForeColor = SystemColors.Control
|
||||
StartForm.LabelKeyword.ForeColor = SystemColors.Control
|
||||
StartForm.LabelSubreddit.ForeColor = SystemColors.Control
|
||||
StartForm.LabelLimit.ForeColor = SystemColors.Control
|
||||
StartForm.LabelListing.ForeColor = SystemColors.Control
|
||||
StartForm.LabelTimeframe.ForeColor = SystemColors.Control
|
||||
|
||||
' Enable dark mode for the About box
|
||||
AboutBox.BackColor = ColorTranslator.FromHtml("#FF121212")
|
||||
AboutBox.ForeColor = SystemColors.Control
|
||||
AboutBox.LicenseRichTextBox.BackColor = ColorTranslator.FromHtml("#FF2E2E2E")
|
||||
AboutBox.LicenseRichTextBox.ForeColor = SystemColors.Control
|
||||
AboutBox.Panel1.BackColor = ColorTranslator.FromHtml("#FF121212")
|
||||
AboutBox.LabelProgramName.ForeColor = SystemColors.Control
|
||||
AboutBox.LabelProgramDescription.ForeColor = SystemColors.Control
|
||||
AboutBox.LabelVersion.ForeColor = SystemColors.Control
|
||||
Else
|
||||
StartForm.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.BackColor = SystemColors.Control
|
||||
StartForm.ToolsToolStripMenuTools.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.KeywordTextBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.KeywordTextBox.BackColor = SystemColors.Control
|
||||
StartForm.KeywordTextBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.SubredditTextBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.SubredditTextBox.BackColor = SystemColors.Control
|
||||
StartForm.SubredditTextBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.LimitNumericUpDown.BackColor = SystemColors.Control
|
||||
StartForm.LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LimitNumericUpDown.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.LimitNumericUpDown.BackColor = SystemColors.Control
|
||||
StartForm.LimitNumericUpDown.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.ListingComboBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.ListingComboBox.BackColor = SystemColors.Control
|
||||
StartForm.ListingComboBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.TimeframeComboBox.BackColor = ColorTranslator.FromHtml("#FFFFFFFF")
|
||||
StartForm.TimeframeComboBox.BackColor = SystemColors.Control
|
||||
StartForm.TimeframeComboBox.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.Label1.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.Label2.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.Label3.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.Label4.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.Label5.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LabelKeyword.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LabelSubreddit.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LabelLimit.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LabelListing.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
StartForm.LabelTimeframe.ForeColor = ColorTranslator.FromHtml("#FF121212")
|
||||
|
||||
' Disable dark mode for the About box
|
||||
AboutBox.BackColor = Color.Gainsboro
|
||||
AboutBox.ForeColor = SystemColors.WindowText
|
||||
AboutBox.LicenseRichTextBox.BackColor = SystemColors.Control
|
||||
AboutBox.LicenseRichTextBox.ForeColor = SystemColors.WindowText
|
||||
AboutBox.Panel1.BackColor = Color.Gainsboro
|
||||
AboutBox.Panel1.ForeColor = SystemColors.WindowText
|
||||
AboutBox.LabelProgramName.ForeColor = SystemColors.WindowText
|
||||
AboutBox.LabelProgramDescription.ForeColor = SystemColors.WindowText
|
||||
AboutBox.LabelVersion.ForeColor = SystemColors.WindowText
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Get dark mode state from settings.json's key 'DarkMode'
|
||||
''' <summary>
|
||||
''' Retrieves the Dark Mode setting value from 'settings.json'.
|
||||
''' If the settings file doesn't exist, defaults to returning 'False' (Dark Mode off).
|
||||
''' </summary>
|
||||
''' <returns>A Boolean indicating if Dark Mode is enabled or not.</returns>
|
||||
Private Function GetDarkMode() As Boolean
|
||||
If File.Exists(settingsFilePath) Then
|
||||
Dim json As String = File.ReadAllText(settingsFilePath)
|
||||
Dim settings As JObject = JObject.Parse(json)
|
||||
Return settings("DarkMode").ToObject(Of Boolean)()
|
||||
Return settings(NameOf(DarkMode)).ToObject(Of Boolean)()
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user