Finish the VB skin converter
This commit is contained in:
Michael
parent
e7731fb58a
commit
7edc0f10bb
3 changed files with 377 additions and 218 deletions
|
|
@ -1,217 +1,256 @@
|
|||
Imports System.IO
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
Imports ShiftOS.Engine
|
||||
|
||||
Module Skins
|
||||
|
||||
Public Class Skins
|
||||
#Region "Declarations"
|
||||
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
|
||||
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
|
||||
' 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 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
|
||||
|
||||
Public enablebordercorners As Boolean = False
|
||||
Public Shared 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
|
||||
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
|
||||
'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
|
||||
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
|
||||
' 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
|
||||
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
|
||||
|
||||
'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 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 launcheritemsize As Integer = 10
|
||||
Public launcheritemfont As String = "Byington"
|
||||
Public launcheritemstyle As FontStyle = FontStyle.Regular
|
||||
Public launcheritemcolour As Color = Color.Black
|
||||
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
|
||||
|
||||
' 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
|
||||
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
|
||||
|
||||
'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
|
||||
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
|
||||
|
||||
'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
|
||||
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
|
||||
|
||||
|
||||
'0.0.9 ALPHA 2
|
||||
|
||||
'Login Screen
|
||||
|
||||
Public autologin As Boolean = True
|
||||
Public fullScreen As Boolean = False
|
||||
Public inputfont As String = "Trebuchet MS"
|
||||
Public inputfontsize As Integer = 12
|
||||
Public inputfontstyle As FontStyle = FontStyle.Regular
|
||||
Public inputforecolor As Color = Color.Gray
|
||||
Public inputbackcolor As Color = Color.Black
|
||||
Public buttonfont As String = "Trebuchet MS"
|
||||
Public buttonfontsize As Integer = 12
|
||||
Public buttonfontstyle As FontStyle = FontStyle.Italic
|
||||
Public 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 userimagesize As Integer = 128
|
||||
Public userimagelocation As Point = New Point(36, 202)
|
||||
Public userimage As Image
|
||||
Public userimagelayout As ImageLayout = ImageLayout.Stretch
|
||||
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 loginbg As Image
|
||||
Public loginbgcolor As Color = Color.Black
|
||||
Public loginbglayout As ImageLayout = ImageLayout.Stretch
|
||||
Public Shared loginbg As Image
|
||||
Public Shared loginbgcolor As Color = Color.Black
|
||||
Public Shared loginbglayout As ImageLayout = ImageLayout.Stretch
|
||||
|
||||
'Locations...
|
||||
|
||||
Public userTextboxX As Integer = 171
|
||||
Public userTextBoxY As Integer = 202
|
||||
Public passTextBoxX As Integer = 171
|
||||
Public passTextBoxY As Integer = 243
|
||||
Public loginbtnX As Integer = 268
|
||||
Public loginbtnY As Integer = 286
|
||||
Public shutdownbtnX As Integer = 1755
|
||||
Public shutdownbtnY As Integer = 979
|
||||
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
|
||||
|
||||
|
||||
Private Function GetImage(ByVal fileName As String) As Bitmap
|
||||
Console.WriteLine("Couldn't find layout of ID " + id + ". Assuming a tile layout.")
|
||||
Return ImageLayout.Tile
|
||||
End Function
|
||||
|
||||
Private Shared Function GetImage(ByVal fileName As String) As Bitmap
|
||||
Dim ret As Bitmap
|
||||
Using img As Image = Image.FromFile(fileName)
|
||||
ret = New Bitmap(img)
|
||||
|
|
@ -224,7 +263,7 @@ Module Skins
|
|||
Const loadedskin As String = "temp_skn/"
|
||||
|
||||
' LOAD SKIN FROM SAVE FOLDER
|
||||
Public Sub loadimages()
|
||||
Public Shared Sub loadimages()
|
||||
If File.Exists(loadedskin & "userpic") Then
|
||||
userimage = GetImage(loadedskin & "userpic")
|
||||
End If
|
||||
|
|
@ -502,4 +541,4 @@ Module Skins
|
|||
|
||||
End If
|
||||
End Sub
|
||||
End Module
|
||||
End Class
|
||||
|
|
@ -37,58 +37,179 @@ Public Class SkinConverterCommands
|
|||
|
||||
ZipFile.ExtractToDirectory("temp.skn", "temp_skn")
|
||||
Console.WriteLine("Extracted skin... loading it now.")
|
||||
loadimages()
|
||||
Skins.loadimages()
|
||||
Dim skn = New Skin()
|
||||
|
||||
'Get images.
|
||||
|
||||
Console.Write("Processing images...")
|
||||
skn.DesktopBackgroundImage = SaveImageToBinary(desktopbackground)
|
||||
skn.DesktopPanelBackground = SaveImageToBinary(desktoppanel)
|
||||
skn.CloseButtonImage = SaveImageToBinary(closebtn)
|
||||
skn.MaximizeButtonImage = SaveImageToBinary(rollbtn)
|
||||
skn.MinimizeButtonImage = SaveImageToBinary(minbtn)
|
||||
skn.PanelButtonBG = SaveImageToBinary(panelbutton)
|
||||
skn.AppLauncherImage = SaveImageToBinary(applauncher)
|
||||
skn.TitleBarBackground = SaveImageToBinary(titlebar)
|
||||
skn.TitleLeftCornerWidth = titlebarcornerwidth
|
||||
skn.TitleRightCornerWidth = titlebarcornerwidth
|
||||
skn.DesktopBackgroundImage = SaveImageToBinary(Skins.desktopbackground)
|
||||
skn.DesktopPanelBackground = SaveImageToBinary(Skins.desktoppanel)
|
||||
skn.CloseButtonImage = SaveImageToBinary(Skins.closebtn)
|
||||
skn.MaximizeButtonImage = SaveImageToBinary(Skins.rollbtn)
|
||||
skn.MinimizeButtonImage = SaveImageToBinary(Skins.minbtn)
|
||||
skn.PanelButtonBG = SaveImageToBinary(Skins.panelbutton)
|
||||
skn.AppLauncherImage = SaveImageToBinary(Skins.applauncher)
|
||||
skn.TitleBarBackground = SaveImageToBinary(Skins.titlebar)
|
||||
skn.TitleLeftCornerWidth = Skins.titlebarcornerwidth
|
||||
skn.TitleRightCornerWidth = Skins.titlebarcornerwidth
|
||||
skn.ShowTitleCorners = True 'I don't know what the legacy version of this is.
|
||||
skn.TitleLeftBG = SaveImageToBinary(leftcorner)
|
||||
skn.TitleRightBG = SaveImageToBinary(rightcorner)
|
||||
skn.LeftBorderBG = SaveImageToBinary(borderleft)
|
||||
skn.RightBorderBG = SaveImageToBinary(borderright)
|
||||
skn.BottomBorderBG = SaveImageToBinary(borderbottom)
|
||||
skn.BottomLBorderBG = SaveImageToBinary(bottomleftcorner)
|
||||
skn.BottomRBorderBG = SaveImageToBinary(bottomrightcorner)
|
||||
skn.TitleLeftBG = SaveImageToBinary(Skins.leftcorner)
|
||||
skn.TitleRightBG = SaveImageToBinary(Skins.rightcorner)
|
||||
skn.LeftBorderBG = SaveImageToBinary(Skins.borderleft)
|
||||
skn.RightBorderBG = SaveImageToBinary(Skins.borderright)
|
||||
skn.BottomBorderBG = SaveImageToBinary(Skins.borderbottom)
|
||||
skn.BottomLBorderBG = SaveImageToBinary(Skins.bottomleftcorner)
|
||||
skn.BottomRBorderBG = SaveImageToBinary(Skins.bottomrightcorner)
|
||||
|
||||
Console.WriteLine(" ...done.")
|
||||
|
||||
Console.Write("Converting desktop settings...")
|
||||
|
||||
skn.AppLauncherText = Skins.applicationlaunchername
|
||||
skn.AppLauncherHolderSize = New Size(applaunchermenuholderwidth, desktoppanelheight)
|
||||
skn.AppLauncherHolderSize = New Size(Skins.applaunchermenuholderwidth, Skins.desktoppanelheight)
|
||||
skn.AppLauncherFromLeft = New Point(0, 0)
|
||||
skn.DesktopPanelHeight = desktoppanelheight
|
||||
Select Case desktoppanelposition
|
||||
skn.DesktopPanelHeight = Skins.desktoppanelheight
|
||||
Select Case Skins.desktoppanelposition
|
||||
Case "Top"
|
||||
skn.DesktopPanelPosition = 0
|
||||
Case "Bottom"
|
||||
skn.DesktopPanelPosition = 1
|
||||
End Select
|
||||
skn.DesktopPanelColor = desktoppanelcolour
|
||||
skn.DesktopPanelClockBackgroundColor = clockbackgroundcolor
|
||||
skn.DesktopPanelClockColor = clocktextcolour
|
||||
skn.DesktopPanelClockFont = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle)
|
||||
skn.PanelButtonColor = panelbuttoncolour
|
||||
skn.PanelButtonTextColor = panelbuttontextcolour
|
||||
skn.PanelButtonFont = New Font(panelbuttontextfont, panelbuttontextsize, panelbuttontextstyle)
|
||||
skn.PanelButtonHolderFromLeft = panelbuttoninitialgap
|
||||
skn.PanelButtonSize = New Size(panelbuttonwidth, panelbuttonheight)
|
||||
skn.PanelButtonFromLeft = New Point(panelbuttongap, panelbuttonfromtop)
|
||||
skn.DesktopPanelColor = Skins.desktoppanelcolour
|
||||
skn.DesktopPanelClockBackgroundColor = Skins.clockbackgroundcolor
|
||||
skn.DesktopPanelClockColor = Skins.clocktextcolour
|
||||
skn.DesktopPanelClockFont = New Font(Skins.panelclocktextfont, Skins.panelclocktextsize, Skins.panelclocktextstyle)
|
||||
skn.PanelButtonColor = Skins.panelbuttoncolour
|
||||
skn.PanelButtonTextColor = Skins.panelbuttontextcolour
|
||||
skn.PanelButtonFont = New Font(Skins.panelbuttontextfont, Skins.panelbuttontextsize, Skins.panelbuttontextstyle)
|
||||
skn.PanelButtonHolderFromLeft = skn.AppLauncherHolderSize.Width + Skins.panelbuttoninitialgap
|
||||
skn.PanelButtonSize = New Size(Skins.panelbuttonwidth, Skins.panelbuttonheight)
|
||||
skn.PanelButtonFromLeft = New Point(Skins.panelbuttongap, Skins.panelbuttonfromtop)
|
||||
skn.DesktopPanelClockFromRight = New Point(0, 0)
|
||||
skn.DesktopColor = Skins.desktopbackgroundcolour
|
||||
|
||||
Console.WriteLine(" ...done")
|
||||
Console.Write("Creating new menu color scheme from App Launcher settings...")
|
||||
|
||||
skn.Menu_TextColor = Skins.applicationsbuttontextcolour
|
||||
skn.Menu_SelectedTextColor = skn.Menu_TextColor
|
||||
skn.Menu_MenuBorder = Skins.applauncherbuttoncolour
|
||||
skn.Menu_MenuItemBorder = skn.Menu_MenuBorder
|
||||
skn.Menu_ToolStripDropDownBackground = skn.Menu_MenuItemBorder
|
||||
skn.Menu_ImageMarginGradientBegin = skn.Menu_ToolStripDropDownBackground
|
||||
skn.Menu_ImageMarginGradientMiddle = skn.Menu_ToolStripDropDownBackground
|
||||
skn.Menu_ImageMarginGradientEnd = skn.Menu_ToolStripDropDownBackground
|
||||
skn.Menu_MenuStripGradientBegin = skn.Menu_ImageMarginGradientBegin
|
||||
skn.Menu_MenuStripGradientEnd = skn.Menu_ImageMarginGradientBegin
|
||||
skn.Menu_ToolStripBorder = skn.Menu_MenuBorder
|
||||
skn.Menu_CheckBackground = skn.Menu_MenuBorder
|
||||
skn.Menu_MenuItemSelected = Skins.applaunchermouseovercolour
|
||||
skn.Menu_MenuItemPressedGradientBegin = Skins.applauncherbuttonclickedcolour
|
||||
skn.Menu_MenuItemSelectedGradientBegin = skn.Menu_MenuItemSelected
|
||||
skn.Menu_MenuItemSelectedGradientEnd = skn.Menu_MenuItemSelected
|
||||
skn.Menu_MenuItemPressedGradientMiddle = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_MenuItemPressedGradientEnd = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_RaftingContainerGradientBegin = skn.Menu_MenuStripGradientBegin
|
||||
skn.Menu_RaftingContainerGradientEnd = skn.Menu_MenuStripGradientBegin
|
||||
skn.Menu_ButtonCheckedGradientBegin = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonCheckedGradientMiddle = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonCheckedGradientEnd = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonCheckedHighlightBorder = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonCheckedHighlight = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonPressedGradientBegin = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonPressedGradientMiddle = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonPressedGradientEnd = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonPressedHighlightBorder = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonPressedHighlight = skn.Menu_MenuItemPressedGradientBegin
|
||||
skn.Menu_ButtonSelectedBorder = skn.Menu_MenuItemSelected
|
||||
skn.Menu_ButtonSelectedGradientBegin = skn.Menu_MenuItemSelected
|
||||
skn.Menu_ButtonSelectedGradientMiddle = skn.Menu_MenuItemSelected
|
||||
skn.Menu_ButtonSelectedGradientEnd = skn.Menu_MenuItemSelected
|
||||
skn.Menu_ButtonSelectedHighlight = skn.Menu_MenuItemSelected
|
||||
skn.Menu_ButtonSelectedHighlightBorder = skn.Menu_MenuItemSelected
|
||||
skn.Menu_SeparatorDark = skn.Menu_TextColor
|
||||
skn.Menu_SeparatorLight = skn.Menu_TextColor
|
||||
skn.Menu_ToolStripBorder = skn.Menu_MenuBorder
|
||||
skn.Menu_ToolStripGradientBegin = skn.Menu_MenuBorder
|
||||
skn.Menu_ToolStripGradientEnd = skn.Menu_MenuBorder
|
||||
skn.Menu_ToolStripContentPanelGradientBegin = skn.Menu_MenuBorder
|
||||
skn.Menu_ToolStripContentPanelGradientEnd = skn.Menu_MenuBorder
|
||||
|
||||
Console.WriteLine(" ...done")
|
||||
|
||||
Console.Write("Setting up image layouts... ")
|
||||
|
||||
Dim type = skn.GetType()
|
||||
For Each member As System.Reflection.FieldInfo In type.GetFields(System.Reflection.BindingFlags.Public Or System.Reflection.BindingFlags.Instance)
|
||||
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 skn.SkinImageLayouts.ContainsKey(image.Name) Then
|
||||
skn.SkinImageLayouts(image.Name) = Skins.GetLayout(image.Name)
|
||||
Else
|
||||
skn.SkinImageLayouts.Add(image.Name, Skins.GetLayout(image.Name))
|
||||
End If
|
||||
|
||||
Catch
|
||||
|
||||
End Try
|
||||
Next
|
||||
Next
|
||||
|
||||
Console.WriteLine(" ...done.")
|
||||
|
||||
Console.Write("Converting window settings...")
|
||||
|
||||
skn.TitlebarHeight = Skins.titlebarheight
|
||||
skn.TitleTextColor = Skins.titletextcolour
|
||||
skn.TitleBackgroundColor = Skins.titlebarcolour
|
||||
skn.TitleRightCornerBackground = Skins.rightcornercolour
|
||||
skn.TitleLeftCornerBackground = Skins.leftcornercolour
|
||||
skn.TitleFont = New Font(Skins.titletextfontfamily, CType(Skins.titletextfontsize, Single), CType(Skins.titletextfontstyle, FontStyle))
|
||||
skn.TitleTextLeft = New Point(Skins.titletextfromside, Skins.titletextfromtop)
|
||||
Select Case Skins.titletextpos
|
||||
Case "Left"
|
||||
skn.TitleTextCentered = False
|
||||
Case "Centre"
|
||||
skn.TitleTextCentered = True
|
||||
End Select
|
||||
skn.CloseButtonColor = Skins.closebtncolour
|
||||
skn.MinimizeButtonColor = Skins.minbtncolour
|
||||
skn.MaximizeButtonColor = Skins.rollbtncolour
|
||||
skn.CloseButtonSize = Skins.closebtnsize
|
||||
skn.MinimizeButtonSize = Skins.minbtnsize
|
||||
skn.MaximizeButtonSize = Skins.rollbtnsize
|
||||
skn.CloseButtonFromSide = New Point(Skins.closebtnfromside, Skins.closebtnfromtop)
|
||||
skn.MaximizeButtonFromSide = New Point(Skins.rollbtnfromside, Skins.rollbtnfromtop)
|
||||
skn.MinimizeButtonFromSide = New Point(Skins.minbtnfromside, Skins.minbtnfromtop)
|
||||
skn.BorderLeftBackground = Skins.borderleftcolour
|
||||
skn.BorderRightBackground = Skins.borderrightcolour
|
||||
skn.BorderBottomBackground = Skins.borderbottomcolour
|
||||
skn.BorderBottomLeftBackground = Skins.bottomleftcornercolour
|
||||
skn.BorderBottomRightBackground = Skins.bottomrightcornercolour
|
||||
skn.LeftBorderWidth = Skins.borderwidth
|
||||
skn.RightBorderWidth = Skins.borderwidth
|
||||
skn.BottomBorderWidth = Skins.borderwidth
|
||||
|
||||
Console.WriteLine(" ...done")
|
||||
Console.Write("Generating defaults for unknown values...")
|
||||
|
||||
skn.ControlColor = Color.White
|
||||
skn.ControlTextColor = Color.Black
|
||||
skn.MainFont = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular)
|
||||
skn.HeaderFont = New Font("Microsoft Sans Serif", 17.5, FontStyle.Regular)
|
||||
skn.Header2Font = New Font("Microsoft Sans Serif", 15, FontStyle.Regular)
|
||||
skn.Header3Font = New Font("Microsoft Sans Serif", 12.5, FontStyle.Regular)
|
||||
|
||||
skn.TerminalBackColor = Color.Black
|
||||
|
||||
Console.WriteLine(" ...done!")
|
||||
Console.WriteLine("Skin conversion complete.")
|
||||
|
||||
Utils.WriteAllText(output, skn.ToString())
|
||||
Infobox.Show("Skin converted!", "We have successfully converted your skin and saved it to " + output + ". Go ahead and load it!")
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@ Partial Class SkinConverter
|
|||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(397, 116)
|
||||
Me.Panel1.Size = New System.Drawing.Size(397, 183)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'txtin
|
||||
|
|
@ -60,9 +60,9 @@ Partial Class SkinConverter
|
|||
'
|
||||
'txtout
|
||||
'
|
||||
Me.txtout.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Me.txtout.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtout.Location = New System.Drawing.Point(81, 58)
|
||||
Me.txtout.Location = New System.Drawing.Point(81, 51)
|
||||
Me.txtout.Name = "txtout"
|
||||
Me.txtout.ReadOnly = True
|
||||
Me.txtout.Size = New System.Drawing.Size(221, 20)
|
||||
|
|
@ -79,9 +79,8 @@ Partial Class SkinConverter
|
|||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(14, 61)
|
||||
Me.Label2.Location = New System.Drawing.Point(17, 54)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(58, 13)
|
||||
Me.Label2.TabIndex = 3
|
||||
|
|
@ -99,8 +98,8 @@ Partial Class SkinConverter
|
|||
'
|
||||
'btnout
|
||||
'
|
||||
Me.btnout.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnout.Location = New System.Drawing.Point(308, 55)
|
||||
Me.btnout.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnout.Location = New System.Drawing.Point(308, 48)
|
||||
Me.btnout.Name = "btnout"
|
||||
Me.btnout.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnout.TabIndex = 5
|
||||
|
|
@ -112,7 +111,7 @@ Partial Class SkinConverter
|
|||
Me.btnconvert.Anchor = System.Windows.Forms.AnchorStyles.Bottom
|
||||
Me.btnconvert.AutoSize = True
|
||||
Me.btnconvert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.btnconvert.Location = New System.Drawing.Point(168, 84)
|
||||
Me.btnconvert.Location = New System.Drawing.Point(168, 151)
|
||||
Me.btnconvert.Name = "btnconvert"
|
||||
Me.btnconvert.Size = New System.Drawing.Size(54, 23)
|
||||
Me.btnconvert.TabIndex = 6
|
||||
|
|
@ -125,7 +124,7 @@ Partial Class SkinConverter
|
|||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Name = "SkinConverter"
|
||||
Me.Size = New System.Drawing.Size(397, 116)
|
||||
Me.Size = New System.Drawing.Size(397, 183)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
|
|
|||
Reference in a new issue