mirror of
https://github.com/TheUltimateHacker/ShiftOS.git
synced 2025-01-22 16:12:14 +00:00
4caacce50c
ShiftOS is a game about evolving an experimental operating system called "ShiftOS" from a completely black and white text based command line based OS to a fully graphical operating system filled with advanced features and beautiful colours. The level of customization will exceed the levels of real world operating systems
2757 lines
No EOL
141 KiB
VB.net
2757 lines
No EOL
141 KiB
VB.net
Public Class Shifter
|
|
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 skinlines(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 = 100
|
|
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 shifterskinimages(100) As String
|
|
Public skinclosebutton(2) As Image
|
|
Public skinclosebuttonstyle As ImageLayout
|
|
Public shifterskintitlebar(2) As Image
|
|
Public skintitlebarstyle As ImageLayout
|
|
Public skindesktopbackground(2) As Image
|
|
Public skindesktopbackgroundstyle As ImageLayout
|
|
Public skinrollupbutton(2) As Image
|
|
Public skinrollupbuttonstyle As ImageLayout
|
|
Public skintitlebarrightcorner(2) As Image
|
|
Public skintitlebarrightcornerstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skintitlebarleftcorner(2) As Image
|
|
Public skintitlebarleftcornerstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skindesktoppanel(2) As Image
|
|
Public skindesktoppanelstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skindesktoppaneltime(2) As Image
|
|
Public skindesktoppaneltimestyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinapplauncherbutton(2) As Image
|
|
Public skinapplauncherbuttonstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinwindowborderleft(2) As Image
|
|
Public skinwindowborderleftstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinwindowborderright(2) As Image
|
|
Public skinwindowborderrightstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinwindowborderbottom(2) As Image
|
|
Public skinwindowborderbottomstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinwindowborderbottomright(2) As Image
|
|
Public skinwindowborderbottomrightstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinwindowborderbottomleft(2) As Image
|
|
Public skinwindowborderbottomleftstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinpanelbutton(2) As Image
|
|
Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch
|
|
Public skinminimizebutton(2) As Image
|
|
Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch
|
|
|
|
Public customizationtimepoints As Integer
|
|
Public customizationsdone As Integer
|
|
Public customizationpointsearned As Integer
|
|
Dim bmp As Bitmap
|
|
|
|
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
|
|
setskin()
|
|
setupbuttons()
|
|
initialsetup()
|
|
determinevisibleobjects()
|
|
setuppreshifterstuff()
|
|
AddFonts()
|
|
|
|
ShiftOSDesktop.pnlpanelbuttonshifter.SendToBack()
|
|
ShiftOSDesktop.setuppanelbuttons()
|
|
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshifter, ShiftOSDesktop.tbshiftericon, ShiftOSDesktop.tbshiftertext, True)
|
|
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
|
|
|
'Display the shifter intro
|
|
pnlshifterintro.Location = New Point(133, 6)
|
|
pnlshifterintro.Size = New Size(458, 297)
|
|
pnlshifterintro.Show()
|
|
pnlshifterintro.BringToFront()
|
|
|
|
'Display window intro
|
|
pnlwindowsintro.Show()
|
|
pnlwindowsintro.Size = New Size(317, 134)
|
|
pnlwindowsintro.Location = New Point(136, 159)
|
|
pnlwindowsintro.BringToFront()
|
|
|
|
'Display desktop intro
|
|
pnldesktopintro.Show()
|
|
pnldesktopintro.Size = New Size(317, 134)
|
|
pnldesktopintro.Location = New Point(136, 159)
|
|
pnldesktopintro.BringToFront()
|
|
End Sub
|
|
|
|
Public Sub loadclone()
|
|
setuptitlebar()
|
|
setupborders()
|
|
ShiftOSDesktop.setcolours()
|
|
setskin()
|
|
setupbuttons()
|
|
initialsetup()
|
|
determinevisibleobjects()
|
|
setuppreshifterstuff()
|
|
AddFonts()
|
|
End Sub
|
|
|
|
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown, btnapplauncher.KeyDown, btnapply.KeyDown, btnborders.KeyDown, btnbuttons.KeyDown, btndesktop.KeyDown, btndesktopitself.KeyDown, btndesktoppanel.KeyDown, btnicons.KeyDown, btnpanelclock.KeyDown, btnprograms.KeyDown, btntitlebar.KeyDown, btntitletext.KeyDown, btnwindows.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(600, 339) '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.shiftername
|
|
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.boughtshiftericon = True Then
|
|
pnlicon.Visible = True
|
|
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
|
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
|
pnlicon.Image = ShiftOSDesktop.shiftericontitlebar '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, shifterskinimages, shifterskinimages.Length)
|
|
|
|
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else skinclosebutton(0) = ShiftOSDesktop.skinclosebutton(0).Clone
|
|
If ShiftOSDesktop.skinclosebutton(1) Is Nothing Then Else skinclosebutton(1) = ShiftOSDesktop.skinclosebutton(1).Clone
|
|
If ShiftOSDesktop.skinclosebutton(2) Is Nothing Then Else skinclosebutton(2) = ShiftOSDesktop.skinclosebutton(2).Clone
|
|
skinclosebuttonstyle = ShiftOSDesktop.skinclosebuttonstyle
|
|
|
|
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else shifterskintitlebar(0) = ShiftOSDesktop.skintitlebar(0).Clone
|
|
If ShiftOSDesktop.skintitlebar(1) Is Nothing Then Else shifterskintitlebar(1) = ShiftOSDesktop.skintitlebar(1).Clone
|
|
If ShiftOSDesktop.skintitlebar(2) Is Nothing Then Else shifterskintitlebar(2) = ShiftOSDesktop.skintitlebar(2).Clone
|
|
skintitlebarstyle = ShiftOSDesktop.skintitlebarstyle
|
|
|
|
If ShiftOSDesktop.skindesktopbackground(0) Is Nothing Then Else skindesktopbackground(0) = ShiftOSDesktop.skindesktopbackground(0).Clone
|
|
If ShiftOSDesktop.skindesktopbackground(1) Is Nothing Then Else skindesktopbackground(1) = ShiftOSDesktop.skindesktopbackground(1).Clone
|
|
If ShiftOSDesktop.skindesktopbackground(2) Is Nothing Then Else skindesktopbackground(2) = ShiftOSDesktop.skindesktopbackground(2).Clone
|
|
skindesktopbackgroundstyle = ShiftOSDesktop.skindesktopbackgroundstyle
|
|
|
|
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else skinrollupbutton(0) = ShiftOSDesktop.skinrollupbutton(0).Clone
|
|
If ShiftOSDesktop.skinrollupbutton(1) Is Nothing Then Else skinrollupbutton(1) = ShiftOSDesktop.skinrollupbutton(1).Clone
|
|
If ShiftOSDesktop.skinrollupbutton(2) Is Nothing Then Else skinrollupbutton(2) = ShiftOSDesktop.skinrollupbutton(2).Clone
|
|
skinrollupbuttonstyle = ShiftOSDesktop.skinrollupbuttonstyle
|
|
|
|
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else skintitlebarrightcorner(0) = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
|
If ShiftOSDesktop.skintitlebarrightcorner(1) Is Nothing Then Else skintitlebarrightcorner(1) = ShiftOSDesktop.skintitlebarrightcorner(1).Clone
|
|
If ShiftOSDesktop.skintitlebarrightcorner(2) Is Nothing Then Else skintitlebarrightcorner(2) = ShiftOSDesktop.skintitlebarrightcorner(2).Clone
|
|
skintitlebarrightcornerstyle = ShiftOSDesktop.skintitlebarrightcornerstyle
|
|
|
|
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else skintitlebarleftcorner(0) = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
|
If ShiftOSDesktop.skintitlebarleftcorner(1) Is Nothing Then Else skintitlebarleftcorner(1) = ShiftOSDesktop.skintitlebarleftcorner(1).Clone
|
|
If ShiftOSDesktop.skintitlebarleftcorner(2) Is Nothing Then Else skintitlebarleftcorner(2) = ShiftOSDesktop.skintitlebarleftcorner(2).Clone
|
|
skintitlebarleftcornerstyle = ShiftOSDesktop.skintitlebarleftcornerstyle
|
|
|
|
If ShiftOSDesktop.skindesktoppanel(0) Is Nothing Then Else skindesktoppanel(0) = ShiftOSDesktop.skindesktoppanel(0).Clone
|
|
If ShiftOSDesktop.skindesktoppanel(1) Is Nothing Then Else skindesktoppanel(1) = ShiftOSDesktop.skindesktoppanel(1).Clone
|
|
If ShiftOSDesktop.skindesktoppanel(2) Is Nothing Then Else skindesktoppanel(2) = ShiftOSDesktop.skindesktoppanel(2).Clone
|
|
skindesktoppanelstyle = ShiftOSDesktop.skindesktoppanelstyle
|
|
|
|
If ShiftOSDesktop.skindesktoppaneltime(0) Is Nothing Then Else skindesktoppaneltime(0) = ShiftOSDesktop.skindesktoppaneltime(0).Clone
|
|
If ShiftOSDesktop.skindesktoppaneltime(1) Is Nothing Then Else skindesktoppaneltime(1) = ShiftOSDesktop.skindesktoppaneltime(1).Clone
|
|
If ShiftOSDesktop.skindesktoppaneltime(2) Is Nothing Then Else skindesktoppaneltime(2) = ShiftOSDesktop.skindesktoppaneltime(2).Clone
|
|
skindesktoppaneltimestyle = ShiftOSDesktop.skindesktoppaneltimestyle
|
|
|
|
If ShiftOSDesktop.skinapplauncherbutton(0) Is Nothing Then Else skinapplauncherbutton(0) = ShiftOSDesktop.skinapplauncherbutton(0).Clone
|
|
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then Else skinapplauncherbutton(1) = ShiftOSDesktop.skinapplauncherbutton(1).Clone
|
|
If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then Else skinapplauncherbutton(2) = ShiftOSDesktop.skinapplauncherbutton(2).Clone
|
|
skinapplauncherbuttonstyle = ShiftOSDesktop.skinapplauncherbuttonstyle
|
|
|
|
If ShiftOSDesktop.skinwindowborderleft(0) Is Nothing Then Else skinwindowborderleft(0) = ShiftOSDesktop.skinwindowborderleft(0).Clone
|
|
If ShiftOSDesktop.skinwindowborderleft(1) Is Nothing Then Else skinwindowborderleft(1) = ShiftOSDesktop.skinwindowborderleft(1).Clone
|
|
If ShiftOSDesktop.skinwindowborderleft(2) Is Nothing Then Else skinwindowborderleft(2) = ShiftOSDesktop.skinwindowborderleft(2).Clone
|
|
skinwindowborderleftstyle = ShiftOSDesktop.skinwindowborderleftstyle
|
|
|
|
If ShiftOSDesktop.skinwindowborderright(0) Is Nothing Then Else skinwindowborderright(0) = ShiftOSDesktop.skinwindowborderright(0).Clone
|
|
If ShiftOSDesktop.skinwindowborderright(1) Is Nothing Then Else skinwindowborderright(1) = ShiftOSDesktop.skinwindowborderright(1).Clone
|
|
If ShiftOSDesktop.skinwindowborderright(2) Is Nothing Then Else skinwindowborderright(2) = ShiftOSDesktop.skinwindowborderright(2).Clone
|
|
skinwindowborderrightstyle = ShiftOSDesktop.skinwindowborderrightstyle
|
|
|
|
If ShiftOSDesktop.skinwindowborderbottom(0) Is Nothing Then Else skinwindowborderbottom(0) = ShiftOSDesktop.skinwindowborderbottom(0).Clone
|
|
If ShiftOSDesktop.skinwindowborderbottom(1) Is Nothing Then Else skinwindowborderbottom(1) = ShiftOSDesktop.skinwindowborderbottom(1).Clone
|
|
If ShiftOSDesktop.skinwindowborderbottom(2) Is Nothing Then Else skinwindowborderbottom(2) = ShiftOSDesktop.skinwindowborderbottom(2).Clone
|
|
skinwindowborderbottomstyle = ShiftOSDesktop.skinwindowborderbottomstyle
|
|
|
|
If ShiftOSDesktop.skinwindowborderbottomright(0) Is Nothing Then Else skinwindowborderbottomright(0) = ShiftOSDesktop.skinwindowborderbottomright(0).Clone
|
|
If ShiftOSDesktop.skinwindowborderbottomright(1) Is Nothing Then Else skinwindowborderbottomright(1) = ShiftOSDesktop.skinwindowborderbottomright(1).Clone
|
|
If ShiftOSDesktop.skinwindowborderbottomright(2) Is Nothing Then Else skinwindowborderbottomright(2) = ShiftOSDesktop.skinwindowborderbottomright(2).Clone
|
|
skinwindowborderbottomrightstyle = ShiftOSDesktop.skinwindowborderbottomrightstyle
|
|
|
|
If ShiftOSDesktop.skinwindowborderbottomleft(0) Is Nothing Then Else skinwindowborderbottomleft(0) = ShiftOSDesktop.skinwindowborderbottomleft(0).Clone
|
|
If ShiftOSDesktop.skinwindowborderbottomleft(1) Is Nothing Then Else skinwindowborderbottomleft(1) = ShiftOSDesktop.skinwindowborderbottomleft(1).Clone
|
|
If ShiftOSDesktop.skinwindowborderbottomleft(2) Is Nothing Then Else skinwindowborderbottomleft(2) = ShiftOSDesktop.skinwindowborderbottomleft(2).Clone
|
|
skinwindowborderbottomleftstyle = ShiftOSDesktop.skinwindowborderbottomleftstyle
|
|
|
|
If ShiftOSDesktop.skinpanelbutton(0) Is Nothing Then Else skinpanelbutton(0) = ShiftOSDesktop.skinpanelbutton(0).Clone
|
|
If ShiftOSDesktop.skinpanelbutton(1) Is Nothing Then Else skinpanelbutton(1) = ShiftOSDesktop.skinpanelbutton(1).Clone
|
|
If ShiftOSDesktop.skinpanelbutton(2) Is Nothing Then Else skinpanelbutton(2) = ShiftOSDesktop.skinpanelbutton(2).Clone
|
|
skinpanelbuttonstyle = ShiftOSDesktop.skinpanelbuttonstyle
|
|
|
|
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else skinminimizebutton(0) = ShiftOSDesktop.skinminimizebutton(0).Clone
|
|
If ShiftOSDesktop.skinminimizebutton(1) Is Nothing Then Else skinminimizebutton(1) = ShiftOSDesktop.skinminimizebutton(1).Clone
|
|
If ShiftOSDesktop.skinminimizebutton(2) Is Nothing Then Else skinminimizebutton(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 setupbuttons()
|
|
If ShiftOSDesktop.boughttitlebar = True Then
|
|
btntitlebar.Text = "Title Bar"
|
|
Else
|
|
btntitlebar.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughttitletext = True Then
|
|
btntitletext.Text = "Title Text"
|
|
Else
|
|
btntitletext.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughtclosebutton = True OrElse ShiftOSDesktop.boughtrollupbutton = True Then
|
|
btnbuttons.Text = "Buttons"
|
|
combobuttonoption.Items.Clear()
|
|
If ShiftOSDesktop.boughtclosebutton = True Then combobuttonoption.Items.Add("Close Button")
|
|
If ShiftOSDesktop.boughtrollupbutton = True Then combobuttonoption.Items.Add("Roll Up Button")
|
|
If ShiftOSDesktop.boughtminimizebutton = True Then combobuttonoption.Items.Add("Minimize Button")
|
|
Else
|
|
btnbuttons.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughtwindowborders = True Then
|
|
btnborders.Text = "Borders"
|
|
Else
|
|
btnborders.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughtdesktoppanel = True Then
|
|
btndesktoppanel.Text = "Desktop Panel"
|
|
Else
|
|
btndesktoppanel.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughtapplaunchermenu = True Then
|
|
btnapplauncher.Text = "App Launcher"
|
|
Else
|
|
btnapplauncher.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughtdesktoppanelclock = True Then
|
|
btnpanelclock.Text = "Panel Clock"
|
|
Else
|
|
btnpanelclock.Text = "???"
|
|
End If
|
|
If ShiftOSDesktop.boughtpanelbuttons = True Then
|
|
btnpanelbuttons.Show()
|
|
Else
|
|
btnpanelbuttons.Hide()
|
|
End If
|
|
If ShiftOSDesktop.boughtknowledgeinputicon Then
|
|
Label78.Show()
|
|
Label79.Show()
|
|
Label80.Show()
|
|
Label81.Show()
|
|
txticonfromside.Show()
|
|
txticonfromtop.Show()
|
|
Else
|
|
Label78.Hide()
|
|
Label79.Hide()
|
|
Label80.Hide()
|
|
Label81.Hide()
|
|
txticonfromside.Hide()
|
|
txticonfromtop.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub setuppreshifterstuff()
|
|
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
|
|
|
|
On Error Resume Next
|
|
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()
|
|
'ShiftOSDesktop.ApplicationsToolStripMenuItem.BackColor = ShiftOSDesktop.applauncherbuttoncolour
|
|
ApplicationsToolStripMenuItem.BackColor = Color.Transparent
|
|
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 skinpanelbutton(0) Is Nothing Then Else prepnlpanelbutton.BackgroundImage = skinpanelbutton(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 skinpanelbutton(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 skindesktoppanel(0) Is Nothing Then
|
|
predesktoppanel.BackColor = desktoppanelcolour
|
|
predesktoppanel.BackgroundImage = Nothing
|
|
Else
|
|
predesktoppanel.BackgroundImage = skindesktoppanel(0)
|
|
predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle
|
|
predesktoppanel.BackColor = Color.Transparent
|
|
End If
|
|
|
|
If ShiftOSDesktop.boughtdesktoppanelclock = True Then
|
|
setclocktime()
|
|
prepaneltimetext.ForeColor = clocktextcolour
|
|
If skindesktoppaneltime(0) Is Nothing Then
|
|
pretimepanel.BackColor = clockbackgroundcolor
|
|
pretimepanel.BackgroundImage = Nothing
|
|
Else
|
|
pretimepanel.BackColor = Color.Transparent
|
|
If skindesktoppaneltime(0) Is Nothing Then Else pretimepanel.BackgroundImage = skindesktoppaneltime(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 showwindowcorners = True Then
|
|
cboxtitlebarcorners.CheckState = CheckState.Checked
|
|
Else
|
|
cboxtitlebarcorners.CheckState = CheckState.Unchecked
|
|
End If
|
|
|
|
If cboxtitlebarcorners.CheckState = CheckState.Checked Then
|
|
prepgtoplcorner.Show()
|
|
prepgtoprcorner.Show()
|
|
pnltitlebarleftcornercolour.Show()
|
|
pnltitlebarrightcornercolour.Show()
|
|
txttitlebarcornerwidth.Show()
|
|
lbcornerwidth.Show()
|
|
lbcornerwidthpx.Show()
|
|
lbleftcornercolor.Show()
|
|
lbrightcornercolor.Show()
|
|
Else
|
|
prepgtoplcorner.Hide()
|
|
prepgtoprcorner.Hide()
|
|
pnltitlebarleftcornercolour.Hide()
|
|
pnltitlebarrightcornercolour.Hide()
|
|
txttitlebarcornerwidth.Hide()
|
|
lbcornerwidth.Hide()
|
|
lbcornerwidthpx.Hide()
|
|
lbleftcornercolor.Hide()
|
|
lbrightcornercolor.Hide()
|
|
End If
|
|
|
|
If cbindividualbordercolours.CheckState = CheckState.Checked Then
|
|
Label73.Show()
|
|
Label74.Show()
|
|
Label75.Show()
|
|
Label76.Show()
|
|
Label77.Show()
|
|
pnlborderleftcolour.Show()
|
|
pnlborderrightcolour.Show()
|
|
pnlborderbottomcolour.Show()
|
|
pnlborderbottomrightcolour.Show()
|
|
pnlborderbottomleftcolour.Show()
|
|
Else
|
|
Label73.Hide()
|
|
Label74.Hide()
|
|
Label75.Hide()
|
|
Label76.Hide()
|
|
Label77.Hide()
|
|
pnlborderleftcolour.Hide()
|
|
pnlborderrightcolour.Hide()
|
|
pnlborderbottomcolour.Hide()
|
|
pnlborderbottomrightcolour.Hide()
|
|
pnlborderbottomleftcolour.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
|
|
|
|
preapplaunchermenuholder.Width = applaunchermenuholderwidth
|
|
predesktopappmenu.Width = applaunchermenuholderwidth
|
|
ApplicationsToolStripMenuItem.Width = applaunchermenuholderwidth
|
|
|
|
If skinapplauncherbutton(0) Is Nothing Then
|
|
ApplicationsToolStripMenuItem.BackgroundImage = Nothing
|
|
ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour
|
|
Else
|
|
ApplicationsToolStripMenuItem.BackColor = Color.Transparent
|
|
predesktopappmenu.BackColor = Color.Transparent
|
|
ApplicationsToolStripMenuItem.BackgroundImage = skinapplauncherbutton(0)
|
|
ApplicationsToolStripMenuItem.Text = ""
|
|
End If
|
|
|
|
pnltitlebarcolour.BackColor = titlebarcolour
|
|
pnlbordercolour.BackColor = windowbordercolour
|
|
pnlclosebuttoncolour.BackColor = closebuttoncolour
|
|
pnltitletextcolour.BackColor = titletextcolour
|
|
pnldesktoppanelcolour.BackColor = desktoppanelcolour
|
|
pnldesktopcolour.BackColor = desktopbackgroundcolour
|
|
pnlpanelclocktextcolour.BackColor = clocktextcolour
|
|
pnlclockbackgroundcolour.BackColor = clockbackgroundcolor
|
|
pnlmaintextcolour.BackColor = applicationsbuttontextcolour
|
|
pnlmainbuttoncolour.BackColor = applauncherbuttoncolour
|
|
pnlmainbuttonactivated.BackColor = applauncherbuttonclickedcolour
|
|
pnlmenuitemscolour.BackColor = applauncherbackgroundcolour
|
|
pnlmenuitemsmouseover.BackColor = applaunchermouseovercolour
|
|
pnlrollupbuttoncolour.BackColor = rollupbuttoncolour
|
|
pnltitlebarleftcornercolour.BackColor = titlebarleftcornercolour
|
|
pnltitlebarrightcornercolour.BackColor = titlebarrightcornercolour
|
|
pnlborderleftcolour.BackColor = windowborderleftcolour
|
|
pnlborderrightcolour.BackColor = windowborderrightcolour
|
|
pnlborderbottomcolour.BackColor = windowborderbottomcolour
|
|
pnlborderbottomrightcolour.BackColor = windowborderbottomrightcolour
|
|
pnlborderbottomleftcolour.BackColor = windowborderbottomleftcolour
|
|
pnlminimizebuttoncolour.BackColor = minimizebuttoncolour
|
|
pnlpanelbuttoncolour.BackColor = panelbuttoncolour
|
|
pnlpanelbuttontextcolour.BackColor = panelbuttontextcolour
|
|
|
|
'skins
|
|
preclosebutton.BackgroundImage = skinclosebutton(0)
|
|
preclosebutton.BackgroundImageLayout = skinclosebuttonstyle
|
|
pretitlebar.BackgroundImage = shifterskintitlebar(0)
|
|
pretitlebar.BackgroundImageLayout = skintitlebarstyle
|
|
pnldesktoppreview.BackgroundImage = skindesktopbackground(0)
|
|
pnldesktoppreview.BackgroundImageLayout = skindesktopbackgroundstyle
|
|
pnlmainbuttoncolour.BackgroundImage = skinapplauncherbutton(0)
|
|
pnlmainbuttoncolour.BackgroundImageLayout = skinapplauncherbuttonstyle
|
|
prerollupbutton.BackgroundImage = skinrollupbutton(0)
|
|
prerollupbutton.BackgroundImageLayout = skinrollupbuttonstyle
|
|
prepgtoprcorner.BackgroundImage = skintitlebarrightcorner(0)
|
|
prepgtoprcorner.BackgroundImageLayout = skintitlebarrightcornerstyle
|
|
prepgtoplcorner.BackgroundImage = skintitlebarleftcorner(0)
|
|
prepgtoplcorner.BackgroundImageLayout = skintitlebarleftcornerstyle
|
|
predesktoppanel.BackgroundImage = skindesktoppanel(0)
|
|
predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle
|
|
pretimepanel.BackgroundImage = skindesktoppaneltime(0)
|
|
pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle
|
|
prepgleft.BackgroundImage = skinwindowborderleft(0)
|
|
prepgleft.BackgroundImageLayout = skinwindowborderleftstyle
|
|
prepgright.BackgroundImage = skinwindowborderright(0)
|
|
prepgright.BackgroundImageLayout = skinwindowborderrightstyle
|
|
prepgbottom.BackgroundImage = skinwindowborderbottom(0)
|
|
prepgbottom.BackgroundImageLayout = skinwindowborderbottomstyle
|
|
prepgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0)
|
|
prepgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle
|
|
prepgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0)
|
|
prepgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle
|
|
prepgbottomlcorner.Height = windowbordersize
|
|
prepgbottomrcorner.Height = windowbordersize
|
|
preminimizebutton.BackgroundImage = skinminimizebutton(0)
|
|
preminimizebutton.BackgroundImageLayout = skinminimizebuttonstyle
|
|
|
|
'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
|
|
If prepnlpanelbutton.BackgroundImage Is Nothing Then Else prepnlpanelbutton.BackColor = Color.Transparent
|
|
If preminimizebutton.BackgroundImage Is Nothing Then Else preminimizebutton.BackColor = Color.Transparent
|
|
|
|
'pallet skins
|
|
pnlclosebuttoncolour.BackgroundImage = skinclosebutton(0)
|
|
pnltitlebarcolour.BackgroundImage = shifterskintitlebar(0)
|
|
pnldesktopcolour.BackgroundImage = skindesktopbackground(0)
|
|
pnlrollupbuttoncolour.BackgroundImage = skinrollupbutton(0)
|
|
pnltitlebarrightcornercolour.BackgroundImage = skintitlebarrightcorner(0)
|
|
pnltitlebarleftcornercolour.BackgroundImage = skintitlebarleftcorner(0)
|
|
pnldesktoppanelcolour.BackgroundImage = skindesktoppanel(0)
|
|
pnlclockbackgroundcolour.BackgroundImage = skindesktoppaneltime(0)
|
|
pnlborderbottomcolour.BackgroundImage = skinwindowborderbottom(0)
|
|
pnlborderleftcolour.BackgroundImage = skinwindowborderleft(0)
|
|
pnlborderrightcolour.BackgroundImage = skinwindowborderright(0)
|
|
pnlborderbottomrightcolour.BackgroundImage = skinwindowborderbottomright(0)
|
|
pnlborderbottomleftcolour.BackgroundImage = skinwindowborderbottomleft(0)
|
|
pnlminimizebuttoncolour.BackgroundImage = skinminimizebutton(0)
|
|
pnlpanelbuttoncolour.BackgroundImage = skinpanelbutton(0)
|
|
|
|
txttitlebarheight.Text = titlebarheight
|
|
txtclosebuttonheight.Text = closebuttonheight
|
|
txtclosebuttonwidth.Text = closebuttonwidth
|
|
txtclosebuttonfromtop.Text = closebuttontop
|
|
txtclosebuttonfromside.Text = closebuttonside
|
|
txtbordersize.Text = windowbordersize
|
|
txttitletexttop.Text = titletexttop
|
|
txttitletextside.Text = titletextside
|
|
txttitletextsize.Text = titletextsize
|
|
combotitletextfont.Text = titletextfont
|
|
txtdesktoppanelheight.Text = desktoppanelheight
|
|
combodesktoppanelposition.Text = desktoppanelposition
|
|
comboclocktextfont.Text = panelclocktextfont
|
|
txtclocktextsize.Text = panelclocktextsize
|
|
txtclocktextfromtop.Text = panelclocktexttop
|
|
txtappbuttonlabel.Text = applicationlaunchername
|
|
txtapplicationsbuttonheight.Text = applicationbuttonheight
|
|
txtappbuttontextsize.Text = applicationbuttontextsize
|
|
comboappbuttontextfont.Text = applicationbuttontextfont
|
|
txtrollupbuttonheight.Text = rollupbuttonheight
|
|
txtrollupbuttonwidth.Text = rollupbuttonwidth
|
|
txtrollupbuttontop.Text = rollupbuttontop
|
|
txtrollupbuttonside.Text = rollupbuttonside
|
|
txttitlebarcornerwidth.Text = titlebarcornerwidth
|
|
txtapplauncherwidth.Text = applaunchermenuholderwidth
|
|
txticonfromside.Text = titlebariconside
|
|
txticonfromtop.Text = titlebaricontop
|
|
txtpanelbuttoninitalgap.Text = panelbuttoninitialgap
|
|
txtpanelbuttontop.Text = panelbuttonfromtop
|
|
txtpanelbuttonwidth.Text = panelbuttonwidth
|
|
txtpanelbuttonheight.Text = panelbuttonheight
|
|
txtpanelbuttongap.Text = panelbuttongap
|
|
cbpanelbuttonfont.Text = panelbuttontextfont
|
|
txtpaneltextbuttonsize.Text = panelbuttontextsize
|
|
cbpanelbuttontextstyle.Text = panelbuttontextstyle
|
|
txtpanelbuttontextside.Text = panelbuttontextside
|
|
txtpanelbuttontexttop.Text = panelbuttontexttop
|
|
txtpanelbuttoniconsize.Text = panelbuttoniconsize
|
|
txtpanelbuttoniconsize.Text = panelbuttoniconsize
|
|
txtpanelbuttoniconside.Text = panelbuttoniconside
|
|
txtpanelbuttonicontop.Text = panelbuttonicontop
|
|
|
|
txtminimizebuttonheight.Text = minimizebuttonheight
|
|
txtminimizebuttonwidth.Text = minimizebuttonwidth
|
|
txtminimizebuttontop.Text = minimizebuttontop
|
|
txtminimizebuttonside.Text = minimizebuttonside
|
|
|
|
|
|
Select Case titletextstyle
|
|
Case FontStyle.Bold
|
|
combotitletextstyle.Text = "Bold"
|
|
Case FontStyle.Italic
|
|
combotitletextstyle.Text = "Italic"
|
|
Case FontStyle.Regular
|
|
combotitletextstyle.Text = "Regular"
|
|
Case FontStyle.Strikeout
|
|
combotitletextstyle.Text = "Strikeout"
|
|
Case FontStyle.Underline
|
|
combotitletextstyle.Text = "Underline"
|
|
End Select
|
|
|
|
Select Case panelclocktextstyle
|
|
Case FontStyle.Bold
|
|
comboclocktextstyle.Text = "Bold"
|
|
Case FontStyle.Italic
|
|
comboclocktextstyle.Text = "Italic"
|
|
Case FontStyle.Regular
|
|
comboclocktextstyle.Text = "Regular"
|
|
Case FontStyle.Strikeout
|
|
comboclocktextstyle.Text = "Strikeout"
|
|
Case FontStyle.Underline
|
|
comboclocktextstyle.Text = "Underline"
|
|
End Select
|
|
|
|
Select Case applicationbuttontextstyle
|
|
Case FontStyle.Bold
|
|
comboappbuttontextstyle.Text = "Bold"
|
|
Case FontStyle.Italic
|
|
comboappbuttontextstyle.Text = "Italic"
|
|
Case FontStyle.Regular
|
|
comboappbuttontextstyle.Text = "Regular"
|
|
Case FontStyle.Strikeout
|
|
comboappbuttontextstyle.Text = "Strikeout"
|
|
Case FontStyle.Underline
|
|
comboappbuttontextstyle.Text = "Underline"
|
|
End Select
|
|
|
|
Select Case panelbuttontextstyle
|
|
Case FontStyle.Bold
|
|
cbpanelbuttontextstyle.Text = "Bold"
|
|
Case FontStyle.Italic
|
|
cbpanelbuttontextstyle.Text = "Italic"
|
|
Case FontStyle.Regular
|
|
cbpanelbuttontextstyle.Text = "Regular"
|
|
Case FontStyle.Strikeout
|
|
cbpanelbuttontextstyle.Text = "Strikeout"
|
|
Case FontStyle.Underline
|
|
cbpanelbuttontextstyle.Text = "Underline"
|
|
End Select
|
|
|
|
Select Case titletextposition
|
|
Case "Left"
|
|
combotitletextposition.Text = "Left"
|
|
Case "Centre"
|
|
combotitletextposition.Text = "Centre"
|
|
End Select
|
|
|
|
If combotitletextposition.Text = "Centre" Then
|
|
txttitletextside.Visible = False
|
|
Else
|
|
txttitletextside.Visible = True
|
|
End If
|
|
|
|
customizationsdone = customizationsdone + 1
|
|
End Sub
|
|
|
|
Private Sub AddFonts()
|
|
' Get the installed fonts collection.
|
|
Dim allFonts As New Drawing.Text.InstalledFontCollection
|
|
|
|
' Get an array of the system's font familiies.
|
|
Dim fontFamilies() As FontFamily = allFonts.Families()
|
|
|
|
' Display the font families.
|
|
For Each myFont As FontFamily In fontFamilies
|
|
combotitletextfont.Items.Add(myFont.Name)
|
|
comboclocktextfont.Items.Add(myFont.Name)
|
|
comboappbuttontextfont.Items.Add(myFont.Name)
|
|
cbpanelbuttonfont.Items.Add(myFont.Name)
|
|
Next 'font_family
|
|
End Sub
|
|
|
|
Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click
|
|
If Skin_Loader.Visible = True Then
|
|
infobox.title = "Shifter - Error"
|
|
infobox.textinfo = "It appears that the Skin Loader application is currently open." & Environment.NewLine & Environment.NewLine & "Due to system stability issues you must close it before applying your changes!"
|
|
infobox.Show()
|
|
Else
|
|
applysettings()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub applysettings()
|
|
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents)
|
|
saveskintocurrentskin()
|
|
|
|
'quick fixes
|
|
If titlebarheight > 500 Then
|
|
titlebarheight = 500
|
|
txttitlebarheight.Text = "500"
|
|
End If
|
|
|
|
If windowbordersize > 500 Then
|
|
windowbordersize = 500
|
|
txtbordersize.Text = "500"
|
|
End If
|
|
|
|
If desktoppanelheight > 500 Then
|
|
desktoppanelheight = 500
|
|
txtdesktoppanelheight.Text = "500"
|
|
End If
|
|
|
|
ShiftOSDesktop.titlebarcolour = titlebarcolour
|
|
ShiftOSDesktop.windowbordercolour = windowbordercolour
|
|
ShiftOSDesktop.windowbordersize = windowbordersize
|
|
ShiftOSDesktop.titlebarheight = titlebarheight
|
|
ShiftOSDesktop.closebuttoncolour = closebuttoncolour
|
|
ShiftOSDesktop.closebuttonheight = closebuttonheight
|
|
ShiftOSDesktop.closebuttonwidth = closebuttonwidth
|
|
ShiftOSDesktop.closebuttontop = closebuttontop
|
|
ShiftOSDesktop.closebuttonside = closebuttonside
|
|
ShiftOSDesktop.titletextcolour = titletextcolour
|
|
ShiftOSDesktop.titletexttop = titletexttop
|
|
ShiftOSDesktop.titletextside = titletextside
|
|
ShiftOSDesktop.titletextsize = titletextsize
|
|
ShiftOSDesktop.titletextfont = titletextfont
|
|
ShiftOSDesktop.titletextstyle = titletextstyle
|
|
ShiftOSDesktop.desktoppanelcolour = desktoppanelcolour
|
|
ShiftOSDesktop.desktopbackgroundcolour = desktopbackgroundcolour
|
|
ShiftOSDesktop.desktoppanelheight = desktoppanelheight
|
|
ShiftOSDesktop.desktoppanelposition = desktoppanelposition
|
|
ShiftOSDesktop.clocktextcolour = clocktextcolour
|
|
ShiftOSDesktop.clockbackgroundcolor = clockbackgroundcolor
|
|
ShiftOSDesktop.panelclocktexttop = panelclocktexttop
|
|
ShiftOSDesktop.panelclocktextsize = panelclocktextsize
|
|
ShiftOSDesktop.panelclocktextfont = panelclocktextfont
|
|
ShiftOSDesktop.panelclocktextstyle = panelclocktextstyle
|
|
ShiftOSDesktop.applauncherbuttoncolour = applauncherbuttoncolour
|
|
ShiftOSDesktop.applauncherbuttonclickedcolour = applauncherbuttonclickedcolour
|
|
ShiftOSDesktop.applauncherbackgroundcolour = applauncherbackgroundcolour
|
|
ShiftOSDesktop.applaunchermouseovercolour = applaunchermouseovercolour
|
|
ShiftOSDesktop.ApplicationsToolStripMenuItem.BackColor = Color.Transparent
|
|
ShiftOSDesktop.applicationsbuttontextcolour = applicationsbuttontextcolour
|
|
ShiftOSDesktop.applicationbuttonheight = applicationbuttonheight
|
|
ShiftOSDesktop.applicationbuttontextsize = applicationbuttontextsize
|
|
ShiftOSDesktop.applicationbuttontextfont = applicationbuttontextfont
|
|
ShiftOSDesktop.applicationbuttontextstyle = applicationbuttontextstyle
|
|
ShiftOSDesktop.applicationlaunchername = applicationlaunchername
|
|
ShiftOSDesktop.titletextposition = titletextposition
|
|
ShiftOSDesktop.rollupbuttoncolour = rollupbuttoncolour
|
|
ShiftOSDesktop.rollupbuttonheight = rollupbuttonheight
|
|
ShiftOSDesktop.rollupbuttonwidth = rollupbuttonwidth
|
|
ShiftOSDesktop.rollupbuttonside = rollupbuttonside
|
|
ShiftOSDesktop.rollupbuttontop = rollupbuttontop
|
|
ShiftOSDesktop.titlebariconside = titlebariconside
|
|
ShiftOSDesktop.titlebaricontop = titlebaricontop
|
|
ShiftOSDesktop.showwindowcorners = showwindowcorners
|
|
ShiftOSDesktop.titlebarcornerwidth = titlebarcornerwidth
|
|
ShiftOSDesktop.titlebarrightcornercolour = titlebarrightcornercolour
|
|
ShiftOSDesktop.titlebarleftcornercolour = titlebarleftcornercolour
|
|
ShiftOSDesktop.applaunchermenuholderwidth = applaunchermenuholderwidth
|
|
ShiftOSDesktop.windowborderleftcolour = windowborderleftcolour
|
|
ShiftOSDesktop.windowborderrightcolour = windowborderrightcolour
|
|
ShiftOSDesktop.windowborderbottomcolour = windowborderbottomcolour
|
|
ShiftOSDesktop.windowborderbottomrightcolour = windowborderbottomrightcolour
|
|
ShiftOSDesktop.windowborderbottomleftcolour = windowborderbottomleftcolour
|
|
ShiftOSDesktop.panelbuttonicontop = panelbuttonicontop
|
|
ShiftOSDesktop.panelbuttoniconside = panelbuttoniconside
|
|
ShiftOSDesktop.panelbuttoniconsize = panelbuttoniconsize
|
|
ShiftOSDesktop.panelbuttoniconsize = panelbuttoniconsize
|
|
ShiftOSDesktop.panelbuttonheight = panelbuttonheight
|
|
ShiftOSDesktop.panelbuttonwidth = panelbuttonwidth
|
|
ShiftOSDesktop.panelbuttoncolour = panelbuttoncolour
|
|
ShiftOSDesktop.panelbuttontextcolour = panelbuttontextcolour
|
|
ShiftOSDesktop.panelbuttontextsize = panelbuttontextsize
|
|
ShiftOSDesktop.panelbuttontextfont = panelbuttontextfont
|
|
ShiftOSDesktop.panelbuttontextstyle = panelbuttontextstyle
|
|
ShiftOSDesktop.panelbuttontextside = panelbuttontextside
|
|
ShiftOSDesktop.panelbuttontexttop = panelbuttontexttop
|
|
ShiftOSDesktop.panelbuttongap = panelbuttongap
|
|
ShiftOSDesktop.panelbuttonfromtop = panelbuttonfromtop
|
|
ShiftOSDesktop.panelbuttoninitialgap = panelbuttoninitialgap
|
|
ShiftOSDesktop.minimizebuttoncolour = minimizebuttoncolour
|
|
ShiftOSDesktop.minimizebuttonheight = minimizebuttonheight
|
|
ShiftOSDesktop.minimizebuttonwidth = minimizebuttonwidth
|
|
ShiftOSDesktop.minimizebuttonside = minimizebuttonside
|
|
ShiftOSDesktop.minimizebuttontop = minimizebuttontop
|
|
|
|
If shifterskinimages(0) = Nothing Then Else skinclosebutton(0) = GetImage(shifterskinimages(0))
|
|
If shifterskinimages(1) = Nothing Then Else skinclosebutton(1) = GetImage(shifterskinimages(1))
|
|
If shifterskinimages(2) = Nothing Then Else skinclosebutton(2) = GetImage(shifterskinimages(2))
|
|
If shifterskinimages(3) = Nothing Then Else shifterskintitlebar(0) = GetImage(shifterskinimages(3))
|
|
If shifterskinimages(4) = Nothing Then Else shifterskintitlebar(1) = GetImage(shifterskinimages(4))
|
|
If shifterskinimages(5) = Nothing Then Else shifterskintitlebar(2) = GetImage(shifterskinimages(5))
|
|
If shifterskinimages(6) = Nothing Then Else skindesktopbackground(0) = GetImage(shifterskinimages(6))
|
|
If shifterskinimages(7) = Nothing Then Else skindesktopbackground(1) = GetImage(shifterskinimages(7))
|
|
If shifterskinimages(8) = Nothing Then Else skindesktopbackground(2) = GetImage(shifterskinimages(8))
|
|
If shifterskinimages(9) = Nothing Then Else skinrollupbutton(0) = GetImage(shifterskinimages(9))
|
|
If shifterskinimages(10) = Nothing Then Else skinrollupbutton(1) = GetImage(shifterskinimages(10))
|
|
If shifterskinimages(11) = Nothing Then Else skinrollupbutton(2) = GetImage(shifterskinimages(11))
|
|
If shifterskinimages(12) = Nothing Then Else skintitlebarrightcorner(0) = GetImage(shifterskinimages(12))
|
|
If shifterskinimages(13) = Nothing Then Else skintitlebarrightcorner(1) = GetImage(shifterskinimages(13))
|
|
If shifterskinimages(14) = Nothing Then Else skintitlebarrightcorner(2) = GetImage(shifterskinimages(14))
|
|
If shifterskinimages(15) = Nothing Then Else skintitlebarleftcorner(0) = GetImage(shifterskinimages(15))
|
|
If shifterskinimages(16) = Nothing Then Else skintitlebarleftcorner(1) = GetImage(shifterskinimages(16))
|
|
If shifterskinimages(17) = Nothing Then Else skintitlebarleftcorner(2) = GetImage(shifterskinimages(17))
|
|
If shifterskinimages(18) = Nothing Then Else skindesktoppanel(0) = GetImage(shifterskinimages(18))
|
|
If shifterskinimages(19) = Nothing Then Else skindesktoppanel(1) = GetImage(shifterskinimages(19))
|
|
If shifterskinimages(20) = Nothing Then Else skindesktoppanel(2) = GetImage(shifterskinimages(20))
|
|
If shifterskinimages(21) = Nothing Then Else skindesktoppaneltime(0) = GetImage(shifterskinimages(21))
|
|
If shifterskinimages(22) = Nothing Then Else skindesktoppaneltime(1) = GetImage(shifterskinimages(22))
|
|
If shifterskinimages(23) = Nothing Then Else skindesktoppaneltime(2) = GetImage(shifterskinimages(23))
|
|
If shifterskinimages(24) = Nothing Then Else skinapplauncherbutton(0) = GetImage(shifterskinimages(24))
|
|
If shifterskinimages(25) = Nothing Then Else skinapplauncherbutton(1) = GetImage(shifterskinimages(25))
|
|
If shifterskinimages(26) = Nothing Then Else skinapplauncherbutton(2) = GetImage(shifterskinimages(26))
|
|
If shifterskinimages(27) = Nothing Then Else skinwindowborderleft(0) = GetImage(shifterskinimages(27))
|
|
If shifterskinimages(28) = Nothing Then Else skinwindowborderleft(1) = GetImage(shifterskinimages(28))
|
|
If shifterskinimages(29) = Nothing Then Else skinwindowborderleft(2) = GetImage(shifterskinimages(29))
|
|
If shifterskinimages(30) = Nothing Then Else skinwindowborderright(0) = GetImage(shifterskinimages(30))
|
|
If shifterskinimages(31) = Nothing Then Else skinwindowborderright(1) = GetImage(shifterskinimages(31))
|
|
If shifterskinimages(32) = Nothing Then Else skinwindowborderright(2) = GetImage(shifterskinimages(32))
|
|
If shifterskinimages(33) = Nothing Then Else skinwindowborderbottom(0) = GetImage(shifterskinimages(33))
|
|
If shifterskinimages(34) = Nothing Then Else skinwindowborderbottom(1) = GetImage(shifterskinimages(34))
|
|
If shifterskinimages(35) = Nothing Then Else skinwindowborderbottom(2) = GetImage(shifterskinimages(35))
|
|
If shifterskinimages(36) = Nothing Then Else skinwindowborderbottomright(0) = GetImage(shifterskinimages(36))
|
|
If shifterskinimages(37) = Nothing Then Else skinwindowborderbottomright(1) = GetImage(shifterskinimages(37))
|
|
If shifterskinimages(38) = Nothing Then Else skinwindowborderbottomright(2) = GetImage(shifterskinimages(38))
|
|
If shifterskinimages(39) = Nothing Then Else skinwindowborderbottomleft(0) = GetImage(shifterskinimages(39))
|
|
If shifterskinimages(40) = Nothing Then Else skinwindowborderbottomleft(1) = GetImage(shifterskinimages(40))
|
|
If shifterskinimages(41) = Nothing Then Else skinwindowborderbottomleft(2) = GetImage(shifterskinimages(41))
|
|
If shifterskinimages(42) = Nothing Then Else skinminimizebutton(0) = GetImage(shifterskinimages(42))
|
|
If shifterskinimages(43) = Nothing Then Else skinminimizebutton(1) = GetImage(shifterskinimages(43))
|
|
If shifterskinimages(44) = Nothing Then Else skinminimizebutton(2) = GetImage(shifterskinimages(44))
|
|
If shifterskinimages(45) = Nothing Then Else skinpanelbutton(0) = GetImage(shifterskinimages(45))
|
|
If shifterskinimages(46) = Nothing Then Else skinpanelbutton(1) = GetImage(shifterskinimages(46))
|
|
If shifterskinimages(47) = Nothing Then Else skinpanelbutton(2) = GetImage(shifterskinimages(47))
|
|
|
|
'skins
|
|
Array.Copy(shifterskinimages, ShiftOSDesktop.skinimages, ShiftOSDesktop.skinimages.Length)
|
|
|
|
If skinclosebutton(0) Is Nothing Then Else ShiftOSDesktop.skinclosebutton(0) = skinclosebutton(0).Clone
|
|
If skinclosebutton(1) Is Nothing Then Else ShiftOSDesktop.skinclosebutton(1) = skinclosebutton(1).Clone
|
|
If skinclosebutton(2) Is Nothing Then Else ShiftOSDesktop.skinclosebutton(2) = skinclosebutton(2).Clone
|
|
ShiftOSDesktop.skinclosebuttonstyle = skinclosebuttonstyle
|
|
|
|
If shifterskintitlebar(0) Is Nothing Then Else ShiftOSDesktop.skintitlebar(0) = shifterskintitlebar(0).Clone
|
|
If shifterskintitlebar(1) Is Nothing Then Else ShiftOSDesktop.skintitlebar(1) = shifterskintitlebar(1).Clone
|
|
If shifterskintitlebar(2) Is Nothing Then Else ShiftOSDesktop.skintitlebar(2) = shifterskintitlebar(2).Clone
|
|
ShiftOSDesktop.skintitlebarstyle = skintitlebarstyle
|
|
|
|
If skindesktopbackground(0) Is Nothing Then Else ShiftOSDesktop.skindesktopbackground(0) = skindesktopbackground(0).Clone
|
|
If skindesktopbackground(1) Is Nothing Then Else ShiftOSDesktop.skindesktopbackground(1) = skindesktopbackground(1).Clone
|
|
If skindesktopbackground(2) Is Nothing Then Else ShiftOSDesktop.skindesktopbackground(2) = skindesktopbackground(2).Clone
|
|
ShiftOSDesktop.skindesktopbackgroundstyle = skindesktopbackgroundstyle
|
|
|
|
If skinrollupbutton(0) Is Nothing Then Else ShiftOSDesktop.skinrollupbutton(0) = skinrollupbutton(0).Clone
|
|
If skinrollupbutton(1) Is Nothing Then Else ShiftOSDesktop.skinrollupbutton(1) = skinrollupbutton(1).Clone
|
|
If skinrollupbutton(2) Is Nothing Then Else ShiftOSDesktop.skinrollupbutton(2) = skinrollupbutton(2).Clone
|
|
ShiftOSDesktop.skinrollupbuttonstyle = skinrollupbuttonstyle
|
|
|
|
If skintitlebarrightcorner(0) Is Nothing Then Else ShiftOSDesktop.skintitlebarrightcorner(0) = skintitlebarrightcorner(0).Clone
|
|
If skintitlebarrightcorner(1) Is Nothing Then Else ShiftOSDesktop.skintitlebarrightcorner(1) = skintitlebarrightcorner(1).Clone
|
|
If skintitlebarrightcorner(2) Is Nothing Then Else ShiftOSDesktop.skintitlebarrightcorner(2) = skintitlebarrightcorner(2).Clone
|
|
ShiftOSDesktop.skintitlebarrightcornerstyle = skintitlebarrightcornerstyle
|
|
|
|
If skintitlebarleftcorner(0) Is Nothing Then Else ShiftOSDesktop.skintitlebarleftcorner(0) = skintitlebarleftcorner(0).Clone
|
|
If skintitlebarleftcorner(1) Is Nothing Then Else ShiftOSDesktop.skintitlebarleftcorner(1) = skintitlebarleftcorner(1).Clone
|
|
If skintitlebarleftcorner(2) Is Nothing Then Else ShiftOSDesktop.skintitlebarleftcorner(2) = skintitlebarleftcorner(2).Clone
|
|
ShiftOSDesktop.skintitlebarleftcornerstyle = skintitlebarleftcornerstyle
|
|
|
|
If skindesktoppanel(0) Is Nothing Then Else ShiftOSDesktop.skindesktoppanel(0) = skindesktoppanel(0).Clone
|
|
If skindesktoppanel(1) Is Nothing Then Else ShiftOSDesktop.skindesktoppanel(1) = skindesktoppanel(1).Clone
|
|
If skindesktoppanel(2) Is Nothing Then Else ShiftOSDesktop.skindesktoppanel(2) = skindesktoppanel(2).Clone
|
|
ShiftOSDesktop.skindesktoppanelstyle = skindesktoppanelstyle
|
|
|
|
If skindesktoppaneltime(0) Is Nothing Then Else ShiftOSDesktop.skindesktoppaneltime(0) = skindesktoppaneltime(0).Clone
|
|
If skindesktoppaneltime(1) Is Nothing Then Else ShiftOSDesktop.skindesktoppaneltime(1) = skindesktoppaneltime(1).Clone
|
|
If skindesktoppaneltime(2) Is Nothing Then Else ShiftOSDesktop.skindesktoppaneltime(2) = skindesktoppaneltime(2).Clone
|
|
ShiftOSDesktop.skindesktoppaneltimestyle = skindesktoppaneltimestyle
|
|
|
|
If skinapplauncherbutton(0) Is Nothing Then Else ShiftOSDesktop.skinapplauncherbutton(0) = skinapplauncherbutton(0).Clone
|
|
If skinapplauncherbutton(1) Is Nothing Then Else ShiftOSDesktop.skinapplauncherbutton(1) = skinapplauncherbutton(1).Clone
|
|
If skinapplauncherbutton(2) Is Nothing Then Else ShiftOSDesktop.skinapplauncherbutton(2) = skinapplauncherbutton(2).Clone
|
|
ShiftOSDesktop.skinapplauncherbuttonstyle = skinapplauncherbuttonstyle
|
|
|
|
If skinwindowborderleft(0) Is Nothing Then Else ShiftOSDesktop.skinwindowborderleft(0) = skinwindowborderleft(0).Clone
|
|
If skinwindowborderleft(1) Is Nothing Then Else ShiftOSDesktop.skinwindowborderleft(1) = skinwindowborderleft(1).Clone
|
|
If skinwindowborderleft(2) Is Nothing Then Else ShiftOSDesktop.skinwindowborderleft(2) = skinwindowborderleft(2).Clone
|
|
ShiftOSDesktop.skinwindowborderleftstyle = skinwindowborderleftstyle
|
|
|
|
If skinwindowborderright(0) Is Nothing Then Else ShiftOSDesktop.skinwindowborderright(0) = skinwindowborderright(0).Clone
|
|
If skinwindowborderright(1) Is Nothing Then Else ShiftOSDesktop.skinwindowborderright(1) = skinwindowborderright(1).Clone
|
|
If skinwindowborderright(2) Is Nothing Then Else ShiftOSDesktop.skinwindowborderright(2) = skinwindowborderright(2).Clone
|
|
ShiftOSDesktop.skinwindowborderrightstyle = skinwindowborderrightstyle
|
|
|
|
If skinwindowborderbottom(0) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottom(0) = skinwindowborderbottom(0).Clone
|
|
If skinwindowborderbottom(1) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottom(1) = skinwindowborderbottom(1).Clone
|
|
If skinwindowborderbottom(2) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottom(2) = skinwindowborderbottom(2).Clone
|
|
ShiftOSDesktop.skinwindowborderbottomstyle = skinwindowborderbottomstyle
|
|
|
|
If skinwindowborderbottomright(0) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottomright(0) = skinwindowborderbottomright(0).Clone
|
|
If skinwindowborderbottomright(1) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottomright(1) = skinwindowborderbottomright(1).Clone
|
|
If skinwindowborderbottomright(2) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottomright(2) = skinwindowborderbottomright(2).Clone
|
|
ShiftOSDesktop.skinwindowborderbottomrightstyle = skinwindowborderbottomrightstyle
|
|
|
|
If skinwindowborderbottomleft(0) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottomleft(0) = skinwindowborderbottomleft(0).Clone
|
|
If skinwindowborderbottomleft(1) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottomleft(1) = skinwindowborderbottomleft(1).Clone
|
|
If skinwindowborderbottomleft(2) Is Nothing Then Else ShiftOSDesktop.skinwindowborderbottomleft(2) = skinwindowborderbottomleft(2).Clone
|
|
ShiftOSDesktop.skinwindowborderbottomleftstyle = skinwindowborderbottomleftstyle
|
|
|
|
If skinpanelbutton(0) Is Nothing Then Else ShiftOSDesktop.skinpanelbutton(0) = skinpanelbutton(0).Clone
|
|
If skinpanelbutton(1) Is Nothing Then Else ShiftOSDesktop.skinpanelbutton(1) = skinpanelbutton(1).Clone
|
|
If skinpanelbutton(2) Is Nothing Then Else ShiftOSDesktop.skinpanelbutton(2) = skinpanelbutton(2).Clone
|
|
ShiftOSDesktop.skinpanelbuttonstyle = skinpanelbuttonstyle
|
|
|
|
If skinminimizebutton(0) Is Nothing Then Else ShiftOSDesktop.skinminimizebutton(0) = skinminimizebutton(0).Clone
|
|
If skinminimizebutton(1) Is Nothing Then Else ShiftOSDesktop.skinminimizebutton(1) = skinminimizebutton(1).Clone
|
|
If skinminimizebutton(2) Is Nothing Then Else ShiftOSDesktop.skinminimizebutton(2) = skinminimizebutton(2).Clone
|
|
ShiftOSDesktop.skinminimizebuttonstyle = skinminimizebuttonstyle
|
|
|
|
GC.Collect()
|
|
|
|
ShiftOSDesktop.setcolours()
|
|
ShiftOSDesktop.setupdesktop()
|
|
ShiftOSDesktop.setuppanelbuttons()
|
|
ShiftOSDesktop.setupalltitlebars()
|
|
ShiftOSDesktop.setupskins()
|
|
ShiftOSDesktop.Invalidate()
|
|
|
|
customizationpointsearned = customizationtimepoints
|
|
If customizationsdone < 0 Then customizationpointsearned = customizationpointsearned - Math.Abs(customizationsdone)
|
|
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + customizationpointsearned
|
|
btnapply.Text = "Earned " & customizationpointsearned & " CP"
|
|
btnapply.BackColor = Color.Black
|
|
btnapply.ForeColor = Color.White
|
|
customizationtimepoints = 0
|
|
customizationsdone = 0
|
|
customizationpointsearned = 0
|
|
timerearned.Start()
|
|
|
|
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents)
|
|
loadclone()
|
|
|
|
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
|
|
|
|
Public Sub saveskintocurrentskin()
|
|
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Then Else My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Current\")
|
|
My.Computer.FileSystem.CopyDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", "C:\ShiftOS\Shiftum42\Skins\CurrentCopy\")
|
|
ShiftOSDesktop.disposeoldskindata("shifterapply")
|
|
|
|
For i = 0 To 50
|
|
If shifterskinimages(i) Is Nothing Then Else If shifterskinimages(i).Contains("C:\ShiftOS\Shiftum42\Skins\Current\") Then shifterskinimages(i) = shifterskinimages(i).Replace("Current", "CurrentCopy")
|
|
Next
|
|
|
|
skinlines(0) = titlebarcolour.ToArgb
|
|
skinlines(1) = windowbordercolour.ToArgb
|
|
skinlines(2) = windowbordersize
|
|
skinlines(3) = titlebarheight
|
|
skinlines(4) = closebuttoncolour.ToArgb
|
|
skinlines(5) = closebuttonheight
|
|
skinlines(6) = closebuttonwidth
|
|
skinlines(7) = closebuttonside
|
|
skinlines(8) = closebuttontop
|
|
skinlines(9) = titletextcolour.ToArgb
|
|
skinlines(10) = titletexttop
|
|
skinlines(11) = titletextside
|
|
skinlines(12) = titletextsize
|
|
skinlines(13) = titletextfont
|
|
skinlines(14) = titletextstyle
|
|
skinlines(15) = desktoppanelcolour.ToArgb
|
|
skinlines(16) = desktopbackgroundcolour.ToArgb
|
|
skinlines(17) = desktoppanelheight
|
|
skinlines(18) = desktoppanelposition
|
|
skinlines(19) = clocktextcolour.ToArgb
|
|
skinlines(20) = clockbackgroundcolor.ToArgb
|
|
skinlines(21) = panelclocktexttop
|
|
skinlines(22) = panelclocktextsize
|
|
skinlines(23) = panelclocktextfont
|
|
skinlines(24) = panelclocktextstyle
|
|
skinlines(25) = applauncherbuttoncolour.ToArgb
|
|
skinlines(26) = applauncherbuttonclickedcolour.ToArgb
|
|
skinlines(27) = applauncherbackgroundcolour.ToArgb
|
|
skinlines(28) = applaunchermouseovercolour.ToArgb
|
|
skinlines(29) = applicationsbuttontextcolour.ToArgb
|
|
skinlines(30) = applicationbuttonheight
|
|
skinlines(31) = applicationbuttontextsize
|
|
skinlines(32) = applicationbuttontextfont
|
|
skinlines(33) = applicationbuttontextstyle
|
|
skinlines(34) = applicationlaunchername
|
|
skinlines(35) = titletextposition
|
|
skinlines(36) = rollupbuttoncolour.ToArgb
|
|
skinlines(37) = rollupbuttonheight
|
|
skinlines(38) = rollupbuttonwidth
|
|
skinlines(39) = rollupbuttonside
|
|
skinlines(40) = rollupbuttontop
|
|
skinlines(41) = titlebariconside
|
|
skinlines(42) = titlebaricontop
|
|
skinlines(43) = showwindowcorners
|
|
skinlines(44) = titlebarcornerwidth
|
|
skinlines(45) = titlebarrightcornercolour.ToArgb
|
|
skinlines(46) = titlebarleftcornercolour.ToArgb
|
|
skinlines(47) = applaunchermenuholderwidth
|
|
skinlines(48) = windowborderleftcolour.ToArgb
|
|
skinlines(49) = windowborderrightcolour.ToArgb
|
|
skinlines(50) = windowborderbottomcolour.ToArgb
|
|
skinlines(51) = windowborderbottomrightcolour.ToArgb
|
|
skinlines(52) = windowborderbottomleftcolour.ToArgb
|
|
skinlines(50) = windowborderbottomcolour.ToArgb
|
|
skinlines(51) = windowborderbottomrightcolour.ToArgb
|
|
skinlines(52) = windowborderbottomleftcolour.ToArgb
|
|
skinlines(50) = windowborderbottomcolour.ToArgb
|
|
skinlines(51) = windowborderbottomrightcolour.ToArgb
|
|
skinlines(52) = windowborderbottomleftcolour.ToArgb
|
|
skinlines(50) = windowborderbottomcolour.ToArgb
|
|
skinlines(51) = windowborderbottomrightcolour.ToArgb
|
|
skinlines(52) = windowborderbottomleftcolour.ToArgb
|
|
skinlines(50) = windowborderbottomcolour.ToArgb
|
|
skinlines(51) = windowborderbottomrightcolour.ToArgb
|
|
skinlines(52) = windowborderbottomleftcolour.ToArgb
|
|
skinlines(50) = windowborderbottomcolour.ToArgb
|
|
skinlines(51) = windowborderbottomrightcolour.ToArgb
|
|
skinlines(52) = windowborderbottomleftcolour.ToArgb
|
|
skinlines(53) = panelbuttonicontop
|
|
skinlines(54) = panelbuttoniconside
|
|
skinlines(55) = panelbuttoniconsize
|
|
skinlines(56) = panelbuttoniconsize
|
|
skinlines(57) = panelbuttonheight
|
|
skinlines(58) = panelbuttonwidth
|
|
skinlines(59) = panelbuttoncolour.ToArgb
|
|
skinlines(60) = panelbuttontextcolour.ToArgb
|
|
skinlines(61) = panelbuttontextsize
|
|
skinlines(62) = panelbuttontextfont
|
|
skinlines(63) = panelbuttontextstyle
|
|
skinlines(64) = panelbuttontextside
|
|
skinlines(65) = panelbuttontexttop
|
|
skinlines(66) = panelbuttongap
|
|
skinlines(67) = panelbuttonfromtop
|
|
skinlines(68) = panelbuttoninitialgap
|
|
skinlines(69) = minimizebuttoncolour.ToArgb
|
|
skinlines(70) = minimizebuttonheight
|
|
skinlines(71) = minimizebuttonwidth
|
|
skinlines(72) = minimizebuttonside
|
|
skinlines(73) = minimizebuttontop
|
|
|
|
'convert real locations to currentskin folder
|
|
Dim folderdivider As String = "\"
|
|
For i = 0 To 50
|
|
If shifterskinimages(i) = "" Then
|
|
Else
|
|
If shifterskinimages(i).Contains("\") Then folderdivider = "\" Else folderdivider = "/"
|
|
IO.File.Copy(shifterskinimages(i), "C:\ShiftOS\Shiftum42\Skins\Current\" & shifterskinimages(i).Substring(shifterskinimages(i).LastIndexOf(folderdivider)), True)
|
|
shifterskinimages(i) = "C:\ShiftOS\Shiftum42\Skins\Current\" & shifterskinimages(i).Substring(shifterskinimages(i).LastIndexOf(folderdivider) + 1)
|
|
End If
|
|
Next
|
|
|
|
skinlines(100) = shifterskinimages(0)
|
|
skinlines(101) = shifterskinimages(1)
|
|
skinlines(102) = shifterskinimages(2)
|
|
skinlines(103) = shifterskinimages(3)
|
|
skinlines(104) = shifterskinimages(4)
|
|
skinlines(105) = shifterskinimages(5)
|
|
skinlines(106) = shifterskinimages(6)
|
|
skinlines(107) = shifterskinimages(7)
|
|
skinlines(108) = shifterskinimages(8)
|
|
skinlines(109) = shifterskinimages(9)
|
|
skinlines(110) = shifterskinimages(10)
|
|
skinlines(111) = shifterskinimages(11)
|
|
skinlines(112) = shifterskinimages(12)
|
|
skinlines(113) = shifterskinimages(13)
|
|
skinlines(114) = shifterskinimages(14)
|
|
skinlines(115) = shifterskinimages(15)
|
|
skinlines(116) = shifterskinimages(16)
|
|
skinlines(117) = shifterskinimages(17)
|
|
skinlines(118) = shifterskinimages(18)
|
|
skinlines(119) = shifterskinimages(19)
|
|
skinlines(120) = shifterskinimages(20)
|
|
skinlines(121) = shifterskinimages(21)
|
|
skinlines(122) = shifterskinimages(22)
|
|
skinlines(123) = shifterskinimages(23)
|
|
skinlines(124) = shifterskinimages(24)
|
|
skinlines(125) = shifterskinimages(25)
|
|
skinlines(126) = shifterskinimages(26)
|
|
skinlines(127) = shifterskinimages(27)
|
|
skinlines(128) = shifterskinimages(28)
|
|
skinlines(129) = shifterskinimages(29)
|
|
skinlines(130) = shifterskinimages(30)
|
|
skinlines(131) = shifterskinimages(31)
|
|
skinlines(132) = shifterskinimages(32)
|
|
skinlines(133) = shifterskinimages(33)
|
|
skinlines(134) = shifterskinimages(34)
|
|
skinlines(135) = shifterskinimages(35)
|
|
skinlines(136) = shifterskinimages(36)
|
|
skinlines(137) = shifterskinimages(37)
|
|
skinlines(138) = shifterskinimages(38)
|
|
skinlines(139) = shifterskinimages(39)
|
|
skinlines(140) = shifterskinimages(40)
|
|
skinlines(141) = shifterskinimages(41)
|
|
skinlines(142) = shifterskinimages(42)
|
|
skinlines(143) = shifterskinimages(43)
|
|
skinlines(144) = shifterskinimages(44)
|
|
skinlines(145) = shifterskinimages(45)
|
|
skinlines(146) = shifterskinimages(46)
|
|
skinlines(147) = shifterskinimages(47)
|
|
skinlines(148) = shifterskinimages(48)
|
|
skinlines(149) = shifterskinimages(49)
|
|
skinlines(150) = shifterskinimages(50)
|
|
|
|
IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat", skinlines)
|
|
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 pnlwindowsoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlwindowsoptions.Paint
|
|
'e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlwindowsobjects.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub catholder_Paint(sender As Object, e As PaintEventArgs) Handles catholder.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), catholder.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub btnwindows_Click(sender As Object, e As EventArgs) Handles btnwindows.Click
|
|
pnlwindowsoptions.Location = New Point(133, 6)
|
|
pnlwindowsoptions.Size = New Size(458, 297)
|
|
pnlwindowsoptions.Show()
|
|
pnlwindowsoptions.BringToFront()
|
|
End Sub
|
|
|
|
Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
|
|
pnlreset.Location = New Point(133, 6)
|
|
pnlreset.Size = New Size(458, 297)
|
|
pnlreset.Show()
|
|
pnlreset.BringToFront()
|
|
End Sub
|
|
|
|
Private Sub pnltitlebarcolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Title Bar Colour"
|
|
Colour_Picker.oldcolour = titlebarcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Title Bar"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlbordercolour_Click(sender As Object, e As EventArgs) Handles pnlbordercolour.Click
|
|
Colour_Picker.colourtochange = "Window Border Colour"
|
|
Colour_Picker.oldcolour = windowbordercolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnlclosebuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlclosebuttoncolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Close Button Colour"
|
|
Colour_Picker.oldcolour = closebuttoncolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Close Button"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlborderrightcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderrightcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Border Right Colour"
|
|
Colour_Picker.oldcolour = windowborderrightcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Border Right"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlborderleftcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderleftcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Border Left Colour"
|
|
Colour_Picker.oldcolour = windowborderleftcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Border Left"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlborderbottomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderbottomcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Border Bottom Colour"
|
|
Colour_Picker.oldcolour = windowborderbottomcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Border Bottom"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlborderbottomleftcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderbottomleftcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Border Bottom Left Colour"
|
|
Colour_Picker.oldcolour = windowborderbottomleftcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Border Bottom Left"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlborderbottomrightcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlborderbottomrightcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Border Bottom Right Colour"
|
|
Colour_Picker.oldcolour = windowborderbottomrightcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Border Bottom Right"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnltitletextcolour_click(sender As Object, e As EventArgs) Handles pnltitletextcolour.Click
|
|
Colour_Picker.colourtochange = "Title Text Colour"
|
|
Colour_Picker.oldcolour = titletextcolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnldesktoppanelcolour_Click(sender As Object, e As MouseEventArgs) Handles pnldesktoppanelcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Desktop Panel Colour"
|
|
Colour_Picker.oldcolour = desktoppanelcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Desktop Panel"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlpanelclocktextcolour_Click(sender As Object, e As EventArgs) Handles pnlpanelclocktextcolour.Click
|
|
Colour_Picker.colourtochange = "Clock Text Colour"
|
|
Colour_Picker.oldcolour = clocktextcolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnlclockbackgroundcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlclockbackgroundcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Clock Background Colour"
|
|
Colour_Picker.oldcolour = clockbackgroundcolor
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Clock Background"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnldesktopcolour_Click(sender As Object, e As MouseEventArgs) Handles pnldesktopcolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Desktop Background Colour"
|
|
Colour_Picker.oldcolour = desktopbackgroundcolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Desktop Background"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlmainbuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlmainbuttoncolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "App Launcher Button Colour"
|
|
Colour_Picker.oldcolour = applauncherbuttoncolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "App Launcher Button"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlmainbuttonactivated_Click(sender As Object, e As EventArgs) Handles pnlmainbuttonactivated.Click
|
|
Colour_Picker.colourtochange = "App Launcher Button Clicked Colour"
|
|
Colour_Picker.oldcolour = applauncherbuttonclickedcolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnlmenuitemsmouseover_Click(sender As Object, e As EventArgs) Handles pnlmenuitemsmouseover.Click
|
|
Colour_Picker.colourtochange = "App Launcher Mouse Over Colour"
|
|
Colour_Picker.oldcolour = applaunchermouseovercolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnlrollupbuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlrollupbuttoncolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Roll Up Button Colour"
|
|
Colour_Picker.oldcolour = rollupbuttoncolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Roll Up Button"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlmaintextcolour_Click(sender As Object, e As EventArgs) Handles pnlmaintextcolour.Click
|
|
Colour_Picker.colourtochange = "App Launcher Button Text Colour"
|
|
Colour_Picker.oldcolour = applicationsbuttontextcolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnlpanelbuttontextcolour_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttontextcolour.Click
|
|
Colour_Picker.colourtochange = "Panel Button Text Colour"
|
|
Colour_Picker.oldcolour = panelbuttontextcolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnlmenuitemscolour_Click(sender As Object, e As EventArgs) Handles pnlmenuitemscolour.Click
|
|
Colour_Picker.colourtochange = "App Launcher Items Background Colour"
|
|
Colour_Picker.oldcolour = applauncherbackgroundcolour
|
|
Colour_Picker.Show()
|
|
End Sub
|
|
|
|
Private Sub pnltitlebarleftcornercolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarleftcornercolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Title Bar Left Corner Colour"
|
|
Colour_Picker.oldcolour = titlebarleftcornercolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Title Bar Left Corner"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnltitlebarrightcornercolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarrightcornercolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Title Bar Right Corner Colour"
|
|
Colour_Picker.oldcolour = titlebarrightcornercolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Title Bar Right Corner"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlminimizebuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlminimizebuttoncolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Minimize Button Colour"
|
|
Colour_Picker.oldcolour = minimizebuttoncolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Minimize Button"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlpanelbuttoncolour_Click(sender As Object, e As MouseEventArgs) Handles pnlpanelbuttoncolour.Click
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Colour_Picker.colourtochange = "Panel Button Colour"
|
|
Colour_Picker.oldcolour = panelbuttoncolour
|
|
Colour_Picker.Show()
|
|
Else
|
|
If ShiftOSDesktop.boughtskinning = True Then
|
|
Graphic_Picker.graphictochange = "Panel Button"
|
|
Graphic_Picker.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnltitlebarcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebarcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebarcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnltitlebaroptions_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebaroptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebaroptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlbordercolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlbordercolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlbordercolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlborderoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderoptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderoptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub btntitlebar_Click(sender As Object, e As EventArgs) Handles btntitlebar.Click
|
|
If ShiftOSDesktop.boughtshifttitlebar Then
|
|
pnltitlebaroptions.Show()
|
|
pnltitlebaroptions.Size = New Size(317, 134)
|
|
pnltitlebaroptions.Location = New Point(136, 159)
|
|
pnltitlebaroptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnborders_Click(sender As Object, e As EventArgs) Handles btnborders.Click
|
|
If ShiftOSDesktop.boughtshiftborders Then
|
|
pnlborderoptions.Show()
|
|
pnlborderoptions.Size = New Size(317, 134)
|
|
pnlborderoptions.Location = New Point(136, 159)
|
|
pnlborderoptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txttitlebarheight_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txttitlebarheight.KeyPress, txtclosebuttonheight.KeyPress, txtclosebuttonwidth.KeyPress, txtclosebuttonfromtop.KeyPress, txtclosebuttonfromside.KeyPress, txtbordersize.KeyPress, txttitletexttop.KeyPress, txttitletextside.KeyPress, txttitletextsize.KeyPress, txtdesktoppanelheight.KeyPress, txtclocktextsize.KeyPress, txtclocktextfromtop.KeyPress, txtapplicationsbuttonheight.KeyPress, txtappbuttontextsize.KeyPress, txtrollupbuttonheight.KeyPress, txtrollupbuttonwidth.KeyPress, txtrollupbuttontop.KeyPress, txtrollupbuttonside.KeyPress, txttitlebarcornerwidth.KeyPress, txtapplauncherwidth.KeyPress, txticonfromside.KeyPress, txticonfromtop.KeyPress, txtminimizebuttonheight.KeyPress, txtminimizebuttonwidth.KeyPress, txtminimizebuttonside.KeyPress, txtminimizebuttontop.KeyPress, txtpanelbuttoninitalgap.KeyPress, txtpanelbuttontop.KeyPress, txtpanelbuttonwidth.KeyPress, txtpanelbuttonheight.KeyPress, txtpanelbuttongap.KeyPress, txtpaneltextbuttonsize.KeyPress, txtpanelbuttontextside.KeyPress, txtpanelbuttontexttop.KeyPress, txtpanelbuttoniconsize.KeyPress, txtpanelbuttoniconsize.KeyPress, txtpanelbuttoniconside.KeyPress, txtpanelbuttonicontop.KeyPress
|
|
|
|
If Asc(e.KeyChar) <> 8 Then
|
|
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
|
|
e.Handled = True
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txttitlebarheight_TextChanged(sender As Object, e As EventArgs) Handles txttitlebarheight.TextChanged
|
|
If txttitlebarheight.Text = "" Then
|
|
Else
|
|
titlebarheight = txttitlebarheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnclosebutton_Click(sender As Object, e As EventArgs) Handles btnbuttons.Click
|
|
If ShiftOSDesktop.boughtshifttitlebuttons Then
|
|
pnlbuttonoptions.Show()
|
|
pnlbuttonoptions.Size = New Size(317, 134)
|
|
pnlbuttonoptions.Location = New Point(136, 159)
|
|
pnlbuttonoptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnlclosebuttonoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlbuttonoptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlbuttonoptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlclosebuttoncolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlclosebuttoncolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlclosebuttoncolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub txtclosebuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonheight.TextChanged
|
|
If txtclosebuttonheight.Text = "" Then
|
|
Else
|
|
closebuttonheight = txtclosebuttonheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtclosebuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonwidth.TextChanged
|
|
If txtclosebuttonwidth.Text = "" Then
|
|
Else
|
|
closebuttonwidth = txtclosebuttonwidth.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtclosebuttonfromtop_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonfromtop.TextChanged
|
|
If txtclosebuttonfromtop.Text = "" Then
|
|
Else
|
|
closebuttontop = txtclosebuttonfromtop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtclosebuttonfromside_TextChanged(sender As Object, e As EventArgs) Handles txtclosebuttonfromside.TextChanged
|
|
If txtclosebuttonfromside.Text = "" Then
|
|
Else
|
|
closebuttonside = txtclosebuttonfromside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtbordersize_TextChanged(sender As Object, e As EventArgs) Handles txtbordersize.TextChanged
|
|
If txtbordersize.Text = "" Then
|
|
Else
|
|
windowbordersize = txtbordersize.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btntitletext_Click(sender As Object, e As EventArgs) Handles btntitletext.Click
|
|
If ShiftOSDesktop.boughtshifttitletext Then
|
|
pnltitletextoptions.Show()
|
|
pnltitletextoptions.Size = New Size(317, 134)
|
|
pnltitletextoptions.Location = New Point(136, 159)
|
|
pnltitletextoptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txttitletexttop_TextChanged(sender As Object, e As EventArgs) Handles txttitletexttop.TextChanged
|
|
If txttitletexttop.Text = "" Then
|
|
Else
|
|
titletexttop = txttitletexttop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txttitletextside_TextChanged(sender As Object, e As EventArgs) Handles txttitletextside.TextChanged
|
|
If txttitletextside.Text = "" Then
|
|
Else
|
|
titletextside = txttitletextside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnltitletextcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitletextcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitletextcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub combotitletextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combotitletextfont.SelectedIndexChanged
|
|
If combotitletextfont.Text = "" Then
|
|
Else
|
|
titletextfont = combotitletextfont.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbpanelbuttonfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbpanelbuttonfont.SelectedIndexChanged
|
|
If cbpanelbuttonfont.Text = "" Then
|
|
Else
|
|
panelbuttontextfont = cbpanelbuttonfont.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnltitletextoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnltitletextoptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitletextoptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub txttitletextsize_TextChanged(sender As Object, e As EventArgs) Handles txttitletextsize.TextChanged
|
|
If txttitletextsize.Text = "" OrElse txttitletextsize.Text = "0" Then
|
|
Else
|
|
titletextsize = txttitletextsize.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub combotitletextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combotitletextstyle.SelectedIndexChanged
|
|
Select Case combotitletextstyle.Text
|
|
Case "Bold"
|
|
titletextstyle = FontStyle.Bold
|
|
Case "Italic"
|
|
titletextstyle = FontStyle.Italic
|
|
Case "Regular"
|
|
titletextstyle = FontStyle.Regular
|
|
Case "Strikeout"
|
|
titletextstyle = FontStyle.Strikeout
|
|
Case "Underline"
|
|
titletextstyle = FontStyle.Underline
|
|
End Select
|
|
setuppreshifterstuff()
|
|
|
|
End Sub
|
|
|
|
Private Sub btndesktop_Click(sender As Object, e As EventArgs) Handles btndesktop.Click
|
|
pnldesktopoptions.Location = New Point(133, 6)
|
|
pnldesktopoptions.Size = New Size(458, 297)
|
|
pnldesktopoptions.Show()
|
|
pnldesktopoptions.BringToFront()
|
|
End Sub
|
|
|
|
Private Sub btndesktoppanel_Click(sender As Object, e As EventArgs) Handles btndesktoppanel.Click
|
|
If ShiftOSDesktop.boughtshiftdesktoppanel Then
|
|
pnldesktoppaneloptions.Show()
|
|
pnldesktoppaneloptions.Size = New Size(317, 134)
|
|
pnldesktoppaneloptions.Location = New Point(136, 159)
|
|
pnldesktoppaneloptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnpanelbuttons_Click(sender As Object, e As EventArgs) Handles btnpanelbuttons.Click
|
|
If ShiftOSDesktop.boughtshiftpanelbuttons Then
|
|
pnlpanelbuttonsoptions.Show()
|
|
pnlpanelbuttonsoptions.Size = New Size(317, 134)
|
|
pnlpanelbuttonsoptions.Location = New Point(136, 159)
|
|
pnlpanelbuttonsoptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub pnldesktoppanelcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktoppanelcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktoppanelcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnldesktoppaneloptions_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktoppaneloptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktoppaneloptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnldesktopbackgroundoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktopbackgroundoptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktopbackgroundoptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnldesktopcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnldesktopcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnldesktopcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlpanelclockoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelclockoptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelclockoptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlpanelclockcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelclocktextcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelclocktextcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlclockbackgroundcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlclockbackgroundcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlclockbackgroundcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnltitlebarleftcornercolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebarleftcornercolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebarleftcornercolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnltitlebarrightcornercolour_Paint(sender As Object, e As PaintEventArgs) Handles pnltitlebarrightcornercolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnltitlebarrightcornercolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlapplauncheroptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlapplauncheroptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlapplauncheroptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles pnlmainbuttoncolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmainbuttoncolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles pnlmainbuttonactivated.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmainbuttonactivated.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles pnlmenuitemscolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmenuitemscolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles pnlmenuitemsmouseover.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmenuitemsmouseover.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlmaintextcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlmaintextcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlmaintextcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlborderbottomcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderbottomcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderbottomcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlborderleftcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderleftcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderleftcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlborderrightcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderrightcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderrightcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlborderbottomleftcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderbottomleftcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderbottomleftcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlborderbottomrightcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlborderbottomrightcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlborderbottomrightcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlpanelbuttonsoptions_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelbuttonsoptions.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelbuttonsoptions.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlpanelbuttoncolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelbuttoncolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelbuttoncolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub pnlpanelbuttontextcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlpanelbuttontextcolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlpanelbuttontextcolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub btndesktopitself_Click(sender As Object, e As EventArgs) Handles btndesktopitself.Click
|
|
If ShiftOSDesktop.boughtshiftdesktop Then
|
|
pnldesktopbackgroundoptions.Show()
|
|
pnldesktopbackgroundoptions.Size = New Size(317, 134)
|
|
pnldesktopbackgroundoptions.Location = New Point(136, 159)
|
|
pnldesktopbackgroundoptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtdesktoppanelheight_TextChanged(sender As Object, e As EventArgs) Handles txtdesktoppanelheight.TextChanged
|
|
If txtdesktoppanelheight.Text = "" Then
|
|
Else
|
|
desktoppanelheight = txtdesktoppanelheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub combodesktoppanelposition_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combodesktoppanelposition.SelectedIndexChanged
|
|
Select Case combodesktoppanelposition.Text
|
|
Case "Top"
|
|
desktoppanelposition = "Top"
|
|
Case "Bottom"
|
|
desktoppanelposition = "Bottom"
|
|
End Select
|
|
setuppreshifterstuff()
|
|
End Sub
|
|
|
|
Private Sub btnpanelclock_Click(sender As Object, e As EventArgs) Handles btnpanelclock.Click
|
|
If ShiftOSDesktop.boughtshiftpanelclock Then
|
|
pnlpanelclockoptions.Show()
|
|
pnlpanelclockoptions.Size = New Size(317, 134)
|
|
pnlpanelclockoptions.Location = New Point(136, 159)
|
|
pnlpanelclockoptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub comboclocktextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboclocktextfont.SelectedIndexChanged
|
|
If comboclocktextfont.Text = "" Then
|
|
Else
|
|
panelclocktextfont = comboclocktextfont.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub comboclocktextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboclocktextstyle.SelectedIndexChanged
|
|
Select Case comboclocktextstyle.Text
|
|
Case "Bold"
|
|
panelclocktextstyle = FontStyle.Bold
|
|
Case "Italic"
|
|
panelclocktextstyle = FontStyle.Italic
|
|
Case "Regular"
|
|
panelclocktextstyle = FontStyle.Regular
|
|
Case "Strikeout"
|
|
panelclocktextstyle = FontStyle.Strikeout
|
|
Case "Underline"
|
|
panelclocktextstyle = FontStyle.Underline
|
|
End Select
|
|
setuppreshifterstuff()
|
|
End Sub
|
|
|
|
Private Sub txtclocktextfromtop_TextChanged(sender As Object, e As EventArgs) Handles txtclocktextfromtop.TextChanged
|
|
If txtclocktextfromtop.Text = "" Then
|
|
Else
|
|
panelclocktexttop = txtclocktextfromtop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtclocktextsize_TextChanged(sender As Object, e As EventArgs) Handles txtclocktextsize.TextChanged
|
|
If txtclocktextsize.Text = "" OrElse txtclocktextsize.Text = "0" Then
|
|
Else
|
|
panelclocktextsize = txtclocktextsize.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txttitlebarnornerwidth_TextChanged(sender As Object, e As EventArgs) Handles txttitlebarcornerwidth.TextChanged
|
|
If txttitlebarcornerwidth.Text = "" OrElse txttitlebarcornerwidth.Text = "0" Then
|
|
Else
|
|
titlebarcornerwidth = txttitlebarcornerwidth.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnapplauncher_Click(sender As Object, e As EventArgs) Handles btnapplauncher.Click
|
|
If ShiftOSDesktop.boughtshiftapplauncher Then
|
|
pnlapplauncheroptions.Show()
|
|
pnlapplauncheroptions.Size = New Size(317, 134)
|
|
pnlapplauncheroptions.Location = New Point(136, 159)
|
|
pnlapplauncheroptions.BringToFront()
|
|
Else
|
|
infobox.title = "Shifter - Setting not found!"
|
|
infobox.textinfo = "This setting can not be altered due to no system configuration files matching this option." & Environment.NewLine & Environment.NewLine & "The system files required are either corrupt or do not exist!"
|
|
infobox.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub predesktopappmenu_MouseEnter(sender As Object, e As EventArgs) Handles predesktopappmenu.MouseEnter
|
|
Me.Focus()
|
|
End Sub
|
|
|
|
Private Sub Shifter_MouseEnter(sender As Object, e As EventArgs) Handles ApplicationsToolStripMenuItem.MouseEnter
|
|
ToolStripManager.Renderer = New MyPreviewToolStripRenderer()
|
|
'ShiftOSDesktop.ApplicationsToolStripMenuItem.BackColor = ShiftOSDesktop.applauncherbuttoncolour
|
|
End Sub
|
|
|
|
Private Sub txtapplicationsbuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtapplicationsbuttonheight.TextChanged
|
|
If txtapplicationsbuttonheight.Text = "" Then
|
|
Else
|
|
If txtapplicationsbuttonheight.Text > desktoppanelheight Then
|
|
infobox.title = "Shifter - Illegal Setting!"
|
|
infobox.textinfo = "The height of the application menu button can not exceed the height of the desktop panel." & Environment.NewLine & Environment.NewLine & "The application menu button height has been automatically reduced."
|
|
infobox.Show()
|
|
txtapplicationsbuttonheight.Text = applicationbuttonheight
|
|
Else
|
|
applicationbuttonheight = txtapplicationsbuttonheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtappbuttontextsize_TextChanged(sender As Object, e As EventArgs) Handles txtappbuttontextsize.TextChanged
|
|
If txtappbuttontextsize.Text = "" OrElse txtappbuttontextsize.Text = "0" Then
|
|
Else
|
|
applicationbuttontextsize = txtappbuttontextsize.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub comboappbuttontextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboappbuttontextstyle.SelectedIndexChanged
|
|
Select Case comboappbuttontextstyle.Text
|
|
Case "Bold"
|
|
applicationbuttontextstyle = FontStyle.Bold
|
|
Case "Italic"
|
|
applicationbuttontextstyle = FontStyle.Italic
|
|
Case "Regular"
|
|
applicationbuttontextstyle = FontStyle.Regular
|
|
Case "Strikeout"
|
|
applicationbuttontextstyle = FontStyle.Strikeout
|
|
Case "Underline"
|
|
applicationbuttontextstyle = FontStyle.Underline
|
|
End Select
|
|
setuppreshifterstuff()
|
|
End Sub
|
|
|
|
Private Sub cbpanelbuttontextstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbpanelbuttontextstyle.SelectedIndexChanged
|
|
Select Case cbpanelbuttontextstyle.Text
|
|
Case "Bold"
|
|
panelbuttontextstyle = FontStyle.Bold
|
|
Case "Italic"
|
|
panelbuttontextstyle = FontStyle.Italic
|
|
Case "Regular"
|
|
panelbuttontextstyle = FontStyle.Regular
|
|
Case "Strikeout"
|
|
panelbuttontextstyle = FontStyle.Strikeout
|
|
Case "Underline"
|
|
panelbuttontextstyle = FontStyle.Underline
|
|
End Select
|
|
setuppreshifterstuff()
|
|
End Sub
|
|
|
|
Private Sub comboappbuttontextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboappbuttontextfont.SelectedIndexChanged
|
|
If comboappbuttontextfont.Text = "" Then
|
|
Else
|
|
applicationbuttontextfont = comboappbuttontextfont.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtappbuttonlabel_TextChanged(sender As Object, e As EventArgs) Handles txtappbuttonlabel.TextChanged
|
|
If txtappbuttonlabel.Text = "" Then
|
|
Else
|
|
applicationlaunchername = txtappbuttonlabel.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub combotitletextposition_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combotitletextposition.SelectedIndexChanged
|
|
Select Case combotitletextposition.Text
|
|
Case "Left"
|
|
titletextposition = "Left"
|
|
Case "Centre"
|
|
titletextposition = "Centre"
|
|
End Select
|
|
setuppreshifterstuff()
|
|
End Sub
|
|
|
|
Private Sub pnlrollupbuttoncolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlrollupbuttoncolour.Paint
|
|
e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlrollupbuttoncolour.ClientRectangle)
|
|
End Sub
|
|
|
|
Private Sub combobuttonoption_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combobuttonoption.SelectedIndexChanged
|
|
Select Case combobuttonoption.Text
|
|
Case "Close Button"
|
|
pnlclosebuttonoptions.Show()
|
|
pnlclosebuttonoptions.BringToFront()
|
|
pnlclosebuttonoptions.Location = New Point(1, 27)
|
|
pnlclosebuttonoptions.Size = New Size(315, 104)
|
|
Case "Roll Up Button"
|
|
pnlrollupbuttonoptions.Show()
|
|
pnlrollupbuttonoptions.BringToFront()
|
|
pnlrollupbuttonoptions.Location = New Point(1, 27)
|
|
pnlrollupbuttonoptions.Size = New Size(315, 104)
|
|
Case "Minimize Button"
|
|
pnlminimizebuttonoptions.Show()
|
|
pnlminimizebuttonoptions.BringToFront()
|
|
pnlminimizebuttonoptions.Location = New Point(1, 27)
|
|
pnlminimizebuttonoptions.Size = New Size(315, 104)
|
|
End Select
|
|
setuppreshifterstuff()
|
|
End Sub
|
|
|
|
Private Sub txtrollupbuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttonheight.TextChanged
|
|
If txtrollupbuttonheight.Text = "" Then
|
|
Else
|
|
rollupbuttonheight = txtrollupbuttonheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtrollupbuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttonwidth.TextChanged
|
|
If txtrollupbuttonwidth.Text = "" Then
|
|
Else
|
|
rollupbuttonwidth = txtrollupbuttonwidth.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtrollupbuttontop_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttontop.TextChanged
|
|
If txtrollupbuttontop.Text = "" Then
|
|
Else
|
|
rollupbuttontop = txtrollupbuttontop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtrollupbuttonside_TextChanged(sender As Object, e As EventArgs) Handles txtrollupbuttonside.TextChanged
|
|
If txtrollupbuttonside.Text = "" Then
|
|
Else
|
|
rollupbuttonside = txtrollupbuttonside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtapplauncherwidth_TextChanged(sender As Object, e As EventArgs) Handles txtapplauncherwidth.TextChanged
|
|
If txtapplauncherwidth.Text = "" Then
|
|
Else
|
|
applaunchermenuholderwidth = txtapplauncherwidth.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txticonfromside_TextChanged(sender As Object, e As EventArgs) Handles txticonfromside.TextChanged
|
|
If txticonfromside.Text = "" Then
|
|
Else
|
|
titlebariconside = txticonfromside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txticonfromtop_TextChanged(sender As Object, e As EventArgs) Handles txticonfromtop.TextChanged
|
|
If txticonfromtop.Text = "" Then
|
|
Else
|
|
titlebaricontop = txticonfromtop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtminimizebuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttonheight.TextChanged
|
|
If txtminimizebuttonheight.Text = "" Then
|
|
Else
|
|
minimizebuttonheight = txtminimizebuttonheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtminimizebuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttonwidth.TextChanged
|
|
If txtminimizebuttonwidth.Text = "" Then
|
|
Else
|
|
minimizebuttonwidth = txtminimizebuttonwidth.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtminimizebuttontop_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttontop.TextChanged
|
|
If txtminimizebuttontop.Text = "" Then
|
|
Else
|
|
minimizebuttontop = txtminimizebuttontop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtminimizebuttonside_TextChanged(sender As Object, e As EventArgs) Handles txtminimizebuttonside.TextChanged
|
|
If txtminimizebuttonside.Text = "" Then
|
|
Else
|
|
minimizebuttonside = txtminimizebuttonside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttoninitalgap_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttoninitalgap.TextChanged
|
|
If txtpanelbuttoninitalgap.Text = "" Then
|
|
Else
|
|
panelbuttoninitialgap = txtpanelbuttoninitalgap.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttontop_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttontop.TextChanged
|
|
If txtpanelbuttontop.Text = "" Then
|
|
Else
|
|
panelbuttonfromtop = txtpanelbuttontop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttonwidth_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttonwidth.TextChanged
|
|
If txtpanelbuttonwidth.Text = "" Then
|
|
Else
|
|
panelbuttonwidth = txtpanelbuttonwidth.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttonheight_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttonheight.TextChanged
|
|
If txtpanelbuttonheight.Text = "" Then
|
|
Else
|
|
panelbuttonheight = txtpanelbuttonheight.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttongap_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttongap.TextChanged
|
|
If txtpanelbuttongap.Text = "" Then
|
|
Else
|
|
panelbuttongap = txtpanelbuttongap.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpaneltextbuttonsize_TextChanged(sender As Object, e As EventArgs) Handles txtpaneltextbuttonsize.TextChanged
|
|
If txtpaneltextbuttonsize.Text = "" Then
|
|
Else
|
|
panelbuttontextsize = txtpaneltextbuttonsize.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttontextside_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttontextside.TextChanged
|
|
If txtpanelbuttontextside.Text = "" Then
|
|
Else
|
|
panelbuttontextside = txtpanelbuttontextside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttontexttop_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttontexttop.TextChanged
|
|
If txtpanelbuttontexttop.Text = "" Then
|
|
Else
|
|
panelbuttontexttop = txtpanelbuttontexttop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttoniconsize_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttoniconsize.TextChanged
|
|
If txtpanelbuttoniconsize.Text = "" Then
|
|
Else
|
|
panelbuttoniconsize = txtpanelbuttoniconsize.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttoniconside_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttoniconside.TextChanged
|
|
If txtpanelbuttoniconside.Text = "" Then
|
|
Else
|
|
panelbuttoniconside = txtpanelbuttoniconside.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtpanelbuttonicontop_TextChanged(sender As Object, e As EventArgs) Handles txtpanelbuttonicontop.TextChanged
|
|
If txtpanelbuttonicontop.Text = "" Then
|
|
Else
|
|
panelbuttonicontop = txtpanelbuttonicontop.Text
|
|
setuppreshifterstuff()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub customizationtime_Tick(sender As Object, e As EventArgs) Handles customizationtime.Tick
|
|
If customizationsdone > -10 Then
|
|
customizationtimepoints = customizationtimepoints + 1
|
|
customizationsdone = customizationsdone - 1
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub timerearned_Tick(sender As Object, e As EventArgs) Handles timerearned.Tick
|
|
btnapply.Text = "Apply Changes"
|
|
btnapply.BackColor = Color.White
|
|
btnapply.ForeColor = Color.Black
|
|
timerearned.Stop()
|
|
End Sub
|
|
|
|
Private Sub cboxtitlebarcorners_CheckedChanged(sender As Object, e As EventArgs) Handles cboxtitlebarcorners.CheckedChanged
|
|
If cboxtitlebarcorners.CheckState = CheckState.Checked Then
|
|
prepgtoplcorner.Show()
|
|
prepgtoprcorner.Show()
|
|
pnltitlebarleftcornercolour.Show()
|
|
pnltitlebarrightcornercolour.Show()
|
|
txttitlebarcornerwidth.Show()
|
|
lbcornerwidth.Show()
|
|
lbcornerwidthpx.Show()
|
|
lbleftcornercolor.Show()
|
|
lbrightcornercolor.Show()
|
|
showwindowcorners = True
|
|
Else
|
|
prepgtoplcorner.Hide()
|
|
prepgtoprcorner.Hide()
|
|
pnltitlebarleftcornercolour.Hide()
|
|
pnltitlebarrightcornercolour.Hide()
|
|
txttitlebarcornerwidth.Hide()
|
|
lbcornerwidth.Hide()
|
|
lbcornerwidthpx.Hide()
|
|
lbleftcornercolor.Hide()
|
|
lbrightcornercolor.Hide()
|
|
showwindowcorners = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbindividualbordercolours_CheckedChanged(sender As Object, e As EventArgs) Handles cbindividualbordercolours.CheckedChanged
|
|
If cbindividualbordercolours.CheckState = CheckState.Checked Then
|
|
Label73.Show()
|
|
Label74.Show()
|
|
Label75.Show()
|
|
Label76.Show()
|
|
Label77.Show()
|
|
pnlborderleftcolour.Show()
|
|
pnlborderrightcolour.Show()
|
|
pnlborderbottomcolour.Show()
|
|
pnlborderbottomrightcolour.Show()
|
|
pnlborderbottomleftcolour.Show()
|
|
Else
|
|
Label73.Hide()
|
|
Label74.Hide()
|
|
Label75.Hide()
|
|
Label76.Hide()
|
|
Label77.Hide()
|
|
pnlborderleftcolour.Hide()
|
|
pnlborderrightcolour.Hide()
|
|
pnlborderbottomcolour.Hide()
|
|
pnlborderbottomrightcolour.Hide()
|
|
pnlborderbottomleftcolour.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnresetallsettings_Click(sender As Object, e As EventArgs) Handles btnresetallsettings.Click
|
|
titlebarcolour = Color.Gray
|
|
windowbordercolour = Color.Gray
|
|
windowbordersize = 2
|
|
titlebarheight = 30
|
|
closebuttoncolour = Color.Black
|
|
closebuttonheight = 22
|
|
closebuttonwidth = 22
|
|
closebuttonside = 5
|
|
closebuttontop = 4
|
|
titletextcolour = Color.White
|
|
titletexttop = 7
|
|
titletextside = 4
|
|
titletextsize = 11
|
|
titletextfont = "Felix Titling"
|
|
titletextstyle = FontStyle.Bold
|
|
desktoppanelcolour = Color.Gray
|
|
desktopbackgroundcolour = Color.Black
|
|
desktoppanelheight = 24
|
|
desktoppanelposition = "Top"
|
|
clocktextcolour = Color.Black
|
|
clockbackgroundcolor = Color.Gray
|
|
panelclocktexttop = 0
|
|
panelclocktextsize = 14
|
|
panelclocktextfont = "Trebuchet MS"
|
|
panelclocktextstyle = FontStyle.Regular
|
|
applauncherbuttoncolour = Color.Gray
|
|
applauncherbuttonclickedcolour = Color.Gray
|
|
applauncherbackgroundcolour = Color.Gray
|
|
applaunchermouseovercolour = Color.Gray
|
|
applicationsbuttontextcolour = Color.Black
|
|
applicationbuttonheight = 24
|
|
applicationbuttontextsize = 10
|
|
applicationbuttontextfont = "Byington"
|
|
applicationbuttontextstyle = FontStyle.Bold
|
|
applicationlaunchername = "Applications"
|
|
titletextposition = "Left"
|
|
rollupbuttoncolour = Color.Black
|
|
rollupbuttonheight = 22
|
|
rollupbuttonwidth = 22
|
|
rollupbuttonside = 32
|
|
rollupbuttontop = 4
|
|
titlebariconside = 8
|
|
titlebaricontop = 8
|
|
showwindowcorners = False
|
|
titlebarcornerwidth = 2
|
|
titlebarrightcornercolour = Color.White
|
|
titlebarleftcornercolour = Color.White
|
|
applaunchermenuholderwidth = 100
|
|
windowborderleftcolour = Color.Gray
|
|
windowborderrightcolour = Color.Gray
|
|
windowborderbottomcolour = Color.Gray
|
|
windowborderbottomrightcolour = Color.Gray
|
|
windowborderbottomleftcolour = Color.Gray
|
|
panelbuttonicontop = 3
|
|
panelbuttoniconside = 4
|
|
panelbuttoniconsize = 16
|
|
panelbuttoniconsize = 16
|
|
panelbuttonheight = 22
|
|
panelbuttonwidth = 186
|
|
panelbuttoncolour = Color.Black
|
|
panelbuttontextcolour = Color.White
|
|
panelbuttontextsize = 10
|
|
panelbuttontextfont = "Microsoft Sans Serif"
|
|
panelbuttontextstyle = FontStyle.Bold
|
|
panelbuttontextside = 22
|
|
panelbuttontexttop = 2
|
|
panelbuttongap = 1
|
|
panelbuttonfromtop = 1
|
|
panelbuttoninitialgap = 5
|
|
minimizebuttoncolour = Color.Black
|
|
minimizebuttonheight = 22
|
|
minimizebuttonwidth = 22
|
|
minimizebuttonside = 59
|
|
minimizebuttontop = 4
|
|
Array.Clear(shifterskinimages, 0, shifterskinimages.Length)
|
|
Array.Clear(skinclosebutton, 0, skinclosebutton.Length)
|
|
skinclosebuttonstyle = ImageLayout.Stretch
|
|
Array.Clear(shifterskintitlebar, 0, shifterskintitlebar.Length)
|
|
skintitlebarstyle = ImageLayout.Stretch
|
|
Array.Clear(skindesktopbackground, 0, skindesktopbackground.Length)
|
|
skindesktopbackgroundstyle = ImageLayout.Stretch
|
|
Array.Clear(skinrollupbutton, 0, skinrollupbutton.Length)
|
|
skinrollupbuttonstyle = ImageLayout.Stretch
|
|
Array.Clear(skintitlebarrightcorner, 0, skintitlebarrightcorner.Length)
|
|
skintitlebarrightcornerstyle = ImageLayout.Stretch
|
|
Array.Clear(skintitlebarleftcorner, 0, skintitlebarleftcorner.Length)
|
|
skintitlebarleftcornerstyle = ImageLayout.Stretch
|
|
Array.Clear(skindesktoppanel, 0, skindesktoppanel.Length)
|
|
skindesktoppanelstyle = ImageLayout.Stretch
|
|
Array.Clear(skindesktoppaneltime, 0, skindesktoppaneltime.Length)
|
|
skindesktoppaneltimestyle = ImageLayout.Stretch
|
|
Array.Clear(skinapplauncherbutton, 0, skinapplauncherbutton.Length)
|
|
skinapplauncherbuttonstyle = ImageLayout.Stretch
|
|
Array.Clear(skinwindowborderleft, 0, skinwindowborderleft.Length)
|
|
skinwindowborderleftstyle = ImageLayout.Stretch
|
|
Array.Clear(skinwindowborderright, 0, skinwindowborderright.Length)
|
|
skinwindowborderrightstyle = ImageLayout.Stretch
|
|
Array.Clear(skinwindowborderbottom, 0, skinwindowborderbottom.Length)
|
|
skinwindowborderbottomstyle = ImageLayout.Stretch
|
|
Array.Clear(skinwindowborderbottomright, 0, skinwindowborderbottomright.Length)
|
|
skinwindowborderbottomrightstyle = ImageLayout.Stretch
|
|
Array.Clear(skinwindowborderbottomleft, 0, skinwindowborderbottomleft.Length)
|
|
skinwindowborderbottomleftstyle = ImageLayout.Stretch
|
|
Array.Clear(skinpanelbutton, 0, skinpanelbutton.Length)
|
|
skinpanelbuttonstyle = ImageLayout.Stretch
|
|
Array.Clear(skinminimizebutton, 0, skinminimizebutton.Length)
|
|
skinminimizebuttonstyle = ImageLayout.Stretch
|
|
|
|
'postsettings
|
|
If ShiftOSDesktop.boughtknowledgeinputicon = True Then titletextside = titletextside + 22
|
|
setuppreshifterstuff()
|
|
applysettings()
|
|
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
|
|
|
|
Private Sub tmrfix_Tick(sender As Object, e As EventArgs) Handles tmrfix.Tick
|
|
|
|
|
|
|
|
tmrfix.Stop()
|
|
End Sub
|
|
End Class |