shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-22 16:12:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
ShiftOS/Skin Loader.vb
ShiftOS 4caacce50c ShiftOS 
ShiftOS is a game about evolving an experimental operating system called
"ShiftOS" from a completely black and white text based command line
based OS to a fully graphical operating system filled with advanced
features and beautiful colours. The level of customization will exceed
the levels of real world operating systems
2015-03-07 22:31:31 +02:00

1019 lines
No EOL
58 KiB
VB.net
Raw Blame History

Public Class Skin_Loader
Public rolldownsize As Integer
Public oldbordersize As Integer
Public oldtitlebarheight As Integer
Public justopened As Boolean = False
Public needtorollback As Boolean = False
Public minimumsizewidth As Integer = 0
Public minimumsizeheight As Integer = 0
Public skinloaded As Boolean = False
Public savelines(200) As String
Public loadlines(200) As String
Public titlebarcolour As Color
Public windowbordercolour As Color
Public windowbordersize As Integer
Public titlebarheight As Integer
Public closebuttoncolour As Color
Public closebuttonheight As Integer
Public closebuttonwidth As Integer
Public closebuttonside As Integer
Public closebuttontop As Integer
Public titletextcolour As Color
Public titletexttop As Integer
Public titletextside As Integer
Public titletextsize As Integer
Public titletextfont As String
Public titletextstyle As FontStyle
Public desktoppanelcolour As Color
Public desktopbackgroundcolour As Color
Public desktoppanelheight As Integer
Public desktoppanelposition As String
Public clocktextcolour As Color
Public clockbackgroundcolor As Color
Public panelclocktexttop As Integer
Public panelclocktextsize As Integer
Public panelclocktextfont As String
Public panelclocktextstyle As FontStyle
Public applauncherbuttoncolour As Color
Public applauncherbuttonclickedcolour As Color
Public applauncherbackgroundcolour As Color
Public applaunchermouseovercolour As Color
Public applicationsbuttontextcolour As Color
Public applicationbuttonheight As Integer
Public applicationbuttontextsize As Integer
Public applicationbuttontextfont As String
Public applicationbuttontextstyle As FontStyle
Public applicationlaunchername As String
Public titletextposition As String
Public rollupbuttoncolour As Color
Public rollupbuttonheight As Integer
Public rollupbuttonwidth As Integer
Public rollupbuttonside As Integer
Public rollupbuttontop As Integer
Public titlebariconside As Integer
Public titlebaricontop As Integer
Public showwindowcorners As Boolean
Public titlebarcornerwidth As Integer
Public titlebarrightcornercolour As Color
Public titlebarleftcornercolour As Color
Public applaunchermenuholderwidth As Integer
Public windowborderleftcolour As Color
Public windowborderrightcolour As Color
Public windowborderbottomcolour As Color
Public windowborderbottomrightcolour As Color
Public windowborderbottomleftcolour As Color
Public panelbuttonicontop As Integer
Public panelbuttoniconside As Integer
Public panelbuttoniconsize As Integer
Public panelbuttonheight As Integer
Public panelbuttonwidth As Integer
Public panelbuttoncolour As Color
Public panelbuttontextcolour As Color
Public panelbuttontextsize As Integer
Public panelbuttontextfont As String
Public panelbuttontextstyle As FontStyle
Public panelbuttontextside As Integer
Public panelbuttontexttop As Integer
Public panelbuttongap As Integer
Public panelbuttonfromtop As Integer
Public panelbuttoninitialgap As Integer
Public minimizebuttoncolour As Color
Public minimizebuttonheight As Integer
Public minimizebuttonwidth As Integer
Public minimizebuttonside As Integer
Public minimizebuttontop As Integer
'skins
Public skinloaderskinimages(100) As String
Public skinloaderskinclosebutton(2) As Image
Public skinclosebuttonstyle As ImageLayout
Public skinloaderskintitlebar(2) As Image
Public skintitlebarstyle As ImageLayout
Public skinloaderskindesktopbackground(2) As Image
Public skindesktopbackgroundstyle As ImageLayout
Public skinloaderskinrollupbutton(2) As Image
Public skinrollupbuttonstyle As ImageLayout
Public skinloaderskintitlebarrightcorner(2) As Image
Public skintitlebarrightcornerstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskintitlebarleftcorner(2) As Image
Public skintitlebarleftcornerstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskindesktoppanel(2) As Image
Public skindesktoppanelstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskindesktoppaneltime(2) As Image
Public skindesktoppaneltimestyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinapplauncherbutton(2) As Image
Public skinapplauncherbuttonstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinwindowborderleft(2) As Image
Public skinwindowborderleftstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinwindowborderright(2) As Image
Public skinwindowborderrightstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinwindowborderbottom(2) As Image
Public skinwindowborderbottomstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinwindowborderbottomright(2) As Image
Public skinwindowborderbottomrightstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinwindowborderbottomleft(2) As Image
Public skinwindowborderbottomleftstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinpanelbutton(2) As Image
Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch
Public skinloaderskinminimizebutton(2) As Image
Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
setuptitlebar()
setupborders()
ShiftOSDesktop.setcolours()
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
determinevisibleobjects()
setskin()
ShiftOSDesktop.pnlpanelbuttonskinloader.SendToBack()
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonskinloader, ShiftOSDesktop.tbskinloadericon, ShiftOSDesktop.tbskinloadertext, True)
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
initialsetup()
setpreviewtocurrentskin()
End Sub
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'Make terminal appear
If e.KeyCode = Keys.T AndAlso e.Control Then
Terminal.Show()
Terminal.Visible = True
Terminal.BringToFront()
End If
'Movable Windows
If ShiftOSDesktop.boughtmovablewindows = True Then
If e.KeyCode = Keys.A AndAlso e.Control Then
e.Handled = True
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
End If
If e.KeyCode = Keys.D AndAlso e.Control Then
e.Handled = True
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
End If
If e.KeyCode = Keys.W AndAlso e.Control Then
e.Handled = True
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
End If
If e.KeyCode = Keys.S AndAlso e.Control Then
e.Handled = True
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
End If
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
End If
End Sub
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
' Handle Draggable Windows
If ShiftOSDesktop.boughtdraggablewindows = True Then
If e.Button = MouseButtons.Left Then
titlebar.Capture = False
lbtitletext.Capture = False
pnlicon.Capture = False
pgtoplcorner.Capture = False
pgtoprcorner.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
End If
End Sub
Public Sub setupborders()
If ShiftOSDesktop.boughtwindowborders = False Then
pgleft.Hide()
pgbottom.Hide()
pgright.Hide()
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
End If
End Sub
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
Me.Close()
End Sub
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me)
End Sub
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
End Sub
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
End Sub
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
rollupanddown()
End Sub
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
End Sub
Public Sub setuptitlebar()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = ShiftOSDesktop.windowbordersize
pgright.Width = ShiftOSDesktop.windowbordersize
pgbottom.Height = ShiftOSDesktop.windowbordersize
titlebar.Height = ShiftOSDesktop.titlebarheight
If justopened = True Then
Me.Size = New Size(476, 462) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
oldbordersize = ShiftOSDesktop.windowbordersize
oldtitlebarheight = ShiftOSDesktop.titlebarheight
justopened = False
Else
If Me.Visible = True Then
Me.Hide()
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
oldbordersize = ShiftOSDesktop.windowbordersize
oldtitlebarheight = ShiftOSDesktop.titlebarheight
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
Me.Show()
End If
End If
If ShiftOSDesktop.showwindowcorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
Else
pgtoplcorner.Hide()
pgtoprcorner.Hide()
End If
If ShiftOSDesktop.boughttitlebar = False Then
titlebar.Hide()
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
End If
If ShiftOSDesktop.boughttitletext = False Then
lbtitletext.Hide()
Else
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
lbtitletext.Text = ShiftOSDesktop.skinloadername
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
closebutton.Height = ShiftOSDesktop.closebuttonheight
closebutton.Width = ShiftOSDesktop.closebuttonwidth
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
Select Case ShiftOSDesktop.titletextposition
Case "Left"
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
End Select
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
Select Case ShiftOSDesktop.titletextposition
Case "Left"
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
End Select
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
End If
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.skinloadericontitlebar 'Replace with the correct icon for the program.
End If
End Sub
Public Sub rollupanddown()
If Me.Height = Me.titlebar.Height Then
pgleft.Show()
pgbottom.Show()
pgright.Show()
Me.Height = rolldownsize
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
Else
Me.MinimumSize = New Size(0, 0)
pgleft.Hide()
pgbottom.Hide()
pgright.Hide()
rolldownsize = Me.Height
Me.Height = Me.titlebar.Height
End If
End Sub
Public Sub setskin()
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
'remove background colour when image is present
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
End Sub
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
Me.Hide()
ShiftOSDesktop.setuppanelbuttons()
End Sub
'end of general setup
Private Sub initialsetup()
titlebarcolour = ShiftOSDesktop.titlebarcolour
windowbordercolour = ShiftOSDesktop.windowbordercolour
windowbordersize = ShiftOSDesktop.windowbordersize
titlebarheight = ShiftOSDesktop.titlebarheight
closebuttoncolour = ShiftOSDesktop.closebuttoncolour
closebuttonheight = ShiftOSDesktop.closebuttonheight
closebuttonwidth = ShiftOSDesktop.closebuttonwidth
closebuttontop = ShiftOSDesktop.closebuttontop
closebuttonside = ShiftOSDesktop.closebuttonside
titletextcolour = ShiftOSDesktop.titletextcolour
titletexttop = ShiftOSDesktop.titletexttop
titletextside = ShiftOSDesktop.titletextside
titletextsize = ShiftOSDesktop.titletextsize
titletextfont = ShiftOSDesktop.titletextfont
titletextstyle = ShiftOSDesktop.titletextstyle
desktoppanelcolour = ShiftOSDesktop.desktoppanelcolour
desktopbackgroundcolour = ShiftOSDesktop.desktopbackgroundcolour
desktoppanelheight = ShiftOSDesktop.desktoppanelheight
desktoppanelposition = ShiftOSDesktop.desktoppanelposition
clocktextcolour = ShiftOSDesktop.clocktextcolour
clockbackgroundcolor = ShiftOSDesktop.clockbackgroundcolor
panelclocktexttop = ShiftOSDesktop.panelclocktexttop
panelclocktextsize = ShiftOSDesktop.panelclocktextsize
panelclocktextfont = ShiftOSDesktop.panelclocktextfont
panelclocktextstyle = ShiftOSDesktop.panelclocktextstyle
applauncherbuttoncolour = ShiftOSDesktop.applauncherbuttoncolour
applauncherbuttonclickedcolour = ShiftOSDesktop.applauncherbuttonclickedcolour
applauncherbackgroundcolour = ShiftOSDesktop.applauncherbackgroundcolour
applaunchermouseovercolour = ShiftOSDesktop.applaunchermouseovercolour
applicationsbuttontextcolour = ShiftOSDesktop.applicationsbuttontextcolour
applicationbuttonheight = ShiftOSDesktop.applicationbuttonheight
applicationbuttontextsize = ShiftOSDesktop.applicationbuttontextsize
applicationbuttontextfont = ShiftOSDesktop.applicationbuttontextfont
applicationbuttontextstyle = ShiftOSDesktop.applicationbuttontextstyle
applicationlaunchername = ShiftOSDesktop.applicationlaunchername
titletextposition = ShiftOSDesktop.titletextposition
rollupbuttoncolour = ShiftOSDesktop.rollupbuttoncolour
rollupbuttonheight = ShiftOSDesktop.rollupbuttonheight
rollupbuttonwidth = ShiftOSDesktop.rollupbuttonwidth
rollupbuttonside = ShiftOSDesktop.rollupbuttonside
rollupbuttontop = ShiftOSDesktop.rollupbuttontop
titlebariconside = ShiftOSDesktop.titlebariconside
titlebaricontop = ShiftOSDesktop.titlebaricontop
titlebarcornerwidth = ShiftOSDesktop.titlebarcornerwidth
titlebarrightcornercolour = ShiftOSDesktop.titlebarrightcornercolour
titlebarleftcornercolour = ShiftOSDesktop.titlebarleftcornercolour
showwindowcorners = ShiftOSDesktop.showwindowcorners
applaunchermenuholderwidth = ShiftOSDesktop.applaunchermenuholderwidth
windowborderleftcolour = ShiftOSDesktop.windowborderleftcolour
windowborderrightcolour = ShiftOSDesktop.windowborderrightcolour
windowborderbottomcolour = ShiftOSDesktop.windowborderbottomcolour
windowborderbottomrightcolour = ShiftOSDesktop.windowborderbottomrightcolour
windowborderbottomleftcolour = ShiftOSDesktop.windowborderbottomleftcolour
panelbuttonicontop = ShiftOSDesktop.panelbuttonicontop
panelbuttoniconside = ShiftOSDesktop.panelbuttoniconside
panelbuttoniconsize = ShiftOSDesktop.panelbuttoniconsize
panelbuttoniconsize = ShiftOSDesktop.panelbuttoniconsize
panelbuttonheight = ShiftOSDesktop.panelbuttonheight
panelbuttonwidth = ShiftOSDesktop.panelbuttonwidth
panelbuttoncolour = ShiftOSDesktop.panelbuttoncolour
panelbuttontextcolour = ShiftOSDesktop.panelbuttontextcolour
panelbuttontextsize = ShiftOSDesktop.panelbuttontextsize
panelbuttontextfont = ShiftOSDesktop.panelbuttontextfont
panelbuttontextstyle = ShiftOSDesktop.panelbuttontextstyle
panelbuttontextside = ShiftOSDesktop.panelbuttontextside
panelbuttontexttop = ShiftOSDesktop.panelbuttontexttop
panelbuttongap = ShiftOSDesktop.panelbuttongap
panelbuttonfromtop = ShiftOSDesktop.panelbuttonfromtop
panelbuttoninitialgap = ShiftOSDesktop.panelbuttoninitialgap
minimizebuttoncolour = ShiftOSDesktop.minimizebuttoncolour
minimizebuttonheight = ShiftOSDesktop.minimizebuttonheight
minimizebuttonwidth = ShiftOSDesktop.minimizebuttonwidth
minimizebuttonside = ShiftOSDesktop.minimizebuttonside
minimizebuttontop = ShiftOSDesktop.minimizebuttontop
'skins
Array.Copy(ShiftOSDesktop.skinimages, skinloaderskinimages, skinloaderskinimages.Length)
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else skinloaderskinclosebutton(0) = ShiftOSDesktop.skinclosebutton(0).Clone
If ShiftOSDesktop.skinclosebutton(1) Is Nothing Then Else skinloaderskinclosebutton(1) = ShiftOSDesktop.skinclosebutton(1).Clone
If ShiftOSDesktop.skinclosebutton(2) Is Nothing Then Else skinloaderskinclosebutton(2) = ShiftOSDesktop.skinclosebutton(2).Clone
skinclosebuttonstyle = ShiftOSDesktop.skinclosebuttonstyle
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else skinloaderskintitlebar(0) = ShiftOSDesktop.skintitlebar(0).Clone
If ShiftOSDesktop.skintitlebar(1) Is Nothing Then Else skinloaderskintitlebar(1) = ShiftOSDesktop.skintitlebar(1).Clone
If ShiftOSDesktop.skintitlebar(2) Is Nothing Then Else skinloaderskintitlebar(2) = ShiftOSDesktop.skintitlebar(2).Clone
skintitlebarstyle = ShiftOSDesktop.skintitlebarstyle
If ShiftOSDesktop.skindesktopbackground(0) Is Nothing Then Else skinloaderskindesktopbackground(0) = ShiftOSDesktop.skindesktopbackground(0).Clone
If ShiftOSDesktop.skindesktopbackground(1) Is Nothing Then Else skinloaderskindesktopbackground(1) = ShiftOSDesktop.skindesktopbackground(1).Clone
If ShiftOSDesktop.skindesktopbackground(2) Is Nothing Then Else skinloaderskindesktopbackground(2) = ShiftOSDesktop.skindesktopbackground(2).Clone
skindesktopbackgroundstyle = ShiftOSDesktop.skindesktopbackgroundstyle
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else skinloaderskinrollupbutton(0) = ShiftOSDesktop.skinrollupbutton(0).Clone
If ShiftOSDesktop.skinrollupbutton(1) Is Nothing Then Else skinloaderskinrollupbutton(1) = ShiftOSDesktop.skinrollupbutton(1).Clone
If ShiftOSDesktop.skinrollupbutton(2) Is Nothing Then Else skinloaderskinrollupbutton(2) = ShiftOSDesktop.skinrollupbutton(2).Clone
skinrollupbuttonstyle = ShiftOSDesktop.skinrollupbuttonstyle
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else skinloaderskintitlebarrightcorner(0) = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
If ShiftOSDesktop.skintitlebarrightcorner(1) Is Nothing Then Else skinloaderskintitlebarrightcorner(1) = ShiftOSDesktop.skintitlebarrightcorner(1).Clone
If ShiftOSDesktop.skintitlebarrightcorner(2) Is Nothing Then Else skinloaderskintitlebarrightcorner(2) = ShiftOSDesktop.skintitlebarrightcorner(2).Clone
skintitlebarrightcornerstyle = ShiftOSDesktop.skintitlebarrightcornerstyle
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else skinloaderskintitlebarleftcorner(0) = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
If ShiftOSDesktop.skintitlebarleftcorner(1) Is Nothing Then Else skinloaderskintitlebarleftcorner(1) = ShiftOSDesktop.skintitlebarleftcorner(1).Clone
If ShiftOSDesktop.skintitlebarleftcorner(2) Is Nothing Then Else skinloaderskintitlebarleftcorner(2) = ShiftOSDesktop.skintitlebarleftcorner(2).Clone
skintitlebarleftcornerstyle = ShiftOSDesktop.skintitlebarleftcornerstyle
If ShiftOSDesktop.skindesktoppanel(0) Is Nothing Then Else skinloaderskindesktoppanel(0) = ShiftOSDesktop.skindesktoppanel(0).Clone
If ShiftOSDesktop.skindesktoppanel(1) Is Nothing Then Else skinloaderskindesktoppanel(1) = ShiftOSDesktop.skindesktoppanel(1).Clone
If ShiftOSDesktop.skindesktoppanel(2) Is Nothing Then Else skinloaderskindesktoppanel(2) = ShiftOSDesktop.skindesktoppanel(2).Clone
skindesktoppanelstyle = ShiftOSDesktop.skindesktoppanelstyle
If ShiftOSDesktop.skindesktoppaneltime(0) Is Nothing Then Else skinloaderskindesktoppaneltime(0) = ShiftOSDesktop.skindesktoppaneltime(0).Clone
If ShiftOSDesktop.skindesktoppaneltime(1) Is Nothing Then Else skinloaderskindesktoppaneltime(1) = ShiftOSDesktop.skindesktoppaneltime(1).Clone
If ShiftOSDesktop.skindesktoppaneltime(2) Is Nothing Then Else skinloaderskindesktoppaneltime(2) = ShiftOSDesktop.skindesktoppaneltime(2).Clone
skindesktoppaneltimestyle = ShiftOSDesktop.skindesktoppaneltimestyle
If ShiftOSDesktop.skinapplauncherbutton(0) Is Nothing Then Else skinloaderskinapplauncherbutton(0) = ShiftOSDesktop.skinapplauncherbutton(0).Clone
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then Else skinloaderskinapplauncherbutton(1) = ShiftOSDesktop.skinapplauncherbutton(1).Clone
If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then Else skinloaderskinapplauncherbutton(2) = ShiftOSDesktop.skinapplauncherbutton(2).Clone
skinapplauncherbuttonstyle = ShiftOSDesktop.skinapplauncherbuttonstyle
If ShiftOSDesktop.skinwindowborderleft(0) Is Nothing Then Else skinloaderskinwindowborderleft(0) = ShiftOSDesktop.skinwindowborderleft(0).Clone
If ShiftOSDesktop.skinwindowborderleft(1) Is Nothing Then Else skinloaderskinwindowborderleft(1) = ShiftOSDesktop.skinwindowborderleft(1).Clone
If ShiftOSDesktop.skinwindowborderleft(2) Is Nothing Then Else skinloaderskinwindowborderleft(2) = ShiftOSDesktop.skinwindowborderleft(2).Clone
skinwindowborderleftstyle = ShiftOSDesktop.skinwindowborderleftstyle
If ShiftOSDesktop.skinwindowborderright(0) Is Nothing Then Else skinloaderskinwindowborderright(0) = ShiftOSDesktop.skinwindowborderright(0).Clone
If ShiftOSDesktop.skinwindowborderright(1) Is Nothing Then Else skinloaderskinwindowborderright(1) = ShiftOSDesktop.skinwindowborderright(1).Clone
If ShiftOSDesktop.skinwindowborderright(2) Is Nothing Then Else skinloaderskinwindowborderright(2) = ShiftOSDesktop.skinwindowborderright(2).Clone
skinwindowborderrightstyle = ShiftOSDesktop.skinwindowborderrightstyle
If ShiftOSDesktop.skinwindowborderbottom(0) Is Nothing Then Else skinloaderskinwindowborderbottom(0) = ShiftOSDesktop.skinwindowborderbottom(0).Clone
If ShiftOSDesktop.skinwindowborderbottom(1) Is Nothing Then Else skinloaderskinwindowborderbottom(1) = ShiftOSDesktop.skinwindowborderbottom(1).Clone
If ShiftOSDesktop.skinwindowborderbottom(2) Is Nothing Then Else skinloaderskinwindowborderbottom(2) = ShiftOSDesktop.skinwindowborderbottom(2).Clone
skinwindowborderbottomstyle = ShiftOSDesktop.skinwindowborderbottomstyle
If ShiftOSDesktop.skinwindowborderbottomright(0) Is Nothing Then Else skinloaderskinwindowborderbottomright(0) = ShiftOSDesktop.skinwindowborderbottomright(0).Clone
If ShiftOSDesktop.skinwindowborderbottomright(1) Is Nothing Then Else skinloaderskinwindowborderbottomright(1) = ShiftOSDesktop.skinwindowborderbottomright(1).Clone
If ShiftOSDesktop.skinwindowborderbottomright(2) Is Nothing Then Else skinloaderskinwindowborderbottomright(2) = ShiftOSDesktop.skinwindowborderbottomright(2).Clone
skinwindowborderbottomrightstyle = ShiftOSDesktop.skinwindowborderbottomrightstyle
If ShiftOSDesktop.skinwindowborderbottomleft(0) Is Nothing Then Else skinloaderskinwindowborderbottomleft(0) = ShiftOSDesktop.skinwindowborderbottomleft(0).Clone
If ShiftOSDesktop.skinwindowborderbottomleft(1) Is Nothing Then Else skinloaderskinwindowborderbottomleft(1) = ShiftOSDesktop.skinwindowborderbottomleft(1).Clone
If ShiftOSDesktop.skinwindowborderbottomleft(2) Is Nothing Then Else skinloaderskinwindowborderbottomleft(2) = ShiftOSDesktop.skinwindowborderbottomleft(2).Clone
skinwindowborderbottomleftstyle = ShiftOSDesktop.skinwindowborderbottomleftstyle
If ShiftOSDesktop.skinpanelbutton(0) Is Nothing Then Else skinloaderskinpanelbutton(0) = ShiftOSDesktop.skinpanelbutton(0).Clone
If ShiftOSDesktop.skinpanelbutton(1) Is Nothing Then Else skinloaderskinpanelbutton(1) = ShiftOSDesktop.skinpanelbutton(1).Clone
If ShiftOSDesktop.skinpanelbutton(2) Is Nothing Then Else skinloaderskinpanelbutton(2) = ShiftOSDesktop.skinpanelbutton(2).Clone
skinpanelbuttonstyle = ShiftOSDesktop.skinpanelbuttonstyle
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else skinloaderskinminimizebutton(0) = ShiftOSDesktop.skinminimizebutton(0).Clone
If ShiftOSDesktop.skinminimizebutton(1) Is Nothing Then Else skinloaderskinminimizebutton(1) = ShiftOSDesktop.skinminimizebutton(1).Clone
If ShiftOSDesktop.skinminimizebutton(2) Is Nothing Then Else skinloaderskinminimizebutton(2) = ShiftOSDesktop.skinminimizebutton(2).Clone
skinminimizebuttonstyle = ShiftOSDesktop.skinminimizebuttonstyle
End Sub
Public Sub determinevisibleobjects()
If ShiftOSDesktop.boughttitlebar = True Then pretitlebar.Show() Else pretitlebar.Hide()
If ShiftOSDesktop.boughtwindowborders = True Then
prepgright.Show()
prepgleft.Show()
prepgbottom.Show()
Else
prepgright.Hide()
prepgleft.Hide()
prepgbottom.Hide()
End If
If ShiftOSDesktop.boughtclosebutton = True Then preclosebutton.Show() Else preclosebutton.Hide()
If ShiftOSDesktop.boughttitletext = True Then pretitletext.Show() Else pretitletext.Hide()
If ShiftOSDesktop.boughtdesktoppanel = True Then predesktoppanel.Show() Else predesktoppanel.Hide()
If ShiftOSDesktop.boughtdesktoppanelclock = True Then prepaneltimetext.Show() Else prepaneltimetext.Hide()
If ShiftOSDesktop.boughtapplaunchermenu = True Then preapplaunchermenuholder.Show() Else preapplaunchermenuholder.Hide()
If ShiftOSDesktop.boughtrollupbutton = True Then prerollupbutton.Show() Else prerollupbutton.Hide()
If ShiftOSDesktop.boughtknowledgeinputicon = True Then prepnlicon.Show() Else prepnlicon.Hide()
If ShiftOSDesktop.boughtpanelbuttons = True Then prepnlpanelbutton.Show() Else prepnlpanelbutton.Hide()
If ShiftOSDesktop.boughtminimizebutton = True Then preminimizebutton.Show() Else preminimizebutton.Hide()
End Sub
Public Sub setpreviewtocurrentskin()
ShiftOSDesktop.loadskinfiles()
pretitlebar.BackColor = titlebarcolour
prepgtoplcorner.BackColor = titlebarcolour
prepgtoprcorner.BackColor = titlebarcolour
prepgleft.BackColor = windowborderleftcolour
prepgright.BackColor = windowborderrightcolour
prepgbottom.BackColor = windowborderbottomcolour
prepgbottomlcorner.BackColor = windowborderbottomleftcolour
prepgbottomrcorner.BackColor = windowborderbottomrightcolour
pretitlebar.Height = titlebarheight
preclosebutton.BackColor = closebuttoncolour
preclosebutton.Height = closebuttonheight
preclosebutton.Width = closebuttonwidth
prepgleft.Width = windowbordersize
prepgright.Width = windowbordersize
prepgbottom.Height = windowbordersize
preminimizebutton.BackColor = minimizebuttoncolour
preminimizebutton.Height = minimizebuttonheight
preminimizebutton.Width = minimizebuttonwidth
Select Case titletextposition
Case "Left"
pretitletext.Location = New Point(titletextside, titletexttop)
Case "Centre"
pretitletext.Location = New Point((pretitlebar.Width / 2) - pretitletext.Width / 2, titletexttop)
End Select
pretitletext.ForeColor = titletextcolour
pretitletext.Font = New Font(titletextfont, titletextsize, titletextstyle)
pnldesktoppreview.BackColor = desktopbackgroundcolour
predesktoppanel.Height = desktoppanelheight
setclocktime()
prepaneltimetext.ForeColor = clocktextcolour
pretimepanel.BackColor = clockbackgroundcolor
prepaneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle)
prepaneltimetext.Location = New Point()
pretimepanel.Size = New Size(prepaneltimetext.Width + 3, pretimepanel.Height)
prepaneltimetext.Location = New Point(0, panelclocktexttop)
ApplicationsToolStripMenuItem.Text = applicationlaunchername
ApplicationsToolStripMenuItem.Font = New Font(applicationbuttontextfont, applicationbuttontextsize, applicationbuttontextstyle)
preapplaunchermenuholder.Size = ApplicationsToolStripMenuItem.Size
ToolStripManager.Renderer = New MyPreviewToolStripRenderer()
ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour
ApplicationsToolStripMenuItem.ForeColor = applicationsbuttontextcolour
preapplaunchermenuholder.Height = applicationbuttonheight
predesktopappmenu.Height = applicationbuttonheight
ApplicationsToolStripMenuItem.Height = applicationbuttonheight
prerollupbutton.BackColor = rollupbuttoncolour
prerollupbutton.Height = rollupbuttonheight
prerollupbutton.Width = rollupbuttonwidth
predesktoppanel.BackColor = desktoppanelcolour
pnldesktoppreview.BackColor = desktopbackgroundcolour
prepnlicon.Location = New Point(titlebariconside, titlebaricontop)
prepgtoplcorner.BackColor = titlebarleftcornercolour
prepgtoprcorner.BackColor = titlebarrightcornercolour
prepgtoplcorner.Width = titlebarcornerwidth
prepgtoprcorner.Width = titlebarcornerwidth
If ShiftOSDesktop.boughtpanelbuttons = True Then prepnlpanelbutton.Show()
pretbicon.Location = New Point(panelbuttoniconside, panelbuttonicontop)
pretbicon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize)
prepnlpanelbutton.Size = New Size(panelbuttonwidth, panelbuttonheight)
prepnlpanelbutton.BackColor = panelbuttoncolour
If skinloaderskinpanelbutton(0) Is Nothing Then Else prepnlpanelbutton.BackgroundImage = skinloaderskinpanelbutton(0)
prepnlpanelbutton.BackgroundImageLayout = skinpanelbuttonstyle
pretbctext.ForeColor = panelbuttontextcolour
pretbctext.Font = New Font(panelbuttontextfont, panelbuttontextsize, panelbuttontextstyle)
pretbctext.Location = New Point(panelbuttontextside, panelbuttontexttop)
prepnlpanelbuttonholder.Padding = New Padding(panelbuttoninitialgap, 0, 0, 0)
prepnlpanelbutton.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0)
If skinloaderskinpanelbutton(0) Is Nothing Then Else prepnlpanelbutton.BackColor = Color.Transparent
Select Case desktoppanelposition
Case "Top"
predesktoppanel.Dock = DockStyle.Top
predesktopappmenu.Dock = DockStyle.Top
Case "Bottom"
predesktoppanel.Dock = DockStyle.Bottom
predesktopappmenu.Dock = DockStyle.Bottom
End Select
If skinloaderskindesktoppanel(0) Is Nothing Then
predesktoppanel.BackColor = desktoppanelcolour
predesktoppanel.BackgroundImage = Nothing
prepnlpanelbuttonholder.BackgroundImage = Nothing
Else
predesktoppanel.BackgroundImage = skinloaderskindesktoppanel(0)
prepnlpanelbuttonholder.BackgroundImage = skinloaderskindesktoppanel(0)
predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle
predesktoppanel.BackColor = Color.Transparent
End If
If ShiftOSDesktop.boughtdesktoppanelclock = True Then
setclocktime()
prepaneltimetext.ForeColor = clocktextcolour
If skinloaderskindesktoppaneltime(0) Is Nothing Then
pretimepanel.BackColor = clockbackgroundcolor
Else
pretimepanel.BackColor = Color.Transparent
pretimepanel.BackgroundImage = skinloaderskindesktoppanel(0)
pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle
End If
prepaneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle)
pretimepanel.Size = New Size(prepaneltimetext.Width + 3, pretimepanel.Height)
prepaneltimetext.Location = New Point(0, panelclocktexttop)
pretimepanel.Show()
Else
pretimepanel.Hide()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
preclosebutton.Location = New Point(pretitlebar.Size.Width - closebuttonside - preclosebutton.Size.Width, closebuttontop)
prerollupbutton.Location = New Point(pretitlebar.Size.Width - rollupbuttonside - prerollupbutton.Size.Width, rollupbuttontop)
preminimizebutton.Location = New Point(pretitlebar.Size.Width - minimizebuttonside - preminimizebutton.Size.Width, minimizebuttontop)
Else
preclosebutton.Location = New Point(pretitlebar.Size.Width - closebuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - preclosebutton.Size.Width, closebuttontop)
prerollupbutton.Location = New Point(pretitlebar.Size.Width - rollupbuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - prerollupbutton.Size.Width, rollupbuttontop)
preminimizebutton.Location = New Point(pretitlebar.Size.Width - minimizebuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - preminimizebutton.Size.Width, minimizebuttontop)
End If
If showwindowcorners = True Then
prepgtoplcorner.Show()
prepgtoprcorner.Show()
Else
prepgtoplcorner.Hide()
prepgtoprcorner.Hide()
End If
preapplaunchermenuholder.Width = applaunchermenuholderwidth
predesktopappmenu.Width = applaunchermenuholderwidth
ApplicationsToolStripMenuItem.Width = applaunchermenuholderwidth
If skinloaderskinapplauncherbutton(0) Is Nothing Then
Else
ApplicationsToolStripMenuItem.BackColor = Color.Transparent
predesktopappmenu.BackColor = Color.Transparent
ApplicationsToolStripMenuItem.BackgroundImage = skinloaderskinapplauncherbutton(0)
ApplicationsToolStripMenuItem.Text = ""
End If
'skins
If skinloaderskinimages(0) = "" Then Else preclosebutton.BackgroundImage = GetImage(skinloaderskinimages(0))
preclosebutton.BackgroundImageLayout = skinclosebuttonstyle
If skinloaderskinimages(3) = "" Then Else pretitlebar.BackgroundImage = GetImage(skinloaderskinimages(3))
pretitlebar.BackgroundImageLayout = skintitlebarstyle
If skinloaderskinimages(6) = "" Then Else pnldesktoppreview.BackgroundImage = GetImage(skinloaderskinimages(6))
pnldesktoppreview.BackgroundImageLayout = skindesktopbackgroundstyle
If skinloaderskinimages(9) = "" Then Else prerollupbutton.BackgroundImage = GetImage(skinloaderskinimages(9))
prerollupbutton.BackgroundImageLayout = skinrollupbuttonstyle
If skinloaderskinimages(12) = "" Then Else prepgtoprcorner.BackgroundImage = GetImage(skinloaderskinimages(12))
prepgtoprcorner.BackgroundImageLayout = skintitlebarrightcornerstyle
If skinloaderskinimages(15) = "" Then Else prepgtoplcorner.BackgroundImage = GetImage(skinloaderskinimages(15))
prepgtoplcorner.BackgroundImageLayout = skintitlebarleftcornerstyle
If skinloaderskinimages(18) = "" Then Else predesktoppanel.BackgroundImage = GetImage(skinloaderskinimages(18))
If skinloaderskinimages(18) = "" Then Else prepnlpanelbuttonholder.BackgroundImage = GetImage(skinloaderskinimages(18))
predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle
prepnlpanelbuttonholder.BackgroundImageLayout = skindesktoppanelstyle
If skinloaderskinimages(21) = "" Then Else pretimepanel.BackgroundImage = GetImage(skinloaderskinimages(21))
pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle
If skinloaderskinimages(24) = "" Then Else ApplicationsToolStripMenuItem.BackgroundImage = GetImage(skinloaderskinimages(24))
ApplicationsToolStripMenuItem.BackgroundImageLayout = skinapplauncherbuttonstyle
If skinloaderskinimages(27) = "" Then Else prepgleft.BackgroundImage = GetImage(skinloaderskinimages(27))
prepgleft.BackgroundImageLayout = skinwindowborderleftstyle
If skinloaderskinimages(30) = "" Then Else prepgright.BackgroundImage = GetImage(skinloaderskinimages(30))
prepgright.BackgroundImageLayout = skinwindowborderrightstyle
If skinloaderskinimages(33) = "" Then Else prepgbottom.BackgroundImage = GetImage(skinloaderskinimages(33))
prepgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
If skinloaderskinimages(36) = "" Then Else prepgbottomrcorner.BackgroundImage = GetImage(skinloaderskinimages(36))
prepgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
If skinloaderskinimages(39) = "" Then Else prepgbottomlcorner.BackgroundImage = GetImage(skinloaderskinimages(39))
prepgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
prepgbottomlcorner.Height = windowbordersize
prepgbottomrcorner.Height = windowbordersize
If skinloaderskinimages(42) = "" Then Else preminimizebutton.BackgroundImage = GetImage(skinloaderskinimages(42))
preminimizebutton.BackgroundImageLayout = skinminimizebuttonstyle
If skinloaderskinimages(45) = "" Then Else prepnlpanelbutton.BackgroundImage = GetImage(skinloaderskinimages(45))
prepnlpanelbutton.BackgroundImageLayout = skinpanelbuttonstyle
'invisible backgrounds
If preclosebutton.BackgroundImage Is Nothing Then Else preclosebutton.BackColor = Color.Transparent
If pretitlebar.BackgroundImage Is Nothing Then Else pretitlebar.BackColor = Color.Transparent
If prerollupbutton.BackgroundImage Is Nothing Then Else prerollupbutton.BackColor = Color.Transparent
If prepgtoplcorner.BackgroundImage Is Nothing Then Else prepgtoplcorner.BackColor = Color.Transparent
If prepgtoprcorner.BackgroundImage Is Nothing Then Else prepgtoprcorner.BackColor = Color.Transparent
ShiftOSDesktop.loadskinfiles()
ShiftOSDesktop.setupdesktop()
ShiftOSDesktop.setupskins()
Me.Invalidate()
End Sub
Private Function GetImage(ByVal fileName As String) As Bitmap
Dim ret As Bitmap
Using img As Image = Image.FromFile(fileName)
ret = New Bitmap(img)
End Using
Return ret
End Function
Private Sub saveskintofile()
File_Saver.savingprogram = "skinloader"
File_Saver.saveextention = ".skn"
File_Saver.Show()
End Sub
Public Sub loadskintopreview()
ReDim Preserve loadlines(200)
titlebarcolour = Color.FromArgb(loadlines(0))
windowbordercolour = Color.FromArgb(loadlines(1))
windowbordersize = loadlines(2)
titlebarheight = loadlines(3)
closebuttoncolour = Color.FromArgb(loadlines(4))
closebuttonheight = loadlines(5)
closebuttonwidth = loadlines(6)
closebuttonside = loadlines(7)
closebuttontop = loadlines(8)
titletextcolour = Color.FromArgb(loadlines(9))
titletexttop = loadlines(10)
titletextside = loadlines(11)
titletextsize = loadlines(12)
titletextfont = loadlines(13)
titletextstyle = loadlines(14)
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 = loadlines(24)
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 = loadlines(33)
applicationlaunchername = loadlines(34)
titletextposition = loadlines(35)
rollupbuttoncolour = Color.FromArgb(loadlines(36))
If loadlines(37) = "" Then Else rollupbuttonheight = loadlines(37)
If loadlines(38) = "" Then Else rollupbuttonwidth = loadlines(38)
If loadlines(39) = "" Then Else rollupbuttonside = loadlines(39)
If loadlines(40) = "" Then Else rollupbuttontop = loadlines(40)
If loadlines(41) = "" Then Else titlebariconside = loadlines(41)
If loadlines(42) = "" Then Else titlebaricontop = loadlines(42)
If loadlines(43) = "" Then Else showwindowcorners = loadlines(43)
If loadlines(44) = "" Then Else titlebarcornerwidth = loadlines(44)
If loadlines(45) = "" Then Else titlebarrightcornercolour = Color.FromArgb(loadlines(45))
If loadlines(46) = "" Then Else titlebarleftcornercolour = Color.FromArgb(loadlines(46))
If loadlines(47) = "" Then Else applaunchermenuholderwidth = loadlines(47)
If loadlines(48) = "" Then Else windowborderleftcolour = Color.FromArgb(loadlines(48))
If loadlines(49) = "" Then Else windowborderrightcolour = Color.FromArgb(loadlines(49))
If loadlines(50) = "" Then Else windowborderbottomcolour = Color.FromArgb(loadlines(50))
If loadlines(51) = "" Then Else windowborderbottomrightcolour = Color.FromArgb(loadlines(51))
If loadlines(52) = "" Then Else windowborderbottomleftcolour = Color.FromArgb(loadlines(52))
If loadlines(53) = "" Then Else panelbuttonicontop = loadlines(53)
If loadlines(54) = "" Then Else panelbuttoniconside = loadlines(54)
If loadlines(55) = "" Then Else panelbuttoniconsize = loadlines(55)
If loadlines(56) = "" Then Else panelbuttoniconsize = loadlines(56)
If loadlines(57) = "" Then Else panelbuttonheight = loadlines(57)
If loadlines(58) = "" Then Else panelbuttonwidth = loadlines(58)
If loadlines(59) = "" Then Else panelbuttoncolour = Color.FromArgb(loadlines(59))
If loadlines(60) = "" Then Else panelbuttontextcolour = Color.FromArgb(loadlines(60))
If loadlines(61) = "" Then Else panelbuttontextsize = loadlines(61)
If loadlines(62) = "" Then Else panelbuttontextfont = loadlines(62)
If loadlines(63) = "" Then Else panelbuttontextstyle = loadlines(63)
If loadlines(64) = "" Then Else panelbuttontextside = loadlines(64)
If loadlines(65) = "" Then Else panelbuttontexttop = loadlines(65)
If loadlines(66) = "" Then Else panelbuttongap = loadlines(66)
If loadlines(67) = "" Then Else panelbuttonfromtop = loadlines(67)
If loadlines(68) = "" Then Else panelbuttoninitialgap = loadlines(68)
If loadlines(69) = "" Then Else minimizebuttoncolour = Color.FromArgb(loadlines(69))
If loadlines(70) = "" Then Else minimizebuttonheight = loadlines(70)
If loadlines(71) = "" Then Else minimizebuttonwidth = loadlines(71)
If loadlines(72) = "" Then Else minimizebuttonside = loadlines(72)
If loadlines(73) = "" Then Else minimizebuttontop = loadlines(73)
skinloaderskinimages(0) = loadlines(100)
skinloaderskinimages(1) = loadlines(101)
skinloaderskinimages(2) = loadlines(102)
skinloaderskinimages(3) = loadlines(103)
skinloaderskinimages(4) = loadlines(104)
skinloaderskinimages(5) = loadlines(105)
skinloaderskinimages(6) = loadlines(106)
skinloaderskinimages(7) = loadlines(107)
skinloaderskinimages(8) = loadlines(108)
skinloaderskinimages(9) = loadlines(109)
skinloaderskinimages(10) = loadlines(110)
skinloaderskinimages(11) = loadlines(111)
skinloaderskinimages(12) = loadlines(112)
skinloaderskinimages(13) = loadlines(113)
skinloaderskinimages(14) = loadlines(114)
skinloaderskinimages(15) = loadlines(115)
skinloaderskinimages(16) = loadlines(116)
skinloaderskinimages(17) = loadlines(117)
skinloaderskinimages(18) = loadlines(118)
skinloaderskinimages(19) = loadlines(119)
skinloaderskinimages(20) = loadlines(120)
skinloaderskinimages(21) = loadlines(121)
skinloaderskinimages(22) = loadlines(122)
skinloaderskinimages(23) = loadlines(123)
skinloaderskinimages(24) = loadlines(124)
skinloaderskinimages(25) = loadlines(125)
skinloaderskinimages(26) = loadlines(126)
skinloaderskinimages(27) = loadlines(127)
skinloaderskinimages(28) = loadlines(128)
skinloaderskinimages(29) = loadlines(129)
skinloaderskinimages(30) = loadlines(130)
skinloaderskinimages(31) = loadlines(131)
skinloaderskinimages(32) = loadlines(132)
skinloaderskinimages(33) = loadlines(133)
skinloaderskinimages(34) = loadlines(134)
skinloaderskinimages(35) = loadlines(135)
skinloaderskinimages(36) = loadlines(136)
skinloaderskinimages(37) = loadlines(137)
skinloaderskinimages(38) = loadlines(138)
skinloaderskinimages(39) = loadlines(139)
skinloaderskinimages(40) = loadlines(140)
skinloaderskinimages(41) = loadlines(141)
skinloaderskinimages(42) = loadlines(142)
skinloaderskinimages(43) = loadlines(143)
skinloaderskinimages(44) = loadlines(144)
skinloaderskinimages(45) = loadlines(145)
skinloaderskinimages(46) = loadlines(146)
skinloaderskinimages(47) = loadlines(147)
skinloaderskinimages(48) = loadlines(148)
skinloaderskinimages(49) = loadlines(149)
skinloaderskinimages(50) = loadlines(150)
setpreviewtocurrentskin()
End Sub
Private Sub setclocktime()
If ShiftOSDesktop.boughtsplitsecondtime = True Then
prepaneltimetext.Text = TimeOfDay
Else
If ShiftOSDesktop.boughtminuteaccuracytime = True Then
If Date.Now.Hour < 12 Then
prepaneltimetext.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM"
Else
prepaneltimetext.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM"
End If
Else
If ShiftOSDesktop.boughtpmandam = True Then
If Date.Now.Hour < 12 Then
prepaneltimetext.Text = TimeOfDay.Hour & " AM"
Else
prepaneltimetext.Text = TimeOfDay.Hour - 12 & " PM"
End If
Else
If ShiftOSDesktop.boughthourspastmidnight = True Then
prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60)
Else
If ShiftOSDesktop.boughtminutespastmidnight = True Then
prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60)
Else
If ShiftOSDesktop.boughtsecondspastmidnight = True Then
prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds)
End If
End If
End If
End If
End If
End If
End Sub
Private Sub btnsaveskin_Click(sender As Object, e As EventArgs) Handles btnsaveskin.Click
saveskintofile()
End Sub
Private Sub btnloadskin_Click(sender As Object, e As EventArgs) Handles btnloadskin.Click
File_Opener.Show()
File_Opener.openingprogram = "skinloader"
File_Opener.openextention = ".skn"
File_Opener.lbextention.Text = File_Opener.openextention
File_Opener.showcontents()
End Sub
Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
Me.Close()
End Sub
Private Sub btnapplyskin_Click(sender As Object, e As EventArgs) Handles btnapplyskin.Click
If Shifter.Visible = True Then
infobox.title = "Skin Loader - Error"
infobox.textinfo = "It appears that the Shifter application is currently open." & Environment.NewLine & Environment.NewLine & "Due to system stability issues you must close it before applying the skin!"
infobox.Show()
Else
If skinloaded = True Then
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents)
ShiftOSDesktop.disposeoldskindata("skinloaderapplyskin")
ShiftOSDesktop.loadcurrentskin()
ShiftOSDesktop.loadskinfiles()
ShiftOSDesktop.setupalltitlebars()
ShiftOSDesktop.setcolours()
ShiftOSDesktop.setupdesktop()
ShiftOSDesktop.setupskins()
ShiftOSDesktop.Invalidate()
skinloaded = False
Else
infobox.title = "Skin Loader - No Skin!"
infobox.textinfo = "It appears you havn't loaded a new skin." & Environment.NewLine & Environment.NewLine & "Please click load skin and choose an existing .skn file to load it in the preview and press apply to apply it to your system."
infobox.Show()
End If
End If
End Sub
'required to fix flashing applauncher button problem
Public Sub ApplicationsToolStripMenuItem_Paint(sender As Object, e As PaintEventArgs) Handles ApplicationsToolStripMenuItem.Paint
If ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then
Else
e.Graphics.DrawImage(ApplicationsToolStripMenuItem.BackgroundImage, 0, 0, ApplicationsToolStripMenuItem.BackgroundImage.Width, ApplicationsToolStripMenuItem.BackgroundImage.Height)
End If
End Sub
End Class
Reference in a new issue View git blame Copy permalink