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