diff options
Diffstat (limited to 'ShiftOS/skins.vb')
| -rw-r--r-- | ShiftOS/skins.vb | 866 |
1 files changed, 0 insertions, 866 deletions
diff --git a/ShiftOS/skins.vb b/ShiftOS/skins.vb deleted file mode 100644 index 867541b..0000000 --- a/ShiftOS/skins.vb +++ /dev/null @@ -1,866 +0,0 @@ -Imports System.IO -Module Skins -#Region "Declarations" - Dim savepath As String = ShiftOSDesktop.ShiftOSPath - Dim firstrun As Boolean = True - 'WINDOW SETTINGS/IMAGES - 'images - Public titlebar As Image = Nothing - Public titlebarlayout As String = 3 - Public borderleft As Image = Nothing - Public borderleftlayout As String = 3 - Public borderright As Image = Nothing - Public borderrightlayout As String = 3 - Public borderbottom As Image = Nothing - Public borderbottomlayout As String = 3 - Public closebtn As Image = Nothing - Public closebtnlayout As String = 3 - Public closebtnhover As Image = Nothing - Public closebtnclick As Image = Nothing - Public rollbtn As Image = Nothing - Public rollbtnlayout As String = 3 - Public rollbtnhover As Image = Nothing - Public rollbtnclick As Image = Nothing - Public minbtn As Image = Nothing - Public minbtnlayout As String = 3 - Public minbtnhover As Image = Nothing - Public minbtnclick As Image = Nothing - Public rightcorner As Image = Nothing - Public rightcornerlayout As String = 3 - Public leftcorner As Image = Nothing - Public leftcornerlayout As String = 3 - ' Late entry: need to fix window code to include this - Public bottomleftcorner As Image = Nothing - Public bottomleftcornerlayout As String = 3 - Public bottomrightcorner As Image = Nothing - Public bottomrightcornerlayout As String = 3 - Public bottomleftcornercolour As Color = Color.Gray - Public bottomrightcornercolour As Color = Color.Gray - - Public enablebordercorners As Boolean = False - - ' settings - Public closebtnsize As Size = New Size(22, 22) - Public rollbtnsize As Size = New Size(22, 22) - Public minbtnsize As Size = New Size(22, 22) - Public titlebarheight As Integer = 30 - Public closebtnfromtop As Integer = 5 - Public closebtnfromside As Integer = 2 - Public rollbtnfromtop As Integer = 5 - Public rollbtnfromside As Integer = 26 - Public minbtnfromtop As Integer = 5 - Public minbtnfromside As Integer = 52 - Public borderwidth As Integer = 2 - Public enablecorners As Boolean = False - Public titlebarcornerwidth As Integer = 5 - Public titleiconfromside As Integer = 4 - Public titleiconfromtop As Integer = 4 - 'colours - Public titlebarcolour As Color = Color.Gray - Public borderleftcolour As Color = Color.Gray - Public borderrightcolour As Color = Color.Gray - Public borderbottomcolour As Color = Color.Gray - Public closebtncolour As Color = Color.Black - Public closebtnhovercolour As Color = Color.Black - Public closebtnclickcolour As Color = Color.Black - Public rollbtncolour As Color = Color.Black - Public rollbtnhovercolour As Color = Color.Black - Public rollbtnclickcolour As Color = Color.Black - Public minbtncolour As Color = Color.Black - Public minbtnhovercolour As Color = Color.Black - Public minbtnclickcolour As Color = Color.Black - Public rightcornercolour As Color = Color.Gray - Public leftcornercolour As Color = Color.Gray - ' Text - Public titletextfontfamily As String = "Microsoft Sans Serif" - Public titletextfontsize As Integer = 10 - Public titletextfontstyle As String = FontStyle.Bold - Public titletextpos As String = "Left" - Public titletextfromtop As Integer = 3 - Public titletextfromside As Integer = 24 - Public titletextcolour As Color = Color.White - - 'DESKTOP - Public desktoppanelcolour As Color = Color.Gray - Public desktopbackgroundcolour As Color - Public desktoppanelheight As Integer = 24 - Public desktoppanelposition As String = "Top" - Public clocktextcolour As Color = Color.Black - Public clockbackgroundcolor As Color = Color.Gray - Public panelclocktexttop As Integer = 3 - Public panelclocktextsize As Integer = 10 - Public panelclocktextfont As String = "Byington" - Public panelclocktextstyle As FontStyle = FontStyle.Bold - Public applauncherbuttoncolour As Color = Color.Gray - Public applauncherbuttonclickedcolour As Color = Color.Gray - Public applauncherbackgroundcolour As Color = Color.Gray - Public applaunchermouseovercolour As Color = Color.Gray - Public applicationsbuttontextcolour As Color = Color.Black - Public applicationbuttonheight As Integer = 24 - Public applicationbuttontextsize As Integer = 10 - Public applicationbuttontextfont As String = "Byington" - Public applicationbuttontextstyle As FontStyle = FontStyle.Bold - Public applicationlaunchername As String = "Applications" - Public titletextposition As String = "Left" - Public applaunchermenuholderwidth As Integer = 100 - Public panelbuttonicontop As Integer = 3 - Public panelbuttoniconside As Integer = 4 - Public panelbuttoniconsize As Integer = 16 - Public panelbuttonheight As Integer = 20 - Public panelbuttonwidth As Integer = 185 - Public panelbuttoncolour As Color = Color.Black - Public panelbuttontextcolour As Color = Color.White - Public panelbuttontextsize As Integer = 10 - Public panelbuttontextfont As String = "Byington" - Public panelbuttontextstyle As FontStyle = FontStyle.Regular - Public panelbuttontextside As Integer = 16 - Public panelbuttontexttop As Integer = 2 - Public panelbuttongap As Integer = 4 - Public panelbuttonfromtop As Integer = 2 - Public panelbuttoninitialgap As Integer = 8 - - Public launcheritemsize As Integer = 10 - Public launcheritemfont As String = "Byington" - Public launcheritemstyle As FontStyle = FontStyle.Regular - Public launcheritemcolour As Color = Color.Black - - ' Images - Public desktoppanel As Image = Nothing - Public desktoppanellayout As String = 3 - Public desktopbackground As Image = Nothing - Public desktopbackgroundlayout As String = 3 - Public panelclock As Image = Nothing - Public panelclocklayout As String = 3 - Public applaunchermouseover As Image = Nothing - Public applauncher As Image = Nothing - Public applauncherlayout As String = 3 - Public applauncherclick As Image = Nothing - Public panelbutton As Image = Nothing - Public panelbuttonlayout As String = 3 - - 'Below is all for the Desktop Icons patch. - - Public enabledraggableicons As Boolean = True - Public icontextcolor As Color = Color.White - Public showicons As Boolean = True - Public iconview1 As View = View.LargeIcon - Public iconview2 As View = View.Tile - - 'DevX's Advanced App Launcher (coded by The Ultimate Hacker) - - Public topBarHeight As Integer = 50 - Public bottomBarHeight As Integer = 50 - Public placesSide As String = "Left" - Public startHeight As Integer = 526 - Public startWidth As Integer = 320 - Public shutdownstring As String = "Shut Down ShiftOS" - Public userNamePosition = "Middle, Right" - Public recentIconsHorizontal As Boolean = False - Public usernametextcolor As Color = Color.White - Public usernamefont As String = "Trebuchet MS" - Public usernamefontsize As Integer = 12 - Public usernamefontstyle As FontStyle = FontStyle.Bold - Public userNamePanelBackgroundColor As Color = Color.Gray - Public userNamePanelBackground As Image - Public powerPanelBackgroundColor As Color = Color.Gray - Public powerPanelBackgroundImage As Image - Public shutdownTextColor As Color = Color.White - Public shutdownTextFont As String = "Trebuchet MS" - Public shutdownTextSize As Integer = 12 - Public shutdownTextStyle As FontStyle = FontStyle.Italic - Public usrPanelBackgroundLayout As ImageLayout = ImageLayout.Stretch - Public pwrPanelBackgroundLayout As ImageLayout = ImageLayout.Stretch - Public useClassicAppLauncher As Boolean = True - - - '0.0.9 ALPHA 2 - - 'Login Screen - - Public autologin As Boolean = True - Public fullScreen As Boolean = False - Public inputfont As String = "Trebuchet MS" - Public inputfontsize As Integer = 12 - Public inputfontstyle As FontStyle = FontStyle.Regular - Public inputforecolor As Color = Color.Gray - Public inputbackcolor As Color = Color.Black - Public buttonfont As String = "Trebuchet MS" - Public buttonfontsize As Integer = 12 - Public buttonfontstyle As FontStyle = FontStyle.Italic - - Public userimagesize As Integer = 128 - Public userimagelocation As Point = New Point(36, 202) - Public userimage As Image - Public userimagelayout As ImageLayout = ImageLayout.Stretch - - Public loginbg As Image - Public loginbgcolor As Color = Color.Black - Public loginbglayout As ImageLayout = ImageLayout.Stretch - - 'Locations... - - Public userTextboxX As Integer = 171 - Public userTextBoxY As Integer = 202 - Public passTextBoxX As Integer = 171 - Public passTextBoxY As Integer = 243 - Public loginbtnX As Integer = 268 - Public loginbtnY As Integer = 286 - Public shutdownbtnX As Integer = 1755 - Public shutdownbtnY As Integer = 979 - - - Private Function GetImage(ByVal fileName As String) As Bitmap - Dim ret As Bitmap - Using img As Image = Image.FromFile(fileName) - ret = New Bitmap(img) - End Using - Return ret - End Function - -#End Region - - ' LOAD SKIN FROM SKN FILE - Public Sub loadsknfile(ByVal filepath As String) - 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(loadedskin & "userpic") Then - userimage = GetImage(loadedskin & "userpic") - End If - If File.Exists(loadedskin & "loginbg") Then - loginbg = GetImage(loadedskin & "loginbg") - End If - If File.Exists(loadedskin & "userbar") Then - userNamePanelBackground = GetImage(loadedskin & "userbar") - End If - If File.Exists(loadedskin & "powerbar") Then - powerPanelBackgroundImage = GetImage(loadedskin & "powerbar") - End If - If File.Exists(loadedskin & "titlebar") Then - titlebar = GetImage(loadedskin & "titlebar") - Else : titlebar = Nothing - End If - If File.Exists(loadedskin & "borderleft") Then - borderleft = GetImage(loadedskin & "borderleft") - Else : borderleft = Nothing - End If - If File.Exists(loadedskin & "borderright") Then - borderright = GetImage(loadedskin & "borderright".Clone) - Else : borderright = Nothing - End If - If File.Exists(loadedskin & "borderbottom") Then - borderbottom = GetImage(loadedskin & "borderbottom".Clone) - Else : borderbottom = Nothing - End If - If File.Exists(loadedskin & "closebtn") Then - closebtn = GetImage(loadedskin & "closebtn".Clone) - Else : closebtn = Nothing - End If - If File.Exists(loadedskin & "closebtnhover") Then - closebtnhover = GetImage(loadedskin & "closebtnhover".Clone) - Else : closebtnhover = Nothing - End If - If File.Exists(loadedskin & "closebtnclick") Then - closebtnclick = GetImage(loadedskin & "closebtnclick".Clone) - Else : closebtnclick = Nothing - End If - If File.Exists(loadedskin & "rollbtn") Then - rollbtn = GetImage(loadedskin & "rollbtn".Clone) - Else : rollbtn = Nothing - End If - If File.Exists(loadedskin & "rollbtnhover") Then - rollbtnhover = GetImage(loadedskin & "rollbtnhover".Clone) - Else : rollbtnhover = Nothing - End If - If File.Exists(loadedskin & "rollbtnclick") Then - rollbtnclick = GetImage(loadedskin & "rollbtnclick".Clone) - Else : rollbtnclick = Nothing - End If - If File.Exists(loadedskin & "minbtn") Then - minbtn = GetImage(loadedskin & "minbtn".Clone) - Else : minbtn = Nothing - End If - If File.Exists(loadedskin & "minbtnhover") Then - minbtnhover = GetImage(loadedskin & "minbtnhover".Clone) - Else : minbtnhover = Nothing - End If - If File.Exists(loadedskin & "minbtnclick") Then - minbtnclick = GetImage(loadedskin & "minbtnclick".Clone) - Else : minbtnclick = Nothing - End If - If File.Exists(loadedskin & "rightcorner") Then - rightcorner = GetImage(loadedskin & "rightcorner".Clone) - Else : rightcorner = Nothing - End If - If File.Exists(loadedskin & "leftcorner") Then - leftcorner = GetImage(loadedskin & "leftcorner".Clone) - Else : leftcorner = Nothing - End If - If File.Exists(loadedskin & "desktoppanel") Then - desktoppanel = GetImage(loadedskin & "desktoppanel".Clone) - Else : desktoppanel = Nothing - End If - If File.Exists(loadedskin & "desktopbackground") Then - desktopbackground = GetImage(loadedskin & "desktopbackground".Clone) - Else : desktopbackground = Nothing - End If - If File.Exists(loadedskin & "panelbutton") Then - panelbutton = GetImage(loadedskin & "panelbutton".Clone) - Else : panelbutton = Nothing - End If - If File.Exists(loadedskin & "applaunchermouseover") Then - applaunchermouseover = GetImage(loadedskin & "applaunchermouseover".Clone) - Else : applaunchermouseover = Nothing - End If - If File.Exists(loadedskin & "applauncher") Then - applauncher = GetImage(loadedskin & "applauncher".Clone) - Else : applauncher = Nothing - End If - If File.Exists(loadedskin & "applauncherclick") Then - applauncherclick = GetImage(loadedskin & "applauncherclick".Clone) - Else : applauncherclick = Nothing - End If - If File.Exists(loadedskin & "panelclock") Then - panelclock = GetImage(loadedskin & "panelclock".Clone) - Else : panelclock = Nothing - End If - If File.Exists(loadedskin & "bottomleftcorner") Then - bottomleftcorner = GetImage(loadedskin & "bottomleftcorner".Clone) - Else : bottomleftcorner = Nothing - End If - 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(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 - - ' 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) - - '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) - 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) - If loaddata(135) = "" Then autologin = True Else autologin = loaddata(135) - If loaddata(136) = "" Then fullScreen = False Else fullScreen = loaddata(136) - If loaddata(137) = "" Then inputfont = "Trebuchet MS" Else inputfont = loaddata(137) - If loaddata(138) = "" Then inputfontsize = 12 Else inputfontsize = loaddata(138) - If loaddata(139) = "" Then inputfontstyle = FontStyle.Regular Else inputfontstyle = loaddata(139) - If loaddata(140) = "" Then inputforecolor = Color.Gray Else inputforecolor = Color.FromArgb(loaddata(140)) - If loaddata(141) = "" Then inputbackcolor = Color.Black Else inputbackcolor = Color.FromArgb(loaddata(141)) - If loaddata(142) = "" Then buttonfont = "Trebuchet MS" Else buttonfont = loaddata(142) - If loaddata(143) = "" Then buttonfontsize = 12 Else buttonfontsize = loaddata(143) - If loaddata(144) = "" Then buttonfontstyle = FontStyle.Italic Else buttonfontstyle = loaddata(144) - If loaddata(145) = "" Then userimagesize = 128 Else userimagesize = loaddata(145) - If loaddata(146) = "" And loaddata(147) = "" Then userimagelocation = New Point(36, 202) Else userimagelocation = New Point(loaddata(146), loaddata(147)) - If loaddata(148) = "" Then userimagelayout = ImageLayout.Stretch Else userimagelayout = loaddata(148) - If loaddata(149) = "" Then loginbgcolor = Color.Black Else loginbgcolor = Color.FromArgb(loaddata(149)) - If loaddata(150) = "" Then loginbglayout = ImageLayout.Stretch Else loginbglayout = loaddata(150) - - 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 - End If - Catch ex As Exception - End Try - applyskin() - End Sub - ' SET SKIN - Public Sub applyskin() - ShiftOSDesktop.addtitlebars() - ShiftOSDesktop.setupdesktop() - End Sub - ' SAVE TO SKN FILE - Public Sub saveskin(ByVal path As String) - If Not File.Exists(path) Then - 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(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(Paths.loadedskin) Then - Directory.Delete(Paths.loadedskin) - End If - Directory.CreateDirectory(Paths.loadedskin) - saveimage(titlebar, "titlebar") - saveimage(borderleft, "borderleft") - saveimage(borderright, "borderright") - saveimage(borderbottom, "borderbottom") - saveimage(closebtn, "closebtn") - saveimage(closebtnhover, "closebtnhover") - saveimage(closebtnclick, "closebtnclick") - saveimage(rollbtn, "rollbtn") - saveimage(rollbtnhover, "rollbtnhover") - saveimage(rollbtnclick, "rollbtnclick") - saveimage(minbtn, "minbtn") - saveimage(minbtnhover, "minbtnhover") - saveimage(minbtnclick, "minbtnclick") - saveimage(rightcorner, "rightcorner") - saveimage(leftcorner, "leftcorner") - saveimage(desktoppanel, "desktoppanel") - saveimage(desktopbackground, "desktopbackground") - saveimage(panelclock, "panelclock") - saveimage(applaunchermouseover, "applaunchermouseover") - saveimage(applauncher, "applauncher") - saveimage(applauncherclick, "applauncherclick") - saveimage(panelbutton, "panelbutton") - saveimage(bottomleftcorner, "bottomleftcorner") - saveimage(bottomrightcorner, "bottomrightcorner") - saveimage(userNamePanelBackground, "userbar") - saveimage(powerPanelBackgroundImage, "powerbar") - saveimage(userimage, "userpic") - saveimage(loginbg, "loginbg") - 'save settings to dat file - Dim savedata(200) As String - ' setting and colour as saved in the order they are declared, image's are saved in sepporate preset files, - ' image layout options are saved at the end of file - savedata(0) = "ShiftOS skin data - Beware: Editing may result in skinning errors" - savedata(2) = closebtnsize.Height - savedata(1) = closebtnsize.Width - savedata(4) = rollbtnsize.Height - savedata(3) = rollbtnsize.Width - savedata(6) = minbtnsize.Height - savedata(5) = minbtnsize.Width - savedata(7) = titlebarheight - savedata(8) = closebtnfromtop - savedata(9) = closebtnfromside - savedata(10) = rollbtnfromtop - savedata(11) = rollbtnfromside - savedata(12) = minbtnfromtop - savedata(13) = minbtnfromside - savedata(14) = borderwidth - savedata(15) = enablecorners - savedata(16) = titlebarcornerwidth - savedata(17) = titleiconfromside - savedata(18) = titleiconfromtop - savedata(19) = titlebarcolour.ToArgb - savedata(20) = borderleftcolour.ToArgb - savedata(21) = borderrightcolour.ToArgb - savedata(22) = borderbottomcolour.ToArgb - savedata(23) = closebtncolour.ToArgb - savedata(24) = closebtnhovercolour.ToArgb - savedata(25) = closebtnclickcolour.ToArgb - savedata(26) = rollbtncolour.ToArgb - savedata(27) = rollbtnhovercolour.ToArgb - savedata(28) = rollbtnclickcolour.ToArgb - savedata(29) = minbtncolour.ToArgb - savedata(30) = minbtnhovercolour.ToArgb - savedata(31) = minbtnclickcolour.ToArgb - savedata(32) = rightcornercolour.ToArgb - savedata(33) = leftcornercolour.ToArgb - savedata(34) = bottomrightcornercolour.ToArgb - savedata(35) = bottomleftcornercolour.ToArgb - savedata(36) = titletextfontfamily - savedata(37) = titletextfontsize - savedata(38) = titletextfontstyle - savedata(39) = titletextpos - savedata(40) = titletextfromtop - savedata(41) = titletextfromside - savedata(42) = titletextcolour.ToArgb - savedata(43) = desktoppanelcolour.ToArgb - savedata(44) = desktopbackgroundcolour.ToArgb - savedata(45) = desktoppanelheight - savedata(46) = desktoppanelposition - savedata(47) = clocktextcolour.ToArgb - savedata(48) = clockbackgroundcolor.ToArgb - savedata(49) = panelclocktexttop - savedata(50) = panelclocktextsize - savedata(51) = panelclocktextfont - savedata(52) = panelclocktextstyle - savedata(53) = applauncherbuttoncolour.ToArgb - savedata(54) = applauncherbuttonclickedcolour.ToArgb - savedata(55) = applauncherbackgroundcolour.ToArgb - savedata(56) = applaunchermouseovercolour.ToArgb - savedata(57) = applicationsbuttontextcolour.ToArgb - savedata(58) = applicationbuttonheight - savedata(59) = applicationbuttontextsize - savedata(60) = applicationbuttontextfont - savedata(61) = applicationbuttontextstyle - savedata(62) = applicationlaunchername - savedata(63) = titletextposition - savedata(64) = applaunchermenuholderwidth - savedata(65) = panelbuttonicontop - savedata(66) = panelbuttoniconside - savedata(67) = panelbuttoniconsize - savedata(68) = panelbuttonheight - savedata(69) = panelbuttonwidth - savedata(70) = panelbuttoncolour.ToArgb - savedata(71) = panelbuttontextcolour.ToArgb - savedata(72) = panelbuttontextsize - savedata(73) = panelbuttontextfont - savedata(74) = panelbuttontextstyle - savedata(75) = panelbuttontextside - savedata(76) = panelbuttontexttop - savedata(77) = panelbuttongap - savedata(78) = panelbuttonfromtop - savedata(79) = panelbuttoninitialgap - 'Image layout options - savedata(89) = titlebarlayout - savedata(90) = borderleftlayout - savedata(91) = borderrightlayout - savedata(92) = borderbottomlayout - savedata(93) = closebtnlayout - savedata(94) = rollbtnlayout - savedata(95) = minbtnlayout - savedata(96) = rightcornerlayout - savedata(97) = leftcornerlayout - savedata(98) = desktoppanellayout - savedata(99) = desktopbackgroundlayout - savedata(100) = panelclocklayout - savedata(101) = applauncherlayout - savedata(102) = panelbuttonlayout - savedata(103) = bottomleftcornerlayout - savedata(104) = bottomrightcornerlayout - - savedata(105) = launcheritemcolour.ToArgb - savedata(106) = launcheritemfont - savedata(107) = launcheritemsize - savedata(108) = launcheritemstyle - savedata(109) = enablebordercorners - savedata(110) = enabledraggableicons - savedata(111) = icontextcolor.ToArgb - savedata(112) = showicons - savedata(113) = iconview1 - savedata(114) = topBarHeight - savedata(115) = bottomBarHeight - savedata(116) = placesSide - savedata(117) = startHeight - savedata(118) = startWidth - savedata(119) = shutdownstring - savedata(120) = userNamePosition - savedata(121) = recentIconsHorizontal - savedata(122) = usernametextcolor.ToArgb - savedata(123) = usernamefont - savedata(124) = usernamefontsize - savedata(125) = usernamefontstyle - savedata(126) = userNamePanelBackgroundColor.ToArgb - savedata(127) = powerPanelBackgroundColor.ToArgb - savedata(128) = shutdownTextColor.ToArgb - savedata(129) = shutdownTextFont - savedata(130) = shutdownTextSize - savedata(131) = shutdownTextStyle - savedata(132) = usrPanelBackgroundLayout - savedata(133) = pwrPanelBackgroundLayout - savedata(134) = useClassicAppLauncher - savedata(135) = autologin - savedata(136) = fullScreen - savedata(137) = inputfont - savedata(138) = inputfontsize - savedata(139) = inputfontstyle - savedata(140) = inputforecolor.ToArgb - savedata(141) = inputbackcolor.ToArgb - savedata(142) = buttonfont - savedata(143) = buttonfontsize - savedata(144) = buttonfontstyle - savedata(145) = userimagesize - savedata(146) = userimagelocation.X - savedata(147) = userimagelocation.Y - savedata(148) = userimagelayout - savedata(149) = loginbgcolor.ToArgb - savedata(150) = loginbglayout - - - ' 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(Paths.loadedskin & "data.dat", savedata) - If apply = True Then - applyskin() - End If - End Sub - Public Sub setupdefaults() - titlebar = Nothing - titlebarlayout = 3 - borderleft = Nothing - borderleftlayout = 3 - borderright = Nothing - borderrightlayout = 3 - borderbottom = Nothing - borderbottomlayout = 3 - closebtn = Nothing - closebtnlayout = 3 - closebtnhover = Nothing - closebtnclick = Nothing - rollbtn = Nothing - rollbtnlayout = 3 - rollbtnhover = Nothing - rollbtnclick = Nothing - minbtn = Nothing - minbtnlayout = 3 - minbtnhover = Nothing - minbtnclick = Nothing - rightcorner = Nothing - rightcornerlayout = 3 - leftcorner = Nothing - leftcornerlayout = 3 - bottomleftcorner = Nothing - bottomleftcornerlayout = 3 - bottomrightcorner = Nothing - bottomrightcornerlayout = 3 - bottomleftcornercolour = Color.Gray - bottomrightcornercolour = Color.Gray - enablebordercorners = False - closebtnsize = New Size(22, 22) - rollbtnsize = New Size(22, 22) - minbtnsize = New Size(22, 22) - titlebarheight = 30 - closebtnfromtop = 5 - closebtnfromside = 2 - rollbtnfromtop = 5 - rollbtnfromside = 26 - minbtnfromtop = 5 - minbtnfromside = 52 - borderwidth = 2 - enablecorners = False - titlebarcornerwidth = 5 - titleiconfromside = 4 - titleiconfromtop = 4 - titlebarcolour = Color.Gray - borderleftcolour = Color.Gray - borderrightcolour = Color.Gray - borderbottomcolour = Color.Gray - closebtncolour = Color.Black - closebtnhovercolour = Color.Black - closebtnclickcolour = Color.Black - rollbtncolour = Color.Black - rollbtnhovercolour = Color.Black - rollbtnclickcolour = Color.Black - minbtncolour = Color.Black - minbtnhovercolour = Color.Black - minbtnclickcolour = Color.Black - rightcornercolour = Color.Gray - leftcornercolour = Color.Gray - titletextfontfamily = "Microsoft Sans Serif" - titletextfontsize = 10 - titletextfontstyle = FontStyle.Bold - titletextpos = "Left" - titletextfromtop = 3 - titletextfromside = 24 - titletextcolour = Color.White - desktoppanelcolour = Color.Gray - desktopbackgroundcolour = Color.Black - desktoppanelheight = 24 - desktoppanelposition = "Top" - clocktextcolour = Color.Black - clockbackgroundcolor = Color.Gray - panelclocktexttop = 3 - panelclocktextsize = 10 - panelclocktextfont = "Byington" - panelclocktextstyle = FontStyle.Bold - applauncherbuttoncolour = Color.Gray - applauncherbuttonclickedcolour = Color.Gray - applauncherbackgroundcolour = Color.Gray - applaunchermouseovercolour = Color.Gray - applicationsbuttontextcolour = Color.Black - applicationbuttonheight = 24 - applicationbuttontextsize = 10 - applicationbuttontextfont = "Byington" - applicationbuttontextstyle = FontStyle.Bold - applicationlaunchername = "Applications" - titletextposition = "Left" - applaunchermenuholderwidth = 100 - panelbuttonicontop = 3 - panelbuttoniconside = 4 - panelbuttoniconsize = 16 - panelbuttonheight = 20 - panelbuttonwidth = 185 - panelbuttoncolour = Color.Black - panelbuttontextcolour = Color.White - panelbuttontextsize = 10 - panelbuttontextfont = "Byington" - panelbuttontextstyle = FontStyle.Regular - panelbuttontextside = 16 - panelbuttontexttop = 2 - panelbuttongap = 4 - panelbuttonfromtop = 2 - panelbuttoninitialgap = 8 - launcheritemsize = 10 - launcheritemfont = "Byington" - launcheritemstyle = FontStyle.Regular - launcheritemcolour = Color.Black - desktoppanel = Nothing - desktoppanellayout = 3 - desktopbackground = Nothing - desktopbackgroundlayout = 3 - panelclock = Nothing - panelclocklayout = 3 - applaunchermouseover = Nothing - applauncher = Nothing - applauncherlayout = 3 - applauncherclick = Nothing - panelbutton = Nothing - panelbuttonlayout = 3 - enabledraggableicons = True - End Sub - Private Sub saveimage(ByVal img As Image, ByVal name As String) - If Not IsNothing(img) Then - If File.Exists(loadedskin & name) Then File.Delete(loadedskin & name) - Try - img.Save(loadedskin & name, System.Drawing.Imaging.ImageFormat.Png) - Catch ex As Exception - 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(loadedskin & name) Then File.Delete(loadedskin & name) - End If - End Sub -End Module
\ No newline at end of file |