diff options
Diffstat (limited to 'ShiftOS/Skin Loader.vb')
| -rw-r--r-- | ShiftOS/Skin Loader.vb | 1019 |
1 files changed, 1019 insertions, 0 deletions
diff --git a/ShiftOS/Skin Loader.vb b/ShiftOS/Skin Loader.vb new file mode 100644 index 0000000..b8aa8ff --- /dev/null +++ b/ShiftOS/Skin Loader.vb @@ -0,0 +1,1019 @@ +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
\ No newline at end of file |