mirror of
https://github.com/TheUltimateHacker/shiftos-next.git
synced 2025-01-22 16:42:14 +00:00
2bed5c22ff
Next skinning upgrade has been added, which is the Skin Loader that allows you to save and load skins.
70 lines
2.2 KiB
VB.net
70 lines
2.2 KiB
VB.net
Module Skins
|
|
'<summary>
|
|
' This module allows for skinning. Simply that.
|
|
'</summary>
|
|
|
|
#Region "Basic Window Manager"
|
|
Public titlebarcolor As Color = Color.Gray
|
|
Public titlebartextcolor As Color = Color.White
|
|
Public desktopbackcolor As Color = Color.Black
|
|
Public newterminalbuttonbackcolor As Color = Color.Black
|
|
Public newterminalbuttontextcolor As Color = Color.White
|
|
|
|
'Load Skin from Save File
|
|
|
|
Public Sub loadskindata()
|
|
Try
|
|
Dim loadlines() As String = IO.File.ReadAllLines(bwmskin + "data.bsk")
|
|
titlebarcolor = Color.FromArgb(loadlines(0))
|
|
titlebartextcolor = Color.FromArgb(loadlines(1))
|
|
desktopbackcolor = Color.FromArgb(loadlines(2))
|
|
newterminalbuttonbackcolor = Color.FromArgb(loadlines(3))
|
|
newterminalbuttontextcolor = Color.FromArgb(loadlines(4))
|
|
BasicWM.Desktop.Redraw()
|
|
Catch ex As Exception
|
|
saveskindata()
|
|
loadskindata()
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
'Save to save data
|
|
|
|
Public Sub saveskindata()
|
|
Dim savelines(200) As String
|
|
savelines(0) = titlebarcolor.ToArgb
|
|
savelines(1) = titlebartextcolor.ToArgb
|
|
savelines(2) = desktopbackcolor.ToArgb
|
|
savelines(3) = newterminalbuttonbackcolor.ToArgb
|
|
savelines(4) = newterminalbuttontextcolor.ToArgb
|
|
Try
|
|
IO.File.WriteAllLines(bwmskin + "data.bsk", savelines)
|
|
Catch ex As Exception
|
|
IO.Directory.CreateDirectory(bwmskin)
|
|
IO.File.WriteAllLines(bwmskin + "data.bsk", savelines)
|
|
End Try
|
|
BasicWM.Desktop.Redraw()
|
|
End Sub
|
|
|
|
'Copy skin file to save data
|
|
|
|
Public Sub loadskin(file As String)
|
|
If IO.Directory.Exists(bwmskin) Then
|
|
IO.Directory.Delete(bwmskin, True)
|
|
IO.Directory.CreateDirectory(bwmskin)
|
|
IO.File.Copy(file, bwmskin + "data.bsk")
|
|
loadskindata()
|
|
End If
|
|
End Sub
|
|
|
|
'Copy skin from save data to file
|
|
|
|
Public Sub saveskin(file As String)
|
|
Dim savelines() As String = IO.File.ReadAllLines(bwmskin + "data.bsk")
|
|
IO.File.WriteAllLines(file, savelines)
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
End Module
|