diff options
Diffstat (limited to 'Graphic Picker.vb')
| -rw-r--r-- | Graphic Picker.vb | 659 |
1 files changed, 659 insertions, 0 deletions
diff --git a/Graphic Picker.vb b/Graphic Picker.vb new file mode 100644 index 0000000..38f8a69 --- /dev/null +++ b/Graphic Picker.vb @@ -0,0 +1,659 @@ +Public Class Graphic_Picker + 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 graphictochange + Public imagestyle As ImageLayout = ImageLayout.Stretch + Public images(2) As Image + Public imagelocations(2) As String + Public skinimages(100) As String + Dim firstrun As Boolean = True + + Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load + justopened = True + GC.Collect() + setuptitlebar() + setupborders() + ShiftOSDesktop.setcolours() + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + setskin() + + ShiftOSDesktop.pnlpanelbuttongraphicpicker.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttongraphicpicker, ShiftOSDesktop.tbgraphicpickericon, ShiftOSDesktop.tbgraphicpickertext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + Array.Copy(Shifter.shifterskinimages, skinimages, skinimages.Length) + 'For a = 0 To skinimages.Length - 1 + ' skinimages(a) = Shifter.shifterskinimages(a).Clone + 'Next + + setupgraphics() + + If ShiftOSDesktop.boughtskinstates = False Then + picmouseover.Hide() + txtmouseoverfile.Hide() + Label3.Hide() + btnmouseoverbrowse.Hide() + picmousedown.Hide() + Label4.Hide() + txtmousedownfile.Hide() + btnmousedownbrowse.Hide() + Me.Height = Me.Height - 150 + End If + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'Make terminal appear + If e.KeyCode = Keys.T AndAlso e.Control Then + Terminal.Show() + Terminal.Visible = True + Terminal.BringToFront() + End If + + 'Movable Windows + If ShiftOSDesktop.boughtmovablewindows = True Then + If e.KeyCode = Keys.A AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y) + End If + If e.KeyCode = Keys.D AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y) + End If + If e.KeyCode = Keys.W AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber) + End If + If e.KeyCode = Keys.S AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber) + End If + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine + End If + End Sub + + Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown + ' Handle Draggable Windows + If ShiftOSDesktop.boughtdraggablewindows = True Then + If e.Button = MouseButtons.Left Then + titlebar.Capture = False + lbtitletext.Capture = False + pnlicon.Capture = False + pgtoplcorner.Capture = False + pgtoprcorner.Capture = False + Const WM_NCLBUTTONDOWN As Integer = &HA1S + Const HTCAPTION As Integer = 2 + Dim msg As Message = _ + Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _ + New IntPtr(HTCAPTION), IntPtr.Zero) + Me.DefWndProc(msg) + End If + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine + End If + End Sub + + Public Sub setupborders() + If ShiftOSDesktop.boughtwindowborders = False Then + pgleft.Hide() + pgbottom.Hide() + pgright.Hide() + Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height) + End If + End Sub + + Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click + Me.Close() + End Sub + + Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp + closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1) + End Sub + + Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave + closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0) + End Sub + + Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown + closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2) + End Sub + + Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click + ShiftOSDesktop.minimizeprogram(Me) + End Sub + + Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter + If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1) + End Sub + + Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave + If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0) + End Sub + + Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click + rollupanddown() + End Sub + + Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp + rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1) + End Sub + + Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave + rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0) + End Sub + + Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown + rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2) + End Sub + + Public Sub setuptitlebar() + + If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True + pgleft.Width = ShiftOSDesktop.windowbordersize + pgright.Width = ShiftOSDesktop.windowbordersize + pgbottom.Height = ShiftOSDesktop.windowbordersize + titlebar.Height = ShiftOSDesktop.titlebarheight + + If justopened = True Then + Me.Size = New Size(390, 570) '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.graphicpickername + lbtitletext.Show() + End If + + If ShiftOSDesktop.boughtclosebutton = False Then + closebutton.Hide() + Else + closebutton.BackColor = ShiftOSDesktop.closebuttoncolour + closebutton.Height = ShiftOSDesktop.closebuttonheight + closebutton.Width = ShiftOSDesktop.closebuttonwidth + closebutton.Show() + End If + + If ShiftOSDesktop.boughtrollupbutton = False Then + rollupbutton.Hide() + Else + rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour + rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight + rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth + rollupbutton.Show() + End If + + If ShiftOSDesktop.boughtminimizebutton = False Then + minimizebutton.Hide() + Else + minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour + minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight + minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth + minimizebutton.Show() + End If + + If ShiftOSDesktop.boughtwindowborders = True Then + closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop) + rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop) + minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop) + Select Case ShiftOSDesktop.titletextposition + Case "Left" + lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop) + End Select + lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour + Else + closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop) + rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop) + minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop) + Select Case ShiftOSDesktop.titletextposition + Case "Left" + lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop) + End Select + lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour + End If + + If ShiftOSDesktop.boughtknowledgeinputicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.graphicpickericontitlebar '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 setupgraphics() + lblobjecttoskin.Text = graphictochange + picgraphic.Dock = DockStyle.None + + Select Case graphictochange + Case "Close Button" + setpreviewsizes(Shifter.closebuttonwidth, Shifter.closebuttonheight, Shifter.skinclosebutton, Shifter.skinclosebuttonstyle, 0, 1, 2) + Case "Title Bar" + setpreviewsizes(pnlgraphicholder.Width, Shifter.titlebarheight, Shifter.shifterskintitlebar, Shifter.skintitlebarstyle, 3, 4, 5) + Case "Desktop Background" + setpreviewsizes(pnlgraphicholder.Width, picgraphic.Height, Shifter.skindesktopbackground, Shifter.skindesktopbackgroundstyle, 6, 7, 8) + Case "Roll Up Button" + setpreviewsizes(Shifter.rollupbuttonwidth, Shifter.rollupbuttonheight, Shifter.skinrollupbutton, Shifter.skinrollupbuttonstyle, 9, 10, 11) + Case "Title Bar Right Corner" + setpreviewsizes(Shifter.titlebarcornerwidth, Shifter.titlebarheight, Shifter.skintitlebarrightcorner, Shifter.skintitlebarrightcornerstyle, 12, 13, 14) + Case "Title Bar Left Corner" + setpreviewsizes(Shifter.titlebarcornerwidth, Shifter.titlebarheight, Shifter.skintitlebarleftcorner, Shifter.skintitlebarleftcornerstyle, 15, 16, 17) + Case "Desktop Panel" + setpreviewsizes(pnlgraphicholder.Width, Shifter.desktoppanelheight, Shifter.skindesktoppanel, Shifter.skindesktoppanelstyle, 18, 19, 20) + Case "Desktop Clock" + setpreviewsizes(Shifter.pretimepanel.Width, Shifter.desktoppanelheight, Shifter.skindesktoppaneltime, Shifter.skindesktoppaneltimestyle, 21, 22, 23) + Case "App Launcher Button" + setpreviewsizes(Shifter.applaunchermenuholderwidth, Shifter.applicationbuttonheight, Shifter.skinapplauncherbutton, Shifter.skinapplauncherbuttonstyle, 24, 25, 26) + Case "Border Left" + setpreviewsizes(Shifter.windowbordersize, picgraphic.Height, Shifter.skinwindowborderleft, Shifter.skinwindowborderleftstyle, 27, 28, 29) + Case "Border Right" + setpreviewsizes(Shifter.windowbordersize, picgraphic.Height, Shifter.skinwindowborderright, Shifter.skinwindowborderrightstyle, 30, 31, 32) + Case "Border Bottom" + setpreviewsizes(picgraphic.Width, Shifter.windowbordersize, Shifter.skinwindowborderbottom, Shifter.skinwindowborderbottomstyle, 33, 34, 35) + Case "Border Bottom Right" + setpreviewsizes(Shifter.windowbordersize, Shifter.windowbordersize, Shifter.skinwindowborderbottomright, Shifter.skinwindowborderbottomrightstyle, 36, 37, 38) + Case "Border Bottom Left" + setpreviewsizes(Shifter.windowbordersize, Shifter.windowbordersize, Shifter.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleftstyle, 39, 40, 41) + Case "Minimize Button" + setpreviewsizes(Shifter.minimizebuttonwidth, Shifter.minimizebuttonheight, Shifter.skinminimizebutton, Shifter.skinminimizebuttonstyle, 42, 43, 44) + Case "Panel Button" + setpreviewsizes(Shifter.panelbuttonwidth, Shifter.panelbuttonheight, Shifter.skinpanelbutton, Shifter.skinpanelbuttonstyle, 45, 46, 47) + End Select + + setbuttongraphics() + End Sub + + Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click + Select Case graphictochange + Case "Close Button" + Array.Copy(images, Shifter.skinclosebutton, Shifter.skinclosebutton.Length) + Shifter.shifterskinimages(0) = imagelocations(0).Clone + Shifter.shifterskinimages(1) = imagelocations(1).Clone + Shifter.shifterskinimages(2) = imagelocations(2).Clone + Shifter.skinclosebuttonstyle = imagestyle + Case "Title Bar" + Array.Copy(images, Shifter.shifterskintitlebar, Shifter.shifterskintitlebar.Length) + Shifter.shifterskinimages(3) = imagelocations(0).Clone + Shifter.shifterskinimages(4) = imagelocations(1).Clone + Shifter.shifterskinimages(5) = imagelocations(2).Clone + Shifter.skintitlebarstyle = imagestyle + Case "Desktop Background" + Array.Copy(images, Shifter.skindesktopbackground, Shifter.skindesktopbackground.Length) + Shifter.shifterskinimages(6) = imagelocations(0).Clone + Shifter.shifterskinimages(7) = imagelocations(1).Clone + Shifter.shifterskinimages(8) = imagelocations(2).Clone + Shifter.skindesktopbackgroundstyle = imagestyle + Case "Roll Up Button" + Array.Copy(images, Shifter.skinrollupbutton, Shifter.skinrollupbutton.Length) + Shifter.shifterskinimages(9) = imagelocations(0).Clone + Shifter.shifterskinimages(10) = imagelocations(1).Clone + Shifter.shifterskinimages(11) = imagelocations(2).Clone + Shifter.skinrollupbuttonstyle = imagestyle + Case "Title Bar Right Corner" + Array.Copy(images, Shifter.skintitlebarrightcorner, Shifter.skintitlebarrightcorner.Length) + Shifter.shifterskinimages(12) = imagelocations(0).Clone + Shifter.shifterskinimages(13) = imagelocations(1).Clone + Shifter.shifterskinimages(14) = imagelocations(2).Clone + Shifter.skintitlebarrightcornerstyle = imagestyle + Case "Title Bar Left Corner" + Array.Copy(images, Shifter.skintitlebarleftcorner, Shifter.skintitlebarleftcorner.Length) + Shifter.shifterskinimages(15) = imagelocations(0).Clone + Shifter.shifterskinimages(16) = imagelocations(1).Clone + Shifter.shifterskinimages(17) = imagelocations(2).Clone + Shifter.skintitlebarleftcornerstyle = imagestyle + Case "Desktop Panel" + Array.Copy(images, Shifter.skindesktoppanel, Shifter.skindesktoppanel.Length) + Shifter.shifterskinimages(18) = imagelocations(0).Clone + Shifter.shifterskinimages(19) = imagelocations(1).Clone + Shifter.shifterskinimages(20) = imagelocations(2).Clone + Shifter.skindesktoppanelstyle = imagestyle + Case "Clock Background" + Array.Copy(images, Shifter.skindesktoppaneltime, Shifter.skindesktoppaneltime.Length) + Shifter.shifterskinimages(21) = imagelocations(0).Clone + Shifter.shifterskinimages(22) = imagelocations(1).Clone + Shifter.shifterskinimages(23) = imagelocations(2).Clone + Shifter.skindesktoppaneltimestyle = imagestyle + Case "App Launcher Button" + Array.Copy(images, Shifter.skinapplauncherbutton, Shifter.skinapplauncherbutton.Length) + Shifter.shifterskinimages(24) = imagelocations(0).Clone + Shifter.shifterskinimages(25) = imagelocations(1).Clone + Shifter.shifterskinimages(26) = imagelocations(2).Clone + Shifter.skinapplauncherbuttonstyle = imagestyle + Case "Border Left" + Array.Copy(images, Shifter.skinwindowborderleft, Shifter.skinwindowborderleft.Length) + Shifter.shifterskinimages(27) = imagelocations(0).Clone + Shifter.shifterskinimages(28) = imagelocations(1).Clone + Shifter.shifterskinimages(29) = imagelocations(2).Clone + Shifter.skinwindowborderleftstyle = imagestyle + Case "Border Right" + Array.Copy(images, Shifter.skinwindowborderright, Shifter.skinwindowborderright.Length) + Shifter.shifterskinimages(30) = imagelocations(0).Clone + Shifter.shifterskinimages(31) = imagelocations(1).Clone + Shifter.shifterskinimages(32) = imagelocations(2).Clone + Shifter.skinwindowborderrightstyle = imagestyle + Case "Border Bottom" + Array.Copy(images, Shifter.skinwindowborderbottom, Shifter.skinwindowborderbottom.Length) + Shifter.shifterskinimages(33) = imagelocations(0).Clone + Shifter.shifterskinimages(34) = imagelocations(1).Clone + Shifter.shifterskinimages(35) = imagelocations(2).Clone + Shifter.skinwindowborderbottomstyle = imagestyle + Case "Border Bottom Right" + Array.Copy(images, Shifter.skinwindowborderbottomright, Shifter.skinwindowborderbottomright.Length) + Shifter.shifterskinimages(36) = imagelocations(0).Clone + Shifter.shifterskinimages(37) = imagelocations(1).Clone + Shifter.shifterskinimages(38) = imagelocations(2).Clone + Shifter.skinwindowborderbottomrightstyle = imagestyle + Case "Border Bottom Left" + Array.Copy(images, Shifter.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft.Length) + Shifter.shifterskinimages(39) = imagelocations(0).Clone + Shifter.shifterskinimages(40) = imagelocations(1).Clone + Shifter.shifterskinimages(41) = imagelocations(2).Clone + Shifter.skinwindowborderbottomleftstyle = imagestyle + Case "Minimize Button" + Array.Copy(images, Shifter.skinminimizebutton, Shifter.skinminimizebutton.Length) + Shifter.shifterskinimages(42) = imagelocations(0).Clone + Shifter.shifterskinimages(43) = imagelocations(1).Clone + Shifter.shifterskinimages(44) = imagelocations(2).Clone + Shifter.skinminimizebuttonstyle = imagestyle + Case "Panel Button" + Array.Copy(images, Shifter.skinpanelbutton, Shifter.skinpanelbutton.Length) + Shifter.shifterskinimages(45) = imagelocations(0).Clone + Shifter.shifterskinimages(46) = imagelocations(1).Clone + Shifter.shifterskinimages(47) = imagelocations(2).Clone + Shifter.skinpanelbuttonstyle = imagestyle + End Select + + Shifter.setuppreshifterstuff() + + Me.Close() + End Sub + + Private Sub setpreviewsizes(ByVal width As Integer, ByVal height As Integer, ByVal skinwhat As Array, ByVal skinstyle As ImageLayout, ByVal imagenumber1 As Integer, ByVal imagenumber2 As Integer, ByVal imagenumber3 As Integer) + picgraphic.Size = New Size(width, height) + + Array.Copy(images, skinwhat, skinwhat.Length) + 'For a = 0 To skinwhat.Length - 1 + ' skinwhat(a) = images(a).Clone + 'Next + + If firstrun = True Then + firstrun = False + + GC.Collect() + + 'fix a hang issue when the image isn't changed + ' If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Temp") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Temp", FileIO.DeleteDirectoryOption.DeleteAllContents) + If skinimages(imagenumber1) = "" Then + Else + My.Computer.FileSystem.CopyFile(skinimages(imagenumber1), "C:\ShiftOS\Shiftum42\Skins\Temp\" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\")), True) + skinimages(imagenumber1) = "C:\ShiftOS\Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\")) + skinimages(imagenumber2) = "C:\ShiftOS\Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\")) + skinimages(imagenumber3) = "C:\ShiftOS\Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\")) + End If + + GC.Collect() + + imagelocations(0) = skinimages(imagenumber1) + If imagelocations(0) = Nothing Then + Else + picgraphic.BackgroundImage = Image.FromFile(imagelocations(0)) + picidle.BackgroundImage = Image.FromFile(imagelocations(0)) + images(0) = Image.FromFile(imagelocations(0)) + txtidlefile.Text = imagelocations(0).Substring(imagelocations(0).LastIndexOf("/") + 1) + End If + + imagelocations(1) = skinimages(imagenumber2) + If imagelocations(1) = Nothing Then + Else + picgraphic.BackgroundImage = Image.FromFile(imagelocations(1)) + picmouseover.BackgroundImage = Image.FromFile(imagelocations(1)) + images(1) = Image.FromFile(imagelocations(1)) + txtmouseoverfile.Text = imagelocations(1).Substring(imagelocations(1).LastIndexOf("/") + 1) + End If + + imagelocations(2) = skinimages(imagenumber3) + If imagelocations(2) = Nothing Then + Else + picgraphic.BackgroundImage = Image.FromFile(imagelocations(2)) + picmousedown.BackgroundImage = Image.FromFile(imagelocations(2)) + images(2) = Image.FromFile(imagelocations(2)) + txtmousedownfile.Text = imagelocations(2).Substring(imagelocations(2).LastIndexOf("/") + 1) + imagestyle = skinstyle + End If + End If + + If picgraphic.Height > 100 Then + picgraphic.Dock = DockStyle.Fill + picgraphic.BackgroundImageLayout = ImageLayout.Stretch + Else + picgraphic.Location = New Point((pnlgraphicholder.Width / 2) - (picgraphic.Width / 2), (pnlgraphicholder.Height / 2) - (picgraphic.Height / 2)) + picgraphic.BackgroundImageLayout = imagestyle + End If + + If imagelocations(0) = "" Then Else picgraphic.BackgroundImage = Image.FromFile(imagelocations(0)) + End Sub + + Private Sub cloneidle() + txtmouseoverfile.Text = txtidlefile.Text + picmouseover.BackgroundImage = Image.FromFile(imagelocations(0)) + images(1) = Image.FromFile(imagelocations(0)) + imagelocations(1) = imagelocations(0) + txtmousedownfile.Text = txtidlefile.Text + picmousedown.BackgroundImage = Image.FromFile(imagelocations(0)) + images(2) = Image.FromFile(imagelocations(0)) + imagelocations(2) = imagelocations(0) + End Sub + + Private Sub btnidlebrowse_Click(sender As Object, e As EventArgs) Handles btnidlebrowse.Click + File_Opener.Show() ' I moved this from the bottom at 3:13pm 24.05.14 + File_Opener.openingprogram = "graphicpicker1" + File_Opener.openextention = ".pic" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Private Sub btnmouseoverbrowse_Click(sender As Object, e As EventArgs) Handles btnmouseoverbrowse.Click + File_Opener.Show() + File_Opener.openingprogram = "graphicpicker2" + File_Opener.openextention = ".pic" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Private Sub btnmousedownbrowse_Click(sender As Object, e As EventArgs) Handles btnmousedownbrowse.Click + File_Opener.Show() + File_Opener.openingprogram = "graphicpicker3" + File_Opener.openextention = ".pic" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Public Sub setgraphicsidle() + picgraphic.BackgroundImage = Image.FromFile(imagelocations(0)) + picidle.BackgroundImage = Image.FromFile(imagelocations(0)) + images(0) = Image.FromFile(imagelocations(0)) + cloneidle() + setupgraphics() + End Sub + + Public Sub setgraphicsmouseover() + picgraphic.BackgroundImage = Image.FromFile(imagelocations(1)) + picmouseover.BackgroundImage = Image.FromFile(imagelocations(1)) + images(1) = Image.FromFile(imagelocations(1)) + setupgraphics() + End Sub + + Public Sub setgraphicsmousedown() + picgraphic.BackgroundImage = Image.FromFile(imagelocations(2)) + picmousedown.BackgroundImage = Image.FromFile(imagelocations(2)) + images(2) = Image.FromFile(imagelocations(2)) + setupgraphics() + End Sub + + Private Sub btntile_Click(sender As Object, e As EventArgs) Handles btntile.Click + imagestyle = ImageLayout.Tile + setupgraphics() + End Sub + + Private Sub btncentre_Click(sender As Object, e As EventArgs) Handles btncentre.Click + imagestyle = ImageLayout.Center + setupgraphics() + End Sub + + Private Sub btnstretch_Click(sender As Object, e As EventArgs) Handles btnstretch.Click + imagestyle = ImageLayout.Stretch + setupgraphics() + End Sub + + Private Sub btnzoom_Click(sender As Object, e As EventArgs) Handles btnzoom.Click + imagestyle = ImageLayout.Zoom + setupgraphics() + End Sub + + Private Sub setbuttongraphics() + Select Case imagestyle + Case ImageLayout.Tile + setblankbuttons() + btntile.BackgroundImage = My.Resources.tilebuttonpressed + Case ImageLayout.Center + setblankbuttons() + btncentre.BackgroundImage = My.Resources.centrebuttonpressed + Case ImageLayout.Stretch + setblankbuttons() + btnstretch.BackgroundImage = My.Resources.stretchbuttonpressed + Case ImageLayout.Zoom + setblankbuttons() + btnzoom.BackgroundImage = My.Resources.zoombuttonpressed + End Select + End Sub + + Private Sub setblankbuttons() + btntile.BackgroundImage = My.Resources.tilebutton + btncentre.BackgroundImage = My.Resources.centrebutton + btnstretch.BackgroundImage = My.Resources.stretchbutton + btnzoom.BackgroundImage = My.Resources.zoombutton + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + Me.Close() + End Sub + + Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click + picgraphic.BackgroundImage.Dispose() + picidle.BackgroundImage.Dispose() + picmousedown.BackgroundImage.Dispose() + picmouseover.BackgroundImage.Dispose() + picgraphic.BackgroundImage = Nothing + picidle.BackgroundImage = Nothing + picmousedown.BackgroundImage = Nothing + picmouseover.BackgroundImage = Nothing + images(0).Dispose() + images(1).Dispose() + images(2).Dispose() + images(0) = Nothing + images(1) = Nothing + images(2) = Nothing + GC.Collect() + imagelocations(0) = "" + imagelocations(1) = "" + imagelocations(2) = "" + txtidlefile.Text = "" + txtmousedownfile.Text = "" + txtmouseoverfile.Text = "" + setupgraphics() + End Sub +End Class
\ No newline at end of file |