diff options
Diffstat (limited to 'shiftos_next/BWM and CMD Apps/SkinLoader.vb')
| -rw-r--r-- | shiftos_next/BWM and CMD Apps/SkinLoader.vb | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/shiftos_next/BWM and CMD Apps/SkinLoader.vb b/shiftos_next/BWM and CMD Apps/SkinLoader.vb new file mode 100644 index 0000000..dd0003f --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/SkinLoader.vb @@ -0,0 +1,39 @@ +Public Class SkinLoader + + Public skintoload As String + + Public Sub readfile(file As String) + Dim filinf As New IO.FileInfo(file) + If filinf.Extension = ".bsk" Then + Dim loadlines() As String = IO.File.ReadAllLines(file) + prev_titlebar.BackColor = Color.FromArgb(loadlines(0)) + prev_titlebar.ForeColor = Color.FromArgb(loadlines(1)) + prev_desktop.BackColor = Color.FromArgb(loadlines(2)) + prev_newterminal.BackColor = Color.FromArgb(loadlines(3)) + prev_newterminal.ForeColor = Color.FromArgb(loadlines(4)) + Else + basicwm_infobox.showinfo("Unsupported file", "The skin file provided cannot be read.") + End If + + End Sub + + Private Sub btnload_Click(sender As Object, e As EventArgs) Handles btnload.Click + file_skimmer.mode = "open" + file_skimmer.application = "skin_loader" + file_skimmer.Show() + End Sub + + Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click + If Not skintoload = "" Then + loadskin(skintoload) + Else + basicwm_infobox.showinfo("Can't apply skin!", "Cannot apply the skin, as there is currently no skin file loaded.") + End If + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + file_skimmer.mode = "save" + file_skimmer.application = "skin_loader" + file_skimmer.Show() + End Sub +End Class
\ No newline at end of file |