shiftos-archive/ShiftOS_TheReturn
1
0
Fork 0
mirror of https://git.alee14.me/shiftos-archive/ShiftOS_TheReturn.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
ShiftOS_TheReturn/ShiftOS.Modding.VB.LegacySkinConverter/LegacySkinEngine.vb

941 lines
42 KiB
VB.net
Raw Normal View History

First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Imports System.IO
Imports System.Drawing
Imports System.Windows.Forms
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Imports ShiftOS.Engine
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Class Skins
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
#Region "Declarations"
Dim firstrun As Boolean = True
'WINDOW SETTINGS/IMAGES
'images
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared titlebar As Image = Nothing
<Image("titlebar")>
Public Shared titlebarlayout As String = 3
Public Shared borderleft As Image = Nothing
<Image("leftborder")>
Public Shared borderleftlayout As String = 3
Public Shared borderright As Image = Nothing
<Image("rightborder")>
Public Shared borderrightlayout As String = 3
Public Shared borderbottom As Image = Nothing
<Image("bottomborder")>
Public Shared borderbottomlayout As String = 3
Public Shared closebtn As Image = Nothing
<Image("closebutton")>
Public Shared closebtnlayout As String = 3
Public Shared closebtnhover As Image = Nothing
Public Shared closebtnclick As Image = Nothing
Public Shared rollbtn As Image = Nothing
<Image("maximizebutton")>
Public Shared rollbtnlayout As String = 3
Public Shared rollbtnhover As Image = Nothing
Public Shared rollbtnclick As Image = Nothing
Public Shared minbtn As Image = Nothing
<Image("minimizebutton")>
Public Shared minbtnlayout As String = 3
Public Shared minbtnhover As Image = Nothing
Public Shared minbtnclick As Image = Nothing
Public Shared rightcorner As Image = Nothing
<Image("titleright")>
Public Shared rightcornerlayout As String = 3
Public Shared leftcorner As Image = Nothing
<Image("titleleft")>
Public Shared leftcornerlayout As String = 3
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
' Late entry: need to fix window code to include this
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared bottomleftcorner As Image = Nothing
<Image("bottomlborder")>
Public Shared bottomleftcornerlayout As String = 3
Public Shared bottomrightcorner As Image = Nothing
<Image("bottomrborder")>
Public Shared bottomrightcornerlayout As String = 3
Public Shared bottomleftcornercolour As Color = Color.Gray
Public Shared bottomrightcornercolour As Color = Color.Gray
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared enablebordercorners As Boolean = False
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
' settings
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared closebtnsize As Size = New Size(22, 22)
Public Shared rollbtnsize As Size = New Size(22, 22)
Public Shared minbtnsize As Size = New Size(22, 22)
Public Shared titlebarheight As Integer = 30
Public Shared closebtnfromtop As Integer = 5
Public Shared closebtnfromside As Integer = 2
Public Shared rollbtnfromtop As Integer = 5
Public Shared rollbtnfromside As Integer = 26
Public Shared minbtnfromtop As Integer = 5
Public Shared minbtnfromside As Integer = 52
Public Shared borderwidth As Integer = 2
Public Shared enablecorners As Boolean = False
Public Shared titlebarcornerwidth As Integer = 5
Public Shared titleiconfromside As Integer = 4
Public Shared titleiconfromtop As Integer = 4
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
'colours
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared titlebarcolour As Color = Color.Gray
Public Shared borderleftcolour As Color = Color.Gray
Public Shared borderrightcolour As Color = Color.Gray
Public Shared borderbottomcolour As Color = Color.Gray
Public Shared closebtncolour As Color = Color.Black
Public Shared closebtnhovercolour As Color = Color.Black
Public Shared closebtnclickcolour As Color = Color.Black
Public Shared rollbtncolour As Color = Color.Black
Public Shared rollbtnhovercolour As Color = Color.Black
Public Shared rollbtnclickcolour As Color = Color.Black
Public Shared minbtncolour As Color = Color.Black
Public Shared minbtnhovercolour As Color = Color.Black
Public Shared minbtnclickcolour As Color = Color.Black
Public Shared rightcornercolour As Color = Color.Gray
Public Shared leftcornercolour As Color = Color.Gray
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
' Text
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared titletextfontfamily As String = "Microsoft Sans Serif"
Public Shared titletextfontsize As Integer = 10
Public Shared titletextfontstyle As String = FontStyle.Bold
Public Shared titletextpos As String = "Left"
Public Shared titletextfromtop As Integer = 3
Public Shared titletextfromside As Integer = 24
Public Shared titletextcolour As Color = Color.White
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
'DESKTOP
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared desktoppanelcolour As Color = Color.Gray
Public Shared desktopbackgroundcolour As Color
Public Shared desktoppanelheight As Integer = 24
Public Shared desktoppanelposition As String = "Top"
Public Shared clocktextcolour As Color = Color.Black
Public Shared clockbackgroundcolor As Color = Color.Gray
Public Shared panelclocktexttop As Integer = 3
Public Shared panelclocktextsize As Integer = 10
Public Shared panelclocktextfont As String = "Byington"
Public Shared panelclocktextstyle As FontStyle = FontStyle.Bold
Public Shared applauncherbuttoncolour As Color = Color.Gray
Public Shared applauncherbuttonclickedcolour As Color = Color.Gray
Public Shared applauncherbackgroundcolour As Color = Color.Gray
Public Shared applaunchermouseovercolour As Color = Color.Gray
Public Shared applicationsbuttontextcolour As Color = Color.Black
Public Shared applicationbuttonheight As Integer = 24
Public Shared applicationbuttontextsize As Integer = 10
Public Shared applicationbuttontextfont As String = "Byington"
Public Shared applicationbuttontextstyle As FontStyle = FontStyle.Bold
Public Shared applicationlaunchername As String = "Applications"
Public Shared titletextposition As String = "Left"
Public Shared applaunchermenuholderwidth As Integer = 100
Public Shared panelbuttonicontop As Integer = 3
Public Shared panelbuttoniconside As Integer = 4
Public Shared panelbuttoniconsize As Integer = 16
Public Shared panelbuttonheight As Integer = 20
Public Shared panelbuttonwidth As Integer = 185
Public Shared panelbuttoncolour As Color = Color.Black
Public Shared panelbuttontextcolour As Color = Color.White
Public Shared panelbuttontextsize As Integer = 10
Public Shared panelbuttontextfont As String = "Byington"
Public Shared panelbuttontextstyle As FontStyle = FontStyle.Regular
Public Shared panelbuttontextside As Integer = 16
Public Shared panelbuttontexttop As Integer = 2
Public Shared panelbuttongap As Integer = 4
Public Shared panelbuttonfromtop As Integer = 2
Public Shared panelbuttoninitialgap As Integer = 8
Public Shared launcheritemsize As Integer = 10
Public Shared launcheritemfont As String = "Byington"
Public Shared launcheritemstyle As FontStyle = FontStyle.Regular
Public Shared launcheritemcolour As Color = Color.Black
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
' Images
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared desktoppanel As Image = Nothing
<Image("desktoppanel")>
Public Shared desktoppanellayout As String = 3
Public Shared desktopbackground As Image = Nothing
<Image("desktopbackground")>
Public Shared desktopbackgroundlayout As String = 3
Public Shared panelclock As Image = Nothing
<Image("panelclock")>
Public Shared panelclocklayout As String = 3
Public Shared applaunchermouseover As Image = Nothing
Public Shared applauncher As Image = Nothing
<Image("applauncher")>
Public Shared applauncherlayout As String = 3
Public Shared applauncherclick As Image = Nothing
Public Shared panelbutton As Image = Nothing
<Image("panelbutton")>
Public Shared panelbuttonlayout As String = 3
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
'Below is all for the Desktop Icons patch.
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared enabledraggableicons As Boolean = True
Public Shared icontextcolor As Color = Color.White
Public Shared showicons As Boolean = True
Public Shared iconview1 As View = View.LargeIcon
Public Shared iconview2 As View = View.Tile
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
'DevX's Advanced App Launcher (coded by The Ultimate Hacker)
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared topBarHeight As Integer = 50
Public Shared bottomBarHeight As Integer = 50
Public Shared placesSide As String = "Left"
Public Shared startHeight As Integer = 526
Public Shared startWidth As Integer = 320
Public Shared shutdownstring As String = "Shut Down ShiftOS"
Public Shared userNamePosition = "Middle, Right"
Public Shared recentIconsHorizontal As Boolean = False
Public Shared usernametextcolor As Color = Color.White
Public Shared usernamefont As String = "Trebuchet MS"
Public Shared usernamefontsize As Integer = 12
Public Shared usernamefontstyle As FontStyle = FontStyle.Bold
Public Shared userNamePanelBackgroundColor As Color = Color.Gray
Public Shared userNamePanelBackground As Image
Public Shared powerPanelBackgroundColor As Color = Color.Gray
Public Shared powerPanelBackgroundImage As Image
Public Shared shutdownTextColor As Color = Color.White
Public Shared shutdownTextFont As String = "Trebuchet MS"
Public Shared shutdownTextSize As Integer = 12
Public Shared shutdownTextStyle As FontStyle = FontStyle.Italic
Public Shared usrPanelBackgroundLayout As ImageLayout = ImageLayout.Stretch
Public Shared pwrPanelBackgroundLayout As ImageLayout = ImageLayout.Stretch
Public Shared useClassicAppLauncher As Boolean = True
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
'0.0.9 ALPHA 2
'Login Screen
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared autologin As Boolean = True
Public Shared fullScreen As Boolean = False
Public Shared inputfont As String = "Trebuchet MS"
Public Shared inputfontsize As Integer = 12
Public Shared inputfontstyle As FontStyle = FontStyle.Regular
Public Shared inputforecolor As Color = Color.Gray
Public Shared inputbackcolor As Color = Color.Black
Public Shared buttonfont As String = "Trebuchet MS"
Public Shared buttonfontsize As Integer = 12
Public Shared buttonfontstyle As FontStyle = FontStyle.Italic
Public Shared userimagesize As Integer = 128
Public Shared userimagelocation As Point = New Point(36, 202)
Public Shared userimage As Image
Public Shared userimagelayout As ImageLayout = ImageLayout.Stretch
Public Shared loginbg As Image
Public Shared loginbgcolor As Color = Color.Black
Public Shared loginbglayout As ImageLayout = ImageLayout.Stretch
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
'Locations...
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared userTextboxX As Integer = 171
Public Shared userTextBoxY As Integer = 202
Public Shared passTextBoxX As Integer = 171
Public Shared passTextBoxY As Integer = 243
Public Shared loginbtnX As Integer = 268
Public Shared loginbtnY As Integer = 286
Public Shared shutdownbtnX As Integer = 1755
Public Shared shutdownbtnY As Integer = 979
Public Shared Function GetLayout(id As String) As ImageLayout
Dim type = GetType(Skins)
For Each member As System.Reflection.FieldInfo In type.GetFields(System.Reflection.BindingFlags.Public Or System.Reflection.BindingFlags.Static)
For Each attribute As Attribute In member.GetCustomAttributes(False)
Try
Dim image As ImageAttribute = attribute
'WHY CAN'T WE HAVE A C#-LIKE Is OPERATOR, VB?
'I don't want to use a damn BODGE to check if my attribute is an ImageAttribute.
'Oh well.
If id = image.Name Then Return member.GetValue(Nothing)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Next
Next
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Console.WriteLine("Couldn't find layout of ID " + id + ". Assuming a tile layout.")
Return ImageLayout.Tile
End Function
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Private Shared Function GetImage(ByVal fileName As String) As Bitmap
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
If Not File.Exists(fileName) Then Return Nothing
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Dim ret As Bitmap
Using img As Image = Image.FromFile(fileName)
ret = New Bitmap(img)
End Using
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
Console.WriteLine(fileName)
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Return ret
End Function
#End Region
Const loadedskin As String = "temp_skn/"
' LOAD SKIN FROM SAVE FOLDER
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
Public Shared Sub loadimages()
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
setupdefaults()
skin converter work
2017-02-04 02:53:00 +00:00
If File.Exists(loadedskin + "startbutton.png") Then
applauncher = GetImage(loadedskin + "taskbar.png")
applauncherclick = GetImage(loadedskin + "taskbar.png")
applaunchermouseover = GetImage(loadedskin + "taskbar.png")
End If
If File.Exists(loadedskin + "taskbar.png") Then
desktoppanel = GetImage(loadedskin + "taskbar.png")
End If
If File.Exists(loadedskin + "background.png") Then
desktopbackground = GetImage(loadedskin + "background.png")
End If
If File.Exists(loadedskin + "borders.png") Then
borderleft = GetImage(loadedskin + "borders.png")
borderright = GetImage(loadedskin + "borders.png")
borderbottom = GetImage(loadedskin + "borders.png")
bottomleftcorner = GetImage(loadedskin + "borders.png")
bottomrightcorner = GetImage(loadedskin + "borders.png")
End If
If File.Exists(loadedskin + "closebutton.png") Then
closebtn = GetImage(loadedskin + "closebutton.png")
End If
If File.Exists(loadedskin + "minimizebutton.png") Then
minbtn = GetImage(loadedskin + "minimizebutton.png")
End If
If File.Exists(loadedskin + "panelbutton.png") Then
panelbutton = GetImage(loadedskin + "panelbutton.png")
End If
If File.Exists(loadedskin + "rollup.png") Then
rollbtn = GetImage(loadedskin + "rollup.png")
End If
If File.Exists(loadedskin + "titlebar.png") Then
titlebar = GetImage(loadedskin + "titlebar.png")
End If
If File.Exists(loadedskin + "titlebarleft.png") Then
leftcorner = GetImage(loadedskin + "titlebarleft.png")
End If
If File.Exists(loadedskin + "titlebarright.png") Then
rightcorner = GetImage(loadedskin + "titlebarright.png")
End If
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
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")
End If
If File.Exists(loadedskin & "borderleft") Then
borderleft = GetImage(loadedskin & "borderleft")
End If
If File.Exists(loadedskin & "borderright") Then
borderright = GetImage(loadedskin & "borderright".Clone)
End If
If File.Exists(loadedskin & "borderbottom") Then
borderbottom = GetImage(loadedskin & "borderbottom".Clone)
End If
If File.Exists(loadedskin & "closebtn") Then
closebtn = GetImage(loadedskin & "closebtn".Clone)
End If
If File.Exists(loadedskin & "closebtnhover") Then
closebtnhover = GetImage(loadedskin & "closebtnhover".Clone)
End If
If File.Exists(loadedskin & "closebtnclick") Then
closebtnclick = GetImage(loadedskin & "closebtnclick".Clone)
End If
If File.Exists(loadedskin & "rollbtn") Then
rollbtn = GetImage(loadedskin & "rollbtn".Clone)
End If
If File.Exists(loadedskin & "rollbtnhover") Then
rollbtnhover = GetImage(loadedskin & "rollbtnhover".Clone)
End If
If File.Exists(loadedskin & "rollbtnclick") Then
rollbtnclick = GetImage(loadedskin & "rollbtnclick".Clone)
End If
If File.Exists(loadedskin & "minbtn") Then
minbtn = GetImage(loadedskin & "minbtn".Clone)
End If
If File.Exists(loadedskin & "minbtnhover") Then
minbtnhover = GetImage(loadedskin & "minbtnhover".Clone)
End If
If File.Exists(loadedskin & "minbtnclick") Then
minbtnclick = GetImage(loadedskin & "minbtnclick".Clone)
End If
If File.Exists(loadedskin & "rightcorner") Then
rightcorner = GetImage(loadedskin & "rightcorner".Clone)
End If
If File.Exists(loadedskin & "leftcorner") Then
leftcorner = GetImage(loadedskin & "leftcorner".Clone)
End If
If File.Exists(loadedskin & "desktoppanel") Then
desktoppanel = GetImage(loadedskin & "desktoppanel".Clone)
End If
If File.Exists(loadedskin & "desktopbackground") Then
desktopbackground = GetImage(loadedskin & "desktopbackground".Clone)
End If
If File.Exists(loadedskin & "panelbutton") Then
panelbutton = GetImage(loadedskin & "panelbutton".Clone)
End If
If File.Exists(loadedskin & "applaunchermouseover") Then
applaunchermouseover = GetImage(loadedskin & "applaunchermouseover".Clone)
End If
If File.Exists(loadedskin & "applauncher") Then
applauncher = GetImage(loadedskin & "applauncher".Clone)
End If
If File.Exists(loadedskin & "applauncherclick") Then
applauncherclick = GetImage(loadedskin & "applauncherclick".Clone)
End If
If File.Exists(loadedskin & "panelclock") Then
panelclock = GetImage(loadedskin & "panelclock".Clone)
End If
If File.Exists(loadedskin & "bottomleftcorner") Then
bottomleftcorner = GetImage(loadedskin & "bottomleftcorner".Clone)
End If
If File.Exists(loadedskin & "bottomrightcorner") Then
bottomrightcorner = GetImage(loadedskin & "bottomrightcorner".Clone)
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
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
End If
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
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)
'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
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
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
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))
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
End If
Slight 0.0.7 compatibility in legacy skin converter.
2017-02-04 13:35:24 +00:00
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
First ever VB mod... it isn't going well.
2017-02-03 02:57:47 +00:00
End Sub
Finish the VB skin converter
2017-02-03 21:41:51 +00:00
End Class
Reference in a new issue Copy permalink