Slight 0.0.7 compatibility in legacy skin converter.

This commit is contained in:
Michael 2017-02-04 08:35:24 -05:00
parent 4127e74a36
commit 9aa2c1f03b

View file

@ -251,10 +251,13 @@ Public Class Skins
End Function
Private Shared Function GetImage(ByVal fileName As String) As Bitmap
If Not File.Exists(fileName) Then Return Nothing
Dim ret As Bitmap
Using img As Image = Image.FromFile(fileName)
ret = New Bitmap(img)
End Using
Console.WriteLine(fileName)
Return ret
End Function
@ -264,6 +267,8 @@ Public Class Skins
' LOAD SKIN FROM SAVE FOLDER
Public Shared Sub loadimages()
setupdefaults()
If File.Exists(loadedskin + "startbutton.png") Then
applauncher = GetImage(loadedskin + "taskbar.png")
applauncherclick = GetImage(loadedskin + "taskbar.png")
@ -272,9 +277,6 @@ Public Class Skins
If File.Exists(loadedskin + "taskbar.png") Then
desktoppanel = GetImage(loadedskin + "taskbar.png")
End If
If File.Exists(loadedskin + "time.png") Then
panelclock = GetImage(loadedskin + "time.png")
End If
If File.Exists(loadedskin + "background.png") Then
desktopbackground = GetImage(loadedskin + "background.png")
End If
@ -323,99 +325,75 @@ Public Class Skins
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
@ -429,161 +407,535 @@ Public Class Skins
Exit For
End If
Next
End If
' settings
If File.Exists(loadedskin + "skindata.dat") Then
LoadSkin007()
Return
End If
' settings
If File.Exists(loadedskin + "data.json") Then
'UH OH
Infobox.Show("Modern skin detected!", "You are attempting to convert a modern skin to a modern skin! Perhaps you mean to load it in Skin Loader?")
Return
End If
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)
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)
Try
If loaddata(114) = "" Then topBarHeight = 50 Else topBarHeight = loaddata(114)
Catch ex As Exception
topBarHeight = 50
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
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)
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)
End Sub
Else
Public Shared Sub LoadSkin007()
Dim loadlines = File.ReadAllLines(loadedskin + "skindata.dat")
titlebarcolour = Color.FromArgb(loadlines(0))
borderleftcolour = Color.FromArgb((loadlines(1)))
borderrightcolour = Color.FromArgb((loadlines(1)))
borderbottomcolour = Color.FromArgb((loadlines(1)))
bottomleftcornercolour = Color.FromArgb((loadlines(1)))
bottomrightcornercolour = Color.FromArgb((loadlines(1)))
borderwidth = (loadlines(2))
titlebarheight = (loadlines(3))
closebtncolour = Color.FromArgb((loadlines(4)))
closebtnsize = New Size(loadlines(5), loadlines(6))
closebtnfromside = (loadlines(7))
closebtnfromtop = (loadlines(8))
titletextcolour = Color.FromArgb((loadlines(9)))
titletextfromtop = (loadlines(10))
titletextfromside = (loadlines(11))
titletextfontsize = (loadlines(12))
titletextfontfamily = loadlines(13)
titletextfontstyle = CType((loadlines(14)), FontStyle)
desktoppanelcolour = Color.FromArgb((loadlines(15)))
desktopbackgroundcolour = Color.FromArgb((loadlines(16)))
desktoppanelheight = (loadlines(17))
desktoppanelposition = loadlines(18)
clocktextcolour = Color.FromArgb((loadlines(19)))
clockbackgroundcolor = Color.FromArgb((loadlines(20)))
panelclocktexttop = (loadlines(21))
panelclocktextsize = (loadlines(22))
panelclocktextfont = loadlines(23)
panelclocktextstyle = CType((loadlines(24)), FontStyle)
applauncherbuttoncolour = Color.FromArgb((loadlines(25)))
applauncherbuttonclickedcolour = Color.FromArgb((loadlines(26)))
applauncherbackgroundcolour = Color.FromArgb((loadlines(27)))
applaunchermouseovercolour = Color.FromArgb((loadlines(28)))
applicationsbuttontextcolour = Color.FromArgb((loadlines(29)))
applicationbuttonheight = (loadlines(30))
applicationbuttontextsize = (loadlines(31))
applicationbuttontextfont = loadlines(32)
applicationbuttontextstyle = CType((loadlines(33)), FontStyle)
applicationlaunchername = loadlines(34)
titletextposition = loadlines(35)
rollbtncolour = Color.FromArgb((loadlines(36)))
If Not loadlines(37) = "" AndAlso Not loadlines(38) = "" Then
rollbtnsize = New Size(loadlines(37), loadlines(38))
End If
If Not loadlines(39) = "" Then
rollbtnfromside = (loadlines(39))
End If
If Not loadlines(40) = "" Then
rollbtnfromtop = (loadlines(40))
End If
If Not loadlines(41) = "" Then
titleiconfromside = (loadlines(41))
End If
If Not loadlines(42) = "" Then
titleiconfromtop = (loadlines(42))
End If
If Not loadlines(44) = "" Then
titlebarcornerwidth = (loadlines(44))
End If
If Not loadlines(45) = "" Then
rightcornercolour = Color.FromArgb((loadlines(45)))
End If
If Not loadlines(46) = "" Then
leftcornercolour = Color.FromArgb((loadlines(46)))
End If
If Not loadlines(47) = "" Then
applaunchermenuholderwidth = (loadlines(47))
End If
If Not loadlines(48) = "" Then
borderleftcolour = Color.FromArgb((loadlines(48)))
End If
If Not loadlines(49) = "" Then
borderrightcolour = Color.FromArgb((loadlines(49)))
End If
If Not loadlines(50) = "" Then
borderbottomcolour = Color.FromArgb((loadlines(50)))
End If
If Not loadlines(51) = "" Then
bottomrightcornercolour = Color.FromArgb((loadlines(51)))
End If
If Not loadlines(52) = "" Then
bottomleftcornercolour = Color.FromArgb((loadlines(52)))
End If
If Not loadlines(53) = "" Then
panelbuttonicontop = (loadlines(53))
End If
If Not loadlines(54) = "" Then
panelbuttoniconside = (loadlines(54))
End If
If Not loadlines(55) = "" Then
panelbuttoniconsize = loadlines(55)
End If
If Not loadlines(57) = "" Then
panelbuttonheight = (loadlines(57))
End If
If Not loadlines(58) = "" Then
panelbuttonwidth = (loadlines(58))
End If
If Not loadlines(59) = "" Then
panelbuttoncolour = Color.FromArgb((loadlines(59)))
End If
If Not loadlines(60) = "" Then
panelbuttontextcolour = Color.FromArgb((loadlines(60)))
End If
If Not loadlines(61) = "" Then
panelbuttontextsize = (loadlines(61))
End If
If Not loadlines(62) = "" Then
panelbuttontextfont = loadlines(62)
End If
If Not loadlines(63) = "" Then
panelbuttontextstyle = CType((loadlines(63)), FontStyle)
End If
If Not loadlines(64) = "" Then
panelbuttontextside = (loadlines(64))
End If
If Not loadlines(65) = "" Then
panelbuttontexttop = (loadlines(65))
End If
If Not loadlines(66) = "" Then
panelbuttongap = (loadlines(66))
End If
If Not loadlines(67) = "" Then
panelbuttonfromtop = (loadlines(67))
End If
If Not loadlines(68) = "" Then
panelbuttoninitialgap = (loadlines(68))
End If
If Not loadlines(69) = "" Then
minbtncolour = Color.FromArgb((loadlines(69)))
End If
If Not loadlines(70) = "" AndAlso Not loadlines(71) = "" Then
minbtnsize = New Size(loadlines(70), loadlines(71))
End If
If Not loadlines(72) = "" Then
minbtnfromside = (loadlines(72))
End If
If Not loadlines(73) = "" Then
minbtnfromtop = (loadlines(73))
End If
Dim skinimages(50) As String
skinimages(0) = loadlines(100)
skinimages(1) = loadlines(101)
skinimages(2) = loadlines(102)
skinimages(3) = loadlines(103)
skinimages(4) = loadlines(104)
skinimages(5) = loadlines(105)
skinimages(6) = loadlines(106)
skinimages(7) = loadlines(107)
skinimages(8) = loadlines(108)
skinimages(9) = loadlines(109)
skinimages(10) = loadlines(110)
skinimages(11) = loadlines(111)
skinimages(12) = loadlines(112)
skinimages(13) = loadlines(113)
skinimages(14) = loadlines(114)
skinimages(15) = loadlines(115)
skinimages(16) = loadlines(116)
skinimages(17) = loadlines(117)
skinimages(18) = loadlines(118)
skinimages(19) = loadlines(119)
skinimages(20) = loadlines(120)
skinimages(21) = loadlines(121)
skinimages(22) = loadlines(122)
skinimages(23) = loadlines(123)
skinimages(24) = loadlines(124)
skinimages(25) = loadlines(125)
skinimages(26) = loadlines(126)
skinimages(27) = loadlines(127)
skinimages(28) = loadlines(128)
skinimages(29) = loadlines(129)
skinimages(30) = loadlines(130)
skinimages(31) = loadlines(131)
skinimages(32) = loadlines(132)
skinimages(33) = loadlines(133)
skinimages(34) = loadlines(134)
skinimages(35) = loadlines(135)
skinimages(36) = loadlines(136)
skinimages(37) = loadlines(137)
skinimages(38) = loadlines(138)
skinimages(39) = loadlines(139)
skinimages(40) = loadlines(140)
skinimages(41) = loadlines(141)
skinimages(42) = loadlines(142)
skinimages(43) = loadlines(143)
skinimages(44) = loadlines(144)
skinimages(45) = loadlines(145)
skinimages(46) = loadlines(146)
skinimages(47) = loadlines(147)
skinimages(48) = loadlines(148)
skinimages(49) = loadlines(149)
skinimages(50) = loadlines(150)
closebtn = GetImage(skinimages(0))
titlebar = GetImage(skinimages(3))
desktopbackground = GetImage(skinimages(6))
rollbtn = GetImage(skinimages(9))
rightcorner = GetImage(skinimages(12))
leftcorner = GetImage(skinimages(15))
desktoppanel = GetImage(skinimages(18))
panelclock = GetImage(skinimages(21))
applauncher = GetImage(skinimages(24))
borderleft = GetImage(skinimages(27))
borderright = GetImage(skinimages(30))
borderbottom = GetImage(skinimages(33))
bottomrightcorner = GetImage(skinimages(36))
bottomleftcorner = GetImage(skinimages(39))
minbtn = GetImage(skinimages(42))
End Sub
#If False Then
Public Sub setpreviewtocurrentskin()
Dim num2 As Integer
Dim num3 As Integer
Try
Me.prepnlpanelbutton.BackgroundImage = Me.skinpanelbutton(0)
Me.ApplicationsToolStripMenuItem.BackgroundImage = Me.skinapplauncherbutton(0)
Me.preclosebutton.BackgroundImage = Image.FromFile(Me.skinimages(0))
Me.pretitlebar.BackgroundImage = Image.FromFile(Me.skinimages(3))
Me.pnldesktoppreview.BackgroundImage = Image.FromFile(Me.skinimages(6))
Me.prerollupbutton.BackgroundImage = Image.FromFile(Me.skinimages(9))
Me.prepgtoprcorner.BackgroundImage = Image.FromFile(Me.skinimages(12))
Me.prepgtoplcorner.BackgroundImage = Image.FromFile(Me.skinimages(15))
Me.predesktoppanel.BackgroundImage = Image.FromFile(Me.skinimages(18))
Me.pretimepanel.BackgroundImage = Image.FromFile(Me.skinimages(21))
Me.ApplicationsToolStripMenuItem.BackgroundImage = Image.FromFile(Me.skinimages(24))
Me.prepgleft.BackgroundImage = Image.FromFile(Me.skinimages(27))
Me.prepgright.BackgroundImage = Image.FromFile(Me.skinimages(30))
Me.prepgbottom.BackgroundImage = Image.FromFile(Me.skinimages(33))
Me.prepgbottomrcorner.BackgroundImage = Image.FromFile(Me.skinimages(36))
Me.prepgbottomlcorner.BackgroundImage = Image.FromFile(Me.skinimages(39))
Me.preminimizebutton.BackgroundImage = Image.FromFile(Me.skinimages(42))
Me.prepnlpanelbutton.BackgroundImage = Image.FromFile(Me.skinimages(45))
Me.Invalidate()
End Try
End Sub
#End If
Public Shared 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
End Class