Private Sub LoadDefaultConfig()
Dim ConfigFile As New StreamReader("Config.ini")
Dim SettingName As String
Dim NewString As String
Dim OriginalString As String = ConfigFile.ReadLine
Dim CBColor As String
Dim CTColor As String
Dim CFormTitleColor As String
Dim CTMenuColor As String
Dim CBMenuColor As String
Dim CFontType As String
Dim CFontSize As String
Dim CTabSpacer As String
Dim CDragDrop As String
Dim COnTop As String
Dim CWordWrap As String
SettingName = Mid(OriginalString, InStr(OriginalString, "["), Len(OriginalString) - InStr(OriginalString, "]") - 1)
If SettingName = "Editor Text Color" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CTColor = NewString
RichTextBox1.ForeColor = ColorTranslator.FromHtml(CTColor)
End If
If SettingName = "Editor Background Color" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CBColor = NewString
RichTextBox1.BackColor = ColorTranslator.FromHtml(CBColor)
End If
If SettingName = "Application Title Color" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CFormTitleColor = NewString
Label1.ForeColor = ColorTranslator.FromHtml(CFormTitleColor)
TitleFilename.ForeColor = ColorTranslator.FromHtml(CFormTitleColor)
End If
If SettingName = "Top Menu Color" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CTMenuColor = NewString
MenuStrip1.BackColor = ColorTranslator.FromHtml(CTMenuColor)
End If
If SettingName = "Bottom Status Menu Color" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CBMenuColor = NewString
StatusStrip1.BackColor = ColorTranslator.FromHtml(CBMenuColor)
End If
If SettingName = "Font Type" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CFontType = NewString
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Text, CFontType)
End If
If SettingName = "Font Size" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CFontSize = NewString
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Text, CFontSize)
End If
If SettingName = "Tab Spacing Size" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CTabSpacer = NewString
FormTabs.NumericUpDown1.Value = CTabSpacer
End If
If SettingName = "Drag Drop Files" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CDragDrop = NewString
RichTextBox1.AllowDrop = CDragDrop
End If
If SettingName = "Always On Top" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
COnTop = NewString
Me.TopMost = COnTop
End If
If SettingName = "Word Wrap" Then
NewString = Mid(OriginalString, InStr(OriginalString, "'"), Len(OriginalString) - InStr(OriginalString, "'") - 1)
CWordWrap = NewString
RichTextBox1.WordWrap = CWordWrap
End If
ConfigFile.Close()
End Sub