diff options
Diffstat (limited to 'ShiftOS')
| -rw-r--r-- | ShiftOS/Helper.vb | 4 | ||||
| -rw-r--r-- | ShiftOS/Skin Loader.vb | 6 | ||||
| -rw-r--r-- | ShiftOS/infobox.vb | 9 | ||||
| -rw-r--r-- | ShiftOS/skins.vb | 440 |
4 files changed, 234 insertions, 225 deletions
diff --git a/ShiftOS/Helper.vb b/ShiftOS/Helper.vb index 29799eb..19a1b2e 100644 --- a/ShiftOS/Helper.vb +++ b/ShiftOS/Helper.vb @@ -1,4 +1,4 @@ -Public Class Helper +Module Helper Dim path As String = ShiftOSDesktop.ShiftOSPath Public Sub addCP(points As Integer) 'Add some CP ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + points @@ -13,4 +13,4 @@ Public Sub playSound(path As String, playMode As AudioPlayMode) My.Computer.Audio.Play(path, playMode) End Sub -End Class +End Module diff --git a/ShiftOS/Skin Loader.vb b/ShiftOS/Skin Loader.vb index d7e404f..c05e6ad 100644 --- a/ShiftOS/Skin Loader.vb +++ b/ShiftOS/Skin Loader.vb @@ -1157,11 +1157,15 @@ Public Class Skin_Loader Private Sub btnapplyskin_Click(sender As Object, e As EventArgs) Handles btnapplyskin.Click If skinloaded = True Then If loadingsknversion = "2.0 disposal-free skinning" Then - If Directory.Exists(ShiftOSPath + "Shiftum42\Skins\Loaded") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Skins\Loaded", FileIO.DeleteDirectoryOption.DeleteAllContents) + If Directory.Exists(Paths.loadedskin) Then My.Computer.FileSystem.DeleteDirectory(Paths.loadedskin, FileIO.DeleteDirectoryOption.DeleteAllContents) + + + Directory.CreateDirectory(ShiftOSPath + "Shiftum42\Skins\Loaded") My.Computer.FileSystem.CopyDirectory(ShiftOSPath + "Shiftum42\Skins\Preview", ShiftOSPath + "Shiftum42\Skins\Loaded") Skins.loadimages() skinloaded = False + Else apply1_0skin() skinloaded = False diff --git a/ShiftOS/infobox.vb b/ShiftOS/infobox.vb index 20a73aa..d5e15bf 100644 --- a/ShiftOS/infobox.vb +++ b/ShiftOS/infobox.vb @@ -1,4 +1,6 @@ -Public Class infobox +Imports ShiftOS.Helper +Imports ShiftOS.Paths +Public Class infobox Public rolldownsize As Integer Public oldbordersize As Integer Public oldtitlebarheight As Integer @@ -32,6 +34,11 @@ ShiftOSDesktop.setuppanelbuttons() ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttoninfobox, ShiftOSDesktop.tbinfoboxicon, ShiftOSDesktop.tbinfoboxtext, True) 'modify to proper name ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + Try + playSound(sounddir & "infobox.wav", AudioPlayMode.Background) + Catch + + End Try End Sub Public Sub setupall() diff --git a/ShiftOS/skins.vb b/ShiftOS/skins.vb index 5cafc04..5224708 100644 --- a/ShiftOS/skins.vb +++ b/ShiftOS/skins.vb @@ -184,279 +184,277 @@ Module Skins ' LOAD SKIN FROM SKN FILE Public Sub loadsknfile(ByVal filepath As String) - If Directory.Exists(savepath + "\Shiftum42\Skins\Loaded\") Then My.Computer.FileSystem.DeleteDirectory(savepath + "\Shiftum42\Skins\Loaded", FileIO.DeleteDirectoryOption.DeleteAllContents) - Directory.CreateDirectory(savepath + "\Shiftum42\Skins\Loaded") - System.IO.Compression.ZipFile.ExtractToDirectory(filepath, savepath + "\Shiftum42\Skins\Loaded") + If Directory.Exists(loadedskin) Then My.Computer.FileSystem.DeleteDirectory(savepath + "Shiftum42\Skins\Loaded", FileIO.DeleteDirectoryOption.DeleteAllContents) + Directory.CreateDirectory(savepath + "Shiftum42\Skins\Loaded") + System.IO.Compression.ZipFile.ExtractToDirectory(filepath, savepath + "Shiftum42\Skins\Loaded") loadimages() End Sub ' LOAD SKIN FROM SAVE FOLDER Public Sub loadimages() - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\userbar") Then - userNamePanelBackground = GetImage(savepath + "\Shiftum42\Skins\Loaded\userbar") + If File.Exists(loadedskin & "userbar") Then + userNamePanelBackground = GetImage(loadedskin & "userbar") End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\powerbar") Then - powerPanelBackgroundImage = GetImage(savepath + "\Shiftum42\Skins\Loaded\powerbar") + If File.Exists(loadedskin & "powerbar") Then + powerPanelBackgroundImage = GetImage(loadedskin & "powerbar") End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\titlebar") Then - titlebar = GetImage(savepath + "\Shiftum42\Skins\Loaded\titlebar") + If File.Exists(loadedskin & "titlebar") Then + titlebar = GetImage(loadedskin & "titlebar") Else : titlebar = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\borderleft") Then - borderleft = GetImage(savepath + "\Shiftum42\Skins\Loaded\borderleft") + If File.Exists(loadedskin & "borderleft") Then + borderleft = GetImage(loadedskin & "borderleft") Else : borderleft = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\borderright") Then - borderright = GetImage(savepath + "\Shiftum42\Skins\Loaded\borderright".Clone) + If File.Exists(loadedskin & "borderright") Then + borderright = GetImage(loadedskin & "borderright".Clone) Else : borderright = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\borderbottom") Then - borderbottom = GetImage(savepath + "\Shiftum42\Skins\Loaded\borderbottom".Clone) + If File.Exists(loadedskin & "borderbottom") Then + borderbottom = GetImage(loadedskin & "borderbottom".Clone) Else : borderbottom = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\closebtn") Then - closebtn = GetImage(savepath + "\Shiftum42\Skins\Loaded\closebtn".Clone) + If File.Exists(loadedskin & "closebtn") Then + closebtn = GetImage(loadedskin & "closebtn".Clone) Else : closebtn = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\closebtnhover") Then - closebtnhover = GetImage(savepath + "\Shiftum42\Skins\Loaded\closebtnhover".Clone) + If File.Exists(loadedskin & "closebtnhover") Then + closebtnhover = GetImage(loadedskin & "closebtnhover".Clone) Else : closebtnhover = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\closebtnclick") Then - closebtnclick = GetImage(savepath + "\Shiftum42\Skins\Loaded\closebtnclick".Clone) + If File.Exists(loadedskin & "closebtnclick") Then + closebtnclick = GetImage(loadedskin & "closebtnclick".Clone) Else : closebtnclick = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\rollbtn") Then - rollbtn = GetImage(savepath + "\Shiftum42\Skins\Loaded\rollbtn".Clone) + If File.Exists(loadedskin & "rollbtn") Then + rollbtn = GetImage(loadedskin & "rollbtn".Clone) Else : rollbtn = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\rollbtnhover") Then - rollbtnhover = GetImage(savepath + "\Shiftum42\Skins\Loaded\rollbtnhover".Clone) + If File.Exists(loadedskin & "rollbtnhover") Then + rollbtnhover = GetImage(loadedskin & "rollbtnhover".Clone) Else : rollbtnhover = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\rollbtnclick") Then - rollbtnclick = GetImage(savepath + "\Shiftum42\Skins\Loaded\rollbtnclick".Clone) + If File.Exists(loadedskin & "rollbtnclick") Then + rollbtnclick = GetImage(loadedskin & "rollbtnclick".Clone) Else : rollbtnclick = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\minbtn") Then - minbtn = GetImage(savepath + "\Shiftum42\Skins\Loaded\minbtn".Clone) + If File.Exists(loadedskin & "minbtn") Then + minbtn = GetImage(loadedskin & "minbtn".Clone) Else : minbtn = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\minbtnhover") Then - minbtnhover = GetImage(savepath + "\Shiftum42\Skins\Loaded\minbtnhover".Clone) + If File.Exists(loadedskin & "minbtnhover") Then + minbtnhover = GetImage(loadedskin & "minbtnhover".Clone) Else : minbtnhover = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\minbtnclick") Then - minbtnclick = GetImage(savepath + "\Shiftum42\Skins\Loaded\minbtnclick".Clone) + If File.Exists(loadedskin & "minbtnclick") Then + minbtnclick = GetImage(loadedskin & "minbtnclick".Clone) Else : minbtnclick = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\rightcorner") Then - rightcorner = GetImage(savepath + "\Shiftum42\Skins\Loaded\rightcorner".Clone) + If File.Exists(loadedskin & "rightcorner") Then + rightcorner = GetImage(loadedskin & "rightcorner".Clone) Else : rightcorner = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\leftcorner") Then - leftcorner = GetImage(savepath + "\Shiftum42\Skins\Loaded\leftcorner".Clone) + If File.Exists(loadedskin & "leftcorner") Then + leftcorner = GetImage(loadedskin & "leftcorner".Clone) Else : leftcorner = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\desktoppanel") Then - desktoppanel = GetImage(savepath + "\Shiftum42\Skins\Loaded\desktoppanel".Clone) + If File.Exists(loadedskin & "desktoppanel") Then + desktoppanel = GetImage(loadedskin & "desktoppanel".Clone) Else : desktoppanel = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\desktopbackground") Then - desktopbackground = GetImage(savepath + "\Shiftum42\Skins\Loaded\desktopbackground".Clone) + If File.Exists(loadedskin & "desktopbackground") Then + desktopbackground = GetImage(loadedskin & "desktopbackground".Clone) Else : desktopbackground = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\panelbutton") Then - panelbutton = GetImage(savepath + "\Shiftum42\Skins\Loaded\panelbutton".Clone) + If File.Exists(loadedskin & "panelbutton") Then + panelbutton = GetImage(loadedskin & "panelbutton".Clone) Else : panelbutton = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\applaunchermouseover") Then - applaunchermouseover = GetImage(savepath + "\Shiftum42\Skins\Loaded\applaunchermouseover".Clone) + If File.Exists(loadedskin & "applaunchermouseover") Then + applaunchermouseover = GetImage(loadedskin & "applaunchermouseover".Clone) Else : applaunchermouseover = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\applauncher") Then - applauncher = GetImage(savepath + "\Shiftum42\Skins\Loaded\applauncher".Clone) + If File.Exists(loadedskin & "applauncher") Then + applauncher = GetImage(loadedskin & "applauncher".Clone) Else : applauncher = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\applauncherclick") Then - applauncherclick = GetImage(savepath + "\Shiftum42\Skins\Loaded\applauncherclick".Clone) + If File.Exists(loadedskin & "applauncherclick") Then + applauncherclick = GetImage(loadedskin & "applauncherclick".Clone) Else : applauncherclick = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\panelclock") Then - panelclock = GetImage(savepath + "\Shiftum42\Skins\Loaded\panelclock".Clone) + If File.Exists(loadedskin & "panelclock") Then + panelclock = GetImage(loadedskin & "panelclock".Clone) Else : panelclock = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\bottomleftcorner") Then - bottomleftcorner = GetImage(savepath + "\Shiftum42\Skins\Loaded\bottomleftcorner".Clone) + If File.Exists(loadedskin & "bottomleftcorner") Then + bottomleftcorner = GetImage(loadedskin & "bottomleftcorner".Clone) Else : bottomleftcorner = Nothing End If - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\bottomrightcorner") Then - bottomrightcorner = GetImage(savepath + "\Shiftum42\Skins\Loaded\bottomrightcorner".Clone) + If File.Exists(loadedskin & "bottomrightcorner") Then + bottomrightcorner = GetImage(loadedskin & "bottomrightcorner".Clone) Else : bottomrightcorner = Nothing End If 'load settings Dim loaddata(200) As String - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\data.dat") Then - Dim sr As StreamReader = New StreamReader(savepath + "\Shiftum42\Skins\Loaded\data.dat") + If File.Exists(loadedskin & "data.dat") Then + Dim sr As StreamReader = New StreamReader(loadedskin & "data.dat") - For i As Integer = 0 To 200 Step 1 - loaddata(i) = sr.ReadLine - If i = 200 Then - sr.Close() - Exit For - End If - Next + For i As Integer = 0 To 200 Step 1 + loaddata(i) = sr.ReadLine + If i = 200 Then + sr.Close() + Exit For + End If + Next - ' settings - closebtnsize = New Size(loaddata(1), loaddata(2)) - rollbtnsize = New Size(loaddata(3), loaddata(4)) - minbtnsize = New Size(loaddata(5), loaddata(6)) - titlebarheight = loaddata(7) - closebtnfromtop = loaddata(8) - closebtnfromside = loaddata(9) - rollbtnfromtop = loaddata(10) - rollbtnfromside = loaddata(11) - minbtnfromtop = loaddata(12) - minbtnfromside = loaddata(13) - borderwidth = loaddata(14) - enablecorners = loaddata(15) - titlebarcornerwidth = loaddata(16) - titleiconfromside = loaddata(17) - titleiconfromtop = loaddata(18) - titlebarcolour = Color.FromArgb(loaddata(19)) - borderleftcolour = Color.FromArgb(loaddata(20)) - borderrightcolour = Color.FromArgb(loaddata(21)) - borderbottomcolour = Color.FromArgb(loaddata(22)) - closebtncolour = Color.FromArgb(loaddata(23)) - closebtnhovercolour = Color.FromArgb(loaddata(24)) - closebtnclickcolour = Color.FromArgb(loaddata(25)) - rollbtncolour = Color.FromArgb(loaddata(26)) - rollbtnhovercolour = Color.FromArgb(loaddata(27)) - rollbtnclickcolour = Color.FromArgb(loaddata(28)) - minbtncolour = Color.FromArgb(loaddata(29)) - minbtnhovercolour = Color.FromArgb(loaddata(30)) - minbtnclickcolour = Color.FromArgb(loaddata(31)) - rightcornercolour = Color.FromArgb(loaddata(32)) - leftcornercolour = Color.FromArgb(loaddata(33)) - bottomrightcornercolour = Color.FromArgb(loaddata(34)) - bottomleftcornercolour = Color.FromArgb(loaddata(35)) - titletextfontfamily = loaddata(36) - titletextfontsize = loaddata(37) - titletextfontstyle = loaddata(38) - titletextpos = loaddata(39) - titletextfromtop = loaddata(40) - titletextfromside = loaddata(41) - titletextcolour = Color.FromArgb(loaddata(42)) - desktoppanelcolour = Color.FromArgb(loaddata(43)) - desktopbackgroundcolour = Color.FromArgb(loaddata(44)) - desktoppanelheight = loaddata(45) - desktoppanelposition = loaddata(46) - clocktextcolour = Color.FromArgb(loaddata(47)) - clockbackgroundcolor = Color.FromArgb(loaddata(48)) - panelclocktexttop = loaddata(49) - panelclocktextsize = loaddata(50) - panelclocktextfont = loaddata(51) - panelclocktextstyle = loaddata(52) - applauncherbuttoncolour = Color.FromArgb(loaddata(53)) - applauncherbuttonclickedcolour = Color.FromArgb(loaddata(54)) - applauncherbackgroundcolour = Color.FromArgb(loaddata(55)) - applaunchermouseovercolour = Color.FromArgb(loaddata(56)) - applicationsbuttontextcolour = Color.FromArgb(loaddata(57)) - applicationbuttonheight = loaddata(58) - applicationbuttontextsize = loaddata(59) - applicationbuttontextfont = loaddata(60) - applicationbuttontextstyle = loaddata(61) - applicationlaunchername = loaddata(62) - titletextposition = loaddata(63) - applaunchermenuholderwidth = loaddata(64) - panelbuttonicontop = loaddata(65) - panelbuttoniconside = loaddata(66) - panelbuttoniconsize = loaddata(67) - panelbuttonheight = loaddata(68) - panelbuttonwidth = loaddata(69) - panelbuttoncolour = Color.FromArgb(loaddata(70)) - panelbuttontextcolour = Color.FromArgb(loaddata(71)) - panelbuttontextsize = loaddata(72) - panelbuttontextfont = loaddata(73) - panelbuttontextstyle = loaddata(74) - panelbuttontextside = loaddata(75) - panelbuttontexttop = loaddata(76) - panelbuttongap = loaddata(77) - panelbuttonfromtop = loaddata(78) - panelbuttoninitialgap = loaddata(79) + ' settings + closebtnsize = New Size(loaddata(1), loaddata(2)) + rollbtnsize = New Size(loaddata(3), loaddata(4)) + minbtnsize = New Size(loaddata(5), loaddata(6)) + titlebarheight = loaddata(7) + closebtnfromtop = loaddata(8) + closebtnfromside = loaddata(9) + rollbtnfromtop = loaddata(10) + rollbtnfromside = loaddata(11) + minbtnfromtop = loaddata(12) + minbtnfromside = loaddata(13) + borderwidth = loaddata(14) + enablecorners = loaddata(15) + titlebarcornerwidth = loaddata(16) + titleiconfromside = loaddata(17) + titleiconfromtop = loaddata(18) + titlebarcolour = Color.FromArgb(loaddata(19)) + borderleftcolour = Color.FromArgb(loaddata(20)) + borderrightcolour = Color.FromArgb(loaddata(21)) + borderbottomcolour = Color.FromArgb(loaddata(22)) + closebtncolour = Color.FromArgb(loaddata(23)) + closebtnhovercolour = Color.FromArgb(loaddata(24)) + closebtnclickcolour = Color.FromArgb(loaddata(25)) + rollbtncolour = Color.FromArgb(loaddata(26)) + rollbtnhovercolour = Color.FromArgb(loaddata(27)) + rollbtnclickcolour = Color.FromArgb(loaddata(28)) + minbtncolour = Color.FromArgb(loaddata(29)) + minbtnhovercolour = Color.FromArgb(loaddata(30)) + minbtnclickcolour = Color.FromArgb(loaddata(31)) + rightcornercolour = Color.FromArgb(loaddata(32)) + leftcornercolour = Color.FromArgb(loaddata(33)) + bottomrightcornercolour = Color.FromArgb(loaddata(34)) + bottomleftcornercolour = Color.FromArgb(loaddata(35)) + titletextfontfamily = loaddata(36) + titletextfontsize = loaddata(37) + titletextfontstyle = loaddata(38) + titletextpos = loaddata(39) + titletextfromtop = loaddata(40) + titletextfromside = loaddata(41) + titletextcolour = Color.FromArgb(loaddata(42)) + desktoppanelcolour = Color.FromArgb(loaddata(43)) + desktopbackgroundcolour = Color.FromArgb(loaddata(44)) + desktoppanelheight = loaddata(45) + desktoppanelposition = loaddata(46) + clocktextcolour = Color.FromArgb(loaddata(47)) + clockbackgroundcolor = Color.FromArgb(loaddata(48)) + panelclocktexttop = loaddata(49) + panelclocktextsize = loaddata(50) + panelclocktextfont = loaddata(51) + panelclocktextstyle = loaddata(52) + applauncherbuttoncolour = Color.FromArgb(loaddata(53)) + applauncherbuttonclickedcolour = Color.FromArgb(loaddata(54)) + applauncherbackgroundcolour = Color.FromArgb(loaddata(55)) + applaunchermouseovercolour = Color.FromArgb(loaddata(56)) + applicationsbuttontextcolour = Color.FromArgb(loaddata(57)) + applicationbuttonheight = loaddata(58) + applicationbuttontextsize = loaddata(59) + applicationbuttontextfont = loaddata(60) + applicationbuttontextstyle = loaddata(61) + applicationlaunchername = loaddata(62) + titletextposition = loaddata(63) + applaunchermenuholderwidth = loaddata(64) + panelbuttonicontop = loaddata(65) + panelbuttoniconside = loaddata(66) + panelbuttoniconsize = loaddata(67) + panelbuttonheight = loaddata(68) + panelbuttonwidth = loaddata(69) + panelbuttoncolour = Color.FromArgb(loaddata(70)) + panelbuttontextcolour = Color.FromArgb(loaddata(71)) + panelbuttontextsize = loaddata(72) + panelbuttontextfont = loaddata(73) + panelbuttontextstyle = loaddata(74) + panelbuttontextside = loaddata(75) + panelbuttontexttop = loaddata(76) + panelbuttongap = loaddata(77) + panelbuttonfromtop = loaddata(78) + panelbuttoninitialgap = loaddata(79) - 'layout stuff - titlebarlayout = loaddata(89) - borderleftlayout = loaddata(90) - borderrightlayout = loaddata(91) - borderbottomlayout = loaddata(92) - closebtnlayout = loaddata(93) - rollbtnlayout = loaddata(94) - minbtnlayout = loaddata(95) - rightcornerlayout = loaddata(96) - leftcornerlayout = loaddata(97) - desktoppanellayout = loaddata(98) - desktopbackgroundlayout = loaddata(99) - panelclocklayout = loaddata(100) - applauncherlayout = loaddata(101) - panelbuttonlayout = loaddata(102) - bottomleftcornerlayout = loaddata(103) - bottomrightcornerlayout = loaddata(104) - ' End of 0.0.8 beta 6 save file, check if exists for future features - If Not loaddata(105) = "" Then launcheritemcolour = Color.FromArgb(loaddata(105)) - If Not loaddata(106) = "" Then launcheritemfont = loaddata(106) - If Not loaddata(107) = "" Then launcheritemsize = loaddata(107) - If Not loaddata(108) = "" Then launcheritemstyle = loaddata(108) - If Not loaddata(109) = "" Then enablebordercorners = loaddata(109) + 'layout stuff + titlebarlayout = loaddata(89) + borderleftlayout = loaddata(90) + borderrightlayout = loaddata(91) + borderbottomlayout = loaddata(92) + closebtnlayout = loaddata(93) + rollbtnlayout = loaddata(94) + minbtnlayout = loaddata(95) + rightcornerlayout = loaddata(96) + leftcornerlayout = loaddata(97) + desktoppanellayout = loaddata(98) + desktopbackgroundlayout = loaddata(99) + panelclocklayout = loaddata(100) + applauncherlayout = loaddata(101) + panelbuttonlayout = loaddata(102) + bottomleftcornerlayout = loaddata(103) + bottomrightcornerlayout = loaddata(104) + ' End of 0.0.8 beta 6 save file, check if exists for future features + If Not loaddata(105) = "" Then launcheritemcolour = Color.FromArgb(loaddata(105)) + If Not loaddata(106) = "" Then launcheritemfont = loaddata(106) + If Not loaddata(107) = "" Then launcheritemsize = loaddata(107) + If Not loaddata(108) = "" Then launcheritemstyle = loaddata(108) + If Not loaddata(109) = "" Then enablebordercorners = loaddata(109) - 'for adding extra features, check: + 'for adding extra features, check: - If loaddata(110) = "" Or loaddata(110) = "End of skin data" Then loaddata(110) = enabledraggableicons Else enabledraggableicons = loaddata(110) - If loaddata(111) = "" Or loaddata(111) = "End of skin data" Then loaddata(111) = icontextcolor.ToArgb Else icontextcolor = Color.FromArgb(loaddata(111)) - If loaddata(112) = "" Or loaddata(112) = "End of skin data" Then loaddata(112) = showicons Else showicons = loaddata(112) - If loaddata(113) = "" Or loaddata(113) = "End of skin data" Then loaddata(113) = iconview1 Else iconview1 = loaddata(113) - If loaddata(114) = "" Then topBarHeight = 50 Else topBarHeight = loaddata(114) - If loaddata(115) = "" Then bottomBarHeight = 50 Else bottomBarHeight = loaddata(115) - If loaddata(116) = "" Then placesSide = "Left" Else placesSide = loaddata(116) - If loaddata(117) = "" Then startHeight = 526 Else startHeight = loaddata(117) - If loaddata(118) = "" Then startWidth = 320 Else startWidth = loaddata(118) - If loaddata(119) = "" Then shutdownstring = "Shut Down ShiftOS" Else shutdownstring = loaddata(119) - If loaddata(120) = "" Then userNamePosition = "Middle, Right" Else userNamePosition = loaddata(200) - Try - If loaddata(121) = "" Then recentIconsHorizontal = False Else recentIconsHorizontal = loaddata(201) - If loaddata(122) = "" Then usernametextcolor = Color.White Else usernametextcolor = Color.FromArgb(loaddata(202)) - If loaddata(123) = "" Then usernamefont = "Trebuchet MS" Else usernamefont = loaddata(203) - If loaddata(124) = "" Then usernamefontsize = 12 Else usernamefontsize = loaddata(204) - Catch - usernametextcolor = Color.White - usernamefont = "Trebuchet MS" - recentIconsHorizontal = False - usernamefontsize = 12 - End Try - If loaddata(125) = "" Then usernamefontstyle = FontStyle.Bold Else usernamefontstyle = loaddata(125) - If loaddata(126) = "" Then userNamePanelBackgroundColor = Color.Gray Else userNamePanelBackgroundColor = Color.FromArgb(loaddata(126)) - If loaddata(127) = "" Then powerPanelBackgroundColor = Color.Gray Else powerPanelBackgroundColor = Color.FromArgb(loaddata(127)) - If loaddata(128) = "" Then shutdownTextColor = Color.White Else shutdownTextColor = Color.FromArgb(loaddata(128)) - If loaddata(129) = "" Then shutdownTextFont = "Trebuchet MS" Else shutdownTextFont = loaddata(129) - If loaddata(130) = "" Then shutdownTextSize = 12 Else shutdownTextSize = loaddata(130) - If loaddata(131) = "" Then shutdownTextStyle = FontStyle.Italic Else shutdownTextStyle = loaddata(132) - If loaddata(132) = "" Then usrPanelBackgroundLayout = ImageLayout.Stretch Else usrPanelBackgroundLayout = loaddata(132) - If loaddata(133) = "" Then pwrPanelBackgroundLayout = ImageLayout.Stretch Else pwrPanelBackgroundLayout = loaddata(133) - If loaddata(134) = "" Then useClassicAppLauncher = False Else useClassicAppLauncher = loaddata(134) + If loaddata(110) = "" Or loaddata(110) = "End of skin data" Then loaddata(110) = enabledraggableicons Else enabledraggableicons = loaddata(110) + If loaddata(111) = "" Or loaddata(111) = "End of skin data" Then loaddata(111) = icontextcolor.ToArgb Else icontextcolor = Color.FromArgb(loaddata(111)) + If loaddata(112) = "" Or loaddata(112) = "End of skin data" Then loaddata(112) = showicons Else showicons = loaddata(112) + If loaddata(113) = "" Or loaddata(113) = "End of skin data" Then loaddata(113) = iconview1 Else iconview1 = loaddata(113) + Try + If loaddata(114) = "" Then topBarHeight = 50 Else topBarHeight = loaddata(114) + Catch ex As Exception + topBarHeight = 50 + infobox.showinfo("Error - Bad Skin File", "It appears that there was an error loading parts of this skin. The unloadable data has been reset to default values.") + End Try + If loaddata(115) = "" Then bottomBarHeight = 50 Else bottomBarHeight = loaddata(115) + If loaddata(116) = "" Then placesSide = "Left" Else placesSide = loaddata(116) + If loaddata(117) = "" Then startHeight = 526 Else startHeight = loaddata(117) + If loaddata(118) = "" Then startWidth = 320 Else startWidth = loaddata(118) + If loaddata(119) = "" Then shutdownstring = "Shut Down ShiftOS" Else shutdownstring = loaddata(119) + If loaddata(120) = "" Then userNamePosition = "Middle, Right" Else userNamePosition = loaddata(120) + If loaddata(121) = "" Then recentIconsHorizontal = False Else recentIconsHorizontal = loaddata(121) + If loaddata(122) = "" Then usernametextcolor = Color.White Else usernametextcolor = Color.FromArgb(loaddata(122)) + If loaddata(123) = "" Then usernamefont = "Trebuchet MS" Else usernamefont = loaddata(123) + If loaddata(124) = "" Then usernamefontsize = 12 Else usernamefontsize = loaddata(124) + If loaddata(125) = "" Then usernamefontstyle = FontStyle.Bold Else usernamefontstyle = loaddata(125) + If loaddata(126) = "" Then userNamePanelBackgroundColor = Color.Gray Else userNamePanelBackgroundColor = Color.FromArgb(loaddata(126)) + If loaddata(127) = "" Then powerPanelBackgroundColor = Color.Gray Else powerPanelBackgroundColor = Color.FromArgb(loaddata(127)) + If loaddata(128) = "" Then shutdownTextColor = Color.White Else shutdownTextColor = Color.FromArgb(loaddata(128)) + If loaddata(129) = "" Then shutdownTextFont = "Trebuchet MS" Else shutdownTextFont = loaddata(129) + If loaddata(130) = "" Then shutdownTextSize = 12 Else shutdownTextSize = loaddata(130) + If loaddata(131) = "" Then shutdownTextStyle = FontStyle.Italic Else shutdownTextStyle = loaddata(132) + If loaddata(132) = "" Then usrPanelBackgroundLayout = ImageLayout.Stretch Else usrPanelBackgroundLayout = loaddata(132) + If loaddata(133) = "" Then pwrPanelBackgroundLayout = ImageLayout.Stretch Else pwrPanelBackgroundLayout = loaddata(133) + If loaddata(134) = "" Then useClassicAppLauncher = False Else useClassicAppLauncher = loaddata(134) - Else - setupdefaults() - End If - ' Christmas easteregg - Try ' If user's PC uses weird/non-numeric dating system - eg: http://puu.sh/eFq6l/8da8a03617.png - Dim d() As String = Split(Date.Today, "/") - If (d(0) = 25 And d(1) = 12) Or (d(0) = 12 And d(1) = 25) Then - desktopbackground = My.Resources.christmaseasteregg - desktopbackgroundlayout = 2 - desktopbackgroundcolour = Color.Black + Else + setupdefaults() End If - Catch ex As Exception - End Try - applyskin() + ' Christmas easteregg + Try ' If user's PC uses weird/non-numeric dating system - eg: http://puu.sh/eFq6l/8da8a03617.png + Dim d() As String = Split(Date.Today, "/") + If (d(0) = 25 And d(1) = 12) Or (d(0) = 12 And d(1) = 25) Then + desktopbackground = My.Resources.christmaseasteregg + desktopbackgroundlayout = 2 + desktopbackgroundcolour = Color.Black + End If + Catch ex As Exception + End Try + applyskin() End Sub ' SET SKIN Public Sub applyskin() @@ -466,24 +464,24 @@ Module Skins ' SAVE TO SKN FILE Public Sub saveskin(ByVal path As String) If Not File.Exists(path) Then - Dim sw As StreamWriter = New StreamWriter(savepath + "\Shiftum42\Skins\Loaded\SKN-version") 'tells skin loader which system to use when openning the file + Dim sw As StreamWriter = New StreamWriter(Paths.loadedskin & "SKN-version") 'tells skin loader which system to use when openning the file sw.WriteLine("Name of skinning system used to create this skn file:") sw.WriteLine("2.0 disposal-free skinning") sw.WriteLine("Skinning system created by william.1008 on December 2014, based on 1.0 system by DevX") sw.Close() saveskinfiles(False) - Compression.ZipFile.CreateFromDirectory(savepath + "\Shiftum42\Skins\Loaded", path) - File.Delete(savepath + "\Shiftum42\Skins\Loaded\SKN-version") + Compression.ZipFile.CreateFromDirectory(Paths.loadedskin, path) + File.Delete(Paths.loadedskin & "SKN-version") Else infobox.showinfo("File Exists", "That file location is already taken, please choose another.") End If End Sub ' SAVE TO SAVE FOLDER Public Sub saveskinfiles(ByVal apply As Boolean) - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\") Then - Directory.Delete(savepath + "\Shiftum42\Skins\Loaded\") + If File.Exists(Paths.loadedskin) Then + Directory.Delete(Paths.loadedskin) End If - Directory.CreateDirectory(savepath + "\Shiftum42\Skins\Loaded\") + Directory.CreateDirectory(Paths.loadedskin) saveimage(titlebar, "titlebar") saveimage(borderleft, "borderleft") saveimage(borderright, "borderright") @@ -645,7 +643,7 @@ Module Skins ' End of skin data text was at line 110, if adding future items, check for "End of skin data" on line 110 savedata(200) = "End of skin data" - File.WriteAllLines(savepath + "\Shiftum42\Skins\Loaded\data.dat", savedata) + File.WriteAllLines(Paths.loadedskin & "data.dat", savedata) If apply = True Then applyskin() End If @@ -776,14 +774,14 @@ Module Skins End Sub Private Sub saveimage(ByVal img As Image, ByVal name As String) If Not IsNothing(img) Then - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\" & name) Then File.Delete(savepath + "\Shiftum42\Skins\Loaded\" & name) + If File.Exists(loadedskin & name) Then File.Delete(loadedskin & name) Try - img.Save(savepath + "\Shiftum42\Skins\Loaded\" & name, System.Drawing.Imaging.ImageFormat.Png) + img.Save(loadedskin & name, System.Drawing.Imaging.ImageFormat.Png) Catch ex As Exception - infobox.showinfo("Saving Error", "Opps, an error occured when saving the file " & savepath + "\Shiftum42\Skins\Loaded\" & name & ". Please contact DevX to report the problem.") + infobox.showinfo("Saving Error", "Oops, an error occured when saving the file " & loadedskin & name & ". Please contact the devs to report the problem.") End Try Else - If File.Exists(savepath + "\Shiftum42\Skins\Loaded\" & name) Then File.Delete(savepath + "\Shiftum42\Skins\Loaded\" & name) + If File.Exists(loadedskin & name) Then File.Delete(loadedskin & name) End If End Sub End Module
\ No newline at end of file |