diff options
Diffstat (limited to 'Skin Loader.vb')
| -rw-r--r-- | Skin Loader.vb | 1019 |
1 files changed, 0 insertions, 1019 deletions
diff --git a/Skin Loader.vb b/Skin Loader.vb deleted file mode 100644 index e287a6b..0000000 --- a/Skin Loader.vb +++ /dev/null @@ -1,1019 +0,0 @@ -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 |