path: root/ShiftOS/skins.vb

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

    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 & "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)

        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")
        '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

        ' 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