diff --git a/API.vb b/API.vb new file mode 100644 index 0000000..3abcf5f --- /dev/null +++ b/API.vb @@ -0,0 +1,1245 @@ +Imports System.Runtime.InteropServices +Public Class API + 'Error handling + Private Shared LastError As Exception + _ + Public Shared Sub HandleError() + If LastError IsNot Nothing Then + Throw LastError + ElseIf Marshal.GetLastWin32Error() <> 0 Then + Throw New System.ComponentModel.Win32Exception(Marshal.GetLastWin32Error()) + End If + End Sub + + Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Int32, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer + Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Int32, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer + Public Declare Function AttachThreadInput Lib "user32" (ByVal idAttach As Integer, ByVal idAttackTo As Integer, ByVal fAttack As Int32) As Boolean + Public Declare Function GetCurrentThreadId Lib "kernel32" () As Integer + + Public Class WM + Public Enum SC 'System Commands + CLOSE = &HF060 + CONTEXTHELP = &HF180 + CDEFAULT = &HF160 + HOTKEY = &HF150 + HSCROLL = &HF080 + ISSECURE = &H1 + KEYMENU = &HF100 + MAXIMIZE = &HF030 + MINIMIZE = &HF020 + MONITORPOWER = &HF170 + MouseMenu = &HF090 + MOVE = &HF010 + NEXTWINDOW = &HF040 + PREVWINDOW = &HF050 + RESTORE = &HF120 + SCREENSAVE = &HF140 + Size = &HF000 + TASKLIST = &HF130 + VSCROLL = &HF070 + End Enum + + Public Enum msg As UInteger + USER = &H400& + ACTIVATE = &H6 + ACTIVATEAPP = &H1C + ASKCBFORMATNAME = &H30C + CANCELJOURNAL = &H4B + CANCELMODE = &H1F + CHANGECBCHAIN = &H30D + Chr = &H102 + CHARTOITEM = &H2F + CHILDACTIVATE = &H22 + CHOOSEFONT_GETLOGFONT = (USER + 1) + CHOOSEFONT_SETFLAGS = (USER + 102) + CHOOSEFONT_SETLOGFONT = (USER + 101) + CLEAR = &H303 + CLOSE = &H10 + Command = &H111 + COMMNOTIFY = &H44 ' no longer suported + COMPACTING = &H41 + COMPAREITEM = &H39 + CONVERTREQUESTEX = &H108 + Copy = &H301 + COPYDATA = &H4A + CREATE = &H1 + CTLCOLORBTN = &H135 + CTLCOLORDLG = &H136 + CTLCOLOREDIT = &H133 + CTLCOLORLISTBOX = &H134 + CTLCOLORMSGBOX = &H132 + CTLCOLORSCROLLBAR = &H137 + CTLCOLORSTATIC = &H138 + CUT = &H300 + DDE_FIRST = &H3E0 + DDE_ACK = (DDE_FIRST + 4) + DDE_ADVISE = (DDE_FIRST + 2) + DDE_DATA = (DDE_FIRST + 5) + DDE_EXECUTE = (DDE_FIRST + 8) + DDE_INITIATE = (DDE_FIRST) + DDE_LAST = (DDE_FIRST + 8) + DDE_POKE = (DDE_FIRST + 7) + DDE_REQUEST = (DDE_FIRST + 6) + DDE_TERMINATE = (DDE_FIRST + 1) + DDE_UNADVISE = (DDE_FIRST + 3) + DEADCHAR = &H103 + DELETEITEM = &H2D + DESTROY = &H2 + DESTROYCLIPBOARD = &H307 + DEVMODECHANGE = &H1B + DRAWCLIPBOARD = &H308 + DRAWITEM = &H2B + DROPFILES = &H233 + ENABLE = &HA + ENDSESSION = &H16 + ENTERIDLE = &H121 + ENTERMENULOOP = &H211 + ERASEBKGND = &H14 + EXITMENULOOP = &H212 + FONTCHANGE = &H1D + GETFONT = &H31 + GETDLGCODE = &H87 + GETHOTKEY = &H33 + GETMINMAXINFO = &H24 + GETTEXT = &HD + GETTEXTLENGTH = &HE + HOTKEY = &H312 + HSCROLL = &H114 + HSCROLLCLIPBOARD = &H30E + ICONERASEBKGND = &H27 + IME_CHAR = &H286 + IME_COMPOSITION = &H10F + IME_COMPOSITIONFULL = &H284 + IME_CONTROL = &H283 + IME_ENDCOMPOSITION = &H10E + IME_KEYDOWN = &H290 + IME_KEYLAST = &H10F + IME_KEYUP = &H291 + IME_NOTIFY = &H282 + IME_SELECT = &H285 + IME_SETCONTEXT = &H281 + IME_STARTCOMPOSITION = &H10D + INITDIALOG = &H110 + INITMENU = &H116 + INITMENUPOPUP = &H117 + KEYDOWN = &H100 + KEYFIRST = &H100 + KEYLAST = &H108 + KEYUP = &H101 + KILLFOCUS = &H8 + LBUTTONDBLCLK = &H203 + LBUTTONDOWN = &H201 + LBUTTONUP = &H202 + MBUTTONDBLCLK = &H209 + MBUTTONDOWN = &H207 + MBUTTONUP = &H208 + MDIACTIVATE = &H222 + MDICASCADE = &H227 + MDICREATE = &H220 + MDIDESTROY = &H221 + MDIGETACTIVE = &H229 + MDIICONARRANGE = &H228 + MDIMAXIMIZE = &H225 + MDINEXT = &H224 + MDIREFRESHMENU = &H234 + MDIRESTORE = &H223 + MDISETMENU = &H230 + MDITILE = &H226 + MEASUREITEM = &H2C + MENUCHAR = &H120 + MENUSELECT = &H11F + MOUSEACTIVATE = &H21 + MOUSEFIRST = &H200 + MOUSELAST = &H209 + MOUSEMOVE = &H200 + MOVE = &H3 + NCACTIVATE = &H86 + NCCALCSIZE = &H83 + NCCREATE = &H81 + NCDESTROY = &H82 + NCHITTEST = &H84 + NCLBUTTONDBLCLK = &HA3 + NCLBUTTONDOWN = &HA1 + NCLBUTTONUP = &HA2 + NCMBUTTONDBLCLK = &HA9 + NCMBUTTONDOWN = &HA7 + NCMBUTTONUP = &HA8 + NCMOUSEMOVE = &HA0 + NCPAINT = &H85 + NCRBUTTONDBLCLK = &HA6 + NCRBUTTONDOWN = &HA4 + NCRBUTTONUP = &HA5 + NEXTDLGCTL = &H28 + NULL = &H0 + PAINT = &HF + PAINTCLIPBOARD = &H309 + PAINTICON = &H26 + PALETTECHANGED = &H311 + PALETTEISCHANGING = &H310 + PARENTNOTIFY = &H210 + PASTE = &H302 + PENWINFIRST = &H380 + PENWINLAST = &H38F + POWER = &H48 + Print = &H317 + PSD_ENVSTAMPRECT = (USER + 5) + PSD_FULLPAGERECT = (USER + 1) + PSD_GREEKTEXTRECT = (USER + 4) + PSD_MARGINRECT = (USER + 3) + PSD_MINMARGINRECT = (USER + 2) + PSD_PAGESETUPDLG = (USER) + PSD_YAFULLPAGERECT = (USER + 6) + QUERYDRAGICON = &H37 + QUERYENDSESSION = &H11 + QUERYNEWPALETTE = &H30F + QUERYOPEN = &H13 + QUEUESYNC = &H23 + QUIT = &H12 + RBUTTONDBLCLK = &H206 + RBUTTONDOWN = &H204 + RBUTTONUP = &H205 + RENDERALLFORMATS = &H306 + RENDERFORMAT = &H305 + SETCURSOR = &H20 + SETFOCUS = &H7 + SETFONT = &H30 + SETHOTKEY = &H32 + SETREDRAW = &HB + SETTEXT = &HC + Size = &H5 + SIZECLIPBOARD = &H30B + SPOOLERSTATUS = &H2A + SYSCHAR = &H106 + SYSCOLORCHANGE = &H15 + SYSCOMMAND = &H112 + SYSDEADCHAR = &H107 + SYSKEYDOWN = &H104 + SYSKEYUP = &H105 + SHOWWINDOW = &H18 + Timer = &H113 + TIMECHANGE = &H1E + UNDO = &H304 + VKEYTOITEM = &H2E + VSCROLL = &H115 + VSCROLLCLIPBOARD = &H30A + WINDOWPOSCHANGED = &H47 + WINDOWPOSCHANGING = &H46 + WININICHANGE = &H1A + End Enum 'Window Messages + + Public Shared Function GETTEXTLENGTH(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.GETTEXTLENGTH, 0, 0) + 1 + End Function + Public Shared Property TEXT(ByVal hwnd As IntPtr) As String + Get + Dim length As Integer = GETTEXTLENGTH(hwnd) + Dim Handle As IntPtr = Marshal.AllocHGlobal(length) + SendMessage(hwnd, 13, length, Handle) + TEXT = Marshal.PtrToStringAnsi(Handle) + Marshal.FreeHGlobal(Handle) + End Get + Set(ByVal value As String) + Dim handle As IntPtr = Marshal.StringToHGlobalAnsi(value) + SendMessage(hwnd, &HC, IntPtr.Zero, handle) + Marshal.FreeHGlobal(handle) + End Set + End Property + Public Shared Property FONT(ByVal hwnd As IntPtr) As System.Drawing.Font + Get + Return System.Drawing.Font.FromHfont(SendMessage(hwnd, msg.GETFONT, 0, 0)) + End Get + Set(ByVal value As System.Drawing.Font) + SendMessage(hwnd, msg.SETFONT, value.ToHfont, True) + End Set + End Property + Public Shared Function SETFOCUS(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.SETFOCUS, 0, 0) + End Function + Public Shared Function CLOSE(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.CLOSE, 0, 0) + End Function + Public Shared Function DESTROY(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.DESTROY, 0, 0) + End Function + Public Shared Function CLEAR(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.CLEAR, 0, 0) + End Function + Public Shared Function UNDO(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.UNDO, 0, 0) + End Function + Public Shared Function Copy(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.Copy, 0, 0) + End Function + Public Shared Function PASTE(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.PASTE, 0, 0) + End Function + Public Shared Function CUT(ByVal hwnd As IntPtr) As Integer + Return SendMessage(hwnd, msg.CUT, 0, 0) + End Function + Public Shared Function SETREDRAW(ByVal hwnd As IntPtr, Optional ByVal redraw As Boolean = True) As Integer + Return SendMessage(hwnd, msg.SETREDRAW, redraw, 0) + End Function + Public Shared Function KILLFOCUS(ByVal hwnd As IntPtr) As Boolean + Return SendMessage(hwnd, msg.KILLFOCUS, 0, 0) + End Function + + 'listview + Public Shared Function SETICONSPACING(ByVal lview As ListView, ByVal spaceX As Integer, ByVal spaceY As Integer) As Integer + Return SETICONSPACING(lview.Handle, spaceX, spaceY) + End Function + Public Shared Function SETICONSPACING(ByVal hwnd As IntPtr, ByVal spaceX As Integer, ByVal spaceY As Integer) As Integer + Return SendMessage(hwnd, &H1035, spaceX, spaceY) + End Function + + Public Shared Function SYSCOMMAND(ByVal hwnd As IntPtr, ByVal command As SC, Optional ByVal lparam As Integer = 0) As Boolean + Return SendMessage(hwnd, WM.msg.SYSCOMMAND, command, lparam) + End Function + Public Shared Function SYSCOMMAND(ByVal hwnd As IntPtr, ByVal command As SC, ByVal x As Short, ByVal y As Short) As Boolean + Return SendMessage(hwnd, WM.msg.SYSCOMMAND, command, New DWORD(x, y)) + End Function + End Class + + Public Class SPI + _ + Private Shared Function SystemParametersInfoGet(ByVal uAction As SPI.GetActions, ByVal uiParam As UInt32, ByRef pvParam As IntPtr, ByVal fuWinIni As UInt32) As Boolean + End Function + _ + Private Shared Function SystemParametersInfoSet(ByVal uAction As SPI.SetActions, ByVal uiParam As UInt32, ByVal pvParam As IntPtr, ByVal fuWinIni As UInt32) As Boolean + End Function + + Public Enum GetActions As UInt32 + ICONHORIZONTALSPACING = &HD + ICONVERTICALSPACING = &H18 + BEEP = &H1 + MOUSE = &H3 + BORDER = &H5 + KEYBOARDSPEED = &HA + SCREENSAVETIMEOUT = &HE + SCREENSAVEACTIVE = &H10 + GRIDGRANULARITY = &H12 + KEYBOARDDELAY = &H16 + ICONTITLEWRAP = &H19 + MENUDROPALIGNMENT = &H1B + ICONTITLELOGFONT = &H1F + FASTTASKSWITCH = &H23 + DRAGFULLWINDOWS = &H26 + NONCLIENTMETRICS = &H29 + MINIMIZEDMETRICS = &H2B + ICONMETRICS = &H2D + WORKAREA = &H30 + HIGHCONTRAST = &H42 + KEYBOARDPREF = &H44 + SCREENREADER = &H46 + ANIMATION = &H48 + FONTSMOOTHING = &H4A + LOWPOWERTIMEOUT = &H4F + POWEROFFTIMEOUT = &H50 + LOWPOWERACTIVE = &H53 + POWEROFFACTIVE = &H54 + DEFAULTINPUTLANG = &H59 + WINDOWSEXTENSION = &H5C + MOUSETRAILS = &H5E + FILTERKEYS = &H32 + TOGGLEKEYS = &H34 + MOUSEKEYS = &H36 + SHOWSOUNDS = &H38 + STICKYKEYS = &H3A + ACCESSTIMEOUT = &H3C + SERIALKEYS = &H3E + SOUNDSENTRY = &H40 + SNAPTODEFBUTTON = &H5F + MOUSEHOVERWIDTH = &H62 + MOUSEHOVERHEIGHT = &H64 + MOUSEHOVERTIME = &H66 + WHEELSCROLLLINES = &H68 + MENUSHOWDELAY = &H6A + WHEELSCROLLCHARS = &H6C + SCREENSAVERRUNNING = &H72 + MOUSESPEED = &H70 + DESKWALLPAPER = &H73 + AUDIODESCRIPTION = &H74 + SCREENSAVESECURE = &H76 + SHOWIMEUI = &H6E + ACTIVEWINDOWTRACKING = &H1000 + MENUANIMATION = &H1002 + COMBOBOXANIMATION = &H1004 + LISTBOXSMOOTHSCROLLING = &H1006 + GRADIENTCAPTIONS = &H1008 + KEYBOARDCUES = &H100A + MENUUNDERLINES = KEYBOARDCUES + ACTIVEWNDTRKZORDER = &H100C + HOTTRACKING = &H100E + MENUFADE = &H1012 + SELECTIONFADE = &H1014 + TOOLTIPANIMATION = &H1016 + TOOLTIPFADE = &H1018 + CURSORSHADOW = &H101A + MOUSESONAR = &H101C + MOUSECLICKLOCK = &H101E + MOUSEVANISH = &H1020 + FLATMENU = &H1022 + DROPSHADOW = &H1024 + BLOCKSENDINPUTRESETS = &H1026 + UIEFFECTS = &H103E + DISABLEOVERLAPPEDCONTENT = &H1040 + CLIENTAREAANIMATION = &H1042 + CLEARTYPE = &H1048 + SPEECHRECOGNITION = &H104A + FOREGROUNDLOCKTIMEOUT = &H2000 + ACTIVEWNDTRKTIMEOUT = &H2002 + FOREGROUNDFLASHCOUNT = &H2004 + CARETWIDTH = &H2006 + MOUSECLICKLOCKTIME = &H2008 + FONTSMOOTHINGTYPE = &H200A + FONTSMOOTHINGCONTRAST = &H200C + FOCUSBORDERWIDTH = &H200E + FOCUSBORDERHEIGHT = &H2010 + FONTSMOOTHINGORIENTATION = &H2012 + MINIMUMHITRADIUS = &H2014 + MESSAGEDURATION = &H2016 + End Enum + Public Enum SetActions As UInt32 + BEEP = &H2 + MOUSE = &H4 + BORDER = &H6 + KEYBOARDSPEED = &HB + SCREENSAVETIMEOUT = &HF + SCREENSAVEACTIVE = &H11 + GRIDGRANULARITY = &H13 + DESKWALLPAPER = &H14 + DESKPATTERN = &H15 + KEYBOARDDELAY = &H17 + ICONTITLEWRAP = &H1A + MENUDROPALIGNMENT = &H1C + DOUBLECLKWIDTH = &H1D + DOUBLECLKHEIGHT = &H1E + DOUBLECLICKTIME = &H20 + MOUSEBUTTONSWAP = &H21 + ICONTITLELOGFONT = &H22 + FASTTASKSWITCH = &H24 + DRAGFULLWINDOWS = &H25 + NONCLIENTMETRICS = &H2A + MINIMIZEDMETRICS = &H2C + ICONMETRICS = &H2E + WORKAREA = &H2F + PENWINDOWS = &H31 + HIGHCONTRAST = &H43 + KEYBOARDPREF = &H45 + SCREENREADER = &H47 + ANIMATION = &H49 + FONTSMOOTHING = &H4B + DRAGWIDTH = &H4C + DRAGHEIGHT = &H4D + HANDHELD = &H4E + LOWPOWERTIMEOUT = &H51 + POWEROFFTIMEOUT = &H52 + LOWPOWERACTIVE = &H55 + POWEROFFACTIVE = &H56 + CURSORS = &H57 + ICONS = &H58 + DEFAULTINPUTLANG = &H5A + LANGTOGGLE = &H5B + MOUSETRAILS = &H5D + SCREENSAVERRUNNING = &H61 + FILTERKEYS = &H33 + TOGGLEKEYS = &H35 + MOUSEKEYS = &H37 + SHOWSOUNDS = &H39 + STICKYKEYS = &H3B + ACCESSTIMEOUT = &H3D + SERIALKEYS = &H3F + SOUNDSENTRY = &H41 + SNAPTODEFBUTTON = &H60 + MOUSEHOVERWIDTH = &H63 + MOUSEHOVERHEIGHT = &H65 + MOUSEHOVERTIME = &H67 + WHEELSCROLLLINES = &H69 + MENUSHOWDELAY = &H6B + WHEELSCROLLCHARS = &H6D + SHOWIMEUI = &H6F + MOUSESPEED = &H71 + AUDIODESCRIPTION = &H75 + SCREENSAVESECURE = &H77 + ACTIVEWINDOWTRACKING = &H1001 + MENUANIMATION = &H1003 + COMBOBOXANIMATION = &H1005 + LISTBOXSMOOTHSCROLLING = &H1007 + GRADIENTCAPTIONS = &H1009 + KEYBOARDCUES = &H100B + MENUUNDERLINES = KEYBOARDCUES + ACTIVEWNDTRKZORDER = &H100D + HOTTRACKING = &H100F + MENUFADE = &H1013 + SELECTIONFADE = &H1015 + TOOLTIPANIMATION = &H1017 + TOOLTIPFADE = &H1019 + CURSORSHADOW = &H101B + MOUSESONAR = &H101D + MOUSECLICKLOCK = &H101F + MOUSEVANISH = &H1021 + FLATMENU = &H1023 + DROPSHADOW = &H1025 + BLOCKSENDINPUTRESETS = &H1027 + UIEFFECTS = &H103F + DISABLEOVERLAPPEDCONTENT = &H1041 + CLIENTAREAANIMATION = &H1043 + CLEARTYPE = &H1049 + SPEECHRECOGNITION = &H104B + FOREGROUNDLOCKTIMEOUT = &H2001 + ACTIVEWNDTRKTIMEOUT = &H2003 + FOREGROUNDFLASHCOUNT = &H2005 + CARETWIDTH = &H2007 + MOUSECLICKLOCKTIME = &H2009 + FONTSMOOTHINGTYPE = &H200B + FONTSMOOTHINGCONTRAST = &H200D + FOCUSBORDERWIDTH = &H200F + FOCUSBORDERHEIGHT = &H2011 + FONTSMOOTHINGORIENTATION = &H2013 + MINIMUMHITRADIUS = &H2015 + MESSAGEDURATION = &H2017 + End Enum + Public Enum FontSmoothing As Int32 + STANDARD = &H1 + CLEARTYPE = &H2 + DOCKING = &H8000 + End Enum + Public Enum FontSmoothingOrientation As Int32 + BGR = &H0 + RGB = &H1 + End Enum + + Public Shared Function SetParameter(ByVal parameter As SetActions, ByVal uparam As UInteger, ByVal pvParam As IntPtr) As Boolean + Return SystemParametersInfoSet(parameter, uparam, pvParam, 1) + End Function + Public Shared Function SetParameter(ByVal parameter As SetActions, ByVal pvParam As IntPtr) As Boolean + Return SetParameter(parameter, 0, pvParam) + End Function + Public Shared Function GetParameter(ByVal parameter As GetActions) As IntPtr + SystemParametersInfoGet(parameter, 0, GetParameter, 0) + End Function + End Class + + Public Class DC + Implements System.IDisposable + + Private Declare Function BitBlt Lib "gdi32" (ByVal hdc As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As UInteger) As Boolean + Private Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As IntPtr, ByVal X As Int32, ByVal Y As Int32) As Int32 + Private Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As IntPtr, ByVal X As Int32, ByVal Y As Int32, ByVal crColor As UInt32) As UInt32 + Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Boolean + Private Declare Function GetClipBox Lib "gdi32" (ByVal hdc As IntPtr, ByRef lprc As WRECT) As Integer + Private Declare Function GetClipRgn Lib "gdi32" (ByVal hdc As IntPtr, ByRef hrgn As Region) As Integer + Private Declare Function GetRandomRgn Lib "gdi32" (ByVal hdc As IntPtr, ByRef hrgn As Region, ByVal inum As Integer) As Integer + + Private managedtype As DCSource + Private managedobject As Object + Private managedgraphics As Graphics + Private hdc As IntPtr + Private _disposed As Boolean + Public Enum DCSource + None + Handle + Graphics + End Enum + Sub New(ByVal g As Graphics) + Me.managedobject = g + Me.managedtype = DCSource.Graphics + Me.hdc = g.GetHdc + End Sub + Sub New(ByVal hwnd As IntPtr, ByVal hdc As IntPtr) + Me.managedobject = hwnd + Me.managedtype = DCSource.Handle + Me.hdc = hdc + End Sub + Sub New() + Me.managedobject = Nothing + Me.managedtype = DCSource.None + End Sub + Public ReadOnly Property Source() As DCSource + Get + Return Me.managedtype + End Get + End Property + Public Sub SetPixel(ByVal X As Integer, ByVal Y As Integer, ByVal C As Color) + SetPixel(Me.hdc, X, Y, C.ToArgb) + End Sub + Public Function GetPixel(ByVal X As Integer, ByVal Y As Integer) As Color + Return ColorTranslator.FromOle(GetPixel(Me.hdc, X, Y)) + End Function + Public Property Pixel(ByVal X As Integer, ByVal Y As Integer) As Color + Get + Return GetPixel(X, Y) + End Get + Set(ByVal value As Color) + SetPixel(X, Y, value) + End Set + End Property + Public Enum RasterOperation As UInteger + ''' default operation + NORMAL = RasterOperation.SRCCOPY Or RasterOperation.CAPTUREBLT + ''' dest = source + SRCCOPY = &HCC0020 + ''' dest = source OR dest + SRCPAINT = &HEE0086 + ''' dest = source AND dest + SRCAND = &H8800C6 + ''' dest = source XOR dest + SRCINVERT = &H660046 + ''' dest = source AND (NOT dest) + SRCERASE = &H440328 + ''' dest = (NOT source) + NOTSRCCOPY = &H330008 + ''' dest = (NOT src) AND (NOT dest) + NOTSRCERASE = &H1100A6 + ''' dest = (source AND pattern) + MERGECOPY = &HC000CA + ''' dest = (NOT source) OR dest + MERGEPAINT = &HBB0226 + ''' dest = pattern + PATCOPY = &HF00021 + ''' dest = DPSnoo + PATPAINT = &HFB0A09 + ''' dest = pattern XOR dest + PATINVERT = &H5A0049 + ''' dest = (NOT dest) + DSTINVERT = &H550009 + ''' dest = BLACK + BLACKNESS = &H42 + ''' dest = WHITE + WHITENESS = &HFF0062 + ''' + ''' Capture window as seen on screen. This includes layered windows + ''' such as WPF windows with AllowsTransparency="true" + ''' + CAPTUREBLT = &H40000000 + End Enum + + Public ReadOnly Property ClipBox() As Rectangle + Get + Dim w As WRECT + GetClipBox(Me.hdc, w) + Return w.Value + End Get + End Property + Public ReadOnly Property ClipSize() As Size + Get + Return Me.ClipBox.Size + End Get + End Property + + Public Property Handle() As IntPtr + Get + Return Me.hdc + End Get + Set(ByVal value As IntPtr) + Me.hdc = value + End Set + End Property + + Public ReadOnly Property Disposed() As Boolean + Get + Return Me._disposed + End Get + End Property + + Public Sub Draw(ByVal source As Graphics, ByVal destrect As Rectangle, ByVal sourceoffset As Point, ByVal operation As RasterOperation) + Dim hdc As IntPtr = source.GetHdc + Draw(hdc, destrect, sourceoffset, operation) + source.ReleaseHdc(hdc) + End Sub + Public Sub Draw(ByVal source As DC, ByVal destrect As Rectangle, ByVal sourceoffset As Point, ByVal operation As RasterOperation) + Draw(source.hdc, destrect, sourceoffset, operation) + End Sub + Public Sub Draw(ByVal sourcehdc As IntPtr, ByVal destrect As Rectangle, ByVal sourceoffset As Point, ByVal operation As RasterOperation) + BitBlt(Me.hdc, destrect.X, destrect.Y, destrect.Width, destrect.Height, sourcehdc, sourceoffset.X, sourceoffset.Y, operation) + End Sub + + Public Sub CopyTo(ByVal destination As Graphics, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + CopyTo(destination, Me.ClipBox, operation) + End Sub + Public Sub CopyTo(ByVal destination As Graphics, ByVal destrect As Rectangle, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + CopyTo(destination, destrect, New Point(0, 0), operation) + End Sub + Public Sub CopyTo(ByVal destination As Graphics, ByVal destrect As Rectangle, ByVal sourceoffset As Point, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + Dim hdc As IntPtr = destination.GetHdc + CopyTo(hdc, destrect, sourceoffset, operation) + destination.ReleaseHdc(hdc) + End Sub + Public Sub CopyTo(ByVal destination As DC, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + CopyTo(destination.hdc, Me.ClipBox, New Point(0, 0), operation) + End Sub + Public Sub CopyTo(ByVal destination As DC, ByVal destrect As Rectangle, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + CopyTo(destination.hdc, destrect, New Point(0, 0), operation) + End Sub + Public Sub CopyTo(ByVal destination As DC, ByVal destrect As Rectangle, ByVal sourceoffset As Point, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + CopyTo(destination.hdc, destrect, sourceoffset, operation) + End Sub + Public Sub CopyTo(ByVal desthdc As IntPtr, ByVal destrect As Rectangle, ByVal sourceoffset As Point, Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) + BitBlt(desthdc, destrect.X, destrect.Y, destrect.Width, destrect.Height, Me.hdc, sourceoffset.X, sourceoffset.Y, operation) + End Sub + + Public Function ToBitmap(Optional ByVal operation As RasterOperation = RasterOperation.NORMAL) As Bitmap + Return ToBitmap(Me.ClipSize, operation) + End Function + Public Function ToBitmap(ByVal Resolution As Size, Optional ByVal operation As RasterOperation = RasterOperation.SRCCOPY Or RasterOperation.CAPTUREBLT) As Bitmap + ToBitmap = New Bitmap(Resolution.Width, Resolution.Height) + Dim g As Graphics = Graphics.FromImage(ToBitmap) + Dim ghdc As IntPtr = g.GetHdc + BitBlt(ghdc, 0, 0, Resolution.Width, Resolution.Height, Me.hdc, 0, 0, operation) + g.ReleaseHdc(ghdc) + g.Dispose() + End Function + + Public ReadOnly Property Graphics() As Graphics + Get + If Me.managedgraphics Is Nothing Then Me.managedgraphics = Graphics.FromHdc(Me.hdc) + Return Me.managedgraphics + End Get + End Property + Public Shared Function FromHandle(ByVal handle As IntPtr) As DC + FromHandle = New DC() + FromHandle.hdc = handle + End Function + + Protected Overridable Overloads Sub Dispose(ByVal disposing As Boolean) + If Me._disposed = False Then + Select Case managedtype + Case DCSource.Handle + ReleaseDC(CType(Me.managedobject, IntPtr), Me.hdc) + Case DCSource.Graphics + CType(Me.managedobject, Graphics).ReleaseHdc(Me.hdc) + End Select + If managedgraphics IsNot Nothing Then managedgraphics.Dispose() + Me.managedgraphics = Nothing + Me.managedobject = Nothing + Me.managedtype = Nothing + Me.hdc = Nothing + Me._disposed = True + End If + End Sub + Public Overloads Sub Dispose() Implements IDisposable.Dispose + Dispose(True) + GC.SuppressFinalize(Me) + End Sub + End Class + + Public Structure ShellExecuteInfo + Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (ByRef lpExecInfo As ShellExecuteInfo) As Boolean + Sub New(ByVal Verb As Verb) + Me.lpVerb = Verb.ToString() + End Sub + Private cbSize As Integer + Public fMask As Mask + Public hwnd As IntPtr + Public lpVerb As String + Public lpFile As String + Public lpParameters As String + Public lpDirectory As String + Public nShow As SW + Public hInstApp As IntPtr + Public lpIDList As IntPtr + Public lpClass As String + Public hkeyClass As IntPtr + Public dwHotKey As Integer + Public hIcon As IntPtr + Public hProcess As IntPtr + Public Property hMonitor() As IntPtr + Get + Return Me.hIcon + End Get + Set(ByVal value As IntPtr) + Me.hIcon = value + End Set + End Property + + Public Enum Mask As Integer + NONE = &H0 + CLASSNAME = &H1 + CLASSKEY = &H3 + IDLIST = &H4 + INVOKEIDLIST = &HC + ICON = &H10 + HOTKEY = &H20 + NOCLOSEPROCESS = &H40 + CONNECTNETDRV = &H80 + NOASYNC = &H100 + DOENVSUBST = &H200 + FLAG_NO_UI = &H400 + UNICODE = &H4000 + NO_CONSOLE = &H8000 + ASYNCOK = &H100000 + NOQUERYCLASSSTORE = &H1000000 + HMONITOR = &H200000 + NOZONECHECKS = &H800000 + WAITFORINPUTIDLE = &H2000000 + FLAG_LOG_USAGE = &H4000000 + End Enum + Public Enum SW As Integer + ''' + ''' No SW command, default value. + ''' + NONE + ''' + ''' Hides the window and activates another window. + ''' + HIDE + ''' + ''' Maximizes the specified window. + ''' + MAXIMIZE + ''' + ''' Minimizes the specified window and activates the next top-level window in the z-order. + ''' + MINIMIZE + ''' + ''' Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. + ''' An application should specify this flag when restoring a minimized window. + ''' + RESTORE + ''' + ''' Activates the window and displays it in its current size and position. + ''' + SHOW + ''' + ''' Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. + ''' An application should call ShowWindow with this flag to set the initial show state of its main window. + ''' + SHOWDEFAULT + ''' + ''' Activates the window and displays it as a maximized window. + ''' + SHOWMAXIMIZED + ''' + ''' Activates the window and displays it as a minimized window. + ''' + SHOWMINIMIZED + ''' + ''' Displays the window as a minimized window. The active window remains active. + ''' + SHOWMINNOACTIVE + ''' + ''' Displays the window in its current state. The active window remains active. + ''' + SHOWNA + ''' + ''' Displays a window in its most recent size and position. The active window remains active. + ''' + SHOWNOACTIVATE + ''' + ''' Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. + ''' An application should specify this flag when displaying the window for the first time. + ''' + SHOWNORMAL + End Enum + Public Enum Verb + none + edit + explore + find + open + print + properties + End Enum + + Public Function Execute() As Boolean + Me.cbSize = Marshal.SizeOf(Me) + Return ShellExecuteEx(Me) + End Function + End Structure + + Public Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal ch As Char) As Short + Public Declare Function MapVirtualKey Lib "User32.dll" Alias "MapVirtualKeyA" (ByVal uCode As UInt32, ByVal uMapType As MAPVK) As UInt32 + Public Enum MAPVK As UInt32 + ''' uCode is a virtual-key code and is translated into a scan code. + ''' If it is a virtual-key code that does not distinguish between left- and + ''' right-hand keys, the left-hand scan code is returned. + ''' If there is no translation, the function returns 0. + ''' + ''' + VK_TO_VSC = 0 + ''' uCode is a scan code and is translated into a virtual-key code that + ''' does not distinguish between left- and right-hand keys. If there is no + ''' translation, the function returns 0. + ''' + ''' + VSC_TO_VK = 1 + ''' uCode is a virtual-key code and is translated into an unshifted + ''' character value in the low-order word of the return value. Dead keys (diacritics) + ''' are indicated by setting the top bit of the return value. If there is no + ''' translation, the function returns 0. + ''' + ''' + VK_TO_CHAR = 2 + ''' Windows NT/2000/XP: uCode is a scan code and is translated into a + ''' virtual-key code that distinguishes between left- and right-hand keys. If + ''' there is no translation, the function returns 0. + ''' + ''' + VSC_TO_VK_EX = 3 + End Enum + Public Structure Input + Sub New(ByVal dx As Integer, ByVal dy As Integer, ByVal flags As MouseEvent, Optional ByVal data As MouseData = 0) + If (flags And MouseEvent.MoveScreen) = MouseEvent.MoveScreen Then + 'convert to screen absolute + dx = dx / My.Computer.Screen.Bounds.Width * UShort.MaxValue + dy = dy / My.Computer.Screen.Bounds.Height * UShort.MaxValue + flags -= MouseEvent.MoveScreen + If Not (flags And MouseEvent.MoveAbsolute) = MouseEvent.MoveAbsolute Then + flags += MouseEvent.MoveAbsolute + End If + End If + Me.type = dwType.MOUSE + With Me.mi + .dx = dx + .dy = dy + .time = 0 + .dwExtraInfo = 0 + .mouseData = data + .dwFlags = flags + End With + End Sub + Sub New(ByVal key As Keys, ByVal keyevent As KeyEvent) + Me.type = dwType.KEYBOARD + Dim extended As Boolean = False + If key = Keys.Shift Then key = &H10 + If key = Keys.Control Then key = &H11 + If key = Keys.Menu Then key = &H12 + If key = Keys.LControlKey Or key = Keys.RControlKey Then extended = True + If key = Keys.LMenu Or key = Keys.RMenu Then extended = True + If key = Keys.LShiftKey Or key = Keys.RShiftKey Then extended = True + With Me.ki + .wVk = key + .dwFlags = keyevent + If extended Then .dwFlags += KEYBDINPUT.KEYEVENTF.EXTENDEDKEY + .time = 0 + .dwExtraInfo = 0 + End With + End Sub + Sub New(ByVal msg As Integer, ByVal ParamL As Short, ByVal ParamH As Short) + Me.type = dwType.HARDWARE + With Me.hi + .uMsg = msg + .wParamL = ParamL + .wParamH = ParamH + End With + End Sub + + Private type As dwType + Private mi As MOUSEINPUT + Private ki As KEYBDINPUT + Private hi As HARDWAREINPUT + + Private Structure MOUSEINPUT + Public dx As Integer + Public dy As Integer + Public mouseData As Integer + Public dwFlags As MOUSEEVENTF + Public time As Integer + Public dwExtraInfo As IntPtr + Public Enum MOUSEEVENTF As Integer + MOVE = &H1 + LEFTDOWN = &H2 + LEFTUP = &H4 + RIGHTDOWN = &H8 + RIGHTUP = &H10 + MIDDLEDOWN = &H20 + MIDDLEUP = &H40 + XDOWN = &H80 + XUP = &H100 + WHEEL = &H800 + VIRTUALDESK = &H4000 + ABSOLUTE = &H8000 + End Enum + End Structure + Private Structure KEYBDINPUT + Public wVk As Short + Public wScan As Short + Public dwFlags As KEYEVENTF + Public time As Integer + Public dwExtraInfo As IntPtr + Public Enum KEYEVENTF As Integer + KEYDOWN = 0 + EXTENDEDKEY = 1 + KEYUP = 2 + UNICODE = 4 + SCANCODE = 8 + End Enum + End Structure + Private Structure HARDWAREINPUT + Public uMsg As Integer + Public wParamL As Short + Public wParamH As Short + End Structure + Private Enum dwType As Integer + MOUSE = 0 + KEYBOARD = 1 + HARDWARE = 2 + End Enum + + Public Enum MouseEvent + ''' + ''' Moves the cursor with the offset dx and dy + ''' + Move = &H1 + ''' + ''' Places the cursor at the screen coordinates dx and dy + ''' + MoveScreen = &H1000 + ''' + ''' Places the cursor at the screen using dx and dy ranging from 0 (left/top) to 65535 (right/bottom) + ''' + MoveAbsolute = Move Or &H8000 + ''' + ''' Places the cursor at the desktop using dx and dy ranging from 0 (left/top) to 65535 (right/bottom) + ''' + MoveVirtualDesktop = MoveAbsolute Or &H4000 + ''' + ''' Press the left mouse button + ''' + LeftDown = &H2 + ''' + ''' Release the left mouse button + ''' + LeftUp = &H4 + ''' + ''' Press the right mouse button + ''' + RightDown = &H8 + ''' + ''' Release the right mouse button + ''' + RightUp = &H10 + ''' + ''' Press the middle mouse button + ''' + MiddleDown = &H30 + ''' + ''' Release the middle mouse button + ''' + MiddleUp = &H40 + ''' + ''' Press the XButton specified in the data member + ''' + XDown = &H80 + ''' + ''' Release the XButton specified in the data member + ''' + XUp = &H100 + ''' + ''' Scroll the vertical mousewheel with the delta count of the data member + ''' + MouseVWheel = &H800 + ''' + ''' Scroll the horizontal mousewheel with the delta count of the data member + ''' + MouseHWheel = &H20E + End Enum + Public Enum MouseData As Integer + XButton1 = 1 + XButton2 = 2 + Wheel_Delta_Backward = -120 + Wheel_Delta_Forward = 120 + Wheel_Delta_Left = -120 + Wheel_Delta_Right = 120 + End Enum + Public Enum KeyEvent + Down = 0 + Up = 2 + End Enum + + Private Declare Function SendInput Lib "user32.dll" (ByVal cInputs As Integer, ByVal pInputs() As Input, ByVal cbSize As Integer) As Integer + Public Shared Function Send(ByVal ParamArray inputs() As Input) As Boolean + Return SendInput(inputs.Count, inputs, Marshal.SizeOf(GetType(Input))) + End Function + Public Function Send() As Boolean + Return Send(Me) + End Function + End Structure + + Public Structure WORD + Sub New(ByVal value As Short) + Me.Short1 = value + End Sub + Shared Widening Operator CType(ByVal w As WORD) As Short + Return w.Short1 + End Operator + Public Short1 As Short + Public UShort1 As UShort + Public Byte1 As Byte + Public Byte2 As Byte + Public Shared Function FromBB(ByVal Byte1 As Byte, ByVal Byte2 As Byte) As WORD + FromBB = New WORD + FromBB.Byte1 = Byte1 + FromBB.Byte2 = Byte2 + End Function + End Structure + Public Structure DWORD + Sub New(ByVal value As Integer) + Me.Integer1 = value + End Sub + Sub New(ByVal Short1 As Short, ByVal Short2 As Short) + Me.Short1 = Short1 + Me.Short2 = Short2 + End Sub + Shared Widening Operator CType(ByVal w As DWORD) As Integer + Return w.Integer1 + End Operator + Shared Widening Operator CType(ByVal w As DWORD) As IntPtr + Return w.Integer1 + End Operator + Public Integer1 As Integer + Public UInteger1 As UInteger + Public Short1 As Short + Public UShort1 As UShort + Public Short2 As Short + Public UShort2 As UShort + Public Byte1 As Byte + Public Byte2 As Byte + Public Byte3 As Byte + Public Byte4 As Byte + Public Shared Function FromUsBB(ByVal UShort1 As UShort, ByVal Byte1 As Byte, ByVal Byte2 As Byte) As DWORD + FromUsBB = New DWORD + FromUsBB.UShort1 = UShort1 + FromUsBB.Byte3 = Byte1 + FromUsBB.Byte4 = Byte2 + End Function + Public Shared Function FromSBB(ByVal Short1 As Short, ByVal Byte1 As Byte, ByVal Byte2 As Byte) As DWORD + FromSBB = New DWORD + FromSBB.Short1 = Short1 + FromSBB.Byte3 = Byte1 + FromSBB.Byte4 = Byte2 + End Function + Public Shared Function FromBBBB(ByVal Byte1 As Byte, ByVal Byte2 As Byte, ByVal Byte3 As Byte, ByVal Byte4 As Byte) As DWORD + FromBBBB = New DWORD + FromBBBB.Byte1 = Byte1 + FromBBBB.Byte2 = Byte2 + FromBBBB.Byte3 = Byte3 + FromBBBB.Byte4 = Byte4 + End Function + End Structure + Public Structure QWORD + Sub New(ByVal value As Long) + Me.Long1 = value + End Sub + Shared Widening Operator CType(ByVal w As QWORD) As Long + Return w.Long1 + End Operator + Public Long1 As Long + Public ULong1 As ULong + Public Integer1 As Integer + Public UInteger1 As UInteger + Public Integer2 As Integer + Public UInteger2 As UInteger + Public Short1 As Short + Public UShort1 As UShort + Public Short2 As Short + Public UShort2 As UShort + Public Short3 As Short + Public UShort3 As UShort + Public Short4 As Short + Public UShort4 As UShort + Public Byte1 As Byte + Public Byte2 As Byte + Public Byte3 As Byte + Public Byte4 As Byte + Public Byte5 As Byte + Public Byte6 As Byte + Public Byte7 As Byte + Public Byte8 As Byte + End Structure + + Public Structure WPOINT + Public X As Integer + Public Y As Integer + Sub New(ByVal X As Integer, ByVal Y As Integer) + Me.X = X + Me.Y = Y + End Sub + Sub New(ByVal p As Point) + Me.X = p.X + Me.Y = p.Y + End Sub + Public Property Value() As Point + Get + Return New Point(Me.X, Me.Y) + End Get + Set(ByVal value As Point) + Me.X = value.X + Me.Y = value.Y + End Set + End Property + End Structure + Public Structure WRECT + Public Left As Integer, Top As Integer, Right As Integer, Bottom As Integer + Sub New(ByVal r As Rectangle) + Me.Value = r + End Sub + Public Property Value() As Rectangle + Get + Return New Rectangle(Left, Top, Right - Left, Bottom - Top) + End Get + Set(ByVal value As Rectangle) + Me.Left = value.Left + Me.Right = value.Right + Me.Top = value.Top + Me.Bottom = value.Bottom + End Set + End Property + End Structure + + Public Class MCI + _ + Private Shared Function mciGetErrorString(ByVal fdwError As Integer, ByVal lpszErrorText As System.Text.StringBuilder, ByVal cchErrorText As UInt32) As Boolean + End Function + _ + Private Shared Function mciSendString(ByVal strCommand As String, ByVal strReturn As System.Text.StringBuilder, ByVal iReturnLength As Integer, ByVal hwndCallback As IntPtr) As Long + End Function + _ + Private Shared Function mciSendCommand(ByVal IDDevice As Integer, ByVal uMsg As UInt32, ByVal fdwCommand As Integer, ByVal dwParam As Integer) As Long + End Function + + Private Shared Function GetErrorString(ByVal ErrorCode As Long) As String + With New QWORD(ErrorCode) + GetErrorString = "Device: " & .Integer2 & " - " + Dim buff As New System.Text.StringBuilder(128) + If mciGetErrorString(.Integer1, buff, buff.Capacity) Then + GetErrorString &= buff.ToString + Else + GetErrorString &= "Error code: " & .Integer1 + End If + End With + End Function + _ + Public Shared Function SendString(ByVal command As String, ByVal callback As IntPtr, ByVal returnlength As Integer) As String + Dim buff As System.Text.StringBuilder = Nothing + If returnlength > 0 Then buff = New System.Text.StringBuilder(returnlength) + Dim err As Long = mciSendString(command, buff, returnlength, callback) + If err <> 0 Then + LastError = New Exception(GetErrorString(err)) + Throw LastError + Return "ERROR" + End If + If returnlength = 0 Then Return Nothing Else Return buff.ToString + End Function + _ + Public Shared Sub SendString(ByVal command As String, ByVal callback As IntPtr) + SendString(command, callback, 0) + End Sub + _ + Public Shared Sub SendCommand(ByVal DeviceID As Integer, ByVal Message As UInt32, ByVal Command As IntPtr, ByVal Parameter As Integer) + Dim err As Long = mciSendCommand(DeviceID, Message, Command, Parameter) + If err <> 0 Then + LastError = New Exception(GetErrorString(err)) + Throw LastError + End If + End Sub + End Class + + Public Class DESKTOP + Public Declare Auto Function GetThreadDesktop Lib "user32.dll" (ByVal threadId As Integer) As IntPtr + Public Declare Auto Function OpenInputDesktop Lib "user32.dll" (ByVal flags As Integer, ByVal inherit As Boolean, ByVal desiredAccess As Integer) As IntPtr + Public Declare Auto Function CreateDesktop Lib "user32.dll" (ByVal desktop As String, ByVal device As String, ByVal devmode As IntPtr, ByVal flags As Integer, ByVal desiredAccess As Integer, ByVal lpsa As IntPtr) As IntPtr + Public Declare Auto Function SetThreadDesktop Lib "user32.dll" (ByVal desktop As IntPtr) As Boolean + Public Declare Auto Function SwitchDesktop Lib "user32.dll" (ByVal desktop As IntPtr) As Boolean + Public Declare Auto Function CloseDesktop Lib "user32.dll" (ByVal desktop As IntPtr) As Boolean + End Class +End Class \ No newline at end of file diff --git a/App.config b/App.config new file mode 100644 index 0000000..bc3672d --- /dev/null +++ b/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/ApplicationEvents.vb b/ApplicationEvents.vb new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/ApplicationEvents.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/ArtPad.Designer.vb b/ArtPad.Designer.vb new file mode 100644 index 0000000..7acdffc --- /dev/null +++ b/ArtPad.Designer.vb @@ -0,0 +1,3700 @@ + _ +Partial Class ArtPad + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ArtPad)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnldrawingbackground = New System.Windows.Forms.Panel() + Me.pnlpalletsize = New System.Windows.Forms.Panel() + Me.txttopspace = New System.Windows.Forms.TextBox() + Me.Label40 = New System.Windows.Forms.Label() + Me.txtsidespace = New System.Windows.Forms.TextBox() + Me.Label41 = New System.Windows.Forms.Label() + Me.btnchangesizecancel = New System.Windows.Forms.Button() + Me.btnsetsize = New System.Windows.Forms.Button() + Me.txtcolorpalletheight = New System.Windows.Forms.TextBox() + Me.Label42 = New System.Windows.Forms.Label() + Me.txtcolorpalletwidth = New System.Windows.Forms.TextBox() + Me.Label43 = New System.Windows.Forms.Label() + Me.pnlinitialcanvassettings = New System.Windows.Forms.Panel() + Me.btncancel = New System.Windows.Forms.Button() + Me.btncreate = New System.Windows.Forms.Button() + Me.Label11 = New System.Windows.Forms.Label() + Me.lbltotalpixels = New System.Windows.Forms.Label() + Me.txtnewcanvasheight = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtnewcanvaswidth = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.picdrawingdisplay = New System.Windows.Forms.PictureBox() + Me.pnlbottompanel = New System.Windows.Forms.Panel() + Me.pnlpallet = New System.Windows.Forms.Panel() + Me.flowcolours = New System.Windows.Forms.FlowLayoutPanel() + Me.colourpallet1 = New System.Windows.Forms.Panel() + Me.colourpallet2 = New System.Windows.Forms.Panel() + Me.colourpallet3 = New System.Windows.Forms.Panel() + Me.colourpallet4 = New System.Windows.Forms.Panel() + Me.colourpallet5 = New System.Windows.Forms.Panel() + Me.colourpallet6 = New System.Windows.Forms.Panel() + Me.colourpallet7 = New System.Windows.Forms.Panel() + Me.colourpallet8 = New System.Windows.Forms.Panel() + Me.colourpallet9 = New System.Windows.Forms.Panel() + Me.colourpallet10 = New System.Windows.Forms.Panel() + Me.colourpallet11 = New System.Windows.Forms.Panel() + Me.colourpallet12 = New System.Windows.Forms.Panel() + Me.colourpallet13 = New System.Windows.Forms.Panel() + Me.colourpallet14 = New System.Windows.Forms.Panel() + Me.colourpallet15 = New System.Windows.Forms.Panel() + Me.colourpallet16 = New System.Windows.Forms.Panel() + Me.colourpallet17 = New System.Windows.Forms.Panel() + Me.colourpallet18 = New System.Windows.Forms.Panel() + Me.colourpallet19 = New System.Windows.Forms.Panel() + Me.colourpallet20 = New System.Windows.Forms.Panel() + Me.colourpallet21 = New System.Windows.Forms.Panel() + Me.colourpallet22 = New System.Windows.Forms.Panel() + Me.colourpallet23 = New System.Windows.Forms.Panel() + Me.colourpallet24 = New System.Windows.Forms.Panel() + Me.colourpallet25 = New System.Windows.Forms.Panel() + Me.colourpallet26 = New System.Windows.Forms.Panel() + Me.colourpallet27 = New System.Windows.Forms.Panel() + Me.colourpallet28 = New System.Windows.Forms.Panel() + Me.colourpallet29 = New System.Windows.Forms.Panel() + Me.colourpallet30 = New System.Windows.Forms.Panel() + Me.colourpallet31 = New System.Windows.Forms.Panel() + Me.colourpallet32 = New System.Windows.Forms.Panel() + Me.colourpallet33 = New System.Windows.Forms.Panel() + Me.colourpallet34 = New System.Windows.Forms.Panel() + Me.colourpallet35 = New System.Windows.Forms.Panel() + Me.colourpallet36 = New System.Windows.Forms.Panel() + Me.colourpallet37 = New System.Windows.Forms.Panel() + Me.colourpallet38 = New System.Windows.Forms.Panel() + Me.colourpallet39 = New System.Windows.Forms.Panel() + Me.colourpallet40 = New System.Windows.Forms.Panel() + Me.colourpallet41 = New System.Windows.Forms.Panel() + Me.colourpallet42 = New System.Windows.Forms.Panel() + Me.colourpallet43 = New System.Windows.Forms.Panel() + Me.colourpallet44 = New System.Windows.Forms.Panel() + Me.colourpallet45 = New System.Windows.Forms.Panel() + Me.colourpallet46 = New System.Windows.Forms.Panel() + Me.colourpallet47 = New System.Windows.Forms.Panel() + Me.colourpallet48 = New System.Windows.Forms.Panel() + Me.colourpallet49 = New System.Windows.Forms.Panel() + Me.colourpallet50 = New System.Windows.Forms.Panel() + Me.colourpallet51 = New System.Windows.Forms.Panel() + Me.colourpallet52 = New System.Windows.Forms.Panel() + Me.colourpallet53 = New System.Windows.Forms.Panel() + Me.colourpallet54 = New System.Windows.Forms.Panel() + Me.colourpallet55 = New System.Windows.Forms.Panel() + Me.colourpallet56 = New System.Windows.Forms.Panel() + Me.colourpallet57 = New System.Windows.Forms.Panel() + Me.colourpallet58 = New System.Windows.Forms.Panel() + Me.colourpallet59 = New System.Windows.Forms.Panel() + Me.colourpallet60 = New System.Windows.Forms.Panel() + Me.colourpallet61 = New System.Windows.Forms.Panel() + Me.colourpallet62 = New System.Windows.Forms.Panel() + Me.colourpallet63 = New System.Windows.Forms.Panel() + Me.colourpallet64 = New System.Windows.Forms.Panel() + Me.colourpallet65 = New System.Windows.Forms.Panel() + Me.colourpallet66 = New System.Windows.Forms.Panel() + Me.colourpallet67 = New System.Windows.Forms.Panel() + Me.colourpallet68 = New System.Windows.Forms.Panel() + Me.colourpallet69 = New System.Windows.Forms.Panel() + Me.colourpallet70 = New System.Windows.Forms.Panel() + Me.colourpallet71 = New System.Windows.Forms.Panel() + Me.colourpallet72 = New System.Windows.Forms.Panel() + Me.colourpallet73 = New System.Windows.Forms.Panel() + Me.colourpallet74 = New System.Windows.Forms.Panel() + Me.colourpallet75 = New System.Windows.Forms.Panel() + Me.colourpallet76 = New System.Windows.Forms.Panel() + Me.colourpallet77 = New System.Windows.Forms.Panel() + Me.colourpallet78 = New System.Windows.Forms.Panel() + Me.colourpallet79 = New System.Windows.Forms.Panel() + Me.colourpallet80 = New System.Windows.Forms.Panel() + Me.colourpallet81 = New System.Windows.Forms.Panel() + Me.colourpallet82 = New System.Windows.Forms.Panel() + Me.colourpallet83 = New System.Windows.Forms.Panel() + Me.colourpallet84 = New System.Windows.Forms.Panel() + Me.colourpallet85 = New System.Windows.Forms.Panel() + Me.colourpallet86 = New System.Windows.Forms.Panel() + Me.colourpallet87 = New System.Windows.Forms.Panel() + Me.colourpallet88 = New System.Windows.Forms.Panel() + Me.colourpallet89 = New System.Windows.Forms.Panel() + Me.colourpallet90 = New System.Windows.Forms.Panel() + Me.colourpallet91 = New System.Windows.Forms.Panel() + Me.colourpallet92 = New System.Windows.Forms.Panel() + Me.colourpallet93 = New System.Windows.Forms.Panel() + Me.colourpallet94 = New System.Windows.Forms.Panel() + Me.colourpallet95 = New System.Windows.Forms.Panel() + Me.colourpallet96 = New System.Windows.Forms.Panel() + Me.colourpallet97 = New System.Windows.Forms.Panel() + Me.colourpallet98 = New System.Windows.Forms.Panel() + Me.colourpallet99 = New System.Windows.Forms.Panel() + Me.colourpallet100 = New System.Windows.Forms.Panel() + Me.colourpallet101 = New System.Windows.Forms.Panel() + Me.colourpallet102 = New System.Windows.Forms.Panel() + Me.colourpallet103 = New System.Windows.Forms.Panel() + Me.colourpallet104 = New System.Windows.Forms.Panel() + Me.colourpallet105 = New System.Windows.Forms.Panel() + Me.colourpallet106 = New System.Windows.Forms.Panel() + Me.colourpallet107 = New System.Windows.Forms.Panel() + Me.colourpallet108 = New System.Windows.Forms.Panel() + Me.colourpallet109 = New System.Windows.Forms.Panel() + Me.colourpallet110 = New System.Windows.Forms.Panel() + Me.colourpallet111 = New System.Windows.Forms.Panel() + Me.colourpallet112 = New System.Windows.Forms.Panel() + Me.colourpallet113 = New System.Windows.Forms.Panel() + Me.colourpallet114 = New System.Windows.Forms.Panel() + Me.colourpallet115 = New System.Windows.Forms.Panel() + Me.colourpallet116 = New System.Windows.Forms.Panel() + Me.colourpallet117 = New System.Windows.Forms.Panel() + Me.colourpallet118 = New System.Windows.Forms.Panel() + Me.colourpallet119 = New System.Windows.Forms.Panel() + Me.colourpallet120 = New System.Windows.Forms.Panel() + Me.colourpallet121 = New System.Windows.Forms.Panel() + Me.colourpallet122 = New System.Windows.Forms.Panel() + Me.colourpallet123 = New System.Windows.Forms.Panel() + Me.colourpallet124 = New System.Windows.Forms.Panel() + Me.colourpallet125 = New System.Windows.Forms.Panel() + Me.colourpallet126 = New System.Windows.Forms.Panel() + Me.colourpallet127 = New System.Windows.Forms.Panel() + Me.colourpallet128 = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.line6 = New System.Windows.Forms.Panel() + Me.pnltoolproperties = New System.Windows.Forms.Panel() + Me.pnltexttoolsettings = New System.Windows.Forms.Panel() + Me.Label35 = New System.Windows.Forms.Label() + Me.combofontstyle = New System.Windows.Forms.ComboBox() + Me.txtdrawstringtext = New System.Windows.Forms.TextBox() + Me.combodrawtextfont = New System.Windows.Forms.ComboBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.txtdrawtextsize = New System.Windows.Forms.TextBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.pnlpixelsettersettings = New System.Windows.Forms.Panel() + Me.btnpixelsettersetpixel = New System.Windows.Forms.Button() + Me.txtpixelsetterycoordinate = New System.Windows.Forms.TextBox() + Me.txtpixelsetterxcoordinate = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnlpaintbrushtoolsettings = New System.Windows.Forms.Panel() + Me.Label36 = New System.Windows.Forms.Label() + Me.btnpaintsquareshape = New System.Windows.Forms.Button() + Me.btnpaintcircleshape = New System.Windows.Forms.Button() + Me.Label37 = New System.Windows.Forms.Label() + Me.txtpaintbrushsize = New System.Windows.Forms.TextBox() + Me.Label38 = New System.Windows.Forms.Label() + Me.Label39 = New System.Windows.Forms.Label() + Me.pnllinetoolsettings = New System.Windows.Forms.Panel() + Me.Label29 = New System.Windows.Forms.Label() + Me.txtlinewidth = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.pnlmagnifiersettings = New System.Windows.Forms.Panel() + Me.btnzoomout = New System.Windows.Forms.Button() + Me.btnzoomin = New System.Windows.Forms.Button() + Me.lblzoomlevel = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.pnleracertoolsettings = New System.Windows.Forms.Panel() + Me.Label28 = New System.Windows.Forms.Label() + Me.btneracersquare = New System.Windows.Forms.Button() + Me.btneracercircle = New System.Windows.Forms.Button() + Me.Label24 = New System.Windows.Forms.Label() + Me.txteracersize = New System.Windows.Forms.TextBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.pnlfloodfillsettings = New System.Windows.Forms.Panel() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.pnlovaltoolsettings = New System.Windows.Forms.Panel() + Me.Label20 = New System.Windows.Forms.Label() + Me.btnovalfillonoff = New System.Windows.Forms.Button() + Me.pnlovalfillcolour = New System.Windows.Forms.Panel() + Me.txtovalborderwidth = New System.Windows.Forms.TextBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.pnlsquaretoolsettings = New System.Windows.Forms.Panel() + Me.Label19 = New System.Windows.Forms.Label() + Me.btnsquarefillonoff = New System.Windows.Forms.Button() + Me.pnlsquarefillcolour = New System.Windows.Forms.Panel() + Me.txtsquareborderwidth = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.pnlpixelplacersettings = New System.Windows.Forms.Panel() + Me.lblpixelplacerhelp = New System.Windows.Forms.Label() + Me.btnpixelplacermovementmode = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.pnlpencilsettings = New System.Windows.Forms.Panel() + Me.btnpencilsize3 = New System.Windows.Forms.Button() + Me.btnpencilsize2 = New System.Windows.Forms.Button() + Me.btnpencilsize1 = New System.Windows.Forms.Button() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.line5 = New System.Windows.Forms.Panel() + Me.line3 = New System.Windows.Forms.Panel() + Me.pnltools = New System.Windows.Forms.Panel() + Me.pnltoolpositioner = New System.Windows.Forms.FlowLayoutPanel() + Me.btnpixelsetter = New System.Windows.Forms.Button() + Me.btnpixelplacer = New System.Windows.Forms.Button() + Me.btnpencil = New System.Windows.Forms.Button() + Me.btnfloodfill = New System.Windows.Forms.Button() + Me.btnoval = New System.Windows.Forms.Button() + Me.btnsquare = New System.Windows.Forms.Button() + Me.btnlinetool = New System.Windows.Forms.Button() + Me.btnpaintbrush = New System.Windows.Forms.Button() + Me.btntexttool = New System.Windows.Forms.Button() + Me.btneracer = New System.Windows.Forms.Button() + Me.btnnew = New System.Windows.Forms.Button() + Me.btnmagnify = New System.Windows.Forms.Button() + Me.btnopen = New System.Windows.Forms.Button() + Me.btnsave = New System.Windows.Forms.Button() + Me.btnundo = New System.Windows.Forms.Button() + Me.btnredo = New System.Windows.Forms.Button() + Me.line1 = New System.Windows.Forms.Panel() + Me.pnltoolpreview = New System.Windows.Forms.Panel() + Me.Label13 = New System.Windows.Forms.Label() + Me.picpreview = New System.Windows.Forms.PictureBox() + Me.lbltoolselected = New System.Windows.Forms.Label() + Me.line4 = New System.Windows.Forms.Panel() + Me.line2 = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.tmrcodepointcooldown = New System.Windows.Forms.Timer(Me.components) + Me.tmrshowearnedcodepoints = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnldrawingbackground.SuspendLayout() + Me.pnlpalletsize.SuspendLayout() + Me.pnlinitialcanvassettings.SuspendLayout() + CType(Me.picdrawingdisplay, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlbottompanel.SuspendLayout() + Me.pnlpallet.SuspendLayout() + Me.flowcolours.SuspendLayout() + Me.pnltoolproperties.SuspendLayout() + Me.pnltexttoolsettings.SuspendLayout() + Me.pnlpixelsettersettings.SuspendLayout() + Me.pnlpaintbrushtoolsettings.SuspendLayout() + Me.pnllinetoolsettings.SuspendLayout() + Me.pnlmagnifiersettings.SuspendLayout() + Me.pnleracertoolsettings.SuspendLayout() + Me.pnlfloodfillsettings.SuspendLayout() + Me.pnlovaltoolsettings.SuspendLayout() + Me.pnlsquaretoolsettings.SuspendLayout() + Me.pnlpixelplacersettings.SuspendLayout() + Me.pnlpencilsettings.SuspendLayout() + Me.pnltools.SuspendLayout() + Me.pnltoolpositioner.SuspendLayout() + Me.pnltoolpreview.SuspendLayout() + CType(Me.picpreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.pnldrawingbackground) + Me.pgcontents.Controls.Add(Me.pnlbottompanel) + Me.pgcontents.Controls.Add(Me.pnltools) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(798, 566) + Me.pgcontents.TabIndex = 20 + ' + 'pnldrawingbackground + ' + Me.pnldrawingbackground.AutoScroll = True + Me.pnldrawingbackground.BackColor = System.Drawing.Color.Gray + Me.pnldrawingbackground.Controls.Add(Me.pnlpalletsize) + Me.pnldrawingbackground.Controls.Add(Me.pnlinitialcanvassettings) + Me.pnldrawingbackground.Controls.Add(Me.picdrawingdisplay) + Me.pnldrawingbackground.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnldrawingbackground.Location = New System.Drawing.Point(120, 0) + Me.pnldrawingbackground.Name = "pnldrawingbackground" + Me.pnldrawingbackground.Size = New System.Drawing.Size(678, 466) + Me.pnldrawingbackground.TabIndex = 2 + ' + 'pnlpalletsize + ' + Me.pnlpalletsize.BackColor = System.Drawing.Color.White + Me.pnlpalletsize.Controls.Add(Me.txttopspace) + Me.pnlpalletsize.Controls.Add(Me.Label40) + Me.pnlpalletsize.Controls.Add(Me.txtsidespace) + Me.pnlpalletsize.Controls.Add(Me.Label41) + Me.pnlpalletsize.Controls.Add(Me.btnchangesizecancel) + Me.pnlpalletsize.Controls.Add(Me.btnsetsize) + Me.pnlpalletsize.Controls.Add(Me.txtcolorpalletheight) + Me.pnlpalletsize.Controls.Add(Me.Label42) + Me.pnlpalletsize.Controls.Add(Me.txtcolorpalletwidth) + Me.pnlpalletsize.Controls.Add(Me.Label43) + Me.pnlpalletsize.Location = New System.Drawing.Point(207, 178) + Me.pnlpalletsize.Name = "pnlpalletsize" + Me.pnlpalletsize.Size = New System.Drawing.Size(259, 100) + Me.pnlpalletsize.TabIndex = 2 + Me.pnlpalletsize.Visible = False + ' + 'txttopspace + ' + Me.txttopspace.BackColor = System.Drawing.Color.White + Me.txttopspace.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttopspace.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttopspace.Location = New System.Drawing.Point(198, 38) + Me.txttopspace.Name = "txttopspace" + Me.txttopspace.Size = New System.Drawing.Size(54, 22) + Me.txttopspace.TabIndex = 11 + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(115, 40) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(79, 16) + Me.Label40.TabIndex = 10 + Me.Label40.Text = "Top Space:" + ' + 'txtsidespace + ' + Me.txtsidespace.BackColor = System.Drawing.Color.White + Me.txtsidespace.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtsidespace.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtsidespace.Location = New System.Drawing.Point(198, 10) + Me.txtsidespace.Name = "txtsidespace" + Me.txtsidespace.Size = New System.Drawing.Size(54, 22) + Me.txtsidespace.TabIndex = 9 + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(115, 12) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(82, 16) + Me.Label41.TabIndex = 8 + Me.Label41.Text = "Side Space:" + ' + 'btnchangesizecancel + ' + Me.btnchangesizecancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnchangesizecancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnchangesizecancel.Location = New System.Drawing.Point(7, 66) + Me.btnchangesizecancel.Name = "btnchangesizecancel" + Me.btnchangesizecancel.Size = New System.Drawing.Size(121, 28) + Me.btnchangesizecancel.TabIndex = 7 + Me.btnchangesizecancel.Text = "Close" + Me.btnchangesizecancel.UseVisualStyleBackColor = True + ' + 'btnsetsize + ' + Me.btnsetsize.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsetsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsetsize.Location = New System.Drawing.Point(133, 66) + Me.btnsetsize.Name = "btnsetsize" + Me.btnsetsize.Size = New System.Drawing.Size(119, 28) + Me.btnsetsize.TabIndex = 6 + Me.btnsetsize.Text = "Set Size" + Me.btnsetsize.UseVisualStyleBackColor = True + ' + 'txtcolorpalletheight + ' + Me.txtcolorpalletheight.BackColor = System.Drawing.Color.White + Me.txtcolorpalletheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtcolorpalletheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcolorpalletheight.Location = New System.Drawing.Point(59, 37) + Me.txtcolorpalletheight.Name = "txtcolorpalletheight" + Me.txtcolorpalletheight.Size = New System.Drawing.Size(54, 22) + Me.txtcolorpalletheight.TabIndex = 3 + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label42.Location = New System.Drawing.Point(8, 40) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(50, 16) + Me.Label42.TabIndex = 2 + Me.Label42.Text = "Height:" + ' + 'txtcolorpalletwidth + ' + Me.txtcolorpalletwidth.BackColor = System.Drawing.Color.White + Me.txtcolorpalletwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtcolorpalletwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcolorpalletwidth.Location = New System.Drawing.Point(59, 9) + Me.txtcolorpalletwidth.Name = "txtcolorpalletwidth" + Me.txtcolorpalletwidth.Size = New System.Drawing.Size(54, 22) + Me.txtcolorpalletwidth.TabIndex = 1 + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.Location = New System.Drawing.Point(8, 12) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(45, 16) + Me.Label43.TabIndex = 0 + Me.Label43.Text = "Width:" + ' + 'pnlinitialcanvassettings + ' + Me.pnlinitialcanvassettings.BackColor = System.Drawing.Color.White + Me.pnlinitialcanvassettings.Controls.Add(Me.btncancel) + Me.pnlinitialcanvassettings.Controls.Add(Me.btncreate) + Me.pnlinitialcanvassettings.Controls.Add(Me.Label11) + Me.pnlinitialcanvassettings.Controls.Add(Me.lbltotalpixels) + Me.pnlinitialcanvassettings.Controls.Add(Me.txtnewcanvasheight) + Me.pnlinitialcanvassettings.Controls.Add(Me.Label10) + Me.pnlinitialcanvassettings.Controls.Add(Me.txtnewcanvaswidth) + Me.pnlinitialcanvassettings.Controls.Add(Me.Label9) + Me.pnlinitialcanvassettings.Location = New System.Drawing.Point(223, 178) + Me.pnlinitialcanvassettings.Name = "pnlinitialcanvassettings" + Me.pnlinitialcanvassettings.Size = New System.Drawing.Size(223, 100) + Me.pnlinitialcanvassettings.TabIndex = 1 + ' + 'btncancel + ' + Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncancel.Location = New System.Drawing.Point(7, 66) + Me.btncancel.Name = "btncancel" + Me.btncancel.Size = New System.Drawing.Size(102, 28) + Me.btncancel.TabIndex = 7 + Me.btncancel.Text = "Cancel" + Me.btncancel.UseVisualStyleBackColor = True + ' + 'btncreate + ' + Me.btncreate.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncreate.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncreate.Location = New System.Drawing.Point(114, 66) + Me.btncreate.Name = "btncreate" + Me.btncreate.Size = New System.Drawing.Size(102, 28) + Me.btncreate.TabIndex = 6 + Me.btncreate.Text = "Create" + Me.btncreate.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(124, 9) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(88, 20) + Me.Label11.TabIndex = 5 + Me.Label11.Text = "Total Pixels" + ' + 'lbltotalpixels + ' + Me.lbltotalpixels.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotalpixels.Location = New System.Drawing.Point(114, 30) + Me.lbltotalpixels.Name = "lbltotalpixels" + Me.lbltotalpixels.Size = New System.Drawing.Size(106, 29) + Me.lbltotalpixels.TabIndex = 4 + Me.lbltotalpixels.Text = "0" + Me.lbltotalpixels.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'txtnewcanvasheight + ' + Me.txtnewcanvasheight.BackColor = System.Drawing.Color.White + Me.txtnewcanvasheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtnewcanvasheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtnewcanvasheight.Location = New System.Drawing.Point(59, 37) + Me.txtnewcanvasheight.MaxLength = 4 + Me.txtnewcanvasheight.Name = "txtnewcanvasheight" + Me.txtnewcanvasheight.Size = New System.Drawing.Size(54, 22) + Me.txtnewcanvasheight.TabIndex = 3 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(8, 40) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(50, 16) + Me.Label10.TabIndex = 2 + Me.Label10.Text = "Height:" + ' + 'txtnewcanvaswidth + ' + Me.txtnewcanvaswidth.BackColor = System.Drawing.Color.White + Me.txtnewcanvaswidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtnewcanvaswidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtnewcanvaswidth.Location = New System.Drawing.Point(59, 9) + Me.txtnewcanvaswidth.MaxLength = 4 + Me.txtnewcanvaswidth.Name = "txtnewcanvaswidth" + Me.txtnewcanvaswidth.Size = New System.Drawing.Size(54, 22) + Me.txtnewcanvaswidth.TabIndex = 1 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(8, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(45, 16) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "Width:" + ' + 'picdrawingdisplay + ' + Me.picdrawingdisplay.BackColor = System.Drawing.Color.White + Me.picdrawingdisplay.Location = New System.Drawing.Point(180, 108) + Me.picdrawingdisplay.Name = "picdrawingdisplay" + Me.picdrawingdisplay.Size = New System.Drawing.Size(100, 50) + Me.picdrawingdisplay.TabIndex = 0 + Me.picdrawingdisplay.TabStop = False + Me.picdrawingdisplay.Visible = False + ' + 'pnlbottompanel + ' + Me.pnlbottompanel.Controls.Add(Me.pnlpallet) + Me.pnlbottompanel.Controls.Add(Me.pnltoolproperties) + Me.pnlbottompanel.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlbottompanel.Location = New System.Drawing.Point(120, 466) + Me.pnlbottompanel.Name = "pnlbottompanel" + Me.pnlbottompanel.Size = New System.Drawing.Size(678, 100) + Me.pnlbottompanel.TabIndex = 1 + ' + 'pnlpallet + ' + Me.pnlpallet.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlpallet.Controls.Add(Me.flowcolours) + Me.pnlpallet.Controls.Add(Me.Label4) + Me.pnlpallet.Controls.Add(Me.line6) + Me.pnlpallet.Location = New System.Drawing.Point(457, 0) + Me.pnlpallet.Name = "pnlpallet" + Me.pnlpallet.Size = New System.Drawing.Size(221, 100) + Me.pnlpallet.TabIndex = 0 + ' + 'flowcolours + ' + Me.flowcolours.Controls.Add(Me.colourpallet1) + Me.flowcolours.Controls.Add(Me.colourpallet2) + Me.flowcolours.Controls.Add(Me.colourpallet3) + Me.flowcolours.Controls.Add(Me.colourpallet4) + Me.flowcolours.Controls.Add(Me.colourpallet5) + Me.flowcolours.Controls.Add(Me.colourpallet6) + Me.flowcolours.Controls.Add(Me.colourpallet7) + Me.flowcolours.Controls.Add(Me.colourpallet8) + Me.flowcolours.Controls.Add(Me.colourpallet9) + Me.flowcolours.Controls.Add(Me.colourpallet10) + Me.flowcolours.Controls.Add(Me.colourpallet11) + Me.flowcolours.Controls.Add(Me.colourpallet12) + Me.flowcolours.Controls.Add(Me.colourpallet13) + Me.flowcolours.Controls.Add(Me.colourpallet14) + Me.flowcolours.Controls.Add(Me.colourpallet15) + Me.flowcolours.Controls.Add(Me.colourpallet16) + Me.flowcolours.Controls.Add(Me.colourpallet17) + Me.flowcolours.Controls.Add(Me.colourpallet18) + Me.flowcolours.Controls.Add(Me.colourpallet19) + Me.flowcolours.Controls.Add(Me.colourpallet20) + Me.flowcolours.Controls.Add(Me.colourpallet21) + Me.flowcolours.Controls.Add(Me.colourpallet22) + Me.flowcolours.Controls.Add(Me.colourpallet23) + Me.flowcolours.Controls.Add(Me.colourpallet24) + Me.flowcolours.Controls.Add(Me.colourpallet25) + Me.flowcolours.Controls.Add(Me.colourpallet26) + Me.flowcolours.Controls.Add(Me.colourpallet27) + Me.flowcolours.Controls.Add(Me.colourpallet28) + Me.flowcolours.Controls.Add(Me.colourpallet29) + Me.flowcolours.Controls.Add(Me.colourpallet30) + Me.flowcolours.Controls.Add(Me.colourpallet31) + Me.flowcolours.Controls.Add(Me.colourpallet32) + Me.flowcolours.Controls.Add(Me.colourpallet33) + Me.flowcolours.Controls.Add(Me.colourpallet34) + Me.flowcolours.Controls.Add(Me.colourpallet35) + Me.flowcolours.Controls.Add(Me.colourpallet36) + Me.flowcolours.Controls.Add(Me.colourpallet37) + Me.flowcolours.Controls.Add(Me.colourpallet38) + Me.flowcolours.Controls.Add(Me.colourpallet39) + Me.flowcolours.Controls.Add(Me.colourpallet40) + Me.flowcolours.Controls.Add(Me.colourpallet41) + Me.flowcolours.Controls.Add(Me.colourpallet42) + Me.flowcolours.Controls.Add(Me.colourpallet43) + Me.flowcolours.Controls.Add(Me.colourpallet44) + Me.flowcolours.Controls.Add(Me.colourpallet45) + Me.flowcolours.Controls.Add(Me.colourpallet46) + Me.flowcolours.Controls.Add(Me.colourpallet47) + Me.flowcolours.Controls.Add(Me.colourpallet48) + Me.flowcolours.Controls.Add(Me.colourpallet49) + Me.flowcolours.Controls.Add(Me.colourpallet50) + Me.flowcolours.Controls.Add(Me.colourpallet51) + Me.flowcolours.Controls.Add(Me.colourpallet52) + Me.flowcolours.Controls.Add(Me.colourpallet53) + Me.flowcolours.Controls.Add(Me.colourpallet54) + Me.flowcolours.Controls.Add(Me.colourpallet55) + Me.flowcolours.Controls.Add(Me.colourpallet56) + Me.flowcolours.Controls.Add(Me.colourpallet57) + Me.flowcolours.Controls.Add(Me.colourpallet58) + Me.flowcolours.Controls.Add(Me.colourpallet59) + Me.flowcolours.Controls.Add(Me.colourpallet60) + Me.flowcolours.Controls.Add(Me.colourpallet61) + Me.flowcolours.Controls.Add(Me.colourpallet62) + Me.flowcolours.Controls.Add(Me.colourpallet63) + Me.flowcolours.Controls.Add(Me.colourpallet64) + Me.flowcolours.Controls.Add(Me.colourpallet65) + Me.flowcolours.Controls.Add(Me.colourpallet66) + Me.flowcolours.Controls.Add(Me.colourpallet67) + Me.flowcolours.Controls.Add(Me.colourpallet68) + Me.flowcolours.Controls.Add(Me.colourpallet69) + Me.flowcolours.Controls.Add(Me.colourpallet70) + Me.flowcolours.Controls.Add(Me.colourpallet71) + Me.flowcolours.Controls.Add(Me.colourpallet72) + Me.flowcolours.Controls.Add(Me.colourpallet73) + Me.flowcolours.Controls.Add(Me.colourpallet74) + Me.flowcolours.Controls.Add(Me.colourpallet75) + Me.flowcolours.Controls.Add(Me.colourpallet76) + Me.flowcolours.Controls.Add(Me.colourpallet77) + Me.flowcolours.Controls.Add(Me.colourpallet78) + Me.flowcolours.Controls.Add(Me.colourpallet79) + Me.flowcolours.Controls.Add(Me.colourpallet80) + Me.flowcolours.Controls.Add(Me.colourpallet81) + Me.flowcolours.Controls.Add(Me.colourpallet82) + Me.flowcolours.Controls.Add(Me.colourpallet83) + Me.flowcolours.Controls.Add(Me.colourpallet84) + Me.flowcolours.Controls.Add(Me.colourpallet85) + Me.flowcolours.Controls.Add(Me.colourpallet86) + Me.flowcolours.Controls.Add(Me.colourpallet87) + Me.flowcolours.Controls.Add(Me.colourpallet88) + Me.flowcolours.Controls.Add(Me.colourpallet89) + Me.flowcolours.Controls.Add(Me.colourpallet90) + Me.flowcolours.Controls.Add(Me.colourpallet91) + Me.flowcolours.Controls.Add(Me.colourpallet92) + Me.flowcolours.Controls.Add(Me.colourpallet93) + Me.flowcolours.Controls.Add(Me.colourpallet94) + Me.flowcolours.Controls.Add(Me.colourpallet95) + Me.flowcolours.Controls.Add(Me.colourpallet96) + Me.flowcolours.Controls.Add(Me.colourpallet97) + Me.flowcolours.Controls.Add(Me.colourpallet98) + Me.flowcolours.Controls.Add(Me.colourpallet99) + Me.flowcolours.Controls.Add(Me.colourpallet100) + Me.flowcolours.Controls.Add(Me.colourpallet101) + Me.flowcolours.Controls.Add(Me.colourpallet102) + Me.flowcolours.Controls.Add(Me.colourpallet103) + Me.flowcolours.Controls.Add(Me.colourpallet104) + Me.flowcolours.Controls.Add(Me.colourpallet105) + Me.flowcolours.Controls.Add(Me.colourpallet106) + Me.flowcolours.Controls.Add(Me.colourpallet107) + Me.flowcolours.Controls.Add(Me.colourpallet108) + Me.flowcolours.Controls.Add(Me.colourpallet109) + Me.flowcolours.Controls.Add(Me.colourpallet110) + Me.flowcolours.Controls.Add(Me.colourpallet111) + Me.flowcolours.Controls.Add(Me.colourpallet112) + Me.flowcolours.Controls.Add(Me.colourpallet113) + Me.flowcolours.Controls.Add(Me.colourpallet114) + Me.flowcolours.Controls.Add(Me.colourpallet115) + Me.flowcolours.Controls.Add(Me.colourpallet116) + Me.flowcolours.Controls.Add(Me.colourpallet117) + Me.flowcolours.Controls.Add(Me.colourpallet118) + Me.flowcolours.Controls.Add(Me.colourpallet119) + Me.flowcolours.Controls.Add(Me.colourpallet120) + Me.flowcolours.Controls.Add(Me.colourpallet121) + Me.flowcolours.Controls.Add(Me.colourpallet122) + Me.flowcolours.Controls.Add(Me.colourpallet123) + Me.flowcolours.Controls.Add(Me.colourpallet124) + Me.flowcolours.Controls.Add(Me.colourpallet125) + Me.flowcolours.Controls.Add(Me.colourpallet126) + Me.flowcolours.Controls.Add(Me.colourpallet127) + Me.flowcolours.Controls.Add(Me.colourpallet128) + Me.flowcolours.Dock = System.Windows.Forms.DockStyle.Bottom + Me.flowcolours.Location = New System.Drawing.Point(0, 27) + Me.flowcolours.Name = "flowcolours" + Me.flowcolours.Padding = New System.Windows.Forms.Padding(1, 1, 0, 0) + Me.flowcolours.Size = New System.Drawing.Size(221, 73) + Me.flowcolours.TabIndex = 12 + ' + 'colourpallet1 + ' + Me.colourpallet1.BackColor = System.Drawing.Color.Black + Me.colourpallet1.Location = New System.Drawing.Point(2, 1) + Me.colourpallet1.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet1.Name = "colourpallet1" + Me.colourpallet1.Size = New System.Drawing.Size(12, 8) + Me.colourpallet1.TabIndex = 5 + Me.colourpallet1.Visible = False + ' + 'colourpallet2 + ' + Me.colourpallet2.BackColor = System.Drawing.Color.Black + Me.colourpallet2.Location = New System.Drawing.Point(15, 1) + Me.colourpallet2.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet2.Name = "colourpallet2" + Me.colourpallet2.Size = New System.Drawing.Size(12, 8) + Me.colourpallet2.TabIndex = 9 + Me.colourpallet2.Visible = False + ' + 'colourpallet3 + ' + Me.colourpallet3.BackColor = System.Drawing.Color.Black + Me.colourpallet3.Location = New System.Drawing.Point(28, 1) + Me.colourpallet3.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet3.Name = "colourpallet3" + Me.colourpallet3.Size = New System.Drawing.Size(12, 8) + Me.colourpallet3.TabIndex = 13 + Me.colourpallet3.Visible = False + ' + 'colourpallet4 + ' + Me.colourpallet4.BackColor = System.Drawing.Color.Black + Me.colourpallet4.Location = New System.Drawing.Point(41, 1) + Me.colourpallet4.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet4.Name = "colourpallet4" + Me.colourpallet4.Size = New System.Drawing.Size(12, 8) + Me.colourpallet4.TabIndex = 9 + Me.colourpallet4.Visible = False + ' + 'colourpallet5 + ' + Me.colourpallet5.BackColor = System.Drawing.Color.Black + Me.colourpallet5.Location = New System.Drawing.Point(54, 1) + Me.colourpallet5.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet5.Name = "colourpallet5" + Me.colourpallet5.Size = New System.Drawing.Size(12, 8) + Me.colourpallet5.TabIndex = 18 + Me.colourpallet5.Visible = False + ' + 'colourpallet6 + ' + Me.colourpallet6.BackColor = System.Drawing.Color.Black + Me.colourpallet6.Location = New System.Drawing.Point(67, 1) + Me.colourpallet6.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet6.Name = "colourpallet6" + Me.colourpallet6.Size = New System.Drawing.Size(12, 8) + Me.colourpallet6.TabIndex = 17 + Me.colourpallet6.Visible = False + ' + 'colourpallet7 + ' + Me.colourpallet7.BackColor = System.Drawing.Color.Black + Me.colourpallet7.Location = New System.Drawing.Point(80, 1) + Me.colourpallet7.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet7.Name = "colourpallet7" + Me.colourpallet7.Size = New System.Drawing.Size(12, 8) + Me.colourpallet7.TabIndex = 14 + Me.colourpallet7.Visible = False + ' + 'colourpallet8 + ' + Me.colourpallet8.BackColor = System.Drawing.Color.Black + Me.colourpallet8.Location = New System.Drawing.Point(93, 1) + Me.colourpallet8.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet8.Name = "colourpallet8" + Me.colourpallet8.Size = New System.Drawing.Size(12, 8) + Me.colourpallet8.TabIndex = 13 + Me.colourpallet8.Visible = False + ' + 'colourpallet9 + ' + Me.colourpallet9.BackColor = System.Drawing.Color.Black + Me.colourpallet9.Location = New System.Drawing.Point(106, 1) + Me.colourpallet9.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet9.Name = "colourpallet9" + Me.colourpallet9.Size = New System.Drawing.Size(12, 8) + Me.colourpallet9.TabIndex = 15 + Me.colourpallet9.Visible = False + ' + 'colourpallet10 + ' + Me.colourpallet10.BackColor = System.Drawing.Color.Black + Me.colourpallet10.Location = New System.Drawing.Point(119, 1) + Me.colourpallet10.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet10.Name = "colourpallet10" + Me.colourpallet10.Size = New System.Drawing.Size(12, 8) + Me.colourpallet10.TabIndex = 11 + Me.colourpallet10.Visible = False + ' + 'colourpallet11 + ' + Me.colourpallet11.BackColor = System.Drawing.Color.Black + Me.colourpallet11.Location = New System.Drawing.Point(132, 1) + Me.colourpallet11.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet11.Name = "colourpallet11" + Me.colourpallet11.Size = New System.Drawing.Size(12, 8) + Me.colourpallet11.TabIndex = 12 + Me.colourpallet11.Visible = False + ' + 'colourpallet12 + ' + Me.colourpallet12.BackColor = System.Drawing.Color.Black + Me.colourpallet12.Location = New System.Drawing.Point(145, 1) + Me.colourpallet12.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet12.Name = "colourpallet12" + Me.colourpallet12.Size = New System.Drawing.Size(12, 8) + Me.colourpallet12.TabIndex = 16 + Me.colourpallet12.Visible = False + ' + 'colourpallet13 + ' + Me.colourpallet13.BackColor = System.Drawing.Color.Black + Me.colourpallet13.Location = New System.Drawing.Point(158, 1) + Me.colourpallet13.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet13.Name = "colourpallet13" + Me.colourpallet13.Size = New System.Drawing.Size(12, 8) + Me.colourpallet13.TabIndex = 10 + Me.colourpallet13.Visible = False + ' + 'colourpallet14 + ' + Me.colourpallet14.BackColor = System.Drawing.Color.Black + Me.colourpallet14.Location = New System.Drawing.Point(171, 1) + Me.colourpallet14.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet14.Name = "colourpallet14" + Me.colourpallet14.Size = New System.Drawing.Size(12, 8) + Me.colourpallet14.TabIndex = 20 + Me.colourpallet14.Visible = False + ' + 'colourpallet15 + ' + Me.colourpallet15.BackColor = System.Drawing.Color.Black + Me.colourpallet15.Location = New System.Drawing.Point(184, 1) + Me.colourpallet15.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet15.Name = "colourpallet15" + Me.colourpallet15.Size = New System.Drawing.Size(12, 8) + Me.colourpallet15.TabIndex = 14 + Me.colourpallet15.Visible = False + ' + 'colourpallet16 + ' + Me.colourpallet16.BackColor = System.Drawing.Color.Black + Me.colourpallet16.Location = New System.Drawing.Point(197, 1) + Me.colourpallet16.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet16.Name = "colourpallet16" + Me.colourpallet16.Size = New System.Drawing.Size(12, 8) + Me.colourpallet16.TabIndex = 16 + Me.colourpallet16.Visible = False + ' + 'colourpallet17 + ' + Me.colourpallet17.BackColor = System.Drawing.Color.Black + Me.colourpallet17.Location = New System.Drawing.Point(2, 10) + Me.colourpallet17.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet17.Name = "colourpallet17" + Me.colourpallet17.Size = New System.Drawing.Size(12, 8) + Me.colourpallet17.TabIndex = 11 + Me.colourpallet17.Visible = False + ' + 'colourpallet18 + ' + Me.colourpallet18.BackColor = System.Drawing.Color.Black + Me.colourpallet18.Location = New System.Drawing.Point(15, 10) + Me.colourpallet18.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet18.Name = "colourpallet18" + Me.colourpallet18.Size = New System.Drawing.Size(12, 8) + Me.colourpallet18.TabIndex = 8 + Me.colourpallet18.Visible = False + ' + 'colourpallet19 + ' + Me.colourpallet19.BackColor = System.Drawing.Color.Black + Me.colourpallet19.Location = New System.Drawing.Point(28, 10) + Me.colourpallet19.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet19.Name = "colourpallet19" + Me.colourpallet19.Size = New System.Drawing.Size(12, 8) + Me.colourpallet19.TabIndex = 24 + Me.colourpallet19.Visible = False + ' + 'colourpallet20 + ' + Me.colourpallet20.BackColor = System.Drawing.Color.Black + Me.colourpallet20.Location = New System.Drawing.Point(41, 10) + Me.colourpallet20.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet20.Name = "colourpallet20" + Me.colourpallet20.Size = New System.Drawing.Size(12, 8) + Me.colourpallet20.TabIndex = 12 + Me.colourpallet20.Visible = False + ' + 'colourpallet21 + ' + Me.colourpallet21.BackColor = System.Drawing.Color.Black + Me.colourpallet21.Location = New System.Drawing.Point(54, 10) + Me.colourpallet21.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet21.Name = "colourpallet21" + Me.colourpallet21.Size = New System.Drawing.Size(12, 8) + Me.colourpallet21.TabIndex = 20 + Me.colourpallet21.Visible = False + ' + 'colourpallet22 + ' + Me.colourpallet22.BackColor = System.Drawing.Color.Black + Me.colourpallet22.Location = New System.Drawing.Point(67, 10) + Me.colourpallet22.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet22.Name = "colourpallet22" + Me.colourpallet22.Size = New System.Drawing.Size(12, 8) + Me.colourpallet22.TabIndex = 8 + Me.colourpallet22.Visible = False + ' + 'colourpallet23 + ' + Me.colourpallet23.BackColor = System.Drawing.Color.Black + Me.colourpallet23.Location = New System.Drawing.Point(80, 10) + Me.colourpallet23.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet23.Name = "colourpallet23" + Me.colourpallet23.Size = New System.Drawing.Size(12, 8) + Me.colourpallet23.TabIndex = 19 + Me.colourpallet23.Visible = False + ' + 'colourpallet24 + ' + Me.colourpallet24.BackColor = System.Drawing.Color.Black + Me.colourpallet24.Location = New System.Drawing.Point(93, 10) + Me.colourpallet24.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet24.Name = "colourpallet24" + Me.colourpallet24.Size = New System.Drawing.Size(12, 8) + Me.colourpallet24.TabIndex = 10 + Me.colourpallet24.Visible = False + ' + 'colourpallet25 + ' + Me.colourpallet25.BackColor = System.Drawing.Color.Black + Me.colourpallet25.Location = New System.Drawing.Point(106, 10) + Me.colourpallet25.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet25.Name = "colourpallet25" + Me.colourpallet25.Size = New System.Drawing.Size(12, 8) + Me.colourpallet25.TabIndex = 15 + Me.colourpallet25.Visible = False + ' + 'colourpallet26 + ' + Me.colourpallet26.BackColor = System.Drawing.Color.Black + Me.colourpallet26.Location = New System.Drawing.Point(119, 10) + Me.colourpallet26.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet26.Name = "colourpallet26" + Me.colourpallet26.Size = New System.Drawing.Size(12, 8) + Me.colourpallet26.TabIndex = 23 + Me.colourpallet26.Visible = False + ' + 'colourpallet27 + ' + Me.colourpallet27.BackColor = System.Drawing.Color.Black + Me.colourpallet27.Location = New System.Drawing.Point(132, 10) + Me.colourpallet27.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet27.Name = "colourpallet27" + Me.colourpallet27.Size = New System.Drawing.Size(12, 8) + Me.colourpallet27.TabIndex = 6 + Me.colourpallet27.Visible = False + ' + 'colourpallet28 + ' + Me.colourpallet28.BackColor = System.Drawing.Color.Black + Me.colourpallet28.Location = New System.Drawing.Point(145, 10) + Me.colourpallet28.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet28.Name = "colourpallet28" + Me.colourpallet28.Size = New System.Drawing.Size(12, 8) + Me.colourpallet28.TabIndex = 19 + Me.colourpallet28.Visible = False + ' + 'colourpallet29 + ' + Me.colourpallet29.BackColor = System.Drawing.Color.Black + Me.colourpallet29.Location = New System.Drawing.Point(158, 10) + Me.colourpallet29.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet29.Name = "colourpallet29" + Me.colourpallet29.Size = New System.Drawing.Size(12, 8) + Me.colourpallet29.TabIndex = 22 + Me.colourpallet29.Visible = False + ' + 'colourpallet30 + ' + Me.colourpallet30.BackColor = System.Drawing.Color.Black + Me.colourpallet30.Location = New System.Drawing.Point(171, 10) + Me.colourpallet30.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet30.Name = "colourpallet30" + Me.colourpallet30.Size = New System.Drawing.Size(12, 8) + Me.colourpallet30.TabIndex = 18 + Me.colourpallet30.Visible = False + ' + 'colourpallet31 + ' + Me.colourpallet31.BackColor = System.Drawing.Color.Black + Me.colourpallet31.Location = New System.Drawing.Point(184, 10) + Me.colourpallet31.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet31.Name = "colourpallet31" + Me.colourpallet31.Size = New System.Drawing.Size(12, 8) + Me.colourpallet31.TabIndex = 21 + Me.colourpallet31.Visible = False + ' + 'colourpallet32 + ' + Me.colourpallet32.BackColor = System.Drawing.Color.Black + Me.colourpallet32.Location = New System.Drawing.Point(197, 10) + Me.colourpallet32.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet32.Name = "colourpallet32" + Me.colourpallet32.Size = New System.Drawing.Size(12, 8) + Me.colourpallet32.TabIndex = 17 + Me.colourpallet32.Visible = False + ' + 'colourpallet33 + ' + Me.colourpallet33.BackColor = System.Drawing.Color.Black + Me.colourpallet33.Location = New System.Drawing.Point(2, 19) + Me.colourpallet33.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet33.Name = "colourpallet33" + Me.colourpallet33.Size = New System.Drawing.Size(12, 8) + Me.colourpallet33.TabIndex = 50 + Me.colourpallet33.Visible = False + ' + 'colourpallet34 + ' + Me.colourpallet34.BackColor = System.Drawing.Color.Black + Me.colourpallet34.Location = New System.Drawing.Point(15, 19) + Me.colourpallet34.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet34.Name = "colourpallet34" + Me.colourpallet34.Size = New System.Drawing.Size(12, 8) + Me.colourpallet34.TabIndex = 46 + Me.colourpallet34.Visible = False + ' + 'colourpallet35 + ' + Me.colourpallet35.BackColor = System.Drawing.Color.Black + Me.colourpallet35.Location = New System.Drawing.Point(28, 19) + Me.colourpallet35.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet35.Name = "colourpallet35" + Me.colourpallet35.Size = New System.Drawing.Size(12, 8) + Me.colourpallet35.TabIndex = 53 + Me.colourpallet35.Visible = False + ' + 'colourpallet36 + ' + Me.colourpallet36.BackColor = System.Drawing.Color.Black + Me.colourpallet36.Location = New System.Drawing.Point(41, 19) + Me.colourpallet36.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet36.Name = "colourpallet36" + Me.colourpallet36.Size = New System.Drawing.Size(12, 8) + Me.colourpallet36.TabIndex = 48 + Me.colourpallet36.Visible = False + ' + 'colourpallet37 + ' + Me.colourpallet37.BackColor = System.Drawing.Color.Black + Me.colourpallet37.Location = New System.Drawing.Point(54, 19) + Me.colourpallet37.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet37.Name = "colourpallet37" + Me.colourpallet37.Size = New System.Drawing.Size(12, 8) + Me.colourpallet37.TabIndex = 54 + Me.colourpallet37.Visible = False + ' + 'colourpallet38 + ' + Me.colourpallet38.BackColor = System.Drawing.Color.Black + Me.colourpallet38.Location = New System.Drawing.Point(67, 19) + Me.colourpallet38.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet38.Name = "colourpallet38" + Me.colourpallet38.Size = New System.Drawing.Size(12, 8) + Me.colourpallet38.TabIndex = 26 + Me.colourpallet38.Visible = False + ' + 'colourpallet39 + ' + Me.colourpallet39.BackColor = System.Drawing.Color.Black + Me.colourpallet39.Location = New System.Drawing.Point(80, 19) + Me.colourpallet39.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet39.Name = "colourpallet39" + Me.colourpallet39.Size = New System.Drawing.Size(12, 8) + Me.colourpallet39.TabIndex = 55 + Me.colourpallet39.Visible = False + ' + 'colourpallet40 + ' + Me.colourpallet40.BackColor = System.Drawing.Color.Black + Me.colourpallet40.Location = New System.Drawing.Point(93, 19) + Me.colourpallet40.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet40.Name = "colourpallet40" + Me.colourpallet40.Size = New System.Drawing.Size(12, 8) + Me.colourpallet40.TabIndex = 41 + Me.colourpallet40.Visible = False + ' + 'colourpallet41 + ' + Me.colourpallet41.BackColor = System.Drawing.Color.Black + Me.colourpallet41.Location = New System.Drawing.Point(106, 19) + Me.colourpallet41.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet41.Name = "colourpallet41" + Me.colourpallet41.Size = New System.Drawing.Size(12, 8) + Me.colourpallet41.TabIndex = 31 + Me.colourpallet41.Visible = False + ' + 'colourpallet42 + ' + Me.colourpallet42.BackColor = System.Drawing.Color.Black + Me.colourpallet42.Location = New System.Drawing.Point(119, 19) + Me.colourpallet42.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet42.Name = "colourpallet42" + Me.colourpallet42.Size = New System.Drawing.Size(12, 8) + Me.colourpallet42.TabIndex = 49 + Me.colourpallet42.Visible = False + ' + 'colourpallet43 + ' + Me.colourpallet43.BackColor = System.Drawing.Color.Black + Me.colourpallet43.Location = New System.Drawing.Point(132, 19) + Me.colourpallet43.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet43.Name = "colourpallet43" + Me.colourpallet43.Size = New System.Drawing.Size(12, 8) + Me.colourpallet43.TabIndex = 27 + Me.colourpallet43.Visible = False + ' + 'colourpallet44 + ' + Me.colourpallet44.BackColor = System.Drawing.Color.Black + Me.colourpallet44.Location = New System.Drawing.Point(145, 19) + Me.colourpallet44.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet44.Name = "colourpallet44" + Me.colourpallet44.Size = New System.Drawing.Size(12, 8) + Me.colourpallet44.TabIndex = 51 + Me.colourpallet44.Visible = False + ' + 'colourpallet45 + ' + Me.colourpallet45.BackColor = System.Drawing.Color.Black + Me.colourpallet45.Location = New System.Drawing.Point(158, 19) + Me.colourpallet45.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet45.Name = "colourpallet45" + Me.colourpallet45.Size = New System.Drawing.Size(12, 8) + Me.colourpallet45.TabIndex = 36 + Me.colourpallet45.Visible = False + ' + 'colourpallet46 + ' + Me.colourpallet46.BackColor = System.Drawing.Color.Black + Me.colourpallet46.Location = New System.Drawing.Point(171, 19) + Me.colourpallet46.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet46.Name = "colourpallet46" + Me.colourpallet46.Size = New System.Drawing.Size(12, 8) + Me.colourpallet46.TabIndex = 56 + Me.colourpallet46.Visible = False + ' + 'colourpallet47 + ' + Me.colourpallet47.BackColor = System.Drawing.Color.Black + Me.colourpallet47.Location = New System.Drawing.Point(184, 19) + Me.colourpallet47.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet47.Name = "colourpallet47" + Me.colourpallet47.Size = New System.Drawing.Size(12, 8) + Me.colourpallet47.TabIndex = 28 + Me.colourpallet47.Visible = False + ' + 'colourpallet48 + ' + Me.colourpallet48.BackColor = System.Drawing.Color.Black + Me.colourpallet48.Location = New System.Drawing.Point(197, 19) + Me.colourpallet48.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet48.Name = "colourpallet48" + Me.colourpallet48.Size = New System.Drawing.Size(12, 8) + Me.colourpallet48.TabIndex = 33 + Me.colourpallet48.Visible = False + ' + 'colourpallet49 + ' + Me.colourpallet49.BackColor = System.Drawing.Color.Black + Me.colourpallet49.Location = New System.Drawing.Point(2, 28) + Me.colourpallet49.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet49.Name = "colourpallet49" + Me.colourpallet49.Size = New System.Drawing.Size(12, 8) + Me.colourpallet49.TabIndex = 43 + Me.colourpallet49.Visible = False + ' + 'colourpallet50 + ' + Me.colourpallet50.BackColor = System.Drawing.Color.Black + Me.colourpallet50.Location = New System.Drawing.Point(15, 28) + Me.colourpallet50.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet50.Name = "colourpallet50" + Me.colourpallet50.Size = New System.Drawing.Size(12, 8) + Me.colourpallet50.TabIndex = 40 + Me.colourpallet50.Visible = False + ' + 'colourpallet51 + ' + Me.colourpallet51.BackColor = System.Drawing.Color.Black + Me.colourpallet51.Location = New System.Drawing.Point(28, 28) + Me.colourpallet51.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet51.Name = "colourpallet51" + Me.colourpallet51.Size = New System.Drawing.Size(12, 8) + Me.colourpallet51.TabIndex = 52 + Me.colourpallet51.Visible = False + ' + 'colourpallet52 + ' + Me.colourpallet52.BackColor = System.Drawing.Color.Black + Me.colourpallet52.Location = New System.Drawing.Point(41, 28) + Me.colourpallet52.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet52.Name = "colourpallet52" + Me.colourpallet52.Size = New System.Drawing.Size(12, 8) + Me.colourpallet52.TabIndex = 32 + Me.colourpallet52.Visible = False + ' + 'colourpallet53 + ' + Me.colourpallet53.BackColor = System.Drawing.Color.Black + Me.colourpallet53.Location = New System.Drawing.Point(54, 28) + Me.colourpallet53.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet53.Name = "colourpallet53" + Me.colourpallet53.Size = New System.Drawing.Size(12, 8) + Me.colourpallet53.TabIndex = 44 + Me.colourpallet53.Visible = False + ' + 'colourpallet54 + ' + Me.colourpallet54.BackColor = System.Drawing.Color.Black + Me.colourpallet54.Location = New System.Drawing.Point(67, 28) + Me.colourpallet54.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet54.Name = "colourpallet54" + Me.colourpallet54.Size = New System.Drawing.Size(12, 8) + Me.colourpallet54.TabIndex = 35 + Me.colourpallet54.Visible = False + ' + 'colourpallet55 + ' + Me.colourpallet55.BackColor = System.Drawing.Color.Black + Me.colourpallet55.Location = New System.Drawing.Point(80, 28) + Me.colourpallet55.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet55.Name = "colourpallet55" + Me.colourpallet55.Size = New System.Drawing.Size(12, 8) + Me.colourpallet55.TabIndex = 34 + Me.colourpallet55.Visible = False + ' + 'colourpallet56 + ' + Me.colourpallet56.BackColor = System.Drawing.Color.Black + Me.colourpallet56.Location = New System.Drawing.Point(93, 28) + Me.colourpallet56.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet56.Name = "colourpallet56" + Me.colourpallet56.Size = New System.Drawing.Size(12, 8) + Me.colourpallet56.TabIndex = 42 + Me.colourpallet56.Visible = False + ' + 'colourpallet57 + ' + Me.colourpallet57.BackColor = System.Drawing.Color.Black + Me.colourpallet57.Location = New System.Drawing.Point(106, 28) + Me.colourpallet57.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet57.Name = "colourpallet57" + Me.colourpallet57.Size = New System.Drawing.Size(12, 8) + Me.colourpallet57.TabIndex = 38 + Me.colourpallet57.Visible = False + ' + 'colourpallet58 + ' + Me.colourpallet58.BackColor = System.Drawing.Color.Black + Me.colourpallet58.Location = New System.Drawing.Point(119, 28) + Me.colourpallet58.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet58.Name = "colourpallet58" + Me.colourpallet58.Size = New System.Drawing.Size(12, 8) + Me.colourpallet58.TabIndex = 39 + Me.colourpallet58.Visible = False + ' + 'colourpallet59 + ' + Me.colourpallet59.BackColor = System.Drawing.Color.Black + Me.colourpallet59.Location = New System.Drawing.Point(132, 28) + Me.colourpallet59.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet59.Name = "colourpallet59" + Me.colourpallet59.Size = New System.Drawing.Size(12, 8) + Me.colourpallet59.TabIndex = 45 + Me.colourpallet59.Visible = False + ' + 'colourpallet60 + ' + Me.colourpallet60.BackColor = System.Drawing.Color.Black + Me.colourpallet60.Location = New System.Drawing.Point(145, 28) + Me.colourpallet60.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet60.Name = "colourpallet60" + Me.colourpallet60.Size = New System.Drawing.Size(12, 8) + Me.colourpallet60.TabIndex = 47 + Me.colourpallet60.Visible = False + ' + 'colourpallet61 + ' + Me.colourpallet61.BackColor = System.Drawing.Color.Black + Me.colourpallet61.Location = New System.Drawing.Point(158, 28) + Me.colourpallet61.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet61.Name = "colourpallet61" + Me.colourpallet61.Size = New System.Drawing.Size(12, 8) + Me.colourpallet61.TabIndex = 30 + Me.colourpallet61.Visible = False + ' + 'colourpallet62 + ' + Me.colourpallet62.BackColor = System.Drawing.Color.Black + Me.colourpallet62.Location = New System.Drawing.Point(171, 28) + Me.colourpallet62.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet62.Name = "colourpallet62" + Me.colourpallet62.Size = New System.Drawing.Size(12, 8) + Me.colourpallet62.TabIndex = 37 + Me.colourpallet62.Visible = False + ' + 'colourpallet63 + ' + Me.colourpallet63.BackColor = System.Drawing.Color.Black + Me.colourpallet63.Location = New System.Drawing.Point(184, 28) + Me.colourpallet63.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet63.Name = "colourpallet63" + Me.colourpallet63.Size = New System.Drawing.Size(12, 8) + Me.colourpallet63.TabIndex = 29 + Me.colourpallet63.Visible = False + ' + 'colourpallet64 + ' + Me.colourpallet64.BackColor = System.Drawing.Color.Black + Me.colourpallet64.Location = New System.Drawing.Point(197, 28) + Me.colourpallet64.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet64.Name = "colourpallet64" + Me.colourpallet64.Size = New System.Drawing.Size(12, 8) + Me.colourpallet64.TabIndex = 25 + Me.colourpallet64.Visible = False + ' + 'colourpallet65 + ' + Me.colourpallet65.BackColor = System.Drawing.Color.Black + Me.colourpallet65.Location = New System.Drawing.Point(2, 37) + Me.colourpallet65.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet65.Name = "colourpallet65" + Me.colourpallet65.Size = New System.Drawing.Size(12, 8) + Me.colourpallet65.TabIndex = 57 + Me.colourpallet65.Visible = False + ' + 'colourpallet66 + ' + Me.colourpallet66.BackColor = System.Drawing.Color.Black + Me.colourpallet66.Location = New System.Drawing.Point(15, 37) + Me.colourpallet66.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet66.Name = "colourpallet66" + Me.colourpallet66.Size = New System.Drawing.Size(12, 8) + Me.colourpallet66.TabIndex = 61 + Me.colourpallet66.Visible = False + ' + 'colourpallet67 + ' + Me.colourpallet67.BackColor = System.Drawing.Color.Black + Me.colourpallet67.Location = New System.Drawing.Point(28, 37) + Me.colourpallet67.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet67.Name = "colourpallet67" + Me.colourpallet67.Size = New System.Drawing.Size(12, 8) + Me.colourpallet67.TabIndex = 69 + Me.colourpallet67.Visible = False + ' + 'colourpallet68 + ' + Me.colourpallet68.BackColor = System.Drawing.Color.Black + Me.colourpallet68.Location = New System.Drawing.Point(41, 37) + Me.colourpallet68.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet68.Name = "colourpallet68" + Me.colourpallet68.Size = New System.Drawing.Size(12, 8) + Me.colourpallet68.TabIndex = 62 + Me.colourpallet68.Visible = False + ' + 'colourpallet69 + ' + Me.colourpallet69.BackColor = System.Drawing.Color.Black + Me.colourpallet69.Location = New System.Drawing.Point(54, 37) + Me.colourpallet69.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet69.Name = "colourpallet69" + Me.colourpallet69.Size = New System.Drawing.Size(12, 8) + Me.colourpallet69.TabIndex = 79 + Me.colourpallet69.Visible = False + ' + 'colourpallet70 + ' + Me.colourpallet70.BackColor = System.Drawing.Color.Black + Me.colourpallet70.Location = New System.Drawing.Point(67, 37) + Me.colourpallet70.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet70.Name = "colourpallet70" + Me.colourpallet70.Size = New System.Drawing.Size(12, 8) + Me.colourpallet70.TabIndex = 77 + Me.colourpallet70.Visible = False + ' + 'colourpallet71 + ' + Me.colourpallet71.BackColor = System.Drawing.Color.Black + Me.colourpallet71.Location = New System.Drawing.Point(80, 37) + Me.colourpallet71.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet71.Name = "colourpallet71" + Me.colourpallet71.Size = New System.Drawing.Size(12, 8) + Me.colourpallet71.TabIndex = 71 + Me.colourpallet71.Visible = False + ' + 'colourpallet72 + ' + Me.colourpallet72.BackColor = System.Drawing.Color.Black + Me.colourpallet72.Location = New System.Drawing.Point(93, 37) + Me.colourpallet72.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet72.Name = "colourpallet72" + Me.colourpallet72.Size = New System.Drawing.Size(12, 8) + Me.colourpallet72.TabIndex = 70 + Me.colourpallet72.Visible = False + ' + 'colourpallet73 + ' + Me.colourpallet73.BackColor = System.Drawing.Color.Black + Me.colourpallet73.Location = New System.Drawing.Point(106, 37) + Me.colourpallet73.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet73.Name = "colourpallet73" + Me.colourpallet73.Size = New System.Drawing.Size(12, 8) + Me.colourpallet73.TabIndex = 74 + Me.colourpallet73.Visible = False + ' + 'colourpallet74 + ' + Me.colourpallet74.BackColor = System.Drawing.Color.Black + Me.colourpallet74.Location = New System.Drawing.Point(119, 37) + Me.colourpallet74.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet74.Name = "colourpallet74" + Me.colourpallet74.Size = New System.Drawing.Size(12, 8) + Me.colourpallet74.TabIndex = 66 + Me.colourpallet74.Visible = False + ' + 'colourpallet75 + ' + Me.colourpallet75.BackColor = System.Drawing.Color.Black + Me.colourpallet75.Location = New System.Drawing.Point(132, 37) + Me.colourpallet75.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet75.Name = "colourpallet75" + Me.colourpallet75.Size = New System.Drawing.Size(12, 8) + Me.colourpallet75.TabIndex = 67 + Me.colourpallet75.Visible = False + ' + 'colourpallet76 + ' + Me.colourpallet76.BackColor = System.Drawing.Color.Black + Me.colourpallet76.Location = New System.Drawing.Point(145, 37) + Me.colourpallet76.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet76.Name = "colourpallet76" + Me.colourpallet76.Size = New System.Drawing.Size(12, 8) + Me.colourpallet76.TabIndex = 76 + Me.colourpallet76.Visible = False + ' + 'colourpallet77 + ' + Me.colourpallet77.BackColor = System.Drawing.Color.Black + Me.colourpallet77.Location = New System.Drawing.Point(158, 37) + Me.colourpallet77.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet77.Name = "colourpallet77" + Me.colourpallet77.Size = New System.Drawing.Size(12, 8) + Me.colourpallet77.TabIndex = 64 + Me.colourpallet77.Visible = False + ' + 'colourpallet78 + ' + Me.colourpallet78.BackColor = System.Drawing.Color.Black + Me.colourpallet78.Location = New System.Drawing.Point(171, 37) + Me.colourpallet78.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet78.Name = "colourpallet78" + Me.colourpallet78.Size = New System.Drawing.Size(12, 8) + Me.colourpallet78.TabIndex = 84 + Me.colourpallet78.Visible = False + ' + 'colourpallet79 + ' + Me.colourpallet79.BackColor = System.Drawing.Color.Black + Me.colourpallet79.Location = New System.Drawing.Point(184, 37) + Me.colourpallet79.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet79.Name = "colourpallet79" + Me.colourpallet79.Size = New System.Drawing.Size(12, 8) + Me.colourpallet79.TabIndex = 72 + Me.colourpallet79.Visible = False + ' + 'colourpallet80 + ' + Me.colourpallet80.BackColor = System.Drawing.Color.Black + Me.colourpallet80.Location = New System.Drawing.Point(197, 37) + Me.colourpallet80.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet80.Name = "colourpallet80" + Me.colourpallet80.Size = New System.Drawing.Size(12, 8) + Me.colourpallet80.TabIndex = 75 + Me.colourpallet80.Visible = False + ' + 'colourpallet81 + ' + Me.colourpallet81.BackColor = System.Drawing.Color.Black + Me.colourpallet81.Location = New System.Drawing.Point(2, 46) + Me.colourpallet81.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet81.Name = "colourpallet81" + Me.colourpallet81.Size = New System.Drawing.Size(12, 8) + Me.colourpallet81.TabIndex = 65 + Me.colourpallet81.Visible = False + ' + 'colourpallet82 + ' + Me.colourpallet82.BackColor = System.Drawing.Color.Black + Me.colourpallet82.Location = New System.Drawing.Point(15, 46) + Me.colourpallet82.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet82.Name = "colourpallet82" + Me.colourpallet82.Size = New System.Drawing.Size(12, 8) + Me.colourpallet82.TabIndex = 60 + Me.colourpallet82.Visible = False + ' + 'colourpallet83 + ' + Me.colourpallet83.BackColor = System.Drawing.Color.Black + Me.colourpallet83.Location = New System.Drawing.Point(28, 46) + Me.colourpallet83.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet83.Name = "colourpallet83" + Me.colourpallet83.Size = New System.Drawing.Size(12, 8) + Me.colourpallet83.TabIndex = 88 + Me.colourpallet83.Visible = False + ' + 'colourpallet84 + ' + Me.colourpallet84.BackColor = System.Drawing.Color.Black + Me.colourpallet84.Location = New System.Drawing.Point(41, 46) + Me.colourpallet84.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet84.Name = "colourpallet84" + Me.colourpallet84.Size = New System.Drawing.Size(12, 8) + Me.colourpallet84.TabIndex = 68 + Me.colourpallet84.Visible = False + ' + 'colourpallet85 + ' + Me.colourpallet85.BackColor = System.Drawing.Color.Black + Me.colourpallet85.Location = New System.Drawing.Point(54, 46) + Me.colourpallet85.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet85.Name = "colourpallet85" + Me.colourpallet85.Size = New System.Drawing.Size(12, 8) + Me.colourpallet85.TabIndex = 83 + Me.colourpallet85.Visible = False + ' + 'colourpallet86 + ' + Me.colourpallet86.BackColor = System.Drawing.Color.Black + Me.colourpallet86.Location = New System.Drawing.Point(67, 46) + Me.colourpallet86.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet86.Name = "colourpallet86" + Me.colourpallet86.Size = New System.Drawing.Size(12, 8) + Me.colourpallet86.TabIndex = 59 + Me.colourpallet86.Visible = False + ' + 'colourpallet87 + ' + Me.colourpallet87.BackColor = System.Drawing.Color.Black + Me.colourpallet87.Location = New System.Drawing.Point(80, 46) + Me.colourpallet87.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet87.Name = "colourpallet87" + Me.colourpallet87.Size = New System.Drawing.Size(12, 8) + Me.colourpallet87.TabIndex = 81 + Me.colourpallet87.Visible = False + ' + 'colourpallet88 + ' + Me.colourpallet88.BackColor = System.Drawing.Color.Black + Me.colourpallet88.Location = New System.Drawing.Point(93, 46) + Me.colourpallet88.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet88.Name = "colourpallet88" + Me.colourpallet88.Size = New System.Drawing.Size(12, 8) + Me.colourpallet88.TabIndex = 63 + Me.colourpallet88.Visible = False + ' + 'colourpallet89 + ' + Me.colourpallet89.BackColor = System.Drawing.Color.Black + Me.colourpallet89.Location = New System.Drawing.Point(106, 46) + Me.colourpallet89.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet89.Name = "colourpallet89" + Me.colourpallet89.Size = New System.Drawing.Size(12, 8) + Me.colourpallet89.TabIndex = 73 + Me.colourpallet89.Visible = False + ' + 'colourpallet90 + ' + Me.colourpallet90.BackColor = System.Drawing.Color.Black + Me.colourpallet90.Location = New System.Drawing.Point(119, 46) + Me.colourpallet90.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet90.Name = "colourpallet90" + Me.colourpallet90.Size = New System.Drawing.Size(12, 8) + Me.colourpallet90.TabIndex = 87 + Me.colourpallet90.Visible = False + ' + 'colourpallet91 + ' + Me.colourpallet91.BackColor = System.Drawing.Color.Black + Me.colourpallet91.Location = New System.Drawing.Point(132, 46) + Me.colourpallet91.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet91.Name = "colourpallet91" + Me.colourpallet91.Size = New System.Drawing.Size(12, 8) + Me.colourpallet91.TabIndex = 58 + Me.colourpallet91.Visible = False + ' + 'colourpallet92 + ' + Me.colourpallet92.BackColor = System.Drawing.Color.Black + Me.colourpallet92.Location = New System.Drawing.Point(145, 46) + Me.colourpallet92.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet92.Name = "colourpallet92" + Me.colourpallet92.Size = New System.Drawing.Size(12, 8) + Me.colourpallet92.TabIndex = 82 + Me.colourpallet92.Visible = False + ' + 'colourpallet93 + ' + Me.colourpallet93.BackColor = System.Drawing.Color.Black + Me.colourpallet93.Location = New System.Drawing.Point(158, 46) + Me.colourpallet93.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet93.Name = "colourpallet93" + Me.colourpallet93.Size = New System.Drawing.Size(12, 8) + Me.colourpallet93.TabIndex = 86 + Me.colourpallet93.Visible = False + ' + 'colourpallet94 + ' + Me.colourpallet94.BackColor = System.Drawing.Color.Black + Me.colourpallet94.Location = New System.Drawing.Point(171, 46) + Me.colourpallet94.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet94.Name = "colourpallet94" + Me.colourpallet94.Size = New System.Drawing.Size(12, 8) + Me.colourpallet94.TabIndex = 80 + Me.colourpallet94.Visible = False + ' + 'colourpallet95 + ' + Me.colourpallet95.BackColor = System.Drawing.Color.Black + Me.colourpallet95.Location = New System.Drawing.Point(184, 46) + Me.colourpallet95.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet95.Name = "colourpallet95" + Me.colourpallet95.Size = New System.Drawing.Size(12, 8) + Me.colourpallet95.TabIndex = 85 + Me.colourpallet95.Visible = False + ' + 'colourpallet96 + ' + Me.colourpallet96.BackColor = System.Drawing.Color.Black + Me.colourpallet96.Location = New System.Drawing.Point(197, 46) + Me.colourpallet96.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet96.Name = "colourpallet96" + Me.colourpallet96.Size = New System.Drawing.Size(12, 8) + Me.colourpallet96.TabIndex = 78 + Me.colourpallet96.Visible = False + ' + 'colourpallet97 + ' + Me.colourpallet97.BackColor = System.Drawing.Color.Black + Me.colourpallet97.Location = New System.Drawing.Point(2, 55) + Me.colourpallet97.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet97.Name = "colourpallet97" + Me.colourpallet97.Size = New System.Drawing.Size(12, 8) + Me.colourpallet97.TabIndex = 89 + Me.colourpallet97.Visible = False + ' + 'colourpallet98 + ' + Me.colourpallet98.BackColor = System.Drawing.Color.Black + Me.colourpallet98.Location = New System.Drawing.Point(15, 55) + Me.colourpallet98.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet98.Name = "colourpallet98" + Me.colourpallet98.Size = New System.Drawing.Size(12, 8) + Me.colourpallet98.TabIndex = 93 + Me.colourpallet98.Visible = False + ' + 'colourpallet99 + ' + Me.colourpallet99.BackColor = System.Drawing.Color.Black + Me.colourpallet99.Location = New System.Drawing.Point(28, 55) + Me.colourpallet99.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet99.Name = "colourpallet99" + Me.colourpallet99.Size = New System.Drawing.Size(12, 8) + Me.colourpallet99.TabIndex = 101 + Me.colourpallet99.Visible = False + ' + 'colourpallet100 + ' + Me.colourpallet100.BackColor = System.Drawing.Color.Black + Me.colourpallet100.Location = New System.Drawing.Point(41, 55) + Me.colourpallet100.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet100.Name = "colourpallet100" + Me.colourpallet100.Size = New System.Drawing.Size(12, 8) + Me.colourpallet100.TabIndex = 94 + Me.colourpallet100.Visible = False + ' + 'colourpallet101 + ' + Me.colourpallet101.BackColor = System.Drawing.Color.Black + Me.colourpallet101.Location = New System.Drawing.Point(54, 55) + Me.colourpallet101.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet101.Name = "colourpallet101" + Me.colourpallet101.Size = New System.Drawing.Size(12, 8) + Me.colourpallet101.TabIndex = 111 + Me.colourpallet101.Visible = False + ' + 'colourpallet102 + ' + Me.colourpallet102.BackColor = System.Drawing.Color.Black + Me.colourpallet102.Location = New System.Drawing.Point(67, 55) + Me.colourpallet102.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet102.Name = "colourpallet102" + Me.colourpallet102.Size = New System.Drawing.Size(12, 8) + Me.colourpallet102.TabIndex = 110 + Me.colourpallet102.Visible = False + ' + 'colourpallet103 + ' + Me.colourpallet103.BackColor = System.Drawing.Color.Black + Me.colourpallet103.Location = New System.Drawing.Point(80, 55) + Me.colourpallet103.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet103.Name = "colourpallet103" + Me.colourpallet103.Size = New System.Drawing.Size(12, 8) + Me.colourpallet103.TabIndex = 117 + Me.colourpallet103.Visible = False + ' + 'colourpallet104 + ' + Me.colourpallet104.BackColor = System.Drawing.Color.Black + Me.colourpallet104.Location = New System.Drawing.Point(93, 55) + Me.colourpallet104.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet104.Name = "colourpallet104" + Me.colourpallet104.Size = New System.Drawing.Size(12, 8) + Me.colourpallet104.TabIndex = 112 + Me.colourpallet104.Visible = False + ' + 'colourpallet105 + ' + Me.colourpallet105.BackColor = System.Drawing.Color.Black + Me.colourpallet105.Location = New System.Drawing.Point(106, 55) + Me.colourpallet105.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet105.Name = "colourpallet105" + Me.colourpallet105.Size = New System.Drawing.Size(12, 8) + Me.colourpallet105.TabIndex = 109 + Me.colourpallet105.Visible = False + ' + 'colourpallet106 + ' + Me.colourpallet106.BackColor = System.Drawing.Color.Black + Me.colourpallet106.Location = New System.Drawing.Point(119, 55) + Me.colourpallet106.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet106.Name = "colourpallet106" + Me.colourpallet106.Size = New System.Drawing.Size(12, 8) + Me.colourpallet106.TabIndex = 103 + Me.colourpallet106.Visible = False + ' + 'colourpallet107 + ' + Me.colourpallet107.BackColor = System.Drawing.Color.Black + Me.colourpallet107.Location = New System.Drawing.Point(132, 55) + Me.colourpallet107.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet107.Name = "colourpallet107" + Me.colourpallet107.Size = New System.Drawing.Size(12, 8) + Me.colourpallet107.TabIndex = 102 + Me.colourpallet107.Visible = False + ' + 'colourpallet108 + ' + Me.colourpallet108.BackColor = System.Drawing.Color.Black + Me.colourpallet108.Location = New System.Drawing.Point(145, 55) + Me.colourpallet108.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet108.Name = "colourpallet108" + Me.colourpallet108.Size = New System.Drawing.Size(12, 8) + Me.colourpallet108.TabIndex = 106 + Me.colourpallet108.Visible = False + ' + 'colourpallet109 + ' + Me.colourpallet109.BackColor = System.Drawing.Color.Black + Me.colourpallet109.Location = New System.Drawing.Point(158, 55) + Me.colourpallet109.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet109.Name = "colourpallet109" + Me.colourpallet109.Size = New System.Drawing.Size(12, 8) + Me.colourpallet109.TabIndex = 98 + Me.colourpallet109.Visible = False + ' + 'colourpallet110 + ' + Me.colourpallet110.BackColor = System.Drawing.Color.Black + Me.colourpallet110.Location = New System.Drawing.Point(171, 55) + Me.colourpallet110.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet110.Name = "colourpallet110" + Me.colourpallet110.Size = New System.Drawing.Size(12, 8) + Me.colourpallet110.TabIndex = 99 + Me.colourpallet110.Visible = False + ' + 'colourpallet111 + ' + Me.colourpallet111.BackColor = System.Drawing.Color.Black + Me.colourpallet111.Location = New System.Drawing.Point(184, 55) + Me.colourpallet111.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet111.Name = "colourpallet111" + Me.colourpallet111.Size = New System.Drawing.Size(12, 8) + Me.colourpallet111.TabIndex = 108 + Me.colourpallet111.Visible = False + ' + 'colourpallet112 + ' + Me.colourpallet112.BackColor = System.Drawing.Color.Black + Me.colourpallet112.Location = New System.Drawing.Point(197, 55) + Me.colourpallet112.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet112.Name = "colourpallet112" + Me.colourpallet112.Size = New System.Drawing.Size(12, 8) + Me.colourpallet112.TabIndex = 96 + Me.colourpallet112.Visible = False + ' + 'colourpallet113 + ' + Me.colourpallet113.BackColor = System.Drawing.Color.Black + Me.colourpallet113.Location = New System.Drawing.Point(2, 64) + Me.colourpallet113.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet113.Name = "colourpallet113" + Me.colourpallet113.Size = New System.Drawing.Size(12, 8) + Me.colourpallet113.TabIndex = 116 + Me.colourpallet113.Visible = False + ' + 'colourpallet114 + ' + Me.colourpallet114.BackColor = System.Drawing.Color.Black + Me.colourpallet114.Location = New System.Drawing.Point(15, 64) + Me.colourpallet114.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet114.Name = "colourpallet114" + Me.colourpallet114.Size = New System.Drawing.Size(12, 8) + Me.colourpallet114.TabIndex = 104 + Me.colourpallet114.Visible = False + ' + 'colourpallet115 + ' + Me.colourpallet115.BackColor = System.Drawing.Color.Black + Me.colourpallet115.Location = New System.Drawing.Point(28, 64) + Me.colourpallet115.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet115.Name = "colourpallet115" + Me.colourpallet115.Size = New System.Drawing.Size(12, 8) + Me.colourpallet115.TabIndex = 107 + Me.colourpallet115.Visible = False + ' + 'colourpallet116 + ' + Me.colourpallet116.BackColor = System.Drawing.Color.Black + Me.colourpallet116.Location = New System.Drawing.Point(41, 64) + Me.colourpallet116.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet116.Name = "colourpallet116" + Me.colourpallet116.Size = New System.Drawing.Size(12, 8) + Me.colourpallet116.TabIndex = 97 + Me.colourpallet116.Visible = False + ' + 'colourpallet117 + ' + Me.colourpallet117.BackColor = System.Drawing.Color.Black + Me.colourpallet117.Location = New System.Drawing.Point(54, 64) + Me.colourpallet117.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet117.Name = "colourpallet117" + Me.colourpallet117.Size = New System.Drawing.Size(12, 8) + Me.colourpallet117.TabIndex = 92 + Me.colourpallet117.Visible = False + ' + 'colourpallet118 + ' + Me.colourpallet118.BackColor = System.Drawing.Color.Black + Me.colourpallet118.Location = New System.Drawing.Point(67, 64) + Me.colourpallet118.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet118.Name = "colourpallet118" + Me.colourpallet118.Size = New System.Drawing.Size(12, 8) + Me.colourpallet118.TabIndex = 120 + Me.colourpallet118.Visible = False + ' + 'colourpallet119 + ' + Me.colourpallet119.BackColor = System.Drawing.Color.Black + Me.colourpallet119.Location = New System.Drawing.Point(80, 64) + Me.colourpallet119.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet119.Name = "colourpallet119" + Me.colourpallet119.Size = New System.Drawing.Size(12, 8) + Me.colourpallet119.TabIndex = 100 + Me.colourpallet119.Visible = False + ' + 'colourpallet120 + ' + Me.colourpallet120.BackColor = System.Drawing.Color.Black + Me.colourpallet120.Location = New System.Drawing.Point(93, 64) + Me.colourpallet120.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet120.Name = "colourpallet120" + Me.colourpallet120.Size = New System.Drawing.Size(12, 8) + Me.colourpallet120.TabIndex = 115 + Me.colourpallet120.Visible = False + ' + 'colourpallet121 + ' + Me.colourpallet121.BackColor = System.Drawing.Color.Black + Me.colourpallet121.Location = New System.Drawing.Point(106, 64) + Me.colourpallet121.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet121.Name = "colourpallet121" + Me.colourpallet121.Size = New System.Drawing.Size(12, 8) + Me.colourpallet121.TabIndex = 91 + Me.colourpallet121.Visible = False + ' + 'colourpallet122 + ' + Me.colourpallet122.BackColor = System.Drawing.Color.Black + Me.colourpallet122.Location = New System.Drawing.Point(119, 64) + Me.colourpallet122.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet122.Name = "colourpallet122" + Me.colourpallet122.Size = New System.Drawing.Size(12, 8) + Me.colourpallet122.TabIndex = 113 + Me.colourpallet122.Visible = False + ' + 'colourpallet123 + ' + Me.colourpallet123.BackColor = System.Drawing.Color.Black + Me.colourpallet123.Location = New System.Drawing.Point(132, 64) + Me.colourpallet123.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet123.Name = "colourpallet123" + Me.colourpallet123.Size = New System.Drawing.Size(12, 8) + Me.colourpallet123.TabIndex = 95 + Me.colourpallet123.Visible = False + ' + 'colourpallet124 + ' + Me.colourpallet124.BackColor = System.Drawing.Color.Black + Me.colourpallet124.Location = New System.Drawing.Point(145, 64) + Me.colourpallet124.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet124.Name = "colourpallet124" + Me.colourpallet124.Size = New System.Drawing.Size(12, 8) + Me.colourpallet124.TabIndex = 105 + Me.colourpallet124.Visible = False + ' + 'colourpallet125 + ' + Me.colourpallet125.BackColor = System.Drawing.Color.Black + Me.colourpallet125.Location = New System.Drawing.Point(158, 64) + Me.colourpallet125.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet125.Name = "colourpallet125" + Me.colourpallet125.Size = New System.Drawing.Size(12, 8) + Me.colourpallet125.TabIndex = 119 + Me.colourpallet125.Visible = False + ' + 'colourpallet126 + ' + Me.colourpallet126.BackColor = System.Drawing.Color.Black + Me.colourpallet126.Location = New System.Drawing.Point(171, 64) + Me.colourpallet126.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet126.Name = "colourpallet126" + Me.colourpallet126.Size = New System.Drawing.Size(12, 8) + Me.colourpallet126.TabIndex = 90 + Me.colourpallet126.Visible = False + ' + 'colourpallet127 + ' + Me.colourpallet127.BackColor = System.Drawing.Color.Black + Me.colourpallet127.Location = New System.Drawing.Point(184, 64) + Me.colourpallet127.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet127.Name = "colourpallet127" + Me.colourpallet127.Size = New System.Drawing.Size(12, 8) + Me.colourpallet127.TabIndex = 114 + Me.colourpallet127.Visible = False + ' + 'colourpallet128 + ' + Me.colourpallet128.BackColor = System.Drawing.Color.Black + Me.colourpallet128.Location = New System.Drawing.Point(197, 64) + Me.colourpallet128.Margin = New System.Windows.Forms.Padding(1, 0, 0, 1) + Me.colourpallet128.Name = "colourpallet128" + Me.colourpallet128.Size = New System.Drawing.Size(12, 8) + Me.colourpallet128.TabIndex = 118 + Me.colourpallet128.Visible = False + ' + 'Label4 + ' + Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(11, 2) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(200, 23) + Me.Label4.TabIndex = 11 + Me.Label4.Text = "Colours" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'line6 + ' + Me.line6.BackColor = System.Drawing.Color.Black + Me.line6.Dock = System.Windows.Forms.DockStyle.Top + Me.line6.Location = New System.Drawing.Point(0, 0) + Me.line6.Name = "line6" + Me.line6.Size = New System.Drawing.Size(221, 1) + Me.line6.TabIndex = 4 + ' + 'pnltoolproperties + ' + Me.pnltoolproperties.Controls.Add(Me.pnltexttoolsettings) + Me.pnltoolproperties.Controls.Add(Me.pnlpixelsettersettings) + Me.pnltoolproperties.Controls.Add(Me.pnlpaintbrushtoolsettings) + Me.pnltoolproperties.Controls.Add(Me.pnllinetoolsettings) + Me.pnltoolproperties.Controls.Add(Me.pnlmagnifiersettings) + Me.pnltoolproperties.Controls.Add(Me.pnleracertoolsettings) + Me.pnltoolproperties.Controls.Add(Me.pnlfloodfillsettings) + Me.pnltoolproperties.Controls.Add(Me.pnlovaltoolsettings) + Me.pnltoolproperties.Controls.Add(Me.pnlsquaretoolsettings) + Me.pnltoolproperties.Controls.Add(Me.pnlpixelplacersettings) + Me.pnltoolproperties.Controls.Add(Me.pnlpencilsettings) + Me.pnltoolproperties.Controls.Add(Me.Label6) + Me.pnltoolproperties.Controls.Add(Me.Label5) + Me.pnltoolproperties.Controls.Add(Me.line5) + Me.pnltoolproperties.Controls.Add(Me.line3) + Me.pnltoolproperties.Location = New System.Drawing.Point(0, 0) + Me.pnltoolproperties.Name = "pnltoolproperties" + Me.pnltoolproperties.Size = New System.Drawing.Size(457, 100) + Me.pnltoolproperties.TabIndex = 1 + ' + 'pnltexttoolsettings + ' + Me.pnltexttoolsettings.Controls.Add(Me.Label35) + Me.pnltexttoolsettings.Controls.Add(Me.combofontstyle) + Me.pnltexttoolsettings.Controls.Add(Me.txtdrawstringtext) + Me.pnltexttoolsettings.Controls.Add(Me.combodrawtextfont) + Me.pnltexttoolsettings.Controls.Add(Me.Label25) + Me.pnltexttoolsettings.Controls.Add(Me.txtdrawtextsize) + Me.pnltexttoolsettings.Controls.Add(Me.Label32) + Me.pnltexttoolsettings.Controls.Add(Me.Label33) + Me.pnltexttoolsettings.Controls.Add(Me.Label34) + Me.pnltexttoolsettings.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnltexttoolsettings.Location = New System.Drawing.Point(0, 1) + Me.pnltexttoolsettings.Name = "pnltexttoolsettings" + Me.pnltexttoolsettings.Size = New System.Drawing.Size(456, 99) + Me.pnltexttoolsettings.TabIndex = 17 + Me.pnltexttoolsettings.Visible = False + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label35.Location = New System.Drawing.Point(117, 33) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(55, 24) + Me.Label35.TabIndex = 19 + Me.Label35.Text = "Style:" + ' + 'combofontstyle + ' + Me.combofontstyle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.combofontstyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combofontstyle.FormattingEnabled = True + Me.combofontstyle.Items.AddRange(New Object() {"Bold", "Italic", "Regular", "Strikeout", "Underline"}) + Me.combofontstyle.Location = New System.Drawing.Point(178, 34) + Me.combofontstyle.Name = "combofontstyle" + Me.combofontstyle.Size = New System.Drawing.Size(78, 24) + Me.combofontstyle.TabIndex = 18 + ' + 'txtdrawstringtext + ' + Me.txtdrawstringtext.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtdrawstringtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtdrawstringtext.Location = New System.Drawing.Point(265, 52) + Me.txtdrawstringtext.Multiline = True + Me.txtdrawstringtext.Name = "txtdrawstringtext" + Me.txtdrawstringtext.Size = New System.Drawing.Size(185, 41) + Me.txtdrawstringtext.TabIndex = 17 + Me.txtdrawstringtext.Text = "Enter Words Here" + ' + 'combodrawtextfont + ' + Me.combodrawtextfont.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.combodrawtextfont.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combodrawtextfont.FormattingEnabled = True + Me.combodrawtextfont.Location = New System.Drawing.Point(64, 68) + Me.combodrawtextfont.Name = "combodrawtextfont" + Me.combodrawtextfont.Size = New System.Drawing.Size(192, 24) + Me.combodrawtextfont.TabIndex = 16 + ' + 'Label25 + ' + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.Location = New System.Drawing.Point(262, 26) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(189, 23) + Me.Label25.TabIndex = 15 + Me.Label25.Text = "Click and drag on the canvas!" + Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'txtdrawtextsize + ' + Me.txtdrawtextsize.BackColor = System.Drawing.Color.White + Me.txtdrawtextsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtdrawtextsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtdrawtextsize.ForeColor = System.Drawing.Color.Black + Me.txtdrawtextsize.Location = New System.Drawing.Point(61, 33) + Me.txtdrawtextsize.Name = "txtdrawtextsize" + Me.txtdrawtextsize.Size = New System.Drawing.Size(43, 26) + Me.txtdrawtextsize.TabIndex = 12 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label32.Location = New System.Drawing.Point(4, 66) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(53, 24) + Me.Label32.TabIndex = 11 + Me.Label32.Text = "Font:" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(4, 33) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(51, 24) + Me.Label33.TabIndex = 10 + Me.Label33.Text = "Size:" + ' + 'Label34 + ' + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.Location = New System.Drawing.Point(6, 3) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(444, 23) + Me.Label34.TabIndex = 0 + Me.Label34.Text = "Text Tool Settings" + Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlpixelsettersettings + ' + Me.pnlpixelsettersettings.Controls.Add(Me.btnpixelsettersetpixel) + Me.pnlpixelsettersettings.Controls.Add(Me.txtpixelsetterycoordinate) + Me.pnlpixelsettersettings.Controls.Add(Me.txtpixelsetterxcoordinate) + Me.pnlpixelsettersettings.Controls.Add(Me.Label3) + Me.pnlpixelsettersettings.Controls.Add(Me.Label2) + Me.pnlpixelsettersettings.Controls.Add(Me.Label1) + Me.pnlpixelsettersettings.Location = New System.Drawing.Point(342, 35) + Me.pnlpixelsettersettings.Name = "pnlpixelsettersettings" + Me.pnlpixelsettersettings.Size = New System.Drawing.Size(37, 23) + Me.pnlpixelsettersettings.TabIndex = 5 + Me.pnlpixelsettersettings.Visible = False + ' + 'btnpixelsettersetpixel + ' + Me.btnpixelsettersetpixel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpixelsettersetpixel.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpixelsettersetpixel.Location = New System.Drawing.Point(215, 34) + Me.btnpixelsettersetpixel.Name = "btnpixelsettersetpixel" + Me.btnpixelsettersetpixel.Size = New System.Drawing.Size(228, 56) + Me.btnpixelsettersetpixel.TabIndex = 10 + Me.btnpixelsettersetpixel.Text = "Set Pixel" + Me.btnpixelsettersetpixel.UseVisualStyleBackColor = True + ' + 'txtpixelsetterycoordinate + ' + Me.txtpixelsetterycoordinate.BackColor = System.Drawing.Color.White + Me.txtpixelsetterycoordinate.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpixelsetterycoordinate.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpixelsetterycoordinate.ForeColor = System.Drawing.Color.Black + Me.txtpixelsetterycoordinate.Location = New System.Drawing.Point(136, 64) + Me.txtpixelsetterycoordinate.Name = "txtpixelsetterycoordinate" + Me.txtpixelsetterycoordinate.Size = New System.Drawing.Size(73, 26) + Me.txtpixelsetterycoordinate.TabIndex = 9 + ' + 'txtpixelsetterxcoordinate + ' + Me.txtpixelsetterxcoordinate.BackColor = System.Drawing.Color.White + Me.txtpixelsetterxcoordinate.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpixelsetterxcoordinate.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpixelsetterxcoordinate.ForeColor = System.Drawing.Color.Black + Me.txtpixelsetterxcoordinate.Location = New System.Drawing.Point(136, 34) + Me.txtpixelsetterxcoordinate.Name = "txtpixelsetterxcoordinate" + Me.txtpixelsetterxcoordinate.Size = New System.Drawing.Size(73, 26) + Me.txtpixelsetterxcoordinate.TabIndex = 8 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(8, 63) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(124, 24) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Y Coordinate:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(7, 34) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(126, 24) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "X Coordinate:" + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(6, 3) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(444, 23) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Pixel Setter Settings" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlpaintbrushtoolsettings + ' + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.Label36) + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.btnpaintsquareshape) + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.btnpaintcircleshape) + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.Label37) + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.txtpaintbrushsize) + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.Label38) + Me.pnlpaintbrushtoolsettings.Controls.Add(Me.Label39) + Me.pnlpaintbrushtoolsettings.Location = New System.Drawing.Point(261, 13) + Me.pnlpaintbrushtoolsettings.Name = "pnlpaintbrushtoolsettings" + Me.pnlpaintbrushtoolsettings.Size = New System.Drawing.Size(51, 27) + Me.pnlpaintbrushtoolsettings.TabIndex = 21 + Me.pnlpaintbrushtoolsettings.Visible = False + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label36.Location = New System.Drawing.Point(32, 69) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(65, 24) + Me.Label36.TabIndex = 19 + Me.Label36.Text = "Shape" + ' + 'btnpaintsquareshape + ' + Me.btnpaintsquareshape.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadsquarerubber + Me.btnpaintsquareshape.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnpaintsquareshape.FlatAppearance.BorderSize = 0 + Me.btnpaintsquareshape.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpaintsquareshape.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpaintsquareshape.Location = New System.Drawing.Point(69, 27) + Me.btnpaintsquareshape.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnpaintsquareshape.Name = "btnpaintsquareshape" + Me.btnpaintsquareshape.Size = New System.Drawing.Size(48, 40) + Me.btnpaintsquareshape.TabIndex = 17 + Me.btnpaintsquareshape.Text = " " + Me.btnpaintsquareshape.UseVisualStyleBackColor = True + ' + 'btnpaintcircleshape + ' + Me.btnpaintcircleshape.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadcirclerubberselected + Me.btnpaintcircleshape.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnpaintcircleshape.FlatAppearance.BorderSize = 0 + Me.btnpaintcircleshape.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpaintcircleshape.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpaintcircleshape.Location = New System.Drawing.Point(16, 27) + Me.btnpaintcircleshape.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnpaintcircleshape.Name = "btnpaintcircleshape" + Me.btnpaintcircleshape.Size = New System.Drawing.Size(48, 40) + Me.btnpaintcircleshape.TabIndex = 16 + Me.btnpaintcircleshape.Text = " " + Me.btnpaintcircleshape.UseVisualStyleBackColor = True + ' + 'Label37 + ' + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.Location = New System.Drawing.Point(137, 29) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(314, 38) + Me.Label37.TabIndex = 15 + Me.Label37.Text = "Choose a shape and size for your paint brush then paint on the canvas by drawing " & _ + "with the mouse." + ' + 'txtpaintbrushsize + ' + Me.txtpaintbrushsize.BackColor = System.Drawing.Color.White + Me.txtpaintbrushsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpaintbrushsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpaintbrushsize.ForeColor = System.Drawing.Color.Black + Me.txtpaintbrushsize.Location = New System.Drawing.Point(194, 68) + Me.txtpaintbrushsize.Name = "txtpaintbrushsize" + Me.txtpaintbrushsize.Size = New System.Drawing.Size(73, 26) + Me.txtpaintbrushsize.TabIndex = 12 + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label38.Location = New System.Drawing.Point(137, 69) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(51, 24) + Me.Label38.TabIndex = 10 + Me.Label38.Text = "Size:" + ' + 'Label39 + ' + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.Location = New System.Drawing.Point(6, 3) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(444, 23) + Me.Label39.TabIndex = 0 + Me.Label39.Text = "Paint Brush Tool Settings" + Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnllinetoolsettings + ' + Me.pnllinetoolsettings.Controls.Add(Me.Label29) + Me.pnllinetoolsettings.Controls.Add(Me.txtlinewidth) + Me.pnllinetoolsettings.Controls.Add(Me.Label30) + Me.pnllinetoolsettings.Controls.Add(Me.Label31) + Me.pnllinetoolsettings.Location = New System.Drawing.Point(168, 32) + Me.pnllinetoolsettings.Name = "pnllinetoolsettings" + Me.pnllinetoolsettings.Size = New System.Drawing.Size(60, 28) + Me.pnllinetoolsettings.TabIndex = 20 + Me.pnllinetoolsettings.Visible = False + ' + 'Label29 + ' + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.Location = New System.Drawing.Point(196, 29) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(257, 38) + Me.Label29.TabIndex = 15 + Me.Label29.Text = "Enter a line width then use the mouse to draw a straight line on the canvas." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + ' + 'txtlinewidth + ' + Me.txtlinewidth.BackColor = System.Drawing.Color.White + Me.txtlinewidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtlinewidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlinewidth.ForeColor = System.Drawing.Color.Black + Me.txtlinewidth.Location = New System.Drawing.Point(114, 33) + Me.txtlinewidth.Name = "txtlinewidth" + Me.txtlinewidth.Size = New System.Drawing.Size(73, 26) + Me.txtlinewidth.TabIndex = 12 + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.Location = New System.Drawing.Point(8, 34) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(104, 24) + Me.Label30.TabIndex = 10 + Me.Label30.Text = "Line Width:" + ' + 'Label31 + ' + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.Location = New System.Drawing.Point(6, 3) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(444, 23) + Me.Label31.TabIndex = 0 + Me.Label31.Text = "Line Tool Settings" + Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlmagnifiersettings + ' + Me.pnlmagnifiersettings.Controls.Add(Me.btnzoomout) + Me.pnlmagnifiersettings.Controls.Add(Me.btnzoomin) + Me.pnlmagnifiersettings.Controls.Add(Me.lblzoomlevel) + Me.pnlmagnifiersettings.Controls.Add(Me.Label7) + Me.pnlmagnifiersettings.Location = New System.Drawing.Point(78, 50) + Me.pnlmagnifiersettings.Name = "pnlmagnifiersettings" + Me.pnlmagnifiersettings.Size = New System.Drawing.Size(67, 44) + Me.pnlmagnifiersettings.TabIndex = 6 + Me.pnlmagnifiersettings.Visible = False + ' + 'btnzoomout + ' + Me.btnzoomout.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnzoomout.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnzoomout.Location = New System.Drawing.Point(16, 33) + Me.btnzoomout.Name = "btnzoomout" + Me.btnzoomout.Size = New System.Drawing.Size(129, 56) + Me.btnzoomout.TabIndex = 11 + Me.btnzoomout.Text = "-" + Me.btnzoomout.UseVisualStyleBackColor = True + ' + 'btnzoomin + ' + Me.btnzoomin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnzoomin.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnzoomin.Location = New System.Drawing.Point(313, 33) + Me.btnzoomin.Name = "btnzoomin" + Me.btnzoomin.Size = New System.Drawing.Size(129, 56) + Me.btnzoomin.TabIndex = 10 + Me.btnzoomin.Text = "+" + Me.btnzoomin.UseVisualStyleBackColor = True + ' + 'lblzoomlevel + ' + Me.lblzoomlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblzoomlevel.Location = New System.Drawing.Point(151, 33) + Me.lblzoomlevel.Name = "lblzoomlevel" + Me.lblzoomlevel.Size = New System.Drawing.Size(156, 56) + Me.lblzoomlevel.TabIndex = 1 + Me.lblzoomlevel.Text = "1X" + Me.lblzoomlevel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label7 + ' + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(6, 3) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(444, 23) + Me.Label7.TabIndex = 0 + Me.Label7.Text = "Magnifier Settings" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnleracertoolsettings + ' + Me.pnleracertoolsettings.Controls.Add(Me.Label28) + Me.pnleracertoolsettings.Controls.Add(Me.btneracersquare) + Me.pnleracertoolsettings.Controls.Add(Me.btneracercircle) + Me.pnleracertoolsettings.Controls.Add(Me.Label24) + Me.pnleracertoolsettings.Controls.Add(Me.txteracersize) + Me.pnleracertoolsettings.Controls.Add(Me.Label26) + Me.pnleracertoolsettings.Controls.Add(Me.Label27) + Me.pnleracertoolsettings.Location = New System.Drawing.Point(308, 69) + Me.pnleracertoolsettings.Name = "pnleracertoolsettings" + Me.pnleracertoolsettings.Size = New System.Drawing.Size(50, 21) + Me.pnleracertoolsettings.TabIndex = 16 + Me.pnleracertoolsettings.Visible = False + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(40, 71) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(65, 24) + Me.Label28.TabIndex = 19 + Me.Label28.Text = "Shape" + ' + 'btneracersquare + ' + Me.btneracersquare.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadsquarerubberselected + Me.btneracersquare.FlatAppearance.BorderSize = 0 + Me.btneracersquare.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btneracersquare.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btneracersquare.Location = New System.Drawing.Point(75, 21) + Me.btneracersquare.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btneracersquare.Name = "btneracersquare" + Me.btneracersquare.Size = New System.Drawing.Size(60, 50) + Me.btneracersquare.TabIndex = 17 + Me.btneracersquare.Text = " " + Me.btneracersquare.UseVisualStyleBackColor = True + ' + 'btneracercircle + ' + Me.btneracercircle.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadcirclerubber + Me.btneracercircle.FlatAppearance.BorderSize = 0 + Me.btneracercircle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btneracercircle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btneracercircle.Location = New System.Drawing.Point(9, 21) + Me.btneracercircle.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btneracercircle.Name = "btneracercircle" + Me.btneracercircle.Size = New System.Drawing.Size(60, 50) + Me.btneracercircle.TabIndex = 16 + Me.btneracercircle.Text = " " + Me.btneracercircle.UseVisualStyleBackColor = True + ' + 'Label24 + ' + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.Location = New System.Drawing.Point(141, 29) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(314, 38) + Me.Label24.TabIndex = 15 + Me.Label24.Text = "Choose a shape and size for your eracer then rub out unwanted parts of your drawi" & _ + "ng with the mouse." + ' + 'txteracersize + ' + Me.txteracersize.BackColor = System.Drawing.Color.White + Me.txteracersize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txteracersize.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txteracersize.ForeColor = System.Drawing.Color.Black + Me.txteracersize.Location = New System.Drawing.Point(198, 70) + Me.txteracersize.Name = "txteracersize" + Me.txteracersize.Size = New System.Drawing.Size(73, 26) + Me.txteracersize.TabIndex = 12 + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(141, 71) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(51, 24) + Me.Label26.TabIndex = 10 + Me.Label26.Text = "Size:" + ' + 'Label27 + ' + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(6, 3) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(444, 23) + Me.Label27.TabIndex = 0 + Me.Label27.Text = "Eracer Tool Settings" + Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlfloodfillsettings + ' + Me.pnlfloodfillsettings.Controls.Add(Me.Label12) + Me.pnlfloodfillsettings.Controls.Add(Me.Label15) + Me.pnlfloodfillsettings.Location = New System.Drawing.Point(162, 65) + Me.pnlfloodfillsettings.Name = "pnlfloodfillsettings" + Me.pnlfloodfillsettings.Size = New System.Drawing.Size(71, 31) + Me.pnlfloodfillsettings.TabIndex = 13 + Me.pnlfloodfillsettings.Visible = False + ' + 'Label12 + ' + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(3, 28) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(450, 51) + Me.Label12.TabIndex = 11 + Me.Label12.Text = resources.GetString("Label12.Text") + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label15 + ' + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(6, 3) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(444, 23) + Me.Label15.TabIndex = 0 + Me.Label15.Text = "Flood Fill Settings" + Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlovaltoolsettings + ' + Me.pnlovaltoolsettings.Controls.Add(Me.Label20) + Me.pnlovaltoolsettings.Controls.Add(Me.btnovalfillonoff) + Me.pnlovaltoolsettings.Controls.Add(Me.pnlovalfillcolour) + Me.pnlovaltoolsettings.Controls.Add(Me.txtovalborderwidth) + Me.pnlovaltoolsettings.Controls.Add(Me.Label21) + Me.pnlovaltoolsettings.Controls.Add(Me.Label22) + Me.pnlovaltoolsettings.Controls.Add(Me.Label23) + Me.pnlovaltoolsettings.Location = New System.Drawing.Point(152, 5) + Me.pnlovaltoolsettings.Name = "pnlovaltoolsettings" + Me.pnlovaltoolsettings.Size = New System.Drawing.Size(80, 22) + Me.pnlovaltoolsettings.TabIndex = 15 + Me.pnlovaltoolsettings.Visible = False + ' + 'Label20 + ' + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(211, 29) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(244, 65) + Me.Label20.TabIndex = 15 + Me.Label20.Text = "Set a border width and turn fill on or off then draw the square on the canvas wit" & _ + "h the mouse. Click the fill colour box to set it to your currently selected colo" & _ + "ur." + ' + 'btnovalfillonoff + ' + Me.btnovalfillonoff.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnovalfillonoff.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnovalfillonoff.Location = New System.Drawing.Point(150, 64) + Me.btnovalfillonoff.Name = "btnovalfillonoff" + Me.btnovalfillonoff.Size = New System.Drawing.Size(56, 28) + Me.btnovalfillonoff.TabIndex = 14 + Me.btnovalfillonoff.Text = "Fill OFF" + Me.btnovalfillonoff.UseVisualStyleBackColor = True + ' + 'pnlovalfillcolour + ' + Me.pnlovalfillcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlovalfillcolour.Location = New System.Drawing.Point(109, 64) + Me.pnlovalfillcolour.Name = "pnlovalfillcolour" + Me.pnlovalfillcolour.Size = New System.Drawing.Size(34, 28) + Me.pnlovalfillcolour.TabIndex = 13 + ' + 'txtovalborderwidth + ' + Me.txtovalborderwidth.BackColor = System.Drawing.Color.White + Me.txtovalborderwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtovalborderwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtovalborderwidth.ForeColor = System.Drawing.Color.Black + Me.txtovalborderwidth.Location = New System.Drawing.Point(133, 33) + Me.txtovalborderwidth.Name = "txtovalborderwidth" + Me.txtovalborderwidth.Size = New System.Drawing.Size(73, 26) + Me.txtovalborderwidth.TabIndex = 12 + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(4, 66) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(100, 24) + Me.Label21.TabIndex = 11 + Me.Label21.Text = "Fill Colour:" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(4, 33) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(125, 24) + Me.Label22.TabIndex = 10 + Me.Label22.Text = "Border Width:" + ' + 'Label23 + ' + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(6, 3) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(444, 23) + Me.Label23.TabIndex = 0 + Me.Label23.Text = "Oval Tool Settings" + Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlsquaretoolsettings + ' + Me.pnlsquaretoolsettings.Controls.Add(Me.Label19) + Me.pnlsquaretoolsettings.Controls.Add(Me.btnsquarefillonoff) + Me.pnlsquaretoolsettings.Controls.Add(Me.pnlsquarefillcolour) + Me.pnlsquaretoolsettings.Controls.Add(Me.txtsquareborderwidth) + Me.pnlsquaretoolsettings.Controls.Add(Me.Label16) + Me.pnlsquaretoolsettings.Controls.Add(Me.Label18) + Me.pnlsquaretoolsettings.Controls.Add(Me.Label17) + Me.pnlsquaretoolsettings.Location = New System.Drawing.Point(16, 39) + Me.pnlsquaretoolsettings.Name = "pnlsquaretoolsettings" + Me.pnlsquaretoolsettings.Size = New System.Drawing.Size(42, 31) + Me.pnlsquaretoolsettings.TabIndex = 14 + Me.pnlsquaretoolsettings.Visible = False + ' + 'Label19 + ' + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(211, 29) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(244, 65) + Me.Label19.TabIndex = 15 + Me.Label19.Text = "Set a border width and turn fill on or off then draw the square on the canvas wit" & _ + "h the mouse. Click the fill colour box to set it to your currently selected colo" & _ + "ur." + ' + 'btnsquarefillonoff + ' + Me.btnsquarefillonoff.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnsquarefillonoff.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsquarefillonoff.Location = New System.Drawing.Point(150, 64) + Me.btnsquarefillonoff.Name = "btnsquarefillonoff" + Me.btnsquarefillonoff.Size = New System.Drawing.Size(56, 28) + Me.btnsquarefillonoff.TabIndex = 14 + Me.btnsquarefillonoff.Text = "Fill OFF" + Me.btnsquarefillonoff.UseVisualStyleBackColor = True + ' + 'pnlsquarefillcolour + ' + Me.pnlsquarefillcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlsquarefillcolour.Location = New System.Drawing.Point(109, 64) + Me.pnlsquarefillcolour.Name = "pnlsquarefillcolour" + Me.pnlsquarefillcolour.Size = New System.Drawing.Size(34, 28) + Me.pnlsquarefillcolour.TabIndex = 13 + ' + 'txtsquareborderwidth + ' + Me.txtsquareborderwidth.BackColor = System.Drawing.Color.White + Me.txtsquareborderwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtsquareborderwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtsquareborderwidth.ForeColor = System.Drawing.Color.Black + Me.txtsquareborderwidth.Location = New System.Drawing.Point(133, 33) + Me.txtsquareborderwidth.Name = "txtsquareborderwidth" + Me.txtsquareborderwidth.Size = New System.Drawing.Size(73, 26) + Me.txtsquareborderwidth.TabIndex = 12 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(4, 66) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(100, 24) + Me.Label16.TabIndex = 11 + Me.Label16.Text = "Fill Colour:" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(4, 33) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(125, 24) + Me.Label18.TabIndex = 10 + Me.Label18.Text = "Border Width:" + ' + 'Label17 + ' + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(6, 3) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(444, 23) + Me.Label17.TabIndex = 0 + Me.Label17.Text = "Rectangle Tool Settings" + Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlpixelplacersettings + ' + Me.pnlpixelplacersettings.Controls.Add(Me.lblpixelplacerhelp) + Me.pnlpixelplacersettings.Controls.Add(Me.btnpixelplacermovementmode) + Me.pnlpixelplacersettings.Controls.Add(Me.Label8) + Me.pnlpixelplacersettings.Location = New System.Drawing.Point(44, 4) + Me.pnlpixelplacersettings.Name = "pnlpixelplacersettings" + Me.pnlpixelplacersettings.Size = New System.Drawing.Size(37, 37) + Me.pnlpixelplacersettings.TabIndex = 7 + Me.pnlpixelplacersettings.Visible = False + ' + 'lblpixelplacerhelp + ' + Me.lblpixelplacerhelp.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblpixelplacerhelp.Location = New System.Drawing.Point(3, 26) + Me.lblpixelplacerhelp.Name = "lblpixelplacerhelp" + Me.lblpixelplacerhelp.Size = New System.Drawing.Size(307, 67) + Me.lblpixelplacerhelp.TabIndex = 11 + Me.lblpixelplacerhelp.Text = "This tool does not contain any alterable settings. Simply click on the canvas and" & _ + " a pixel will be placed in the spot you click." + Me.lblpixelplacerhelp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnpixelplacermovementmode + ' + Me.btnpixelplacermovementmode.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpixelplacermovementmode.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpixelplacermovementmode.Location = New System.Drawing.Point(312, 26) + Me.btnpixelplacermovementmode.Name = "btnpixelplacermovementmode" + Me.btnpixelplacermovementmode.Size = New System.Drawing.Size(138, 67) + Me.btnpixelplacermovementmode.TabIndex = 10 + Me.btnpixelplacermovementmode.Text = "Activate Movement Mode" + Me.btnpixelplacermovementmode.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(6, 3) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(444, 23) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "Pixel Placer Settings" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlpencilsettings + ' + Me.pnlpencilsettings.Controls.Add(Me.btnpencilsize3) + Me.pnlpencilsettings.Controls.Add(Me.btnpencilsize2) + Me.pnlpencilsettings.Controls.Add(Me.btnpencilsize1) + Me.pnlpencilsettings.Controls.Add(Me.Label14) + Me.pnlpencilsettings.Location = New System.Drawing.Point(422, 13) + Me.pnlpencilsettings.Name = "pnlpencilsettings" + Me.pnlpencilsettings.Size = New System.Drawing.Size(28, 22) + Me.pnlpencilsettings.TabIndex = 12 + Me.pnlpencilsettings.Visible = False + ' + 'btnpencilsize3 + ' + Me.btnpencilsize3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpencilsize3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpencilsize3.Location = New System.Drawing.Point(298, 30) + Me.btnpencilsize3.Name = "btnpencilsize3" + Me.btnpencilsize3.Size = New System.Drawing.Size(127, 54) + Me.btnpencilsize3.TabIndex = 12 + Me.btnpencilsize3.Text = "Thickest" + Me.btnpencilsize3.UseVisualStyleBackColor = True + ' + 'btnpencilsize2 + ' + Me.btnpencilsize2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpencilsize2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpencilsize2.Location = New System.Drawing.Point(165, 30) + Me.btnpencilsize2.Name = "btnpencilsize2" + Me.btnpencilsize2.Size = New System.Drawing.Size(127, 54) + Me.btnpencilsize2.TabIndex = 11 + Me.btnpencilsize2.Text = "Thicker" + Me.btnpencilsize2.UseVisualStyleBackColor = True + ' + 'btnpencilsize1 + ' + Me.btnpencilsize1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpencilsize1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpencilsize1.Location = New System.Drawing.Point(30, 30) + Me.btnpencilsize1.Name = "btnpencilsize1" + Me.btnpencilsize1.Size = New System.Drawing.Size(127, 54) + Me.btnpencilsize1.TabIndex = 10 + Me.btnpencilsize1.Text = "Thin" + Me.btnpencilsize1.UseVisualStyleBackColor = True + ' + 'Label14 + ' + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(6, 3) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(444, 23) + Me.Label14.TabIndex = 0 + Me.Label14.Text = "Pencil Settings" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label6 + ' + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(13, 40) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(437, 49) + Me.Label6.TabIndex = 9 + Me.Label6.Text = resources.GetString("Label6.Text") + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(110, 13) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(269, 24) + Me.Label5.TabIndex = 8 + Me.Label5.Text = "No Tool Currently Selected!" + ' + 'line5 + ' + Me.line5.BackColor = System.Drawing.Color.Black + Me.line5.Dock = System.Windows.Forms.DockStyle.Top + Me.line5.Location = New System.Drawing.Point(0, 0) + Me.line5.Name = "line5" + Me.line5.Size = New System.Drawing.Size(456, 1) + Me.line5.TabIndex = 4 + ' + 'line3 + ' + Me.line3.BackColor = System.Drawing.Color.Black + Me.line3.Dock = System.Windows.Forms.DockStyle.Right + Me.line3.Location = New System.Drawing.Point(456, 0) + Me.line3.Name = "line3" + Me.line3.Size = New System.Drawing.Size(1, 100) + Me.line3.TabIndex = 2 + ' + 'pnltools + ' + Me.pnltools.BackColor = System.Drawing.Color.White + Me.pnltools.Controls.Add(Me.pnltoolpositioner) + Me.pnltools.Controls.Add(Me.line1) + Me.pnltools.Controls.Add(Me.pnltoolpreview) + Me.pnltools.Dock = System.Windows.Forms.DockStyle.Left + Me.pnltools.Location = New System.Drawing.Point(0, 0) + Me.pnltools.Name = "pnltools" + Me.pnltools.Size = New System.Drawing.Size(120, 566) + Me.pnltools.TabIndex = 0 + ' + 'pnltoolpositioner + ' + Me.pnltoolpositioner.Controls.Add(Me.btnpixelsetter) + Me.pnltoolpositioner.Controls.Add(Me.btnpixelplacer) + Me.pnltoolpositioner.Controls.Add(Me.btnpencil) + Me.pnltoolpositioner.Controls.Add(Me.btnfloodfill) + Me.pnltoolpositioner.Controls.Add(Me.btnoval) + Me.pnltoolpositioner.Controls.Add(Me.btnsquare) + Me.pnltoolpositioner.Controls.Add(Me.btnlinetool) + Me.pnltoolpositioner.Controls.Add(Me.btnpaintbrush) + Me.pnltoolpositioner.Controls.Add(Me.btntexttool) + Me.pnltoolpositioner.Controls.Add(Me.btneracer) + Me.pnltoolpositioner.Controls.Add(Me.btnnew) + Me.pnltoolpositioner.Controls.Add(Me.btnmagnify) + Me.pnltoolpositioner.Controls.Add(Me.btnopen) + Me.pnltoolpositioner.Controls.Add(Me.btnsave) + Me.pnltoolpositioner.Controls.Add(Me.btnundo) + Me.pnltoolpositioner.Controls.Add(Me.btnredo) + Me.pnltoolpositioner.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnltoolpositioner.Location = New System.Drawing.Point(0, 0) + Me.pnltoolpositioner.Name = "pnltoolpositioner" + Me.pnltoolpositioner.Size = New System.Drawing.Size(119, 466) + Me.pnltoolpositioner.TabIndex = 2 + ' + 'btnpixelsetter + ' + Me.btnpixelsetter.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadpixelsetter + Me.btnpixelsetter.FlatAppearance.BorderSize = 0 + Me.btnpixelsetter.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpixelsetter.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpixelsetter.Location = New System.Drawing.Point(6, 6) + Me.btnpixelsetter.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnpixelsetter.Name = "btnpixelsetter" + Me.btnpixelsetter.Size = New System.Drawing.Size(50, 50) + Me.btnpixelsetter.TabIndex = 2 + Me.btnpixelsetter.UseVisualStyleBackColor = True + ' + 'btnpixelplacer + ' + Me.btnpixelplacer.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadpixelplacer + Me.btnpixelplacer.FlatAppearance.BorderSize = 0 + Me.btnpixelplacer.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpixelplacer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpixelplacer.Location = New System.Drawing.Point(62, 6) + Me.btnpixelplacer.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnpixelplacer.Name = "btnpixelplacer" + Me.btnpixelplacer.Size = New System.Drawing.Size(50, 50) + Me.btnpixelplacer.TabIndex = 4 + Me.btnpixelplacer.UseVisualStyleBackColor = True + ' + 'btnpencil + ' + Me.btnpencil.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadpencil + Me.btnpencil.FlatAppearance.BorderSize = 0 + Me.btnpencil.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpencil.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpencil.Location = New System.Drawing.Point(6, 62) + Me.btnpencil.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnpencil.Name = "btnpencil" + Me.btnpencil.Size = New System.Drawing.Size(50, 50) + Me.btnpencil.TabIndex = 7 + Me.btnpencil.Text = " " + Me.btnpencil.UseVisualStyleBackColor = True + ' + 'btnfloodfill + ' + Me.btnfloodfill.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadfloodfill + Me.btnfloodfill.FlatAppearance.BorderSize = 0 + Me.btnfloodfill.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnfloodfill.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnfloodfill.Location = New System.Drawing.Point(62, 62) + Me.btnfloodfill.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnfloodfill.Name = "btnfloodfill" + Me.btnfloodfill.Size = New System.Drawing.Size(50, 50) + Me.btnfloodfill.TabIndex = 11 + Me.btnfloodfill.UseVisualStyleBackColor = True + ' + 'btnoval + ' + Me.btnoval.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadOval + Me.btnoval.FlatAppearance.BorderSize = 0 + Me.btnoval.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnoval.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnoval.Location = New System.Drawing.Point(6, 118) + Me.btnoval.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnoval.Name = "btnoval" + Me.btnoval.Size = New System.Drawing.Size(50, 50) + Me.btnoval.TabIndex = 13 + Me.btnoval.Text = " " + Me.btnoval.UseVisualStyleBackColor = True + ' + 'btnsquare + ' + Me.btnsquare.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadRectangle + Me.btnsquare.FlatAppearance.BorderSize = 0 + Me.btnsquare.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsquare.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsquare.Location = New System.Drawing.Point(62, 118) + Me.btnsquare.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnsquare.Name = "btnsquare" + Me.btnsquare.Size = New System.Drawing.Size(50, 50) + Me.btnsquare.TabIndex = 12 + Me.btnsquare.Text = " " + Me.btnsquare.UseVisualStyleBackColor = True + ' + 'btnlinetool + ' + Me.btnlinetool.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadlinetool + Me.btnlinetool.FlatAppearance.BorderSize = 0 + Me.btnlinetool.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnlinetool.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnlinetool.Location = New System.Drawing.Point(6, 174) + Me.btnlinetool.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnlinetool.Name = "btnlinetool" + Me.btnlinetool.Size = New System.Drawing.Size(50, 50) + Me.btnlinetool.TabIndex = 15 + Me.btnlinetool.Text = " " + Me.btnlinetool.UseVisualStyleBackColor = True + ' + 'btnpaintbrush + ' + Me.btnpaintbrush.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadpaintbrush + Me.btnpaintbrush.FlatAppearance.BorderSize = 0 + Me.btnpaintbrush.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpaintbrush.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpaintbrush.Location = New System.Drawing.Point(62, 174) + Me.btnpaintbrush.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnpaintbrush.Name = "btnpaintbrush" + Me.btnpaintbrush.Size = New System.Drawing.Size(50, 50) + Me.btnpaintbrush.TabIndex = 17 + Me.btnpaintbrush.Text = " " + Me.btnpaintbrush.UseVisualStyleBackColor = True + ' + 'btntexttool + ' + Me.btntexttool.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadtexttool + Me.btntexttool.FlatAppearance.BorderSize = 0 + Me.btntexttool.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntexttool.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btntexttool.Location = New System.Drawing.Point(6, 230) + Me.btntexttool.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btntexttool.Name = "btntexttool" + Me.btntexttool.Size = New System.Drawing.Size(50, 50) + Me.btntexttool.TabIndex = 16 + Me.btntexttool.Text = " " + Me.btntexttool.UseVisualStyleBackColor = True + ' + 'btneracer + ' + Me.btneracer.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPaderacer + Me.btneracer.FlatAppearance.BorderSize = 0 + Me.btneracer.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btneracer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btneracer.Location = New System.Drawing.Point(62, 230) + Me.btneracer.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btneracer.Name = "btneracer" + Me.btneracer.Size = New System.Drawing.Size(50, 50) + Me.btneracer.TabIndex = 14 + Me.btneracer.Text = " " + Me.btneracer.UseVisualStyleBackColor = True + ' + 'btnnew + ' + Me.btnnew.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadnew + Me.btnnew.FlatAppearance.BorderSize = 0 + Me.btnnew.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnnew.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnnew.Location = New System.Drawing.Point(6, 286) + Me.btnnew.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnnew.Name = "btnnew" + Me.btnnew.Size = New System.Drawing.Size(50, 50) + Me.btnnew.TabIndex = 6 + Me.btnnew.Text = " " + Me.btnnew.UseVisualStyleBackColor = True + ' + 'btnmagnify + ' + Me.btnmagnify.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadmagnify + Me.btnmagnify.FlatAppearance.BorderSize = 0 + Me.btnmagnify.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnmagnify.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnmagnify.Location = New System.Drawing.Point(62, 286) + Me.btnmagnify.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnmagnify.Name = "btnmagnify" + Me.btnmagnify.Size = New System.Drawing.Size(50, 50) + Me.btnmagnify.TabIndex = 3 + Me.btnmagnify.Text = " " + Me.btnmagnify.UseVisualStyleBackColor = True + ' + 'btnopen + ' + Me.btnopen.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadopen + Me.btnopen.FlatAppearance.BorderSize = 0 + Me.btnopen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnopen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnopen.Location = New System.Drawing.Point(6, 342) + Me.btnopen.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnopen.Name = "btnopen" + Me.btnopen.Size = New System.Drawing.Size(50, 50) + Me.btnopen.TabIndex = 10 + Me.btnopen.Text = " " + Me.btnopen.UseVisualStyleBackColor = True + ' + 'btnsave + ' + Me.btnsave.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadsave + Me.btnsave.FlatAppearance.BorderSize = 0 + Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsave.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsave.Location = New System.Drawing.Point(62, 342) + Me.btnsave.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(50, 50) + Me.btnsave.TabIndex = 5 + Me.btnsave.Text = " " + Me.btnsave.UseVisualStyleBackColor = True + ' + 'btnundo + ' + Me.btnundo.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadundo + Me.btnundo.FlatAppearance.BorderSize = 0 + Me.btnundo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnundo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnundo.Location = New System.Drawing.Point(6, 398) + Me.btnundo.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnundo.Name = "btnundo" + Me.btnundo.Size = New System.Drawing.Size(50, 50) + Me.btnundo.TabIndex = 8 + Me.btnundo.Text = " " + Me.btnundo.UseVisualStyleBackColor = True + ' + 'btnredo + ' + Me.btnredo.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ArtPadredo + Me.btnredo.FlatAppearance.BorderSize = 0 + Me.btnredo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnredo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnredo.Location = New System.Drawing.Point(62, 398) + Me.btnredo.Margin = New System.Windows.Forms.Padding(6, 6, 0, 0) + Me.btnredo.Name = "btnredo" + Me.btnredo.Size = New System.Drawing.Size(50, 50) + Me.btnredo.TabIndex = 9 + Me.btnredo.Text = " " + Me.btnredo.UseVisualStyleBackColor = True + ' + 'line1 + ' + Me.line1.BackColor = System.Drawing.Color.Black + Me.line1.Dock = System.Windows.Forms.DockStyle.Right + Me.line1.Location = New System.Drawing.Point(119, 0) + Me.line1.Name = "line1" + Me.line1.Size = New System.Drawing.Size(1, 466) + Me.line1.TabIndex = 1 + ' + 'pnltoolpreview + ' + Me.pnltoolpreview.Controls.Add(Me.Label13) + Me.pnltoolpreview.Controls.Add(Me.picpreview) + Me.pnltoolpreview.Controls.Add(Me.lbltoolselected) + Me.pnltoolpreview.Controls.Add(Me.line4) + Me.pnltoolpreview.Controls.Add(Me.line2) + Me.pnltoolpreview.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnltoolpreview.Location = New System.Drawing.Point(0, 466) + Me.pnltoolpreview.Name = "pnltoolpreview" + Me.pnltoolpreview.Size = New System.Drawing.Size(120, 100) + Me.pnltoolpreview.TabIndex = 0 + ' + 'Label13 + ' + Me.Label13.BackColor = System.Drawing.Color.Transparent + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(3, 79) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(113, 21) + Me.Label13.TabIndex = 6 + Me.Label13.Text = "Preview" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'picpreview + ' + Me.picpreview.Location = New System.Drawing.Point(24, 27) + Me.picpreview.Name = "picpreview" + Me.picpreview.Size = New System.Drawing.Size(70, 50) + Me.picpreview.TabIndex = 5 + Me.picpreview.TabStop = False + ' + 'lbltoolselected + ' + Me.lbltoolselected.BackColor = System.Drawing.Color.Transparent + Me.lbltoolselected.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltoolselected.Location = New System.Drawing.Point(3, 3) + Me.lbltoolselected.Name = "lbltoolselected" + Me.lbltoolselected.Size = New System.Drawing.Size(113, 21) + Me.lbltoolselected.TabIndex = 4 + Me.lbltoolselected.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'line4 + ' + Me.line4.BackColor = System.Drawing.Color.Black + Me.line4.Dock = System.Windows.Forms.DockStyle.Top + Me.line4.Location = New System.Drawing.Point(0, 0) + Me.line4.Name = "line4" + Me.line4.Size = New System.Drawing.Size(119, 1) + Me.line4.TabIndex = 3 + ' + 'line2 + ' + Me.line2.BackColor = System.Drawing.Color.Black + Me.line2.Dock = System.Windows.Forms.DockStyle.Right + Me.line2.Location = New System.Drawing.Point(119, 0) + Me.line2.Name = "line2" + Me.line2.Size = New System.Drawing.Size(1, 100) + Me.line2.TabIndex = 2 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 568) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 566) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(800, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 568) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 566) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(802, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconArtpad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(76, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Artpad" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(800, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 596) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(798, 2) + Me.pgbottom.TabIndex = 23 + ' + 'tmrcodepointcooldown + ' + Me.tmrcodepointcooldown.Interval = 10000 + ' + 'tmrshowearnedcodepoints + ' + Me.tmrshowearnedcodepoints.Interval = 3000 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'ArtPad + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(802, 598) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(502, 398) + Me.Name = "ArtPad" + Me.Text = "ArtPad" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnldrawingbackground.ResumeLayout(False) + Me.pnlpalletsize.ResumeLayout(False) + Me.pnlpalletsize.PerformLayout() + Me.pnlinitialcanvassettings.ResumeLayout(False) + Me.pnlinitialcanvassettings.PerformLayout() + CType(Me.picdrawingdisplay, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlbottompanel.ResumeLayout(False) + Me.pnlpallet.ResumeLayout(False) + Me.flowcolours.ResumeLayout(False) + Me.pnltoolproperties.ResumeLayout(False) + Me.pnltoolproperties.PerformLayout() + Me.pnltexttoolsettings.ResumeLayout(False) + Me.pnltexttoolsettings.PerformLayout() + Me.pnlpixelsettersettings.ResumeLayout(False) + Me.pnlpixelsettersettings.PerformLayout() + Me.pnlpaintbrushtoolsettings.ResumeLayout(False) + Me.pnlpaintbrushtoolsettings.PerformLayout() + Me.pnllinetoolsettings.ResumeLayout(False) + Me.pnllinetoolsettings.PerformLayout() + Me.pnlmagnifiersettings.ResumeLayout(False) + Me.pnleracertoolsettings.ResumeLayout(False) + Me.pnleracertoolsettings.PerformLayout() + Me.pnlfloodfillsettings.ResumeLayout(False) + Me.pnlovaltoolsettings.ResumeLayout(False) + Me.pnlovaltoolsettings.PerformLayout() + Me.pnlsquaretoolsettings.ResumeLayout(False) + Me.pnlsquaretoolsettings.PerformLayout() + Me.pnlpixelplacersettings.ResumeLayout(False) + Me.pnlpencilsettings.ResumeLayout(False) + Me.pnltools.ResumeLayout(False) + Me.pnltoolpositioner.ResumeLayout(False) + Me.pnltoolpreview.ResumeLayout(False) + CType(Me.picpreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pnlbottompanel As System.Windows.Forms.Panel + Friend WithEvents pnltoolproperties As System.Windows.Forms.Panel + Friend WithEvents pnlpallet As System.Windows.Forms.Panel + Friend WithEvents line3 As System.Windows.Forms.Panel + Friend WithEvents line5 As System.Windows.Forms.Panel + Friend WithEvents line6 As System.Windows.Forms.Panel + Friend WithEvents pnldrawingbackground As System.Windows.Forms.Panel + Friend WithEvents picdrawingdisplay As System.Windows.Forms.PictureBox + Friend WithEvents btnpixelsetter As System.Windows.Forms.Button + Friend WithEvents pnlpixelsettersettings As System.Windows.Forms.Panel + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnpixelsettersetpixel As System.Windows.Forms.Button + Friend WithEvents txtpixelsetterycoordinate As System.Windows.Forms.TextBox + Friend WithEvents txtpixelsetterxcoordinate As System.Windows.Forms.TextBox + Friend WithEvents btnmagnify As System.Windows.Forms.Button + Friend WithEvents colourpallet32 As System.Windows.Forms.Panel + Friend WithEvents colourpallet31 As System.Windows.Forms.Panel + Friend WithEvents colourpallet30 As System.Windows.Forms.Panel + Friend WithEvents colourpallet29 As System.Windows.Forms.Panel + Friend WithEvents colourpallet28 As System.Windows.Forms.Panel + Friend WithEvents colourpallet26 As System.Windows.Forms.Panel + Friend WithEvents colourpallet25 As System.Windows.Forms.Panel + Friend WithEvents colourpallet23 As System.Windows.Forms.Panel + Friend WithEvents colourpallet21 As System.Windows.Forms.Panel + Friend WithEvents colourpallet19 As System.Windows.Forms.Panel + Friend WithEvents colourpallet8 As System.Windows.Forms.Panel + Friend WithEvents colourpallet6 As System.Windows.Forms.Panel + Friend WithEvents colourpallet16 As System.Windows.Forms.Panel + Friend WithEvents colourpallet14 As System.Windows.Forms.Panel + Friend WithEvents colourpallet7 As System.Windows.Forms.Panel + Friend WithEvents colourpallet5 As System.Windows.Forms.Panel + Friend WithEvents colourpallet10 As System.Windows.Forms.Panel + Friend WithEvents colourpallet9 As System.Windows.Forms.Panel + Friend WithEvents colourpallet11 As System.Windows.Forms.Panel + Friend WithEvents colourpallet12 As System.Windows.Forms.Panel + Friend WithEvents colourpallet13 As System.Windows.Forms.Panel + Friend WithEvents colourpallet15 As System.Windows.Forms.Panel + Friend WithEvents colourpallet4 As System.Windows.Forms.Panel + Friend WithEvents colourpallet3 As System.Windows.Forms.Panel + Friend WithEvents colourpallet17 As System.Windows.Forms.Panel + Friend WithEvents colourpallet18 As System.Windows.Forms.Panel + Friend WithEvents colourpallet20 As System.Windows.Forms.Panel + Friend WithEvents colourpallet22 As System.Windows.Forms.Panel + Friend WithEvents colourpallet24 As System.Windows.Forms.Panel + Friend WithEvents colourpallet2 As System.Windows.Forms.Panel + Friend WithEvents colourpallet27 As System.Windows.Forms.Panel + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents colourpallet1 As System.Windows.Forms.Panel + Friend WithEvents pnlmagnifiersettings As System.Windows.Forms.Panel + Friend WithEvents btnzoomin As System.Windows.Forms.Button + Friend WithEvents lblzoomlevel As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents btnzoomout As System.Windows.Forms.Button + Friend WithEvents btnpixelplacer As System.Windows.Forms.Button + Friend WithEvents pnlpixelplacersettings As System.Windows.Forms.Panel + Friend WithEvents btnpixelplacermovementmode As System.Windows.Forms.Button + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents lblpixelplacerhelp As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents btnnew As System.Windows.Forms.Button + Friend WithEvents flowcolours As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents btnpencil As System.Windows.Forms.Button + Friend WithEvents pnlpencilsettings As System.Windows.Forms.Panel + Friend WithEvents btnpencilsize3 As System.Windows.Forms.Button + Friend WithEvents btnpencilsize2 As System.Windows.Forms.Button + Friend WithEvents btnpencilsize1 As System.Windows.Forms.Button + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents btnfloodfill As System.Windows.Forms.Button + Friend WithEvents pnlfloodfillsettings As System.Windows.Forms.Panel + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents btnsquare As System.Windows.Forms.Button + Friend WithEvents pnlsquaretoolsettings As System.Windows.Forms.Panel + Friend WithEvents txtsquareborderwidth As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents btnsquarefillonoff As System.Windows.Forms.Button + Friend WithEvents pnlsquarefillcolour As System.Windows.Forms.Panel + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents btnoval As System.Windows.Forms.Button + Friend WithEvents pnlovaltoolsettings As System.Windows.Forms.Panel + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents btnovalfillonoff As System.Windows.Forms.Button + Friend WithEvents pnlovalfillcolour As System.Windows.Forms.Panel + Friend WithEvents txtovalborderwidth As System.Windows.Forms.TextBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents pnltools As System.Windows.Forms.Panel + Friend WithEvents pnltoolpositioner As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents line1 As System.Windows.Forms.Panel + Friend WithEvents pnltoolpreview As System.Windows.Forms.Panel + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents picpreview As System.Windows.Forms.PictureBox + Friend WithEvents lbltoolselected As System.Windows.Forms.Label + Friend WithEvents line4 As System.Windows.Forms.Panel + Friend WithEvents line2 As System.Windows.Forms.Panel + Friend WithEvents btnopen As System.Windows.Forms.Button + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents btnundo As System.Windows.Forms.Button + Friend WithEvents btnredo As System.Windows.Forms.Button + Friend WithEvents btneracer As System.Windows.Forms.Button + Friend WithEvents btnlinetool As System.Windows.Forms.Button + Friend WithEvents pnllinetoolsettings As System.Windows.Forms.Panel + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents txtlinewidth As System.Windows.Forms.TextBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents pnleracertoolsettings As System.Windows.Forms.Panel + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents btneracersquare As System.Windows.Forms.Button + Friend WithEvents btneracercircle As System.Windows.Forms.Button + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents txteracersize As System.Windows.Forms.TextBox + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents btntexttool As System.Windows.Forms.Button + Friend WithEvents btnpaintbrush As System.Windows.Forms.Button + Friend WithEvents pnltexttoolsettings As System.Windows.Forms.Panel + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents txtdrawtextsize As System.Windows.Forms.TextBox + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents combodrawtextfont As System.Windows.Forms.ComboBox + Friend WithEvents txtdrawstringtext As System.Windows.Forms.TextBox + Friend WithEvents combofontstyle As System.Windows.Forms.ComboBox + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents pnlpaintbrushtoolsettings As System.Windows.Forms.Panel + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents btnpaintsquareshape As System.Windows.Forms.Button + Friend WithEvents btnpaintcircleshape As System.Windows.Forms.Button + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents txtpaintbrushsize As System.Windows.Forms.TextBox + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents tmrcodepointcooldown As System.Windows.Forms.Timer + Friend WithEvents tmrshowearnedcodepoints As System.Windows.Forms.Timer + Friend WithEvents pnlpalletsize As System.Windows.Forms.Panel + Friend WithEvents btnchangesizecancel As System.Windows.Forms.Button + Friend WithEvents btnsetsize As System.Windows.Forms.Button + Friend WithEvents txtcolorpalletheight As System.Windows.Forms.TextBox + Friend WithEvents Label42 As System.Windows.Forms.Label + Friend WithEvents txtcolorpalletwidth As System.Windows.Forms.TextBox + Friend WithEvents Label43 As System.Windows.Forms.Label + Friend WithEvents pnlinitialcanvassettings As System.Windows.Forms.Panel + Friend WithEvents btncancel As System.Windows.Forms.Button + Friend WithEvents btncreate As System.Windows.Forms.Button + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents lbltotalpixels As System.Windows.Forms.Label + Friend WithEvents txtnewcanvasheight As System.Windows.Forms.TextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents txtnewcanvaswidth As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents colourpallet33 As System.Windows.Forms.Panel + Friend WithEvents colourpallet34 As System.Windows.Forms.Panel + Friend WithEvents colourpallet35 As System.Windows.Forms.Panel + Friend WithEvents colourpallet36 As System.Windows.Forms.Panel + Friend WithEvents colourpallet37 As System.Windows.Forms.Panel + Friend WithEvents colourpallet38 As System.Windows.Forms.Panel + Friend WithEvents colourpallet39 As System.Windows.Forms.Panel + Friend WithEvents colourpallet40 As System.Windows.Forms.Panel + Friend WithEvents colourpallet41 As System.Windows.Forms.Panel + Friend WithEvents colourpallet42 As System.Windows.Forms.Panel + Friend WithEvents colourpallet43 As System.Windows.Forms.Panel + Friend WithEvents colourpallet44 As System.Windows.Forms.Panel + Friend WithEvents colourpallet45 As System.Windows.Forms.Panel + Friend WithEvents colourpallet46 As System.Windows.Forms.Panel + Friend WithEvents colourpallet47 As System.Windows.Forms.Panel + Friend WithEvents colourpallet48 As System.Windows.Forms.Panel + Friend WithEvents colourpallet49 As System.Windows.Forms.Panel + Friend WithEvents colourpallet50 As System.Windows.Forms.Panel + Friend WithEvents colourpallet51 As System.Windows.Forms.Panel + Friend WithEvents colourpallet52 As System.Windows.Forms.Panel + Friend WithEvents colourpallet53 As System.Windows.Forms.Panel + Friend WithEvents colourpallet54 As System.Windows.Forms.Panel + Friend WithEvents colourpallet55 As System.Windows.Forms.Panel + Friend WithEvents colourpallet56 As System.Windows.Forms.Panel + Friend WithEvents colourpallet57 As System.Windows.Forms.Panel + Friend WithEvents colourpallet58 As System.Windows.Forms.Panel + Friend WithEvents colourpallet59 As System.Windows.Forms.Panel + Friend WithEvents colourpallet60 As System.Windows.Forms.Panel + Friend WithEvents colourpallet61 As System.Windows.Forms.Panel + Friend WithEvents colourpallet62 As System.Windows.Forms.Panel + Friend WithEvents colourpallet63 As System.Windows.Forms.Panel + Friend WithEvents colourpallet64 As System.Windows.Forms.Panel + Friend WithEvents colourpallet65 As System.Windows.Forms.Panel + Friend WithEvents colourpallet66 As System.Windows.Forms.Panel + Friend WithEvents colourpallet67 As System.Windows.Forms.Panel + Friend WithEvents colourpallet68 As System.Windows.Forms.Panel + Friend WithEvents colourpallet69 As System.Windows.Forms.Panel + Friend WithEvents colourpallet70 As System.Windows.Forms.Panel + Friend WithEvents colourpallet71 As System.Windows.Forms.Panel + Friend WithEvents colourpallet72 As System.Windows.Forms.Panel + Friend WithEvents colourpallet73 As System.Windows.Forms.Panel + Friend WithEvents colourpallet74 As System.Windows.Forms.Panel + Friend WithEvents colourpallet75 As System.Windows.Forms.Panel + Friend WithEvents colourpallet76 As System.Windows.Forms.Panel + Friend WithEvents colourpallet77 As System.Windows.Forms.Panel + Friend WithEvents colourpallet78 As System.Windows.Forms.Panel + Friend WithEvents colourpallet79 As System.Windows.Forms.Panel + Friend WithEvents colourpallet80 As System.Windows.Forms.Panel + Friend WithEvents colourpallet81 As System.Windows.Forms.Panel + Friend WithEvents colourpallet82 As System.Windows.Forms.Panel + Friend WithEvents colourpallet83 As System.Windows.Forms.Panel + Friend WithEvents colourpallet84 As System.Windows.Forms.Panel + Friend WithEvents colourpallet85 As System.Windows.Forms.Panel + Friend WithEvents colourpallet86 As System.Windows.Forms.Panel + Friend WithEvents colourpallet87 As System.Windows.Forms.Panel + Friend WithEvents colourpallet88 As System.Windows.Forms.Panel + Friend WithEvents colourpallet89 As System.Windows.Forms.Panel + Friend WithEvents colourpallet90 As System.Windows.Forms.Panel + Friend WithEvents colourpallet91 As System.Windows.Forms.Panel + Friend WithEvents colourpallet92 As System.Windows.Forms.Panel + Friend WithEvents colourpallet93 As System.Windows.Forms.Panel + Friend WithEvents colourpallet94 As System.Windows.Forms.Panel + Friend WithEvents colourpallet95 As System.Windows.Forms.Panel + Friend WithEvents colourpallet96 As System.Windows.Forms.Panel + Friend WithEvents colourpallet97 As System.Windows.Forms.Panel + Friend WithEvents colourpallet98 As System.Windows.Forms.Panel + Friend WithEvents colourpallet99 As System.Windows.Forms.Panel + Friend WithEvents colourpallet100 As System.Windows.Forms.Panel + Friend WithEvents colourpallet101 As System.Windows.Forms.Panel + Friend WithEvents colourpallet102 As System.Windows.Forms.Panel + Friend WithEvents colourpallet103 As System.Windows.Forms.Panel + Friend WithEvents colourpallet104 As System.Windows.Forms.Panel + Friend WithEvents colourpallet105 As System.Windows.Forms.Panel + Friend WithEvents colourpallet106 As System.Windows.Forms.Panel + Friend WithEvents colourpallet107 As System.Windows.Forms.Panel + Friend WithEvents colourpallet108 As System.Windows.Forms.Panel + Friend WithEvents colourpallet109 As System.Windows.Forms.Panel + Friend WithEvents colourpallet110 As System.Windows.Forms.Panel + Friend WithEvents colourpallet111 As System.Windows.Forms.Panel + Friend WithEvents colourpallet112 As System.Windows.Forms.Panel + Friend WithEvents colourpallet113 As System.Windows.Forms.Panel + Friend WithEvents colourpallet114 As System.Windows.Forms.Panel + Friend WithEvents colourpallet115 As System.Windows.Forms.Panel + Friend WithEvents colourpallet116 As System.Windows.Forms.Panel + Friend WithEvents colourpallet117 As System.Windows.Forms.Panel + Friend WithEvents colourpallet118 As System.Windows.Forms.Panel + Friend WithEvents colourpallet119 As System.Windows.Forms.Panel + Friend WithEvents colourpallet120 As System.Windows.Forms.Panel + Friend WithEvents colourpallet121 As System.Windows.Forms.Panel + Friend WithEvents colourpallet122 As System.Windows.Forms.Panel + Friend WithEvents colourpallet123 As System.Windows.Forms.Panel + Friend WithEvents colourpallet124 As System.Windows.Forms.Panel + Friend WithEvents colourpallet125 As System.Windows.Forms.Panel + Friend WithEvents colourpallet126 As System.Windows.Forms.Panel + Friend WithEvents colourpallet127 As System.Windows.Forms.Panel + Friend WithEvents colourpallet128 As System.Windows.Forms.Panel + Friend WithEvents txttopspace As System.Windows.Forms.TextBox + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents txtsidespace As System.Windows.Forms.TextBox + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer +End Class diff --git a/ArtPad.resx b/ArtPad.resx new file mode 100644 index 0000000..2b92c10 --- /dev/null +++ b/ArtPad.resx @@ -0,0 +1,142 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + This tool does not contain any alterable settings. Simply click any pixel on the image above to have it and all the pixels around it that are the same colour instantly converted to the colour you have selected. + + + Please select a tool from the tool panel at the left side of the canvas. +Be sure to use the magnification tool to zoom in if your canvas is small otherwise you may experience difficulty drawing accuratly on the canvas. + + + 21, 15 + + + 201, 15 + + + 765, 18 + + + 849, 18 + + + 962, 18 + + \ No newline at end of file diff --git a/ArtPad.vb b/ArtPad.vb new file mode 100644 index 0000000..0cda5c0 --- /dev/null +++ b/ArtPad.vb @@ -0,0 +1,2342 @@ +Public Class ArtPad + 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 = 502 + Public minimumsizeheight As Integer = 398 + + Public codepointsearned As Integer + Public codepointscooldown As Boolean = False + Public needtosave As Boolean = False + + Dim canvaswidth As Integer = 150 + Dim canvasheight As Integer = 100 + Public canvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight) + Dim canvascolor As Color = Color.White + + Public previewcanvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight) + + Dim magnificationlevel As Integer = 1 + Dim magnifyRect As New Rectangle(0, 0, canvaswidth, canvasheight) + Dim graphicsbitmap As Graphics = Graphics.FromImage(canvasbitmap) + Public drawingcolour As Color = Color.Black + Dim selectedtool As String = "Pixel Setter" + Dim pixalplacermovable As Boolean = False + Public savelocation As String + Dim mousePath As New System.Drawing.Drawing2D.GraphicsPath() + Dim pencilwidth As Integer = 1 + Dim undo As New undo + Dim backmap As New Drawing.Bitmap(canvaswidth, canvasheight) + Dim thisPoint As Point + + Dim eracerwidth As Integer = 15 + Dim eracertype As String = "square" + + Dim paintbrushwidth As Integer = 15 + Dim paintbrushtype As String = "circle" + + Dim rectanglestartpointx As Single + Dim rectanglestartpointy As Single + Dim currentlydrawingsquare As Boolean + Dim squarewidth As Integer = 1 + Dim squarefillon As Boolean = False + Dim fillsquarecolor As Color = Color.Black + + Dim ovalstartpointx As Single + Dim ovalstartpointy As Single + Dim currentlydrawingoval As Boolean + Dim ovalwidth As Integer = 2 + Dim ovalfillon As Boolean = False + Dim fillovalcolor As Color = Color.Black + + Dim linestartpointx As Single + Dim linestartpointy As Single + Dim currentlydrawingline As Boolean + Dim linewidth As Integer = 2 + + Dim currentlydrawingtext As Boolean + Dim drawtextfont As New System.Drawing.Font("Microsoft Sans Serif", 16) + Dim drawtextsize As Integer + Dim drawtextfontname As String + Dim drawtextfontstyle As FontStyle + + Private Sub ArtPad_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() + setuppreview() + settoolcolours() + loadcolors() + AddFonts() + setuptoolbox() + determinevisiblepallets() + setuppallets() + + ShiftOSDesktop.pnlpanelbuttonartpad.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonartpad, ShiftOSDesktop.tbartpadicon, ShiftOSDesktop.tbartpadtext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(800, 600) '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.artpadname + 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.boughtartpadicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.artpadicontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 + + If needtosave = True Then + If ShiftOSDesktop.boughtartpadsave = True Then + e.Cancel = True + infobox.title = "Artpad - Save?" + infobox.textinfo = "It appears that your canvas currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to close Artpad without saving the changes to your canvas?" + infobox.Show() + infobox.showyesno() + infobox.sendyesno = "artpad" + Else + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + savecolors() + End If + Else + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + savecolors() + End If + + + End Sub + + 'end of general setup + + Public Sub setupcanvas() + canvasbitmap = New Drawing.Bitmap(canvaswidth, canvasheight) + previewcanvasbitmap = New Drawing.Bitmap(canvaswidth, canvasheight) + picdrawingdisplay.Size = New Size(canvaswidth, canvasheight) + picdrawingdisplay.Location = New Point((pnldrawingbackground.Width - canvaswidth) / 2, (pnldrawingbackground.Height - canvasheight) / 2) + graphicsbitmap = Graphics.FromImage(canvasbitmap) + Dim canvasbrush As New SolidBrush(canvascolor) + graphicsbitmap.FillRectangle(canvasbrush, 0, 0, canvaswidth, canvasheight) + magnificationlevel = 1 + lblzoomlevel.Text = magnificationlevel & "X" + setuppreview() + needtosave = False + End Sub + + Public Sub setuptoolbox() + btnpixelplacer.Hide() + btnpencil.Hide() + btnfloodfill.Hide() + btnoval.Hide() + btnsquare.Hide() + btnlinetool.Hide() + btnpaintbrush.Hide() + btntexttool.Hide() + btneracer.Hide() + btnnew.Hide() + btnopen.Hide() + btnsave.Hide() + btnundo.Hide() + btnredo.Hide() + btnpixelplacermovementmode.Hide() + + If ShiftOSDesktop.boughtartpadpixelplacer = True Then btnpixelplacer.Show() + If ShiftOSDesktop.boughtartpadpencil = True Then btnpencil.Show() + If ShiftOSDesktop.boughtartpadfilltool = True Then btnfloodfill.Show() + If ShiftOSDesktop.boughtartpadovaltool = True Then btnoval.Show() + If ShiftOSDesktop.boughtartpadrectangletool = True Then btnsquare.Show() + If ShiftOSDesktop.boughtartpadlinetool = True Then btnlinetool.Show() + If ShiftOSDesktop.boughtartpadpaintbrush = True Then btnpaintbrush.Show() + If ShiftOSDesktop.boughtartpadtexttool = True Then btntexttool.Show() + If ShiftOSDesktop.boughtartpaderaser = True Then btneracer.Show() + If ShiftOSDesktop.boughtartpadnew = True Then btnnew.Show() + If ShiftOSDesktop.boughtartpadload = True Then btnopen.Show() + If ShiftOSDesktop.boughtartpadsave = True Then btnsave.Show() + If ShiftOSDesktop.boughtartpadundo = True Then btnundo.Show() + If ShiftOSDesktop.boughtartpadredo = True Then btnredo.Show() + If ShiftOSDesktop.boughtartpadpixelplacermovementmode = True Then btnpixelplacermovementmode.Show() + + 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 + combodrawtextfont.Items.Add(myFont.Name) + Next 'font_family + + combodrawtextfont.SelectedItem = combodrawtextfont.Items(1) + combofontstyle.Text = "Regular" + txtdrawtextsize.Text = 16 + End Sub + + Private Sub btnpixelsetter_Click(sender As Object, e As EventArgs) Handles btnpixelsetter.Click + selectedtool = "Pixel Setter" + gettoolsettings(pnlpixelsettersettings) + End Sub + + Private Sub gettoolsettings(ByVal toolpanel As Panel) + 'hide all properties panels + pnlpixelsettersettings.Hide() + pnlmagnifiersettings.Hide() + + 'show chosen panel + toolpanel.Dock = DockStyle.Fill + toolpanel.BringToFront() + toolpanel.Show() + + setuppreview() + End Sub + + Private Sub btnpixelsettersetpixel_Click(sender As Object, e As EventArgs) Handles btnpixelsettersetpixel.Click + Try + undo.undoStack.Push(canvasbitmap.Clone) + undo.redoStack.Clear() + canvasbitmap.SetPixel(txtpixelsetterxcoordinate.Text, txtpixelsetterycoordinate.Text, drawingcolour) + picdrawingdisplay.Invalidate() + Catch ex As Exception + infobox.title = "ArtPad - Placement Error!" + infobox.textinfo = "You have specified invalid coordinates for the pixel setter." & Environment.NewLine & Environment.NewLine & "Remember that the top left pixel has the coordinates 0, 0" + infobox.Show() + End Try + End Sub + + Private Sub btnmagnify_Click(sender As Object, e As EventArgs) Handles btnmagnify.Click + selectedtool = "Magnifier" + gettoolsettings(pnlmagnifiersettings) + End Sub + + Private Sub picdrawingdisplay_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles picdrawingdisplay.Paint + e.Graphics.FillRectangle(Brushes.White, 0, 0, canvaswidth * magnificationlevel, canvasheight * magnificationlevel) + e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor + e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half + e.Graphics.ScaleTransform(magnificationlevel, magnificationlevel) + + If currentlydrawingsquare = True Then + GC.Collect() + Dim g As Graphics = Graphics.FromImage(previewcanvasbitmap) + previewcanvasbitmap = New Bitmap(canvasbitmap.Width, canvasbitmap.Height) + g = Graphics.FromImage(previewcanvasbitmap) + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), squarewidth) + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, fillsquarecolor)) + Dim rectdraw As New RectangleF(rectanglestartpointx, rectanglestartpointy, thisPoint.X - rectanglestartpointx, thisPoint.Y - rectanglestartpointy) + Dim heightamount, widthamount As Integer + If rectdraw.Height < 0 Then heightamount = Math.Abs(rectdraw.Height) Else heightamount = 0 + If rectdraw.Width < 0 Then widthamount = Math.Abs(rectdraw.Width) Else widthamount = 0 + If squarewidth > 0 Then + g.DrawRectangle(CurrentPen, rectdraw.X - widthamount, rectdraw.Y - heightamount, Math.Abs(rectdraw.Width), Math.Abs(rectdraw.Height)) + End If + If squarefillon = True Then + Dim correctionamount As Single = squarewidth / 2 + Dim addfillamount As Integer + If squarewidth > 0 Then addfillamount = squarewidth Else addfillamount = -1 + g.FillRectangle(CurrentBrush, (rectdraw.X - widthamount) + correctionamount, (rectdraw.Y - heightamount) + correctionamount, Math.Abs(rectdraw.Width) - addfillamount, Math.Abs(rectdraw.Height) - addfillamount) + End If + End If + + If currentlydrawingoval = True Then + GC.Collect() + Dim g As Graphics = Graphics.FromImage(previewcanvasbitmap) + previewcanvasbitmap = New Bitmap(canvasbitmap.Width, canvasbitmap.Height) + g = Graphics.FromImage(previewcanvasbitmap) + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), ovalwidth) + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, fillovalcolor)) + Dim ovaldraw As New RectangleF(ovalstartpointx, ovalstartpointy, thisPoint.X - ovalstartpointx, thisPoint.Y - ovalstartpointy) + Dim heightamount, widthamount As Integer + If ovaldraw.Height < 0 Then heightamount = Math.Abs(ovaldraw.Height) Else heightamount = 0 + If ovaldraw.Width < 0 Then widthamount = Math.Abs(ovaldraw.Width) Else widthamount = 0 + If ovalwidth > 0 Then + g.DrawEllipse(CurrentPen, ovaldraw.X - widthamount, ovaldraw.Y - heightamount, Math.Abs(ovaldraw.Width), Math.Abs(ovaldraw.Height)) + End If + If ovalfillon = True Then + g.FillEllipse(CurrentBrush, (ovaldraw.X - widthamount), (ovaldraw.Y - heightamount), Math.Abs(ovaldraw.Width), Math.Abs(ovaldraw.Height)) + End If + End If + + If currentlydrawingline = True Then + GC.Collect() + Dim g As Graphics = Graphics.FromImage(previewcanvasbitmap) + previewcanvasbitmap = New Bitmap(canvasbitmap.Width, canvasbitmap.Height) + g = Graphics.FromImage(previewcanvasbitmap) + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), linewidth) + g.DrawLine(CurrentPen, linestartpointx, linestartpointy, thisPoint.X, thisPoint.Y) + End If + + If currentlydrawingtext = True Then + GC.Collect() + Dim g As Graphics = Graphics.FromImage(previewcanvasbitmap) + previewcanvasbitmap = New Bitmap(canvasbitmap.Width, canvasbitmap.Height) + g = Graphics.FromImage(previewcanvasbitmap) + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, drawingcolour)) + g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit + drawtextfont = New System.Drawing.Font(drawtextfontname, drawtextsize, drawtextfontstyle) + g.DrawString(txtdrawstringtext.Text, drawtextfont, CurrentBrush, thisPoint.X, thisPoint.Y) + End If + + e.Graphics.DrawImage(canvasbitmap, 0, 0) + e.Graphics.DrawImage(previewcanvasbitmap, 0, 0) + + End Sub + + + Private Sub picdrawingdisplay_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles picdrawingdisplay.MouseDown + + undo.undoStack.Push(canvasbitmap.Clone) + undo.redoStack.Clear() + + + thisPoint.X = CInt((e.Location.X - (magnificationlevel / 2)) / magnificationlevel) + thisPoint.Y = CInt((e.Location.Y - (magnificationlevel / 2)) / magnificationlevel) + + If selectedtool = "Pixel Placer" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + If thisPoint.X < canvasbitmap.Width AndAlso thisPoint.X > -1 Then + If thisPoint.Y < canvasbitmap.Height AndAlso thisPoint.Y > -1 Then + canvasbitmap.SetPixel(thisPoint.X, thisPoint.Y, drawingcolour) 'set the pixel on the canvas + picdrawingdisplay.Invalidate() 'refresh the picture from the canvas + End If + End If + End If + End If + + If selectedtool = "Pencil" Then + If e.Button = MouseButtons.Left Then + mousePath.StartFigure() + picdrawingdisplay.Invalidate() + End If + End If + + If selectedtool = "Flood Fill" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + If thisPoint.X < canvasbitmap.Width AndAlso thisPoint.X > -1 Then + If thisPoint.Y < canvasbitmap.Height AndAlso thisPoint.Y > -1 Then + SafeFloodFill(canvasbitmap, thisPoint.X, thisPoint.Y, drawingcolour) + graphicsbitmap = Graphics.FromImage(canvasbitmap) + picdrawingdisplay.Invalidate() + End If + End If + End If + End If + + If selectedtool = "Square Tool" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + rectanglestartpointx = thisPoint.X + rectanglestartpointy = thisPoint.Y + currentlydrawingsquare = True + picdrawingdisplay.Invalidate() + End If + End If + + If selectedtool = "Oval Tool" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + ovalstartpointx = thisPoint.X + ovalstartpointy = thisPoint.Y + currentlydrawingoval = True + picdrawingdisplay.Invalidate() + End If + End If + + If selectedtool = "Line Tool" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + linestartpointx = thisPoint.X + linestartpointy = thisPoint.Y + currentlydrawingline = True + picdrawingdisplay.Invalidate() + End If + End If + + If selectedtool = "Text Tool" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + currentlydrawingtext = True + picdrawingdisplay.Invalidate() + End If + End If + + If selectedtool = "Eracer" Then + Dim CurrentPen = New Pen(Color.FromArgb(255, canvascolor), eracerwidth) + Dim halfsize As Single = eracerwidth / 2 + If eracertype = "circle" Then + graphicsbitmap.DrawEllipse(CurrentPen, thisPoint.X - halfsize, thisPoint.Y - halfsize, eracerwidth, eracerwidth) + Else + graphicsbitmap.DrawRectangle(CurrentPen, thisPoint.X - halfsize, thisPoint.Y - halfsize, eracerwidth, eracerwidth) + End If + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Paint Brush" Then + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, drawingcolour)) + Dim halfsize As Single = paintbrushwidth / 2 + If paintbrushtype = "circle" Then + graphicsbitmap.FillEllipse(CurrentBrush, thisPoint.X - halfsize, thisPoint.Y - halfsize, paintbrushwidth, paintbrushwidth) + Else + graphicsbitmap.FillRectangle(CurrentBrush, thisPoint.X - halfsize, thisPoint.Y - halfsize, paintbrushwidth, paintbrushwidth) + End If + picdrawingdisplay.Invalidate() + CurrentBrush.Dispose() + End If + preparecooldown() + End Sub + + Private Sub picdrawingdisplay_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles picdrawingdisplay.MouseMove + Static lastpoint As Point + + thisPoint.X = CInt((e.Location.X - (magnificationlevel / 2)) / magnificationlevel) + thisPoint.Y = CInt((e.Location.Y - (magnificationlevel / 2)) / magnificationlevel) + + + If e.Button = Windows.Forms.MouseButtons.Left Then + undo.redoStack.Clear() + lastpoint = thisPoint + preparecooldown() + + If selectedtool = "Pixel Placer" AndAlso pixalplacermovable = True Then + If thisPoint.X < canvasbitmap.Width AndAlso thisPoint.X > -1 Then + If thisPoint.Y < canvasbitmap.Height AndAlso thisPoint.Y > -1 Then + canvasbitmap.SetPixel(thisPoint.X, thisPoint.Y, drawingcolour) 'set the pixel on the canvas + picdrawingdisplay.Invalidate() 'refresh the picture from the canvas + End If + End If + End If + + If selectedtool = "Pencil" Then + mousePath.AddLine(thisPoint.X, thisPoint.Y, thisPoint.X, thisPoint.Y) + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), pencilwidth) + graphicsbitmap.DrawPath(CurrentPen, mousePath) + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Square Tool" Then + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Oval Tool" Then + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Line Tool" Then + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Text Tool" Then + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Eracer" Then + Dim CurrentPen = New Pen(Color.FromArgb(255, canvascolor), eracerwidth) + Dim halfsize As Single = eracerwidth / 2 + If eracertype = "circle" Then + graphicsbitmap.DrawEllipse(CurrentPen, thisPoint.X - halfsize, thisPoint.Y - halfsize, eracerwidth, eracerwidth) + Else + graphicsbitmap.DrawRectangle(CurrentPen, thisPoint.X - halfsize, thisPoint.Y - halfsize, eracerwidth, eracerwidth) + End If + picdrawingdisplay.Invalidate() + End If + + If selectedtool = "Paint Brush" Then + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, drawingcolour)) + Dim halfsize As Single = paintbrushwidth / 2 + If paintbrushtype = "circle" Then + graphicsbitmap.FillEllipse(CurrentBrush, thisPoint.X - halfsize, thisPoint.Y - halfsize, paintbrushwidth, paintbrushwidth) + Else + graphicsbitmap.FillRectangle(CurrentBrush, thisPoint.X - halfsize, thisPoint.Y - halfsize, paintbrushwidth, paintbrushwidth) + End If + picdrawingdisplay.Invalidate() + End If + End If + + End Sub + + Private Sub picdrawingdisplay_MouseUp(sender As Object, e As MouseEventArgs) Handles picdrawingdisplay.MouseUp + + thisPoint.X = CInt((e.Location.X - (magnificationlevel / 2)) / magnificationlevel) + thisPoint.Y = CInt((e.Location.Y - (magnificationlevel / 2)) / magnificationlevel) + + If selectedtool = "Pencil" Then + If e.Button = Windows.Forms.MouseButtons.Left Then + mousePath.Reset() + End If + End If + + If selectedtool = "Square Tool" Then + picdrawingdisplay.Invalidate() + currentlydrawingsquare = False + End If + + If selectedtool = "Oval Tool" Then + picdrawingdisplay.Invalidate() + currentlydrawingoval = False + End If + + + If selectedtool = "Line Tool" Then + picdrawingdisplay.Invalidate() + currentlydrawingline = False + End If + + If selectedtool = "Text Tool" Then + picdrawingdisplay.Invalidate() + currentlydrawingtext = False + End If + + Using g As Graphics = Graphics.FromImage(canvasbitmap) + g.DrawImage(previewcanvasbitmap, 0, 0) + End Using + previewcanvasbitmap = New Bitmap(canvasbitmap.Width, canvasbitmap.Height) + picdrawingdisplay.Invalidate() + preparecooldown() + + End Sub + + Private Sub colourpallet1_Paint(sender As Object, e As MouseEventArgs) Handles colourpallet1.Click, colourpallet2.Click, colourpallet3.Click, colourpallet4.Click, colourpallet5.Click, colourpallet6.Click, colourpallet7.Click, colourpallet8.Click, colourpallet9.Click, colourpallet10.Click, colourpallet11.Click, colourpallet12.Click, colourpallet13.Click, colourpallet14.Click, colourpallet15.Click, colourpallet16.Click, colourpallet17.Click, colourpallet18.Click, colourpallet19.Click, colourpallet20.Click, colourpallet21.Click, colourpallet22.Click, colourpallet23.Click, colourpallet24.Click, colourpallet25.Click, colourpallet26.Click, colourpallet27.Click, colourpallet28.Click, colourpallet29.Click, colourpallet30.Click, colourpallet31.Click, colourpallet32.Click, colourpallet33.Click, colourpallet34.Click, colourpallet35.Click, colourpallet36.Click, colourpallet37.Click, colourpallet38.Click, colourpallet39.Click, colourpallet40.Click, colourpallet41.Click, colourpallet42.Click, colourpallet43.Click, colourpallet44.Click, colourpallet45.Click, colourpallet46.Click, colourpallet47.Click, colourpallet48.Click, colourpallet49.Click, colourpallet50.Click, colourpallet51.Click, colourpallet52.Click, colourpallet53.Click, colourpallet54.Click, colourpallet55.Click, colourpallet56.Click, colourpallet57.Click, colourpallet58.Click, colourpallet59.Click, colourpallet60.Click, colourpallet61.Click, colourpallet62.Click, colourpallet63.Click, colourpallet64.Click, colourpallet65.Click, colourpallet66.Click, colourpallet67.Click, colourpallet68.Click, colourpallet69.Click, colourpallet70.Click, colourpallet71.Click, colourpallet72.Click, colourpallet73.Click, colourpallet74.Click, colourpallet75.Click, colourpallet76.Click, colourpallet77.Click, colourpallet78.Click, colourpallet79.Click, colourpallet80.Click, colourpallet81.Click, colourpallet82.Click, colourpallet83.Click, colourpallet84.Click, colourpallet85.Click, colourpallet86.Click, colourpallet87.Click, colourpallet88.Click, colourpallet89.Click, colourpallet90.Click, colourpallet91.Click, colourpallet92.Click, colourpallet93.Click, colourpallet94.Click, colourpallet95.Click, colourpallet96.Click, colourpallet97.Click, colourpallet98.Click, colourpallet99.Click, colourpallet100.Click, colourpallet101.Click, colourpallet102.Click, colourpallet103.Click, colourpallet104.Click, colourpallet105.Click, colourpallet106.Click, colourpallet107.Click, colourpallet108.Click, colourpallet109.Click, colourpallet110.Click, colourpallet111.Click, colourpallet112.Click, colourpallet113.Click, colourpallet114.Click, colourpallet115.Click, colourpallet116.Click, colourpallet117.Click, colourpallet118.Click, colourpallet119.Click, colourpallet120.Click, colourpallet121.Click, colourpallet122.Click, colourpallet123.Click, colourpallet124.Click, colourpallet125.Click, colourpallet126.Click, colourpallet127.Click, colourpallet128.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + drawingcolour = sender.backcolor + setuppreview() + settoolcolours() + ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then + If ShiftOSDesktop.boughtartpadcustompallets = True Then + pnlpalletsize.Show() + txtcolorpalletheight.Text = colourpallet1.Height + txtcolorpalletwidth.Text = colourpallet1.Width + txtsidespace.Text = colourpallet1.Margin.Left + txttopspace.Text = colourpallet1.Margin.Bottom + End If + Else + Select Case sender.name.ToString + Case "colourpallet1" : Colour_Picker.colourtochange = "artpallet1" : Colour_Picker.oldcolour = colourpallet1.BackColor + Case "colourpallet2" : Colour_Picker.colourtochange = "artpallet2" : Colour_Picker.oldcolour = colourpallet2.BackColor + Case "colourpallet3" : Colour_Picker.colourtochange = "artpallet3" : Colour_Picker.oldcolour = colourpallet3.BackColor + Case "colourpallet4" : Colour_Picker.colourtochange = "artpallet4" : Colour_Picker.oldcolour = colourpallet4.BackColor + Case "colourpallet5" : Colour_Picker.colourtochange = "artpallet5" : Colour_Picker.oldcolour = colourpallet5.BackColor + Case "colourpallet6" : Colour_Picker.colourtochange = "artpallet6" : Colour_Picker.oldcolour = colourpallet6.BackColor + Case "colourpallet7" : Colour_Picker.colourtochange = "artpallet7" : Colour_Picker.oldcolour = colourpallet7.BackColor + Case "colourpallet8" : Colour_Picker.colourtochange = "artpallet8" : Colour_Picker.oldcolour = colourpallet8.BackColor + Case "colourpallet9" : Colour_Picker.colourtochange = "artpallet9" : Colour_Picker.oldcolour = colourpallet9.BackColor + Case "colourpallet10" : Colour_Picker.colourtochange = "artpallet10" : Colour_Picker.oldcolour = colourpallet10.BackColor + Case "colourpallet11" : Colour_Picker.colourtochange = "artpallet11" : Colour_Picker.oldcolour = colourpallet11.BackColor + Case "colourpallet12" : Colour_Picker.colourtochange = "artpallet12" : Colour_Picker.oldcolour = colourpallet12.BackColor + Case "colourpallet13" : Colour_Picker.colourtochange = "artpallet13" : Colour_Picker.oldcolour = colourpallet13.BackColor + Case "colourpallet14" : Colour_Picker.colourtochange = "artpallet14" : Colour_Picker.oldcolour = colourpallet14.BackColor + Case "colourpallet15" : Colour_Picker.colourtochange = "artpallet15" : Colour_Picker.oldcolour = colourpallet15.BackColor + Case "colourpallet16" : Colour_Picker.colourtochange = "artpallet16" : Colour_Picker.oldcolour = colourpallet16.BackColor + Case "colourpallet17" : Colour_Picker.colourtochange = "artpallet17" : Colour_Picker.oldcolour = colourpallet17.BackColor + Case "colourpallet18" : Colour_Picker.colourtochange = "artpallet18" : Colour_Picker.oldcolour = colourpallet18.BackColor + Case "colourpallet19" : Colour_Picker.colourtochange = "artpallet19" : Colour_Picker.oldcolour = colourpallet19.BackColor + Case "colourpallet20" : Colour_Picker.colourtochange = "artpallet20" : Colour_Picker.oldcolour = colourpallet20.BackColor + Case "colourpallet21" : Colour_Picker.colourtochange = "artpallet21" : Colour_Picker.oldcolour = colourpallet21.BackColor + Case "colourpallet22" : Colour_Picker.colourtochange = "artpallet22" : Colour_Picker.oldcolour = colourpallet22.BackColor + Case "colourpallet23" : Colour_Picker.colourtochange = "artpallet23" : Colour_Picker.oldcolour = colourpallet23.BackColor + Case "colourpallet24" : Colour_Picker.colourtochange = "artpallet24" : Colour_Picker.oldcolour = colourpallet24.BackColor + Case "colourpallet25" : Colour_Picker.colourtochange = "artpallet25" : Colour_Picker.oldcolour = colourpallet25.BackColor + Case "colourpallet26" : Colour_Picker.colourtochange = "artpallet26" : Colour_Picker.oldcolour = colourpallet26.BackColor + Case "colourpallet27" : Colour_Picker.colourtochange = "artpallet27" : Colour_Picker.oldcolour = colourpallet27.BackColor + Case "colourpallet28" : Colour_Picker.colourtochange = "artpallet28" : Colour_Picker.oldcolour = colourpallet28.BackColor + Case "colourpallet29" : Colour_Picker.colourtochange = "artpallet29" : Colour_Picker.oldcolour = colourpallet29.BackColor + Case "colourpallet30" : Colour_Picker.colourtochange = "artpallet30" : Colour_Picker.oldcolour = colourpallet30.BackColor + Case "colourpallet31" : Colour_Picker.colourtochange = "artpallet31" : Colour_Picker.oldcolour = colourpallet31.BackColor + Case "colourpallet32" : Colour_Picker.colourtochange = "artpallet32" : Colour_Picker.oldcolour = colourpallet32.BackColor + Case "colourpallet33" : Colour_Picker.colourtochange = "artpallet33" : Colour_Picker.oldcolour = colourpallet33.BackColor + Case "colourpallet34" : Colour_Picker.colourtochange = "artpallet34" : Colour_Picker.oldcolour = colourpallet34.BackColor + Case "colourpallet35" : Colour_Picker.colourtochange = "artpallet35" : Colour_Picker.oldcolour = colourpallet35.BackColor + Case "colourpallet36" : Colour_Picker.colourtochange = "artpallet36" : Colour_Picker.oldcolour = colourpallet36.BackColor + Case "colourpallet37" : Colour_Picker.colourtochange = "artpallet37" : Colour_Picker.oldcolour = colourpallet37.BackColor + Case "colourpallet38" : Colour_Picker.colourtochange = "artpallet38" : Colour_Picker.oldcolour = colourpallet38.BackColor + Case "colourpallet39" : Colour_Picker.colourtochange = "artpallet39" : Colour_Picker.oldcolour = colourpallet39.BackColor + Case "colourpallet40" : Colour_Picker.colourtochange = "artpallet40" : Colour_Picker.oldcolour = colourpallet40.BackColor + Case "colourpallet41" : Colour_Picker.colourtochange = "artpallet41" : Colour_Picker.oldcolour = colourpallet41.BackColor + Case "colourpallet42" : Colour_Picker.colourtochange = "artpallet42" : Colour_Picker.oldcolour = colourpallet42.BackColor + Case "colourpallet43" : Colour_Picker.colourtochange = "artpallet43" : Colour_Picker.oldcolour = colourpallet43.BackColor + Case "colourpallet44" : Colour_Picker.colourtochange = "artpallet44" : Colour_Picker.oldcolour = colourpallet44.BackColor + Case "colourpallet45" : Colour_Picker.colourtochange = "artpallet45" : Colour_Picker.oldcolour = colourpallet45.BackColor + Case "colourpallet46" : Colour_Picker.colourtochange = "artpallet46" : Colour_Picker.oldcolour = colourpallet46.BackColor + Case "colourpallet47" : Colour_Picker.colourtochange = "artpallet47" : Colour_Picker.oldcolour = colourpallet47.BackColor + Case "colourpallet48" : Colour_Picker.colourtochange = "artpallet48" : Colour_Picker.oldcolour = colourpallet48.BackColor + Case "colourpallet49" : Colour_Picker.colourtochange = "artpallet49" : Colour_Picker.oldcolour = colourpallet49.BackColor + Case "colourpallet50" : Colour_Picker.colourtochange = "artpallet50" : Colour_Picker.oldcolour = colourpallet50.BackColor + Case "colourpallet51" : Colour_Picker.colourtochange = "artpallet51" : Colour_Picker.oldcolour = colourpallet51.BackColor + Case "colourpallet52" : Colour_Picker.colourtochange = "artpallet52" : Colour_Picker.oldcolour = colourpallet52.BackColor + Case "colourpallet53" : Colour_Picker.colourtochange = "artpallet53" : Colour_Picker.oldcolour = colourpallet53.BackColor + Case "colourpallet54" : Colour_Picker.colourtochange = "artpallet54" : Colour_Picker.oldcolour = colourpallet54.BackColor + Case "colourpallet55" : Colour_Picker.colourtochange = "artpallet55" : Colour_Picker.oldcolour = colourpallet55.BackColor + Case "colourpallet56" : Colour_Picker.colourtochange = "artpallet56" : Colour_Picker.oldcolour = colourpallet56.BackColor + Case "colourpallet57" : Colour_Picker.colourtochange = "artpallet57" : Colour_Picker.oldcolour = colourpallet57.BackColor + Case "colourpallet58" : Colour_Picker.colourtochange = "artpallet58" : Colour_Picker.oldcolour = colourpallet58.BackColor + Case "colourpallet59" : Colour_Picker.colourtochange = "artpallet59" : Colour_Picker.oldcolour = colourpallet59.BackColor + Case "colourpallet60" : Colour_Picker.colourtochange = "artpallet60" : Colour_Picker.oldcolour = colourpallet60.BackColor + Case "colourpallet61" : Colour_Picker.colourtochange = "artpallet61" : Colour_Picker.oldcolour = colourpallet61.BackColor + Case "colourpallet62" : Colour_Picker.colourtochange = "artpallet62" : Colour_Picker.oldcolour = colourpallet62.BackColor + Case "colourpallet63" : Colour_Picker.colourtochange = "artpallet63" : Colour_Picker.oldcolour = colourpallet63.BackColor + Case "colourpallet64" : Colour_Picker.colourtochange = "artpallet64" : Colour_Picker.oldcolour = colourpallet64.BackColor + Case "colourpallet65" : Colour_Picker.colourtochange = "artpallet65" : Colour_Picker.oldcolour = colourpallet65.BackColor + Case "colourpallet66" : Colour_Picker.colourtochange = "artpallet66" : Colour_Picker.oldcolour = colourpallet66.BackColor + Case "colourpallet67" : Colour_Picker.colourtochange = "artpallet67" : Colour_Picker.oldcolour = colourpallet67.BackColor + Case "colourpallet68" : Colour_Picker.colourtochange = "artpallet68" : Colour_Picker.oldcolour = colourpallet68.BackColor + Case "colourpallet69" : Colour_Picker.colourtochange = "artpallet69" : Colour_Picker.oldcolour = colourpallet69.BackColor + Case "colourpallet70" : Colour_Picker.colourtochange = "artpallet70" : Colour_Picker.oldcolour = colourpallet70.BackColor + Case "colourpallet71" : Colour_Picker.colourtochange = "artpallet71" : Colour_Picker.oldcolour = colourpallet71.BackColor + Case "colourpallet72" : Colour_Picker.colourtochange = "artpallet72" : Colour_Picker.oldcolour = colourpallet72.BackColor + Case "colourpallet73" : Colour_Picker.colourtochange = "artpallet73" : Colour_Picker.oldcolour = colourpallet73.BackColor + Case "colourpallet74" : Colour_Picker.colourtochange = "artpallet74" : Colour_Picker.oldcolour = colourpallet74.BackColor + Case "colourpallet75" : Colour_Picker.colourtochange = "artpallet75" : Colour_Picker.oldcolour = colourpallet75.BackColor + Case "colourpallet76" : Colour_Picker.colourtochange = "artpallet76" : Colour_Picker.oldcolour = colourpallet76.BackColor + Case "colourpallet77" : Colour_Picker.colourtochange = "artpallet77" : Colour_Picker.oldcolour = colourpallet77.BackColor + Case "colourpallet78" : Colour_Picker.colourtochange = "artpallet78" : Colour_Picker.oldcolour = colourpallet78.BackColor + Case "colourpallet79" : Colour_Picker.colourtochange = "artpallet79" : Colour_Picker.oldcolour = colourpallet79.BackColor + Case "colourpallet80" : Colour_Picker.colourtochange = "artpallet80" : Colour_Picker.oldcolour = colourpallet80.BackColor + Case "colourpallet81" : Colour_Picker.colourtochange = "artpallet81" : Colour_Picker.oldcolour = colourpallet81.BackColor + Case "colourpallet82" : Colour_Picker.colourtochange = "artpallet82" : Colour_Picker.oldcolour = colourpallet82.BackColor + Case "colourpallet83" : Colour_Picker.colourtochange = "artpallet83" : Colour_Picker.oldcolour = colourpallet83.BackColor + Case "colourpallet84" : Colour_Picker.colourtochange = "artpallet84" : Colour_Picker.oldcolour = colourpallet84.BackColor + Case "colourpallet85" : Colour_Picker.colourtochange = "artpallet85" : Colour_Picker.oldcolour = colourpallet85.BackColor + Case "colourpallet86" : Colour_Picker.colourtochange = "artpallet86" : Colour_Picker.oldcolour = colourpallet86.BackColor + Case "colourpallet87" : Colour_Picker.colourtochange = "artpallet87" : Colour_Picker.oldcolour = colourpallet87.BackColor + Case "colourpallet88" : Colour_Picker.colourtochange = "artpallet88" : Colour_Picker.oldcolour = colourpallet88.BackColor + Case "colourpallet89" : Colour_Picker.colourtochange = "artpallet89" : Colour_Picker.oldcolour = colourpallet89.BackColor + Case "colourpallet90" : Colour_Picker.colourtochange = "artpallet90" : Colour_Picker.oldcolour = colourpallet90.BackColor + Case "colourpallet91" : Colour_Picker.colourtochange = "artpallet91" : Colour_Picker.oldcolour = colourpallet91.BackColor + Case "colourpallet92" : Colour_Picker.colourtochange = "artpallet92" : Colour_Picker.oldcolour = colourpallet92.BackColor + Case "colourpallet93" : Colour_Picker.colourtochange = "artpallet93" : Colour_Picker.oldcolour = colourpallet93.BackColor + Case "colourpallet94" : Colour_Picker.colourtochange = "artpallet94" : Colour_Picker.oldcolour = colourpallet94.BackColor + Case "colourpallet95" : Colour_Picker.colourtochange = "artpallet95" : Colour_Picker.oldcolour = colourpallet95.BackColor + Case "colourpallet96" : Colour_Picker.colourtochange = "artpallet96" : Colour_Picker.oldcolour = colourpallet96.BackColor + Case "colourpallet97" : Colour_Picker.colourtochange = "artpallet97" : Colour_Picker.oldcolour = colourpallet97.BackColor + Case "colourpallet98" : Colour_Picker.colourtochange = "artpallet98" : Colour_Picker.oldcolour = colourpallet98.BackColor + Case "colourpallet99" : Colour_Picker.colourtochange = "artpallet99" : Colour_Picker.oldcolour = colourpallet99.BackColor + Case "colourpallet100" : Colour_Picker.colourtochange = "artpallet100" : Colour_Picker.oldcolour = colourpallet100.BackColor + Case "colourpallet101" : Colour_Picker.colourtochange = "artpallet101" : Colour_Picker.oldcolour = colourpallet101.BackColor + Case "colourpallet102" : Colour_Picker.colourtochange = "artpallet102" : Colour_Picker.oldcolour = colourpallet102.BackColor + Case "colourpallet103" : Colour_Picker.colourtochange = "artpallet103" : Colour_Picker.oldcolour = colourpallet103.BackColor + Case "colourpallet104" : Colour_Picker.colourtochange = "artpallet104" : Colour_Picker.oldcolour = colourpallet104.BackColor + Case "colourpallet105" : Colour_Picker.colourtochange = "artpallet105" : Colour_Picker.oldcolour = colourpallet105.BackColor + Case "colourpallet106" : Colour_Picker.colourtochange = "artpallet106" : Colour_Picker.oldcolour = colourpallet106.BackColor + Case "colourpallet107" : Colour_Picker.colourtochange = "artpallet107" : Colour_Picker.oldcolour = colourpallet107.BackColor + Case "colourpallet108" : Colour_Picker.colourtochange = "artpallet108" : Colour_Picker.oldcolour = colourpallet108.BackColor + Case "colourpallet109" : Colour_Picker.colourtochange = "artpallet109" : Colour_Picker.oldcolour = colourpallet109.BackColor + Case "colourpallet110" : Colour_Picker.colourtochange = "artpallet110" : Colour_Picker.oldcolour = colourpallet110.BackColor + Case "colourpallet111" : Colour_Picker.colourtochange = "artpallet111" : Colour_Picker.oldcolour = colourpallet111.BackColor + Case "colourpallet112" : Colour_Picker.colourtochange = "artpallet112" : Colour_Picker.oldcolour = colourpallet112.BackColor + Case "colourpallet113" : Colour_Picker.colourtochange = "artpallet113" : Colour_Picker.oldcolour = colourpallet113.BackColor + Case "colourpallet114" : Colour_Picker.colourtochange = "artpallet114" : Colour_Picker.oldcolour = colourpallet114.BackColor + Case "colourpallet115" : Colour_Picker.colourtochange = "artpallet115" : Colour_Picker.oldcolour = colourpallet115.BackColor + Case "colourpallet116" : Colour_Picker.colourtochange = "artpallet116" : Colour_Picker.oldcolour = colourpallet116.BackColor + Case "colourpallet117" : Colour_Picker.colourtochange = "artpallet117" : Colour_Picker.oldcolour = colourpallet117.BackColor + Case "colourpallet118" : Colour_Picker.colourtochange = "artpallet118" : Colour_Picker.oldcolour = colourpallet118.BackColor + Case "colourpallet119" : Colour_Picker.colourtochange = "artpallet119" : Colour_Picker.oldcolour = colourpallet119.BackColor + Case "colourpallet120" : Colour_Picker.colourtochange = "artpallet120" : Colour_Picker.oldcolour = colourpallet120.BackColor + Case "colourpallet121" : Colour_Picker.colourtochange = "artpallet121" : Colour_Picker.oldcolour = colourpallet121.BackColor + Case "colourpallet122" : Colour_Picker.colourtochange = "artpallet122" : Colour_Picker.oldcolour = colourpallet122.BackColor + Case "colourpallet123" : Colour_Picker.colourtochange = "artpallet123" : Colour_Picker.oldcolour = colourpallet123.BackColor + Case "colourpallet124" : Colour_Picker.colourtochange = "artpallet124" : Colour_Picker.oldcolour = colourpallet124.BackColor + Case "colourpallet125" : Colour_Picker.colourtochange = "artpallet125" : Colour_Picker.oldcolour = colourpallet125.BackColor + Case "colourpallet126" : Colour_Picker.colourtochange = "artpallet126" : Colour_Picker.oldcolour = colourpallet126.BackColor + Case "colourpallet127" : Colour_Picker.colourtochange = "artpallet127" : Colour_Picker.oldcolour = colourpallet127.BackColor + Case "colourpallet128" : Colour_Picker.colourtochange = "artpallet128" : Colour_Picker.oldcolour = colourpallet128.BackColor + + End Select + Colour_Picker.Show() + End If + End Sub + + Public Sub loadcolors() + Dim allwhite As Boolean = True + For i = 0 To 127 + If ShiftOSDesktop.artpadcolourpallets(i) = Nothing Then + Else + allwhite = False + End If + Next + If allwhite = True Then + For i = 0 To 127 + ShiftOSDesktop.artpadcolourpallets(i) = Color.Black + Next + End If + colourpallet1.BackColor = ShiftOSDesktop.artpadcolourpallets(0) + colourpallet2.BackColor = ShiftOSDesktop.artpadcolourpallets(1) + colourpallet3.BackColor = ShiftOSDesktop.artpadcolourpallets(2) + colourpallet4.BackColor = ShiftOSDesktop.artpadcolourpallets(3) + colourpallet5.BackColor = ShiftOSDesktop.artpadcolourpallets(4) + colourpallet6.BackColor = ShiftOSDesktop.artpadcolourpallets(5) + colourpallet7.BackColor = ShiftOSDesktop.artpadcolourpallets(6) + colourpallet8.BackColor = ShiftOSDesktop.artpadcolourpallets(7) + colourpallet9.BackColor = ShiftOSDesktop.artpadcolourpallets(8) + colourpallet10.BackColor = ShiftOSDesktop.artpadcolourpallets(9) + colourpallet11.BackColor = ShiftOSDesktop.artpadcolourpallets(10) + colourpallet12.BackColor = ShiftOSDesktop.artpadcolourpallets(11) + colourpallet13.BackColor = ShiftOSDesktop.artpadcolourpallets(12) + colourpallet14.BackColor = ShiftOSDesktop.artpadcolourpallets(13) + colourpallet15.BackColor = ShiftOSDesktop.artpadcolourpallets(14) + colourpallet16.BackColor = ShiftOSDesktop.artpadcolourpallets(15) + colourpallet17.BackColor = ShiftOSDesktop.artpadcolourpallets(16) + colourpallet18.BackColor = ShiftOSDesktop.artpadcolourpallets(17) + colourpallet19.BackColor = ShiftOSDesktop.artpadcolourpallets(18) + colourpallet20.BackColor = ShiftOSDesktop.artpadcolourpallets(19) + colourpallet21.BackColor = ShiftOSDesktop.artpadcolourpallets(20) + colourpallet22.BackColor = ShiftOSDesktop.artpadcolourpallets(21) + colourpallet23.BackColor = ShiftOSDesktop.artpadcolourpallets(22) + colourpallet24.BackColor = ShiftOSDesktop.artpadcolourpallets(23) + colourpallet25.BackColor = ShiftOSDesktop.artpadcolourpallets(24) + colourpallet26.BackColor = ShiftOSDesktop.artpadcolourpallets(25) + colourpallet27.BackColor = ShiftOSDesktop.artpadcolourpallets(26) + colourpallet28.BackColor = ShiftOSDesktop.artpadcolourpallets(27) + colourpallet29.BackColor = ShiftOSDesktop.artpadcolourpallets(28) + colourpallet30.BackColor = ShiftOSDesktop.artpadcolourpallets(29) + colourpallet31.BackColor = ShiftOSDesktop.artpadcolourpallets(30) + colourpallet32.BackColor = ShiftOSDesktop.artpadcolourpallets(31) + colourpallet33.BackColor = ShiftOSDesktop.artpadcolourpallets(32) + colourpallet34.BackColor = ShiftOSDesktop.artpadcolourpallets(33) + colourpallet35.BackColor = ShiftOSDesktop.artpadcolourpallets(34) + colourpallet36.BackColor = ShiftOSDesktop.artpadcolourpallets(35) + colourpallet37.BackColor = ShiftOSDesktop.artpadcolourpallets(36) + colourpallet38.BackColor = ShiftOSDesktop.artpadcolourpallets(37) + colourpallet39.BackColor = ShiftOSDesktop.artpadcolourpallets(38) + colourpallet40.BackColor = ShiftOSDesktop.artpadcolourpallets(39) + colourpallet41.BackColor = ShiftOSDesktop.artpadcolourpallets(40) + colourpallet42.BackColor = ShiftOSDesktop.artpadcolourpallets(41) + colourpallet43.BackColor = ShiftOSDesktop.artpadcolourpallets(42) + colourpallet44.BackColor = ShiftOSDesktop.artpadcolourpallets(43) + colourpallet45.BackColor = ShiftOSDesktop.artpadcolourpallets(44) + colourpallet46.BackColor = ShiftOSDesktop.artpadcolourpallets(45) + colourpallet47.BackColor = ShiftOSDesktop.artpadcolourpallets(46) + colourpallet48.BackColor = ShiftOSDesktop.artpadcolourpallets(47) + colourpallet49.BackColor = ShiftOSDesktop.artpadcolourpallets(48) + colourpallet50.BackColor = ShiftOSDesktop.artpadcolourpallets(49) + colourpallet51.BackColor = ShiftOSDesktop.artpadcolourpallets(50) + colourpallet52.BackColor = ShiftOSDesktop.artpadcolourpallets(51) + colourpallet53.BackColor = ShiftOSDesktop.artpadcolourpallets(52) + colourpallet54.BackColor = ShiftOSDesktop.artpadcolourpallets(53) + colourpallet55.BackColor = ShiftOSDesktop.artpadcolourpallets(54) + colourpallet56.BackColor = ShiftOSDesktop.artpadcolourpallets(55) + colourpallet57.BackColor = ShiftOSDesktop.artpadcolourpallets(56) + colourpallet58.BackColor = ShiftOSDesktop.artpadcolourpallets(57) + colourpallet59.BackColor = ShiftOSDesktop.artpadcolourpallets(58) + colourpallet60.BackColor = ShiftOSDesktop.artpadcolourpallets(59) + colourpallet61.BackColor = ShiftOSDesktop.artpadcolourpallets(60) + colourpallet62.BackColor = ShiftOSDesktop.artpadcolourpallets(61) + colourpallet63.BackColor = ShiftOSDesktop.artpadcolourpallets(62) + colourpallet64.BackColor = ShiftOSDesktop.artpadcolourpallets(63) + colourpallet65.BackColor = ShiftOSDesktop.artpadcolourpallets(64) + colourpallet66.BackColor = ShiftOSDesktop.artpadcolourpallets(65) + colourpallet67.BackColor = ShiftOSDesktop.artpadcolourpallets(66) + colourpallet68.BackColor = ShiftOSDesktop.artpadcolourpallets(67) + colourpallet69.BackColor = ShiftOSDesktop.artpadcolourpallets(68) + colourpallet70.BackColor = ShiftOSDesktop.artpadcolourpallets(69) + colourpallet71.BackColor = ShiftOSDesktop.artpadcolourpallets(70) + colourpallet72.BackColor = ShiftOSDesktop.artpadcolourpallets(71) + colourpallet73.BackColor = ShiftOSDesktop.artpadcolourpallets(72) + colourpallet74.BackColor = ShiftOSDesktop.artpadcolourpallets(73) + colourpallet75.BackColor = ShiftOSDesktop.artpadcolourpallets(74) + colourpallet76.BackColor = ShiftOSDesktop.artpadcolourpallets(75) + colourpallet77.BackColor = ShiftOSDesktop.artpadcolourpallets(76) + colourpallet78.BackColor = ShiftOSDesktop.artpadcolourpallets(77) + colourpallet79.BackColor = ShiftOSDesktop.artpadcolourpallets(78) + colourpallet80.BackColor = ShiftOSDesktop.artpadcolourpallets(79) + colourpallet81.BackColor = ShiftOSDesktop.artpadcolourpallets(80) + colourpallet82.BackColor = ShiftOSDesktop.artpadcolourpallets(81) + colourpallet83.BackColor = ShiftOSDesktop.artpadcolourpallets(82) + colourpallet84.BackColor = ShiftOSDesktop.artpadcolourpallets(83) + colourpallet85.BackColor = ShiftOSDesktop.artpadcolourpallets(84) + colourpallet86.BackColor = ShiftOSDesktop.artpadcolourpallets(85) + colourpallet87.BackColor = ShiftOSDesktop.artpadcolourpallets(86) + colourpallet88.BackColor = ShiftOSDesktop.artpadcolourpallets(87) + colourpallet89.BackColor = ShiftOSDesktop.artpadcolourpallets(88) + colourpallet90.BackColor = ShiftOSDesktop.artpadcolourpallets(89) + colourpallet91.BackColor = ShiftOSDesktop.artpadcolourpallets(90) + colourpallet92.BackColor = ShiftOSDesktop.artpadcolourpallets(91) + colourpallet93.BackColor = ShiftOSDesktop.artpadcolourpallets(92) + colourpallet94.BackColor = ShiftOSDesktop.artpadcolourpallets(93) + colourpallet95.BackColor = ShiftOSDesktop.artpadcolourpallets(94) + colourpallet96.BackColor = ShiftOSDesktop.artpadcolourpallets(95) + colourpallet97.BackColor = ShiftOSDesktop.artpadcolourpallets(96) + colourpallet98.BackColor = ShiftOSDesktop.artpadcolourpallets(97) + colourpallet99.BackColor = ShiftOSDesktop.artpadcolourpallets(98) + colourpallet100.BackColor = ShiftOSDesktop.artpadcolourpallets(99) + colourpallet101.BackColor = ShiftOSDesktop.artpadcolourpallets(100) + colourpallet102.BackColor = ShiftOSDesktop.artpadcolourpallets(101) + colourpallet103.BackColor = ShiftOSDesktop.artpadcolourpallets(102) + colourpallet104.BackColor = ShiftOSDesktop.artpadcolourpallets(103) + colourpallet105.BackColor = ShiftOSDesktop.artpadcolourpallets(104) + colourpallet106.BackColor = ShiftOSDesktop.artpadcolourpallets(105) + colourpallet107.BackColor = ShiftOSDesktop.artpadcolourpallets(106) + colourpallet108.BackColor = ShiftOSDesktop.artpadcolourpallets(107) + colourpallet109.BackColor = ShiftOSDesktop.artpadcolourpallets(108) + colourpallet110.BackColor = ShiftOSDesktop.artpadcolourpallets(109) + colourpallet111.BackColor = ShiftOSDesktop.artpadcolourpallets(110) + colourpallet112.BackColor = ShiftOSDesktop.artpadcolourpallets(111) + colourpallet113.BackColor = ShiftOSDesktop.artpadcolourpallets(112) + colourpallet114.BackColor = ShiftOSDesktop.artpadcolourpallets(113) + colourpallet115.BackColor = ShiftOSDesktop.artpadcolourpallets(114) + colourpallet116.BackColor = ShiftOSDesktop.artpadcolourpallets(115) + colourpallet117.BackColor = ShiftOSDesktop.artpadcolourpallets(116) + colourpallet118.BackColor = ShiftOSDesktop.artpadcolourpallets(117) + colourpallet119.BackColor = ShiftOSDesktop.artpadcolourpallets(118) + colourpallet120.BackColor = ShiftOSDesktop.artpadcolourpallets(119) + colourpallet121.BackColor = ShiftOSDesktop.artpadcolourpallets(120) + colourpallet122.BackColor = ShiftOSDesktop.artpadcolourpallets(121) + colourpallet123.BackColor = ShiftOSDesktop.artpadcolourpallets(122) + colourpallet124.BackColor = ShiftOSDesktop.artpadcolourpallets(123) + colourpallet125.BackColor = ShiftOSDesktop.artpadcolourpallets(124) + colourpallet126.BackColor = ShiftOSDesktop.artpadcolourpallets(125) + colourpallet127.BackColor = ShiftOSDesktop.artpadcolourpallets(126) + colourpallet128.BackColor = ShiftOSDesktop.artpadcolourpallets(127) + End Sub + + Public Sub savecolors() + ShiftOSDesktop.artpadcolourpallets(0) = colourpallet1.BackColor + ShiftOSDesktop.artpadcolourpallets(1) = colourpallet2.BackColor + ShiftOSDesktop.artpadcolourpallets(2) = colourpallet3.BackColor + ShiftOSDesktop.artpadcolourpallets(3) = colourpallet4.BackColor + ShiftOSDesktop.artpadcolourpallets(4) = colourpallet5.BackColor + ShiftOSDesktop.artpadcolourpallets(5) = colourpallet6.BackColor + ShiftOSDesktop.artpadcolourpallets(6) = colourpallet7.BackColor + ShiftOSDesktop.artpadcolourpallets(7) = colourpallet8.BackColor + ShiftOSDesktop.artpadcolourpallets(8) = colourpallet9.BackColor + ShiftOSDesktop.artpadcolourpallets(9) = colourpallet10.BackColor + ShiftOSDesktop.artpadcolourpallets(10) = colourpallet11.BackColor + ShiftOSDesktop.artpadcolourpallets(11) = colourpallet12.BackColor + ShiftOSDesktop.artpadcolourpallets(12) = colourpallet13.BackColor + ShiftOSDesktop.artpadcolourpallets(13) = colourpallet14.BackColor + ShiftOSDesktop.artpadcolourpallets(14) = colourpallet15.BackColor + ShiftOSDesktop.artpadcolourpallets(15) = colourpallet16.BackColor + ShiftOSDesktop.artpadcolourpallets(16) = colourpallet17.BackColor + ShiftOSDesktop.artpadcolourpallets(17) = colourpallet18.BackColor + ShiftOSDesktop.artpadcolourpallets(18) = colourpallet19.BackColor + ShiftOSDesktop.artpadcolourpallets(19) = colourpallet20.BackColor + ShiftOSDesktop.artpadcolourpallets(20) = colourpallet21.BackColor + ShiftOSDesktop.artpadcolourpallets(21) = colourpallet22.BackColor + ShiftOSDesktop.artpadcolourpallets(22) = colourpallet23.BackColor + ShiftOSDesktop.artpadcolourpallets(23) = colourpallet24.BackColor + ShiftOSDesktop.artpadcolourpallets(24) = colourpallet25.BackColor + ShiftOSDesktop.artpadcolourpallets(25) = colourpallet26.BackColor + ShiftOSDesktop.artpadcolourpallets(26) = colourpallet27.BackColor + ShiftOSDesktop.artpadcolourpallets(27) = colourpallet28.BackColor + ShiftOSDesktop.artpadcolourpallets(28) = colourpallet29.BackColor + ShiftOSDesktop.artpadcolourpallets(29) = colourpallet30.BackColor + ShiftOSDesktop.artpadcolourpallets(30) = colourpallet31.BackColor + ShiftOSDesktop.artpadcolourpallets(31) = colourpallet32.BackColor + ShiftOSDesktop.artpadcolourpallets(32) = colourpallet33.BackColor + ShiftOSDesktop.artpadcolourpallets(33) = colourpallet34.BackColor + ShiftOSDesktop.artpadcolourpallets(34) = colourpallet35.BackColor + ShiftOSDesktop.artpadcolourpallets(35) = colourpallet36.BackColor + ShiftOSDesktop.artpadcolourpallets(36) = colourpallet37.BackColor + ShiftOSDesktop.artpadcolourpallets(37) = colourpallet38.BackColor + ShiftOSDesktop.artpadcolourpallets(38) = colourpallet39.BackColor + ShiftOSDesktop.artpadcolourpallets(39) = colourpallet40.BackColor + ShiftOSDesktop.artpadcolourpallets(40) = colourpallet41.BackColor + ShiftOSDesktop.artpadcolourpallets(41) = colourpallet42.BackColor + ShiftOSDesktop.artpadcolourpallets(42) = colourpallet43.BackColor + ShiftOSDesktop.artpadcolourpallets(43) = colourpallet44.BackColor + ShiftOSDesktop.artpadcolourpallets(44) = colourpallet45.BackColor + ShiftOSDesktop.artpadcolourpallets(45) = colourpallet46.BackColor + ShiftOSDesktop.artpadcolourpallets(46) = colourpallet47.BackColor + ShiftOSDesktop.artpadcolourpallets(47) = colourpallet48.BackColor + ShiftOSDesktop.artpadcolourpallets(48) = colourpallet49.BackColor + ShiftOSDesktop.artpadcolourpallets(49) = colourpallet50.BackColor + ShiftOSDesktop.artpadcolourpallets(50) = colourpallet51.BackColor + ShiftOSDesktop.artpadcolourpallets(51) = colourpallet52.BackColor + ShiftOSDesktop.artpadcolourpallets(52) = colourpallet53.BackColor + ShiftOSDesktop.artpadcolourpallets(53) = colourpallet54.BackColor + ShiftOSDesktop.artpadcolourpallets(54) = colourpallet55.BackColor + ShiftOSDesktop.artpadcolourpallets(55) = colourpallet56.BackColor + ShiftOSDesktop.artpadcolourpallets(56) = colourpallet57.BackColor + ShiftOSDesktop.artpadcolourpallets(57) = colourpallet58.BackColor + ShiftOSDesktop.artpadcolourpallets(58) = colourpallet59.BackColor + ShiftOSDesktop.artpadcolourpallets(59) = colourpallet60.BackColor + ShiftOSDesktop.artpadcolourpallets(60) = colourpallet61.BackColor + ShiftOSDesktop.artpadcolourpallets(61) = colourpallet62.BackColor + ShiftOSDesktop.artpadcolourpallets(62) = colourpallet63.BackColor + ShiftOSDesktop.artpadcolourpallets(63) = colourpallet64.BackColor + ShiftOSDesktop.artpadcolourpallets(64) = colourpallet65.BackColor + ShiftOSDesktop.artpadcolourpallets(65) = colourpallet66.BackColor + ShiftOSDesktop.artpadcolourpallets(66) = colourpallet67.BackColor + ShiftOSDesktop.artpadcolourpallets(67) = colourpallet68.BackColor + ShiftOSDesktop.artpadcolourpallets(68) = colourpallet69.BackColor + ShiftOSDesktop.artpadcolourpallets(69) = colourpallet70.BackColor + ShiftOSDesktop.artpadcolourpallets(70) = colourpallet71.BackColor + ShiftOSDesktop.artpadcolourpallets(71) = colourpallet72.BackColor + ShiftOSDesktop.artpadcolourpallets(72) = colourpallet73.BackColor + ShiftOSDesktop.artpadcolourpallets(73) = colourpallet74.BackColor + ShiftOSDesktop.artpadcolourpallets(74) = colourpallet75.BackColor + ShiftOSDesktop.artpadcolourpallets(75) = colourpallet76.BackColor + ShiftOSDesktop.artpadcolourpallets(76) = colourpallet77.BackColor + ShiftOSDesktop.artpadcolourpallets(77) = colourpallet78.BackColor + ShiftOSDesktop.artpadcolourpallets(78) = colourpallet79.BackColor + ShiftOSDesktop.artpadcolourpallets(79) = colourpallet80.BackColor + ShiftOSDesktop.artpadcolourpallets(80) = colourpallet81.BackColor + ShiftOSDesktop.artpadcolourpallets(81) = colourpallet82.BackColor + ShiftOSDesktop.artpadcolourpallets(82) = colourpallet83.BackColor + ShiftOSDesktop.artpadcolourpallets(83) = colourpallet84.BackColor + ShiftOSDesktop.artpadcolourpallets(84) = colourpallet85.BackColor + ShiftOSDesktop.artpadcolourpallets(85) = colourpallet86.BackColor + ShiftOSDesktop.artpadcolourpallets(86) = colourpallet87.BackColor + ShiftOSDesktop.artpadcolourpallets(87) = colourpallet88.BackColor + ShiftOSDesktop.artpadcolourpallets(88) = colourpallet89.BackColor + ShiftOSDesktop.artpadcolourpallets(89) = colourpallet90.BackColor + ShiftOSDesktop.artpadcolourpallets(90) = colourpallet91.BackColor + ShiftOSDesktop.artpadcolourpallets(91) = colourpallet92.BackColor + ShiftOSDesktop.artpadcolourpallets(92) = colourpallet93.BackColor + ShiftOSDesktop.artpadcolourpallets(93) = colourpallet94.BackColor + ShiftOSDesktop.artpadcolourpallets(94) = colourpallet95.BackColor + ShiftOSDesktop.artpadcolourpallets(95) = colourpallet96.BackColor + ShiftOSDesktop.artpadcolourpallets(96) = colourpallet97.BackColor + ShiftOSDesktop.artpadcolourpallets(97) = colourpallet98.BackColor + ShiftOSDesktop.artpadcolourpallets(98) = colourpallet99.BackColor + ShiftOSDesktop.artpadcolourpallets(99) = colourpallet100.BackColor + ShiftOSDesktop.artpadcolourpallets(100) = colourpallet101.BackColor + ShiftOSDesktop.artpadcolourpallets(101) = colourpallet102.BackColor + ShiftOSDesktop.artpadcolourpallets(102) = colourpallet103.BackColor + ShiftOSDesktop.artpadcolourpallets(103) = colourpallet104.BackColor + ShiftOSDesktop.artpadcolourpallets(104) = colourpallet105.BackColor + ShiftOSDesktop.artpadcolourpallets(105) = colourpallet106.BackColor + ShiftOSDesktop.artpadcolourpallets(106) = colourpallet107.BackColor + ShiftOSDesktop.artpadcolourpallets(107) = colourpallet108.BackColor + ShiftOSDesktop.artpadcolourpallets(108) = colourpallet109.BackColor + ShiftOSDesktop.artpadcolourpallets(109) = colourpallet110.BackColor + ShiftOSDesktop.artpadcolourpallets(110) = colourpallet111.BackColor + ShiftOSDesktop.artpadcolourpallets(111) = colourpallet112.BackColor + ShiftOSDesktop.artpadcolourpallets(112) = colourpallet113.BackColor + ShiftOSDesktop.artpadcolourpallets(113) = colourpallet114.BackColor + ShiftOSDesktop.artpadcolourpallets(114) = colourpallet115.BackColor + ShiftOSDesktop.artpadcolourpallets(115) = colourpallet116.BackColor + ShiftOSDesktop.artpadcolourpallets(116) = colourpallet117.BackColor + ShiftOSDesktop.artpadcolourpallets(117) = colourpallet118.BackColor + ShiftOSDesktop.artpadcolourpallets(118) = colourpallet119.BackColor + ShiftOSDesktop.artpadcolourpallets(119) = colourpallet120.BackColor + ShiftOSDesktop.artpadcolourpallets(120) = colourpallet121.BackColor + ShiftOSDesktop.artpadcolourpallets(121) = colourpallet122.BackColor + ShiftOSDesktop.artpadcolourpallets(122) = colourpallet123.BackColor + ShiftOSDesktop.artpadcolourpallets(123) = colourpallet124.BackColor + ShiftOSDesktop.artpadcolourpallets(124) = colourpallet125.BackColor + ShiftOSDesktop.artpadcolourpallets(125) = colourpallet126.BackColor + ShiftOSDesktop.artpadcolourpallets(126) = colourpallet127.BackColor + ShiftOSDesktop.artpadcolourpallets(127) = colourpallet128.BackColor + End Sub + + Public Sub settoolcolours() + btnpixelsetter.BackColor = drawingcolour + btnpixelplacer.BackColor = drawingcolour + btnpencil.BackColor = drawingcolour + btnfloodfill.BackColor = drawingcolour + btnsquare.BackColor = drawingcolour + btnoval.BackColor = drawingcolour + btnlinetool.BackColor = drawingcolour + btnpaintbrush.BackColor = drawingcolour + btntexttool.BackColor = drawingcolour + End Sub + + Private Sub btnzoomin_Click(sender As Object, e As EventArgs) Handles btnzoomin.Click + If magnificationlevel < 256 Then + magnificationlevel *= 2 + Else + infobox.title = "ArtPad - Magnification Error!" + infobox.textinfo = "You are unable to increase the magnification level any further." & Environment.NewLine & Environment.NewLine & "256x is the highest level of magnification supported by ArtPad!" + infobox.Show() + End If + setmagnification() + End Sub + + Private Sub btnzoomout_Click(sender As Object, e As EventArgs) Handles btnzoomout.Click + If magnificationlevel > 1 Then + magnificationlevel /= 2 + pnldrawingbackground.AutoScrollPosition = New Point(0, 0) + Else + infobox.title = "ArtPad - Magnification Error!" + infobox.textinfo = "You are unable to decrease the magnification level any further." & Environment.NewLine & Environment.NewLine & "Artpad is unable to scale pixels at a level smaller than their actual size!" + infobox.Show() + End If + setmagnification() + End Sub + + Private Sub setmagnification() + magnifyRect.Width = CInt(canvaswidth / magnificationlevel) + magnifyRect.Height = CInt(canvasheight / magnificationlevel) + picdrawingdisplay.Size = New Size(canvaswidth * magnificationlevel, canvasheight * magnificationlevel) + If picdrawingdisplay.Height > 468 AndAlso picdrawingdisplay.Width > 676 Then + picdrawingdisplay.Location = New Point(0, 0) + Else + picdrawingdisplay.Location = New Point((pnldrawingbackground.Width - canvaswidth * magnificationlevel) / 2, (pnldrawingbackground.Height - canvasheight * magnificationlevel) / 2) + End If + picdrawingdisplay.Invalidate() + lblzoomlevel.Text = magnificationlevel & "X" + End Sub + + Private Sub pnlpixelplacer_Click(sender As Object, e As EventArgs) Handles btnpixelplacer.Click + selectedtool = "Pixel Placer" + gettoolsettings(pnlpixelplacersettings) + End Sub + + Private Sub btnpixelplacermovementmode_Click(sender As Object, e As EventArgs) Handles btnpixelplacermovementmode.Click + If pixalplacermovable = False Then + pixalplacermovable = True + btnpixelplacermovementmode.ForeColor = Color.White + btnpixelplacermovementmode.BackColor = Color.Black + btnpixelplacermovementmode.Text = "Deactivate Movement Mode" + lblpixelplacerhelp.Text = "Movement mode is enabled. Click and drag on the canvas to place pixels as you move the mouse. Please use 4x magnification or greater and move the mouse very slowly." + Else + pixalplacermovable = False + btnpixelplacermovementmode.ForeColor = Color.Black + btnpixelplacermovementmode.BackColor = Color.White + btnpixelplacermovementmode.Text = "Activate Movement Mode" + lblpixelplacerhelp.Text = "This tool does not contain any alterable settings. Simply click on the canvas and a pixel will be placed in the spot you click." + End If + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + showsavedialog() + End Sub + + Public Sub showsavedialog() + File_Saver.savingprogram = "artpad" + File_Saver.saveextention = ".pic" + File_Saver.Show() + End Sub + + Public Sub saveimage() + canvasbitmap.Save(savelocation, Imaging.ImageFormat.Bmp) + End Sub + + Private Sub txtnewcanvaswidth_TextChanged(sender As Object, e As EventArgs) Handles txtnewcanvaswidth.TextChanged, txtnewcanvasheight.TextChanged + If txtnewcanvaswidth.Text = "" Or txtnewcanvasheight.Text = "" Then + Else + lbltotalpixels.Text = (Convert.ToInt32(txtnewcanvaswidth.Text) * Convert.ToInt32(txtnewcanvasheight.Text)) + If ShiftOSDesktop.boughtartpadlimitlesspixels = True Then + lbltotalpixels.ForeColor = Color.Black + Else + If (Convert.ToInt32(txtnewcanvaswidth.Text) * Convert.ToInt32(txtnewcanvasheight.Text)) > ShiftOSDesktop.artpadpixellimit Then + lbltotalpixels.ForeColor = Color.Red + Else + lbltotalpixels.ForeColor = Color.Black + End If + End If + End If + + End Sub + + Private Sub btncreate_Click(sender As Object, e As EventArgs) Handles btncreate.Click + If lbltotalpixels.ForeColor = Color.Red Then + infobox.title = "ArtPad - Pixel Limit!" + infobox.textinfo = "You are unable to use this many pixels in your canvas due to it exceeding your current pixel limit." & Environment.NewLine & Environment.NewLine & "Your pixel limit is currently " & ShiftOSDesktop.artpadpixellimit & " Pixels!" + infobox.Show() + Else + If lbltotalpixels.Text = "0" Then + Else + canvaswidth = txtnewcanvaswidth.Text + canvasheight = txtnewcanvasheight.Text + picdrawingdisplay.Show() + setupcanvas() + pnlinitialcanvassettings.Hide() + End If + End If + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + pnlinitialcanvassettings.Hide() + picdrawingdisplay.Show() + End Sub + + Private Sub btnnew_Click(sender As Object, e As EventArgs) Handles btnnew.Click + pnlinitialcanvassettings.Show() + picdrawingdisplay.Hide() + End Sub + + Public Sub setuppreview() + lbltoolselected.Text = selectedtool + picpreview.CreateGraphics.FillRectangle(Brushes.White, 0, 0, 70, 50) + Select Case selectedtool + Case "Square Tool" + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), squarewidth) + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, fillsquarecolor)) + Dim rectdraw As New RectangleF(0, 0, picpreview.Width, picpreview.Height) + Dim correctionamount As Single = squarewidth / 2 + If squarewidth > 0 Then + picpreview.CreateGraphics.DrawRectangle(CurrentPen, rectdraw.X + correctionamount, rectdraw.Y + correctionamount, rectdraw.Width - squarewidth, rectdraw.Height - squarewidth) + End If + If squarefillon = True Then + picpreview.CreateGraphics.FillRectangle(CurrentBrush, rectdraw.X + squarewidth, rectdraw.Y + squarewidth, rectdraw.Width - squarewidth - squarewidth, rectdraw.Height - squarewidth - squarewidth) + End If + Case "Oval Tool" + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), ovalwidth) + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, fillovalcolor)) + Dim rectdraw As New RectangleF(0, 0, picpreview.Width, picpreview.Height) + Dim correctionamount As Single = ovalwidth / 2 + If ovalwidth > 0 Then + picpreview.CreateGraphics.DrawEllipse(CurrentPen, rectdraw.X + correctionamount, rectdraw.Y + correctionamount, rectdraw.Width - ovalwidth, rectdraw.Height - ovalwidth) + End If + If ovalfillon = True Then + Dim fixer As Single = ovalwidth / 2 + picpreview.CreateGraphics.FillEllipse(CurrentBrush, (rectdraw.X + fixer), (rectdraw.Y + fixer), rectdraw.Width - fixer - fixer, rectdraw.Height - fixer - fixer) + End If + Case "Text Tool" + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, drawingcolour)) + drawtextfont = New System.Drawing.Font(drawtextfontname, 20, drawtextfontstyle) + picpreview.CreateGraphics.DrawString("A", drawtextfont, CurrentBrush, 20, 0) + Case "Line Tool" + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), linewidth) + picpreview.CreateGraphics.DrawLine(CurrentPen, 0, 0, picpreview.Width, picpreview.Height) + Case "Pencil" + Dim CurrentPen = New Pen(Color.FromArgb(255, drawingcolour), pencilwidth) + picpreview.CreateGraphics.DrawLine(CurrentPen, 0, 25, picpreview.Width, 25) + Case "Paint Brush" + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, drawingcolour)) + Dim halfsize As Single = paintbrushwidth / 2 + Dim halfwidth As Single = picdrawingdisplay.Width / 2 + Dim halfheight As Single = picdrawingdisplay.Height / 2 + If paintbrushtype = "circle" Then + picpreview.CreateGraphics.FillEllipse(CurrentBrush, halfwidth - 15 - halfsize, halfheight - 1 - halfsize, paintbrushwidth, paintbrushwidth) + Else + picpreview.CreateGraphics.FillRectangle(CurrentBrush, halfwidth - 15 - halfsize, halfheight - 1 - halfsize, paintbrushwidth, paintbrushwidth) + End If + Case "Eracer" + Dim drawbrush As New System.Drawing.SolidBrush(drawingcolour) + picpreview.CreateGraphics.FillRectangle(drawbrush, 0, 0, picpreview.Width, picpreview.Height) + Dim CurrentBrush = New SolidBrush(Color.FromArgb(255, Color.White)) + Dim halfsize As Single = eracerwidth / 2 + Dim halfwidth As Single = picdrawingdisplay.Width / 2 + Dim halfheight As Single = picdrawingdisplay.Height / 2 + If eracertype = "circle" Then + picpreview.CreateGraphics.FillEllipse(CurrentBrush, halfwidth - 15 - halfsize, halfheight - halfsize, eracerwidth, eracerwidth) + Else + picpreview.CreateGraphics.FillRectangle(CurrentBrush, halfwidth - 15 - halfsize, halfheight - halfsize, eracerwidth, eracerwidth) + End If + Case Else + Dim drawbrush As New System.Drawing.SolidBrush(drawingcolour) + picpreview.CreateGraphics.FillRectangle(drawbrush, 0, 0, picpreview.Width, picpreview.Height) + drawbrush.Dispose() + End Select + End Sub + + Private Sub limittonumbers(sender As Object, e As KeyPressEventArgs) Handles txtnewcanvasheight.KeyPress, txtnewcanvaswidth.KeyPress, txtpixelsetterxcoordinate.KeyPress, txtpixelsetterycoordinate.KeyPress, txtsquareborderwidth.KeyPress, txtovalborderwidth.KeyPress, txtnewcanvasheight.KeyPress, txteracersize.KeyPress, txtlinewidth.KeyPress, txtdrawtextsize.KeyPress, txtpaintbrushsize.KeyPress, txtcolorpalletheight.KeyPress, txtcolorpalletwidth.KeyPress, txtsidespace.KeyPress, txttopspace.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 btnpencil_Click(sender As Object, e As EventArgs) Handles btnpencil.Click + selectedtool = "Pencil" + gettoolsettings(pnlpencilsettings) + End Sub + + Private Sub ChangePencilSize(sender As Object, e As EventArgs) Handles btnpencilsize1.Click, btnpencilsize2.Click, btnpencilsize3.Click + Select Case sender.name.ToString + Case "btnpencilsize1" + pencilwidth = 1 + Case "btnpencilsize2" + pencilwidth = 2 + Case "btnpencilsize3" + pencilwidth = 3 + End Select + setuppreview() + End Sub + + Private Sub btnundo_Click(sender As Object, e As EventArgs) Handles btnundo.Click + Try + undo.redoStack.Push(canvasbitmap.Clone) + canvasbitmap = undo.undoStack.Pop() + graphicsbitmap = Graphics.FromImage(canvasbitmap) + picdrawingdisplay.Invalidate() + Catch ex As Exception + infobox.title = "ArtPad - Undo Error!" + infobox.textinfo = "There doesn't appear to be any more actions to undo." & Environment.NewLine & Environment.NewLine & "One more step back would undo the creation of the canvas. If this is your goal just click new." + infobox.Show() + End Try + End Sub + + Private Sub btnredo_Click(sender As Object, e As EventArgs) Handles btnredo.Click + Try + undo.undoStack.Push(canvasbitmap.Clone) + canvasbitmap = undo.redoStack.Pop() + graphicsbitmap = Graphics.FromImage(canvasbitmap) + picdrawingdisplay.Invalidate() + Catch ex As Exception + infobox.title = "ArtPad - Redo Error!" + infobox.textinfo = "There doesn't appear to be any more actions to redo." & Environment.NewLine & Environment.NewLine & "If you have drawn on the canvas recently all future history would have been wiped!" + infobox.Show() + End Try + End Sub + + Private Sub btnopen_Click(sender As Object, e As EventArgs) Handles btnopen.Click + File_Opener.Show() + File_Opener.openingprogram = "artpad" + File_Opener.openextention = ".pic" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Public Sub openpic() + pnlinitialcanvassettings.Hide() + picdrawingdisplay.Show() + magnificationlevel = 1 + setmagnification() + canvasbitmap = Image.FromFile(savelocation) + canvasheight = canvasbitmap.Height + canvaswidth = canvasbitmap.Width + picdrawingdisplay.Size = New Size(canvaswidth, canvasheight) + picdrawingdisplay.Location = New Point((pnldrawingbackground.Width - canvaswidth) / 2, (pnldrawingbackground.Height - canvasheight) / 2) + graphicsbitmap = Graphics.FromImage(canvasbitmap) + picdrawingdisplay.Invalidate() + End Sub + + ' Flood fill the point. + Public Sub SafeFloodFill(ByVal bm As Bitmap, ByVal x As _ + Integer, ByVal y As Integer, ByVal new_color As Color) + ' Get the old and new colors. + Dim old_color As Color = bm.GetPixel(x, y) + + ' The following "If Then" test was added by Reuben + ' Jollif + ' to protect the code in case the start pixel + ' has the same color as the fill color. + If old_color.ToArgb <> new_color.ToArgb Then + ' Start with the original point in the stack. + Dim pts As New Stack(1000) + pts.Push(New Point(x, y)) + bm.SetPixel(x, y, new_color) + + ' While the stack is not empty, process a point. + Do While pts.Count > 0 + Dim pt As Point = DirectCast(pts.Pop(), Point) + If pt.X > 0 Then SafeCheckPoint(bm, pts, pt.X - _ + 1, pt.Y, old_color, new_color) + If pt.Y > 0 Then SafeCheckPoint(bm, pts, pt.X, _ + pt.Y - 1, old_color, new_color) + If pt.X < bm.Width - 1 Then SafeCheckPoint(bm, _ + pts, pt.X + 1, pt.Y, old_color, new_color) + If pt.Y < bm.Height - 1 Then SafeCheckPoint(bm, _ + pts, pt.X, pt.Y + 1, old_color, new_color) + Loop + End If + End Sub + + ' See if this point should be added to the stack. + Private Sub SafeCheckPoint(ByVal bm As Bitmap, ByVal pts As _ + Stack, ByVal x As Integer, ByVal y As Integer, ByVal _ + old_color As Color, ByVal new_color As Color) + Dim clr As Color = bm.GetPixel(x, y) + If clr.Equals(old_color) Then + pts.Push(New Point(x, y)) + bm.SetPixel(x, y, new_color) + End If + End Sub + + Private Sub btnfill_Click(sender As Object, e As EventArgs) Handles btnfloodfill.Click + selectedtool = "Flood Fill" + gettoolsettings(pnlfloodfillsettings) + End Sub + + Private Sub btnsquare_Click(sender As Object, e As EventArgs) Handles btnsquare.Click + selectedtool = "Square Tool" + gettoolsettings(pnlsquaretoolsettings) + txtsquareborderwidth.Text = squarewidth + End Sub + + Private Sub txtsquareborderwidth_TextChanged(sender As Object, e As EventArgs) Handles txtsquareborderwidth.TextChanged + If txtsquareborderwidth.Text = "" Then + Else + squarewidth = (Convert.ToInt32(txtsquareborderwidth.Text)) + setuppreview() + End If + End Sub + + Private Sub pnlsquarefillcolour_Click(sender As Object, e As EventArgs) Handles pnlsquarefillcolour.Click + pnlsquarefillcolour.BackColor = drawingcolour + fillsquarecolor = drawingcolour + setuppreview() + End Sub + + Private Sub btnsquarefillonoff_Click(sender As Object, e As EventArgs) Handles btnsquarefillonoff.Click + If squarefillon = True Then + btnsquarefillonoff.Text = "Fill OFF" + btnsquarefillonoff.BackColor = Color.White + btnsquarefillonoff.ForeColor = Color.Black + squarefillon = False + Else + btnsquarefillonoff.Text = "Fill ON" + btnsquarefillonoff.BackColor = Color.Black + btnsquarefillonoff.ForeColor = Color.White + squarefillon = True + End If + txtsquareborderwidth.Text = squarewidth + setuppreview() + End Sub + + Private Sub btnoval_Click(sender As Object, e As EventArgs) Handles btnoval.Click + selectedtool = "Oval Tool" + gettoolsettings(pnlovaltoolsettings) + txtovalborderwidth.Text = ovalwidth + End Sub + + Private Sub txtovalborderwidth_TextChanged(sender As Object, e As EventArgs) Handles txtovalborderwidth.TextChanged + If txtovalborderwidth.Text = "" Then + Else + ovalwidth = (Convert.ToInt32(txtovalborderwidth.Text)) + setuppreview() + End If + End Sub + + Private Sub pnlovalfillcolour_Click(sender As Object, e As EventArgs) Handles pnlovalfillcolour.Click + pnlovalfillcolour.BackColor = drawingcolour + fillovalcolor = drawingcolour + setuppreview() + End Sub + + Private Sub btnovalfillonoff_Click(sender As Object, e As EventArgs) Handles btnovalfillonoff.Click + If ovalfillon = True Then + btnovalfillonoff.Text = "Fill OFF" + btnovalfillonoff.BackColor = Color.White + btnovalfillonoff.ForeColor = Color.Black + ovalfillon = False + Else + btnovalfillonoff.Text = "Fill ON" + btnovalfillonoff.BackColor = Color.Black + btnovalfillonoff.ForeColor = Color.White + ovalfillon = True + End If + txtovalborderwidth.Text = ovalwidth + setuppreview() + End Sub + + Private Sub btneracer_Click(sender As Object, e As EventArgs) Handles btneracer.Click + selectedtool = "Eracer" + gettoolsettings(pnleracertoolsettings) + txteracersize.Text = eracerwidth + setuppreview() + End Sub + + Private Sub txteracersize_TextChanged(sender As Object, e As EventArgs) Handles txteracersize.TextChanged + If txteracersize.Text = "" Then + Else + eracerwidth = (Convert.ToInt32(txteracersize.Text)) + End If + setuppreview() + End Sub + + Private Sub btneracercircle_Click(sender As Object, e As EventArgs) Handles btneracercircle.Click + eracertype = "circle" + btneracercircle.BackgroundImage = My.Resources.ArtPadcirclerubberselected + btneracersquare.BackgroundImage = My.Resources.ArtPadsquarerubber + setuppreview() + End Sub + + Private Sub btneracersquare_Click(sender As Object, e As EventArgs) Handles btneracersquare.Click + eracertype = "square" + btneracercircle.BackgroundImage = My.Resources.ArtPadcirclerubber + btneracersquare.BackgroundImage = My.Resources.ArtPadsquarerubberselected + setuppreview() + End Sub + + Private Sub btnlinetool_Click(sender As Object, e As EventArgs) Handles btnlinetool.Click + selectedtool = "Line Tool" + gettoolsettings(pnllinetoolsettings) + txtlinewidth.Text = linewidth + End Sub + + Private Sub txtlinewidth_TextChanged(sender As Object, e As EventArgs) Handles txtlinewidth.TextChanged + If txtlinewidth.Text = "" Then + Else + linewidth = (Convert.ToInt32(txtlinewidth.Text)) + End If + setuppreview() + End Sub + + Private Sub btntexttool_Click(sender As Object, e As EventArgs) Handles btntexttool.Click + selectedtool = "Text Tool" + gettoolsettings(pnltexttoolsettings) + End Sub + + Private Sub txtdrawtextsize_TextChanged(sender As Object, e As EventArgs) Handles txtdrawtextsize.TextChanged + If txtdrawtextsize.Text = "" Then + Else + drawtextsize = txtdrawtextsize.Text + End If + setuppreview() + End Sub + + Private Sub combodrawtextfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combodrawtextfont.SelectedIndexChanged + drawtextfontname = combodrawtextfont.Text + txtdrawstringtext.Focus() + setuppreview() + End Sub + + Private Sub combofontstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combofontstyle.SelectedIndexChanged + Select Case combofontstyle.Text + Case "Bold" + drawtextfontstyle = FontStyle.Bold + Case "Italic" + drawtextfontstyle = FontStyle.Italic + Case "Regular" + drawtextfontstyle = FontStyle.Regular + Case "Strikeout" + drawtextfontstyle = FontStyle.Strikeout + Case "Underline" + drawtextfontstyle = FontStyle.Underline + End Select + txtdrawstringtext.Focus() + setuppreview() + End Sub + + Private Sub txtpaintbrushsize_TextChanged(sender As Object, e As EventArgs) Handles txtpaintbrushsize.TextChanged + If txtpaintbrushsize.Text = "" Then + Else + paintbrushwidth = (Convert.ToInt32(txtpaintbrushsize.Text)) + End If + setuppreview() + End Sub + + Private Sub btnpaintsquareshape_Click(sender As Object, e As EventArgs) Handles btnpaintsquareshape.Click + paintbrushtype = "square" + btnpaintcircleshape.BackgroundImage = My.Resources.ArtPadcirclerubber + btnpaintsquareshape.BackgroundImage = My.Resources.ArtPadsquarerubberselected + setuppreview() + End Sub + + Private Sub btnpaintcircleshape_Click(sender As Object, e As EventArgs) Handles btnpaintcircleshape.Click + paintbrushtype = "circle" + btnpaintcircleshape.BackgroundImage = My.Resources.ArtPadcirclerubberselected + btnpaintsquareshape.BackgroundImage = My.Resources.ArtPadsquarerubber + setuppreview() + End Sub + + Private Sub btnpaintbrush_Click(sender As Object, e As EventArgs) Handles btnpaintbrush.Click + selectedtool = "Paint Brush" + gettoolsettings(pnlpaintbrushtoolsettings) + txtpaintbrushsize.Text = paintbrushwidth + setuppreview() + End Sub + + Private Sub preparecooldown() + needtosave = True + If codepointscooldown = True Then + Else + codepointsearned = codepointsearned + 1 + codepointscooldown = True + tmrcodepointcooldown.Start() + End If + End Sub + + Private Sub tmrcodepointcooldown_Tick(sender As Object, e As EventArgs) Handles tmrcodepointcooldown.Tick + codepointscooldown = False + tmrcodepointcooldown.Stop() + End Sub + + Private Sub tmrshowearnedcodepoints_Tick(sender As Object, e As EventArgs) Handles tmrshowearnedcodepoints.Tick + lbtitletext.Text = "Artpad" + Me.setuptitlebar() + tmrshowearnedcodepoints.Stop() + End Sub + + Private Sub btnsetsize_Click(sender As Object, e As EventArgs) Handles btnsetsize.Click + setpalletsize() + End Sub + + Private Sub setpalletsize() + ShiftOSDesktop.artpadcolorpalletwidth = txtcolorpalletwidth.Text + ShiftOSDesktop.artpadcolorpalletheight = txtcolorpalletheight.Text + + ShiftOSDesktop.artpadcolorpallettopgap = txttopspace.Text + ShiftOSDesktop.artpadcolorpalletsidegap = txtsidespace.Text + + setuppallets() + End Sub + + Public Sub setuppallets() + colourpallet1.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet2.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet3.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet4.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet5.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet6.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet7.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet8.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet9.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet10.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet11.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet12.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet13.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet14.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet15.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet16.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet17.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet18.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet19.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet20.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet21.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet22.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet23.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet24.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet25.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet26.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet27.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet28.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet29.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet30.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet31.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet32.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet33.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet34.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet35.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet36.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet37.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet38.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet39.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet40.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet41.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet42.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet43.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet44.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet45.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet46.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet47.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet48.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet49.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet50.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet51.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet52.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet53.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet54.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet55.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet56.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet57.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet58.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet59.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet60.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet61.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet62.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet63.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet64.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet65.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet66.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet67.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet68.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet69.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet70.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet71.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet72.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet73.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet74.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet75.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet76.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet77.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet78.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet79.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet80.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet81.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet82.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet83.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet84.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet85.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet86.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet87.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet88.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet89.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet90.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet91.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet92.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet93.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet94.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet95.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet96.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet97.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet98.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet99.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet100.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet101.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet102.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet103.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet104.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet105.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet106.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet107.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet108.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet109.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet110.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet111.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet112.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet113.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet114.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet115.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet116.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet117.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet118.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet119.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet120.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet121.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet122.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet123.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet124.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet125.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet126.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet127.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + colourpallet128.Margin = New Padding(ShiftOSDesktop.artpadcolorpalletsidegap, 0, 0, ShiftOSDesktop.artpadcolorpallettopgap) + + colourpallet1.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet2.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet3.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet4.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet5.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet6.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet7.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet8.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet9.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet10.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet11.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet12.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet13.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet14.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet15.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet16.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet17.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet18.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet19.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet20.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet21.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet22.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet23.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet24.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet25.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet26.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet27.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet28.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet29.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet30.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet31.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet32.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet33.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet34.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet35.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet36.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet37.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet38.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet39.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet40.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet41.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet42.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet43.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet44.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet45.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet46.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet47.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet48.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet49.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet50.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet51.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet52.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet53.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet54.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet55.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet56.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet57.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet58.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet59.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet60.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet61.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet62.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet63.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet64.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet65.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet66.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet67.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet68.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet69.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet70.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet71.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet72.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet73.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet74.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet75.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet76.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet77.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet78.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet79.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet80.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet81.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet82.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet83.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet84.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet85.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet86.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet87.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet88.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet89.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet90.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet91.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet92.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet93.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet94.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet95.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet96.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet97.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet98.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet99.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet100.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet101.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet102.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet103.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet104.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet105.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet106.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet107.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet108.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet109.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet110.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet111.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet112.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet113.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet114.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet115.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet116.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet117.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet118.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet119.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet120.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet121.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet122.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet123.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet124.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet125.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet126.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet127.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + colourpallet128.Size = New Size(ShiftOSDesktop.artpadcolorpalletwidth, ShiftOSDesktop.artpadcolorpalletheight) + End Sub + + Public Sub determinevisiblepallets() + Select Case ShiftOSDesktop.artpadvisiblepallets + Case "2" + colourpallet1.Show() + colourpallet2.Show() + Case "4" + colourpallet1.Show() + colourpallet2.Show() + colourpallet3.Show() + colourpallet4.Show() + Case "8" + colourpallet1.Show() + colourpallet2.Show() + colourpallet3.Show() + colourpallet4.Show() + colourpallet5.Show() + colourpallet6.Show() + colourpallet7.Show() + colourpallet8.Show() + Case "16" + colourpallet1.Show() + colourpallet2.Show() + colourpallet3.Show() + colourpallet4.Show() + colourpallet5.Show() + colourpallet6.Show() + colourpallet7.Show() + colourpallet8.Show() + colourpallet9.Show() + colourpallet10.Show() + colourpallet11.Show() + colourpallet12.Show() + colourpallet13.Show() + colourpallet14.Show() + colourpallet15.Show() + colourpallet16.Show() + Case "32" + colourpallet1.Show() + colourpallet2.Show() + colourpallet3.Show() + colourpallet4.Show() + colourpallet5.Show() + colourpallet6.Show() + colourpallet7.Show() + colourpallet8.Show() + colourpallet9.Show() + colourpallet10.Show() + colourpallet11.Show() + colourpallet12.Show() + colourpallet13.Show() + colourpallet14.Show() + colourpallet15.Show() + colourpallet16.Show() + colourpallet17.Show() + colourpallet18.Show() + colourpallet19.Show() + colourpallet20.Show() + colourpallet21.Show() + colourpallet22.Show() + colourpallet23.Show() + colourpallet24.Show() + colourpallet25.Show() + colourpallet26.Show() + colourpallet27.Show() + colourpallet28.Show() + colourpallet29.Show() + colourpallet30.Show() + colourpallet31.Show() + colourpallet32.Show() + Case "64" + colourpallet1.Show() + colourpallet2.Show() + colourpallet3.Show() + colourpallet4.Show() + colourpallet5.Show() + colourpallet6.Show() + colourpallet7.Show() + colourpallet8.Show() + colourpallet9.Show() + colourpallet10.Show() + colourpallet11.Show() + colourpallet12.Show() + colourpallet13.Show() + colourpallet14.Show() + colourpallet15.Show() + colourpallet16.Show() + colourpallet17.Show() + colourpallet18.Show() + colourpallet19.Show() + colourpallet20.Show() + colourpallet21.Show() + colourpallet22.Show() + colourpallet23.Show() + colourpallet24.Show() + colourpallet25.Show() + colourpallet26.Show() + colourpallet27.Show() + colourpallet28.Show() + colourpallet29.Show() + colourpallet30.Show() + colourpallet31.Show() + colourpallet32.Show() + colourpallet33.Show() + colourpallet34.Show() + colourpallet35.Show() + colourpallet36.Show() + colourpallet37.Show() + colourpallet38.Show() + colourpallet39.Show() + colourpallet40.Show() + colourpallet41.Show() + colourpallet42.Show() + colourpallet43.Show() + colourpallet44.Show() + colourpallet45.Show() + colourpallet46.Show() + colourpallet47.Show() + colourpallet48.Show() + colourpallet49.Show() + colourpallet50.Show() + colourpallet51.Show() + colourpallet52.Show() + colourpallet53.Show() + colourpallet54.Show() + colourpallet55.Show() + colourpallet56.Show() + colourpallet57.Show() + colourpallet58.Show() + colourpallet59.Show() + colourpallet60.Show() + colourpallet61.Show() + colourpallet62.Show() + colourpallet63.Show() + colourpallet64.Show() + Case "128" + colourpallet1.Show() + colourpallet2.Show() + colourpallet3.Show() + colourpallet4.Show() + colourpallet5.Show() + colourpallet6.Show() + colourpallet7.Show() + colourpallet8.Show() + colourpallet9.Show() + colourpallet10.Show() + colourpallet11.Show() + colourpallet12.Show() + colourpallet13.Show() + colourpallet14.Show() + colourpallet15.Show() + colourpallet16.Show() + colourpallet17.Show() + colourpallet18.Show() + colourpallet19.Show() + colourpallet20.Show() + colourpallet21.Show() + colourpallet22.Show() + colourpallet23.Show() + colourpallet24.Show() + colourpallet25.Show() + colourpallet26.Show() + colourpallet27.Show() + colourpallet28.Show() + colourpallet29.Show() + colourpallet30.Show() + colourpallet31.Show() + colourpallet32.Show() + colourpallet33.Show() + colourpallet34.Show() + colourpallet35.Show() + colourpallet36.Show() + colourpallet37.Show() + colourpallet38.Show() + colourpallet39.Show() + colourpallet40.Show() + colourpallet41.Show() + colourpallet42.Show() + colourpallet43.Show() + colourpallet44.Show() + colourpallet45.Show() + colourpallet46.Show() + colourpallet47.Show() + colourpallet48.Show() + colourpallet49.Show() + colourpallet50.Show() + colourpallet51.Show() + colourpallet52.Show() + colourpallet53.Show() + colourpallet54.Show() + colourpallet55.Show() + colourpallet56.Show() + colourpallet57.Show() + colourpallet58.Show() + colourpallet59.Show() + colourpallet60.Show() + colourpallet61.Show() + colourpallet62.Show() + colourpallet63.Show() + colourpallet64.Show() + colourpallet65.Show() + colourpallet66.Show() + colourpallet67.Show() + colourpallet68.Show() + colourpallet69.Show() + colourpallet70.Show() + colourpallet71.Show() + colourpallet72.Show() + colourpallet73.Show() + colourpallet74.Show() + colourpallet75.Show() + colourpallet76.Show() + colourpallet77.Show() + colourpallet78.Show() + colourpallet79.Show() + colourpallet80.Show() + colourpallet81.Show() + colourpallet82.Show() + colourpallet83.Show() + colourpallet84.Show() + colourpallet85.Show() + colourpallet86.Show() + colourpallet87.Show() + colourpallet88.Show() + colourpallet89.Show() + colourpallet90.Show() + colourpallet91.Show() + colourpallet92.Show() + colourpallet93.Show() + colourpallet94.Show() + colourpallet95.Show() + colourpallet96.Show() + colourpallet97.Show() + colourpallet98.Show() + colourpallet99.Show() + colourpallet100.Show() + colourpallet101.Show() + colourpallet102.Show() + colourpallet103.Show() + colourpallet104.Show() + colourpallet105.Show() + colourpallet106.Show() + colourpallet107.Show() + colourpallet108.Show() + colourpallet109.Show() + colourpallet110.Show() + colourpallet111.Show() + colourpallet112.Show() + colourpallet113.Show() + colourpallet114.Show() + colourpallet115.Show() + colourpallet116.Show() + colourpallet117.Show() + colourpallet118.Show() + colourpallet119.Show() + colourpallet120.Show() + colourpallet121.Show() + colourpallet122.Show() + colourpallet123.Show() + colourpallet124.Show() + colourpallet125.Show() + colourpallet126.Show() + colourpallet127.Show() + colourpallet128.Show() + End Select + End Sub + + Private Sub btnchangesizecancel_Click(sender As Object, e As EventArgs) Handles btnchangesizecancel.Click + pnlpalletsize.Hide() + End Sub + + Private Sub txtdrawstringtext_TextChanged(sender As Object, e As EventArgs) Handles txtdrawstringtext.TextChanged + setuppreview() + End Sub +End Class diff --git a/Audio Player.Designer.vb b/Audio Player.Designer.vb new file mode 100644 index 0000000..524360e --- /dev/null +++ b/Audio Player.Designer.vb @@ -0,0 +1,437 @@ + _ +Partial Class Audio_Player + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Audio_Player)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.lblintro = New System.Windows.Forms.Label() + Me.lbmusiclist = New System.Windows.Forms.ListBox() + Me.pnlcontrols = New System.Windows.Forms.Panel() + Me.picsongtrack = New System.Windows.Forms.PictureBox() + Me.btnplay = New System.Windows.Forms.Button() + Me.lbltotallength = New System.Windows.Forms.Label() + Me.btnload = New System.Windows.Forms.Button() + Me.lblcurrenttime = New System.Windows.Forms.Label() + Me.btnstop = New System.Windows.Forms.Button() + Me.btnprevious = New System.Windows.Forms.Button() + Me.btnnext = New System.Windows.Forms.Button() + Me.AxWindowsMediaPlayer1 = New AxWMPLib.AxWindowsMediaPlayer() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.tmrnextsonggap = New System.Windows.Forms.Timer(Me.components) + Me.tmrsongtrack = New System.Windows.Forms.Timer(Me.components) + Me.tmrnextcooldown = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnlcontrols.SuspendLayout() + CType(Me.picsongtrack, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.lblintro) + Me.pgcontents.Controls.Add(Me.lbmusiclist) + Me.pgcontents.Controls.Add(Me.pnlcontrols) + Me.pgcontents.Controls.Add(Me.AxWindowsMediaPlayer1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(467, 234) + Me.pgcontents.TabIndex = 20 + ' + 'lblintro + ' + Me.lblintro.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblintro.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblintro.Location = New System.Drawing.Point(27, 25) + Me.lblintro.Name = "lblintro" + Me.lblintro.Size = New System.Drawing.Size(414, 160) + Me.lblintro.TabIndex = 11 + Me.lblintro.Text = "Your Playlist is Currently Empty" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click the folder icon in the bottom right corne" & _ + "r to add some songs" + Me.lblintro.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbmusiclist + ' + Me.lbmusiclist.BackColor = System.Drawing.Color.White + Me.lbmusiclist.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lbmusiclist.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbmusiclist.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + Me.lbmusiclist.FormattingEnabled = True + Me.lbmusiclist.Location = New System.Drawing.Point(0, 0) + Me.lbmusiclist.Name = "lbmusiclist" + Me.lbmusiclist.Size = New System.Drawing.Size(467, 208) + Me.lbmusiclist.TabIndex = 1 + ' + 'pnlcontrols + ' + Me.pnlcontrols.BackColor = System.Drawing.Color.White + Me.pnlcontrols.Controls.Add(Me.picsongtrack) + Me.pnlcontrols.Controls.Add(Me.btnplay) + Me.pnlcontrols.Controls.Add(Me.lbltotallength) + Me.pnlcontrols.Controls.Add(Me.btnload) + Me.pnlcontrols.Controls.Add(Me.lblcurrenttime) + Me.pnlcontrols.Controls.Add(Me.btnstop) + Me.pnlcontrols.Controls.Add(Me.btnprevious) + Me.pnlcontrols.Controls.Add(Me.btnnext) + Me.pnlcontrols.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlcontrols.Location = New System.Drawing.Point(0, 208) + Me.pnlcontrols.Name = "pnlcontrols" + Me.pnlcontrols.Size = New System.Drawing.Size(467, 26) + Me.pnlcontrols.TabIndex = 10 + ' + 'picsongtrack + ' + Me.picsongtrack.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.picsongtrack.Location = New System.Drawing.Point(113, 2) + Me.picsongtrack.Name = "picsongtrack" + Me.picsongtrack.Size = New System.Drawing.Size(304, 21) + Me.picsongtrack.TabIndex = 9 + Me.picsongtrack.TabStop = False + ' + 'btnplay + ' + Me.btnplay.BackgroundImage = Global.ShiftOS.My.Resources.Resources.playbutton + Me.btnplay.FlatAppearance.BorderSize = 0 + Me.btnplay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnplay.Location = New System.Drawing.Point(26, 2) + Me.btnplay.Name = "btnplay" + Me.btnplay.Size = New System.Drawing.Size(22, 22) + Me.btnplay.TabIndex = 2 + Me.btnplay.UseVisualStyleBackColor = True + ' + 'lbltotallength + ' + Me.lbltotallength.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbltotallength.BackColor = System.Drawing.Color.Transparent + Me.lbltotallength.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotallength.Location = New System.Drawing.Point(377, 1) + Me.lbltotallength.Name = "lbltotallength" + Me.lbltotallength.Size = New System.Drawing.Size(40, 24) + Me.lbltotallength.TabIndex = 8 + Me.lbltotallength.Text = "0:00" + Me.lbltotallength.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnload + ' + Me.btnload.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnload.BackgroundImage = Global.ShiftOS.My.Resources.Resources.loadbutton + Me.btnload.FlatAppearance.BorderSize = 0 + Me.btnload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnload.Location = New System.Drawing.Point(443, 2) + Me.btnload.Name = "btnload" + Me.btnload.Size = New System.Drawing.Size(22, 22) + Me.btnload.TabIndex = 3 + Me.btnload.UseVisualStyleBackColor = True + ' + 'lblcurrenttime + ' + Me.lblcurrenttime.BackColor = System.Drawing.Color.Transparent + Me.lblcurrenttime.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcurrenttime.Location = New System.Drawing.Point(74, 1) + Me.lblcurrenttime.Name = "lblcurrenttime" + Me.lblcurrenttime.Size = New System.Drawing.Size(40, 24) + Me.lblcurrenttime.TabIndex = 7 + Me.lblcurrenttime.Text = "0:00" + Me.lblcurrenttime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnstop + ' + Me.btnstop.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnstop.BackgroundImage = Global.ShiftOS.My.Resources.Resources.stopbutton + Me.btnstop.FlatAppearance.BorderSize = 0 + Me.btnstop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstop.Location = New System.Drawing.Point(419, 2) + Me.btnstop.Name = "btnstop" + Me.btnstop.Size = New System.Drawing.Size(22, 22) + Me.btnstop.TabIndex = 4 + Me.btnstop.UseVisualStyleBackColor = True + ' + 'btnprevious + ' + Me.btnprevious.BackgroundImage = Global.ShiftOS.My.Resources.Resources.previousbutton + Me.btnprevious.FlatAppearance.BorderSize = 0 + Me.btnprevious.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnprevious.Location = New System.Drawing.Point(2, 2) + Me.btnprevious.Name = "btnprevious" + Me.btnprevious.Size = New System.Drawing.Size(22, 22) + Me.btnprevious.TabIndex = 6 + Me.btnprevious.UseVisualStyleBackColor = True + ' + 'btnnext + ' + Me.btnnext.BackgroundImage = Global.ShiftOS.My.Resources.Resources.nextbutton + Me.btnnext.FlatAppearance.BorderSize = 0 + Me.btnnext.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnnext.Location = New System.Drawing.Point(50, 2) + Me.btnnext.Name = "btnnext" + Me.btnnext.Size = New System.Drawing.Size(22, 22) + Me.btnnext.TabIndex = 5 + Me.btnnext.UseVisualStyleBackColor = True + ' + 'AxWindowsMediaPlayer1 + ' + Me.AxWindowsMediaPlayer1.Enabled = True + Me.AxWindowsMediaPlayer1.Location = New System.Drawing.Point(300, 55) + Me.AxWindowsMediaPlayer1.Name = "AxWindowsMediaPlayer1" + Me.AxWindowsMediaPlayer1.OcxState = CType(resources.GetObject("AxWindowsMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State) + Me.AxWindowsMediaPlayer1.Size = New System.Drawing.Size(31, 29) + Me.AxWindowsMediaPlayer1.TabIndex = 0 + Me.AxWindowsMediaPlayer1.Visible = False + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 264) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(467, 2) + Me.pgbottom.TabIndex = 23 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(471, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconAudioPlayer + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(129, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Audio Player" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(469, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 234) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(469, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 236) + Me.pgright.TabIndex = 22 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 236) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 234) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'tmrnextsonggap + ' + ' + 'tmrsongtrack + ' + Me.tmrsongtrack.Enabled = True + Me.tmrsongtrack.Interval = 200 + ' + 'tmrnextcooldown + ' + Me.tmrnextcooldown.Interval = 1000 + ' + 'Audio_Player + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(471, 266) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(151, 125) + Me.Name = "Audio_Player" + Me.Text = "Audio_Player" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnlcontrols.ResumeLayout(False) + CType(Me.picsongtrack, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents btnplay As System.Windows.Forms.Button + Friend WithEvents lbmusiclist As System.Windows.Forms.ListBox + Friend WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer + Friend WithEvents btnstop As System.Windows.Forms.Button + Friend WithEvents btnload As System.Windows.Forms.Button + Friend WithEvents tmrnextsonggap As System.Windows.Forms.Timer + Friend WithEvents btnnext As System.Windows.Forms.Button + Friend WithEvents btnprevious As System.Windows.Forms.Button + Friend WithEvents lbltotallength As System.Windows.Forms.Label + Friend WithEvents lblcurrenttime As System.Windows.Forms.Label + Friend WithEvents tmrsongtrack As System.Windows.Forms.Timer + Friend WithEvents picsongtrack As System.Windows.Forms.PictureBox + Friend WithEvents tmrnextcooldown As System.Windows.Forms.Timer + Friend WithEvents pnlcontrols As System.Windows.Forms.Panel + Friend WithEvents lblintro As System.Windows.Forms.Label +End Class diff --git a/Audio Player.resx b/Audio Player.resx new file mode 100644 index 0000000..a333ede --- /dev/null +++ b/Audio Player.resx @@ -0,0 +1,149 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAtwAAAAIB + AAAAAQAAAAAAAAAAAAAAAKIAAAAAAwAACAAAAAAABQAAAAAAAADwPwMAAAAAAAUAAAAAAAAAAAAIAAIA + AAAAAAMAAQAAAAsA//8DAAAAAAALAP//CAACAAAAAAADADIAAAALAAAACAAKAAAAZgB1AGwAbAAAAAsA + AAALAAAACwD//wsA//8LAAAACAACAAAAAAAIAAIAAAAAAAgAAgAAAAAACAACAAAAAAALAAAAzCEAAA4O + AAAL + + + + 141, 17 + + + 235, 17 + + + 348, 17 + + + 432, 17 + + + 17, 17 + + + 574, 17 + + \ No newline at end of file diff --git a/Audio Player.vb b/Audio Player.vb new file mode 100644 index 0000000..73c07e3 --- /dev/null +++ b/Audio Player.vb @@ -0,0 +1,543 @@ +Public Class Audio_Player + 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 = 471 + Public minimumsizeheight As Integer = 266 + + Public clickedstop = False + Public cancelindex = False + Public trackbarcurrentwidth As Single + Public trackcurrent As Single + Public tracktotal As Single + Public cooldown As Boolean = False + + 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() + + ShiftOSDesktop.pnlpanelbuttonaudioplayer.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonaudioplayer, ShiftOSDesktop.tbaudioplayericon, ShiftOSDesktop.tbaudioplayertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(351, 225) '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.audioplayername + 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.audioplayericontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 btnplay_Click(sender As Object, e As EventArgs) Handles btnplay.Click + If lbmusiclist.Items.Count > 0 Then + If lbmusiclist.SelectedItems.Count = 0 Then + lbmusiclist.SelectedIndex = 0 + End If + AxWindowsMediaPlayer1.URL = lbmusiclist.SelectedItem + End If + End Sub + + Private Sub btnload_Click(sender As Object, e As EventArgs) Handles btnload.Click + lblintro.Hide() + File_Opener.Show() + File_Opener.openingprogram = "audioplayer" + File_Opener.openextention = ".mp3" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click + If lbmusiclist.Items.Count > 0 Then + clickedstop = True + AxWindowsMediaPlayer1.Ctlcontrols.stop() + lblcurrenttime.Text = "00:00" + End If + End Sub + + Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange + If lbmusiclist.Items.Count > 0 Then + If lbmusiclist.SelectedIndex > -1 Then + If clickedstop = True Then + clickedstop = False + Else + If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then + If lbmusiclist.SelectedIndex = lbmusiclist.Items.Count - 1 Then + lbmusiclist.SelectedIndex = 0 + tmrnextsonggap.Start() + Else + If lbmusiclist.SelectedIndex < lbmusiclist.Items.Count - 1 Then + lbmusiclist.SelectedIndex = lbmusiclist.SelectedIndex + 1 + tmrnextsonggap.Start() + End If + End If + End If + End If + End If + End If + End Sub + + Private Sub tmrnextsonggap_Tick(sender As Object, e As EventArgs) Handles tmrnextsonggap.Tick + If lbmusiclist.Items.Count > 0 Then + AxWindowsMediaPlayer1.URL = lbmusiclist.SelectedItem + tmrnextsonggap.Stop() + End If + End Sub + + Private Sub btnnext_Click(sender As Object, e As EventArgs) Handles btnnext.Click + If lbmusiclist.Items.Count > 0 Then + If cooldown = False Then + AxWindowsMediaPlayer1.Ctlcontrols.stop() + cooldown = True + tmrnextcooldown.Start() + End If + End If + End Sub + + Private Sub btnprevious_Click(sender As Object, e As EventArgs) Handles btnprevious.Click + If lbmusiclist.Items.Count > 0 Then + If cooldown = False Then + cancelindex = True + If lbmusiclist.SelectedIndex = 0 Then Else lbmusiclist.SelectedIndex = lbmusiclist.SelectedIndex - 2 + AxWindowsMediaPlayer1.Ctlcontrols.stop() + cooldown = True + tmrnextcooldown.Start() + End If + End If + End Sub + + Private Sub lbmusiclist_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lbmusiclist.DrawItem ' + If lbmusiclist.Items.Count > 0 Then + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lbmusiclist.GetItemText(lbmusiclist.Items(e.Index)), e.Font, b, e.Bounds) + End Using + e.DrawFocusRectangle() + End If + End Sub + + Private Sub lbmusiclist_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbmusiclist.SelectedIndexChanged + If lbmusiclist.Items.Count > 0 Then + If cancelindex = True Then Else AxWindowsMediaPlayer1.URL = lbmusiclist.SelectedItem + cancelindex = False + lbmusiclist.Refresh() + End If + End Sub + + Private Sub tmrsongtrack_Tick(sender As Object, e As EventArgs) Handles tmrsongtrack.Tick + If lbmusiclist.Items.Count > 0 Then + If lbmusiclist.SelectedIndex < 0 Then lbmusiclist.SelectedIndex = 0 + picsongtrack.Refresh() + If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then + If lbmusiclist.SelectedIndex < 0 Then lbmusiclist.SelectedIndex = 0 + lbltotallength.Text = AxWindowsMediaPlayer1.currentMedia.durationString + lblcurrenttime.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString + Dim TrackBrush = New SolidBrush(Color.FromArgb(255, Color.Black)) + trackcurrent = Math.Round(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition, 1) + tracktotal = Math.Round(AxWindowsMediaPlayer1.currentMedia.duration, 1) + If tracktotal = 0 Then Else trackbarcurrentwidth = (trackcurrent / tracktotal) * 100 + trackbarcurrentwidth = trackbarcurrentwidth * (picsongtrack.Width / 100) + picsongtrack.CreateGraphics.FillRectangle(TrackBrush, 0, 0, trackbarcurrentwidth, picsongtrack.Height) + TrackBrush.Dispose() + End If + End If + End Sub + + Private Sub nextcooldown_Tick(sender As Object, e As EventArgs) Handles tmrnextcooldown.Tick + If lbmusiclist.Items.Count > 0 Then + cooldown = False + tmrnextcooldown.Stop() + End If + End Sub + + Private Sub picsongtrack_MouseDown(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseDown + Dim xposition As Integer + xposition = e.X + AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = (AxWindowsMediaPlayer1.currentMedia.duration / picsongtrack.Width) * xposition + tmrsongtrack.Interval = 20 + End Sub + + Private Sub picsongtrack_MouseMove(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseMove + If e.Button = Windows.Forms.MouseButtons.Left Then + Dim xposition As Integer + xposition = e.X + AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = (AxWindowsMediaPlayer1.currentMedia.duration / picsongtrack.Width) * xposition + End If + End Sub + + Private Sub picsongtrack_MouseUp(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseUp + tmrsongtrack.Interval = 200 + End Sub +End Class \ No newline at end of file diff --git a/Bitnote Digger.Designer.vb b/Bitnote Digger.Designer.vb new file mode 100644 index 0000000..05fe0d0 --- /dev/null +++ b/Bitnote Digger.Designer.vb @@ -0,0 +1,474 @@ + _ +Partial Class Bitnote_Digger + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.Label10 = New System.Windows.Forms.Label() + Me.btnsend = New System.Windows.Forms.Button() + Me.txtsendaddress = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.lbltotalbitcoinsmined = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnturbomode = New System.Windows.Forms.Button() + Me.btnstop = New System.Windows.Forms.Button() + Me.btnstart = New System.Windows.Forms.Button() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.tmrcalcbitnotesmined = New System.Windows.Forms.Timer(Me.components) + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 251) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(556, 2) + Me.pgbottom.TabIndex = 23 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 221) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(558, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 223) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(148, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Bitnote Digger" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(558, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 221) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.Label10) + Me.pgcontents.Controls.Add(Me.btnsend) + Me.pgcontents.Controls.Add(Me.txtsendaddress) + Me.pgcontents.Controls.Add(Me.Label7) + Me.pgcontents.Controls.Add(Me.lbltotalbitcoinsmined) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Controls.Add(Me.Label1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(556, 221) + Me.pgcontents.TabIndex = 20 + ' + 'Label10 + ' + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(205, 182) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(261, 35) + Me.Label10.TabIndex = 6 + Me.Label10.Text = "Insert your Bitnote wallet address above then click send to transfer your earning" & _ + "s" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnsend + ' + Me.btnsend.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnsend.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsend.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsend.Location = New System.Drawing.Point(472, 181) + Me.btnsend.Name = "btnsend" + Me.btnsend.Size = New System.Drawing.Size(73, 36) + Me.btnsend.TabIndex = 5 + Me.btnsend.Text = "Send" + Me.btnsend.UseVisualStyleBackColor = True + ' + 'txtsendaddress + ' + Me.txtsendaddress.BackColor = System.Drawing.Color.White + Me.txtsendaddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtsendaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtsendaddress.Location = New System.Drawing.Point(205, 155) + Me.txtsendaddress.Multiline = True + Me.txtsendaddress.Name = "txtsendaddress" + Me.txtsendaddress.Size = New System.Drawing.Size(340, 21) + Me.txtsendaddress.TabIndex = 4 + Me.txtsendaddress.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label7 + ' + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(203, 128) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(350, 27) + Me.Label7.TabIndex = 3 + Me.Label7.Text = "Send Bitnotes To:" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbltotalbitcoinsmined + ' + Me.lbltotalbitcoinsmined.Font = New System.Drawing.Font("Microsoft Sans Serif", 32.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotalbitcoinsmined.Location = New System.Drawing.Point(206, 57) + Me.lbltotalbitcoinsmined.Name = "lbltotalbitcoinsmined" + Me.lbltotalbitcoinsmined.Size = New System.Drawing.Size(344, 51) + Me.lbltotalbitcoinsmined.TabIndex = 2 + Me.lbltotalbitcoinsmined.Text = "0.00000" + Me.lbltotalbitcoinsmined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.btnturbomode) + Me.Panel1.Controls.Add(Me.btnstop) + Me.Panel1.Controls.Add(Me.btnstart) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(199, 221) + Me.Panel1.TabIndex = 1 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(2, 88) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(157, 20) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Turbo Mode Stats:" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(3, 126) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(162, 16) + Me.Label8.TabIndex = 11 + Me.Label8.Text = "Codepoint Cost: 1CP / 10s" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 109) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(183, 16) + Me.Label9.TabIndex = 10 + Me.Label9.Text = "Turbo Speed: 0.00002 BTN/S" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(5, 5) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(115, 20) + Me.Label5.TabIndex = 9 + Me.Label5.Text = "Digger Stats:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(6, 60) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(144, 16) + Me.Label4.TabIndex = 8 + Me.Label4.Text = "Speed: 0.00001 BTN/S" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(6, 43) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(103, 16) + Me.Label3.TabIndex = 7 + Me.Label3.Text = "Digger Grade: 1" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(6, 26) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(157, 16) + Me.Label2.TabIndex = 6 + Me.Label2.Text = "Name: Surface Scratcher" + ' + 'btnturbomode + ' + Me.btnturbomode.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnturbomode.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnturbomode.Location = New System.Drawing.Point(6, 188) + Me.btnturbomode.Name = "btnturbomode" + Me.btnturbomode.Size = New System.Drawing.Size(186, 29) + Me.btnturbomode.TabIndex = 5 + Me.btnturbomode.Text = "Activate Turbo Mode" + Me.btnturbomode.UseVisualStyleBackColor = True + ' + 'btnstop + ' + Me.btnstop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnstop.Location = New System.Drawing.Point(101, 156) + Me.btnstop.Name = "btnstop" + Me.btnstop.Size = New System.Drawing.Size(91, 29) + Me.btnstop.TabIndex = 4 + Me.btnstop.Text = "Stop" + Me.btnstop.UseVisualStyleBackColor = True + ' + 'btnstart + ' + Me.btnstart.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstart.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnstart.Location = New System.Drawing.Point(6, 156) + Me.btnstart.Name = "btnstart" + Me.btnstart.Size = New System.Drawing.Size(91, 29) + Me.btnstart.TabIndex = 3 + Me.btnstart.Text = "Start" + Me.btnstart.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Black + Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Right + Me.PictureBox1.Location = New System.Drawing.Point(198, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(1, 221) + Me.PictureBox1.TabIndex = 2 + Me.PictureBox1.TabStop = False + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(205, 16) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(345, 43) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Bitnotes Found" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 223) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(560, 30) + Me.titlebar.TabIndex = 19 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'tmrcalcbitnotesmined + ' + Me.tmrcalcbitnotesmined.Interval = 1000 + ' + 'Bitnote_Digger + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(560, 253) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Bitnote_Digger" + Me.Text = "Bitnote_Digger" + Me.TopMost = True + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents lbltotalbitcoinsmined As System.Windows.Forms.Label + Friend WithEvents btnturbomode As System.Windows.Forms.Button + Friend WithEvents btnstop As System.Windows.Forms.Button + Friend WithEvents btnstart As System.Windows.Forms.Button + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents btnsend As System.Windows.Forms.Button + Friend WithEvents txtsendaddress As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tmrcalcbitnotesmined As System.Windows.Forms.Timer +End Class diff --git a/Bitnote Digger.resx b/Bitnote Digger.resx new file mode 100644 index 0000000..67454ac --- /dev/null +++ b/Bitnote Digger.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Bitnote Digger.vb b/Bitnote Digger.vb new file mode 100644 index 0000000..7ca1e8f --- /dev/null +++ b/Bitnote Digger.vb @@ -0,0 +1,385 @@ +Public Class Bitnote_Digger + 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 'replace with minimum size + Public minimumsizeheight As Integer = 0 'replace with minimum size + + Public bitnotesmined As Decimal = 0 + Public miningspeed As Decimal = 0.00001 + + 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() + + ShiftOSDesktop.pnlpanelbuttonbitnotedigger.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonbitnotedigger, ShiftOSDesktop.tbbitnotediggericon, ShiftOSDesktop.tbbitnotediggertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(552, 253) '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.bitnotediggername 'Remember to change to name of program!!!! + If tmrcalcbitnotesmined.Enabled = True Then lbtitletext.Text = lbtitletext.Text & " - Activated" Else lbtitletext.Text = lbtitletext.Text & " - Deactivated" + 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.bitnotediggericontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + 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 tmrcalcbitnotesmined_Tick(sender As Object, e As EventArgs) Handles tmrcalcbitnotesmined.Tick + bitnotesmined = bitnotesmined + miningspeed + lbltotalbitcoinsmined.Text = FormatNumber(Math.Round(bitnotesmined, 5), 5) + End Sub + + Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click + tmrcalcbitnotesmined.Start() + lbtitletext.Text = ShiftOSDesktop.bitnotediggername & " - Activated" + End Sub + + Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click + tmrcalcbitnotesmined.Stop() + lbtitletext.Text = ShiftOSDesktop.bitnotediggername & " - Deactivated" + End Sub + + Private Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click + If txtsendaddress.Text = ShiftOSDesktop.bitnoteaddress Then + ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + bitnotesmined + Bitnote_Wallet.logtransaction(bitnotesmined, "Credit From", "Bitnote Digger - Surface Scratcher") + End If + bitnotesmined = 0 + lbltotalbitcoinsmined.Text = FormatNumber(Math.Round(bitnotesmined, 5), 5) + If Bitnote_Wallet.Visible Then Bitnote_Wallet.setupbitnotestats() + End Sub +End Class \ No newline at end of file diff --git a/Bitnote Wallet.Designer.vb b/Bitnote Wallet.Designer.vb new file mode 100644 index 0000000..5a4446b --- /dev/null +++ b/Bitnote Wallet.Designer.vb @@ -0,0 +1,570 @@ + _ +Partial Class Bitnote_Wallet + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnltransactions = New System.Windows.Forms.Panel() + Me.txthistory = New System.Windows.Forms.RichTextBox() + Me.pnltotalbalance = New System.Windows.Forms.Panel() + Me.lblbalancerounded = New System.Windows.Forms.Label() + Me.lblprecisebalance = New System.Windows.Forms.Label() + Me.pnlsend = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtamounttopay = New System.Windows.Forms.TextBox() + Me.btnsendmoney = New System.Windows.Forms.Button() + Me.lblpostpayment = New System.Windows.Forms.Label() + Me.lbltotalbalancesendscreen = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtsendtoaddress = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.pnlreceive = New System.Windows.Forms.Panel() + Me.btncopyaddress = New System.Windows.Forms.Button() + Me.lblmybitnoteaddress = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.pnlmenuholder = New System.Windows.Forms.FlowLayoutPanel() + Me.btntotalbalance = New System.Windows.Forms.Button() + Me.btnsend = New System.Windows.Forms.Button() + Me.btnreceive = New System.Windows.Forms.Button() + Me.btntransactions = New System.Windows.Forms.Button() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.pnltransactions.SuspendLayout() + Me.pnltotalbalance.SuspendLayout() + Me.pnlsend.SuspendLayout() + Me.pnlreceive.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlmenuholder.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 202) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(421, 2) + Me.pgbottom.TabIndex = 23 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 172) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(423, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 174) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(147, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Bitnote Wallet" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(423, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 172) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.pnltotalbalance) + Me.pgcontents.Controls.Add(Me.PictureBox1) + Me.pgcontents.Controls.Add(Me.pnltransactions) + Me.pgcontents.Controls.Add(Me.pnlsend) + Me.pgcontents.Controls.Add(Me.pnlreceive) + Me.pgcontents.Controls.Add(Me.pnlmenuholder) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(421, 172) + Me.pgcontents.TabIndex = 20 + ' + 'pnltransactions + ' + Me.pnltransactions.Controls.Add(Me.txthistory) + Me.pnltransactions.Location = New System.Drawing.Point(297, 52) + Me.pnltransactions.Name = "pnltransactions" + Me.pnltransactions.Size = New System.Drawing.Size(63, 110) + Me.pnltransactions.TabIndex = 7 + ' + 'txthistory + ' + Me.txthistory.BackColor = System.Drawing.Color.White + Me.txthistory.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txthistory.Dock = System.Windows.Forms.DockStyle.Fill + Me.txthistory.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txthistory.Location = New System.Drawing.Point(0, 0) + Me.txthistory.Name = "txthistory" + Me.txthistory.ReadOnly = True + Me.txthistory.Size = New System.Drawing.Size(63, 110) + Me.txthistory.TabIndex = 0 + Me.txthistory.Text = "" + ' + 'pnltotalbalance + ' + Me.pnltotalbalance.Controls.Add(Me.lblbalancerounded) + Me.pnltotalbalance.Controls.Add(Me.lblprecisebalance) + Me.pnltotalbalance.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnltotalbalance.Location = New System.Drawing.Point(0, 34) + Me.pnltotalbalance.Name = "pnltotalbalance" + Me.pnltotalbalance.Size = New System.Drawing.Size(421, 138) + Me.pnltotalbalance.TabIndex = 5 + ' + 'lblbalancerounded + ' + Me.lblbalancerounded.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbalancerounded.Location = New System.Drawing.Point(6, 30) + Me.lblbalancerounded.Name = "lblbalancerounded" + Me.lblbalancerounded.Size = New System.Drawing.Size(409, 48) + Me.lblbalancerounded.TabIndex = 3 + Me.lblbalancerounded.Text = "Balance: 1.54 BTN" + Me.lblbalancerounded.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblprecisebalance + ' + Me.lblprecisebalance.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblprecisebalance.Location = New System.Drawing.Point(6, 74) + Me.lblprecisebalance.Name = "lblprecisebalance" + Me.lblprecisebalance.Size = New System.Drawing.Size(409, 29) + Me.lblprecisebalance.TabIndex = 4 + Me.lblprecisebalance.Text = "(Precise Balance: 1.54663 BTN)" + Me.lblprecisebalance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlsend + ' + Me.pnlsend.Controls.Add(Me.Label8) + Me.pnlsend.Controls.Add(Me.Label7) + Me.pnlsend.Controls.Add(Me.txtamounttopay) + Me.pnlsend.Controls.Add(Me.btnsendmoney) + Me.pnlsend.Controls.Add(Me.lblpostpayment) + Me.pnlsend.Controls.Add(Me.lbltotalbalancesendscreen) + Me.pnlsend.Controls.Add(Me.Label4) + Me.pnlsend.Controls.Add(Me.txtsendtoaddress) + Me.pnlsend.Controls.Add(Me.Label3) + Me.pnlsend.Location = New System.Drawing.Point(99, 52) + Me.pnlsend.Name = "pnlsend" + Me.pnlsend.Size = New System.Drawing.Size(72, 110) + Me.pnlsend.TabIndex = 6 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(222, 91) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(112, 16) + Me.Label8.TabIndex = 8 + Me.Label8.Text = "Payment Amount:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(297, 115) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(36, 16) + Me.Label7.TabIndex = 7 + Me.Label7.Text = "BTN" + ' + 'txtamounttopay + ' + Me.txtamounttopay.BackColor = System.Drawing.Color.White + Me.txtamounttopay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtamounttopay.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtamounttopay.Location = New System.Drawing.Point(224, 113) + Me.txtamounttopay.Multiline = True + Me.txtamounttopay.Name = "txtamounttopay" + Me.txtamounttopay.Size = New System.Drawing.Size(70, 21) + Me.txtamounttopay.TabIndex = 6 + Me.txtamounttopay.Text = "0.00007" + Me.txtamounttopay.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'btnsendmoney + ' + Me.btnsendmoney.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsendmoney.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsendmoney.Location = New System.Drawing.Point(340, 91) + Me.btnsendmoney.Name = "btnsendmoney" + Me.btnsendmoney.Size = New System.Drawing.Size(75, 43) + Me.btnsendmoney.TabIndex = 5 + Me.btnsendmoney.Text = "Send" + Me.btnsendmoney.UseVisualStyleBackColor = True + ' + 'lblpostpayment + ' + Me.lblpostpayment.AutoSize = True + Me.lblpostpayment.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblpostpayment.Location = New System.Drawing.Point(5, 115) + Me.lblpostpayment.Name = "lblpostpayment" + Me.lblpostpayment.Size = New System.Drawing.Size(195, 16) + Me.lblpostpayment.TabIndex = 4 + Me.lblpostpayment.Text = "Post Payment Balance: 0.00053" + ' + 'lbltotalbalancesendscreen + ' + Me.lbltotalbalancesendscreen.AutoSize = True + Me.lbltotalbalancesendscreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotalbalancesendscreen.Location = New System.Drawing.Point(4, 93) + Me.lbltotalbalancesendscreen.Name = "lbltotalbalancesendscreen" + Me.lbltotalbalancesendscreen.Size = New System.Drawing.Size(188, 16) + Me.lbltotalbalancesendscreen.TabIndex = 3 + Me.lbltotalbalancesendscreen.Text = "Current Total Balance: 0.00060" + ' + 'Label4 + ' + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(4, 6) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(415, 49) + Me.Label4.TabIndex = 2 + Me.Label4.Text = "In order to spend your bitnotes you must find a service that allows you to pay wi" & _ + "th bitnotes. They will provide you with a Bitnote Address which you must copy ex" & _ + "actly into the pay to box below." + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'txtsendtoaddress + ' + Me.txtsendtoaddress.BackColor = System.Drawing.Color.White + Me.txtsendtoaddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtsendtoaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtsendtoaddress.Location = New System.Drawing.Point(60, 63) + Me.txtsendtoaddress.Multiline = True + Me.txtsendtoaddress.Name = "txtsendtoaddress" + Me.txtsendtoaddress.Size = New System.Drawing.Size(355, 22) + Me.txtsendtoaddress.TabIndex = 1 + Me.txtsendtoaddress.Text = "1FfmbHfnpaZjKFvyi1okTjJJusN455paPH" + Me.txtsendtoaddress.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(5, 66) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(58, 16) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "Pay To: " + ' + 'pnlreceive + ' + Me.pnlreceive.Controls.Add(Me.btncopyaddress) + Me.pnlreceive.Controls.Add(Me.lblmybitnoteaddress) + Me.pnlreceive.Controls.Add(Me.Label9) + Me.pnlreceive.Location = New System.Drawing.Point(194, 52) + Me.pnlreceive.Name = "pnlreceive" + Me.pnlreceive.Size = New System.Drawing.Size(72, 110) + Me.pnlreceive.TabIndex = 7 + ' + 'btncopyaddress + ' + Me.btncopyaddress.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btncopyaddress.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncopyaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncopyaddress.Location = New System.Drawing.Point(157, 98) + Me.btncopyaddress.Name = "btncopyaddress" + Me.btncopyaddress.Size = New System.Drawing.Size(98, 34) + Me.btncopyaddress.TabIndex = 2 + Me.btncopyaddress.Text = "Copy" + Me.btncopyaddress.UseVisualStyleBackColor = True + ' + 'lblmybitnoteaddress + ' + Me.lblmybitnoteaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmybitnoteaddress.Location = New System.Drawing.Point(1, 59) + Me.lblmybitnoteaddress.Name = "lblmybitnoteaddress" + Me.lblmybitnoteaddress.Size = New System.Drawing.Size(419, 36) + Me.lblmybitnoteaddress.TabIndex = 1 + Me.lblmybitnoteaddress.Text = "1LgZUWQNYWZ7Qhc1hScZieC3GWnPLzaqSd" + Me.lblmybitnoteaddress.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label9 + ' + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 7) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(415, 51) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "This is your bitnote address for receiving payments. When withdrawing bitnotes fr" & _ + "om online accounts or a bit digger be sure to give them them this address so you" & _ + " can receive your money." + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Black + Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Top + Me.PictureBox1.Location = New System.Drawing.Point(0, 33) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(421, 1) + Me.PictureBox1.TabIndex = 2 + Me.PictureBox1.TabStop = False + ' + 'pnlmenuholder + ' + Me.pnlmenuholder.Controls.Add(Me.btntotalbalance) + Me.pnlmenuholder.Controls.Add(Me.btnsend) + Me.pnlmenuholder.Controls.Add(Me.btnreceive) + Me.pnlmenuholder.Controls.Add(Me.btntransactions) + Me.pnlmenuholder.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlmenuholder.Location = New System.Drawing.Point(0, 0) + Me.pnlmenuholder.Name = "pnlmenuholder" + Me.pnlmenuholder.Size = New System.Drawing.Size(421, 33) + Me.pnlmenuholder.TabIndex = 1 + ' + 'btntotalbalance + ' + Me.btntotalbalance.BackgroundImage = Global.ShiftOS.My.Resources.Resources.TotalBalanceClicked + Me.btntotalbalance.FlatAppearance.BorderSize = 0 + Me.btntotalbalance.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntotalbalance.Location = New System.Drawing.Point(3, 3) + Me.btntotalbalance.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) + Me.btntotalbalance.Name = "btntotalbalance" + Me.btntotalbalance.Size = New System.Drawing.Size(103, 27) + Me.btntotalbalance.TabIndex = 0 + Me.btntotalbalance.UseVisualStyleBackColor = True + ' + 'btnsend + ' + Me.btnsend.BackgroundImage = Global.ShiftOS.My.Resources.Resources.SendUnclicked + Me.btnsend.FlatAppearance.BorderSize = 0 + Me.btnsend.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsend.Location = New System.Drawing.Point(109, 3) + Me.btnsend.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) + Me.btnsend.Name = "btnsend" + Me.btnsend.Size = New System.Drawing.Size(101, 27) + Me.btnsend.TabIndex = 1 + Me.btnsend.UseVisualStyleBackColor = True + ' + 'btnreceive + ' + Me.btnreceive.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ReceiveUnclicked + Me.btnreceive.FlatAppearance.BorderSize = 0 + Me.btnreceive.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnreceive.Location = New System.Drawing.Point(213, 3) + Me.btnreceive.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) + Me.btnreceive.Name = "btnreceive" + Me.btnreceive.Size = New System.Drawing.Size(101, 27) + Me.btnreceive.TabIndex = 2 + Me.btnreceive.UseVisualStyleBackColor = True + ' + 'btntransactions + ' + Me.btntransactions.BackgroundImage = Global.ShiftOS.My.Resources.Resources.transactionsUnclicked + Me.btntransactions.FlatAppearance.BorderSize = 0 + Me.btntransactions.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntransactions.Location = New System.Drawing.Point(317, 3) + Me.btntransactions.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) + Me.btntransactions.Name = "btntransactions" + Me.btntransactions.Size = New System.Drawing.Size(101, 27) + Me.btntransactions.TabIndex = 3 + Me.btntransactions.UseVisualStyleBackColor = True + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 174) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(425, 30) + Me.titlebar.TabIndex = 19 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'Bitnote_Wallet + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(425, 204) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Bitnote_Wallet" + Me.Text = "Bitnote_Wallet" + Me.TopMost = True + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.pnltransactions.ResumeLayout(False) + Me.pnltotalbalance.ResumeLayout(False) + Me.pnlsend.ResumeLayout(False) + Me.pnlsend.PerformLayout() + Me.pnlreceive.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlmenuholder.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pnlmenuholder As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents btntotalbalance As System.Windows.Forms.Button + Friend WithEvents btnsend As System.Windows.Forms.Button + Friend WithEvents btnreceive As System.Windows.Forms.Button + Friend WithEvents btntransactions As System.Windows.Forms.Button + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents lblprecisebalance As System.Windows.Forms.Label + Friend WithEvents lblbalancerounded As System.Windows.Forms.Label + Friend WithEvents pnltotalbalance As System.Windows.Forms.Panel + Friend WithEvents pnltransactions As System.Windows.Forms.Panel + Friend WithEvents pnlreceive As System.Windows.Forms.Panel + Friend WithEvents pnlsend As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents txtamounttopay As System.Windows.Forms.TextBox + Friend WithEvents btnsendmoney As System.Windows.Forms.Button + Friend WithEvents lblpostpayment As System.Windows.Forms.Label + Friend WithEvents lbltotalbalancesendscreen As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtsendtoaddress As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btncopyaddress As System.Windows.Forms.Button + Friend WithEvents lblmybitnoteaddress As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents txthistory As System.Windows.Forms.RichTextBox +End Class diff --git a/Bitnote Wallet.resx b/Bitnote Wallet.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Bitnote Wallet.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Bitnote Wallet.vb b/Bitnote Wallet.vb new file mode 100644 index 0000000..4cd4f65 --- /dev/null +++ b/Bitnote Wallet.vb @@ -0,0 +1,458 @@ +Public Class Bitnote_Wallet + 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 'replace with minimum size + Public minimumsizeheight As Integer = 0 'replace with minimum size + + 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() + + setupbitnotestats() + + ShiftOSDesktop.pnlpanelbuttonbitnotewallet.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonbitnotewallet, ShiftOSDesktop.tbbitnotewalleticon, ShiftOSDesktop.tbbitnotewallettext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(422, 204) '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.bitnotewalletname 'Remember to change to name of program!!!! + 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.bitnotewalleticontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + 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 + + Public Sub setupbitnotestats() + lblbalancerounded.Text = "Balance: " & Math.Truncate(ShiftOSDesktop.bitnotebalance * 100) / 100 & " BTN" + lblprecisebalance.Text = "(Precise Balance: " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalance, 5), 5) & " BTN)" + lbltotalbalancesendscreen.Text = "Current Total Balance: " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalance, 5), 5) + lblpostpayment.Text = "Post Payment Balance: " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalance - txtamounttopay.Text, 5), 5) + lblmybitnoteaddress.Text = ShiftOSDesktop.bitnoteaddress + + 'shiftnet + If Shiftnet.Visible = True Then + Shiftnet.setupappscapeaccountinfo() + End If + End Sub + + Private Sub hideallpanels() + pnltotalbalance.Hide() + pnlsend.Hide() + pnlreceive.Hide() + pnltransactions.Hide() + btntotalbalance.BackgroundImage = My.Resources.TotalBalanceUnclicked + btnsend.BackgroundImage = My.Resources.SendUnclicked + btnreceive.BackgroundImage = My.Resources.ReceiveUnclicked + btntransactions.BackgroundImage = My.Resources.transactionsUnclicked + End Sub + + Private Sub setupdisplay(ByVal display As Panel) + hideallpanels() + display.BringToFront() + display.Dock = DockStyle.Fill + display.Show() + End Sub + + Private Sub btntotalbalance_Click(sender As Object, e As EventArgs) Handles btntotalbalance.Click + setupdisplay(pnltotalbalance) + btntotalbalance.BackgroundImage = My.Resources.TotalBalanceClicked + End Sub + + Private Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click + setupdisplay(pnlsend) + btnsend.BackgroundImage = My.Resources.SendClicked + End Sub + + Private Sub btnreceive_Click(sender As Object, e As EventArgs) Handles btnreceive.Click + setupdisplay(pnlreceive) + btnreceive.BackgroundImage = My.Resources.ReceiveClicked + End Sub + + Private Sub btntransactions_Click(sender As Object, e As EventArgs) Handles btntransactions.Click + setupdisplay(pnltransactions) + btntransactions.BackgroundImage = My.Resources.transactionsClicked + End Sub + + Private Sub txtamounttopay_TextChanged(sender As Object, e As EventArgs) Handles txtamounttopay.TextChanged + Try + If ShiftOSDesktop.bitnotebalance > txtamounttopay.Text - 0.00001 Then + setupbitnotestats() + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub btnsendmoney_Click(sender As Object, e As EventArgs) Handles btnsendmoney.Click + Try + If txtamounttopay.Text - 0.00001 < ShiftOSDesktop.bitnotebalance Then + Select Case txtsendtoaddress.Text + Case ShiftOSDesktop.bitnoteaddress + logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text) + logtransaction(txtamounttopay.Text, "Credit From", txtsendtoaddress.Text) + Case ShiftOSDesktop.bitnoteaddressappscape + ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - txtamounttopay.Text + ShiftOSDesktop.bitnotebalanceappscape = ShiftOSDesktop.bitnotebalanceappscape + txtamounttopay.Text + logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text) + Case Else + ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - txtamounttopay.Text + logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text) + End Select + Else + infobox.title = "Bitnote - Payment Error!" + infobox.textinfo = "You have specified an invalid bitnote value or you lack sufficient funds." & Environment.NewLine & Environment.NewLine & "Your request to send money was unsuccessful" + infobox.Show() + End If + setupbitnotestats() + Catch ex As Exception + infobox.title = "Bitnote - Payment Error!" + infobox.textinfo = "You have specified an invalid bitnote value or you lack sufficient funds." & Environment.NewLine & Environment.NewLine & "Your request to send money was unsuccessful" + infobox.Show() + End Try + End Sub + + Private Sub btncopyaddress_Click(sender As Object, e As EventArgs) Handles btncopyaddress.Click + My.Computer.Clipboard.Clear() + My.Computer.Clipboard.SetText(ShiftOSDesktop.bitnoteaddress) + End Sub + + Public Sub logtransaction(ByVal value As Decimal, ByVal type As String, ByVal address As String) + If type = "Debit To" Then txthistory.SelectionColor = Color.Gray Else txthistory.SelectionColor = Color.Black + txthistory.AppendText("[" & My.Computer.Clock.LocalTime & "] " & value & " BTN " & type & ":" & Environment.NewLine & address & Environment.NewLine & Environment.NewLine) + End Sub +End Class \ No newline at end of file diff --git a/Calculator.Designer.vb b/Calculator.Designer.vb new file mode 100644 index 0000000..514dadf --- /dev/null +++ b/Calculator.Designer.vb @@ -0,0 +1,495 @@ + _ +Partial Class Calculator + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.btnclearall = New System.Windows.Forms.Button() + Me.btn5 = New System.Windows.Forms.Button() + Me.btndividedby = New System.Windows.Forms.Button() + Me.lbldispla = New System.Windows.Forms.TextBox() + Me.btntimes = New System.Windows.Forms.Button() + Me.btn1 = New System.Windows.Forms.Button() + Me.btnminus = New System.Windows.Forms.Button() + Me.btn2 = New System.Windows.Forms.Button() + Me.btnplus = New System.Windows.Forms.Button() + Me.btn3 = New System.Windows.Forms.Button() + Me.btnequals = New System.Windows.Forms.Button() + Me.btn4 = New System.Windows.Forms.Button() + Me.btn0 = New System.Windows.Forms.Button() + Me.btn6 = New System.Windows.Forms.Button() + Me.btn9 = New System.Windows.Forms.Button() + Me.btn7 = New System.Windows.Forms.Button() + Me.btn8 = New System.Windows.Forms.Button() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 276) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(257, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(166, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(194, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 246) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(259, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 248) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(222, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(122, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Calculator" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(259, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 246) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.btnclearall) + Me.pgcontents.Controls.Add(Me.btn5) + Me.pgcontents.Controls.Add(Me.btndividedby) + Me.pgcontents.Controls.Add(Me.lbldispla) + Me.pgcontents.Controls.Add(Me.btntimes) + Me.pgcontents.Controls.Add(Me.btn1) + Me.pgcontents.Controls.Add(Me.btnminus) + Me.pgcontents.Controls.Add(Me.btn2) + Me.pgcontents.Controls.Add(Me.btnplus) + Me.pgcontents.Controls.Add(Me.btn3) + Me.pgcontents.Controls.Add(Me.btnequals) + Me.pgcontents.Controls.Add(Me.btn4) + Me.pgcontents.Controls.Add(Me.btn0) + Me.pgcontents.Controls.Add(Me.btn6) + Me.pgcontents.Controls.Add(Me.btn9) + Me.pgcontents.Controls.Add(Me.btn7) + Me.pgcontents.Controls.Add(Me.btn8) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(257, 246) + Me.pgcontents.TabIndex = 20 + ' + 'btnclearall + ' + Me.btnclearall.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnclearall.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnclearall.Location = New System.Drawing.Point(72, 196) + Me.btnclearall.Name = "btnclearall" + Me.btnclearall.Size = New System.Drawing.Size(55, 41) + Me.btnclearall.TabIndex = 41 + Me.btnclearall.TabStop = False + Me.btnclearall.Text = "C" + Me.btnclearall.UseVisualStyleBackColor = True + ' + 'btn5 + ' + Me.btn5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn5.Location = New System.Drawing.Point(72, 102) + Me.btn5.Name = "btn5" + Me.btn5.Size = New System.Drawing.Size(55, 41) + Me.btn5.TabIndex = 30 + Me.btn5.TabStop = False + Me.btn5.Text = "5" + Me.btn5.UseVisualStyleBackColor = True + ' + 'btndividedby + ' + Me.btndividedby.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndividedby.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndividedby.Location = New System.Drawing.Point(196, 196) + Me.btndividedby.Name = "btndividedby" + Me.btndividedby.Size = New System.Drawing.Size(55, 41) + Me.btndividedby.TabIndex = 40 + Me.btndividedby.TabStop = False + Me.btndividedby.Text = "/" + Me.btndividedby.UseVisualStyleBackColor = True + ' + 'lbldispla + ' + Me.lbldispla.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbldispla.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbldispla.Location = New System.Drawing.Point(10, 10) + Me.lbldispla.Name = "lbldispla" + Me.lbldispla.ReadOnly = True + Me.lbldispla.Size = New System.Drawing.Size(241, 38) + Me.lbldispla.TabIndex = 25 + Me.lbldispla.TabStop = False + Me.lbldispla.Text = "0" + Me.lbldispla.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'btntimes + ' + Me.btntimes.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntimes.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btntimes.Location = New System.Drawing.Point(196, 149) + Me.btntimes.Name = "btntimes" + Me.btntimes.Size = New System.Drawing.Size(55, 41) + Me.btntimes.TabIndex = 39 + Me.btntimes.TabStop = False + Me.btntimes.Text = "x" + Me.btntimes.UseVisualStyleBackColor = True + ' + 'btn1 + ' + Me.btn1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn1.Location = New System.Drawing.Point(10, 55) + Me.btn1.Name = "btn1" + Me.btn1.Size = New System.Drawing.Size(55, 41) + Me.btn1.TabIndex = 26 + Me.btn1.TabStop = False + Me.btn1.Text = "1" + Me.btn1.UseVisualStyleBackColor = True + ' + 'btnminus + ' + Me.btnminus.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnminus.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnminus.Location = New System.Drawing.Point(196, 102) + Me.btnminus.Name = "btnminus" + Me.btnminus.Size = New System.Drawing.Size(55, 41) + Me.btnminus.TabIndex = 38 + Me.btnminus.TabStop = False + Me.btnminus.Text = "-" + Me.btnminus.UseVisualStyleBackColor = True + ' + 'btn2 + ' + Me.btn2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn2.Location = New System.Drawing.Point(72, 55) + Me.btn2.Name = "btn2" + Me.btn2.Size = New System.Drawing.Size(55, 41) + Me.btn2.TabIndex = 27 + Me.btn2.TabStop = False + Me.btn2.Text = "2" + Me.btn2.UseVisualStyleBackColor = True + ' + 'btnplus + ' + Me.btnplus.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnplus.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnplus.Location = New System.Drawing.Point(196, 55) + Me.btnplus.Name = "btnplus" + Me.btnplus.Size = New System.Drawing.Size(55, 41) + Me.btnplus.TabIndex = 37 + Me.btnplus.TabStop = False + Me.btnplus.Text = "+" + Me.btnplus.UseVisualStyleBackColor = True + ' + 'btn3 + ' + Me.btn3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn3.Location = New System.Drawing.Point(134, 55) + Me.btn3.Name = "btn3" + Me.btn3.Size = New System.Drawing.Size(55, 41) + Me.btn3.TabIndex = 28 + Me.btn3.TabStop = False + Me.btn3.Text = "3" + Me.btn3.UseVisualStyleBackColor = True + ' + 'btnequals + ' + Me.btnequals.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnequals.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnequals.Location = New System.Drawing.Point(134, 196) + Me.btnequals.Name = "btnequals" + Me.btnequals.Size = New System.Drawing.Size(55, 41) + Me.btnequals.TabIndex = 36 + Me.btnequals.Text = "=" + Me.btnequals.UseVisualStyleBackColor = True + ' + 'btn4 + ' + Me.btn4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn4.Location = New System.Drawing.Point(10, 102) + Me.btn4.Name = "btn4" + Me.btn4.Size = New System.Drawing.Size(55, 41) + Me.btn4.TabIndex = 29 + Me.btn4.TabStop = False + Me.btn4.Text = "4" + Me.btn4.UseVisualStyleBackColor = True + ' + 'btn0 + ' + Me.btn0.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn0.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn0.Location = New System.Drawing.Point(10, 196) + Me.btn0.Name = "btn0" + Me.btn0.Size = New System.Drawing.Size(55, 41) + Me.btn0.TabIndex = 35 + Me.btn0.TabStop = False + Me.btn0.Text = "0" + Me.btn0.UseVisualStyleBackColor = True + ' + 'btn6 + ' + Me.btn6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn6.Location = New System.Drawing.Point(134, 102) + Me.btn6.Name = "btn6" + Me.btn6.Size = New System.Drawing.Size(55, 41) + Me.btn6.TabIndex = 31 + Me.btn6.TabStop = False + Me.btn6.Text = "6" + Me.btn6.UseVisualStyleBackColor = True + ' + 'btn9 + ' + Me.btn9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn9.Location = New System.Drawing.Point(134, 149) + Me.btn9.Name = "btn9" + Me.btn9.Size = New System.Drawing.Size(55, 41) + Me.btn9.TabIndex = 34 + Me.btn9.TabStop = False + Me.btn9.Text = "9" + Me.btn9.UseVisualStyleBackColor = True + ' + 'btn7 + ' + Me.btn7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn7.Location = New System.Drawing.Point(10, 149) + Me.btn7.Name = "btn7" + Me.btn7.Size = New System.Drawing.Size(55, 41) + Me.btn7.TabIndex = 32 + Me.btn7.TabStop = False + Me.btn7.Text = "7" + Me.btn7.UseVisualStyleBackColor = True + ' + 'btn8 + ' + Me.btn8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn8.Location = New System.Drawing.Point(72, 149) + Me.btn8.Name = "btn8" + Me.btn8.Size = New System.Drawing.Size(55, 41) + Me.btn8.TabIndex = 33 + Me.btn8.TabStop = False + Me.btn8.Text = "8" + Me.btn8.UseVisualStyleBackColor = True + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 248) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(261, 30) + Me.titlebar.TabIndex = 19 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconCalculator + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'Calculator + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(261, 278) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Calculator" + Me.Text = "Calculator" + Me.TopMost = True + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents btnclearall As System.Windows.Forms.Button + Friend WithEvents btn5 As System.Windows.Forms.Button + Friend WithEvents btndividedby As System.Windows.Forms.Button + Friend WithEvents lbldispla As System.Windows.Forms.TextBox + Friend WithEvents btntimes As System.Windows.Forms.Button + Friend WithEvents btn1 As System.Windows.Forms.Button + Friend WithEvents btnminus As System.Windows.Forms.Button + Friend WithEvents btn2 As System.Windows.Forms.Button + Friend WithEvents btnplus As System.Windows.Forms.Button + Friend WithEvents btn3 As System.Windows.Forms.Button + Friend WithEvents btnequals As System.Windows.Forms.Button + Friend WithEvents btn4 As System.Windows.Forms.Button + Friend WithEvents btn0 As System.Windows.Forms.Button + Friend WithEvents btn6 As System.Windows.Forms.Button + Friend WithEvents btn9 As System.Windows.Forms.Button + Friend WithEvents btn7 As System.Windows.Forms.Button + Friend WithEvents btn8 As System.Windows.Forms.Button +End Class diff --git a/Calculator.resx b/Calculator.resx new file mode 100644 index 0000000..ff4c820 --- /dev/null +++ b/Calculator.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1347, 18 + + + 1441, 18 + + + 1525, 18 + + \ No newline at end of file diff --git a/Calculator.vb b/Calculator.vb new file mode 100644 index 0000000..d88c6b8 --- /dev/null +++ b/Calculator.vb @@ -0,0 +1,681 @@ +Public Class Calculator + 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 dNumber As Double + Public sOperation As String + Public bHasFirstNumber, bHasSecondNumber, bHasOperation As Boolean + + 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() + + ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + dNumber = 0 + bHasFirstNumber = False + bHasOperation = False + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.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(261, 278) '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.calculatorname + 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.calculatoricontitlebar '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 MyBase.FormClosing + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + End Sub + + 'end of general setup + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 1 + bHasSecondNumber = True + Exit Sub + End If + Me.lbldispla.Text &= 1 + Exit Sub + End If + Me.lbldispla.Text &= 1 + Else + Me.lbldispla.Text = 1 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 2 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 2 + Exit Sub + End If + Me.lbldispla.Text &= 2 + Else + Me.lbldispla.Text = 2 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 3 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 3 + Exit Sub + End If + Me.lbldispla.Text &= 3 + Else + Me.lbldispla.Text = 3 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 4 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 4 + Exit Sub + End If + Me.lbldispla.Text &= 4 + Else + Me.lbldispla.Text = 4 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 5 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 5 + Exit Sub + End If + Me.lbldispla.Text &= 5 + Else + Me.lbldispla.Text = 5 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 6 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 6 + Exit Sub + End If + Me.lbldispla.Text &= 6 + Else + Me.lbldispla.Text = 6 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 7 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 7 + Exit Sub + End If + Me.lbldispla.Text &= 7 + Else + Me.lbldispla.Text = 7 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 8 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 8 + Exit Sub + End If + Me.lbldispla.Text &= 8 + Else + Me.lbldispla.Text = 8 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text = 0 Then + Me.lbldispla.Text = 9 + bHasSecondNumber = True + + Exit Sub + End If + + Me.lbldispla.Text &= 9 + Exit Sub + End If + Me.lbldispla.Text &= 9 + Else + Me.lbldispla.Text = 9 + bHasFirstNumber = True + bHasOperation = False + End If + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click + If bHasFirstNumber Then + If dNumber <> 0 Then + If Me.lbldispla.Text <> 0 Then + Me.lbldispla.Text &= 0 + End If + Exit Sub + End If + Me.lbldispla.Text &= 0 + Else + Me.lbldispla.Text = 0 + End If + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnequals.Click + If bHasFirstNumber And bHasSecondNumber Then + + If (sOperation = "+") Then + Me.lbldispla.Text = Val(Me.lbldispla.Text) + dNumber + ElseIf (sOperation = "-") Then + Me.lbldispla.Text = dNumber - Val(Me.lbldispla.Text) + ElseIf (sOperation = "*") Then + Me.lbldispla.Text = Val(Me.lbldispla.Text) * dNumber + ElseIf (sOperation = "/") Then + Me.lbldispla.Text = dNumber / Val(Me.lbldispla.Text) + Else + Exit Sub + End If + + dNumber = Val(Me.lbldispla.Text) + bHasFirstNumber = False + bHasSecondNumber = False + bHasOperation = True + sOperation = "" + End If + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplus.Click + + If bHasSecondNumber Then + + If bHasOperation Then + If (sOperation = "+") Then + dNumber = Val(Me.lbldispla.Text) + dNumber + ElseIf (sOperation = "-") Then + dNumber = dNumber - Val(Me.lbldispla.Text) + ElseIf (sOperation = "*") Then + dNumber = Val(Me.lbldispla.Text) * dNumber + ElseIf (sOperation = "/") Then + dNumber = dNumber / Val(Me.lbldispla.Text) + Else + Exit Sub + End If + + sOperation = "+" + bHasSecondNumber = False + Me.lbldispla.Text = 0 + + Exit Sub + Else + sOperation = "+" + dNumber = Val(Me.lbldispla.Text) + dNumber + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + End If + End If + + If bHasFirstNumber Or bHasOperation Then + If bHasOperation Then + bHasFirstNumber = True + End If + sOperation = "+" + bHasOperation = True + dNumber = Val(Me.lbldispla.Text) + Me.lbldispla.Text = 0 + End If + End Sub + + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnminus.Click + If bHasSecondNumber Then + If bHasOperation Then + If (sOperation = "+") Then + dNumber = Val(Me.lbldispla.Text) + dNumber + ElseIf (sOperation = "-") Then + dNumber = dNumber - Val(Me.lbldispla.Text) + ElseIf (sOperation = "*") Then + dNumber = Val(Me.lbldispla.Text) * dNumber + ElseIf (sOperation = "/") Then + dNumber = dNumber / Val(Me.lbldispla.Text) + Else + Exit Sub + End If + sOperation = "-" + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + Else + sOperation = "-" + dNumber = dNumber - Val(Me.lbldispla.Text) + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + End If + End If + If bHasFirstNumber Or bHasOperation Then + If bHasOperation Then + bHasFirstNumber = True + End If + sOperation = "-" + dNumber = Val(Me.lbldispla.Text) + Me.lbldispla.Text = 0 + End If + End Sub + + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntimes.Click + If bHasSecondNumber Then + If bHasOperation Then + If (sOperation = "+") Then + dNumber = Val(Me.lbldispla.Text) + dNumber + ElseIf (sOperation = "-") Then + dNumber = dNumber - Val(Me.lbldispla.Text) + ElseIf (sOperation = "*") Then + dNumber = Val(Me.lbldispla.Text) * dNumber + ElseIf (sOperation = "/") Then + dNumber = dNumber / Val(Me.lbldispla.Text) + Else + Exit Sub + End If + sOperation = "*" + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + Else + sOperation = "*" + dNumber = Val(Me.lbldispla.Text) * dNumber + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + End If + End If + If bHasFirstNumber Or bHasOperation Then + If bHasOperation Then + bHasFirstNumber = True + End If + sOperation = "*" + dNumber = Val(Me.lbldispla.Text) + Me.lbldispla.Text = 0 + End If + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndividedby.Click + If bHasSecondNumber Then + If bHasOperation Then + If (sOperation = "+") Then + dNumber = Val(Me.lbldispla.Text) + dNumber + ElseIf (sOperation = "-") Then + dNumber = dNumber - Val(Me.lbldispla.Text) + ElseIf (sOperation = "*") Then + dNumber = Val(Me.lbldispla.Text) * dNumber + ElseIf (sOperation = "/") Then + dNumber = dNumber / Val(Me.lbldispla.Text) + Else + Exit Sub + End If + sOperation = "/" + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + Else + sOperation = "/" + dNumber = dNumber / Val(Me.lbldispla.Text) + bHasSecondNumber = False + Me.lbldispla.Text = 0 + Exit Sub + End If + End If + If bHasFirstNumber Or bHasOperation Then + If bHasOperation Then + bHasFirstNumber = True + End If + sOperation = "/" + dNumber = Val(Me.lbldispla.Text) + Me.lbldispla.Text = 0 + End If + End Sub + + Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclearall.Click + Me.lbldispla.Text = 0 + dNumber = 0 + bHasFirstNumber = False + bHasSecondNumber = False + bHasOperation = False + sOperation = "" + End Sub +End Class \ No newline at end of file diff --git a/Clock.Designer.vb b/Clock.Designer.vb new file mode 100644 index 0000000..a36a758 --- /dev/null +++ b/Clock.Designer.vb @@ -0,0 +1,270 @@ + _ +Partial Class Clock + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.bottomtext = New System.Windows.Forms.Label() + Me.toptext = New System.Windows.Forms.Label() + Me.lbmaintime = New System.Windows.Forms.Label() + Me.clocktick = New System.Windows.Forms.Timer(Me.components) + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgcontents.SuspendLayout() + Me.SuspendLayout() + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(364, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 137) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 135) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 137) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 135) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(366, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 22 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconClock + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 21 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(69, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Clock" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(364, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 165) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(362, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.bottomtext) + Me.pgcontents.Controls.Add(Me.toptext) + Me.pgcontents.Controls.Add(Me.lbmaintime) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(362, 135) + Me.pgcontents.TabIndex = 20 + ' + 'bottomtext + ' + Me.bottomtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.bottomtext.Location = New System.Drawing.Point(10, 88) + Me.bottomtext.Name = "bottomtext" + Me.bottomtext.Size = New System.Drawing.Size(342, 23) + Me.bottomtext.TabIndex = 2 + Me.bottomtext.Text = "Seconds have passed" + Me.bottomtext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'toptext + ' + Me.toptext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.toptext.Location = New System.Drawing.Point(10, 22) + Me.toptext.Name = "toptext" + Me.toptext.Size = New System.Drawing.Size(342, 23) + Me.toptext.TabIndex = 1 + Me.toptext.Text = "The Time is" + Me.toptext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbmaintime + ' + Me.lbmaintime.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbmaintime.Location = New System.Drawing.Point(6, 38) + Me.lbmaintime.Name = "lbmaintime" + Me.lbmaintime.Size = New System.Drawing.Size(350, 52) + Me.lbmaintime.TabIndex = 0 + Me.lbmaintime.Text = "00000000" + Me.lbmaintime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'clocktick + ' + Me.clocktick.Enabled = True + Me.clocktick.Interval = 1000 + ' + 'Clock + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(366, 167) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Clock" + Me.Text = "Clock" + Me.TopMost = True + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgcontents.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents bottomtext As System.Windows.Forms.Label + Friend WithEvents toptext As System.Windows.Forms.Label + Friend WithEvents lbmaintime As System.Windows.Forms.Label + Friend WithEvents clocktick As System.Windows.Forms.Timer + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel +End Class diff --git a/Clock.resx b/Clock.resx new file mode 100644 index 0000000..02cc2a0 --- /dev/null +++ b/Clock.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 12 + + \ No newline at end of file diff --git a/Clock.vb b/Clock.vb new file mode 100644 index 0000000..843a954 --- /dev/null +++ b/Clock.vb @@ -0,0 +1,365 @@ +Public Class Clock + 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 + + Dim movedtext As Boolean = False + + Private Sub Knowledge_Input_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 + gettime() + setskin() + + ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonclock, ShiftOSDesktop.tbclockicon, ShiftOSDesktop.tbclocktext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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 + 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(366, 167) '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.clockname + 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.boughtclockicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.clockicontitlebar '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 clocktick_Tick(sender As Object, e As EventArgs) Handles clocktick.Tick + gettime() + End Sub + + Private Sub gettime() + If ShiftOSDesktop.boughtsplitsecondtime = True Then + If movedtext = False Then + toptext.Location = New Point(toptext.Location.X, toptext.Location.Y + 10) + lbmaintime.Location = New Point(lbmaintime.Location.X, lbmaintime.Location.Y + 10) + bottomtext.Hide() + movedtext = True + End If + toptext.Text = "The Time is" + lbmaintime.Text = TimeOfDay + bottomtext.Hide() + Else + If ShiftOSDesktop.boughtminuteaccuracytime = True Then + If movedtext = False Then + toptext.Location = New Point(toptext.Location.X, toptext.Location.Y + 10) + lbmaintime.Location = New Point(lbmaintime.Location.X, lbmaintime.Location.Y + 10) + bottomtext.Hide() + movedtext = True + End If + If Date.Now.Hour < 12 Then + toptext.Text = "The Time is" + lbmaintime.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM" + bottomtext.Hide() + Else + toptext.Text = "The Time is" + lbmaintime.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM" + bottomtext.Hide() + End If + Else + If ShiftOSDesktop.boughtpmandam = True Then + If movedtext = False Then + toptext.Location = New Point(toptext.Location.X, toptext.Location.Y + 10) + lbmaintime.Location = New Point(lbmaintime.Location.X, lbmaintime.Location.Y + 10) + bottomtext.Hide() + movedtext = True + End If + If Date.Now.Hour < 12 Then + toptext.Text = "The Time is" + lbmaintime.Text = TimeOfDay.Hour & " AM" + Else + toptext.Text = "The Time is" + lbmaintime.Text = TimeOfDay.Hour - 12 & " PM" + End If + Else + If ShiftOSDesktop.boughthourspastmidnight = True Then + toptext.Text = "Since Midnight" + lbmaintime.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60) + bottomtext.Text = "Hours have passed" + bottomtext.Show() + Else + If ShiftOSDesktop.boughtminutespastmidnight = True Then + toptext.Text = "Since Midnight" + lbmaintime.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60) + bottomtext.Text = "Minutes have passed" + bottomtext.Show() + Else + If ShiftOSDesktop.boughtsecondspastmidnight = True Then + toptext.Text = "Since Midnight" + lbmaintime.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) + bottomtext.Text = "Seconds have passed" + bottomtext.Show() + End If + End If + End If + End If + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/Colour Picker.Designer.vb b/Colour Picker.Designer.vb new file mode 100644 index 0000000..9c0833e --- /dev/null +++ b/Colour Picker.Designer.vb @@ -0,0 +1,3729 @@ + _ +Partial Class Colour_Picker + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnlpinkcolours = New System.Windows.Forms.Panel() + Me.pnlpinkoptions = New System.Windows.Forms.Panel() + Me.Label35 = New System.Windows.Forms.Label() + Me.txtpinksgreen = New System.Windows.Forms.TextBox() + Me.txtpinksred = New System.Windows.Forms.TextBox() + Me.Label36 = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.txtpinksblue = New System.Windows.Forms.TextBox() + Me.pnlpinkcustomcolour = New System.Windows.Forms.Panel() + Me.pnlpink16 = New System.Windows.Forms.Panel() + Me.pnlpink12 = New System.Windows.Forms.Panel() + Me.pnlpink14 = New System.Windows.Forms.Panel() + Me.pnlpink10 = New System.Windows.Forms.Panel() + Me.pnlpink8 = New System.Windows.Forms.Panel() + Me.pnlpink4 = New System.Windows.Forms.Panel() + Me.pnlpink6 = New System.Windows.Forms.Panel() + Me.pnlpink15 = New System.Windows.Forms.Panel() + Me.pnlpink2 = New System.Windows.Forms.Panel() + Me.pnlpink13 = New System.Windows.Forms.Panel() + Me.pnlpink11 = New System.Windows.Forms.Panel() + Me.pnlpink7 = New System.Windows.Forms.Panel() + Me.pnlpink9 = New System.Windows.Forms.Panel() + Me.pnlpink5 = New System.Windows.Forms.Panel() + Me.pnlpink3 = New System.Windows.Forms.Panel() + Me.pnlpink1 = New System.Windows.Forms.Panel() + Me.lblpinklevel = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.pnlredcolours = New System.Windows.Forms.Panel() + Me.pnlredoptions = New System.Windows.Forms.Panel() + Me.Label32 = New System.Windows.Forms.Label() + Me.txtredsblue = New System.Windows.Forms.TextBox() + Me.txtredsred = New System.Windows.Forms.TextBox() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.txtredsgreen = New System.Windows.Forms.TextBox() + Me.pnlredcustomcolour = New System.Windows.Forms.Panel() + Me.pnlred16 = New System.Windows.Forms.Panel() + Me.pnlred12 = New System.Windows.Forms.Panel() + Me.pnlred14 = New System.Windows.Forms.Panel() + Me.pnlred10 = New System.Windows.Forms.Panel() + Me.pnlred8 = New System.Windows.Forms.Panel() + Me.pnlred4 = New System.Windows.Forms.Panel() + Me.pnlred6 = New System.Windows.Forms.Panel() + Me.pnlred15 = New System.Windows.Forms.Panel() + Me.pnlred2 = New System.Windows.Forms.Panel() + Me.pnlred13 = New System.Windows.Forms.Panel() + Me.pnlred11 = New System.Windows.Forms.Panel() + Me.pnlred7 = New System.Windows.Forms.Panel() + Me.pnlred9 = New System.Windows.Forms.Panel() + Me.pnlred5 = New System.Windows.Forms.Panel() + Me.pnlred3 = New System.Windows.Forms.Panel() + Me.pnlred1 = New System.Windows.Forms.Panel() + Me.lblredlevel = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.pnlbrowncolours = New System.Windows.Forms.Panel() + Me.pnlbrownoptions = New System.Windows.Forms.Panel() + Me.Label29 = New System.Windows.Forms.Label() + Me.txtbrownsblue = New System.Windows.Forms.TextBox() + Me.txtbrownsred = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.txtbrownsgreen = New System.Windows.Forms.TextBox() + Me.pnlbrowncustomcolour = New System.Windows.Forms.Panel() + Me.pnlbrown16 = New System.Windows.Forms.Panel() + Me.pnlbrown12 = New System.Windows.Forms.Panel() + Me.pnlbrown14 = New System.Windows.Forms.Panel() + Me.pnlbrown10 = New System.Windows.Forms.Panel() + Me.pnlbrown8 = New System.Windows.Forms.Panel() + Me.pnlbrown4 = New System.Windows.Forms.Panel() + Me.pnlbrown6 = New System.Windows.Forms.Panel() + Me.pnlbrown15 = New System.Windows.Forms.Panel() + Me.pnlbrown2 = New System.Windows.Forms.Panel() + Me.pnlbrown13 = New System.Windows.Forms.Panel() + Me.pnlbrown11 = New System.Windows.Forms.Panel() + Me.pnlbrown7 = New System.Windows.Forms.Panel() + Me.pnlbrown9 = New System.Windows.Forms.Panel() + Me.pnlbrown5 = New System.Windows.Forms.Panel() + Me.pnlbrown3 = New System.Windows.Forms.Panel() + Me.pnlbrown1 = New System.Windows.Forms.Panel() + Me.lblbrownlevel = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.pnlorangecolours = New System.Windows.Forms.Panel() + Me.pnlorangeoptions = New System.Windows.Forms.Panel() + Me.Label25 = New System.Windows.Forms.Label() + Me.txtorangesblue = New System.Windows.Forms.TextBox() + Me.txtorangesred = New System.Windows.Forms.TextBox() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() + Me.txtorangesgreen = New System.Windows.Forms.TextBox() + Me.pnlorangecustomcolour = New System.Windows.Forms.Panel() + Me.pnlorange16 = New System.Windows.Forms.Panel() + Me.pnlorange12 = New System.Windows.Forms.Panel() + Me.pnlorange14 = New System.Windows.Forms.Panel() + Me.pnlorange10 = New System.Windows.Forms.Panel() + Me.pnlorange8 = New System.Windows.Forms.Panel() + Me.pnlorange4 = New System.Windows.Forms.Panel() + Me.pnlorange6 = New System.Windows.Forms.Panel() + Me.pnlorange15 = New System.Windows.Forms.Panel() + Me.pnlorange2 = New System.Windows.Forms.Panel() + Me.pnlorange13 = New System.Windows.Forms.Panel() + Me.pnlorange11 = New System.Windows.Forms.Panel() + Me.pnlorange7 = New System.Windows.Forms.Panel() + Me.pnlorange9 = New System.Windows.Forms.Panel() + Me.pnlorange5 = New System.Windows.Forms.Panel() + Me.pnlorange3 = New System.Windows.Forms.Panel() + Me.pnlorange1 = New System.Windows.Forms.Panel() + Me.lblorangelevel = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.pnlyellowcolours = New System.Windows.Forms.Panel() + Me.pnlyellowoptions = New System.Windows.Forms.Panel() + Me.Label20 = New System.Windows.Forms.Label() + Me.txtyellowsblue = New System.Windows.Forms.TextBox() + Me.txtyellowsred = New System.Windows.Forms.TextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.txtyellowsgreen = New System.Windows.Forms.TextBox() + Me.pnlyellowcustomcolour = New System.Windows.Forms.Panel() + Me.pnlyellow16 = New System.Windows.Forms.Panel() + Me.pnlyellow12 = New System.Windows.Forms.Panel() + Me.pnlyellow14 = New System.Windows.Forms.Panel() + Me.pnlyellow10 = New System.Windows.Forms.Panel() + Me.pnlyellow8 = New System.Windows.Forms.Panel() + Me.pnlyellow4 = New System.Windows.Forms.Panel() + Me.pnlyellow6 = New System.Windows.Forms.Panel() + Me.pnlyellow15 = New System.Windows.Forms.Panel() + Me.pnlyellow2 = New System.Windows.Forms.Panel() + Me.pnlyellow13 = New System.Windows.Forms.Panel() + Me.pnlyellow11 = New System.Windows.Forms.Panel() + Me.pnlyellow7 = New System.Windows.Forms.Panel() + Me.pnlyellow9 = New System.Windows.Forms.Panel() + Me.pnlyellow5 = New System.Windows.Forms.Panel() + Me.pnlyellow3 = New System.Windows.Forms.Panel() + Me.pnlyellow1 = New System.Windows.Forms.Panel() + Me.lblyellowlevel = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.pnlgreencolours = New System.Windows.Forms.Panel() + Me.pnlgreenoptions = New System.Windows.Forms.Panel() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtgreensred = New System.Windows.Forms.TextBox() + Me.txtgreensgreen = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.txtgreensblue = New System.Windows.Forms.TextBox() + Me.pnlgreencustomcolour = New System.Windows.Forms.Panel() + Me.pnlgreen16 = New System.Windows.Forms.Panel() + Me.pnlgreen12 = New System.Windows.Forms.Panel() + Me.pnlgreen14 = New System.Windows.Forms.Panel() + Me.pnlgreen10 = New System.Windows.Forms.Panel() + Me.pnlgreen8 = New System.Windows.Forms.Panel() + Me.pnlgreen4 = New System.Windows.Forms.Panel() + Me.pnlgreen6 = New System.Windows.Forms.Panel() + Me.pnlgreen15 = New System.Windows.Forms.Panel() + Me.pnlgreen2 = New System.Windows.Forms.Panel() + Me.pnlgreen13 = New System.Windows.Forms.Panel() + Me.pnlgreen11 = New System.Windows.Forms.Panel() + Me.pnlgreen7 = New System.Windows.Forms.Panel() + Me.pnlgreen9 = New System.Windows.Forms.Panel() + Me.pnlgreen5 = New System.Windows.Forms.Panel() + Me.pnlgreen3 = New System.Windows.Forms.Panel() + Me.pnlgreen1 = New System.Windows.Forms.Panel() + Me.lblgreenlevel = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.pnlbluecolours = New System.Windows.Forms.Panel() + Me.pnlblueoptions = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtbluesred = New System.Windows.Forms.TextBox() + Me.txtbluesblue = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtbluesgreen = New System.Windows.Forms.TextBox() + Me.pnlbluecustomcolour = New System.Windows.Forms.Panel() + Me.pnlblue16 = New System.Windows.Forms.Panel() + Me.pnlblue12 = New System.Windows.Forms.Panel() + Me.pnlblue14 = New System.Windows.Forms.Panel() + Me.pnlblue10 = New System.Windows.Forms.Panel() + Me.pnlblue8 = New System.Windows.Forms.Panel() + Me.pnlblue4 = New System.Windows.Forms.Panel() + Me.pnlblue6 = New System.Windows.Forms.Panel() + Me.pnlblue15 = New System.Windows.Forms.Panel() + Me.pnlblue2 = New System.Windows.Forms.Panel() + Me.pnlblue13 = New System.Windows.Forms.Panel() + Me.pnlblue11 = New System.Windows.Forms.Panel() + Me.pnlblue7 = New System.Windows.Forms.Panel() + Me.pnlblue9 = New System.Windows.Forms.Panel() + Me.pnlblue5 = New System.Windows.Forms.Panel() + Me.pnlblue3 = New System.Windows.Forms.Panel() + Me.pnlblue1 = New System.Windows.Forms.Panel() + Me.lblbluelevel = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.pnlpurplecolours = New System.Windows.Forms.Panel() + Me.pnlpurpleoptions = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtpurplesgreen = New System.Windows.Forms.TextBox() + Me.txtpurplesblue = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtpurplesred = New System.Windows.Forms.TextBox() + Me.pnlpurplecustomcolour = New System.Windows.Forms.Panel() + Me.pnlpurple16 = New System.Windows.Forms.Panel() + Me.pnlpurple12 = New System.Windows.Forms.Panel() + Me.pnlpurple14 = New System.Windows.Forms.Panel() + Me.pnlpurple10 = New System.Windows.Forms.Panel() + Me.pnlpurple8 = New System.Windows.Forms.Panel() + Me.pnlpurple4 = New System.Windows.Forms.Panel() + Me.pnlpurple6 = New System.Windows.Forms.Panel() + Me.pnlpurple15 = New System.Windows.Forms.Panel() + Me.pnlpurple2 = New System.Windows.Forms.Panel() + Me.pnlpurple13 = New System.Windows.Forms.Panel() + Me.pnlpurple11 = New System.Windows.Forms.Panel() + Me.pnlpurple7 = New System.Windows.Forms.Panel() + Me.pnlpurple9 = New System.Windows.Forms.Panel() + Me.pnlpurple5 = New System.Windows.Forms.Panel() + Me.pnlpurple3 = New System.Windows.Forms.Panel() + Me.pnlpurple1 = New System.Windows.Forms.Panel() + Me.lblpurplelevel = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.pnlgraycolours = New System.Windows.Forms.Panel() + Me.lblcustomshadetut = New System.Windows.Forms.Label() + Me.txtcustomgrayshade = New System.Windows.Forms.TextBox() + Me.pnlgraycustomcolour = New System.Windows.Forms.Panel() + Me.pnlgray16 = New System.Windows.Forms.Panel() + Me.pnlgray12 = New System.Windows.Forms.Panel() + Me.pnlgray14 = New System.Windows.Forms.Panel() + Me.pnlgray10 = New System.Windows.Forms.Panel() + Me.pnlgray8 = New System.Windows.Forms.Panel() + Me.pnlgray4 = New System.Windows.Forms.Panel() + Me.pnlgray6 = New System.Windows.Forms.Panel() + Me.pnlgray15 = New System.Windows.Forms.Panel() + Me.pnlgray2 = New System.Windows.Forms.Panel() + Me.pnlgray13 = New System.Windows.Forms.Panel() + Me.pnlgray11 = New System.Windows.Forms.Panel() + Me.pnlgray7 = New System.Windows.Forms.Panel() + Me.pnlgray9 = New System.Windows.Forms.Panel() + Me.pnlgray5 = New System.Windows.Forms.Panel() + Me.pnlgray3 = New System.Windows.Forms.Panel() + Me.pnlgray1 = New System.Windows.Forms.Panel() + Me.lblgraylevel = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.pnlanycolours = New System.Windows.Forms.Panel() + Me.pnlanyoptions = New System.Windows.Forms.Panel() + Me.Label38 = New System.Windows.Forms.Label() + Me.txtanysgreen = New System.Windows.Forms.TextBox() + Me.txtanysred = New System.Windows.Forms.TextBox() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label40 = New System.Windows.Forms.Label() + Me.txtanysblue = New System.Windows.Forms.TextBox() + Me.pnlanycustomcolour = New System.Windows.Forms.Panel() + Me.pnlany16 = New System.Windows.Forms.Panel() + Me.pnlany12 = New System.Windows.Forms.Panel() + Me.pnlany14 = New System.Windows.Forms.Panel() + Me.pnlany10 = New System.Windows.Forms.Panel() + Me.pnlany8 = New System.Windows.Forms.Panel() + Me.pnlany4 = New System.Windows.Forms.Panel() + Me.pnlany6 = New System.Windows.Forms.Panel() + Me.pnlany15 = New System.Windows.Forms.Panel() + Me.pnlany2 = New System.Windows.Forms.Panel() + Me.pnlany13 = New System.Windows.Forms.Panel() + Me.pnlany11 = New System.Windows.Forms.Panel() + Me.pnlany7 = New System.Windows.Forms.Panel() + Me.pnlany9 = New System.Windows.Forms.Panel() + Me.pnlany5 = New System.Windows.Forms.Panel() + Me.pnlany3 = New System.Windows.Forms.Panel() + Me.pnlany1 = New System.Windows.Forms.Panel() + Me.lblanylevel = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblnewcolourrgb = New System.Windows.Forms.Label() + Me.lblnewcolourname = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.lbloldcolourrgb = New System.Windows.Forms.Label() + Me.lbloldcolourname = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.pnlnewcolour = New System.Windows.Forms.Panel() + Me.pnloldcolour = New System.Windows.Forms.Panel() + Me.lblobjecttocolour = New System.Windows.Forms.Label() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pgcontents.SuspendLayout() + Me.pnlpinkcolours.SuspendLayout() + Me.pnlpinkoptions.SuspendLayout() + Me.pnlredcolours.SuspendLayout() + Me.pnlredoptions.SuspendLayout() + Me.pnlbrowncolours.SuspendLayout() + Me.pnlbrownoptions.SuspendLayout() + Me.pnlorangecolours.SuspendLayout() + Me.pnlorangeoptions.SuspendLayout() + Me.pnlyellowcolours.SuspendLayout() + Me.pnlyellowoptions.SuspendLayout() + Me.pnlgreencolours.SuspendLayout() + Me.pnlgreenoptions.SuspendLayout() + Me.pnlbluecolours.SuspendLayout() + Me.pnlblueoptions.SuspendLayout() + Me.pnlpurplecolours.SuspendLayout() + Me.pnlpurpleoptions.SuspendLayout() + Me.pnlgraycolours.SuspendLayout() + Me.pnlanycolours.SuspendLayout() + Me.pnlanyoptions.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.pnlpinkcolours) + Me.pgcontents.Controls.Add(Me.pnlredcolours) + Me.pgcontents.Controls.Add(Me.pnlbrowncolours) + Me.pgcontents.Controls.Add(Me.pnlorangecolours) + Me.pgcontents.Controls.Add(Me.pnlyellowcolours) + Me.pgcontents.Controls.Add(Me.pnlgreencolours) + Me.pgcontents.Controls.Add(Me.pnlbluecolours) + Me.pgcontents.Controls.Add(Me.pnlpurplecolours) + Me.pgcontents.Controls.Add(Me.pnlgraycolours) + Me.pgcontents.Controls.Add(Me.pnlanycolours) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(443, 568) + Me.pgcontents.TabIndex = 20 + ' + 'pnlpinkcolours + ' + Me.pnlpinkcolours.BackColor = System.Drawing.Color.White + Me.pnlpinkcolours.Controls.Add(Me.pnlpinkoptions) + Me.pnlpinkcolours.Controls.Add(Me.pnlpinkcustomcolour) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink16) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink12) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink14) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink10) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink8) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink4) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink6) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink15) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink2) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink13) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink11) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink7) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink9) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink5) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink3) + Me.pnlpinkcolours.Controls.Add(Me.pnlpink1) + Me.pnlpinkcolours.Controls.Add(Me.lblpinklevel) + Me.pnlpinkcolours.Controls.Add(Me.Label23) + Me.pnlpinkcolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlpinkcolours.Location = New System.Drawing.Point(0, 521) + Me.pnlpinkcolours.Name = "pnlpinkcolours" + Me.pnlpinkcolours.Size = New System.Drawing.Size(443, 46) + Me.pnlpinkcolours.TabIndex = 11 + Me.pnlpinkcolours.Visible = False + ' + 'pnlpinkoptions + ' + Me.pnlpinkoptions.Controls.Add(Me.Label35) + Me.pnlpinkoptions.Controls.Add(Me.txtpinksgreen) + Me.pnlpinkoptions.Controls.Add(Me.txtpinksred) + Me.pnlpinkoptions.Controls.Add(Me.Label36) + Me.pnlpinkoptions.Controls.Add(Me.Label37) + Me.pnlpinkoptions.Controls.Add(Me.txtpinksblue) + Me.pnlpinkoptions.Location = New System.Drawing.Point(282, 2) + Me.pnlpinkoptions.Name = "pnlpinkoptions" + Me.pnlpinkoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlpinkoptions.TabIndex = 33 + Me.pnlpinkoptions.Visible = False + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.BackColor = System.Drawing.Color.Transparent + Me.Label35.Location = New System.Drawing.Point(56, 24) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(39, 13) + Me.Label35.TabIndex = 26 + Me.Label35.Text = "Green:" + ' + 'txtpinksgreen + ' + Me.txtpinksgreen.BackColor = System.Drawing.Color.White + Me.txtpinksgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpinksgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpinksgreen.Location = New System.Drawing.Point(95, 22) + Me.txtpinksgreen.Multiline = True + Me.txtpinksgreen.Name = "txtpinksgreen" + Me.txtpinksgreen.Size = New System.Drawing.Size(23, 17) + Me.txtpinksgreen.TabIndex = 25 + Me.txtpinksgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtpinksred + ' + Me.txtpinksred.BackColor = System.Drawing.Color.White + Me.txtpinksred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpinksred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpinksred.Location = New System.Drawing.Point(64, 2) + Me.txtpinksred.Multiline = True + Me.txtpinksred.Name = "txtpinksred" + Me.txtpinksred.Size = New System.Drawing.Size(23, 17) + Me.txtpinksred.TabIndex = 21 + Me.txtpinksred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.BackColor = System.Drawing.Color.Transparent + Me.Label36.Location = New System.Drawing.Point(1, 23) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(31, 13) + Me.Label36.TabIndex = 24 + Me.Label36.Text = "Blue:" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.BackColor = System.Drawing.Color.Transparent + Me.Label37.Location = New System.Drawing.Point(33, 4) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(30, 13) + Me.Label37.TabIndex = 22 + Me.Label37.Text = "Red:" + ' + 'txtpinksblue + ' + Me.txtpinksblue.BackColor = System.Drawing.Color.White + Me.txtpinksblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpinksblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpinksblue.Location = New System.Drawing.Point(32, 22) + Me.txtpinksblue.Multiline = True + Me.txtpinksblue.Name = "txtpinksblue" + Me.txtpinksblue.Size = New System.Drawing.Size(23, 17) + Me.txtpinksblue.TabIndex = 23 + Me.txtpinksblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlpinkcustomcolour + ' + Me.pnlpinkcustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpinkcustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlpinkcustomcolour.Name = "pnlpinkcustomcolour" + Me.pnlpinkcustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlpinkcustomcolour.TabIndex = 18 + Me.pnlpinkcustomcolour.Visible = False + ' + 'pnlpink16 + ' + Me.pnlpink16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink16.Location = New System.Drawing.Point(259, 25) + Me.pnlpink16.Name = "pnlpink16" + Me.pnlpink16.Size = New System.Drawing.Size(20, 13) + Me.pnlpink16.TabIndex = 17 + Me.pnlpink16.Visible = False + ' + 'pnlpink12 + ' + Me.pnlpink12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink12.Location = New System.Drawing.Point(155, 25) + Me.pnlpink12.Name = "pnlpink12" + Me.pnlpink12.Size = New System.Drawing.Size(20, 13) + Me.pnlpink12.TabIndex = 9 + Me.pnlpink12.Visible = False + ' + 'pnlpink14 + ' + Me.pnlpink14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink14.Location = New System.Drawing.Point(207, 25) + Me.pnlpink14.Name = "pnlpink14" + Me.pnlpink14.Size = New System.Drawing.Size(20, 13) + Me.pnlpink14.TabIndex = 13 + Me.pnlpink14.Visible = False + ' + 'pnlpink10 + ' + Me.pnlpink10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink10.Location = New System.Drawing.Point(103, 25) + Me.pnlpink10.Name = "pnlpink10" + Me.pnlpink10.Size = New System.Drawing.Size(20, 13) + Me.pnlpink10.TabIndex = 5 + Me.pnlpink10.Visible = False + ' + 'pnlpink8 + ' + Me.pnlpink8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink8.Location = New System.Drawing.Point(259, 8) + Me.pnlpink8.Name = "pnlpink8" + Me.pnlpink8.Size = New System.Drawing.Size(20, 13) + Me.pnlpink8.TabIndex = 16 + Me.pnlpink8.Visible = False + ' + 'pnlpink4 + ' + Me.pnlpink4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink4.Location = New System.Drawing.Point(155, 8) + Me.pnlpink4.Name = "pnlpink4" + Me.pnlpink4.Size = New System.Drawing.Size(20, 13) + Me.pnlpink4.TabIndex = 8 + Me.pnlpink4.Visible = False + ' + 'pnlpink6 + ' + Me.pnlpink6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink6.Location = New System.Drawing.Point(207, 8) + Me.pnlpink6.Name = "pnlpink6" + Me.pnlpink6.Size = New System.Drawing.Size(20, 13) + Me.pnlpink6.TabIndex = 12 + Me.pnlpink6.Visible = False + ' + 'pnlpink15 + ' + Me.pnlpink15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink15.Location = New System.Drawing.Point(233, 25) + Me.pnlpink15.Name = "pnlpink15" + Me.pnlpink15.Size = New System.Drawing.Size(20, 13) + Me.pnlpink15.TabIndex = 15 + Me.pnlpink15.Visible = False + ' + 'pnlpink2 + ' + Me.pnlpink2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink2.Location = New System.Drawing.Point(103, 8) + Me.pnlpink2.Name = "pnlpink2" + Me.pnlpink2.Size = New System.Drawing.Size(20, 13) + Me.pnlpink2.TabIndex = 4 + Me.pnlpink2.Visible = False + ' + 'pnlpink13 + ' + Me.pnlpink13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink13.Location = New System.Drawing.Point(181, 25) + Me.pnlpink13.Name = "pnlpink13" + Me.pnlpink13.Size = New System.Drawing.Size(20, 13) + Me.pnlpink13.TabIndex = 11 + Me.pnlpink13.Visible = False + ' + 'pnlpink11 + ' + Me.pnlpink11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink11.Location = New System.Drawing.Point(129, 25) + Me.pnlpink11.Name = "pnlpink11" + Me.pnlpink11.Size = New System.Drawing.Size(20, 13) + Me.pnlpink11.TabIndex = 7 + Me.pnlpink11.Visible = False + ' + 'pnlpink7 + ' + Me.pnlpink7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink7.Location = New System.Drawing.Point(233, 8) + Me.pnlpink7.Name = "pnlpink7" + Me.pnlpink7.Size = New System.Drawing.Size(20, 13) + Me.pnlpink7.TabIndex = 14 + Me.pnlpink7.Visible = False + ' + 'pnlpink9 + ' + Me.pnlpink9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink9.Location = New System.Drawing.Point(77, 25) + Me.pnlpink9.Name = "pnlpink9" + Me.pnlpink9.Size = New System.Drawing.Size(20, 13) + Me.pnlpink9.TabIndex = 3 + Me.pnlpink9.Visible = False + ' + 'pnlpink5 + ' + Me.pnlpink5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink5.Location = New System.Drawing.Point(181, 8) + Me.pnlpink5.Name = "pnlpink5" + Me.pnlpink5.Size = New System.Drawing.Size(20, 13) + Me.pnlpink5.TabIndex = 10 + Me.pnlpink5.Visible = False + ' + 'pnlpink3 + ' + Me.pnlpink3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink3.Location = New System.Drawing.Point(129, 8) + Me.pnlpink3.Name = "pnlpink3" + Me.pnlpink3.Size = New System.Drawing.Size(20, 13) + Me.pnlpink3.TabIndex = 6 + Me.pnlpink3.Visible = False + ' + 'pnlpink1 + ' + Me.pnlpink1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpink1.Location = New System.Drawing.Point(77, 8) + Me.pnlpink1.Name = "pnlpink1" + Me.pnlpink1.Size = New System.Drawing.Size(20, 13) + Me.pnlpink1.TabIndex = 2 + Me.pnlpink1.Visible = False + ' + 'lblpinklevel + ' + Me.lblpinklevel.AutoSize = True + Me.lblpinklevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblpinklevel.Location = New System.Drawing.Point(5, 25) + Me.lblpinklevel.Name = "lblpinklevel" + Me.lblpinklevel.Size = New System.Drawing.Size(49, 15) + Me.lblpinklevel.TabIndex = 1 + Me.lblpinklevel.Text = "Level: 4" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(3, 2) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(48, 23) + Me.Label23.TabIndex = 0 + Me.Label23.Text = "Pink" + ' + 'pnlredcolours + ' + Me.pnlredcolours.BackColor = System.Drawing.Color.White + Me.pnlredcolours.Controls.Add(Me.pnlredoptions) + Me.pnlredcolours.Controls.Add(Me.pnlredcustomcolour) + Me.pnlredcolours.Controls.Add(Me.pnlred16) + Me.pnlredcolours.Controls.Add(Me.pnlred12) + Me.pnlredcolours.Controls.Add(Me.pnlred14) + Me.pnlredcolours.Controls.Add(Me.pnlred10) + Me.pnlredcolours.Controls.Add(Me.pnlred8) + Me.pnlredcolours.Controls.Add(Me.pnlred4) + Me.pnlredcolours.Controls.Add(Me.pnlred6) + Me.pnlredcolours.Controls.Add(Me.pnlred15) + Me.pnlredcolours.Controls.Add(Me.pnlred2) + Me.pnlredcolours.Controls.Add(Me.pnlred13) + Me.pnlredcolours.Controls.Add(Me.pnlred11) + Me.pnlredcolours.Controls.Add(Me.pnlred7) + Me.pnlredcolours.Controls.Add(Me.pnlred9) + Me.pnlredcolours.Controls.Add(Me.pnlred5) + Me.pnlredcolours.Controls.Add(Me.pnlred3) + Me.pnlredcolours.Controls.Add(Me.pnlred1) + Me.pnlredcolours.Controls.Add(Me.lblredlevel) + Me.pnlredcolours.Controls.Add(Me.Label21) + Me.pnlredcolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlredcolours.Location = New System.Drawing.Point(0, 475) + Me.pnlredcolours.Name = "pnlredcolours" + Me.pnlredcolours.Size = New System.Drawing.Size(443, 46) + Me.pnlredcolours.TabIndex = 10 + Me.pnlredcolours.Visible = False + ' + 'pnlredoptions + ' + Me.pnlredoptions.Controls.Add(Me.Label32) + Me.pnlredoptions.Controls.Add(Me.txtredsblue) + Me.pnlredoptions.Controls.Add(Me.txtredsred) + Me.pnlredoptions.Controls.Add(Me.Label33) + Me.pnlredoptions.Controls.Add(Me.Label34) + Me.pnlredoptions.Controls.Add(Me.txtredsgreen) + Me.pnlredoptions.Location = New System.Drawing.Point(282, 2) + Me.pnlredoptions.Name = "pnlredoptions" + Me.pnlredoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlredoptions.TabIndex = 32 + Me.pnlredoptions.Visible = False + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.BackColor = System.Drawing.Color.Transparent + Me.Label32.Location = New System.Drawing.Point(64, 24) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(31, 13) + Me.Label32.TabIndex = 26 + Me.Label32.Text = "Blue:" + ' + 'txtredsblue + ' + Me.txtredsblue.BackColor = System.Drawing.Color.White + Me.txtredsblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtredsblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtredsblue.Location = New System.Drawing.Point(95, 22) + Me.txtredsblue.Multiline = True + Me.txtredsblue.Name = "txtredsblue" + Me.txtredsblue.Size = New System.Drawing.Size(23, 17) + Me.txtredsblue.TabIndex = 25 + Me.txtredsblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtredsred + ' + Me.txtredsred.BackColor = System.Drawing.Color.White + Me.txtredsred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtredsred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtredsred.Location = New System.Drawing.Point(64, 2) + Me.txtredsred.Multiline = True + Me.txtredsred.Name = "txtredsred" + Me.txtredsred.Size = New System.Drawing.Size(23, 17) + Me.txtredsred.TabIndex = 21 + Me.txtredsred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.BackColor = System.Drawing.Color.Transparent + Me.Label33.Location = New System.Drawing.Point(1, 23) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(39, 13) + Me.Label33.TabIndex = 24 + Me.Label33.Text = "Green:" + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.BackColor = System.Drawing.Color.Transparent + Me.Label34.Location = New System.Drawing.Point(33, 4) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(30, 13) + Me.Label34.TabIndex = 22 + Me.Label34.Text = "Red:" + ' + 'txtredsgreen + ' + Me.txtredsgreen.BackColor = System.Drawing.Color.White + Me.txtredsgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtredsgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtredsgreen.Location = New System.Drawing.Point(40, 22) + Me.txtredsgreen.Multiline = True + Me.txtredsgreen.Name = "txtredsgreen" + Me.txtredsgreen.Size = New System.Drawing.Size(23, 17) + Me.txtredsgreen.TabIndex = 23 + Me.txtredsgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlredcustomcolour + ' + Me.pnlredcustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlredcustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlredcustomcolour.Name = "pnlredcustomcolour" + Me.pnlredcustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlredcustomcolour.TabIndex = 18 + Me.pnlredcustomcolour.Visible = False + ' + 'pnlred16 + ' + Me.pnlred16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred16.Location = New System.Drawing.Point(259, 25) + Me.pnlred16.Name = "pnlred16" + Me.pnlred16.Size = New System.Drawing.Size(20, 13) + Me.pnlred16.TabIndex = 17 + Me.pnlred16.Visible = False + ' + 'pnlred12 + ' + Me.pnlred12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred12.Location = New System.Drawing.Point(155, 25) + Me.pnlred12.Name = "pnlred12" + Me.pnlred12.Size = New System.Drawing.Size(20, 13) + Me.pnlred12.TabIndex = 9 + Me.pnlred12.Visible = False + ' + 'pnlred14 + ' + Me.pnlred14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred14.Location = New System.Drawing.Point(207, 25) + Me.pnlred14.Name = "pnlred14" + Me.pnlred14.Size = New System.Drawing.Size(20, 13) + Me.pnlred14.TabIndex = 13 + Me.pnlred14.Visible = False + ' + 'pnlred10 + ' + Me.pnlred10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred10.Location = New System.Drawing.Point(103, 25) + Me.pnlred10.Name = "pnlred10" + Me.pnlred10.Size = New System.Drawing.Size(20, 13) + Me.pnlred10.TabIndex = 5 + Me.pnlred10.Visible = False + ' + 'pnlred8 + ' + Me.pnlred8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred8.Location = New System.Drawing.Point(259, 8) + Me.pnlred8.Name = "pnlred8" + Me.pnlred8.Size = New System.Drawing.Size(20, 13) + Me.pnlred8.TabIndex = 16 + Me.pnlred8.Visible = False + ' + 'pnlred4 + ' + Me.pnlred4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred4.Location = New System.Drawing.Point(155, 8) + Me.pnlred4.Name = "pnlred4" + Me.pnlred4.Size = New System.Drawing.Size(20, 13) + Me.pnlred4.TabIndex = 8 + Me.pnlred4.Visible = False + ' + 'pnlred6 + ' + Me.pnlred6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred6.Location = New System.Drawing.Point(207, 8) + Me.pnlred6.Name = "pnlred6" + Me.pnlred6.Size = New System.Drawing.Size(20, 13) + Me.pnlred6.TabIndex = 12 + Me.pnlred6.Visible = False + ' + 'pnlred15 + ' + Me.pnlred15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred15.Location = New System.Drawing.Point(233, 25) + Me.pnlred15.Name = "pnlred15" + Me.pnlred15.Size = New System.Drawing.Size(20, 13) + Me.pnlred15.TabIndex = 15 + Me.pnlred15.Visible = False + ' + 'pnlred2 + ' + Me.pnlred2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred2.Location = New System.Drawing.Point(103, 8) + Me.pnlred2.Name = "pnlred2" + Me.pnlred2.Size = New System.Drawing.Size(20, 13) + Me.pnlred2.TabIndex = 4 + Me.pnlred2.Visible = False + ' + 'pnlred13 + ' + Me.pnlred13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred13.Location = New System.Drawing.Point(181, 25) + Me.pnlred13.Name = "pnlred13" + Me.pnlred13.Size = New System.Drawing.Size(20, 13) + Me.pnlred13.TabIndex = 11 + Me.pnlred13.Visible = False + ' + 'pnlred11 + ' + Me.pnlred11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred11.Location = New System.Drawing.Point(129, 25) + Me.pnlred11.Name = "pnlred11" + Me.pnlred11.Size = New System.Drawing.Size(20, 13) + Me.pnlred11.TabIndex = 7 + Me.pnlred11.Visible = False + ' + 'pnlred7 + ' + Me.pnlred7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred7.Location = New System.Drawing.Point(233, 8) + Me.pnlred7.Name = "pnlred7" + Me.pnlred7.Size = New System.Drawing.Size(20, 13) + Me.pnlred7.TabIndex = 14 + Me.pnlred7.Visible = False + ' + 'pnlred9 + ' + Me.pnlred9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred9.Location = New System.Drawing.Point(77, 25) + Me.pnlred9.Name = "pnlred9" + Me.pnlred9.Size = New System.Drawing.Size(20, 13) + Me.pnlred9.TabIndex = 3 + Me.pnlred9.Visible = False + ' + 'pnlred5 + ' + Me.pnlred5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred5.Location = New System.Drawing.Point(181, 8) + Me.pnlred5.Name = "pnlred5" + Me.pnlred5.Size = New System.Drawing.Size(20, 13) + Me.pnlred5.TabIndex = 10 + Me.pnlred5.Visible = False + ' + 'pnlred3 + ' + Me.pnlred3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred3.Location = New System.Drawing.Point(129, 8) + Me.pnlred3.Name = "pnlred3" + Me.pnlred3.Size = New System.Drawing.Size(20, 13) + Me.pnlred3.TabIndex = 6 + Me.pnlred3.Visible = False + ' + 'pnlred1 + ' + Me.pnlred1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlred1.Location = New System.Drawing.Point(77, 8) + Me.pnlred1.Name = "pnlred1" + Me.pnlred1.Size = New System.Drawing.Size(20, 13) + Me.pnlred1.TabIndex = 2 + Me.pnlred1.Visible = False + ' + 'lblredlevel + ' + Me.lblredlevel.AutoSize = True + Me.lblredlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblredlevel.Location = New System.Drawing.Point(5, 25) + Me.lblredlevel.Name = "lblredlevel" + Me.lblredlevel.Size = New System.Drawing.Size(49, 15) + Me.lblredlevel.TabIndex = 1 + Me.lblredlevel.Text = "Level: 4" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(3, 2) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(42, 23) + Me.Label21.TabIndex = 0 + Me.Label21.Text = "Red" + ' + 'pnlbrowncolours + ' + Me.pnlbrowncolours.BackColor = System.Drawing.Color.White + Me.pnlbrowncolours.Controls.Add(Me.pnlbrownoptions) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrowncustomcolour) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown16) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown12) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown14) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown10) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown8) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown4) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown6) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown15) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown2) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown13) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown11) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown7) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown9) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown5) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown3) + Me.pnlbrowncolours.Controls.Add(Me.pnlbrown1) + Me.pnlbrowncolours.Controls.Add(Me.lblbrownlevel) + Me.pnlbrowncolours.Controls.Add(Me.Label19) + Me.pnlbrowncolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlbrowncolours.Location = New System.Drawing.Point(0, 429) + Me.pnlbrowncolours.Name = "pnlbrowncolours" + Me.pnlbrowncolours.Size = New System.Drawing.Size(443, 46) + Me.pnlbrowncolours.TabIndex = 8 + Me.pnlbrowncolours.Visible = False + ' + 'pnlbrownoptions + ' + Me.pnlbrownoptions.Controls.Add(Me.Label29) + Me.pnlbrownoptions.Controls.Add(Me.txtbrownsblue) + Me.pnlbrownoptions.Controls.Add(Me.txtbrownsred) + Me.pnlbrownoptions.Controls.Add(Me.Label30) + Me.pnlbrownoptions.Controls.Add(Me.Label31) + Me.pnlbrownoptions.Controls.Add(Me.txtbrownsgreen) + Me.pnlbrownoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlbrownoptions.Name = "pnlbrownoptions" + Me.pnlbrownoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlbrownoptions.TabIndex = 31 + Me.pnlbrownoptions.Visible = False + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.BackColor = System.Drawing.Color.Transparent + Me.Label29.Location = New System.Drawing.Point(64, 24) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(31, 13) + Me.Label29.TabIndex = 26 + Me.Label29.Text = "Blue:" + ' + 'txtbrownsblue + ' + Me.txtbrownsblue.BackColor = System.Drawing.Color.White + Me.txtbrownsblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbrownsblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbrownsblue.Location = New System.Drawing.Point(95, 22) + Me.txtbrownsblue.Multiline = True + Me.txtbrownsblue.Name = "txtbrownsblue" + Me.txtbrownsblue.Size = New System.Drawing.Size(23, 17) + Me.txtbrownsblue.TabIndex = 25 + Me.txtbrownsblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtbrownsred + ' + Me.txtbrownsred.BackColor = System.Drawing.Color.White + Me.txtbrownsred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbrownsred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbrownsred.Location = New System.Drawing.Point(64, 2) + Me.txtbrownsred.Multiline = True + Me.txtbrownsred.Name = "txtbrownsred" + Me.txtbrownsred.Size = New System.Drawing.Size(23, 17) + Me.txtbrownsred.TabIndex = 21 + Me.txtbrownsred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.BackColor = System.Drawing.Color.Transparent + Me.Label30.Location = New System.Drawing.Point(1, 23) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(39, 13) + Me.Label30.TabIndex = 24 + Me.Label30.Text = "Green:" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.BackColor = System.Drawing.Color.Transparent + Me.Label31.Location = New System.Drawing.Point(33, 4) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(30, 13) + Me.Label31.TabIndex = 22 + Me.Label31.Text = "Red:" + ' + 'txtbrownsgreen + ' + Me.txtbrownsgreen.BackColor = System.Drawing.Color.White + Me.txtbrownsgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbrownsgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbrownsgreen.Location = New System.Drawing.Point(40, 22) + Me.txtbrownsgreen.Multiline = True + Me.txtbrownsgreen.Name = "txtbrownsgreen" + Me.txtbrownsgreen.Size = New System.Drawing.Size(23, 17) + Me.txtbrownsgreen.TabIndex = 23 + Me.txtbrownsgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlbrowncustomcolour + ' + Me.pnlbrowncustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrowncustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlbrowncustomcolour.Name = "pnlbrowncustomcolour" + Me.pnlbrowncustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlbrowncustomcolour.TabIndex = 18 + Me.pnlbrowncustomcolour.Visible = False + ' + 'pnlbrown16 + ' + Me.pnlbrown16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown16.Location = New System.Drawing.Point(259, 25) + Me.pnlbrown16.Name = "pnlbrown16" + Me.pnlbrown16.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown16.TabIndex = 17 + Me.pnlbrown16.Visible = False + ' + 'pnlbrown12 + ' + Me.pnlbrown12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown12.Location = New System.Drawing.Point(155, 25) + Me.pnlbrown12.Name = "pnlbrown12" + Me.pnlbrown12.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown12.TabIndex = 9 + Me.pnlbrown12.Visible = False + ' + 'pnlbrown14 + ' + Me.pnlbrown14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown14.Location = New System.Drawing.Point(207, 25) + Me.pnlbrown14.Name = "pnlbrown14" + Me.pnlbrown14.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown14.TabIndex = 13 + Me.pnlbrown14.Visible = False + ' + 'pnlbrown10 + ' + Me.pnlbrown10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown10.Location = New System.Drawing.Point(103, 25) + Me.pnlbrown10.Name = "pnlbrown10" + Me.pnlbrown10.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown10.TabIndex = 5 + Me.pnlbrown10.Visible = False + ' + 'pnlbrown8 + ' + Me.pnlbrown8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown8.Location = New System.Drawing.Point(259, 8) + Me.pnlbrown8.Name = "pnlbrown8" + Me.pnlbrown8.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown8.TabIndex = 16 + Me.pnlbrown8.Visible = False + ' + 'pnlbrown4 + ' + Me.pnlbrown4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown4.Location = New System.Drawing.Point(155, 8) + Me.pnlbrown4.Name = "pnlbrown4" + Me.pnlbrown4.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown4.TabIndex = 8 + Me.pnlbrown4.Visible = False + ' + 'pnlbrown6 + ' + Me.pnlbrown6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown6.Location = New System.Drawing.Point(207, 8) + Me.pnlbrown6.Name = "pnlbrown6" + Me.pnlbrown6.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown6.TabIndex = 12 + Me.pnlbrown6.Visible = False + ' + 'pnlbrown15 + ' + Me.pnlbrown15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown15.Location = New System.Drawing.Point(233, 25) + Me.pnlbrown15.Name = "pnlbrown15" + Me.pnlbrown15.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown15.TabIndex = 15 + Me.pnlbrown15.Visible = False + ' + 'pnlbrown2 + ' + Me.pnlbrown2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown2.Location = New System.Drawing.Point(103, 8) + Me.pnlbrown2.Name = "pnlbrown2" + Me.pnlbrown2.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown2.TabIndex = 4 + Me.pnlbrown2.Visible = False + ' + 'pnlbrown13 + ' + Me.pnlbrown13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown13.Location = New System.Drawing.Point(181, 25) + Me.pnlbrown13.Name = "pnlbrown13" + Me.pnlbrown13.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown13.TabIndex = 11 + Me.pnlbrown13.Visible = False + ' + 'pnlbrown11 + ' + Me.pnlbrown11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown11.Location = New System.Drawing.Point(129, 25) + Me.pnlbrown11.Name = "pnlbrown11" + Me.pnlbrown11.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown11.TabIndex = 7 + Me.pnlbrown11.Visible = False + ' + 'pnlbrown7 + ' + Me.pnlbrown7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown7.Location = New System.Drawing.Point(233, 8) + Me.pnlbrown7.Name = "pnlbrown7" + Me.pnlbrown7.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown7.TabIndex = 14 + Me.pnlbrown7.Visible = False + ' + 'pnlbrown9 + ' + Me.pnlbrown9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown9.Location = New System.Drawing.Point(77, 25) + Me.pnlbrown9.Name = "pnlbrown9" + Me.pnlbrown9.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown9.TabIndex = 3 + Me.pnlbrown9.Visible = False + ' + 'pnlbrown5 + ' + Me.pnlbrown5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown5.Location = New System.Drawing.Point(181, 8) + Me.pnlbrown5.Name = "pnlbrown5" + Me.pnlbrown5.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown5.TabIndex = 10 + Me.pnlbrown5.Visible = False + ' + 'pnlbrown3 + ' + Me.pnlbrown3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown3.Location = New System.Drawing.Point(129, 8) + Me.pnlbrown3.Name = "pnlbrown3" + Me.pnlbrown3.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown3.TabIndex = 6 + Me.pnlbrown3.Visible = False + ' + 'pnlbrown1 + ' + Me.pnlbrown1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbrown1.Location = New System.Drawing.Point(77, 8) + Me.pnlbrown1.Name = "pnlbrown1" + Me.pnlbrown1.Size = New System.Drawing.Size(20, 13) + Me.pnlbrown1.TabIndex = 2 + Me.pnlbrown1.Visible = False + ' + 'lblbrownlevel + ' + Me.lblbrownlevel.AutoSize = True + Me.lblbrownlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbrownlevel.Location = New System.Drawing.Point(5, 25) + Me.lblbrownlevel.Name = "lblbrownlevel" + Me.lblbrownlevel.Size = New System.Drawing.Size(49, 15) + Me.lblbrownlevel.TabIndex = 1 + Me.lblbrownlevel.Text = "Level: 4" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(3, 2) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(67, 23) + Me.Label19.TabIndex = 0 + Me.Label19.Text = "Brown" + ' + 'pnlorangecolours + ' + Me.pnlorangecolours.BackColor = System.Drawing.Color.White + Me.pnlorangecolours.Controls.Add(Me.pnlorangeoptions) + Me.pnlorangecolours.Controls.Add(Me.pnlorangecustomcolour) + Me.pnlorangecolours.Controls.Add(Me.pnlorange16) + Me.pnlorangecolours.Controls.Add(Me.pnlorange12) + Me.pnlorangecolours.Controls.Add(Me.pnlorange14) + Me.pnlorangecolours.Controls.Add(Me.pnlorange10) + Me.pnlorangecolours.Controls.Add(Me.pnlorange8) + Me.pnlorangecolours.Controls.Add(Me.pnlorange4) + Me.pnlorangecolours.Controls.Add(Me.pnlorange6) + Me.pnlorangecolours.Controls.Add(Me.pnlorange15) + Me.pnlorangecolours.Controls.Add(Me.pnlorange2) + Me.pnlorangecolours.Controls.Add(Me.pnlorange13) + Me.pnlorangecolours.Controls.Add(Me.pnlorange11) + Me.pnlorangecolours.Controls.Add(Me.pnlorange7) + Me.pnlorangecolours.Controls.Add(Me.pnlorange9) + Me.pnlorangecolours.Controls.Add(Me.pnlorange5) + Me.pnlorangecolours.Controls.Add(Me.pnlorange3) + Me.pnlorangecolours.Controls.Add(Me.pnlorange1) + Me.pnlorangecolours.Controls.Add(Me.lblorangelevel) + Me.pnlorangecolours.Controls.Add(Me.Label13) + Me.pnlorangecolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlorangecolours.Location = New System.Drawing.Point(0, 383) + Me.pnlorangecolours.Name = "pnlorangecolours" + Me.pnlorangecolours.Size = New System.Drawing.Size(443, 46) + Me.pnlorangecolours.TabIndex = 7 + Me.pnlorangecolours.Visible = False + ' + 'pnlorangeoptions + ' + Me.pnlorangeoptions.Controls.Add(Me.Label25) + Me.pnlorangeoptions.Controls.Add(Me.txtorangesblue) + Me.pnlorangeoptions.Controls.Add(Me.txtorangesred) + Me.pnlorangeoptions.Controls.Add(Me.Label27) + Me.pnlorangeoptions.Controls.Add(Me.Label28) + Me.pnlorangeoptions.Controls.Add(Me.txtorangesgreen) + Me.pnlorangeoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlorangeoptions.Name = "pnlorangeoptions" + Me.pnlorangeoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlorangeoptions.TabIndex = 30 + Me.pnlorangeoptions.Visible = False + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.BackColor = System.Drawing.Color.Transparent + Me.Label25.Location = New System.Drawing.Point(64, 24) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(31, 13) + Me.Label25.TabIndex = 26 + Me.Label25.Text = "Blue:" + ' + 'txtorangesblue + ' + Me.txtorangesblue.BackColor = System.Drawing.Color.White + Me.txtorangesblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtorangesblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtorangesblue.Location = New System.Drawing.Point(95, 22) + Me.txtorangesblue.Multiline = True + Me.txtorangesblue.Name = "txtorangesblue" + Me.txtorangesblue.Size = New System.Drawing.Size(23, 17) + Me.txtorangesblue.TabIndex = 25 + Me.txtorangesblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtorangesred + ' + Me.txtorangesred.BackColor = System.Drawing.Color.White + Me.txtorangesred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtorangesred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtorangesred.Location = New System.Drawing.Point(64, 2) + Me.txtorangesred.Multiline = True + Me.txtorangesred.Name = "txtorangesred" + Me.txtorangesred.Size = New System.Drawing.Size(23, 17) + Me.txtorangesred.TabIndex = 21 + Me.txtorangesred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.BackColor = System.Drawing.Color.Transparent + Me.Label27.Location = New System.Drawing.Point(1, 23) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(39, 13) + Me.Label27.TabIndex = 24 + Me.Label27.Text = "Green:" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.BackColor = System.Drawing.Color.Transparent + Me.Label28.Location = New System.Drawing.Point(33, 4) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(30, 13) + Me.Label28.TabIndex = 22 + Me.Label28.Text = "Red:" + ' + 'txtorangesgreen + ' + Me.txtorangesgreen.BackColor = System.Drawing.Color.White + Me.txtorangesgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtorangesgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtorangesgreen.Location = New System.Drawing.Point(40, 22) + Me.txtorangesgreen.Multiline = True + Me.txtorangesgreen.Name = "txtorangesgreen" + Me.txtorangesgreen.Size = New System.Drawing.Size(23, 17) + Me.txtorangesgreen.TabIndex = 23 + Me.txtorangesgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlorangecustomcolour + ' + Me.pnlorangecustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorangecustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlorangecustomcolour.Name = "pnlorangecustomcolour" + Me.pnlorangecustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlorangecustomcolour.TabIndex = 18 + Me.pnlorangecustomcolour.Visible = False + ' + 'pnlorange16 + ' + Me.pnlorange16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange16.Location = New System.Drawing.Point(259, 25) + Me.pnlorange16.Name = "pnlorange16" + Me.pnlorange16.Size = New System.Drawing.Size(20, 13) + Me.pnlorange16.TabIndex = 17 + Me.pnlorange16.Visible = False + ' + 'pnlorange12 + ' + Me.pnlorange12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange12.Location = New System.Drawing.Point(155, 25) + Me.pnlorange12.Name = "pnlorange12" + Me.pnlorange12.Size = New System.Drawing.Size(20, 13) + Me.pnlorange12.TabIndex = 9 + Me.pnlorange12.Visible = False + ' + 'pnlorange14 + ' + Me.pnlorange14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange14.Location = New System.Drawing.Point(207, 25) + Me.pnlorange14.Name = "pnlorange14" + Me.pnlorange14.Size = New System.Drawing.Size(20, 13) + Me.pnlorange14.TabIndex = 13 + Me.pnlorange14.Visible = False + ' + 'pnlorange10 + ' + Me.pnlorange10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange10.Location = New System.Drawing.Point(103, 25) + Me.pnlorange10.Name = "pnlorange10" + Me.pnlorange10.Size = New System.Drawing.Size(20, 13) + Me.pnlorange10.TabIndex = 5 + Me.pnlorange10.Visible = False + ' + 'pnlorange8 + ' + Me.pnlorange8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange8.Location = New System.Drawing.Point(259, 8) + Me.pnlorange8.Name = "pnlorange8" + Me.pnlorange8.Size = New System.Drawing.Size(20, 13) + Me.pnlorange8.TabIndex = 16 + Me.pnlorange8.Visible = False + ' + 'pnlorange4 + ' + Me.pnlorange4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange4.Location = New System.Drawing.Point(155, 8) + Me.pnlorange4.Name = "pnlorange4" + Me.pnlorange4.Size = New System.Drawing.Size(20, 13) + Me.pnlorange4.TabIndex = 8 + Me.pnlorange4.Visible = False + ' + 'pnlorange6 + ' + Me.pnlorange6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange6.Location = New System.Drawing.Point(207, 8) + Me.pnlorange6.Name = "pnlorange6" + Me.pnlorange6.Size = New System.Drawing.Size(20, 13) + Me.pnlorange6.TabIndex = 12 + Me.pnlorange6.Visible = False + ' + 'pnlorange15 + ' + Me.pnlorange15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange15.Location = New System.Drawing.Point(233, 25) + Me.pnlorange15.Name = "pnlorange15" + Me.pnlorange15.Size = New System.Drawing.Size(20, 13) + Me.pnlorange15.TabIndex = 15 + Me.pnlorange15.Visible = False + ' + 'pnlorange2 + ' + Me.pnlorange2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange2.Location = New System.Drawing.Point(103, 8) + Me.pnlorange2.Name = "pnlorange2" + Me.pnlorange2.Size = New System.Drawing.Size(20, 13) + Me.pnlorange2.TabIndex = 4 + Me.pnlorange2.Visible = False + ' + 'pnlorange13 + ' + Me.pnlorange13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange13.Location = New System.Drawing.Point(181, 25) + Me.pnlorange13.Name = "pnlorange13" + Me.pnlorange13.Size = New System.Drawing.Size(20, 13) + Me.pnlorange13.TabIndex = 11 + Me.pnlorange13.Visible = False + ' + 'pnlorange11 + ' + Me.pnlorange11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange11.Location = New System.Drawing.Point(129, 25) + Me.pnlorange11.Name = "pnlorange11" + Me.pnlorange11.Size = New System.Drawing.Size(20, 13) + Me.pnlorange11.TabIndex = 7 + Me.pnlorange11.Visible = False + ' + 'pnlorange7 + ' + Me.pnlorange7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange7.Location = New System.Drawing.Point(233, 8) + Me.pnlorange7.Name = "pnlorange7" + Me.pnlorange7.Size = New System.Drawing.Size(20, 13) + Me.pnlorange7.TabIndex = 14 + Me.pnlorange7.Visible = False + ' + 'pnlorange9 + ' + Me.pnlorange9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange9.Location = New System.Drawing.Point(77, 25) + Me.pnlorange9.Name = "pnlorange9" + Me.pnlorange9.Size = New System.Drawing.Size(20, 13) + Me.pnlorange9.TabIndex = 3 + Me.pnlorange9.Visible = False + ' + 'pnlorange5 + ' + Me.pnlorange5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange5.Location = New System.Drawing.Point(181, 8) + Me.pnlorange5.Name = "pnlorange5" + Me.pnlorange5.Size = New System.Drawing.Size(20, 13) + Me.pnlorange5.TabIndex = 10 + Me.pnlorange5.Visible = False + ' + 'pnlorange3 + ' + Me.pnlorange3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange3.Location = New System.Drawing.Point(129, 8) + Me.pnlorange3.Name = "pnlorange3" + Me.pnlorange3.Size = New System.Drawing.Size(20, 13) + Me.pnlorange3.TabIndex = 6 + Me.pnlorange3.Visible = False + ' + 'pnlorange1 + ' + Me.pnlorange1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlorange1.Location = New System.Drawing.Point(77, 8) + Me.pnlorange1.Name = "pnlorange1" + Me.pnlorange1.Size = New System.Drawing.Size(20, 13) + Me.pnlorange1.TabIndex = 2 + Me.pnlorange1.Visible = False + ' + 'lblorangelevel + ' + Me.lblorangelevel.AutoSize = True + Me.lblorangelevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblorangelevel.Location = New System.Drawing.Point(5, 25) + Me.lblorangelevel.Name = "lblorangelevel" + Me.lblorangelevel.Size = New System.Drawing.Size(49, 15) + Me.lblorangelevel.TabIndex = 1 + Me.lblorangelevel.Text = "Level: 4" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(3, 2) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(74, 23) + Me.Label13.TabIndex = 0 + Me.Label13.Text = "Orange" + ' + 'pnlyellowcolours + ' + Me.pnlyellowcolours.BackColor = System.Drawing.Color.White + Me.pnlyellowcolours.Controls.Add(Me.pnlyellowoptions) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellowcustomcolour) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow16) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow12) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow14) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow10) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow8) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow4) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow6) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow15) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow2) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow13) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow11) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow7) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow9) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow5) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow3) + Me.pnlyellowcolours.Controls.Add(Me.pnlyellow1) + Me.pnlyellowcolours.Controls.Add(Me.lblyellowlevel) + Me.pnlyellowcolours.Controls.Add(Me.Label11) + Me.pnlyellowcolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlyellowcolours.Location = New System.Drawing.Point(0, 337) + Me.pnlyellowcolours.Name = "pnlyellowcolours" + Me.pnlyellowcolours.Size = New System.Drawing.Size(443, 46) + Me.pnlyellowcolours.TabIndex = 6 + Me.pnlyellowcolours.Visible = False + ' + 'pnlyellowoptions + ' + Me.pnlyellowoptions.Controls.Add(Me.Label20) + Me.pnlyellowoptions.Controls.Add(Me.txtyellowsblue) + Me.pnlyellowoptions.Controls.Add(Me.txtyellowsred) + Me.pnlyellowoptions.Controls.Add(Me.Label22) + Me.pnlyellowoptions.Controls.Add(Me.Label24) + Me.pnlyellowoptions.Controls.Add(Me.txtyellowsgreen) + Me.pnlyellowoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlyellowoptions.Name = "pnlyellowoptions" + Me.pnlyellowoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlyellowoptions.TabIndex = 29 + Me.pnlyellowoptions.Visible = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.Transparent + Me.Label20.Location = New System.Drawing.Point(64, 24) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(31, 13) + Me.Label20.TabIndex = 26 + Me.Label20.Text = "Blue:" + ' + 'txtyellowsblue + ' + Me.txtyellowsblue.BackColor = System.Drawing.Color.White + Me.txtyellowsblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtyellowsblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtyellowsblue.Location = New System.Drawing.Point(95, 22) + Me.txtyellowsblue.Multiline = True + Me.txtyellowsblue.Name = "txtyellowsblue" + Me.txtyellowsblue.Size = New System.Drawing.Size(23, 17) + Me.txtyellowsblue.TabIndex = 25 + Me.txtyellowsblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtyellowsred + ' + Me.txtyellowsred.BackColor = System.Drawing.Color.White + Me.txtyellowsred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtyellowsred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtyellowsred.Location = New System.Drawing.Point(64, 2) + Me.txtyellowsred.Multiline = True + Me.txtyellowsred.Name = "txtyellowsred" + Me.txtyellowsred.Size = New System.Drawing.Size(23, 17) + Me.txtyellowsred.TabIndex = 21 + Me.txtyellowsred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.Transparent + Me.Label22.Location = New System.Drawing.Point(1, 23) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(39, 13) + Me.Label22.TabIndex = 24 + Me.Label22.Text = "Green:" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.BackColor = System.Drawing.Color.Transparent + Me.Label24.Location = New System.Drawing.Point(33, 4) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(30, 13) + Me.Label24.TabIndex = 22 + Me.Label24.Text = "Red:" + ' + 'txtyellowsgreen + ' + Me.txtyellowsgreen.BackColor = System.Drawing.Color.White + Me.txtyellowsgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtyellowsgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtyellowsgreen.Location = New System.Drawing.Point(40, 22) + Me.txtyellowsgreen.Multiline = True + Me.txtyellowsgreen.Name = "txtyellowsgreen" + Me.txtyellowsgreen.Size = New System.Drawing.Size(23, 17) + Me.txtyellowsgreen.TabIndex = 23 + Me.txtyellowsgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlyellowcustomcolour + ' + Me.pnlyellowcustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellowcustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlyellowcustomcolour.Name = "pnlyellowcustomcolour" + Me.pnlyellowcustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlyellowcustomcolour.TabIndex = 18 + Me.pnlyellowcustomcolour.Visible = False + ' + 'pnlyellow16 + ' + Me.pnlyellow16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow16.Location = New System.Drawing.Point(259, 25) + Me.pnlyellow16.Name = "pnlyellow16" + Me.pnlyellow16.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow16.TabIndex = 17 + Me.pnlyellow16.Visible = False + ' + 'pnlyellow12 + ' + Me.pnlyellow12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow12.Location = New System.Drawing.Point(155, 25) + Me.pnlyellow12.Name = "pnlyellow12" + Me.pnlyellow12.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow12.TabIndex = 9 + Me.pnlyellow12.Visible = False + ' + 'pnlyellow14 + ' + Me.pnlyellow14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow14.Location = New System.Drawing.Point(207, 25) + Me.pnlyellow14.Name = "pnlyellow14" + Me.pnlyellow14.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow14.TabIndex = 13 + Me.pnlyellow14.Visible = False + ' + 'pnlyellow10 + ' + Me.pnlyellow10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow10.Location = New System.Drawing.Point(103, 25) + Me.pnlyellow10.Name = "pnlyellow10" + Me.pnlyellow10.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow10.TabIndex = 5 + Me.pnlyellow10.Visible = False + ' + 'pnlyellow8 + ' + Me.pnlyellow8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow8.Location = New System.Drawing.Point(259, 8) + Me.pnlyellow8.Name = "pnlyellow8" + Me.pnlyellow8.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow8.TabIndex = 16 + Me.pnlyellow8.Visible = False + ' + 'pnlyellow4 + ' + Me.pnlyellow4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow4.Location = New System.Drawing.Point(155, 8) + Me.pnlyellow4.Name = "pnlyellow4" + Me.pnlyellow4.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow4.TabIndex = 8 + Me.pnlyellow4.Visible = False + ' + 'pnlyellow6 + ' + Me.pnlyellow6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow6.Location = New System.Drawing.Point(207, 8) + Me.pnlyellow6.Name = "pnlyellow6" + Me.pnlyellow6.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow6.TabIndex = 12 + Me.pnlyellow6.Visible = False + ' + 'pnlyellow15 + ' + Me.pnlyellow15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow15.Location = New System.Drawing.Point(233, 25) + Me.pnlyellow15.Name = "pnlyellow15" + Me.pnlyellow15.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow15.TabIndex = 15 + Me.pnlyellow15.Visible = False + ' + 'pnlyellow2 + ' + Me.pnlyellow2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow2.Location = New System.Drawing.Point(103, 8) + Me.pnlyellow2.Name = "pnlyellow2" + Me.pnlyellow2.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow2.TabIndex = 4 + Me.pnlyellow2.Visible = False + ' + 'pnlyellow13 + ' + Me.pnlyellow13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow13.Location = New System.Drawing.Point(181, 25) + Me.pnlyellow13.Name = "pnlyellow13" + Me.pnlyellow13.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow13.TabIndex = 11 + Me.pnlyellow13.Visible = False + ' + 'pnlyellow11 + ' + Me.pnlyellow11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow11.Location = New System.Drawing.Point(129, 25) + Me.pnlyellow11.Name = "pnlyellow11" + Me.pnlyellow11.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow11.TabIndex = 7 + Me.pnlyellow11.Visible = False + ' + 'pnlyellow7 + ' + Me.pnlyellow7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow7.Location = New System.Drawing.Point(233, 8) + Me.pnlyellow7.Name = "pnlyellow7" + Me.pnlyellow7.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow7.TabIndex = 14 + Me.pnlyellow7.Visible = False + ' + 'pnlyellow9 + ' + Me.pnlyellow9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow9.Location = New System.Drawing.Point(77, 25) + Me.pnlyellow9.Name = "pnlyellow9" + Me.pnlyellow9.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow9.TabIndex = 3 + Me.pnlyellow9.Visible = False + ' + 'pnlyellow5 + ' + Me.pnlyellow5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow5.Location = New System.Drawing.Point(181, 8) + Me.pnlyellow5.Name = "pnlyellow5" + Me.pnlyellow5.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow5.TabIndex = 10 + Me.pnlyellow5.Visible = False + ' + 'pnlyellow3 + ' + Me.pnlyellow3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow3.Location = New System.Drawing.Point(129, 8) + Me.pnlyellow3.Name = "pnlyellow3" + Me.pnlyellow3.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow3.TabIndex = 6 + Me.pnlyellow3.Visible = False + ' + 'pnlyellow1 + ' + Me.pnlyellow1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlyellow1.Location = New System.Drawing.Point(77, 8) + Me.pnlyellow1.Name = "pnlyellow1" + Me.pnlyellow1.Size = New System.Drawing.Size(20, 13) + Me.pnlyellow1.TabIndex = 2 + Me.pnlyellow1.Visible = False + ' + 'lblyellowlevel + ' + Me.lblyellowlevel.AutoSize = True + Me.lblyellowlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblyellowlevel.Location = New System.Drawing.Point(5, 25) + Me.lblyellowlevel.Name = "lblyellowlevel" + Me.lblyellowlevel.Size = New System.Drawing.Size(49, 15) + Me.lblyellowlevel.TabIndex = 1 + Me.lblyellowlevel.Text = "Level: 4" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(3, 2) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 23) + Me.Label11.TabIndex = 0 + Me.Label11.Text = "Yellow" + ' + 'pnlgreencolours + ' + Me.pnlgreencolours.BackColor = System.Drawing.Color.White + Me.pnlgreencolours.Controls.Add(Me.pnlgreenoptions) + Me.pnlgreencolours.Controls.Add(Me.pnlgreencustomcolour) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen16) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen12) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen14) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen10) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen8) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen4) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen6) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen15) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen2) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen13) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen11) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen7) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen9) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen5) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen3) + Me.pnlgreencolours.Controls.Add(Me.pnlgreen1) + Me.pnlgreencolours.Controls.Add(Me.lblgreenlevel) + Me.pnlgreencolours.Controls.Add(Me.Label9) + Me.pnlgreencolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlgreencolours.Location = New System.Drawing.Point(0, 291) + Me.pnlgreencolours.Name = "pnlgreencolours" + Me.pnlgreencolours.Size = New System.Drawing.Size(443, 46) + Me.pnlgreencolours.TabIndex = 5 + Me.pnlgreencolours.Visible = False + ' + 'pnlgreenoptions + ' + Me.pnlgreenoptions.Controls.Add(Me.Label15) + Me.pnlgreenoptions.Controls.Add(Me.txtgreensred) + Me.pnlgreenoptions.Controls.Add(Me.txtgreensgreen) + Me.pnlgreenoptions.Controls.Add(Me.Label16) + Me.pnlgreenoptions.Controls.Add(Me.Label18) + Me.pnlgreenoptions.Controls.Add(Me.txtgreensblue) + Me.pnlgreenoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlgreenoptions.Name = "pnlgreenoptions" + Me.pnlgreenoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlgreenoptions.TabIndex = 29 + Me.pnlgreenoptions.Visible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.Transparent + Me.Label15.Location = New System.Drawing.Point(62, 24) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(30, 13) + Me.Label15.TabIndex = 26 + Me.Label15.Text = "Red:" + ' + 'txtgreensred + ' + Me.txtgreensred.BackColor = System.Drawing.Color.White + Me.txtgreensred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtgreensred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtgreensred.Location = New System.Drawing.Point(92, 22) + Me.txtgreensred.Multiline = True + Me.txtgreensred.Name = "txtgreensred" + Me.txtgreensred.Size = New System.Drawing.Size(23, 17) + Me.txtgreensred.TabIndex = 25 + Me.txtgreensred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtgreensgreen + ' + Me.txtgreensgreen.BackColor = System.Drawing.Color.White + Me.txtgreensgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtgreensgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtgreensgreen.Location = New System.Drawing.Point(66, 2) + Me.txtgreensgreen.Multiline = True + Me.txtgreensgreen.Name = "txtgreensgreen" + Me.txtgreensgreen.Size = New System.Drawing.Size(23, 17) + Me.txtgreensgreen.TabIndex = 21 + Me.txtgreensgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.Transparent + Me.Label16.Location = New System.Drawing.Point(2, 23) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(31, 13) + Me.Label16.TabIndex = 24 + Me.Label16.Text = "Blue:" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.Transparent + Me.Label18.Location = New System.Drawing.Point(28, 4) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(39, 13) + Me.Label18.TabIndex = 22 + Me.Label18.Text = "Green:" + ' + 'txtgreensblue + ' + Me.txtgreensblue.BackColor = System.Drawing.Color.White + Me.txtgreensblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtgreensblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtgreensblue.Location = New System.Drawing.Point(33, 22) + Me.txtgreensblue.Multiline = True + Me.txtgreensblue.Name = "txtgreensblue" + Me.txtgreensblue.Size = New System.Drawing.Size(23, 17) + Me.txtgreensblue.TabIndex = 23 + Me.txtgreensblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlgreencustomcolour + ' + Me.pnlgreencustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreencustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlgreencustomcolour.Name = "pnlgreencustomcolour" + Me.pnlgreencustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlgreencustomcolour.TabIndex = 18 + Me.pnlgreencustomcolour.Visible = False + ' + 'pnlgreen16 + ' + Me.pnlgreen16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen16.Location = New System.Drawing.Point(259, 25) + Me.pnlgreen16.Name = "pnlgreen16" + Me.pnlgreen16.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen16.TabIndex = 17 + Me.pnlgreen16.Visible = False + ' + 'pnlgreen12 + ' + Me.pnlgreen12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen12.Location = New System.Drawing.Point(155, 25) + Me.pnlgreen12.Name = "pnlgreen12" + Me.pnlgreen12.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen12.TabIndex = 9 + Me.pnlgreen12.Visible = False + ' + 'pnlgreen14 + ' + Me.pnlgreen14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen14.Location = New System.Drawing.Point(207, 25) + Me.pnlgreen14.Name = "pnlgreen14" + Me.pnlgreen14.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen14.TabIndex = 13 + Me.pnlgreen14.Visible = False + ' + 'pnlgreen10 + ' + Me.pnlgreen10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen10.Location = New System.Drawing.Point(103, 25) + Me.pnlgreen10.Name = "pnlgreen10" + Me.pnlgreen10.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen10.TabIndex = 5 + Me.pnlgreen10.Visible = False + ' + 'pnlgreen8 + ' + Me.pnlgreen8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen8.Location = New System.Drawing.Point(259, 8) + Me.pnlgreen8.Name = "pnlgreen8" + Me.pnlgreen8.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen8.TabIndex = 16 + Me.pnlgreen8.Visible = False + ' + 'pnlgreen4 + ' + Me.pnlgreen4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen4.Location = New System.Drawing.Point(155, 8) + Me.pnlgreen4.Name = "pnlgreen4" + Me.pnlgreen4.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen4.TabIndex = 8 + Me.pnlgreen4.Visible = False + ' + 'pnlgreen6 + ' + Me.pnlgreen6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen6.Location = New System.Drawing.Point(207, 8) + Me.pnlgreen6.Name = "pnlgreen6" + Me.pnlgreen6.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen6.TabIndex = 12 + Me.pnlgreen6.Visible = False + ' + 'pnlgreen15 + ' + Me.pnlgreen15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen15.Location = New System.Drawing.Point(233, 25) + Me.pnlgreen15.Name = "pnlgreen15" + Me.pnlgreen15.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen15.TabIndex = 15 + Me.pnlgreen15.Visible = False + ' + 'pnlgreen2 + ' + Me.pnlgreen2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen2.Location = New System.Drawing.Point(103, 8) + Me.pnlgreen2.Name = "pnlgreen2" + Me.pnlgreen2.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen2.TabIndex = 4 + Me.pnlgreen2.Visible = False + ' + 'pnlgreen13 + ' + Me.pnlgreen13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen13.Location = New System.Drawing.Point(181, 25) + Me.pnlgreen13.Name = "pnlgreen13" + Me.pnlgreen13.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen13.TabIndex = 11 + Me.pnlgreen13.Visible = False + ' + 'pnlgreen11 + ' + Me.pnlgreen11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen11.Location = New System.Drawing.Point(129, 25) + Me.pnlgreen11.Name = "pnlgreen11" + Me.pnlgreen11.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen11.TabIndex = 7 + Me.pnlgreen11.Visible = False + ' + 'pnlgreen7 + ' + Me.pnlgreen7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen7.Location = New System.Drawing.Point(233, 8) + Me.pnlgreen7.Name = "pnlgreen7" + Me.pnlgreen7.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen7.TabIndex = 14 + Me.pnlgreen7.Visible = False + ' + 'pnlgreen9 + ' + Me.pnlgreen9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen9.Location = New System.Drawing.Point(77, 25) + Me.pnlgreen9.Name = "pnlgreen9" + Me.pnlgreen9.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen9.TabIndex = 3 + Me.pnlgreen9.Visible = False + ' + 'pnlgreen5 + ' + Me.pnlgreen5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen5.Location = New System.Drawing.Point(181, 8) + Me.pnlgreen5.Name = "pnlgreen5" + Me.pnlgreen5.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen5.TabIndex = 10 + Me.pnlgreen5.Visible = False + ' + 'pnlgreen3 + ' + Me.pnlgreen3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen3.Location = New System.Drawing.Point(129, 8) + Me.pnlgreen3.Name = "pnlgreen3" + Me.pnlgreen3.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen3.TabIndex = 6 + Me.pnlgreen3.Visible = False + ' + 'pnlgreen1 + ' + Me.pnlgreen1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgreen1.Location = New System.Drawing.Point(77, 8) + Me.pnlgreen1.Name = "pnlgreen1" + Me.pnlgreen1.Size = New System.Drawing.Size(20, 13) + Me.pnlgreen1.TabIndex = 2 + Me.pnlgreen1.Visible = False + ' + 'lblgreenlevel + ' + Me.lblgreenlevel.AutoSize = True + Me.lblgreenlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblgreenlevel.Location = New System.Drawing.Point(5, 25) + Me.lblgreenlevel.Name = "lblgreenlevel" + Me.lblgreenlevel.Size = New System.Drawing.Size(49, 15) + Me.lblgreenlevel.TabIndex = 1 + Me.lblgreenlevel.Text = "Level: 4" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 2) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(60, 23) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "Green" + ' + 'pnlbluecolours + ' + Me.pnlbluecolours.BackColor = System.Drawing.Color.White + Me.pnlbluecolours.Controls.Add(Me.pnlblueoptions) + Me.pnlbluecolours.Controls.Add(Me.pnlbluecustomcolour) + Me.pnlbluecolours.Controls.Add(Me.pnlblue16) + Me.pnlbluecolours.Controls.Add(Me.pnlblue12) + Me.pnlbluecolours.Controls.Add(Me.pnlblue14) + Me.pnlbluecolours.Controls.Add(Me.pnlblue10) + Me.pnlbluecolours.Controls.Add(Me.pnlblue8) + Me.pnlbluecolours.Controls.Add(Me.pnlblue4) + Me.pnlbluecolours.Controls.Add(Me.pnlblue6) + Me.pnlbluecolours.Controls.Add(Me.pnlblue15) + Me.pnlbluecolours.Controls.Add(Me.pnlblue2) + Me.pnlbluecolours.Controls.Add(Me.pnlblue13) + Me.pnlbluecolours.Controls.Add(Me.pnlblue11) + Me.pnlbluecolours.Controls.Add(Me.pnlblue7) + Me.pnlbluecolours.Controls.Add(Me.pnlblue9) + Me.pnlbluecolours.Controls.Add(Me.pnlblue5) + Me.pnlbluecolours.Controls.Add(Me.pnlblue3) + Me.pnlbluecolours.Controls.Add(Me.pnlblue1) + Me.pnlbluecolours.Controls.Add(Me.lblbluelevel) + Me.pnlbluecolours.Controls.Add(Me.Label7) + Me.pnlbluecolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlbluecolours.Location = New System.Drawing.Point(0, 245) + Me.pnlbluecolours.Name = "pnlbluecolours" + Me.pnlbluecolours.Size = New System.Drawing.Size(443, 46) + Me.pnlbluecolours.TabIndex = 4 + Me.pnlbluecolours.Visible = False + ' + 'pnlblueoptions + ' + Me.pnlblueoptions.Controls.Add(Me.Label6) + Me.pnlblueoptions.Controls.Add(Me.txtbluesred) + Me.pnlblueoptions.Controls.Add(Me.txtbluesblue) + Me.pnlblueoptions.Controls.Add(Me.Label4) + Me.pnlblueoptions.Controls.Add(Me.Label2) + Me.pnlblueoptions.Controls.Add(Me.txtbluesgreen) + Me.pnlblueoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlblueoptions.Name = "pnlblueoptions" + Me.pnlblueoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlblueoptions.TabIndex = 27 + Me.pnlblueoptions.Visible = False + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.Transparent + Me.Label6.Location = New System.Drawing.Point(65, 24) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(30, 13) + Me.Label6.TabIndex = 26 + Me.Label6.Text = "Red:" + ' + 'txtbluesred + ' + Me.txtbluesred.BackColor = System.Drawing.Color.White + Me.txtbluesred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbluesred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbluesred.Location = New System.Drawing.Point(95, 22) + Me.txtbluesred.Multiline = True + Me.txtbluesred.Name = "txtbluesred" + Me.txtbluesred.Size = New System.Drawing.Size(23, 17) + Me.txtbluesred.TabIndex = 25 + Me.txtbluesred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtbluesblue + ' + Me.txtbluesblue.BackColor = System.Drawing.Color.White + Me.txtbluesblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbluesblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbluesblue.Location = New System.Drawing.Point(65, 2) + Me.txtbluesblue.Multiline = True + Me.txtbluesblue.Name = "txtbluesblue" + Me.txtbluesblue.Size = New System.Drawing.Size(23, 17) + Me.txtbluesblue.TabIndex = 21 + Me.txtbluesblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.Transparent + Me.Label4.Location = New System.Drawing.Point(2, 23) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 13) + Me.Label4.TabIndex = 24 + Me.Label4.Text = "Green:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Location = New System.Drawing.Point(33, 4) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(31, 13) + Me.Label2.TabIndex = 22 + Me.Label2.Text = "Blue:" + ' + 'txtbluesgreen + ' + Me.txtbluesgreen.BackColor = System.Drawing.Color.White + Me.txtbluesgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbluesgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbluesgreen.Location = New System.Drawing.Point(41, 22) + Me.txtbluesgreen.Multiline = True + Me.txtbluesgreen.Name = "txtbluesgreen" + Me.txtbluesgreen.Size = New System.Drawing.Size(23, 17) + Me.txtbluesgreen.TabIndex = 23 + Me.txtbluesgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlbluecustomcolour + ' + Me.pnlbluecustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlbluecustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlbluecustomcolour.Name = "pnlbluecustomcolour" + Me.pnlbluecustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlbluecustomcolour.TabIndex = 18 + Me.pnlbluecustomcolour.Visible = False + ' + 'pnlblue16 + ' + Me.pnlblue16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue16.Location = New System.Drawing.Point(259, 25) + Me.pnlblue16.Name = "pnlblue16" + Me.pnlblue16.Size = New System.Drawing.Size(20, 13) + Me.pnlblue16.TabIndex = 17 + Me.pnlblue16.Visible = False + ' + 'pnlblue12 + ' + Me.pnlblue12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue12.Location = New System.Drawing.Point(155, 25) + Me.pnlblue12.Name = "pnlblue12" + Me.pnlblue12.Size = New System.Drawing.Size(20, 13) + Me.pnlblue12.TabIndex = 9 + Me.pnlblue12.Visible = False + ' + 'pnlblue14 + ' + Me.pnlblue14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue14.Location = New System.Drawing.Point(207, 25) + Me.pnlblue14.Name = "pnlblue14" + Me.pnlblue14.Size = New System.Drawing.Size(20, 13) + Me.pnlblue14.TabIndex = 13 + Me.pnlblue14.Visible = False + ' + 'pnlblue10 + ' + Me.pnlblue10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue10.Location = New System.Drawing.Point(103, 25) + Me.pnlblue10.Name = "pnlblue10" + Me.pnlblue10.Size = New System.Drawing.Size(20, 13) + Me.pnlblue10.TabIndex = 5 + Me.pnlblue10.Visible = False + ' + 'pnlblue8 + ' + Me.pnlblue8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue8.Location = New System.Drawing.Point(259, 8) + Me.pnlblue8.Name = "pnlblue8" + Me.pnlblue8.Size = New System.Drawing.Size(20, 13) + Me.pnlblue8.TabIndex = 16 + Me.pnlblue8.Visible = False + ' + 'pnlblue4 + ' + Me.pnlblue4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue4.Location = New System.Drawing.Point(155, 8) + Me.pnlblue4.Name = "pnlblue4" + Me.pnlblue4.Size = New System.Drawing.Size(20, 13) + Me.pnlblue4.TabIndex = 8 + Me.pnlblue4.Visible = False + ' + 'pnlblue6 + ' + Me.pnlblue6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue6.Location = New System.Drawing.Point(207, 8) + Me.pnlblue6.Name = "pnlblue6" + Me.pnlblue6.Size = New System.Drawing.Size(20, 13) + Me.pnlblue6.TabIndex = 12 + Me.pnlblue6.Visible = False + ' + 'pnlblue15 + ' + Me.pnlblue15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue15.Location = New System.Drawing.Point(233, 25) + Me.pnlblue15.Name = "pnlblue15" + Me.pnlblue15.Size = New System.Drawing.Size(20, 13) + Me.pnlblue15.TabIndex = 15 + Me.pnlblue15.Visible = False + ' + 'pnlblue2 + ' + Me.pnlblue2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue2.Location = New System.Drawing.Point(103, 8) + Me.pnlblue2.Name = "pnlblue2" + Me.pnlblue2.Size = New System.Drawing.Size(20, 13) + Me.pnlblue2.TabIndex = 4 + Me.pnlblue2.Visible = False + ' + 'pnlblue13 + ' + Me.pnlblue13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue13.Location = New System.Drawing.Point(181, 25) + Me.pnlblue13.Name = "pnlblue13" + Me.pnlblue13.Size = New System.Drawing.Size(20, 13) + Me.pnlblue13.TabIndex = 11 + Me.pnlblue13.Visible = False + ' + 'pnlblue11 + ' + Me.pnlblue11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue11.Location = New System.Drawing.Point(129, 25) + Me.pnlblue11.Name = "pnlblue11" + Me.pnlblue11.Size = New System.Drawing.Size(20, 13) + Me.pnlblue11.TabIndex = 7 + Me.pnlblue11.Visible = False + ' + 'pnlblue7 + ' + Me.pnlblue7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue7.Location = New System.Drawing.Point(233, 8) + Me.pnlblue7.Name = "pnlblue7" + Me.pnlblue7.Size = New System.Drawing.Size(20, 13) + Me.pnlblue7.TabIndex = 14 + Me.pnlblue7.Visible = False + ' + 'pnlblue9 + ' + Me.pnlblue9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue9.Location = New System.Drawing.Point(77, 25) + Me.pnlblue9.Name = "pnlblue9" + Me.pnlblue9.Size = New System.Drawing.Size(20, 13) + Me.pnlblue9.TabIndex = 3 + Me.pnlblue9.Visible = False + ' + 'pnlblue5 + ' + Me.pnlblue5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue5.Location = New System.Drawing.Point(181, 8) + Me.pnlblue5.Name = "pnlblue5" + Me.pnlblue5.Size = New System.Drawing.Size(20, 13) + Me.pnlblue5.TabIndex = 10 + Me.pnlblue5.Visible = False + ' + 'pnlblue3 + ' + Me.pnlblue3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue3.Location = New System.Drawing.Point(129, 8) + Me.pnlblue3.Name = "pnlblue3" + Me.pnlblue3.Size = New System.Drawing.Size(20, 13) + Me.pnlblue3.TabIndex = 6 + Me.pnlblue3.Visible = False + ' + 'pnlblue1 + ' + Me.pnlblue1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlblue1.Location = New System.Drawing.Point(77, 8) + Me.pnlblue1.Name = "pnlblue1" + Me.pnlblue1.Size = New System.Drawing.Size(20, 13) + Me.pnlblue1.TabIndex = 2 + Me.pnlblue1.Visible = False + ' + 'lblbluelevel + ' + Me.lblbluelevel.AutoSize = True + Me.lblbluelevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbluelevel.Location = New System.Drawing.Point(5, 25) + Me.lblbluelevel.Name = "lblbluelevel" + Me.lblbluelevel.Size = New System.Drawing.Size(49, 15) + Me.lblbluelevel.TabIndex = 1 + Me.lblbluelevel.Text = "Level: 4" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(3, 2) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(48, 23) + Me.Label7.TabIndex = 0 + Me.Label7.Text = "Blue" + ' + 'pnlpurplecolours + ' + Me.pnlpurplecolours.BackColor = System.Drawing.Color.White + Me.pnlpurplecolours.Controls.Add(Me.pnlpurpleoptions) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurplecustomcolour) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple16) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple12) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple14) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple10) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple8) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple4) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple6) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple15) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple2) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple13) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple11) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple7) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple9) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple5) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple3) + Me.pnlpurplecolours.Controls.Add(Me.pnlpurple1) + Me.pnlpurplecolours.Controls.Add(Me.lblpurplelevel) + Me.pnlpurplecolours.Controls.Add(Me.Label5) + Me.pnlpurplecolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlpurplecolours.Location = New System.Drawing.Point(0, 199) + Me.pnlpurplecolours.Name = "pnlpurplecolours" + Me.pnlpurplecolours.Size = New System.Drawing.Size(443, 46) + Me.pnlpurplecolours.TabIndex = 3 + Me.pnlpurplecolours.Visible = False + ' + 'pnlpurpleoptions + ' + Me.pnlpurpleoptions.Controls.Add(Me.Label8) + Me.pnlpurpleoptions.Controls.Add(Me.txtpurplesgreen) + Me.pnlpurpleoptions.Controls.Add(Me.txtpurplesblue) + Me.pnlpurpleoptions.Controls.Add(Me.Label10) + Me.pnlpurpleoptions.Controls.Add(Me.Label12) + Me.pnlpurpleoptions.Controls.Add(Me.txtpurplesred) + Me.pnlpurpleoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlpurpleoptions.Name = "pnlpurpleoptions" + Me.pnlpurpleoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlpurpleoptions.TabIndex = 28 + Me.pnlpurpleoptions.Visible = False + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.BackColor = System.Drawing.Color.Transparent + Me.Label8.Location = New System.Drawing.Point(56, 24) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(39, 13) + Me.Label8.TabIndex = 26 + Me.Label8.Text = "Green:" + ' + 'txtpurplesgreen + ' + Me.txtpurplesgreen.BackColor = System.Drawing.Color.White + Me.txtpurplesgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpurplesgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpurplesgreen.Location = New System.Drawing.Point(95, 22) + Me.txtpurplesgreen.Multiline = True + Me.txtpurplesgreen.Name = "txtpurplesgreen" + Me.txtpurplesgreen.Size = New System.Drawing.Size(23, 17) + Me.txtpurplesgreen.TabIndex = 25 + Me.txtpurplesgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtpurplesblue + ' + Me.txtpurplesblue.BackColor = System.Drawing.Color.White + Me.txtpurplesblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpurplesblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpurplesblue.Location = New System.Drawing.Point(65, 2) + Me.txtpurplesblue.Multiline = True + Me.txtpurplesblue.Name = "txtpurplesblue" + Me.txtpurplesblue.Size = New System.Drawing.Size(23, 17) + Me.txtpurplesblue.TabIndex = 21 + Me.txtpurplesblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.Transparent + Me.Label10.Location = New System.Drawing.Point(2, 23) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(30, 13) + Me.Label10.TabIndex = 24 + Me.Label10.Text = "Red:" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.BackColor = System.Drawing.Color.Transparent + Me.Label12.Location = New System.Drawing.Point(33, 4) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(31, 13) + Me.Label12.TabIndex = 22 + Me.Label12.Text = "Blue:" + ' + 'txtpurplesred + ' + Me.txtpurplesred.BackColor = System.Drawing.Color.White + Me.txtpurplesred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpurplesred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpurplesred.Location = New System.Drawing.Point(32, 22) + Me.txtpurplesred.Multiline = True + Me.txtpurplesred.Name = "txtpurplesred" + Me.txtpurplesred.Size = New System.Drawing.Size(23, 17) + Me.txtpurplesred.TabIndex = 23 + Me.txtpurplesred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlpurplecustomcolour + ' + Me.pnlpurplecustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurplecustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlpurplecustomcolour.Name = "pnlpurplecustomcolour" + Me.pnlpurplecustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlpurplecustomcolour.TabIndex = 18 + Me.pnlpurplecustomcolour.Visible = False + ' + 'pnlpurple16 + ' + Me.pnlpurple16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple16.Location = New System.Drawing.Point(259, 25) + Me.pnlpurple16.Name = "pnlpurple16" + Me.pnlpurple16.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple16.TabIndex = 17 + Me.pnlpurple16.Visible = False + ' + 'pnlpurple12 + ' + Me.pnlpurple12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple12.Location = New System.Drawing.Point(155, 25) + Me.pnlpurple12.Name = "pnlpurple12" + Me.pnlpurple12.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple12.TabIndex = 9 + Me.pnlpurple12.Visible = False + ' + 'pnlpurple14 + ' + Me.pnlpurple14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple14.Location = New System.Drawing.Point(207, 25) + Me.pnlpurple14.Name = "pnlpurple14" + Me.pnlpurple14.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple14.TabIndex = 13 + Me.pnlpurple14.Visible = False + ' + 'pnlpurple10 + ' + Me.pnlpurple10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple10.Location = New System.Drawing.Point(103, 25) + Me.pnlpurple10.Name = "pnlpurple10" + Me.pnlpurple10.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple10.TabIndex = 5 + Me.pnlpurple10.Visible = False + ' + 'pnlpurple8 + ' + Me.pnlpurple8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple8.Location = New System.Drawing.Point(259, 8) + Me.pnlpurple8.Name = "pnlpurple8" + Me.pnlpurple8.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple8.TabIndex = 16 + Me.pnlpurple8.Visible = False + ' + 'pnlpurple4 + ' + Me.pnlpurple4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple4.Location = New System.Drawing.Point(155, 8) + Me.pnlpurple4.Name = "pnlpurple4" + Me.pnlpurple4.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple4.TabIndex = 8 + Me.pnlpurple4.Visible = False + ' + 'pnlpurple6 + ' + Me.pnlpurple6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple6.Location = New System.Drawing.Point(207, 8) + Me.pnlpurple6.Name = "pnlpurple6" + Me.pnlpurple6.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple6.TabIndex = 12 + Me.pnlpurple6.Visible = False + ' + 'pnlpurple15 + ' + Me.pnlpurple15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple15.Location = New System.Drawing.Point(233, 25) + Me.pnlpurple15.Name = "pnlpurple15" + Me.pnlpurple15.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple15.TabIndex = 15 + Me.pnlpurple15.Visible = False + ' + 'pnlpurple2 + ' + Me.pnlpurple2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple2.Location = New System.Drawing.Point(103, 8) + Me.pnlpurple2.Name = "pnlpurple2" + Me.pnlpurple2.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple2.TabIndex = 4 + Me.pnlpurple2.Visible = False + ' + 'pnlpurple13 + ' + Me.pnlpurple13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple13.Location = New System.Drawing.Point(181, 25) + Me.pnlpurple13.Name = "pnlpurple13" + Me.pnlpurple13.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple13.TabIndex = 11 + Me.pnlpurple13.Visible = False + ' + 'pnlpurple11 + ' + Me.pnlpurple11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple11.Location = New System.Drawing.Point(129, 25) + Me.pnlpurple11.Name = "pnlpurple11" + Me.pnlpurple11.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple11.TabIndex = 7 + Me.pnlpurple11.Visible = False + ' + 'pnlpurple7 + ' + Me.pnlpurple7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple7.Location = New System.Drawing.Point(233, 8) + Me.pnlpurple7.Name = "pnlpurple7" + Me.pnlpurple7.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple7.TabIndex = 14 + Me.pnlpurple7.Visible = False + ' + 'pnlpurple9 + ' + Me.pnlpurple9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple9.Location = New System.Drawing.Point(77, 25) + Me.pnlpurple9.Name = "pnlpurple9" + Me.pnlpurple9.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple9.TabIndex = 3 + Me.pnlpurple9.Visible = False + ' + 'pnlpurple5 + ' + Me.pnlpurple5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple5.Location = New System.Drawing.Point(181, 8) + Me.pnlpurple5.Name = "pnlpurple5" + Me.pnlpurple5.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple5.TabIndex = 10 + Me.pnlpurple5.Visible = False + ' + 'pnlpurple3 + ' + Me.pnlpurple3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple3.Location = New System.Drawing.Point(129, 8) + Me.pnlpurple3.Name = "pnlpurple3" + Me.pnlpurple3.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple3.TabIndex = 6 + Me.pnlpurple3.Visible = False + ' + 'pnlpurple1 + ' + Me.pnlpurple1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlpurple1.Location = New System.Drawing.Point(77, 8) + Me.pnlpurple1.Name = "pnlpurple1" + Me.pnlpurple1.Size = New System.Drawing.Size(20, 13) + Me.pnlpurple1.TabIndex = 2 + Me.pnlpurple1.Visible = False + ' + 'lblpurplelevel + ' + Me.lblpurplelevel.AutoSize = True + Me.lblpurplelevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblpurplelevel.Location = New System.Drawing.Point(5, 25) + Me.lblpurplelevel.Name = "lblpurplelevel" + Me.lblpurplelevel.Size = New System.Drawing.Size(49, 15) + Me.lblpurplelevel.TabIndex = 1 + Me.lblpurplelevel.Text = "Level: 4" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(3, 2) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(67, 23) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "Purple" + ' + 'pnlgraycolours + ' + Me.pnlgraycolours.BackColor = System.Drawing.Color.White + Me.pnlgraycolours.Controls.Add(Me.lblcustomshadetut) + Me.pnlgraycolours.Controls.Add(Me.txtcustomgrayshade) + Me.pnlgraycolours.Controls.Add(Me.pnlgraycustomcolour) + Me.pnlgraycolours.Controls.Add(Me.pnlgray16) + Me.pnlgraycolours.Controls.Add(Me.pnlgray12) + Me.pnlgraycolours.Controls.Add(Me.pnlgray14) + Me.pnlgraycolours.Controls.Add(Me.pnlgray10) + Me.pnlgraycolours.Controls.Add(Me.pnlgray8) + Me.pnlgraycolours.Controls.Add(Me.pnlgray4) + Me.pnlgraycolours.Controls.Add(Me.pnlgray6) + Me.pnlgraycolours.Controls.Add(Me.pnlgray15) + Me.pnlgraycolours.Controls.Add(Me.pnlgray2) + Me.pnlgraycolours.Controls.Add(Me.pnlgray13) + Me.pnlgraycolours.Controls.Add(Me.pnlgray11) + Me.pnlgraycolours.Controls.Add(Me.pnlgray7) + Me.pnlgraycolours.Controls.Add(Me.pnlgray9) + Me.pnlgraycolours.Controls.Add(Me.pnlgray5) + Me.pnlgraycolours.Controls.Add(Me.pnlgray3) + Me.pnlgraycolours.Controls.Add(Me.pnlgray1) + Me.pnlgraycolours.Controls.Add(Me.lblgraylevel) + Me.pnlgraycolours.Controls.Add(Me.Label3) + Me.pnlgraycolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlgraycolours.Location = New System.Drawing.Point(0, 153) + Me.pnlgraycolours.Name = "pnlgraycolours" + Me.pnlgraycolours.Size = New System.Drawing.Size(443, 46) + Me.pnlgraycolours.TabIndex = 2 + Me.pnlgraycolours.Visible = False + ' + 'lblcustomshadetut + ' + Me.lblcustomshadetut.AutoSize = True + Me.lblcustomshadetut.BackColor = System.Drawing.Color.Transparent + Me.lblcustomshadetut.Location = New System.Drawing.Point(290, 5) + Me.lblcustomshadetut.Name = "lblcustomshadetut" + Me.lblcustomshadetut.Size = New System.Drawing.Size(102, 13) + Me.lblcustomshadetut.TabIndex = 20 + Me.lblcustomshadetut.Text = "Enter Shade (0-255)" + Me.lblcustomshadetut.Visible = False + ' + 'txtcustomgrayshade + ' + Me.txtcustomgrayshade.BackColor = System.Drawing.Color.White + Me.txtcustomgrayshade.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtcustomgrayshade.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcustomgrayshade.Location = New System.Drawing.Point(317, 20) + Me.txtcustomgrayshade.Multiline = True + Me.txtcustomgrayshade.Name = "txtcustomgrayshade" + Me.txtcustomgrayshade.Size = New System.Drawing.Size(45, 17) + Me.txtcustomgrayshade.TabIndex = 19 + Me.txtcustomgrayshade.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.txtcustomgrayshade.Visible = False + ' + 'pnlgraycustomcolour + ' + Me.pnlgraycustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgraycustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlgraycustomcolour.Name = "pnlgraycustomcolour" + Me.pnlgraycustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlgraycustomcolour.TabIndex = 18 + Me.pnlgraycustomcolour.Visible = False + ' + 'pnlgray16 + ' + Me.pnlgray16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray16.Location = New System.Drawing.Point(259, 25) + Me.pnlgray16.Name = "pnlgray16" + Me.pnlgray16.Size = New System.Drawing.Size(20, 13) + Me.pnlgray16.TabIndex = 17 + Me.pnlgray16.Visible = False + ' + 'pnlgray12 + ' + Me.pnlgray12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray12.Location = New System.Drawing.Point(155, 25) + Me.pnlgray12.Name = "pnlgray12" + Me.pnlgray12.Size = New System.Drawing.Size(20, 13) + Me.pnlgray12.TabIndex = 9 + Me.pnlgray12.Visible = False + ' + 'pnlgray14 + ' + Me.pnlgray14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray14.Location = New System.Drawing.Point(207, 25) + Me.pnlgray14.Name = "pnlgray14" + Me.pnlgray14.Size = New System.Drawing.Size(20, 13) + Me.pnlgray14.TabIndex = 13 + Me.pnlgray14.Visible = False + ' + 'pnlgray10 + ' + Me.pnlgray10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray10.Location = New System.Drawing.Point(103, 25) + Me.pnlgray10.Name = "pnlgray10" + Me.pnlgray10.Size = New System.Drawing.Size(20, 13) + Me.pnlgray10.TabIndex = 5 + Me.pnlgray10.Visible = False + ' + 'pnlgray8 + ' + Me.pnlgray8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray8.Location = New System.Drawing.Point(259, 8) + Me.pnlgray8.Name = "pnlgray8" + Me.pnlgray8.Size = New System.Drawing.Size(20, 13) + Me.pnlgray8.TabIndex = 16 + Me.pnlgray8.Visible = False + ' + 'pnlgray4 + ' + Me.pnlgray4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray4.Location = New System.Drawing.Point(155, 8) + Me.pnlgray4.Name = "pnlgray4" + Me.pnlgray4.Size = New System.Drawing.Size(20, 13) + Me.pnlgray4.TabIndex = 8 + Me.pnlgray4.Visible = False + ' + 'pnlgray6 + ' + Me.pnlgray6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray6.Location = New System.Drawing.Point(207, 8) + Me.pnlgray6.Name = "pnlgray6" + Me.pnlgray6.Size = New System.Drawing.Size(20, 13) + Me.pnlgray6.TabIndex = 12 + Me.pnlgray6.Visible = False + ' + 'pnlgray15 + ' + Me.pnlgray15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray15.Location = New System.Drawing.Point(233, 25) + Me.pnlgray15.Name = "pnlgray15" + Me.pnlgray15.Size = New System.Drawing.Size(20, 13) + Me.pnlgray15.TabIndex = 15 + Me.pnlgray15.Visible = False + ' + 'pnlgray2 + ' + Me.pnlgray2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray2.Location = New System.Drawing.Point(103, 8) + Me.pnlgray2.Name = "pnlgray2" + Me.pnlgray2.Size = New System.Drawing.Size(20, 13) + Me.pnlgray2.TabIndex = 4 + Me.pnlgray2.Visible = False + ' + 'pnlgray13 + ' + Me.pnlgray13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray13.Location = New System.Drawing.Point(181, 25) + Me.pnlgray13.Name = "pnlgray13" + Me.pnlgray13.Size = New System.Drawing.Size(20, 13) + Me.pnlgray13.TabIndex = 11 + Me.pnlgray13.Visible = False + ' + 'pnlgray11 + ' + Me.pnlgray11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray11.Location = New System.Drawing.Point(129, 25) + Me.pnlgray11.Name = "pnlgray11" + Me.pnlgray11.Size = New System.Drawing.Size(20, 13) + Me.pnlgray11.TabIndex = 7 + Me.pnlgray11.Visible = False + ' + 'pnlgray7 + ' + Me.pnlgray7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray7.Location = New System.Drawing.Point(233, 8) + Me.pnlgray7.Name = "pnlgray7" + Me.pnlgray7.Size = New System.Drawing.Size(20, 13) + Me.pnlgray7.TabIndex = 14 + Me.pnlgray7.Visible = False + ' + 'pnlgray9 + ' + Me.pnlgray9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray9.Location = New System.Drawing.Point(77, 25) + Me.pnlgray9.Name = "pnlgray9" + Me.pnlgray9.Size = New System.Drawing.Size(20, 13) + Me.pnlgray9.TabIndex = 3 + Me.pnlgray9.Visible = False + ' + 'pnlgray5 + ' + Me.pnlgray5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray5.Location = New System.Drawing.Point(181, 8) + Me.pnlgray5.Name = "pnlgray5" + Me.pnlgray5.Size = New System.Drawing.Size(20, 13) + Me.pnlgray5.TabIndex = 10 + Me.pnlgray5.Visible = False + ' + 'pnlgray3 + ' + Me.pnlgray3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray3.Location = New System.Drawing.Point(129, 8) + Me.pnlgray3.Name = "pnlgray3" + Me.pnlgray3.Size = New System.Drawing.Size(20, 13) + Me.pnlgray3.TabIndex = 6 + Me.pnlgray3.Visible = False + ' + 'pnlgray1 + ' + Me.pnlgray1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlgray1.Location = New System.Drawing.Point(77, 8) + Me.pnlgray1.Name = "pnlgray1" + Me.pnlgray1.Size = New System.Drawing.Size(20, 13) + Me.pnlgray1.TabIndex = 2 + Me.pnlgray1.Visible = False + ' + 'lblgraylevel + ' + Me.lblgraylevel.AutoSize = True + Me.lblgraylevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblgraylevel.Location = New System.Drawing.Point(5, 25) + Me.lblgraylevel.Name = "lblgraylevel" + Me.lblgraylevel.Size = New System.Drawing.Size(49, 15) + Me.lblgraylevel.TabIndex = 1 + Me.lblgraylevel.Text = "Level: 4" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(3, 2) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(52, 23) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "Gray" + ' + 'pnlanycolours + ' + Me.pnlanycolours.BackColor = System.Drawing.Color.White + Me.pnlanycolours.Controls.Add(Me.pnlanyoptions) + Me.pnlanycolours.Controls.Add(Me.pnlanycustomcolour) + Me.pnlanycolours.Controls.Add(Me.pnlany16) + Me.pnlanycolours.Controls.Add(Me.pnlany12) + Me.pnlanycolours.Controls.Add(Me.pnlany14) + Me.pnlanycolours.Controls.Add(Me.pnlany10) + Me.pnlanycolours.Controls.Add(Me.pnlany8) + Me.pnlanycolours.Controls.Add(Me.pnlany4) + Me.pnlanycolours.Controls.Add(Me.pnlany6) + Me.pnlanycolours.Controls.Add(Me.pnlany15) + Me.pnlanycolours.Controls.Add(Me.pnlany2) + Me.pnlanycolours.Controls.Add(Me.pnlany13) + Me.pnlanycolours.Controls.Add(Me.pnlany11) + Me.pnlanycolours.Controls.Add(Me.pnlany7) + Me.pnlanycolours.Controls.Add(Me.pnlany9) + Me.pnlanycolours.Controls.Add(Me.pnlany5) + Me.pnlanycolours.Controls.Add(Me.pnlany3) + Me.pnlanycolours.Controls.Add(Me.pnlany1) + Me.pnlanycolours.Controls.Add(Me.lblanylevel) + Me.pnlanycolours.Controls.Add(Me.Label1) + Me.pnlanycolours.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlanycolours.Location = New System.Drawing.Point(0, 107) + Me.pnlanycolours.Name = "pnlanycolours" + Me.pnlanycolours.Size = New System.Drawing.Size(443, 46) + Me.pnlanycolours.TabIndex = 1 + Me.pnlanycolours.Visible = False + ' + 'pnlanyoptions + ' + Me.pnlanyoptions.Controls.Add(Me.Label38) + Me.pnlanyoptions.Controls.Add(Me.txtanysgreen) + Me.pnlanyoptions.Controls.Add(Me.txtanysred) + Me.pnlanyoptions.Controls.Add(Me.Label39) + Me.pnlanyoptions.Controls.Add(Me.Label40) + Me.pnlanyoptions.Controls.Add(Me.txtanysblue) + Me.pnlanyoptions.Location = New System.Drawing.Point(282, 3) + Me.pnlanyoptions.Name = "pnlanyoptions" + Me.pnlanyoptions.Size = New System.Drawing.Size(120, 40) + Me.pnlanyoptions.TabIndex = 34 + Me.pnlanyoptions.Visible = False + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.BackColor = System.Drawing.Color.Transparent + Me.Label38.Location = New System.Drawing.Point(56, 24) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(39, 13) + Me.Label38.TabIndex = 26 + Me.Label38.Text = "Green:" + ' + 'txtanysgreen + ' + Me.txtanysgreen.BackColor = System.Drawing.Color.White + Me.txtanysgreen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtanysgreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtanysgreen.Location = New System.Drawing.Point(95, 22) + Me.txtanysgreen.Multiline = True + Me.txtanysgreen.Name = "txtanysgreen" + Me.txtanysgreen.Size = New System.Drawing.Size(23, 17) + Me.txtanysgreen.TabIndex = 25 + Me.txtanysgreen.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtanysred + ' + Me.txtanysred.BackColor = System.Drawing.Color.White + Me.txtanysred.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtanysred.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtanysred.Location = New System.Drawing.Point(62, 2) + Me.txtanysred.Multiline = True + Me.txtanysred.Name = "txtanysred" + Me.txtanysred.Size = New System.Drawing.Size(23, 17) + Me.txtanysred.TabIndex = 21 + Me.txtanysred.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.BackColor = System.Drawing.Color.Transparent + Me.Label39.Location = New System.Drawing.Point(1, 23) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(31, 13) + Me.Label39.TabIndex = 24 + Me.Label39.Text = "Blue:" + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.BackColor = System.Drawing.Color.Transparent + Me.Label40.Location = New System.Drawing.Point(31, 4) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(30, 13) + Me.Label40.TabIndex = 22 + Me.Label40.Text = "Red:" + ' + 'txtanysblue + ' + Me.txtanysblue.BackColor = System.Drawing.Color.White + Me.txtanysblue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtanysblue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtanysblue.Location = New System.Drawing.Point(32, 22) + Me.txtanysblue.Multiline = True + Me.txtanysblue.Name = "txtanysblue" + Me.txtanysblue.Size = New System.Drawing.Size(23, 17) + Me.txtanysblue.TabIndex = 23 + Me.txtanysblue.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'pnlanycustomcolour + ' + Me.pnlanycustomcolour.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlanycustomcolour.Location = New System.Drawing.Point(406, 8) + Me.pnlanycustomcolour.Name = "pnlanycustomcolour" + Me.pnlanycustomcolour.Size = New System.Drawing.Size(32, 30) + Me.pnlanycustomcolour.TabIndex = 17 + Me.pnlanycustomcolour.Visible = False + ' + 'pnlany16 + ' + Me.pnlany16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany16.Location = New System.Drawing.Point(259, 25) + Me.pnlany16.Name = "pnlany16" + Me.pnlany16.Size = New System.Drawing.Size(20, 13) + Me.pnlany16.TabIndex = 17 + Me.pnlany16.Visible = False + ' + 'pnlany12 + ' + Me.pnlany12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany12.Location = New System.Drawing.Point(155, 25) + Me.pnlany12.Name = "pnlany12" + Me.pnlany12.Size = New System.Drawing.Size(20, 13) + Me.pnlany12.TabIndex = 9 + Me.pnlany12.Visible = False + ' + 'pnlany14 + ' + Me.pnlany14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany14.Location = New System.Drawing.Point(207, 25) + Me.pnlany14.Name = "pnlany14" + Me.pnlany14.Size = New System.Drawing.Size(20, 13) + Me.pnlany14.TabIndex = 13 + Me.pnlany14.Visible = False + ' + 'pnlany10 + ' + Me.pnlany10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany10.Location = New System.Drawing.Point(103, 25) + Me.pnlany10.Name = "pnlany10" + Me.pnlany10.Size = New System.Drawing.Size(20, 13) + Me.pnlany10.TabIndex = 5 + Me.pnlany10.Visible = False + ' + 'pnlany8 + ' + Me.pnlany8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany8.Location = New System.Drawing.Point(259, 8) + Me.pnlany8.Name = "pnlany8" + Me.pnlany8.Size = New System.Drawing.Size(20, 13) + Me.pnlany8.TabIndex = 16 + Me.pnlany8.Visible = False + ' + 'pnlany4 + ' + Me.pnlany4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany4.Location = New System.Drawing.Point(155, 8) + Me.pnlany4.Name = "pnlany4" + Me.pnlany4.Size = New System.Drawing.Size(20, 13) + Me.pnlany4.TabIndex = 8 + Me.pnlany4.Visible = False + ' + 'pnlany6 + ' + Me.pnlany6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany6.Location = New System.Drawing.Point(207, 8) + Me.pnlany6.Name = "pnlany6" + Me.pnlany6.Size = New System.Drawing.Size(20, 13) + Me.pnlany6.TabIndex = 12 + Me.pnlany6.Visible = False + ' + 'pnlany15 + ' + Me.pnlany15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany15.Location = New System.Drawing.Point(233, 25) + Me.pnlany15.Name = "pnlany15" + Me.pnlany15.Size = New System.Drawing.Size(20, 13) + Me.pnlany15.TabIndex = 15 + Me.pnlany15.Visible = False + ' + 'pnlany2 + ' + Me.pnlany2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany2.Location = New System.Drawing.Point(103, 8) + Me.pnlany2.Name = "pnlany2" + Me.pnlany2.Size = New System.Drawing.Size(20, 13) + Me.pnlany2.TabIndex = 4 + Me.pnlany2.Visible = False + ' + 'pnlany13 + ' + Me.pnlany13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany13.Location = New System.Drawing.Point(181, 25) + Me.pnlany13.Name = "pnlany13" + Me.pnlany13.Size = New System.Drawing.Size(20, 13) + Me.pnlany13.TabIndex = 11 + Me.pnlany13.Visible = False + ' + 'pnlany11 + ' + Me.pnlany11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany11.Location = New System.Drawing.Point(129, 25) + Me.pnlany11.Name = "pnlany11" + Me.pnlany11.Size = New System.Drawing.Size(20, 13) + Me.pnlany11.TabIndex = 7 + Me.pnlany11.Visible = False + ' + 'pnlany7 + ' + Me.pnlany7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany7.Location = New System.Drawing.Point(233, 8) + Me.pnlany7.Name = "pnlany7" + Me.pnlany7.Size = New System.Drawing.Size(20, 13) + Me.pnlany7.TabIndex = 14 + Me.pnlany7.Visible = False + ' + 'pnlany9 + ' + Me.pnlany9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany9.Location = New System.Drawing.Point(77, 25) + Me.pnlany9.Name = "pnlany9" + Me.pnlany9.Size = New System.Drawing.Size(20, 13) + Me.pnlany9.TabIndex = 3 + Me.pnlany9.Visible = False + ' + 'pnlany5 + ' + Me.pnlany5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany5.Location = New System.Drawing.Point(181, 8) + Me.pnlany5.Name = "pnlany5" + Me.pnlany5.Size = New System.Drawing.Size(20, 13) + Me.pnlany5.TabIndex = 10 + Me.pnlany5.Visible = False + ' + 'pnlany3 + ' + Me.pnlany3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany3.Location = New System.Drawing.Point(129, 8) + Me.pnlany3.Name = "pnlany3" + Me.pnlany3.Size = New System.Drawing.Size(20, 13) + Me.pnlany3.TabIndex = 6 + Me.pnlany3.Visible = False + ' + 'pnlany1 + ' + Me.pnlany1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlany1.Location = New System.Drawing.Point(77, 8) + Me.pnlany1.Name = "pnlany1" + Me.pnlany1.Size = New System.Drawing.Size(20, 13) + Me.pnlany1.TabIndex = 2 + Me.pnlany1.Visible = False + ' + 'lblanylevel + ' + Me.lblanylevel.AutoSize = True + Me.lblanylevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblanylevel.Location = New System.Drawing.Point(5, 25) + Me.lblanylevel.Name = "lblanylevel" + Me.lblanylevel.Size = New System.Drawing.Size(49, 15) + Me.lblanylevel.TabIndex = 1 + Me.lblanylevel.Text = "Level: 4" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Cambria", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(3, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(43, 23) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Any" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.lblnewcolourrgb) + Me.Panel1.Controls.Add(Me.lblnewcolourname) + Me.Panel1.Controls.Add(Me.Label26) + Me.Panel1.Controls.Add(Me.Label17) + Me.Panel1.Controls.Add(Me.lbloldcolourrgb) + Me.Panel1.Controls.Add(Me.lbloldcolourname) + Me.Panel1.Controls.Add(Me.Label14) + Me.Panel1.Controls.Add(Me.pnlnewcolour) + Me.Panel1.Controls.Add(Me.pnloldcolour) + Me.Panel1.Controls.Add(Me.lblobjecttocolour) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(443, 107) + Me.Panel1.TabIndex = 0 + ' + 'lblnewcolourrgb + ' + Me.lblnewcolourrgb.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblnewcolourrgb.Location = New System.Drawing.Point(298, 66) + Me.lblnewcolourrgb.Name = "lblnewcolourrgb" + Me.lblnewcolourrgb.Size = New System.Drawing.Size(147, 18) + Me.lblnewcolourrgb.TabIndex = 10 + Me.lblnewcolourrgb.Text = "RGB: 234, 341, 111" + ' + 'lblnewcolourname + ' + Me.lblnewcolourname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblnewcolourname.Location = New System.Drawing.Point(298, 49) + Me.lblnewcolourname.Name = "lblnewcolourname" + Me.lblnewcolourname.Size = New System.Drawing.Size(145, 18) + Me.lblnewcolourname.TabIndex = 9 + Me.lblnewcolourname.Text = "Name: Whitesmoke" + ' + 'Label26 + ' + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(298, 32) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(145, 18) + Me.Label26.TabIndex = 8 + Me.Label26.Text = "New Colour" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(7, 87) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(426, 13) + Me.Label17.TabIndex = 7 + Me.Label17.Text = "Click the new colour above to confirm your colour choice or click the old colour " & _ + "to cancel" + ' + 'lbloldcolourrgb + ' + Me.lbloldcolourrgb.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbloldcolourrgb.Location = New System.Drawing.Point(-2, 66) + Me.lbloldcolourrgb.Name = "lbloldcolourrgb" + Me.lbloldcolourrgb.Size = New System.Drawing.Size(151, 18) + Me.lbloldcolourrgb.TabIndex = 6 + Me.lbloldcolourrgb.Text = "50, 60, 20 :RGB" + Me.lbloldcolourrgb.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lbloldcolourname + ' + Me.lbloldcolourname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbloldcolourname.Location = New System.Drawing.Point(-2, 49) + Me.lbloldcolourname.Name = "lbloldcolourname" + Me.lbloldcolourname.Size = New System.Drawing.Size(151, 18) + Me.lbloldcolourname.TabIndex = 5 + Me.lbloldcolourname.Text = "Red :Name" + Me.lbloldcolourname.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label14 + ' + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(-2, 32) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(151, 18) + Me.Label14.TabIndex = 4 + Me.Label14.Text = "Old Colour" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'pnlnewcolour + ' + Me.pnlnewcolour.Location = New System.Drawing.Point(227, 32) + Me.pnlnewcolour.Name = "pnlnewcolour" + Me.pnlnewcolour.Size = New System.Drawing.Size(67, 52) + Me.pnlnewcolour.TabIndex = 3 + ' + 'pnloldcolour + ' + Me.pnloldcolour.Location = New System.Drawing.Point(153, 32) + Me.pnloldcolour.Name = "pnloldcolour" + Me.pnloldcolour.Size = New System.Drawing.Size(67, 52) + Me.pnloldcolour.TabIndex = 2 + ' + 'lblobjecttocolour + ' + Me.lblobjecttocolour.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblobjecttocolour.Location = New System.Drawing.Point(10, 5) + Me.lblobjecttocolour.Name = "lblobjecttocolour" + Me.lblobjecttocolour.Size = New System.Drawing.Size(423, 23) + Me.lblobjecttocolour.TabIndex = 1 + Me.lblobjecttocolour.Text = "Close Button Colour" + Me.lblobjecttocolour.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 570) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 568) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(445, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 570) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 568) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(447, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 23 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconColourPicker + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(148, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Colour Picker" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(445, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 598) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(443, 2) + Me.pgbottom.TabIndex = 23 + ' + 'Colour_Picker + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(447, 600) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.KeyPreview = True + Me.Name = "Colour_Picker" + Me.Text = "Colour_Picker" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnlpinkcolours.ResumeLayout(False) + Me.pnlpinkcolours.PerformLayout() + Me.pnlpinkoptions.ResumeLayout(False) + Me.pnlpinkoptions.PerformLayout() + Me.pnlredcolours.ResumeLayout(False) + Me.pnlredcolours.PerformLayout() + Me.pnlredoptions.ResumeLayout(False) + Me.pnlredoptions.PerformLayout() + Me.pnlbrowncolours.ResumeLayout(False) + Me.pnlbrowncolours.PerformLayout() + Me.pnlbrownoptions.ResumeLayout(False) + Me.pnlbrownoptions.PerformLayout() + Me.pnlorangecolours.ResumeLayout(False) + Me.pnlorangecolours.PerformLayout() + Me.pnlorangeoptions.ResumeLayout(False) + Me.pnlorangeoptions.PerformLayout() + Me.pnlyellowcolours.ResumeLayout(False) + Me.pnlyellowcolours.PerformLayout() + Me.pnlyellowoptions.ResumeLayout(False) + Me.pnlyellowoptions.PerformLayout() + Me.pnlgreencolours.ResumeLayout(False) + Me.pnlgreencolours.PerformLayout() + Me.pnlgreenoptions.ResumeLayout(False) + Me.pnlgreenoptions.PerformLayout() + Me.pnlbluecolours.ResumeLayout(False) + Me.pnlbluecolours.PerformLayout() + Me.pnlblueoptions.ResumeLayout(False) + Me.pnlblueoptions.PerformLayout() + Me.pnlpurplecolours.ResumeLayout(False) + Me.pnlpurplecolours.PerformLayout() + Me.pnlpurpleoptions.ResumeLayout(False) + Me.pnlpurpleoptions.PerformLayout() + Me.pnlgraycolours.ResumeLayout(False) + Me.pnlgraycolours.PerformLayout() + Me.pnlanycolours.ResumeLayout(False) + Me.pnlanycolours.PerformLayout() + Me.pnlanyoptions.ResumeLayout(False) + Me.pnlanyoptions.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pnlanycolours As System.Windows.Forms.Panel + Friend WithEvents pnlany16 As System.Windows.Forms.Panel + Friend WithEvents pnlany12 As System.Windows.Forms.Panel + Friend WithEvents pnlany14 As System.Windows.Forms.Panel + Friend WithEvents pnlany10 As System.Windows.Forms.Panel + Friend WithEvents pnlany4 As System.Windows.Forms.Panel + Friend WithEvents pnlany6 As System.Windows.Forms.Panel + Friend WithEvents pnlany15 As System.Windows.Forms.Panel + Friend WithEvents pnlany2 As System.Windows.Forms.Panel + Friend WithEvents pnlany13 As System.Windows.Forms.Panel + Friend WithEvents pnlany11 As System.Windows.Forms.Panel + Friend WithEvents pnlany7 As System.Windows.Forms.Panel + Friend WithEvents pnlany9 As System.Windows.Forms.Panel + Friend WithEvents pnlany5 As System.Windows.Forms.Panel + Friend WithEvents pnlany3 As System.Windows.Forms.Panel + Friend WithEvents pnlany1 As System.Windows.Forms.Panel + Friend WithEvents lblanylevel As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents pnlnewcolour As System.Windows.Forms.Panel + Friend WithEvents pnloldcolour As System.Windows.Forms.Panel + Friend WithEvents lblobjecttocolour As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents lbloldcolourrgb As System.Windows.Forms.Label + Friend WithEvents lbloldcolourname As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents pnlpinkcolours As System.Windows.Forms.Panel + Friend WithEvents pnlpink16 As System.Windows.Forms.Panel + Friend WithEvents pnlpink12 As System.Windows.Forms.Panel + Friend WithEvents pnlpink14 As System.Windows.Forms.Panel + Friend WithEvents pnlpink10 As System.Windows.Forms.Panel + Friend WithEvents pnlpink8 As System.Windows.Forms.Panel + Friend WithEvents pnlpink4 As System.Windows.Forms.Panel + Friend WithEvents pnlpink6 As System.Windows.Forms.Panel + Friend WithEvents pnlpink15 As System.Windows.Forms.Panel + Friend WithEvents pnlpink2 As System.Windows.Forms.Panel + Friend WithEvents pnlpink13 As System.Windows.Forms.Panel + Friend WithEvents pnlpink11 As System.Windows.Forms.Panel + Friend WithEvents pnlpink7 As System.Windows.Forms.Panel + Friend WithEvents pnlpink9 As System.Windows.Forms.Panel + Friend WithEvents pnlpink5 As System.Windows.Forms.Panel + Friend WithEvents pnlpink3 As System.Windows.Forms.Panel + Friend WithEvents pnlpink1 As System.Windows.Forms.Panel + Friend WithEvents lblpinklevel As System.Windows.Forms.Label + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents pnlredcolours As System.Windows.Forms.Panel + Friend WithEvents pnlred16 As System.Windows.Forms.Panel + Friend WithEvents pnlred12 As System.Windows.Forms.Panel + Friend WithEvents pnlred14 As System.Windows.Forms.Panel + Friend WithEvents pnlred10 As System.Windows.Forms.Panel + Friend WithEvents pnlred8 As System.Windows.Forms.Panel + Friend WithEvents pnlred4 As System.Windows.Forms.Panel + Friend WithEvents pnlred6 As System.Windows.Forms.Panel + Friend WithEvents pnlred15 As System.Windows.Forms.Panel + Friend WithEvents pnlred2 As System.Windows.Forms.Panel + Friend WithEvents pnlred13 As System.Windows.Forms.Panel + Friend WithEvents pnlred11 As System.Windows.Forms.Panel + Friend WithEvents pnlred7 As System.Windows.Forms.Panel + Friend WithEvents pnlred9 As System.Windows.Forms.Panel + Friend WithEvents pnlred5 As System.Windows.Forms.Panel + Friend WithEvents pnlred3 As System.Windows.Forms.Panel + Friend WithEvents pnlred1 As System.Windows.Forms.Panel + Friend WithEvents lblredlevel As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents pnlbrowncolours As System.Windows.Forms.Panel + Friend WithEvents pnlbrown16 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown12 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown14 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown10 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown8 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown4 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown6 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown15 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown2 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown13 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown11 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown7 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown9 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown5 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown3 As System.Windows.Forms.Panel + Friend WithEvents pnlbrown1 As System.Windows.Forms.Panel + Friend WithEvents lblbrownlevel As System.Windows.Forms.Label + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents pnlorangecolours As System.Windows.Forms.Panel + Friend WithEvents pnlorange16 As System.Windows.Forms.Panel + Friend WithEvents pnlorange12 As System.Windows.Forms.Panel + Friend WithEvents pnlorange14 As System.Windows.Forms.Panel + Friend WithEvents pnlorange10 As System.Windows.Forms.Panel + Friend WithEvents pnlorange8 As System.Windows.Forms.Panel + Friend WithEvents pnlorange4 As System.Windows.Forms.Panel + Friend WithEvents pnlorange6 As System.Windows.Forms.Panel + Friend WithEvents pnlorange15 As System.Windows.Forms.Panel + Friend WithEvents pnlorange2 As System.Windows.Forms.Panel + Friend WithEvents pnlorange13 As System.Windows.Forms.Panel + Friend WithEvents pnlorange11 As System.Windows.Forms.Panel + Friend WithEvents pnlorange7 As System.Windows.Forms.Panel + Friend WithEvents pnlorange9 As System.Windows.Forms.Panel + Friend WithEvents pnlorange5 As System.Windows.Forms.Panel + Friend WithEvents pnlorange3 As System.Windows.Forms.Panel + Friend WithEvents pnlorange1 As System.Windows.Forms.Panel + Friend WithEvents lblorangelevel As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents pnlyellowcolours As System.Windows.Forms.Panel + Friend WithEvents pnlyellow16 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow12 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow14 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow10 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow8 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow4 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow6 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow15 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow2 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow13 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow11 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow7 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow9 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow5 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow3 As System.Windows.Forms.Panel + Friend WithEvents pnlyellow1 As System.Windows.Forms.Panel + Friend WithEvents lblyellowlevel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents pnlgreencolours As System.Windows.Forms.Panel + Friend WithEvents pnlgreen16 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen12 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen14 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen10 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen8 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen4 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen6 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen15 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen2 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen13 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen11 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen7 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen9 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen5 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen3 As System.Windows.Forms.Panel + Friend WithEvents pnlgreen1 As System.Windows.Forms.Panel + Friend WithEvents lblgreenlevel As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents pnlbluecolours As System.Windows.Forms.Panel + Friend WithEvents pnlblue16 As System.Windows.Forms.Panel + Friend WithEvents pnlblue12 As System.Windows.Forms.Panel + Friend WithEvents pnlblue14 As System.Windows.Forms.Panel + Friend WithEvents pnlblue10 As System.Windows.Forms.Panel + Friend WithEvents pnlblue8 As System.Windows.Forms.Panel + Friend WithEvents pnlblue4 As System.Windows.Forms.Panel + Friend WithEvents pnlblue6 As System.Windows.Forms.Panel + Friend WithEvents pnlblue15 As System.Windows.Forms.Panel + Friend WithEvents pnlblue2 As System.Windows.Forms.Panel + Friend WithEvents pnlblue13 As System.Windows.Forms.Panel + Friend WithEvents pnlblue11 As System.Windows.Forms.Panel + Friend WithEvents pnlblue7 As System.Windows.Forms.Panel + Friend WithEvents pnlblue9 As System.Windows.Forms.Panel + Friend WithEvents pnlblue5 As System.Windows.Forms.Panel + Friend WithEvents pnlblue3 As System.Windows.Forms.Panel + Friend WithEvents pnlblue1 As System.Windows.Forms.Panel + Friend WithEvents lblbluelevel As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents pnlpurplecolours As System.Windows.Forms.Panel + Friend WithEvents pnlpurple16 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple12 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple14 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple10 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple8 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple4 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple6 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple15 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple2 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple13 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple11 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple7 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple9 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple5 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple3 As System.Windows.Forms.Panel + Friend WithEvents pnlpurple1 As System.Windows.Forms.Panel + Friend WithEvents lblpurplelevel As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents pnlgraycolours As System.Windows.Forms.Panel + Friend WithEvents pnlgray16 As System.Windows.Forms.Panel + Friend WithEvents pnlgray12 As System.Windows.Forms.Panel + Friend WithEvents pnlgray14 As System.Windows.Forms.Panel + Friend WithEvents pnlgray10 As System.Windows.Forms.Panel + Friend WithEvents pnlgray8 As System.Windows.Forms.Panel + Friend WithEvents pnlgray4 As System.Windows.Forms.Panel + Friend WithEvents pnlgray6 As System.Windows.Forms.Panel + Friend WithEvents pnlgray15 As System.Windows.Forms.Panel + Friend WithEvents pnlgray2 As System.Windows.Forms.Panel + Friend WithEvents pnlgray13 As System.Windows.Forms.Panel + Friend WithEvents pnlgray11 As System.Windows.Forms.Panel + Friend WithEvents pnlgray7 As System.Windows.Forms.Panel + Friend WithEvents pnlgray9 As System.Windows.Forms.Panel + Friend WithEvents pnlgray5 As System.Windows.Forms.Panel + Friend WithEvents pnlgray3 As System.Windows.Forms.Panel + Friend WithEvents pnlgray1 As System.Windows.Forms.Panel + Friend WithEvents lblgraylevel As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents pnlpinkcustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlredcustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlbrowncustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlorangecustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlyellowcustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlgreencustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlbluecustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlpurplecustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlgraycustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlanycustomcolour As System.Windows.Forms.Panel + Friend WithEvents pnlany8 As System.Windows.Forms.Panel + Friend WithEvents lblnewcolourrgb As System.Windows.Forms.Label + Friend WithEvents lblnewcolourname As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents lblcustomshadetut As System.Windows.Forms.Label + Friend WithEvents txtcustomgrayshade As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtbluesred As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtbluesgreen As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtbluesblue As System.Windows.Forms.TextBox + Friend WithEvents pnlblueoptions As System.Windows.Forms.Panel + Friend WithEvents pnlyellowoptions As System.Windows.Forms.Panel + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents txtyellowsblue As System.Windows.Forms.TextBox + Friend WithEvents txtyellowsred As System.Windows.Forms.TextBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents txtyellowsgreen As System.Windows.Forms.TextBox + Friend WithEvents pnlgreenoptions As System.Windows.Forms.Panel + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents txtgreensred As System.Windows.Forms.TextBox + Friend WithEvents txtgreensgreen As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents txtgreensblue As System.Windows.Forms.TextBox + Friend WithEvents pnlpurpleoptions As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtpurplesgreen As System.Windows.Forms.TextBox + Friend WithEvents txtpurplesblue As System.Windows.Forms.TextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents txtpurplesred As System.Windows.Forms.TextBox + Friend WithEvents pnlpinkoptions As System.Windows.Forms.Panel + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents txtpinksgreen As System.Windows.Forms.TextBox + Friend WithEvents txtpinksred As System.Windows.Forms.TextBox + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents txtpinksblue As System.Windows.Forms.TextBox + Friend WithEvents pnlredoptions As System.Windows.Forms.Panel + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents txtredsblue As System.Windows.Forms.TextBox + Friend WithEvents txtredsred As System.Windows.Forms.TextBox + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents txtredsgreen As System.Windows.Forms.TextBox + Friend WithEvents pnlbrownoptions As System.Windows.Forms.Panel + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents txtbrownsblue As System.Windows.Forms.TextBox + Friend WithEvents txtbrownsred As System.Windows.Forms.TextBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents txtbrownsgreen As System.Windows.Forms.TextBox + Friend WithEvents pnlorangeoptions As System.Windows.Forms.Panel + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents txtorangesblue As System.Windows.Forms.TextBox + Friend WithEvents txtorangesred As System.Windows.Forms.TextBox + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents txtorangesgreen As System.Windows.Forms.TextBox + Friend WithEvents pnlanyoptions As System.Windows.Forms.Panel + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents txtanysgreen As System.Windows.Forms.TextBox + Friend WithEvents txtanysred As System.Windows.Forms.TextBox + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents txtanysblue As System.Windows.Forms.TextBox + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel +End Class diff --git a/Colour Picker.resx b/Colour Picker.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Colour Picker.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Colour Picker.vb b/Colour Picker.vb new file mode 100644 index 0000000..514c8c1 --- /dev/null +++ b/Colour Picker.vb @@ -0,0 +1,2731 @@ +Public Class Colour_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 oldcolour As Color + + Public colourtochange As String + Public anylevel As Integer + Public graylevel As Integer + Public purplelevel As Integer + Public bluelevel As Integer + Public greenlevel As Integer + Public yellowlevel As Integer + Public orangelevel As Integer + Public brownlevel As Integer + Public redlevel As Integer + Public pinklevel As Integer + + 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() + + ShiftOSDesktop.pnlpanelbuttoncolourpicker.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttoncolourpicker, ShiftOSDesktop.tbcolourpickericon, ShiftOSDesktop.tbcolourpickertext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + getoldcolour() + determinelevels() + shrinktosizebasedoncoloursbought() + setupboughtcolours() + loadmemory() + 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(447, 596) '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.colourpickername + 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.boughtcolourpickericon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.colourpickericontitlebar '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 + + Public Sub loadmemory() + If ShiftOSDesktop.anymemory(0).ToArgb.ToString = "0" Then Else pnlany1.BackColor = ShiftOSDesktop.anymemory(0) + If ShiftOSDesktop.anymemory(1).ToArgb.ToString = "0" Then Else pnlany2.BackColor = ShiftOSDesktop.anymemory(1) + If ShiftOSDesktop.anymemory(2).ToArgb.ToString = "0" Then Else pnlany3.BackColor = ShiftOSDesktop.anymemory(2) + If ShiftOSDesktop.anymemory(3).ToArgb.ToString = "0" Then Else pnlany4.BackColor = ShiftOSDesktop.anymemory(3) + If ShiftOSDesktop.anymemory(4).ToArgb.ToString = "0" Then Else pnlany5.BackColor = ShiftOSDesktop.anymemory(4) + If ShiftOSDesktop.anymemory(5).ToArgb.ToString = "0" Then Else pnlany6.BackColor = ShiftOSDesktop.anymemory(5) + If ShiftOSDesktop.anymemory(6).ToArgb.ToString = "0" Then Else pnlany7.BackColor = ShiftOSDesktop.anymemory(6) + If ShiftOSDesktop.anymemory(7).ToArgb.ToString = "0" Then Else pnlany8.BackColor = ShiftOSDesktop.anymemory(7) + If ShiftOSDesktop.anymemory(8).ToArgb.ToString = "0" Then Else pnlany9.BackColor = ShiftOSDesktop.anymemory(8) + If ShiftOSDesktop.anymemory(9).ToArgb.ToString = "0" Then Else pnlany10.BackColor = ShiftOSDesktop.anymemory(9) + If ShiftOSDesktop.anymemory(10).ToArgb.ToString = "0" Then Else pnlany11.BackColor = ShiftOSDesktop.anymemory(10) + If ShiftOSDesktop.anymemory(11).ToArgb.ToString = "0" Then Else pnlany12.BackColor = ShiftOSDesktop.anymemory(11) + If ShiftOSDesktop.anymemory(12).ToArgb.ToString = "0" Then Else pnlany13.BackColor = ShiftOSDesktop.anymemory(12) + If ShiftOSDesktop.anymemory(13).ToArgb.ToString = "0" Then Else pnlany14.BackColor = ShiftOSDesktop.anymemory(13) + If ShiftOSDesktop.anymemory(14).ToArgb.ToString = "0" Then Else pnlany15.BackColor = ShiftOSDesktop.anymemory(14) + If ShiftOSDesktop.anymemory(15).ToArgb.ToString = "0" Then Else pnlany16.BackColor = ShiftOSDesktop.anymemory(15) + + If ShiftOSDesktop.graymemory(0).ToArgb.ToString = "0" Then Else pnlgray1.BackColor = ShiftOSDesktop.graymemory(0) + If ShiftOSDesktop.graymemory(1).ToArgb.ToString = "0" Then Else pnlgray2.BackColor = ShiftOSDesktop.graymemory(1) + If ShiftOSDesktop.graymemory(2).ToArgb.ToString = "0" Then Else pnlgray3.BackColor = ShiftOSDesktop.graymemory(2) + If ShiftOSDesktop.graymemory(3).ToArgb.ToString = "0" Then Else pnlgray4.BackColor = ShiftOSDesktop.graymemory(3) + If ShiftOSDesktop.graymemory(4).ToArgb.ToString = "0" Then Else pnlgray5.BackColor = ShiftOSDesktop.graymemory(4) + If ShiftOSDesktop.graymemory(5).ToArgb.ToString = "0" Then Else pnlgray6.BackColor = ShiftOSDesktop.graymemory(5) + If ShiftOSDesktop.graymemory(6).ToArgb.ToString = "0" Then Else pnlgray7.BackColor = ShiftOSDesktop.graymemory(6) + If ShiftOSDesktop.graymemory(7).ToArgb.ToString = "0" Then Else pnlgray8.BackColor = ShiftOSDesktop.graymemory(7) + If ShiftOSDesktop.graymemory(8).ToArgb.ToString = "0" Then Else pnlgray9.BackColor = ShiftOSDesktop.graymemory(8) + If ShiftOSDesktop.graymemory(9).ToArgb.ToString = "0" Then Else pnlgray10.BackColor = ShiftOSDesktop.graymemory(9) + If ShiftOSDesktop.graymemory(10).ToArgb.ToString = "0" Then Else pnlgray11.BackColor = ShiftOSDesktop.graymemory(10) + If ShiftOSDesktop.graymemory(11).ToArgb.ToString = "0" Then Else pnlgray12.BackColor = ShiftOSDesktop.graymemory(11) + If ShiftOSDesktop.graymemory(12).ToArgb.ToString = "0" Then Else pnlgray13.BackColor = ShiftOSDesktop.graymemory(12) + If ShiftOSDesktop.graymemory(13).ToArgb.ToString = "0" Then Else pnlgray14.BackColor = ShiftOSDesktop.graymemory(13) + If ShiftOSDesktop.graymemory(14).ToArgb.ToString = "0" Then Else pnlgray15.BackColor = ShiftOSDesktop.graymemory(14) + If ShiftOSDesktop.graymemory(15).ToArgb.ToString = "0" Then Else pnlgray16.BackColor = ShiftOSDesktop.graymemory(15) + + If ShiftOSDesktop.purplememory(0).ToArgb.ToString = "0" Then Else pnlpurple1.BackColor = ShiftOSDesktop.purplememory(0) + If ShiftOSDesktop.purplememory(1).ToArgb.ToString = "0" Then Else pnlpurple2.BackColor = ShiftOSDesktop.purplememory(1) + If ShiftOSDesktop.purplememory(2).ToArgb.ToString = "0" Then Else pnlpurple3.BackColor = ShiftOSDesktop.purplememory(2) + If ShiftOSDesktop.purplememory(3).ToArgb.ToString = "0" Then Else pnlpurple4.BackColor = ShiftOSDesktop.purplememory(3) + If ShiftOSDesktop.purplememory(4).ToArgb.ToString = "0" Then Else pnlpurple5.BackColor = ShiftOSDesktop.purplememory(4) + If ShiftOSDesktop.purplememory(5).ToArgb.ToString = "0" Then Else pnlpurple6.BackColor = ShiftOSDesktop.purplememory(5) + If ShiftOSDesktop.purplememory(6).ToArgb.ToString = "0" Then Else pnlpurple7.BackColor = ShiftOSDesktop.purplememory(6) + If ShiftOSDesktop.purplememory(7).ToArgb.ToString = "0" Then Else pnlpurple8.BackColor = ShiftOSDesktop.purplememory(7) + If ShiftOSDesktop.purplememory(8).ToArgb.ToString = "0" Then Else pnlpurple9.BackColor = ShiftOSDesktop.purplememory(8) + If ShiftOSDesktop.purplememory(9).ToArgb.ToString = "0" Then Else pnlpurple10.BackColor = ShiftOSDesktop.purplememory(9) + If ShiftOSDesktop.purplememory(10).ToArgb.ToString = "0" Then Else pnlpurple11.BackColor = ShiftOSDesktop.purplememory(10) + If ShiftOSDesktop.purplememory(11).ToArgb.ToString = "0" Then Else pnlpurple12.BackColor = ShiftOSDesktop.purplememory(11) + If ShiftOSDesktop.purplememory(12).ToArgb.ToString = "0" Then Else pnlpurple13.BackColor = ShiftOSDesktop.purplememory(12) + If ShiftOSDesktop.purplememory(13).ToArgb.ToString = "0" Then Else pnlpurple14.BackColor = ShiftOSDesktop.purplememory(13) + If ShiftOSDesktop.purplememory(14).ToArgb.ToString = "0" Then Else pnlpurple15.BackColor = ShiftOSDesktop.purplememory(14) + If ShiftOSDesktop.purplememory(15).ToArgb.ToString = "0" Then Else pnlpurple16.BackColor = ShiftOSDesktop.purplememory(15) + + If ShiftOSDesktop.bluememory(0).ToArgb.ToString = "0" Then Else pnlblue1.BackColor = ShiftOSDesktop.bluememory(0) + If ShiftOSDesktop.bluememory(1).ToArgb.ToString = "0" Then Else pnlblue2.BackColor = ShiftOSDesktop.bluememory(1) + If ShiftOSDesktop.bluememory(2).ToArgb.ToString = "0" Then Else pnlblue3.BackColor = ShiftOSDesktop.bluememory(2) + If ShiftOSDesktop.bluememory(3).ToArgb.ToString = "0" Then Else pnlblue4.BackColor = ShiftOSDesktop.bluememory(3) + If ShiftOSDesktop.bluememory(4).ToArgb.ToString = "0" Then Else pnlblue5.BackColor = ShiftOSDesktop.bluememory(4) + If ShiftOSDesktop.bluememory(5).ToArgb.ToString = "0" Then Else pnlblue6.BackColor = ShiftOSDesktop.bluememory(5) + If ShiftOSDesktop.bluememory(6).ToArgb.ToString = "0" Then Else pnlblue7.BackColor = ShiftOSDesktop.bluememory(6) + If ShiftOSDesktop.bluememory(7).ToArgb.ToString = "0" Then Else pnlblue8.BackColor = ShiftOSDesktop.bluememory(7) + If ShiftOSDesktop.bluememory(8).ToArgb.ToString = "0" Then Else pnlblue9.BackColor = ShiftOSDesktop.bluememory(8) + If ShiftOSDesktop.bluememory(9).ToArgb.ToString = "0" Then Else pnlblue10.BackColor = ShiftOSDesktop.bluememory(9) + If ShiftOSDesktop.bluememory(10).ToArgb.ToString = "0" Then Else pnlblue11.BackColor = ShiftOSDesktop.bluememory(10) + If ShiftOSDesktop.bluememory(11).ToArgb.ToString = "0" Then Else pnlblue12.BackColor = ShiftOSDesktop.bluememory(11) + If ShiftOSDesktop.bluememory(12).ToArgb.ToString = "0" Then Else pnlblue13.BackColor = ShiftOSDesktop.bluememory(12) + If ShiftOSDesktop.bluememory(13).ToArgb.ToString = "0" Then Else pnlblue14.BackColor = ShiftOSDesktop.bluememory(13) + If ShiftOSDesktop.bluememory(14).ToArgb.ToString = "0" Then Else pnlblue15.BackColor = ShiftOSDesktop.bluememory(14) + If ShiftOSDesktop.bluememory(15).ToArgb.ToString = "0" Then Else pnlblue16.BackColor = ShiftOSDesktop.bluememory(15) + + If ShiftOSDesktop.greenmemory(0).ToArgb.ToString = "0" Then Else pnlgreen1.BackColor = ShiftOSDesktop.greenmemory(0) + If ShiftOSDesktop.greenmemory(1).ToArgb.ToString = "0" Then Else pnlgreen2.BackColor = ShiftOSDesktop.greenmemory(1) + If ShiftOSDesktop.greenmemory(2).ToArgb.ToString = "0" Then Else pnlgreen3.BackColor = ShiftOSDesktop.greenmemory(2) + If ShiftOSDesktop.greenmemory(3).ToArgb.ToString = "0" Then Else pnlgreen4.BackColor = ShiftOSDesktop.greenmemory(3) + If ShiftOSDesktop.greenmemory(4).ToArgb.ToString = "0" Then Else pnlgreen5.BackColor = ShiftOSDesktop.greenmemory(4) + If ShiftOSDesktop.greenmemory(5).ToArgb.ToString = "0" Then Else pnlgreen6.BackColor = ShiftOSDesktop.greenmemory(5) + If ShiftOSDesktop.greenmemory(6).ToArgb.ToString = "0" Then Else pnlgreen7.BackColor = ShiftOSDesktop.greenmemory(6) + If ShiftOSDesktop.greenmemory(7).ToArgb.ToString = "0" Then Else pnlgreen8.BackColor = ShiftOSDesktop.greenmemory(7) + If ShiftOSDesktop.greenmemory(8).ToArgb.ToString = "0" Then Else pnlgreen9.BackColor = ShiftOSDesktop.greenmemory(8) + If ShiftOSDesktop.greenmemory(9).ToArgb.ToString = "0" Then Else pnlgreen10.BackColor = ShiftOSDesktop.greenmemory(9) + If ShiftOSDesktop.greenmemory(10).ToArgb.ToString = "0" Then Else pnlgreen11.BackColor = ShiftOSDesktop.greenmemory(10) + If ShiftOSDesktop.greenmemory(11).ToArgb.ToString = "0" Then Else pnlgreen12.BackColor = ShiftOSDesktop.greenmemory(11) + If ShiftOSDesktop.greenmemory(12).ToArgb.ToString = "0" Then Else pnlgreen13.BackColor = ShiftOSDesktop.greenmemory(12) + If ShiftOSDesktop.greenmemory(13).ToArgb.ToString = "0" Then Else pnlgreen14.BackColor = ShiftOSDesktop.greenmemory(13) + If ShiftOSDesktop.greenmemory(14).ToArgb.ToString = "0" Then Else pnlgreen15.BackColor = ShiftOSDesktop.greenmemory(14) + If ShiftOSDesktop.greenmemory(15).ToArgb.ToString = "0" Then Else pnlgreen16.BackColor = ShiftOSDesktop.greenmemory(15) + + If ShiftOSDesktop.yellowmemory(0).ToArgb.ToString = "0" Then Else pnlyellow1.BackColor = ShiftOSDesktop.yellowmemory(0) + If ShiftOSDesktop.yellowmemory(1).ToArgb.ToString = "0" Then Else pnlyellow2.BackColor = ShiftOSDesktop.yellowmemory(1) + If ShiftOSDesktop.yellowmemory(2).ToArgb.ToString = "0" Then Else pnlyellow3.BackColor = ShiftOSDesktop.yellowmemory(2) + If ShiftOSDesktop.yellowmemory(3).ToArgb.ToString = "0" Then Else pnlyellow4.BackColor = ShiftOSDesktop.yellowmemory(3) + If ShiftOSDesktop.yellowmemory(4).ToArgb.ToString = "0" Then Else pnlyellow5.BackColor = ShiftOSDesktop.yellowmemory(4) + If ShiftOSDesktop.yellowmemory(5).ToArgb.ToString = "0" Then Else pnlyellow6.BackColor = ShiftOSDesktop.yellowmemory(5) + If ShiftOSDesktop.yellowmemory(6).ToArgb.ToString = "0" Then Else pnlyellow7.BackColor = ShiftOSDesktop.yellowmemory(6) + If ShiftOSDesktop.yellowmemory(7).ToArgb.ToString = "0" Then Else pnlyellow8.BackColor = ShiftOSDesktop.yellowmemory(7) + If ShiftOSDesktop.yellowmemory(8).ToArgb.ToString = "0" Then Else pnlyellow9.BackColor = ShiftOSDesktop.yellowmemory(8) + If ShiftOSDesktop.yellowmemory(9).ToArgb.ToString = "0" Then Else pnlyellow10.BackColor = ShiftOSDesktop.yellowmemory(9) + If ShiftOSDesktop.yellowmemory(10).ToArgb.ToString = "0" Then Else pnlyellow11.BackColor = ShiftOSDesktop.yellowmemory(10) + If ShiftOSDesktop.yellowmemory(11).ToArgb.ToString = "0" Then Else pnlyellow12.BackColor = ShiftOSDesktop.yellowmemory(11) + If ShiftOSDesktop.yellowmemory(12).ToArgb.ToString = "0" Then Else pnlyellow13.BackColor = ShiftOSDesktop.yellowmemory(12) + If ShiftOSDesktop.yellowmemory(13).ToArgb.ToString = "0" Then Else pnlyellow14.BackColor = ShiftOSDesktop.yellowmemory(13) + If ShiftOSDesktop.yellowmemory(14).ToArgb.ToString = "0" Then Else pnlyellow15.BackColor = ShiftOSDesktop.yellowmemory(14) + If ShiftOSDesktop.yellowmemory(15).ToArgb.ToString = "0" Then Else pnlyellow16.BackColor = ShiftOSDesktop.yellowmemory(15) + + If ShiftOSDesktop.orangememory(0).ToArgb.ToString = "0" Then Else pnlorange1.BackColor = ShiftOSDesktop.orangememory(0) + If ShiftOSDesktop.orangememory(1).ToArgb.ToString = "0" Then Else pnlorange2.BackColor = ShiftOSDesktop.orangememory(1) + If ShiftOSDesktop.orangememory(2).ToArgb.ToString = "0" Then Else pnlorange3.BackColor = ShiftOSDesktop.orangememory(2) + If ShiftOSDesktop.orangememory(3).ToArgb.ToString = "0" Then Else pnlorange4.BackColor = ShiftOSDesktop.orangememory(3) + If ShiftOSDesktop.orangememory(4).ToArgb.ToString = "0" Then Else pnlorange5.BackColor = ShiftOSDesktop.orangememory(4) + If ShiftOSDesktop.orangememory(5).ToArgb.ToString = "0" Then Else pnlorange6.BackColor = ShiftOSDesktop.orangememory(5) + If ShiftOSDesktop.orangememory(6).ToArgb.ToString = "0" Then Else pnlorange7.BackColor = ShiftOSDesktop.orangememory(6) + If ShiftOSDesktop.orangememory(7).ToArgb.ToString = "0" Then Else pnlorange8.BackColor = ShiftOSDesktop.orangememory(7) + If ShiftOSDesktop.orangememory(8).ToArgb.ToString = "0" Then Else pnlorange9.BackColor = ShiftOSDesktop.orangememory(8) + If ShiftOSDesktop.orangememory(9).ToArgb.ToString = "0" Then Else pnlorange10.BackColor = ShiftOSDesktop.orangememory(9) + If ShiftOSDesktop.orangememory(10).ToArgb.ToString = "0" Then Else pnlorange11.BackColor = ShiftOSDesktop.orangememory(10) + If ShiftOSDesktop.orangememory(11).ToArgb.ToString = "0" Then Else pnlorange12.BackColor = ShiftOSDesktop.orangememory(11) + If ShiftOSDesktop.orangememory(12).ToArgb.ToString = "0" Then Else pnlorange13.BackColor = ShiftOSDesktop.orangememory(12) + If ShiftOSDesktop.orangememory(13).ToArgb.ToString = "0" Then Else pnlorange14.BackColor = ShiftOSDesktop.orangememory(13) + If ShiftOSDesktop.orangememory(14).ToArgb.ToString = "0" Then Else pnlorange15.BackColor = ShiftOSDesktop.orangememory(14) + If ShiftOSDesktop.orangememory(15).ToArgb.ToString = "0" Then Else pnlorange16.BackColor = ShiftOSDesktop.orangememory(15) + + If ShiftOSDesktop.brownmemory(0).ToArgb.ToString = "0" Then Else pnlbrown1.BackColor = ShiftOSDesktop.brownmemory(0) + If ShiftOSDesktop.brownmemory(1).ToArgb.ToString = "0" Then Else pnlbrown2.BackColor = ShiftOSDesktop.brownmemory(1) + If ShiftOSDesktop.brownmemory(2).ToArgb.ToString = "0" Then Else pnlbrown3.BackColor = ShiftOSDesktop.brownmemory(2) + If ShiftOSDesktop.brownmemory(3).ToArgb.ToString = "0" Then Else pnlbrown4.BackColor = ShiftOSDesktop.brownmemory(3) + If ShiftOSDesktop.brownmemory(4).ToArgb.ToString = "0" Then Else pnlbrown5.BackColor = ShiftOSDesktop.brownmemory(4) + If ShiftOSDesktop.brownmemory(5).ToArgb.ToString = "0" Then Else pnlbrown6.BackColor = ShiftOSDesktop.brownmemory(5) + If ShiftOSDesktop.brownmemory(6).ToArgb.ToString = "0" Then Else pnlbrown7.BackColor = ShiftOSDesktop.brownmemory(6) + If ShiftOSDesktop.brownmemory(7).ToArgb.ToString = "0" Then Else pnlbrown8.BackColor = ShiftOSDesktop.brownmemory(7) + If ShiftOSDesktop.brownmemory(8).ToArgb.ToString = "0" Then Else pnlbrown9.BackColor = ShiftOSDesktop.brownmemory(8) + If ShiftOSDesktop.brownmemory(9).ToArgb.ToString = "0" Then Else pnlbrown10.BackColor = ShiftOSDesktop.brownmemory(9) + If ShiftOSDesktop.brownmemory(10).ToArgb.ToString = "0" Then Else pnlbrown11.BackColor = ShiftOSDesktop.brownmemory(10) + If ShiftOSDesktop.brownmemory(11).ToArgb.ToString = "0" Then Else pnlbrown12.BackColor = ShiftOSDesktop.brownmemory(11) + If ShiftOSDesktop.brownmemory(12).ToArgb.ToString = "0" Then Else pnlbrown13.BackColor = ShiftOSDesktop.brownmemory(12) + If ShiftOSDesktop.brownmemory(13).ToArgb.ToString = "0" Then Else pnlbrown14.BackColor = ShiftOSDesktop.brownmemory(13) + If ShiftOSDesktop.brownmemory(14).ToArgb.ToString = "0" Then Else pnlbrown15.BackColor = ShiftOSDesktop.brownmemory(14) + If ShiftOSDesktop.brownmemory(15).ToArgb.ToString = "0" Then Else pnlbrown16.BackColor = ShiftOSDesktop.brownmemory(15) + + If ShiftOSDesktop.redmemory(0).ToArgb.ToString = "0" Then Else pnlred1.BackColor = ShiftOSDesktop.redmemory(0) + If ShiftOSDesktop.redmemory(1).ToArgb.ToString = "0" Then Else pnlred2.BackColor = ShiftOSDesktop.redmemory(1) + If ShiftOSDesktop.redmemory(2).ToArgb.ToString = "0" Then Else pnlred3.BackColor = ShiftOSDesktop.redmemory(2) + If ShiftOSDesktop.redmemory(3).ToArgb.ToString = "0" Then Else pnlred4.BackColor = ShiftOSDesktop.redmemory(3) + If ShiftOSDesktop.redmemory(4).ToArgb.ToString = "0" Then Else pnlred5.BackColor = ShiftOSDesktop.redmemory(4) + If ShiftOSDesktop.redmemory(5).ToArgb.ToString = "0" Then Else pnlred6.BackColor = ShiftOSDesktop.redmemory(5) + If ShiftOSDesktop.redmemory(6).ToArgb.ToString = "0" Then Else pnlred7.BackColor = ShiftOSDesktop.redmemory(6) + If ShiftOSDesktop.redmemory(7).ToArgb.ToString = "0" Then Else pnlred8.BackColor = ShiftOSDesktop.redmemory(7) + If ShiftOSDesktop.redmemory(8).ToArgb.ToString = "0" Then Else pnlred9.BackColor = ShiftOSDesktop.redmemory(8) + If ShiftOSDesktop.redmemory(9).ToArgb.ToString = "0" Then Else pnlred10.BackColor = ShiftOSDesktop.redmemory(9) + If ShiftOSDesktop.redmemory(10).ToArgb.ToString = "0" Then Else pnlred11.BackColor = ShiftOSDesktop.redmemory(10) + If ShiftOSDesktop.redmemory(11).ToArgb.ToString = "0" Then Else pnlred12.BackColor = ShiftOSDesktop.redmemory(11) + If ShiftOSDesktop.redmemory(12).ToArgb.ToString = "0" Then Else pnlred13.BackColor = ShiftOSDesktop.redmemory(12) + If ShiftOSDesktop.redmemory(13).ToArgb.ToString = "0" Then Else pnlred14.BackColor = ShiftOSDesktop.redmemory(13) + If ShiftOSDesktop.redmemory(14).ToArgb.ToString = "0" Then Else pnlred15.BackColor = ShiftOSDesktop.redmemory(14) + If ShiftOSDesktop.redmemory(15).ToArgb.ToString = "0" Then Else pnlred16.BackColor = ShiftOSDesktop.redmemory(15) + + If ShiftOSDesktop.pinkmemory(0).ToArgb.ToString = "0" Then Else pnlpink1.BackColor = ShiftOSDesktop.pinkmemory(0) + If ShiftOSDesktop.pinkmemory(1).ToArgb.ToString = "0" Then Else pnlpink2.BackColor = ShiftOSDesktop.pinkmemory(1) + If ShiftOSDesktop.pinkmemory(2).ToArgb.ToString = "0" Then Else pnlpink3.BackColor = ShiftOSDesktop.pinkmemory(2) + If ShiftOSDesktop.pinkmemory(3).ToArgb.ToString = "0" Then Else pnlpink4.BackColor = ShiftOSDesktop.pinkmemory(3) + If ShiftOSDesktop.pinkmemory(4).ToArgb.ToString = "0" Then Else pnlpink5.BackColor = ShiftOSDesktop.pinkmemory(4) + If ShiftOSDesktop.pinkmemory(5).ToArgb.ToString = "0" Then Else pnlpink6.BackColor = ShiftOSDesktop.pinkmemory(5) + If ShiftOSDesktop.pinkmemory(6).ToArgb.ToString = "0" Then Else pnlpink7.BackColor = ShiftOSDesktop.pinkmemory(6) + If ShiftOSDesktop.pinkmemory(7).ToArgb.ToString = "0" Then Else pnlpink8.BackColor = ShiftOSDesktop.pinkmemory(7) + If ShiftOSDesktop.pinkmemory(8).ToArgb.ToString = "0" Then Else pnlpink9.BackColor = ShiftOSDesktop.pinkmemory(8) + If ShiftOSDesktop.pinkmemory(9).ToArgb.ToString = "0" Then Else pnlpink10.BackColor = ShiftOSDesktop.pinkmemory(9) + If ShiftOSDesktop.pinkmemory(10).ToArgb.ToString = "0" Then Else pnlpink11.BackColor = ShiftOSDesktop.pinkmemory(10) + If ShiftOSDesktop.pinkmemory(11).ToArgb.ToString = "0" Then Else pnlpink12.BackColor = ShiftOSDesktop.pinkmemory(11) + If ShiftOSDesktop.pinkmemory(12).ToArgb.ToString = "0" Then Else pnlpink13.BackColor = ShiftOSDesktop.pinkmemory(12) + If ShiftOSDesktop.pinkmemory(13).ToArgb.ToString = "0" Then Else pnlpink14.BackColor = ShiftOSDesktop.pinkmemory(13) + If ShiftOSDesktop.pinkmemory(14).ToArgb.ToString = "0" Then Else pnlpink15.BackColor = ShiftOSDesktop.pinkmemory(14) + If ShiftOSDesktop.pinkmemory(15).ToArgb.ToString = "0" Then Else pnlpink16.BackColor = ShiftOSDesktop.pinkmemory(15) + End Sub + + Public Sub saveanymemory() + ShiftOSDesktop.anymemory(0) = pnlany1.BackColor + ShiftOSDesktop.anymemory(1) = pnlany2.BackColor + ShiftOSDesktop.anymemory(2) = pnlany3.BackColor + ShiftOSDesktop.anymemory(3) = pnlany4.BackColor + ShiftOSDesktop.anymemory(4) = pnlany5.BackColor + ShiftOSDesktop.anymemory(5) = pnlany6.BackColor + ShiftOSDesktop.anymemory(6) = pnlany7.BackColor + ShiftOSDesktop.anymemory(7) = pnlany8.BackColor + ShiftOSDesktop.anymemory(8) = pnlany9.BackColor + ShiftOSDesktop.anymemory(9) = pnlany10.BackColor + ShiftOSDesktop.anymemory(10) = pnlany11.BackColor + ShiftOSDesktop.anymemory(11) = pnlany12.BackColor + ShiftOSDesktop.anymemory(12) = pnlany13.BackColor + ShiftOSDesktop.anymemory(13) = pnlany14.BackColor + ShiftOSDesktop.anymemory(14) = pnlany15.BackColor + ShiftOSDesktop.anymemory(15) = pnlany16.BackColor + End Sub + + Public Sub savegraymemory() + ShiftOSDesktop.graymemory(0) = pnlgray1.BackColor + ShiftOSDesktop.graymemory(1) = pnlgray2.BackColor + ShiftOSDesktop.graymemory(2) = pnlgray3.BackColor + ShiftOSDesktop.graymemory(3) = pnlgray4.BackColor + ShiftOSDesktop.graymemory(4) = pnlgray5.BackColor + ShiftOSDesktop.graymemory(5) = pnlgray6.BackColor + ShiftOSDesktop.graymemory(6) = pnlgray7.BackColor + ShiftOSDesktop.graymemory(7) = pnlgray8.BackColor + ShiftOSDesktop.graymemory(8) = pnlgray9.BackColor + ShiftOSDesktop.graymemory(9) = pnlgray10.BackColor + ShiftOSDesktop.graymemory(10) = pnlgray11.BackColor + ShiftOSDesktop.graymemory(11) = pnlgray12.BackColor + ShiftOSDesktop.graymemory(12) = pnlgray13.BackColor + ShiftOSDesktop.graymemory(13) = pnlgray14.BackColor + ShiftOSDesktop.graymemory(14) = pnlgray15.BackColor + ShiftOSDesktop.graymemory(15) = pnlgray16.BackColor + End Sub + + Public Sub savepurplememory() + ShiftOSDesktop.purplememory(0) = pnlpurple1.BackColor + ShiftOSDesktop.purplememory(1) = pnlpurple2.BackColor + ShiftOSDesktop.purplememory(2) = pnlpurple3.BackColor + ShiftOSDesktop.purplememory(3) = pnlpurple4.BackColor + ShiftOSDesktop.purplememory(4) = pnlpurple5.BackColor + ShiftOSDesktop.purplememory(5) = pnlpurple6.BackColor + ShiftOSDesktop.purplememory(6) = pnlpurple7.BackColor + ShiftOSDesktop.purplememory(7) = pnlpurple8.BackColor + ShiftOSDesktop.purplememory(8) = pnlpurple9.BackColor + ShiftOSDesktop.purplememory(9) = pnlpurple10.BackColor + ShiftOSDesktop.purplememory(10) = pnlpurple11.BackColor + ShiftOSDesktop.purplememory(11) = pnlpurple12.BackColor + ShiftOSDesktop.purplememory(12) = pnlpurple13.BackColor + ShiftOSDesktop.purplememory(13) = pnlpurple14.BackColor + ShiftOSDesktop.purplememory(14) = pnlpurple15.BackColor + ShiftOSDesktop.purplememory(15) = pnlpurple16.BackColor + End Sub + + Public Sub savebluememory() + ShiftOSDesktop.bluememory(0) = pnlblue1.BackColor + ShiftOSDesktop.bluememory(1) = pnlblue2.BackColor + ShiftOSDesktop.bluememory(2) = pnlblue3.BackColor + ShiftOSDesktop.bluememory(3) = pnlblue4.BackColor + ShiftOSDesktop.bluememory(4) = pnlblue5.BackColor + ShiftOSDesktop.bluememory(5) = pnlblue6.BackColor + ShiftOSDesktop.bluememory(6) = pnlblue7.BackColor + ShiftOSDesktop.bluememory(7) = pnlblue8.BackColor + ShiftOSDesktop.bluememory(8) = pnlblue9.BackColor + ShiftOSDesktop.bluememory(9) = pnlblue10.BackColor + ShiftOSDesktop.bluememory(10) = pnlblue11.BackColor + ShiftOSDesktop.bluememory(11) = pnlblue12.BackColor + ShiftOSDesktop.bluememory(12) = pnlblue13.BackColor + ShiftOSDesktop.bluememory(13) = pnlblue14.BackColor + ShiftOSDesktop.bluememory(14) = pnlblue15.BackColor + ShiftOSDesktop.bluememory(15) = pnlblue16.BackColor + End Sub + + Public Sub savegreenmemory() + ShiftOSDesktop.greenmemory(0) = pnlgreen1.BackColor + ShiftOSDesktop.greenmemory(1) = pnlgreen2.BackColor + ShiftOSDesktop.greenmemory(2) = pnlgreen3.BackColor + ShiftOSDesktop.greenmemory(3) = pnlgreen4.BackColor + ShiftOSDesktop.greenmemory(4) = pnlgreen5.BackColor + ShiftOSDesktop.greenmemory(5) = pnlgreen6.BackColor + ShiftOSDesktop.greenmemory(6) = pnlgreen7.BackColor + ShiftOSDesktop.greenmemory(7) = pnlgreen8.BackColor + ShiftOSDesktop.greenmemory(8) = pnlgreen9.BackColor + ShiftOSDesktop.greenmemory(9) = pnlgreen10.BackColor + ShiftOSDesktop.greenmemory(10) = pnlgreen11.BackColor + ShiftOSDesktop.greenmemory(11) = pnlgreen12.BackColor + ShiftOSDesktop.greenmemory(12) = pnlgreen13.BackColor + ShiftOSDesktop.greenmemory(13) = pnlgreen14.BackColor + ShiftOSDesktop.greenmemory(14) = pnlgreen15.BackColor + ShiftOSDesktop.greenmemory(15) = pnlgreen16.BackColor + End Sub + + Public Sub saveyellowmemory() + ShiftOSDesktop.yellowmemory(0) = pnlyellow1.BackColor + ShiftOSDesktop.yellowmemory(1) = pnlyellow2.BackColor + ShiftOSDesktop.yellowmemory(2) = pnlyellow3.BackColor + ShiftOSDesktop.yellowmemory(3) = pnlyellow4.BackColor + ShiftOSDesktop.yellowmemory(4) = pnlyellow5.BackColor + ShiftOSDesktop.yellowmemory(5) = pnlyellow6.BackColor + ShiftOSDesktop.yellowmemory(6) = pnlyellow7.BackColor + ShiftOSDesktop.yellowmemory(7) = pnlyellow8.BackColor + ShiftOSDesktop.yellowmemory(8) = pnlyellow9.BackColor + ShiftOSDesktop.yellowmemory(9) = pnlyellow10.BackColor + ShiftOSDesktop.yellowmemory(10) = pnlyellow11.BackColor + ShiftOSDesktop.yellowmemory(11) = pnlyellow12.BackColor + ShiftOSDesktop.yellowmemory(12) = pnlyellow13.BackColor + ShiftOSDesktop.yellowmemory(13) = pnlyellow14.BackColor + ShiftOSDesktop.yellowmemory(14) = pnlyellow15.BackColor + ShiftOSDesktop.yellowmemory(15) = pnlyellow16.BackColor + End Sub + + Public Sub saveorangememory() + ShiftOSDesktop.orangememory(0) = pnlorange1.BackColor + ShiftOSDesktop.orangememory(1) = pnlorange2.BackColor + ShiftOSDesktop.orangememory(2) = pnlorange3.BackColor + ShiftOSDesktop.orangememory(3) = pnlorange4.BackColor + ShiftOSDesktop.orangememory(4) = pnlorange5.BackColor + ShiftOSDesktop.orangememory(5) = pnlorange6.BackColor + ShiftOSDesktop.orangememory(6) = pnlorange7.BackColor + ShiftOSDesktop.orangememory(7) = pnlorange8.BackColor + ShiftOSDesktop.orangememory(8) = pnlorange9.BackColor + ShiftOSDesktop.orangememory(9) = pnlorange10.BackColor + ShiftOSDesktop.orangememory(10) = pnlorange11.BackColor + ShiftOSDesktop.orangememory(11) = pnlorange12.BackColor + ShiftOSDesktop.orangememory(12) = pnlorange13.BackColor + ShiftOSDesktop.orangememory(13) = pnlorange14.BackColor + ShiftOSDesktop.orangememory(14) = pnlorange15.BackColor + ShiftOSDesktop.orangememory(15) = pnlorange16.BackColor + End Sub + + Public Sub savebrownmemory() + ShiftOSDesktop.brownmemory(0) = pnlbrown1.BackColor + ShiftOSDesktop.brownmemory(1) = pnlbrown2.BackColor + ShiftOSDesktop.brownmemory(2) = pnlbrown3.BackColor + ShiftOSDesktop.brownmemory(3) = pnlbrown4.BackColor + ShiftOSDesktop.brownmemory(4) = pnlbrown5.BackColor + ShiftOSDesktop.brownmemory(5) = pnlbrown6.BackColor + ShiftOSDesktop.brownmemory(6) = pnlbrown7.BackColor + ShiftOSDesktop.brownmemory(7) = pnlbrown8.BackColor + ShiftOSDesktop.brownmemory(8) = pnlbrown9.BackColor + ShiftOSDesktop.brownmemory(9) = pnlbrown10.BackColor + ShiftOSDesktop.brownmemory(10) = pnlbrown11.BackColor + ShiftOSDesktop.brownmemory(11) = pnlbrown12.BackColor + ShiftOSDesktop.brownmemory(12) = pnlbrown13.BackColor + ShiftOSDesktop.brownmemory(13) = pnlbrown14.BackColor + ShiftOSDesktop.brownmemory(14) = pnlbrown15.BackColor + ShiftOSDesktop.brownmemory(15) = pnlbrown16.BackColor + End Sub + + Public Sub saveredmemory() + ShiftOSDesktop.redmemory(0) = pnlred1.BackColor + ShiftOSDesktop.redmemory(1) = pnlred2.BackColor + ShiftOSDesktop.redmemory(2) = pnlred3.BackColor + ShiftOSDesktop.redmemory(3) = pnlred4.BackColor + ShiftOSDesktop.redmemory(4) = pnlred5.BackColor + ShiftOSDesktop.redmemory(5) = pnlred6.BackColor + ShiftOSDesktop.redmemory(6) = pnlred7.BackColor + ShiftOSDesktop.redmemory(7) = pnlred8.BackColor + ShiftOSDesktop.redmemory(8) = pnlred9.BackColor + ShiftOSDesktop.redmemory(9) = pnlred10.BackColor + ShiftOSDesktop.redmemory(10) = pnlred11.BackColor + ShiftOSDesktop.redmemory(11) = pnlred12.BackColor + ShiftOSDesktop.redmemory(12) = pnlred13.BackColor + ShiftOSDesktop.redmemory(13) = pnlred14.BackColor + ShiftOSDesktop.redmemory(14) = pnlred15.BackColor + ShiftOSDesktop.redmemory(15) = pnlred16.BackColor + End Sub + + Public Sub savepinkmemory() + ShiftOSDesktop.pinkmemory(0) = pnlpink1.BackColor + ShiftOSDesktop.pinkmemory(1) = pnlpink2.BackColor + ShiftOSDesktop.pinkmemory(2) = pnlpink3.BackColor + ShiftOSDesktop.pinkmemory(3) = pnlpink4.BackColor + ShiftOSDesktop.pinkmemory(4) = pnlpink5.BackColor + ShiftOSDesktop.pinkmemory(5) = pnlpink6.BackColor + ShiftOSDesktop.pinkmemory(6) = pnlpink7.BackColor + ShiftOSDesktop.pinkmemory(7) = pnlpink8.BackColor + ShiftOSDesktop.pinkmemory(8) = pnlpink9.BackColor + ShiftOSDesktop.pinkmemory(9) = pnlpink10.BackColor + ShiftOSDesktop.pinkmemory(10) = pnlpink11.BackColor + ShiftOSDesktop.pinkmemory(11) = pnlpink12.BackColor + ShiftOSDesktop.pinkmemory(12) = pnlpink13.BackColor + ShiftOSDesktop.pinkmemory(13) = pnlpink14.BackColor + ShiftOSDesktop.pinkmemory(14) = pnlpink15.BackColor + ShiftOSDesktop.pinkmemory(15) = pnlpink16.BackColor + End Sub + + Private Sub getoldcolour() + lblobjecttocolour.Text = colourtochange + pnloldcolour.BackColor = oldcolour + If pnloldcolour.BackColor.IsNamedColor Then + lbloldcolourname.Text = pnloldcolour.BackColor.Name & " :Name" + Else + lbloldcolourname.Text = "Custom :Name" + End If + lbloldcolourrgb.Text = pnloldcolour.BackColor.R & ", " & pnloldcolour.BackColor.G & ", " & pnloldcolour.BackColor.B & " :RGB" + + pnlnewcolour.BackColor = ShiftOSDesktop.lastcolourpick + If pnlnewcolour.BackColor.IsNamedColor Then + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End Sub + + Private Sub determinelevels() + If ShiftOSDesktop.boughtgray = True Then graylevel = 1 + If ShiftOSDesktop.boughtgray2 = True Then graylevel = 2 + If ShiftOSDesktop.boughtgray3 = True Then graylevel = 3 + If ShiftOSDesktop.boughtgray4 = True Then graylevel = 4 + If ShiftOSDesktop.boughtanycolour = True Then anylevel = 1 + If ShiftOSDesktop.boughtanycolour2 = True Then anylevel = 2 + If ShiftOSDesktop.boughtanycolour3 = True Then anylevel = 3 + If ShiftOSDesktop.boughtanycolour4 = True Then anylevel = 4 + If ShiftOSDesktop.boughtpurple = True Then purplelevel = 1 + If ShiftOSDesktop.boughtpurple2 = True Then purplelevel = 2 + If ShiftOSDesktop.boughtpurple3 = True Then purplelevel = 3 + If ShiftOSDesktop.boughtpurple4 = True Then purplelevel = 4 + If ShiftOSDesktop.boughtblue = True Then bluelevel = 1 + If ShiftOSDesktop.boughtblue2 = True Then bluelevel = 2 + If ShiftOSDesktop.boughtblue3 = True Then bluelevel = 3 + If ShiftOSDesktop.boughtblue4 = True Then bluelevel = 4 + If ShiftOSDesktop.boughtgreen = True Then greenlevel = 1 + If ShiftOSDesktop.boughtgreen2 = True Then greenlevel = 2 + If ShiftOSDesktop.boughtgreen3 = True Then greenlevel = 3 + If ShiftOSDesktop.boughtgreen4 = True Then greenlevel = 4 + If ShiftOSDesktop.boughtyellow = True Then yellowlevel = 1 + If ShiftOSDesktop.boughtyellow2 = True Then yellowlevel = 2 + If ShiftOSDesktop.boughtyellow3 = True Then yellowlevel = 3 + If ShiftOSDesktop.boughtyellow4 = True Then yellowlevel = 4 + If ShiftOSDesktop.boughtorange = True Then orangelevel = 1 + If ShiftOSDesktop.boughtorange2 = True Then orangelevel = 2 + If ShiftOSDesktop.boughtorange3 = True Then orangelevel = 3 + If ShiftOSDesktop.boughtorange4 = True Then orangelevel = 4 + If ShiftOSDesktop.boughtbrown = True Then brownlevel = 1 + If ShiftOSDesktop.boughtbrown2 = True Then brownlevel = 2 + If ShiftOSDesktop.boughtbrown3 = True Then brownlevel = 3 + If ShiftOSDesktop.boughtbrown4 = True Then brownlevel = 4 + If ShiftOSDesktop.boughtred = True Then redlevel = 1 + If ShiftOSDesktop.boughtred2 = True Then redlevel = 2 + If ShiftOSDesktop.boughtred3 = True Then redlevel = 3 + If ShiftOSDesktop.boughtred4 = True Then redlevel = 4 + If ShiftOSDesktop.boughtpink = True Then pinklevel = 1 + If ShiftOSDesktop.boughtpink2 = True Then pinklevel = 2 + If ShiftOSDesktop.boughtpink3 = True Then pinklevel = 3 + If ShiftOSDesktop.boughtpink4 = True Then pinklevel = 4 + End Sub + + Private Sub shrinktosizebasedoncoloursbought() + If ShiftOSDesktop.boughtpink = False Then + Me.Height = Me.Height - 46 + Else + pnlpinkcolours.Show() + End If + If ShiftOSDesktop.boughtred = False Then + Me.Height = Me.Height - 46 + Else + pnlredcolours.Show() + End If + If ShiftOSDesktop.boughtbrown = False Then + Me.Height = Me.Height - 46 + Else + pnlbrowncolours.Show() + End If + If ShiftOSDesktop.boughtorange = False Then + Me.Height = Me.Height - 46 + Else + pnlorangecolours.Show() + End If + If ShiftOSDesktop.boughtyellow = False Then + Me.Height = Me.Height - 46 + Else + pnlyellowcolours.Show() + End If + If ShiftOSDesktop.boughtgreen = False Then + Me.Height = Me.Height - 46 + Else + pnlgreencolours.Show() + End If + If ShiftOSDesktop.boughtblue = False Then + Me.Height = Me.Height - 46 + Else + pnlbluecolours.Show() + End If + If ShiftOSDesktop.boughtpurple = False Then + Me.Height = Me.Height - 46 + Else + pnlpurplecolours.Show() + End If + If ShiftOSDesktop.boughtgray = False Then + Me.Height = Me.Height - 46 + Else + pnlgraycolours.Show() + End If + If ShiftOSDesktop.boughtanycolour = False Then + Me.Height = Me.Height - 46 + Else + pnlanycolours.Show() + End If + End Sub + + Private Sub setupboughtcolours() + Select Case graylevel + Case 1 + lblgraylevel.Text = "Level 1" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.Gray + pnlgray2.Show() + pnlgray3.BackColor = Color.White + pnlgray3.Show() + Case 2 + lblgraylevel.Text = "Level 2" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.DimGray + pnlgray2.Show() + pnlgray3.BackColor = Color.Gray + pnlgray3.Show() + pnlgray4.BackColor = Color.LightGray + pnlgray4.Show() + pnlgray5.BackColor = Color.White + pnlgray5.Show() + Case 3 + lblgraylevel.Text = "Level 3" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.DimGray + pnlgray2.Show() + pnlgray3.BackColor = Color.Gray + pnlgray3.Show() + pnlgray4.BackColor = Color.DarkGray + pnlgray4.Show() + pnlgray5.BackColor = Color.Silver + pnlgray5.Show() + pnlgray6.BackColor = Color.LightGray + pnlgray6.Show() + pnlgray7.BackColor = Color.Gainsboro + pnlgray7.Show() + pnlgray8.BackColor = Color.WhiteSmoke + pnlgray8.Show() + pnlgray9.BackColor = Color.White + pnlgray9.Show() + Case 4 + lblgraylevel.Text = "Level 4" + pnlgray1.BackColor = Color.Black + pnlgray1.Show() + pnlgray2.BackColor = Color.DimGray + pnlgray2.Show() + pnlgray3.BackColor = Color.Gray + pnlgray3.Show() + pnlgray4.BackColor = Color.DarkGray + pnlgray4.Show() + pnlgray5.BackColor = Color.Silver + pnlgray5.Show() + pnlgray6.BackColor = Color.LightGray + pnlgray6.Show() + pnlgray7.BackColor = Color.Gainsboro + pnlgray7.Show() + pnlgray8.BackColor = Color.WhiteSmoke + pnlgray8.Show() + pnlgray9.BackColor = Color.White + pnlgray9.Show() + pnlgray10.BackColor = Color.White + pnlgray10.Show() + pnlgray11.BackColor = Color.White + pnlgray11.Show() + pnlgray12.BackColor = Color.White + pnlgray12.Show() + pnlgray13.BackColor = Color.White + pnlgray13.Show() + pnlgray14.BackColor = Color.White + pnlgray14.Show() + pnlgray15.BackColor = Color.White + pnlgray15.Show() + pnlgray16.BackColor = Color.White + pnlgray16.Show() + pnlgraycustomcolour.Show() + lblcustomshadetut.Show() + txtcustomgrayshade.Show() + End Select + + Select Case purplelevel + Case 1 + lblpurplelevel.Text = "Level 1" + pnlpurple1.BackColor = Color.Purple + pnlpurple1.Show() + Case 2 + lblpurplelevel.Text = "Level 2" + pnlpurple1.BackColor = Color.Indigo + pnlpurple1.Show() + pnlpurple2.BackColor = Color.Purple + pnlpurple2.Show() + pnlpurple3.BackColor = Color.MediumPurple + pnlpurple3.Show() + Case 3 + lblpurplelevel.Text = "Level 3" + pnlpurple1.BackColor = Color.Indigo + pnlpurple1.Show() + pnlpurple2.BackColor = Color.DarkSlateBlue + pnlpurple2.Show() + pnlpurple3.BackColor = Color.Purple + pnlpurple3.Show() + pnlpurple4.BackColor = Color.DarkOrchid + pnlpurple4.Show() + pnlpurple5.BackColor = Color.DarkViolet + pnlpurple5.Show() + pnlpurple6.BackColor = Color.BlueViolet + pnlpurple6.Show() + pnlpurple7.BackColor = Color.SlateBlue + pnlpurple7.Show() + pnlpurple8.BackColor = Color.MediumSlateBlue + pnlpurple8.Show() + pnlpurple9.BackColor = Color.MediumPurple + pnlpurple9.Show() + pnlpurple10.BackColor = Color.MediumOrchid + pnlpurple10.Show() + pnlpurple11.BackColor = Color.Magenta + pnlpurple11.Show() + pnlpurple12.BackColor = Color.Orchid + pnlpurple12.Show() + pnlpurple13.BackColor = Color.Violet + pnlpurple13.Show() + pnlpurple14.BackColor = Color.Plum + pnlpurple14.Show() + pnlpurple15.BackColor = Color.Thistle + pnlpurple15.Show() + pnlpurple16.BackColor = Color.Lavender + pnlpurple16.Show() + Case 4 + lblpurplelevel.Text = "Level 4" + pnlpurple1.BackColor = Color.Indigo + pnlpurple1.Show() + pnlpurple2.BackColor = Color.DarkSlateBlue + pnlpurple2.Show() + pnlpurple3.BackColor = Color.Purple + pnlpurple3.Show() + pnlpurple4.BackColor = Color.DarkOrchid + pnlpurple4.Show() + pnlpurple5.BackColor = Color.DarkViolet + pnlpurple5.Show() + pnlpurple6.BackColor = Color.BlueViolet + pnlpurple6.Show() + pnlpurple7.BackColor = Color.SlateBlue + pnlpurple7.Show() + pnlpurple8.BackColor = Color.MediumSlateBlue + pnlpurple8.Show() + pnlpurple9.BackColor = Color.MediumPurple + pnlpurple9.Show() + pnlpurple10.BackColor = Color.MediumOrchid + pnlpurple10.Show() + pnlpurple11.BackColor = Color.Magenta + pnlpurple11.Show() + pnlpurple12.BackColor = Color.Orchid + pnlpurple12.Show() + pnlpurple13.BackColor = Color.Violet + pnlpurple13.Show() + pnlpurple14.BackColor = Color.Plum + pnlpurple14.Show() + pnlpurple15.BackColor = Color.Thistle + pnlpurple15.Show() + pnlpurple16.BackColor = Color.Lavender + pnlpurple16.Show() + pnlpurplecustomcolour.Show() + pnlpurpleoptions.Show() + End Select + + Select Case bluelevel + Case 1 + lblbluelevel.Text = "Level 1" + pnlblue1.BackColor = Color.Blue + pnlblue1.Show() + Case 2 + lblbluelevel.Text = "Level 2" + pnlblue1.BackColor = Color.Navy + pnlblue1.Show() + pnlblue2.BackColor = Color.Blue + pnlblue2.Show() + pnlblue3.BackColor = Color.LightBlue + pnlblue3.Show() + Case 3 + lblbluelevel.Text = "Level 3" + pnlblue1.BackColor = Color.MidnightBlue + pnlblue1.Show() + pnlblue2.BackColor = Color.Navy + pnlblue2.Show() + pnlblue3.BackColor = Color.Blue + pnlblue3.Show() + pnlblue4.BackColor = Color.RoyalBlue + pnlblue4.Show() + pnlblue5.BackColor = Color.CornflowerBlue + pnlblue5.Show() + pnlblue6.BackColor = Color.DeepSkyBlue + pnlblue6.Show() + pnlblue7.BackColor = Color.SkyBlue + pnlblue7.Show() + pnlblue8.BackColor = Color.LightBlue + pnlblue8.Show() + pnlblue9.BackColor = Color.LightSteelBlue + pnlblue9.Show() + pnlblue10.BackColor = Color.Cyan + pnlblue10.Show() + pnlblue11.BackColor = Color.Aquamarine + pnlblue11.Show() + pnlblue12.BackColor = Color.DarkTurquoise + pnlblue12.Show() + pnlblue13.BackColor = Color.LightSeaGreen + pnlblue13.Show() + pnlblue14.BackColor = Color.MediumAquamarine + pnlblue14.Show() + pnlblue15.BackColor = Color.CadetBlue + pnlblue15.Show() + pnlblue16.BackColor = Color.Teal + pnlblue16.Show() + Case 4 + lblbluelevel.Text = "Level 4" + pnlblue1.BackColor = Color.MidnightBlue + pnlblue1.Show() + pnlblue2.BackColor = Color.Navy + pnlblue2.Show() + pnlblue3.BackColor = Color.Blue + pnlblue3.Show() + pnlblue4.BackColor = Color.RoyalBlue + pnlblue4.Show() + pnlblue5.BackColor = Color.CornflowerBlue + pnlblue5.Show() + pnlblue6.BackColor = Color.DeepSkyBlue + pnlblue6.Show() + pnlblue7.BackColor = Color.SkyBlue + pnlblue7.Show() + pnlblue8.BackColor = Color.LightBlue + pnlblue8.Show() + pnlblue9.BackColor = Color.LightSteelBlue + pnlblue9.Show() + pnlblue10.BackColor = Color.Cyan + pnlblue10.Show() + pnlblue11.BackColor = Color.Aquamarine + pnlblue11.Show() + pnlblue12.BackColor = Color.DarkTurquoise + pnlblue12.Show() + pnlblue13.BackColor = Color.LightSeaGreen + pnlblue13.Show() + pnlblue14.BackColor = Color.MediumAquamarine + pnlblue14.Show() + pnlblue15.BackColor = Color.CadetBlue + pnlblue15.Show() + pnlblue16.BackColor = Color.Teal + pnlblue16.Show() + pnlbluecustomcolour.Show() + pnlblueoptions.Show() + End Select + + Select Case greenlevel + Case 1 + lblgreenlevel.Text = "Level 1" + pnlgreen1.BackColor = Color.Green + pnlgreen1.Show() + Case 2 + lblgreenlevel.Text = "Level 2" + pnlgreen1.BackColor = Color.DarkGreen + pnlgreen1.Show() + pnlgreen2.BackColor = Color.Green + pnlgreen2.Show() + pnlgreen3.BackColor = Color.LightGreen + pnlgreen3.Show() + Case 3 + lblgreenlevel.Text = "Level 3" + pnlgreen1.BackColor = Color.DarkGreen + pnlgreen1.Show() + pnlgreen2.BackColor = Color.Green + pnlgreen2.Show() + pnlgreen3.BackColor = Color.SeaGreen + pnlgreen3.Show() + pnlgreen4.BackColor = Color.MediumSeaGreen + pnlgreen4.Show() + pnlgreen5.BackColor = Color.DarkSeaGreen + pnlgreen5.Show() + pnlgreen6.BackColor = Color.LightGreen + pnlgreen6.Show() + pnlgreen7.BackColor = Color.MediumSpringGreen + pnlgreen7.Show() + pnlgreen8.BackColor = Color.SpringGreen + pnlgreen8.Show() + pnlgreen9.BackColor = Color.GreenYellow + pnlgreen9.Show() + pnlgreen10.BackColor = Color.LawnGreen + pnlgreen10.Show() + pnlgreen11.BackColor = Color.Lime + pnlgreen11.Show() + pnlgreen12.BackColor = Color.LimeGreen + pnlgreen12.Show() + pnlgreen13.BackColor = Color.YellowGreen + pnlgreen13.Show() + pnlgreen14.BackColor = Color.OliveDrab + pnlgreen14.Show() + pnlgreen15.BackColor = Color.Olive + pnlgreen15.Show() + pnlgreen16.BackColor = Color.DarkOliveGreen + pnlgreen16.Show() + Case 4 + lblgreenlevel.Text = "Level 4" + pnlgreen1.BackColor = Color.DarkGreen + pnlgreen1.Show() + pnlgreen2.BackColor = Color.Green + pnlgreen2.Show() + pnlgreen3.BackColor = Color.SeaGreen + pnlgreen3.Show() + pnlgreen4.BackColor = Color.MediumSeaGreen + pnlgreen4.Show() + pnlgreen5.BackColor = Color.DarkSeaGreen + pnlgreen5.Show() + pnlgreen6.BackColor = Color.LightGreen + pnlgreen6.Show() + pnlgreen7.BackColor = Color.MediumSpringGreen + pnlgreen7.Show() + pnlgreen8.BackColor = Color.SpringGreen + pnlgreen8.Show() + pnlgreen9.BackColor = Color.GreenYellow + pnlgreen9.Show() + pnlgreen10.BackColor = Color.LawnGreen + pnlgreen10.Show() + pnlgreen11.BackColor = Color.Lime + pnlgreen11.Show() + pnlgreen12.BackColor = Color.LimeGreen + pnlgreen12.Show() + pnlgreen13.BackColor = Color.YellowGreen + pnlgreen13.Show() + pnlgreen14.BackColor = Color.OliveDrab + pnlgreen14.Show() + pnlgreen15.BackColor = Color.Olive + pnlgreen15.Show() + pnlgreen16.BackColor = Color.DarkOliveGreen + pnlgreen16.Show() + pnlgreencustomcolour.Show() + pnlgreenoptions.Show() + End Select + + Select Case yellowlevel + Case 1 + lblyellowlevel.Text = "Level 1" + pnlyellow1.BackColor = Color.Yellow + pnlyellow1.Show() + Case 2 + lblyellowlevel.Text = "Level 2" + pnlyellow1.BackColor = Color.DarkKhaki + pnlyellow1.Show() + pnlyellow2.BackColor = Color.Yellow + pnlyellow2.Show() + pnlyellow3.BackColor = Color.PaleGoldenrod + pnlyellow3.Show() + Case 3 + lblyellowlevel.Text = "Level 3" + pnlyellow1.BackColor = Color.DarkKhaki + pnlyellow1.Show() + pnlyellow2.BackColor = Color.Yellow + pnlyellow2.Show() + pnlyellow3.BackColor = Color.Khaki + pnlyellow3.Show() + pnlyellow4.BackColor = Color.PaleGoldenrod + pnlyellow4.Show() + pnlyellow5.BackColor = Color.PeachPuff + pnlyellow5.Show() + pnlyellow6.BackColor = Color.Moccasin + pnlyellow6.Show() + pnlyellow7.BackColor = Color.PapayaWhip + pnlyellow7.Show() + pnlyellow8.BackColor = Color.LightGoldenrodYellow + pnlyellow8.Show() + pnlyellow9.BackColor = Color.LemonChiffon + pnlyellow9.Show() + pnlyellow10.BackColor = Color.LightYellow + pnlyellow10.Show() + Case 4 + lblyellowlevel.Text = "Level 4" + pnlyellow1.BackColor = Color.DarkKhaki + pnlyellow1.Show() + pnlyellow2.BackColor = Color.Yellow + pnlyellow2.Show() + pnlyellow3.BackColor = Color.Khaki + pnlyellow3.Show() + pnlyellow4.BackColor = Color.PaleGoldenrod + pnlyellow4.Show() + pnlyellow5.BackColor = Color.PeachPuff + pnlyellow5.Show() + pnlyellow6.BackColor = Color.Moccasin + pnlyellow6.Show() + pnlyellow7.BackColor = Color.PapayaWhip + pnlyellow7.Show() + pnlyellow8.BackColor = Color.LightGoldenrodYellow + pnlyellow8.Show() + pnlyellow9.BackColor = Color.LemonChiffon + pnlyellow9.Show() + pnlyellow10.BackColor = Color.LightYellow + pnlyellow10.Show() + pnlyellow11.BackColor = Color.White + pnlyellow11.Show() + pnlyellow12.BackColor = Color.White + pnlyellow12.Show() + pnlyellow13.BackColor = Color.White + pnlyellow13.Show() + pnlyellow14.BackColor = Color.White + pnlyellow14.Show() + pnlyellow15.BackColor = Color.White + pnlyellow15.Show() + pnlyellow16.BackColor = Color.White + pnlyellow16.Show() + pnlyellowcustomcolour.Show() + pnlyellowoptions.Show() + End Select + + Select Case orangelevel + Case 1 + lblorangelevel.Text = "Level 1" + pnlorange1.BackColor = Color.DarkOrange + pnlorange1.Show() + Case 2 + lblorangelevel.Text = "Level 2" + pnlorange1.BackColor = Color.OrangeRed + pnlorange1.Show() + pnlorange2.BackColor = Color.DarkOrange + pnlorange2.Show() + pnlorange3.BackColor = Color.Orange + pnlorange3.Show() + Case 3 + lblorangelevel.Text = "Level 3" + pnlorange1.BackColor = Color.OrangeRed + pnlorange1.Show() + pnlorange2.BackColor = Color.Tomato + pnlorange2.Show() + pnlorange3.BackColor = Color.Coral + pnlorange3.Show() + pnlorange4.BackColor = Color.DarkOrange + pnlorange4.Show() + pnlorange5.BackColor = Color.Orange + pnlorange5.Show() + pnlorange6.BackColor = Color.Gold + pnlorange6.Show() + Case 4 + lblorangelevel.Text = "Level 4" + pnlorange1.BackColor = Color.OrangeRed + pnlorange1.Show() + pnlorange2.BackColor = Color.Tomato + pnlorange2.Show() + pnlorange3.BackColor = Color.Coral + pnlorange3.Show() + pnlorange4.BackColor = Color.DarkOrange + pnlorange4.Show() + pnlorange5.BackColor = Color.Orange + pnlorange5.Show() + pnlorange6.BackColor = Color.Gold + pnlorange6.Show() + pnlorange7.BackColor = Color.White + pnlorange7.Show() + pnlorange8.BackColor = Color.White + pnlorange8.Show() + pnlorange9.BackColor = Color.White + pnlorange9.Show() + pnlorange10.BackColor = Color.White + pnlorange10.Show() + pnlorange11.BackColor = Color.White + pnlorange11.Show() + pnlorange12.BackColor = Color.White + pnlorange12.Show() + pnlorange13.BackColor = Color.White + pnlorange13.Show() + pnlorange14.BackColor = Color.White + pnlorange14.Show() + pnlorange15.BackColor = Color.White + pnlorange15.Show() + pnlorange16.BackColor = Color.White + pnlorange16.Show() + pnlorangecustomcolour.Show() + pnlorangeoptions.Show() + End Select + + Select Case brownlevel + Case 1 + lblbrownlevel.Text = "Level 1" + pnlbrown1.BackColor = Color.Sienna + pnlbrown1.Show() + Case 2 + lblbrownlevel.Text = "Level 2" + pnlbrown1.BackColor = Color.SaddleBrown + pnlbrown1.Show() + pnlbrown2.BackColor = Color.Sienna + pnlbrown2.Show() + pnlbrown3.BackColor = Color.BurlyWood + pnlbrown3.Show() + Case 3 + lblbrownlevel.Text = "Level 3" + pnlbrown1.BackColor = Color.Maroon + pnlbrown1.Show() + pnlbrown2.BackColor = Color.Brown + pnlbrown2.Show() + pnlbrown3.BackColor = Color.Sienna + pnlbrown3.Show() + pnlbrown4.BackColor = Color.SaddleBrown + pnlbrown4.Show() + pnlbrown5.BackColor = Color.Chocolate + pnlbrown5.Show() + pnlbrown6.BackColor = Color.Peru + pnlbrown6.Show() + pnlbrown7.BackColor = Color.DarkGoldenrod + pnlbrown7.Show() + pnlbrown8.BackColor = Color.Goldenrod + pnlbrown8.Show() + pnlbrown9.BackColor = Color.SandyBrown + pnlbrown9.Show() + pnlbrown10.BackColor = Color.RosyBrown + pnlbrown10.Show() + pnlbrown11.BackColor = Color.Tan + pnlbrown11.Show() + pnlbrown12.BackColor = Color.BurlyWood + pnlbrown12.Show() + pnlbrown13.BackColor = Color.Wheat + pnlbrown13.Show() + pnlbrown14.BackColor = Color.NavajoWhite + pnlbrown14.Show() + pnlbrown15.BackColor = Color.Bisque + pnlbrown15.Show() + pnlbrown16.BackColor = Color.BlanchedAlmond + pnlbrown16.Show() + Case 4 + lblbrownlevel.Text = "Level 4" + pnlbrown1.BackColor = Color.Maroon + pnlbrown1.Show() + pnlbrown2.BackColor = Color.Brown + pnlbrown2.Show() + pnlbrown3.BackColor = Color.Sienna + pnlbrown3.Show() + pnlbrown4.BackColor = Color.SaddleBrown + pnlbrown4.Show() + pnlbrown5.BackColor = Color.Chocolate + pnlbrown5.Show() + pnlbrown6.BackColor = Color.Peru + pnlbrown6.Show() + pnlbrown7.BackColor = Color.DarkGoldenrod + pnlbrown7.Show() + pnlbrown8.BackColor = Color.Goldenrod + pnlbrown8.Show() + pnlbrown9.BackColor = Color.SandyBrown + pnlbrown9.Show() + pnlbrown10.BackColor = Color.RosyBrown + pnlbrown10.Show() + pnlbrown11.BackColor = Color.Tan + pnlbrown11.Show() + pnlbrown12.BackColor = Color.BurlyWood + pnlbrown12.Show() + pnlbrown13.BackColor = Color.Wheat + pnlbrown13.Show() + pnlbrown14.BackColor = Color.NavajoWhite + pnlbrown14.Show() + pnlbrown15.BackColor = Color.Bisque + pnlbrown15.Show() + pnlbrown16.BackColor = Color.BlanchedAlmond + pnlbrown16.Show() + pnlbrowncustomcolour.Show() + pnlbrownoptions.Show() + End Select + + Select Case redlevel + Case 1 + lblredlevel.Text = "Level 1" + pnlred1.BackColor = Color.Red + pnlred1.Show() + Case 2 + lblredlevel.Text = "Level 2" + pnlred1.BackColor = Color.DarkRed + pnlred1.Show() + pnlred2.BackColor = Color.Red + pnlred2.Show() + pnlred3.BackColor = Color.Salmon + pnlred3.Show() + Case 3 + lblredlevel.Text = "Level 3" + pnlred1.BackColor = Color.DarkRed + pnlred1.Show() + pnlred2.BackColor = Color.Red + pnlred2.Show() + pnlred3.BackColor = Color.Firebrick + pnlred3.Show() + pnlred4.BackColor = Color.Crimson + pnlred4.Show() + pnlred5.BackColor = Color.IndianRed + pnlred5.Show() + pnlred6.BackColor = Color.LightCoral + pnlred6.Show() + pnlred7.BackColor = Color.DarkSalmon + pnlred7.Show() + pnlred8.BackColor = Color.Salmon + pnlred8.Show() + pnlred9.BackColor = Color.LightSalmon + pnlred9.Show() + Case 4 + lblredlevel.Text = "Level 4" + pnlred1.BackColor = Color.DarkRed + pnlred1.Show() + pnlred2.BackColor = Color.Red + pnlred2.Show() + pnlred3.BackColor = Color.Firebrick + pnlred3.Show() + pnlred4.BackColor = Color.Crimson + pnlred4.Show() + pnlred5.BackColor = Color.IndianRed + pnlred5.Show() + pnlred6.BackColor = Color.LightCoral + pnlred6.Show() + pnlred7.BackColor = Color.DarkSalmon + pnlred7.Show() + pnlred8.BackColor = Color.Salmon + pnlred8.Show() + pnlred9.BackColor = Color.LightSalmon + pnlred9.Show() + pnlred10.BackColor = Color.White + pnlred10.Show() + pnlred11.BackColor = Color.White + pnlred11.Show() + pnlred12.BackColor = Color.White + pnlred12.Show() + pnlred13.BackColor = Color.White + pnlred13.Show() + pnlred14.BackColor = Color.White + pnlred14.Show() + pnlred15.BackColor = Color.White + pnlred15.Show() + pnlred16.BackColor = Color.White + pnlred16.Show() + pnlredcustomcolour.Show() + pnlredoptions.Show() + End Select + + Select Case pinklevel + Case 1 + lblpinklevel.Text = "Level 1" + pnlpink1.BackColor = Color.HotPink + pnlpink1.Show() + Case 2 + lblpinklevel.Text = "Level 2" + pnlpink1.BackColor = Color.DeepPink + pnlpink1.Show() + pnlpink2.BackColor = Color.HotPink + pnlpink2.Show() + pnlpink3.BackColor = Color.LightPink + pnlpink3.Show() + Case 3 + lblpinklevel.Text = "Level 3" + pnlpink1.BackColor = Color.MediumVioletRed + pnlpink1.Show() + pnlpink2.BackColor = Color.PaleVioletRed + pnlpink2.Show() + pnlpink3.BackColor = Color.DeepPink + pnlpink3.Show() + pnlpink4.BackColor = Color.HotPink + pnlpink4.Show() + pnlpink5.BackColor = Color.LightPink + pnlpink5.Show() + pnlpink6.BackColor = Color.Pink + pnlpink6.Show() + Case 4 + lblpinklevel.Text = "Level 4" + pnlpink1.BackColor = Color.MediumVioletRed + pnlpink1.Show() + pnlpink2.BackColor = Color.PaleVioletRed + pnlpink2.Show() + pnlpink3.BackColor = Color.DeepPink + pnlpink3.Show() + pnlpink4.BackColor = Color.HotPink + pnlpink4.Show() + pnlpink5.BackColor = Color.LightPink + pnlpink5.Show() + pnlpink6.BackColor = Color.Pink + pnlpink6.Show() + pnlpink7.BackColor = Color.White + pnlpink7.Show() + pnlpink8.BackColor = Color.White + pnlpink8.Show() + pnlpink9.BackColor = Color.White + pnlpink9.Show() + pnlpink10.BackColor = Color.White + pnlpink10.Show() + pnlpink11.BackColor = Color.White + pnlpink11.Show() + pnlpink12.BackColor = Color.White + pnlpink12.Show() + pnlpink13.BackColor = Color.White + pnlpink13.Show() + pnlpink14.BackColor = Color.White + pnlpink14.Show() + pnlpink15.BackColor = Color.White + pnlpink15.Show() + pnlpink16.BackColor = Color.White + pnlpink16.Show() + pnlpinkcustomcolour.Show() + pnlpinkoptions.Show() + End Select + + Select Case anylevel + Case 1 + lblanylevel.Text = "Level 1" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + Case 2 + lblanylevel.Text = "Level 2" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlany2.BackColor = Color.White + pnlany2.Show() + pnlany3.BackColor = Color.White + pnlany3.Show() + pnlany4.BackColor = Color.White + pnlany4.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + Case 3 + lblanylevel.Text = "Level 3" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlany2.BackColor = Color.White + pnlany2.Show() + pnlany3.BackColor = Color.White + pnlany3.Show() + pnlany4.BackColor = Color.White + pnlany4.Show() + pnlany5.BackColor = Color.White + pnlany5.Show() + pnlany6.BackColor = Color.White + pnlany6.Show() + pnlany7.BackColor = Color.White + pnlany7.Show() + pnlany8.BackColor = Color.White + pnlany8.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + Case 4 + lblanylevel.Text = "Level 4" + pnlany1.BackColor = Color.White + pnlany1.Show() + pnlany2.BackColor = Color.White + pnlany2.Show() + pnlany3.BackColor = Color.White + pnlany3.Show() + pnlany4.BackColor = Color.White + pnlany4.Show() + pnlany5.BackColor = Color.White + pnlany5.Show() + pnlany6.BackColor = Color.White + pnlany6.Show() + pnlany7.BackColor = Color.White + pnlany7.Show() + pnlany8.BackColor = Color.White + pnlany8.Show() + pnlany9.BackColor = Color.White + pnlany9.Show() + pnlany10.BackColor = Color.White + pnlany10.Show() + pnlany11.BackColor = Color.White + pnlany11.Show() + pnlany12.BackColor = Color.White + pnlany12.Show() + pnlany13.BackColor = Color.White + pnlany13.Show() + pnlany14.BackColor = Color.White + pnlany14.Show() + pnlany15.BackColor = Color.White + pnlany15.Show() + pnlany16.BackColor = Color.White + pnlany16.Show() + pnlanycustomcolour.Show() + pnlanyoptions.Show() + End Select + End Sub + + Private Sub pnloldcolour_Click(sender As Object, e As EventArgs) Handles pnloldcolour.Click + Me.Close() + End Sub + + Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click + Select Case colourtochange + Case "Title Bar Colour" + Shifter.titlebarcolour = pnlnewcolour.BackColor + If Shifter.shifterskintitlebar(0) Is Nothing Then Else Shifter.shifterskintitlebar(0).Dispose() + If Shifter.shifterskintitlebar(1) Is Nothing Then Else Shifter.shifterskintitlebar(1).Dispose() + If Shifter.shifterskintitlebar(2) Is Nothing Then Else Shifter.shifterskintitlebar(2).Dispose() + Shifter.shifterskintitlebar(0) = Nothing + Shifter.shifterskintitlebar(1) = Nothing + Shifter.shifterskintitlebar(2) = Nothing + Shifter.shifterskinimages(3) = "" + Shifter.shifterskinimages(4) = "" + Shifter.shifterskinimages(5) = "" + Case "Window Border Colour" + Shifter.windowbordercolour = pnlnewcolour.BackColor + Shifter.windowborderleftcolour = pnlnewcolour.BackColor + Shifter.windowborderrightcolour = pnlnewcolour.BackColor + Shifter.windowborderbottomcolour = pnlnewcolour.BackColor + Shifter.windowborderbottomrightcolour = pnlnewcolour.BackColor + Shifter.windowborderbottomleftcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderleft(0) Is Nothing Then Else Shifter.skinwindowborderleft(0).Dispose() + If Shifter.skinwindowborderleft(1) Is Nothing Then Else Shifter.skinwindowborderleft(1).Dispose() + If Shifter.skinwindowborderleft(2) Is Nothing Then Else Shifter.skinwindowborderleft(2).Dispose() + Shifter.skinwindowborderleft(0) = Nothing + Shifter.skinwindowborderleft(1) = Nothing + Shifter.skinwindowborderleft(2) = Nothing + Shifter.shifterskinimages(27) = "" + Shifter.shifterskinimages(28) = "" + Shifter.shifterskinimages(29) = "" + If Shifter.skinwindowborderright(0) Is Nothing Then Else Shifter.skinwindowborderright(0).Dispose() + If Shifter.skinwindowborderright(1) Is Nothing Then Else Shifter.skinwindowborderright(1).Dispose() + If Shifter.skinwindowborderright(2) Is Nothing Then Else Shifter.skinwindowborderright(2).Dispose() + Shifter.skinwindowborderright(0) = Nothing + Shifter.skinwindowborderright(1) = Nothing + Shifter.skinwindowborderright(2) = Nothing + Shifter.shifterskinimages(30) = "" + Shifter.shifterskinimages(31) = "" + Shifter.shifterskinimages(32) = "" + If Shifter.skinwindowborderbottom(0) Is Nothing Then Else Shifter.skinwindowborderbottom(0).Dispose() + If Shifter.skinwindowborderbottom(1) Is Nothing Then Else Shifter.skinwindowborderbottom(1).Dispose() + If Shifter.skinwindowborderbottom(2) Is Nothing Then Else Shifter.skinwindowborderbottom(2).Dispose() + Shifter.skinwindowborderbottom(0) = Nothing + Shifter.skinwindowborderbottom(1) = Nothing + Shifter.skinwindowborderbottom(2) = Nothing + Shifter.shifterskinimages(33) = "" + Shifter.shifterskinimages(34) = "" + Shifter.shifterskinimages(35) = "" + If Shifter.skinwindowborderbottomleft(0) Is Nothing Then Else Shifter.skinwindowborderbottomleft(0).Dispose() + If Shifter.skinwindowborderbottomleft(1) Is Nothing Then Else Shifter.skinwindowborderbottomleft(1).Dispose() + If Shifter.skinwindowborderbottomleft(2) Is Nothing Then Else Shifter.skinwindowborderbottomleft(2).Dispose() + Shifter.skinwindowborderbottomleft(0) = Nothing + Shifter.skinwindowborderbottomleft(1) = Nothing + Shifter.skinwindowborderbottomleft(2) = Nothing + Shifter.shifterskinimages(39) = "" + Shifter.shifterskinimages(40) = "" + Shifter.shifterskinimages(41) = "" + If Shifter.skinwindowborderbottomright(0) Is Nothing Then Else Shifter.skinwindowborderbottomright(0).Dispose() + If Shifter.skinwindowborderbottomright(1) Is Nothing Then Else Shifter.skinwindowborderbottomright(1).Dispose() + If Shifter.skinwindowborderbottomright(2) Is Nothing Then Else Shifter.skinwindowborderbottomright(2).Dispose() + Shifter.skinwindowborderbottomright(0) = Nothing + Shifter.skinwindowborderbottomright(1) = Nothing + Shifter.skinwindowborderbottomright(2) = Nothing + Shifter.shifterskinimages(36) = "" + Shifter.shifterskinimages(37) = "" + Shifter.shifterskinimages(38) = "" + Case "Close Button Colour" + Shifter.closebuttoncolour = pnlnewcolour.BackColor + If Shifter.skinclosebutton(0) Is Nothing Then Else Shifter.skinclosebutton(0).Dispose() + If Shifter.skinclosebutton(1) Is Nothing Then Else Shifter.skinclosebutton(1).Dispose() + If Shifter.skinclosebutton(2) Is Nothing Then Else Shifter.skinclosebutton(2).Dispose() + Shifter.skinclosebutton(0) = Nothing + Shifter.skinclosebutton(1) = Nothing + Shifter.skinclosebutton(2) = Nothing + Shifter.shifterskinimages(0) = "" + Shifter.shifterskinimages(1) = "" + Shifter.shifterskinimages(2) = "" + Case "Title Text Colour" + Shifter.titletextcolour = pnlnewcolour.BackColor + Case "Desktop Panel Colour" + Shifter.desktoppanelcolour = pnlnewcolour.BackColor + If Shifter.skindesktoppanel(0) Is Nothing Then Else Shifter.skindesktoppanel(0).Dispose() + If Shifter.skindesktoppanel(1) Is Nothing Then Else Shifter.skindesktoppanel(1).Dispose() + If Shifter.skindesktoppanel(2) Is Nothing Then Else Shifter.skindesktoppanel(2).Dispose() + Shifter.skindesktoppanel(0) = Nothing + Shifter.skindesktoppanel(1) = Nothing + Shifter.skindesktoppanel(2) = Nothing + Shifter.shifterskinimages(18) = "" + Shifter.shifterskinimages(19) = "" + Shifter.shifterskinimages(20) = "" + Case "Clock Text Colour" + Shifter.clocktextcolour = pnlnewcolour.BackColor + Case "Clock Background Colour" + Shifter.clockbackgroundcolor = pnlnewcolour.BackColor + If Shifter.skindesktoppaneltime(0) Is Nothing Then Else Shifter.skindesktoppaneltime(0).Dispose() + If Shifter.skindesktoppaneltime(1) Is Nothing Then Else Shifter.skindesktoppaneltime(1).Dispose() + If Shifter.skindesktoppaneltime(2) Is Nothing Then Else Shifter.skindesktoppaneltime(2).Dispose() + Shifter.skindesktoppaneltime(0) = Nothing + Shifter.skindesktoppaneltime(1) = Nothing + Shifter.skindesktoppaneltime(2) = Nothing + Shifter.shifterskinimages(21) = "" + Shifter.shifterskinimages(22) = "" + Shifter.shifterskinimages(23) = "" + Case "Desktop Background Colour" + Shifter.desktopbackgroundcolour = pnlnewcolour.BackColor + If Shifter.skindesktopbackground(0) Is Nothing Then Else Shifter.skindesktopbackground(0).Dispose() + If Shifter.skindesktopbackground(1) Is Nothing Then Else Shifter.skindesktopbackground(1).Dispose() + If Shifter.skindesktopbackground(2) Is Nothing Then Else Shifter.skindesktopbackground(2).Dispose() + Shifter.skindesktopbackground(0) = Nothing + Shifter.skindesktopbackground(1) = Nothing + Shifter.skindesktopbackground(2) = Nothing + Shifter.shifterskinimages(6) = "" + Shifter.shifterskinimages(7) = "" + Shifter.shifterskinimages(8) = "" + Case "App Launcher Button Colour" + Shifter.applauncherbuttoncolour = pnlnewcolour.BackColor + If Shifter.skinapplauncherbutton(0) Is Nothing Then Else Shifter.skinapplauncherbutton(0).Dispose() + If Shifter.skinapplauncherbutton(1) Is Nothing Then Else Shifter.skinapplauncherbutton(1).Dispose() + If Shifter.skinapplauncherbutton(2) Is Nothing Then Else Shifter.skinapplauncherbutton(2).Dispose() + Shifter.skinapplauncherbutton(0) = Nothing + Shifter.skinapplauncherbutton(1) = Nothing + Shifter.skinapplauncherbutton(2) = Nothing + Shifter.shifterskinimages(24) = "" + Shifter.shifterskinimages(25) = "" + Shifter.shifterskinimages(26) = "" + Case "App Launcher Button Clicked Colour" + Shifter.applauncherbuttonclickedcolour = pnlnewcolour.BackColor + Case "App Launcher Mouse Over Colour" + Shifter.applaunchermouseovercolour = pnlnewcolour.BackColor + Case "Roll Up Button Colour" + Shifter.rollupbuttoncolour = pnlnewcolour.BackColor + If Shifter.skinrollupbutton(0) Is Nothing Then Else Shifter.skinrollupbutton(0).Dispose() + If Shifter.skinrollupbutton(1) Is Nothing Then Else Shifter.skinrollupbutton(1).Dispose() + If Shifter.skinrollupbutton(2) Is Nothing Then Else Shifter.skinrollupbutton(2).Dispose() + Shifter.skinrollupbutton(0) = Nothing + Shifter.skinrollupbutton(1) = Nothing + Shifter.skinrollupbutton(2) = Nothing + Shifter.shifterskinimages(9) = "" + Shifter.shifterskinimages(10) = "" + Shifter.shifterskinimages(11) = "" + Case "App Launcher Button Text Colour" + Shifter.applicationsbuttontextcolour = pnlnewcolour.BackColor + Case "App Launcher Items Background Colour" + Shifter.applauncherbackgroundcolour = pnlnewcolour.BackColor + Case "Title Bar Left Corner Colour" + Shifter.titlebarleftcornercolour = pnlnewcolour.BackColor + If Shifter.skintitlebarleftcorner(0) Is Nothing Then Else Shifter.skintitlebarleftcorner(0).Dispose() + If Shifter.skintitlebarleftcorner(1) Is Nothing Then Else Shifter.skintitlebarleftcorner(1).Dispose() + If Shifter.skintitlebarleftcorner(2) Is Nothing Then Else Shifter.skintitlebarleftcorner(2).Dispose() + Shifter.skintitlebarleftcorner(0) = Nothing + Shifter.skintitlebarleftcorner(1) = Nothing + Shifter.skintitlebarleftcorner(2) = Nothing + Shifter.shifterskinimages(15) = "" + Shifter.shifterskinimages(16) = "" + Shifter.shifterskinimages(17) = "" + Case "Title Bar Right Corner Colour" + Shifter.titlebarrightcornercolour = pnlnewcolour.BackColor + If Shifter.skintitlebarrightcorner(0) Is Nothing Then Else Shifter.skintitlebarrightcorner(0).Dispose() + If Shifter.skintitlebarrightcorner(1) Is Nothing Then Else Shifter.skintitlebarrightcorner(1).Dispose() + If Shifter.skintitlebarrightcorner(2) Is Nothing Then Else Shifter.skintitlebarrightcorner(2).Dispose() + Shifter.skintitlebarrightcorner(0) = Nothing + Shifter.skintitlebarrightcorner(1) = Nothing + Shifter.skintitlebarrightcorner(2) = Nothing + Shifter.shifterskinimages(12) = "" + Shifter.shifterskinimages(13) = "" + Shifter.shifterskinimages(14) = "" + Case "Border Right Colour" + Shifter.windowborderrightcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderright(0) Is Nothing Then Else Shifter.skinwindowborderright(0).Dispose() + If Shifter.skinwindowborderright(1) Is Nothing Then Else Shifter.skinwindowborderright(1).Dispose() + If Shifter.skinwindowborderright(2) Is Nothing Then Else Shifter.skinwindowborderright(2).Dispose() + Shifter.skinwindowborderright(0) = Nothing + Shifter.skinwindowborderright(1) = Nothing + Shifter.skinwindowborderright(2) = Nothing + Shifter.shifterskinimages(30) = "" + Shifter.shifterskinimages(31) = "" + Shifter.shifterskinimages(32) = "" + Case "Border Left Colour" + Shifter.windowborderleftcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderleft(0) Is Nothing Then Else Shifter.skinwindowborderleft(0).Dispose() + If Shifter.skinwindowborderleft(1) Is Nothing Then Else Shifter.skinwindowborderleft(1).Dispose() + If Shifter.skinwindowborderleft(2) Is Nothing Then Else Shifter.skinwindowborderleft(2).Dispose() + Shifter.skinwindowborderleft(0) = Nothing + Shifter.skinwindowborderleft(1) = Nothing + Shifter.skinwindowborderleft(2) = Nothing + Shifter.shifterskinimages(27) = "" + Shifter.shifterskinimages(28) = "" + Shifter.shifterskinimages(29) = "" + Case "Border Bottom Colour" + Shifter.windowborderbottomcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderbottom(0) Is Nothing Then Else Shifter.skinwindowborderbottom(0).Dispose() + If Shifter.skinwindowborderbottom(1) Is Nothing Then Else Shifter.skinwindowborderbottom(1).Dispose() + If Shifter.skinwindowborderbottom(2) Is Nothing Then Else Shifter.skinwindowborderbottom(2).Dispose() + Shifter.skinwindowborderbottom(0) = Nothing + Shifter.skinwindowborderbottom(1) = Nothing + Shifter.skinwindowborderbottom(2) = Nothing + Shifter.shifterskinimages(33) = "" + Shifter.shifterskinimages(34) = "" + Shifter.shifterskinimages(35) = "" + Case "Border Bottom Left Colour" + Shifter.windowborderbottomleftcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderbottomleft(0) Is Nothing Then Else Shifter.skinwindowborderbottomleft(0).Dispose() + If Shifter.skinwindowborderbottomleft(1) Is Nothing Then Else Shifter.skinwindowborderbottomleft(1).Dispose() + If Shifter.skinwindowborderbottomleft(2) Is Nothing Then Else Shifter.skinwindowborderbottomleft(2).Dispose() + Shifter.skinwindowborderbottomleft(0) = Nothing + Shifter.skinwindowborderbottomleft(1) = Nothing + Shifter.skinwindowborderbottomleft(2) = Nothing + Shifter.shifterskinimages(39) = "" + Shifter.shifterskinimages(40) = "" + Shifter.shifterskinimages(41) = "" + Case "Border Bottom Right Colour" + Shifter.windowborderbottomrightcolour = pnlnewcolour.BackColor + If Shifter.skinwindowborderbottomright(0) Is Nothing Then Else Shifter.skinwindowborderbottomright(0).Dispose() + If Shifter.skinwindowborderbottomright(1) Is Nothing Then Else Shifter.skinwindowborderbottomright(1).Dispose() + If Shifter.skinwindowborderbottomright(2) Is Nothing Then Else Shifter.skinwindowborderbottomright(2).Dispose() + Shifter.skinwindowborderbottomright(0) = Nothing + Shifter.skinwindowborderbottomright(1) = Nothing + Shifter.skinwindowborderbottomright(2) = Nothing + Shifter.shifterskinimages(36) = "" + Shifter.shifterskinimages(37) = "" + Shifter.shifterskinimages(38) = "" + Case "Minimize Button Colour" + Shifter.minimizebuttoncolour = pnlnewcolour.BackColor + If Shifter.skinminimizebutton(0) Is Nothing Then Else Shifter.skinminimizebutton(0).Dispose() + If Shifter.skinminimizebutton(1) Is Nothing Then Else Shifter.skinminimizebutton(1).Dispose() + If Shifter.skinminimizebutton(2) Is Nothing Then Else Shifter.skinminimizebutton(2).Dispose() + Shifter.skinminimizebutton(0) = Nothing + Shifter.skinminimizebutton(1) = Nothing + Shifter.skinminimizebutton(2) = Nothing + Shifter.shifterskinimages(42) = "" + Shifter.shifterskinimages(43) = "" + Shifter.shifterskinimages(44) = "" + Case "Panel Button Colour" + Shifter.panelbuttoncolour = pnlnewcolour.BackColor + If Shifter.skinpanelbutton(0) Is Nothing Then Else Shifter.skinpanelbutton(0).Dispose() + If Shifter.skinpanelbutton(1) Is Nothing Then Else Shifter.skinpanelbutton(1).Dispose() + If Shifter.skinpanelbutton(2) Is Nothing Then Else Shifter.skinpanelbutton(2).Dispose() + Shifter.skinpanelbutton(0) = Nothing + Shifter.skinpanelbutton(1) = Nothing + Shifter.skinpanelbutton(2) = Nothing + Shifter.shifterskinimages(45) = "" + Shifter.shifterskinimages(46) = "" + Shifter.shifterskinimages(47) = "" + Case "Panel Button Text Colour" + Shifter.panelbuttontextcolour = pnlnewcolour.BackColor + Case "artpallet1" : ArtPad.colourpallet1.BackColor = pnlnewcolour.BackColor + Case "artpallet2" : ArtPad.colourpallet2.BackColor = pnlnewcolour.BackColor + Case "artpallet3" : ArtPad.colourpallet3.BackColor = pnlnewcolour.BackColor + Case "artpallet4" : ArtPad.colourpallet4.BackColor = pnlnewcolour.BackColor + Case "artpallet5" : ArtPad.colourpallet5.BackColor = pnlnewcolour.BackColor + Case "artpallet6" : ArtPad.colourpallet6.BackColor = pnlnewcolour.BackColor + Case "artpallet7" : ArtPad.colourpallet7.BackColor = pnlnewcolour.BackColor + Case "artpallet8" : ArtPad.colourpallet8.BackColor = pnlnewcolour.BackColor + Case "artpallet9" : ArtPad.colourpallet9.BackColor = pnlnewcolour.BackColor + Case "artpallet10" : ArtPad.colourpallet10.BackColor = pnlnewcolour.BackColor + Case "artpallet11" : ArtPad.colourpallet11.BackColor = pnlnewcolour.BackColor + Case "artpallet12" : ArtPad.colourpallet12.BackColor = pnlnewcolour.BackColor + Case "artpallet13" : ArtPad.colourpallet13.BackColor = pnlnewcolour.BackColor + Case "artpallet14" : ArtPad.colourpallet14.BackColor = pnlnewcolour.BackColor + Case "artpallet15" : ArtPad.colourpallet15.BackColor = pnlnewcolour.BackColor + Case "artpallet16" : ArtPad.colourpallet16.BackColor = pnlnewcolour.BackColor + Case "artpallet17" : ArtPad.colourpallet17.BackColor = pnlnewcolour.BackColor + Case "artpallet18" : ArtPad.colourpallet18.BackColor = pnlnewcolour.BackColor + Case "artpallet19" : ArtPad.colourpallet19.BackColor = pnlnewcolour.BackColor + Case "artpallet20" : ArtPad.colourpallet20.BackColor = pnlnewcolour.BackColor + Case "artpallet21" : ArtPad.colourpallet21.BackColor = pnlnewcolour.BackColor + Case "artpallet22" : ArtPad.colourpallet22.BackColor = pnlnewcolour.BackColor + Case "artpallet23" : ArtPad.colourpallet23.BackColor = pnlnewcolour.BackColor + Case "artpallet24" : ArtPad.colourpallet24.BackColor = pnlnewcolour.BackColor + Case "artpallet25" : ArtPad.colourpallet25.BackColor = pnlnewcolour.BackColor + Case "artpallet26" : ArtPad.colourpallet26.BackColor = pnlnewcolour.BackColor + Case "artpallet27" : ArtPad.colourpallet27.BackColor = pnlnewcolour.BackColor + Case "artpallet28" : ArtPad.colourpallet28.BackColor = pnlnewcolour.BackColor + Case "artpallet29" : ArtPad.colourpallet29.BackColor = pnlnewcolour.BackColor + Case "artpallet30" : ArtPad.colourpallet30.BackColor = pnlnewcolour.BackColor + Case "artpallet31" : ArtPad.colourpallet31.BackColor = pnlnewcolour.BackColor + Case "artpallet32" : ArtPad.colourpallet32.BackColor = pnlnewcolour.BackColor + Case "artpallet33" : ArtPad.colourpallet33.BackColor = pnlnewcolour.BackColor + Case "artpallet34" : ArtPad.colourpallet34.BackColor = pnlnewcolour.BackColor + Case "artpallet35" : ArtPad.colourpallet35.BackColor = pnlnewcolour.BackColor + Case "artpallet36" : ArtPad.colourpallet36.BackColor = pnlnewcolour.BackColor + Case "artpallet37" : ArtPad.colourpallet37.BackColor = pnlnewcolour.BackColor + Case "artpallet38" : ArtPad.colourpallet38.BackColor = pnlnewcolour.BackColor + Case "artpallet39" : ArtPad.colourpallet39.BackColor = pnlnewcolour.BackColor + Case "artpallet40" : ArtPad.colourpallet40.BackColor = pnlnewcolour.BackColor + Case "artpallet41" : ArtPad.colourpallet41.BackColor = pnlnewcolour.BackColor + Case "artpallet42" : ArtPad.colourpallet42.BackColor = pnlnewcolour.BackColor + Case "artpallet43" : ArtPad.colourpallet43.BackColor = pnlnewcolour.BackColor + Case "artpallet44" : ArtPad.colourpallet44.BackColor = pnlnewcolour.BackColor + Case "artpallet45" : ArtPad.colourpallet45.BackColor = pnlnewcolour.BackColor + Case "artpallet46" : ArtPad.colourpallet46.BackColor = pnlnewcolour.BackColor + Case "artpallet47" : ArtPad.colourpallet47.BackColor = pnlnewcolour.BackColor + Case "artpallet48" : ArtPad.colourpallet48.BackColor = pnlnewcolour.BackColor + Case "artpallet49" : ArtPad.colourpallet49.BackColor = pnlnewcolour.BackColor + Case "artpallet50" : ArtPad.colourpallet50.BackColor = pnlnewcolour.BackColor + Case "artpallet51" : ArtPad.colourpallet51.BackColor = pnlnewcolour.BackColor + Case "artpallet52" : ArtPad.colourpallet52.BackColor = pnlnewcolour.BackColor + Case "artpallet53" : ArtPad.colourpallet53.BackColor = pnlnewcolour.BackColor + Case "artpallet54" : ArtPad.colourpallet54.BackColor = pnlnewcolour.BackColor + Case "artpallet55" : ArtPad.colourpallet55.BackColor = pnlnewcolour.BackColor + Case "artpallet56" : ArtPad.colourpallet56.BackColor = pnlnewcolour.BackColor + Case "artpallet57" : ArtPad.colourpallet57.BackColor = pnlnewcolour.BackColor + Case "artpallet58" : ArtPad.colourpallet58.BackColor = pnlnewcolour.BackColor + Case "artpallet59" : ArtPad.colourpallet59.BackColor = pnlnewcolour.BackColor + Case "artpallet60" : ArtPad.colourpallet60.BackColor = pnlnewcolour.BackColor + Case "artpallet61" : ArtPad.colourpallet61.BackColor = pnlnewcolour.BackColor + Case "artpallet62" : ArtPad.colourpallet62.BackColor = pnlnewcolour.BackColor + Case "artpallet63" : ArtPad.colourpallet63.BackColor = pnlnewcolour.BackColor + Case "artpallet64" : ArtPad.colourpallet64.BackColor = pnlnewcolour.BackColor + Case "artpallet65" : ArtPad.colourpallet65.BackColor = pnlnewcolour.BackColor + Case "artpallet66" : ArtPad.colourpallet66.BackColor = pnlnewcolour.BackColor + Case "artpallet67" : ArtPad.colourpallet67.BackColor = pnlnewcolour.BackColor + Case "artpallet68" : ArtPad.colourpallet68.BackColor = pnlnewcolour.BackColor + Case "artpallet69" : ArtPad.colourpallet69.BackColor = pnlnewcolour.BackColor + Case "artpallet70" : ArtPad.colourpallet70.BackColor = pnlnewcolour.BackColor + Case "artpallet71" : ArtPad.colourpallet71.BackColor = pnlnewcolour.BackColor + Case "artpallet72" : ArtPad.colourpallet72.BackColor = pnlnewcolour.BackColor + Case "artpallet73" : ArtPad.colourpallet73.BackColor = pnlnewcolour.BackColor + Case "artpallet74" : ArtPad.colourpallet74.BackColor = pnlnewcolour.BackColor + Case "artpallet75" : ArtPad.colourpallet75.BackColor = pnlnewcolour.BackColor + Case "artpallet76" : ArtPad.colourpallet76.BackColor = pnlnewcolour.BackColor + Case "artpallet77" : ArtPad.colourpallet77.BackColor = pnlnewcolour.BackColor + Case "artpallet78" : ArtPad.colourpallet78.BackColor = pnlnewcolour.BackColor + Case "artpallet79" : ArtPad.colourpallet79.BackColor = pnlnewcolour.BackColor + Case "artpallet80" : ArtPad.colourpallet80.BackColor = pnlnewcolour.BackColor + Case "artpallet81" : ArtPad.colourpallet81.BackColor = pnlnewcolour.BackColor + Case "artpallet82" : ArtPad.colourpallet82.BackColor = pnlnewcolour.BackColor + Case "artpallet83" : ArtPad.colourpallet83.BackColor = pnlnewcolour.BackColor + Case "artpallet84" : ArtPad.colourpallet84.BackColor = pnlnewcolour.BackColor + Case "artpallet85" : ArtPad.colourpallet85.BackColor = pnlnewcolour.BackColor + Case "artpallet86" : ArtPad.colourpallet86.BackColor = pnlnewcolour.BackColor + Case "artpallet87" : ArtPad.colourpallet87.BackColor = pnlnewcolour.BackColor + Case "artpallet88" : ArtPad.colourpallet88.BackColor = pnlnewcolour.BackColor + Case "artpallet89" : ArtPad.colourpallet89.BackColor = pnlnewcolour.BackColor + Case "artpallet90" : ArtPad.colourpallet90.BackColor = pnlnewcolour.BackColor + Case "artpallet91" : ArtPad.colourpallet91.BackColor = pnlnewcolour.BackColor + Case "artpallet92" : ArtPad.colourpallet92.BackColor = pnlnewcolour.BackColor + Case "artpallet93" : ArtPad.colourpallet93.BackColor = pnlnewcolour.BackColor + Case "artpallet94" : ArtPad.colourpallet94.BackColor = pnlnewcolour.BackColor + Case "artpallet95" : ArtPad.colourpallet95.BackColor = pnlnewcolour.BackColor + Case "artpallet96" : ArtPad.colourpallet96.BackColor = pnlnewcolour.BackColor + Case "artpallet97" : ArtPad.colourpallet97.BackColor = pnlnewcolour.BackColor + Case "artpallet98" : ArtPad.colourpallet98.BackColor = pnlnewcolour.BackColor + Case "artpallet99" : ArtPad.colourpallet99.BackColor = pnlnewcolour.BackColor + Case "artpallet100" : ArtPad.colourpallet100.BackColor = pnlnewcolour.BackColor + Case "artpallet101" : ArtPad.colourpallet101.BackColor = pnlnewcolour.BackColor + Case "artpallet102" : ArtPad.colourpallet102.BackColor = pnlnewcolour.BackColor + Case "artpallet103" : ArtPad.colourpallet103.BackColor = pnlnewcolour.BackColor + Case "artpallet104" : ArtPad.colourpallet104.BackColor = pnlnewcolour.BackColor + Case "artpallet105" : ArtPad.colourpallet105.BackColor = pnlnewcolour.BackColor + Case "artpallet106" : ArtPad.colourpallet106.BackColor = pnlnewcolour.BackColor + Case "artpallet107" : ArtPad.colourpallet107.BackColor = pnlnewcolour.BackColor + Case "artpallet108" : ArtPad.colourpallet108.BackColor = pnlnewcolour.BackColor + Case "artpallet109" : ArtPad.colourpallet109.BackColor = pnlnewcolour.BackColor + Case "artpallet110" : ArtPad.colourpallet110.BackColor = pnlnewcolour.BackColor + Case "artpallet111" : ArtPad.colourpallet111.BackColor = pnlnewcolour.BackColor + Case "artpallet112" : ArtPad.colourpallet112.BackColor = pnlnewcolour.BackColor + Case "artpallet113" : ArtPad.colourpallet113.BackColor = pnlnewcolour.BackColor + Case "artpallet114" : ArtPad.colourpallet114.BackColor = pnlnewcolour.BackColor + Case "artpallet115" : ArtPad.colourpallet115.BackColor = pnlnewcolour.BackColor + Case "artpallet116" : ArtPad.colourpallet116.BackColor = pnlnewcolour.BackColor + Case "artpallet117" : ArtPad.colourpallet117.BackColor = pnlnewcolour.BackColor + Case "artpallet118" : ArtPad.colourpallet118.BackColor = pnlnewcolour.BackColor + Case "artpallet119" : ArtPad.colourpallet119.BackColor = pnlnewcolour.BackColor + Case "artpallet120" : ArtPad.colourpallet120.BackColor = pnlnewcolour.BackColor + Case "artpallet121" : ArtPad.colourpallet121.BackColor = pnlnewcolour.BackColor + Case "artpallet122" : ArtPad.colourpallet122.BackColor = pnlnewcolour.BackColor + Case "artpallet123" : ArtPad.colourpallet123.BackColor = pnlnewcolour.BackColor + Case "artpallet124" : ArtPad.colourpallet124.BackColor = pnlnewcolour.BackColor + Case "artpallet125" : ArtPad.colourpallet125.BackColor = pnlnewcolour.BackColor + Case "artpallet126" : ArtPad.colourpallet126.BackColor = pnlnewcolour.BackColor + Case "artpallet127" : ArtPad.colourpallet127.BackColor = pnlnewcolour.BackColor + Case "artpallet128" : ArtPad.colourpallet128.BackColor = pnlnewcolour.BackColor + End Select + + If colourtochange.Contains("artpallet") Then + ArtPad.drawingcolour = pnlnewcolour.BackColor + ArtPad.setuppreview() + ArtPad.settoolcolours() + Else + ShiftOSDesktop.lastcolourpick = pnlnewcolour.BackColor + Shifter.setuppreshifterstuff() + End If + + Me.Close() + End Sub + + Private Sub pnloldcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnloldcolour.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnloldcolour.ClientRectangle) + End Sub + + Private Sub pnlanycolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlanycolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlanycolours.ClientRectangle) + End Sub + + Private Sub pnlgraycolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlgraycolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlgraycolours.ClientRectangle) + End Sub + + Private Sub pnlpurplecolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlpurplecolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlpurplecolours.ClientRectangle) + End Sub + + Private Sub pnlbluecolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlbluecolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlbluecolours.ClientRectangle) + End Sub + + Private Sub pnlgreencolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlgreencolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlgreencolours.ClientRectangle) + End Sub + + Private Sub pnlyellowcolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlyellowcolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlyellowcolours.ClientRectangle) + End Sub + + Private Sub pnlorangecolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlorangecolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlorangecolours.ClientRectangle) + End Sub + + Private Sub pnlbrowncolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlbrowncolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlbrowncolours.ClientRectangle) + End Sub + + Private Sub pnlredcolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlredcolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlredcolours.ClientRectangle) + End Sub + + Private Sub pnlpinkcolours_Paint(sender As Object, e As PaintEventArgs) Handles pnlpinkcolours.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 1), pnlpinkcolours.ClientRectangle) + End Sub + + Private Sub pnlnewcolour_Paint(sender As Object, e As PaintEventArgs) Handles pnlnewcolour.Paint + e.Graphics.DrawRectangle(New Pen(Color.Black, 2), pnlnewcolour.ClientRectangle) + End Sub + + Private Sub colourselctiongray(sender As Object, e As MouseEventArgs) Handles pnlgray1.Click, pnlgray2.Click, pnlgray3.Click, pnlgray4.Click, pnlgray5.Click, pnlgray6.Click, pnlgray7.Click, pnlgray8.Click, pnlgray9.Click, pnlgray10.Click, pnlgray11.Click, pnlgray12.Click, pnlgray13.Click, pnlgray14.Click, pnlgray15.Click, pnlgray16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlgraycustomcolour.BackColor + savegraymemory() + End If + End Sub + + Private Sub colourselctionpurple(sender As Object, e As MouseEventArgs) Handles pnlpurple1.Click, pnlpurple2.Click, pnlpurple3.Click, pnlpurple4.Click, pnlpurple5.Click, pnlpurple6.Click, pnlpurple7.Click, pnlpurple8.Click, pnlpurple9.Click, pnlpurple10.Click, pnlpurple11.Click, pnlpurple12.Click, pnlpurple13.Click, pnlpurple14.Click, pnlpurple15.Click, pnlpurple16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlpurplecustomcolour.BackColor + savepurplememory() + End If + End Sub + + Private Sub colourselctionblue(sender As Object, e As MouseEventArgs) Handles pnlblue1.Click, pnlblue2.Click, pnlblue3.Click, pnlblue4.Click, pnlblue5.Click, pnlblue6.Click, pnlblue7.Click, pnlblue8.Click, pnlblue9.Click, pnlblue10.Click, pnlblue11.Click, pnlblue12.Click, pnlblue13.Click, pnlblue14.Click, pnlblue15.Click, pnlblue16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlbluecustomcolour.BackColor + savebluememory() + End If + End Sub + + Private Sub colourselctiongreen(sender As Object, e As MouseEventArgs) Handles pnlgreen1.Click, pnlgreen2.Click, pnlgreen3.Click, pnlgreen4.Click, pnlgreen5.Click, pnlgreen6.Click, pnlgreen7.Click, pnlgreen8.Click, pnlgreen9.Click, pnlgreen10.Click, pnlgreen11.Click, pnlgreen12.Click, pnlgreen13.Click, pnlgreen14.Click, pnlgreen15.Click, pnlgreen16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlgreencustomcolour.BackColor + savegreenmemory() + End If + End Sub + + Private Sub colourselctionyellow(sender As Object, e As MouseEventArgs) Handles pnlyellow1.Click, pnlyellow2.Click, pnlyellow3.Click, pnlyellow4.Click, pnlyellow5.Click, pnlyellow6.Click, pnlyellow7.Click, pnlyellow8.Click, pnlyellow9.Click, pnlyellow10.Click, pnlyellow11.Click, pnlyellow12.Click, pnlyellow13.Click, pnlyellow14.Click, pnlyellow15.Click, pnlyellow16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlyellowcustomcolour.BackColor + saveyellowmemory() + End If + End Sub + + Private Sub colourselctionorange(sender As Object, e As MouseEventArgs) Handles pnlorange1.Click, pnlorange2.Click, pnlorange3.Click, pnlorange4.Click, pnlorange5.Click, pnlorange6.Click, pnlorange7.Click, pnlorange8.Click, pnlorange9.Click, pnlorange10.Click, pnlorange11.Click, pnlorange12.Click, pnlorange13.Click, pnlorange14.Click, pnlorange15.Click, pnlorange16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlorangecustomcolour.BackColor + saveorangememory() + End If + End Sub + + Private Sub colourselctionbrown(sender As Object, e As MouseEventArgs) Handles pnlbrown1.Click, pnlbrown2.Click, pnlbrown3.Click, pnlbrown4.Click, pnlbrown5.Click, pnlbrown6.Click, pnlbrown7.Click, pnlbrown8.Click, pnlbrown9.Click, pnlbrown10.Click, pnlbrown11.Click, pnlbrown12.Click, pnlbrown13.Click, pnlbrown14.Click, pnlbrown15.Click, pnlbrown16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlbrowncustomcolour.BackColor + savebrownmemory() + End If + End Sub + + Private Sub colourselctionred(sender As Object, e As MouseEventArgs) Handles pnlred1.Click, pnlred2.Click, pnlred3.Click, pnlred4.Click, pnlred5.Click, pnlred6.Click, pnlred7.Click, pnlred8.Click, pnlred9.Click, pnlred10.Click, pnlred11.Click, pnlred12.Click, pnlred13.Click, pnlred14.Click, pnlred15.Click, pnlred16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlredcustomcolour.BackColor + saveredmemory() + End If + End Sub + + Private Sub colourselctionpink(sender As Object, e As MouseEventArgs) Handles pnlpink1.Click, pnlpink2.Click, pnlpink3.Click, pnlpink4.Click, pnlpink5.Click, pnlpink6.Click, pnlpink7.Click, pnlpink8.Click, pnlpink9.Click, pnlpink10.Click, pnlpink11.Click, pnlpink12.Click, pnlpink13.Click, pnlpink14.Click, pnlpink15.Click, pnlpink16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlpinkcustomcolour.BackColor + savepinkmemory() + End If + End Sub + + Private Sub colourselctionany(sender As Object, e As MouseEventArgs) Handles pnlany1.Click, pnlany2.Click, pnlany3.Click, pnlany4.Click, pnlany5.Click, pnlany6.Click, pnlany7.Click, pnlany8.Click, pnlany9.Click, pnlany10.Click, pnlany11.Click, pnlany12.Click, pnlany13.Click, pnlany14.Click, pnlany15.Click, pnlany16.Click + If e.Button = MouseButtons.Left Then + pnlnewcolour.BackColor = sender.backcolor + If pnlnewcolour.BackColor.IsNamedColor Then + If pnlnewcolour.BackColor.Name.Length > 12 Then + lblnewcolourname.Text = pnlnewcolour.BackColor.Name + Else + lblnewcolourname.Text = "Name: " & pnlnewcolour.BackColor.Name + End If + Else + lblnewcolourname.Text = "Name: Custom" + End If + lblnewcolourrgb.Text = "RGB: " & pnlnewcolour.BackColor.R & ", " & pnlnewcolour.BackColor.G & ", " & pnlnewcolour.BackColor.B + End If + If e.Button = Windows.Forms.MouseButtons.Right Then + sender.backcolor = pnlanycustomcolour.BackColor + saveanymemory() + End If + End Sub + + Private Sub txtcustomgrayshade_TextChanged(sender As Object, e As EventArgs) Handles txtcustomgrayshade.TextChanged + If txtcustomgrayshade.Text = "" Then + txtcustomgrayshade.Text = "0" + Else + If Convert.ToInt32(txtcustomgrayshade.Text) > 255 Then + txtcustomgrayshade.Text = "255" + Else + pnlgraycustomcolour.BackColor = Color.FromArgb(txtcustomgrayshade.Text, txtcustomgrayshade.Text, txtcustomgrayshade.Text) + End If + End If + End Sub + + Private Sub CheckForNumber(sender As Object, e As KeyPressEventArgs) Handles txtcustomgrayshade.KeyPress, txtpurplesblue.KeyPress, txtpurplesgreen.KeyPress, txtpurplesred.KeyPress, txtbluesblue.KeyPress, txtbluesgreen.KeyPress, txtbluesred.KeyPress, txtgreensblue.KeyPress, txtgreensgreen.KeyPress, txtgreensred.KeyPress, txtyellowsblue.KeyPress, txtyellowsgreen.KeyPress, txtyellowsred.KeyPress, txtorangesblue.KeyPress, txtorangesgreen.KeyPress, txtorangesred.KeyPress, txtbrownsblue.KeyPress, txtbrownsgreen.KeyPress, txtbrownsred.KeyPress, txtredsblue.KeyPress, txtredsgreen.KeyPress, txtredsred.KeyPress, txtpinksblue.KeyPress, txtpinksgreen.KeyPress, txtpinksred.KeyPress, txtanysblue.KeyPress, txtanysgreen.KeyPress, txtanysred.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 customcolourfailsafe() + If txtcustomgrayshade.Text = "" Then txtcustomgrayshade.Text = "0" + + If txtanysblue.Text = "" Then txtanysblue.Text = "0" + If txtanysred.Text = "" Then txtanysred.Text = "0" + If txtanysgreen.Text = "" Then txtanysgreen.Text = "0" + + If txtpurplesblue.Text = "" Then txtpurplesblue.Text = "255" + If txtpurplesred.Text = "" Then txtpurplesred.Text = "150" + If txtpurplesgreen.Text = "" Then txtpurplesgreen.Text = "0" + + If txtbluesblue.Text = "" Then txtbluesblue.Text = "255" + If txtbluesred.Text = "" Then txtbluesred.Text = "0" + If txtbluesgreen.Text = "" Then txtbluesgreen.Text = "0" + + If txtgreensblue.Text = "" Then txtgreensblue.Text = "0" + If txtgreensred.Text = "" Then txtgreensred.Text = "0" + If txtgreensgreen.Text = "" Then txtgreensgreen.Text = "255" + + If txtyellowsblue.Text = "" Then txtyellowsblue.Text = "0" + If txtyellowsred.Text = "" Then txtyellowsred.Text = "255" + If txtyellowsgreen.Text = "" Then txtyellowsgreen.Text = "255" + + If txtorangesblue.Text = "" Then txtorangesblue.Text = "0" + If txtorangesred.Text = "" Then txtorangesred.Text = "255" + If txtorangesgreen.Text = "" Then txtorangesgreen.Text = "60" + + If txtbrownsblue.Text = "" Then txtbrownsblue.Text = "0" + If txtbrownsred.Text = "" Then txtbrownsred.Text = "140" + If txtbrownsgreen.Text = "" Then txtbrownsgreen.Text = "60" + + If txtredsblue.Text = "" Then txtredsblue.Text = "0" + If txtredsred.Text = "" Then txtredsred.Text = "255" + If txtredsgreen.Text = "" Then txtredsgreen.Text = "0" + + If txtpinksblue.Text = "" Then txtpinksblue.Text = "150" + If txtpinksred.Text = "" Then txtpinksred.Text = "250" + If txtpinksgreen.Text = "" Then txtpinksgreen.Text = "0" + End Sub + + Private Sub txtpurplesgreen_TextChanged(sender As Object, e As EventArgs) Handles txtpurplesgreen.TextChanged, txtpurplesblue.TextChanged, txtpurplesred.TextChanged + On Error Resume Next + pnlpurplecustomcolour.BackColor = Color.FromArgb(txtpurplesred.Text, txtpurplesgreen.Text, txtpurplesblue.Text) + End Sub + + Private Sub pnlpurpleoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlpurpleoptions.MouseLeave, pnlpurpleoptions.MouseEnter, pnlpurplecolours.MouseEnter, pnlpurplecolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtpurplesblue.Text) > 255 Then + txtpurplesblue.Text = "255" + End If + If Convert.ToInt32(txtpurplesred.Text) > Convert.ToInt32(txtpurplesblue.Text) Then + txtpurplesred.Text = txtpurplesblue.Text + End If + If Convert.ToInt32(txtpurplesgreen.Text) > Convert.ToInt32(txtpurplesblue.Text) Then + txtpurplesgreen.Text = txtpurplesred.Text + End If + If Convert.ToInt32(txtpurplesgreen.Text) > Convert.ToInt32(txtpurplesred.Text) Then + txtpurplesgreen.Text = txtpurplesred.Text + End If + pnlpurplecustomcolour.BackColor = Color.FromArgb(txtpurplesred.Text, txtpurplesgreen.Text, txtpurplesblue.Text) + End Sub + + Private Sub txtbluesgreen_TextChanged(sender As Object, e As EventArgs) Handles txtbluesgreen.TextChanged, txtbluesblue.TextChanged, txtbluesred.TextChanged + On Error Resume Next + pnlbluecustomcolour.BackColor = Color.FromArgb(txtbluesred.Text, txtbluesgreen.Text, txtbluesblue.Text) + End Sub + + Private Sub pnlblueoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlblueoptions.MouseLeave, pnlblueoptions.MouseEnter, pnlbluecolours.MouseEnter, pnlbluecolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtbluesblue.Text) > 255 Then + txtbluesblue.Text = "255" + End If + If Convert.ToInt32(txtbluesgreen.Text) > Convert.ToInt32(txtbluesblue.Text) Then + txtbluesgreen.Text = txtbluesblue.Text + End If + If Convert.ToInt32(txtbluesred.Text) > Convert.ToInt32(txtbluesblue.Text) Then + txtbluesred.Text = txtbluesgreen.Text + End If + If Convert.ToInt32(txtbluesred.Text) > Convert.ToInt32(txtbluesgreen.Text) Then + txtbluesred.Text = txtbluesgreen.Text + End If + pnlbluecustomcolour.BackColor = Color.FromArgb(txtbluesred.Text, txtbluesgreen.Text, txtbluesblue.Text) + End Sub + + Private Sub txtgreensgreen_TextChanged(sender As Object, e As EventArgs) Handles txtgreensgreen.TextChanged, txtgreensblue.TextChanged, txtgreensred.TextChanged + On Error Resume Next + pnlgreencustomcolour.BackColor = Color.FromArgb(txtgreensred.Text, txtgreensgreen.Text, txtgreensblue.Text) + End Sub + + Private Sub pnlgreenoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlgreenoptions.MouseLeave, pnlgreenoptions.MouseEnter, pnlgreencolours.MouseEnter, pnlgreencolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtgreensgreen.Text) > 255 Then + txtgreensgreen.Text = "255" + End If + If Convert.ToInt32(txtgreensblue.Text) > Convert.ToInt32(txtgreensgreen.Text) Then + txtgreensblue.Text = txtgreensgreen.Text + End If + If Convert.ToInt32(txtgreensred.Text) > Convert.ToInt32(txtgreensgreen.Text) Then + txtgreensred.Text = txtgreensgreen.Text + End If + If Convert.ToInt32(txtgreensblue.Text) > Convert.ToInt32(txtgreensred.Text + 150) Then + txtgreensblue.Text = Convert.ToInt32(txtgreensred.Text + 150) + End If + If Convert.ToInt32(txtgreensred.Text) > Convert.ToInt32(txtgreensblue.Text + 150) Then + txtgreensred.Text = Convert.ToInt32(txtgreensblue.Text + 150) + End If + pnlgreencustomcolour.BackColor = Color.FromArgb(txtgreensred.Text, txtgreensgreen.Text, txtgreensblue.Text) + End Sub + + Private Sub txtyellowsred_TextChanged(sender As Object, e As EventArgs) Handles txtyellowsred.TextChanged, txtyellowsblue.TextChanged, txtyellowsgreen.TextChanged + On Error Resume Next + pnlyellowcustomcolour.BackColor = Color.FromArgb(txtyellowsred.Text, txtyellowsgreen.Text, txtyellowsblue.Text) + End Sub + + Private Sub pnlyellowoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlyellowoptions.MouseLeave, pnlyellowoptions.MouseEnter, pnlyellowcolours.MouseEnter, pnlyellowcolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtyellowsred.Text) > 255 Then + txtyellowsred.Text = "255" + End If + If Convert.ToInt32(txtyellowsred.Text) < 180 Then + txtyellowsred.Text = "180" + End If + If Convert.ToInt32(txtyellowsgreen.Text) > Convert.ToInt32(txtyellowsred.Text) Then + txtyellowsgreen.Text = txtyellowsred.Text + End If + If Convert.ToInt32(txtyellowsgreen.Text) < Convert.ToInt32(txtyellowsred.Text - 30) Then + txtyellowsgreen.Text = Convert.ToInt32(txtyellowsred.Text - 30) + End If + If Convert.ToInt32(txtyellowsblue.Text) > Convert.ToInt32(txtyellowsgreen.Text) Then + txtyellowsblue.Text = txtyellowsgreen.Text + End If + pnlyellowcustomcolour.BackColor = Color.FromArgb(txtyellowsred.Text, txtyellowsgreen.Text, txtyellowsblue.Text) + End Sub + + Private Sub txtorangesred_TextChanged(sender As Object, e As EventArgs) Handles txtorangesred.TextChanged, txtorangesblue.TextChanged, txtorangesgreen.TextChanged + On Error Resume Next + pnlorangecustomcolour.BackColor = Color.FromArgb(txtorangesred.Text, txtorangesgreen.Text, txtorangesblue.Text) + End Sub + + Private Sub pnlorangeoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlorangeoptions.MouseLeave, pnlorangeoptions.MouseEnter, pnlorangecolours.MouseEnter, pnlyellowcolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtorangesred.Text) > 255 Then + txtorangesred.Text = "255" + End If + If Convert.ToInt32(txtorangesred.Text) < 255 Then + txtorangesred.Text = "255" + End If + If Convert.ToInt32(txtorangesgreen.Text) > Convert.ToInt32(txtorangesred.Text - 100) Then + txtorangesgreen.Text = Convert.ToInt32(txtorangesred.Text - 100) + End If + If Convert.ToInt32(txtorangesgreen.Text) < 30 Then + txtorangesgreen.Text = "30" + End If + If Convert.ToInt32(txtorangesblue.Text) > Convert.ToInt32(txtorangesgreen.Text - 30) Then + txtorangesblue.Text = Convert.ToInt32(txtorangesgreen.Text - 30) + End If + pnlorangecustomcolour.BackColor = Color.FromArgb(txtorangesred.Text, txtorangesgreen.Text, txtorangesblue.Text) + End Sub + + Private Sub txtbrownsred_TextChanged(sender As Object, e As EventArgs) Handles txtbrownsred.TextChanged, txtbrownsblue.TextChanged, txtbrownsgreen.TextChanged + On Error Resume Next + pnlbrowncustomcolour.BackColor = Color.FromArgb(txtbrownsred.Text, txtbrownsgreen.Text, txtbrownsblue.Text) + End Sub + + Private Sub pnlbrownoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlbrownoptions.MouseLeave, pnlbrownoptions.MouseEnter, pnlbrowncolours.MouseEnter, pnlbrowncolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtbrownsred.Text) > 255 Then + txtbrownsred.Text = "255" + End If + If Convert.ToInt32(txtbrownsred.Text) < 90 Then + txtbrownsred.Text = "90" + End If + If Convert.ToInt32(txtbrownsgreen.Text) > Convert.ToInt32(txtbrownsred.Text - 30) Then + txtbrownsgreen.Text = Convert.ToInt32(txtbrownsred.Text - 30) + End If + If Convert.ToInt32(txtbrownsgreen.Text) < Convert.ToInt32(txtbrownsred.Text - 128) Then + txtbrownsgreen.Text = Convert.ToInt32(txtbrownsred.Text - 128) + End If + If Convert.ToInt32(txtbrownsgreen.Text) < 60 Then + txtbrownsgreen.Text = "60" + End If + If Convert.ToInt32(txtbrownsblue.Text) > Convert.ToInt32(txtbrownsgreen.Text - 60) Then + txtbrownsblue.Text = Convert.ToInt32(txtbrownsgreen.Text - 60) + End If + pnlbrowncustomcolour.BackColor = Color.FromArgb(txtbrownsred.Text, txtbrownsgreen.Text, txtbrownsblue.Text) + End Sub + + Private Sub txtsred_TextChanged(sender As Object, e As EventArgs) Handles txtredsred.TextChanged, txtredsblue.TextChanged, txtredsgreen.TextChanged + On Error Resume Next + pnlredcustomcolour.BackColor = Color.FromArgb(txtredsred.Text, txtredsgreen.Text, txtredsblue.Text) + End Sub + + Private Sub pnlredoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlredoptions.MouseLeave, pnlredoptions.MouseEnter, pnlredcolours.MouseEnter, pnlbrowncolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtredsred.Text) > 255 Then + txtredsred.Text = "255" + End If + If Convert.ToInt32(txtredsblue.Text) > Convert.ToInt32(txtredsred.Text - 80) Then + txtredsblue.Text = Convert.ToInt32(txtredsred.Text - 80) + End If + If Convert.ToInt32(txtredsgreen.Text) > Convert.ToInt32(txtredsred.Text - 80) Then + txtredsgreen.Text = Convert.ToInt32(txtredsred.Text - 80) + End If + If Convert.ToInt32(txtredsgreen.Text) > Convert.ToInt32(txtredsblue.Text + 50) Then + txtredsgreen.Text = Convert.ToInt32(txtredsblue.Text + 50) + End If + If Convert.ToInt32(txtredsblue.Text) > Convert.ToInt32(txtredsgreen.Text + 50) Then + txtredsblue.Text = Convert.ToInt32(txtredsgreen.Text + 50) + End If + pnlredcustomcolour.BackColor = Color.FromArgb(txtredsred.Text, txtredsgreen.Text, txtredsblue.Text) + End Sub + + Private Sub txtpinksred_TextChanged(sender As Object, e As EventArgs) Handles txtpinksred.TextChanged, txtpinksblue.TextChanged, txtpinksgreen.TextChanged + On Error Resume Next + pnlpinkcustomcolour.BackColor = Color.FromArgb(txtpinksred.Text, txtpinksgreen.Text, txtpinksblue.Text) + End Sub + + Private Sub pnlpinkoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlpinkoptions.MouseLeave, pnlpinkoptions.MouseEnter, pnlpinkcolours.MouseEnter, pnlpinkcolours.MouseLeave + customcolourfailsafe() + If Convert.ToInt32(txtpinksred.Text) > 255 Then + txtpinksred.Text = "255" + End If + If Convert.ToInt32(txtpinksblue.Text) > Convert.ToInt32(txtpinksred.Text - 50) Then + txtpinksblue.Text = Convert.ToInt32(txtpinksred.Text - 50) + End If + If Convert.ToInt32(txtpinksgreen.Text) > Convert.ToInt32(txtpinksblue.Text) Then + txtpinksgreen.Text = Convert.ToInt32(txtpinksblue.Text) + End If + pnlpinkcustomcolour.BackColor = Color.FromArgb(txtpinksred.Text, txtpinksgreen.Text, txtpinksblue.Text) + End Sub + + Private Sub txtanysred_TextChanged(sender As Object, e As EventArgs) Handles txtanysred.TextChanged, txtanysblue.TextChanged, txtanysgreen.TextChanged + On Error Resume Next + pnlanycustomcolour.BackColor = Color.FromArgb(txtanysred.Text, txtanysgreen.Text, txtanysblue.Text) + End Sub + + Private Sub pnlanyoptions_MouseLeave(sender As Object, e As EventArgs) Handles pnlanyoptions.MouseLeave, pnlanyoptions.MouseEnter, pnlanycolours.MouseEnter, pnlanycolours.MouseLeave + customcolourfailsafe() + Select Case anylevel + Case 1 + If Convert.ToInt32(txtanysred.Text) > 150 Then + txtanysred.Text = "150" + End If + If Convert.ToInt32(txtanysred.Text) < 100 Then + txtanysred.Text = "100" + End If + If Convert.ToInt32(txtanysblue.Text) > 150 Then + txtanysblue.Text = "150" + End If + If Convert.ToInt32(txtanysblue.Text) < 100 Then + txtanysblue.Text = "100" + End If + If Convert.ToInt32(txtanysgreen.Text) > 150 Then + txtanysgreen.Text = "150" + End If + If Convert.ToInt32(txtanysgreen.Text) < 100 Then + txtanysgreen.Text = "100" + End If + Case 2 + If Convert.ToInt32(txtanysred.Text) > 200 Then + txtanysred.Text = "200" + End If + If Convert.ToInt32(txtanysred.Text) < 100 Then + txtanysred.Text = "100" + End If + If Convert.ToInt32(txtanysblue.Text) > 200 Then + txtanysblue.Text = "200" + End If + If Convert.ToInt32(txtanysblue.Text) < 100 Then + txtanysblue.Text = "100" + End If + If Convert.ToInt32(txtanysgreen.Text) > 200 Then + txtanysgreen.Text = "200" + End If + If Convert.ToInt32(txtanysgreen.Text) < 100 Then + txtanysgreen.Text = "100" + End If + Case 3 + If Convert.ToInt32(txtanysred.Text) > 225 Then + txtanysred.Text = "225" + End If + If Convert.ToInt32(txtanysred.Text) < 75 Then + txtanysred.Text = "75" + End If + If Convert.ToInt32(txtanysblue.Text) > 225 Then + txtanysblue.Text = "225" + End If + If Convert.ToInt32(txtanysblue.Text) < 75 Then + txtanysblue.Text = "75" + End If + If Convert.ToInt32(txtanysgreen.Text) > 225 Then + txtanysgreen.Text = "225" + End If + If Convert.ToInt32(txtanysgreen.Text) < 75 Then + txtanysgreen.Text = "75" + End If + Case 4 + If Convert.ToInt32(txtanysred.Text) > 255 Then + txtanysred.Text = "255" + End If + If Convert.ToInt32(txtanysred.Text) < 0 Then + txtanysred.Text = "0" + End If + If Convert.ToInt32(txtanysblue.Text) > 255 Then + txtanysblue.Text = "255" + End If + If Convert.ToInt32(txtanysblue.Text) < 0 Then + txtanysblue.Text = "0" + End If + If Convert.ToInt32(txtanysgreen.Text) > 255 Then + txtanysgreen.Text = "255" + End If + If Convert.ToInt32(txtanysgreen.Text) < 0 Then + txtanysgreen.Text = "0" + End If + End Select + pnlanycustomcolour.BackColor = Color.FromArgb(txtanysred.Text, txtanysgreen.Text, txtanysblue.Text) + End Sub + + Private Sub pnlgraycustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlgraycustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Gray Rules" + infobox.textinfo = "You must input a value between 0 (black) and 255 (white) to form a shade of gray." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Gray Memory Wiped" + infobox.textinfo = "All your custom shades of Gray have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.graymemory, 0, ShiftOSDesktop.graymemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlpurplecustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlpurplecustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Purple Rules" + infobox.textinfo = "Blue must have the highest value followed by red. Green must then have the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Purple Memory Wiped" + infobox.textinfo = "All your custom shades of Purple have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.purplememory, 0, ShiftOSDesktop.purplememory.Length) + setupboughtcolours() + loadmemory() + End If + + End Sub + + Private Sub pnlbluecustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlbluecustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Blue Rules" + infobox.textinfo = "Blue must have the highest value followed by green. Red must then have the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Blue Memory Wiped" + infobox.textinfo = "All your custom shades of Blue have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.bluememory, 0, ShiftOSDesktop.bluememory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlgreencustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlgreencustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Green Rules" + infobox.textinfo = "Green must have the highest value. Red and Blue need to have values within 150 of eachother." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Green Memory Wiped" + infobox.textinfo = "All your custom shades of Green have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.greenmemory, 0, ShiftOSDesktop.greenmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlyellowcustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlyellowcustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Yellow Rules" + infobox.textinfo = "Red must have the highest value and be over 180. Green must be within 30 values of red. Blue must be the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Yellow Memory Wiped" + infobox.textinfo = "All your custom shades of Yellow have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.yellowmemory, 0, ShiftOSDesktop.yellowmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlorangecustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlorangecustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Orange Rules" + infobox.textinfo = "Red must have a value of 255. Green must be 100 or more values less than red. Blue must be 30 or more values less than green." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Orange Memory Wiped" + infobox.textinfo = "All your custom shades of Orange have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.orangememory, 0, ShiftOSDesktop.orangememory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlbrowncustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlbrowncustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Brown Rules" + infobox.textinfo = "Red must have the highest value. Green must be 30 - 128 values lower than red. Blue must be 60 or more values less than green." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Brown Memory Wiped" + infobox.textinfo = "All your custom shades of Brown have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.brownmemory, 0, ShiftOSDesktop.brownmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlredcustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlredcustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Red Rules" + infobox.textinfo = "Red must have the highest value. Green and blue must be 80 or more values less than red but within 50 values of eachother." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Red Memory Wiped" + infobox.textinfo = "All your custom shades of Red have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.redmemory, 0, ShiftOSDesktop.redmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlpinkcustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlpinkcustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + infobox.title = "Pink Rules" + infobox.textinfo = "Red must have the highest value. Blue must be 50 or more values less than red. Green must have the lowest value." & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Pink Memory Wiped" + infobox.textinfo = "All your custom shades of Pink have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.pinkmemory, 0, ShiftOSDesktop.pinkmemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub pnlanycustomcolour_Click(sender As Object, e As MouseEventArgs) Handles pnlanycustomcolour.Click + If e.Button = Windows.Forms.MouseButtons.Left Then + Select Case anylevel + Case 1 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 100 and 150" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + Case 2 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 100 and 200" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + Case 3 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 75 and 225" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + Case 4 + infobox.title = "Custom Rules" + infobox.textinfo = "Red, Green and Blue may be set to any value between 0 and 255" & Environment.NewLine & Environment.NewLine & "Right click a box on the left to use this colour." + infobox.Show() + End Select + End If + + If e.Button = Windows.Forms.MouseButtons.Right Then + infobox.title = "Custom Colour Memory Wiped" + infobox.textinfo = "All your custom colour shades of have been wiped from memory." & Environment.NewLine & Environment.NewLine & "You can set custom colours but right clicking any of the boxes on the left." + infobox.Show() + Array.Clear(ShiftOSDesktop.anymemory, 0, ShiftOSDesktop.anymemory.Length) + setupboughtcolours() + loadmemory() + End If + End Sub + + Private Sub rollupbutton_MouseEnter(sender As Object, e As MouseEventArgs) Handles rollupbutton.MouseUp + + End Sub + + Private Sub rollupbutton_MouseDown(sender As Object, e As MouseEventArgs) Handles rollupbutton.MouseDown + + End Sub +End Class \ No newline at end of file diff --git a/CustomColorTable.vb b/CustomColorTable.vb new file mode 100644 index 0000000..2818bbd --- /dev/null +++ b/CustomColorTable.vb @@ -0,0 +1,330 @@ +' +' This code was generated by the .NET ToolStrip Customizer. +' http://toolstripcustomizer.codeplex.com/ +' + +Imports System.Drawing +Imports System.Windows.Forms + +Namespace MyNamespace + Class CustomColorTable + Inherits ProfessionalColorTable + Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color + Get + Return ButtonSelectedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlight() As Color + Get + Return ButtonPressedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color + Get + Return ButtonPressedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color + Get + Return ButtonCheckedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckSelectedBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckPressedBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripDark() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripLight() As Color + Get + Return Color.FromName("White") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color + Get + Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color + Get + Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color + Get + Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientBegin() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientEnd() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelected() As Color + Get + Return Color.FromArgb(ShiftOSDesktop.applaunchermouseovercolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property MenuItemBorder() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuBorder() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color + Get + 'remember this is for clicking the button, the below must be changed in the future + If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttonclickedcolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttonclickedcolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color + Get + If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then + Return Color.FromArgb(ShiftOSDesktop.applauncherbuttonclickedcolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property SeparatorDark() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property SeparatorLight() As Color + Get + Return Color.FromName("ButtonHighlight") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property ToolStripBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color + Get + Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color + Get + Return Color.FromArgb(255, 242, 242, 242) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + End Class +End Namespace \ No newline at end of file diff --git a/Downloader.Designer.vb b/Downloader.Designer.vb new file mode 100644 index 0000000..ae8db03 --- /dev/null +++ b/Downloader.Designer.vb @@ -0,0 +1,237 @@ + _ +Partial Class Downloader + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 170) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(479, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 140) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(481, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 142) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(133, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Downloader" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(481, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 140) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(479, 140) + Me.pgcontents.TabIndex = 20 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 142) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(483, 30) + Me.titlebar.TabIndex = 19 + ' + 'Downloader + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(483, 172) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Downloader" + Me.Text = "Downloader" + Me.TopMost = True + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel +End Class diff --git a/Downloader.resx b/Downloader.resx new file mode 100644 index 0000000..ff4c820 --- /dev/null +++ b/Downloader.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1347, 18 + + + 1441, 18 + + + 1525, 18 + + \ No newline at end of file diff --git a/Downloader.vb b/Downloader.vb new file mode 100644 index 0000000..75a32e6 --- /dev/null +++ b/Downloader.vb @@ -0,0 +1,392 @@ +Public Class Downloader + 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 'replace with minimum size + Public minimumsizeheight As Integer = 0 'replace with minimum size + + 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() + + ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(800, 600) '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.knowledgeinputname 'Remember to change to name of program!!!! + 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.knowledgeinputicontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 +End Class \ No newline at end of file diff --git a/File Opener.Designer.vb b/File Opener.Designer.vb new file mode 100644 index 0000000..60da916 --- /dev/null +++ b/File Opener.Designer.vb @@ -0,0 +1,406 @@ + _ +Partial Class File_Opener + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(File_Opener)) + Me.scaninput = New System.Windows.Forms.Timer(Me.components) + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.lvfiles = New System.Windows.Forms.ListView() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.pnlopenoptions = New System.Windows.Forms.Panel() + Me.btncancel = New System.Windows.Forms.Button() + Me.btnopen = New System.Windows.Forms.Button() + Me.lbextention = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lbllocation = New System.Windows.Forms.Label() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnlopenoptions.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'scaninput + ' + Me.scaninput.Interval = 500 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(111, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "File Opener" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.lvfiles) + Me.pgcontents.Controls.Add(Me.Panel3) + Me.pgcontents.Controls.Add(Me.pnlopenoptions) + Me.pgcontents.Controls.Add(Me.Panel2) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(596, 345) + Me.pgcontents.TabIndex = 25 + ' + 'lvfiles + ' + Me.lvfiles.BackColor = System.Drawing.Color.White + Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.lvfiles.LargeImageList = Me.ImageList1 + Me.lvfiles.Location = New System.Drawing.Point(0, 33) + Me.lvfiles.Name = "lvfiles" + Me.lvfiles.Size = New System.Drawing.Size(596, 268) + Me.lvfiles.TabIndex = 3 + Me.lvfiles.UseCompatibleStateImageBehavior = False + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.Black + Me.Panel3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel3.ForeColor = System.Drawing.Color.Black + Me.Panel3.Location = New System.Drawing.Point(0, 301) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(596, 2) + Me.Panel3.TabIndex = 11 + ' + 'pnlopenoptions + ' + Me.pnlopenoptions.Controls.Add(Me.btncancel) + Me.pnlopenoptions.Controls.Add(Me.btnopen) + Me.pnlopenoptions.Controls.Add(Me.lbextention) + Me.pnlopenoptions.Controls.Add(Me.Label1) + Me.pnlopenoptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlopenoptions.Location = New System.Drawing.Point(0, 303) + Me.pnlopenoptions.Name = "pnlopenoptions" + Me.pnlopenoptions.Size = New System.Drawing.Size(596, 42) + Me.pnlopenoptions.TabIndex = 10 + ' + 'btncancel + ' + Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncancel.Location = New System.Drawing.Point(433, 6) + Me.btncancel.Name = "btncancel" + Me.btncancel.Size = New System.Drawing.Size(75, 29) + Me.btncancel.TabIndex = 4 + Me.btncancel.Text = "Cancel" + Me.btncancel.UseVisualStyleBackColor = True + ' + 'btnopen + ' + Me.btnopen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnopen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnopen.Location = New System.Drawing.Point(514, 6) + Me.btnopen.Name = "btnopen" + Me.btnopen.Size = New System.Drawing.Size(75, 29) + Me.btnopen.TabIndex = 3 + Me.btnopen.Text = "Open" + Me.btnopen.UseVisualStyleBackColor = True + ' + 'lbextention + ' + Me.lbextention.AutoSize = True + Me.lbextention.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbextention.Location = New System.Drawing.Point(366, 3) + Me.lbextention.Name = "lbextention" + Me.lbextention.Size = New System.Drawing.Size(51, 31) + Me.lbextention.TabIndex = 2 + Me.lbextention.Text = ".txt" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 13) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(360, 16) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Currently displaying files to open with the following extention:" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.Black + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 31) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(596, 2) + Me.Panel2.TabIndex = 5 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.lbllocation) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(596, 31) + Me.Panel1.TabIndex = 4 + ' + 'lbllocation + ' + Me.lbllocation.BackColor = System.Drawing.Color.White + Me.lbllocation.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbllocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbllocation.ForeColor = System.Drawing.Color.Black + Me.lbllocation.Location = New System.Drawing.Point(0, 0) + Me.lbllocation.Name = "lbllocation" + Me.lbllocation.Size = New System.Drawing.Size(596, 31) + Me.lbllocation.TabIndex = 0 + Me.lbllocation.Text = "C:/ShiftOS/" + Me.lbllocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(598, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 347) + Me.pgright.TabIndex = 27 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 345) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 345) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 347) + Me.pgleft.TabIndex = 26 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 375) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(596, 2) + Me.pgbottom.TabIndex = 28 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(600, 30) + Me.titlebar.TabIndex = 24 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 25 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconFileOpener + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "folder.png") + Me.ImageList1.Images.SetKeyName(1, "unknown.png") + Me.ImageList1.Images.SetKeyName(2, "textfile.png") + Me.ImageList1.Images.SetKeyName(3, "imagefile.png") + Me.ImageList1.Images.SetKeyName(4, "videofile.png") + Me.ImageList1.Images.SetKeyName(5, "folderup.png") + Me.ImageList1.Images.SetKeyName(6, "philips dll.png") + Me.ImageList1.Images.SetKeyName(7, "philips exe.png") + Me.ImageList1.Images.SetKeyName(8, "config.png") + Me.ImageList1.Images.SetKeyName(9, "driver.png") + Me.ImageList1.Images.SetKeyName(10, "skinfile.png") + Me.ImageList1.Images.SetKeyName(11, "namelistfile.png") + Me.ImageList1.Images.SetKeyName(12, "iconpackfile.png") + ' + 'File_Opener + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(600, 377) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(400, 177) + Me.Name = "File_Opener" + Me.Text = "File_Opener" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnlopenoptions.ResumeLayout(False) + Me.pnlopenoptions.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents scaninput As System.Windows.Forms.Timer + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents lvfiles As System.Windows.Forms.ListView + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lbllocation As System.Windows.Forms.Label + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents pnlopenoptions As System.Windows.Forms.Panel + Friend WithEvents btncancel As System.Windows.Forms.Button + Friend WithEvents btnopen As System.Windows.Forms.Button + Friend WithEvents lbextention As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList +End Class diff --git a/File Opener.resx b/File Opener.resx new file mode 100644 index 0000000..97375e8 --- /dev/null +++ b/File Opener.resx @@ -0,0 +1,322 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 348, 12 + + + 1638, 18 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU + KgAAAk1TRnQBSQFMAgEBDQEAASgBAQEoAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABqAMAAagDAAEBAQABCAUAAUABbhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc + AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA + AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz + AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA + AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA + AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm + AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA + ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz + AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz + AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz + AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ + AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm + AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM + Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ + AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ + AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA + ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/ + ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ + AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA + AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA + AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA + AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ + AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA + AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/ + AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/ + ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/ + AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA + AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AKQAKP+AACj/ + gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAC/wvsA/8BAATs + AQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAD/wvsA/8BAALs + AQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP+AAAP/C+wE/wIABv8CAAb/ + AgAE/4AAEf8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AAAL/C+wD/wEABOwBAAL/AQAE7AEAAv8BAATs + AQAC/4AAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALs + AQAD/4AAEv8CAAb/AgAG/wIABP+AACj/gAAo/4AAA/8L7AT/AgAG/wIABv8CAAT/gAAR/wEAAuwBAAT/ + AQAC7AEABP8BAALsAQAD/4AAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAQ/wEABOwBAAL/ + AQAE7AEAAv8BAATsAQAC/4AAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAS/wIABv8CAAb/ + AgAE/4AAKP+AACj/gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/ + gAAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/ + gAAD/wvsA/8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP//AP8A + /wDPACH/CQAh/zMAIf8JAAX/CuwS/wkAIf8zACH/CQAE/wzsEf8JACH/MwAh/wkAA/8D7AgAA+wQ/wkA + A/8bAAP/MwAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8BAAPsD/8JAAP/AQAZ7AEAA/8zAA//AewN/wHs + A/8JAAH/A+wBAAH/CAAB/wEAA+wO/wkAA/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAH/AuwBAAH/ + AgAB/wQAAf8CAAH/AQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAKP8GAA//D+wD/wkAAf8C7AMAAf8GAAH/ + AwAC7A7/CQAD/wEAGewBAAP/BQAo/wYAIf8JAAH/AuwFAAH/AgAB/wUAAuwO/wkAA/8BAALsFf8C7AEA + A/8FAAL/JAAC/wYABP8H7AT/D+wD/wkAAf8C7AYAAv8GAAvsBf8JAAP/AQAZ7AEAA/8FAAL/JAAC/wYA + D/8B7A3/AewD/wkAAf8C7AUAAf8CAAH/BQAM7AT/CQAD/wEAAuwV/wLsAQAD/wUAAv8OAAb/AQAG/wEA + Bv8CAAL/BgAD/wfsBf8B7A3/AewD/wkAAf8C7AMAAf8GAAH/AgAD7AgAA+wD/wkAA/8BABnsAQAD/wUA + Av8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/w/sA/8JAAH/AuwBAAH/AgAB/wQAAf8CAAPs + AQAB/wYAAf8BAAPsAv8JAAP/AQAE7BH/BOwBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA + Av8GACH/CQAB/wPsAQAB/wgAA+wBAAH/CAAB/wEAA+wB/wkAA/8BABnsAQAD/wUAAv8OAAH/BAAB/wEA + Af8EAAH/AQAB/wQAAf8CAAL/BgAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8C7AEAAf8CAAH/BAAB/wIA + Af8BAALsAf8JAAP/AQAZ7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAD/8B7A3/ + AewD/wkAA/8D7AgAAuwDAAH/BgAB/wMAAuwB/wkAA/8bAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/ + B+wF/wHsDf8B7AP/CQAE/wzsBQAB/wIAAf8FAALsAf8JAA7/BQAO/wUAAv8kAAL/BgAP/w/sA/8JAAX/ + C+wGAAL/BgAC7AH/CQAP/wPsD/8FAAL/JAAC/wYAIf8JAA7/AuwFAAH/AgAB/wUAAuwB/wkAIf8FACj/ + BgAE/wfsBP8P7AP/CQAO/wLsAwAB/wYAAf8DAALsAf8JAAP/CwAF/wsAA/8FACj/BgAP/wHsDf8B7AP/ + CQAO/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BAAvsA/8L7AEAA/8FACj/BgAD/wfsBf8B7A3/ + AewD/wkADv8D7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAo/wYAD/8P7AP/CQAJ/wnsAQAB/wYA + Af8BAAPsAv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAIf8JAAj/C+wIAAPsA/8JAAP/AQAE7BH/BOwBAAP/ + BQAC/yTsAv8GAAT/B+wE/w/sA/8JAAf/A+wHAAzsBP8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHsBgAB7AYA + AuwC/wYAD/8B7A3/AewD/wkABv8D7AEAAf8GAAH/CuwF/wkAA/8BAALsFf8C7AEAA/8FAAL/DuwGAAHs + BgAB7AYAAuwC/wYAA/8H7AX/AewN/wHsA/8JAAX/A+wBAAH/CAAB/wEAA+wK/wkAA/8BABnsAQAD/wUA + Av8O7AYAAewGAAHsBgAC7AL/BgAP/w/sA/8JAAX/AuwBAAH/AgAB/wQAAf8CAAH/AQAC7Ar/CQAD/wEA + AuwVAALsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAh/wkABf8C7AMAAf8GAAH/AwAC7Ar/CQAD/wEA + GewBAAP/BQAC/w7sBgAB7AYAAewGAALsAv8GAAT/B+wE/w/sA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA + A/8BAALsFQAC7AEAA/8FAAL/DuwGAAHsBgAB7AYAAuwC/wYAD/8B7A3/AewD/wkABf8C7AYAAv8GAALs + Cv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAA/8H7AX/AewN/wHsA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA + A/8BAALsFQAC7AEAA/8FAAL/JOwC/wYAD/8P7AP/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEA + A/8FACj/BgAh/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAo/wYA + BP8H7AT/D+wD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/MwAP/wHsDf8B7AP/CQAG/wPs + AQAB/wYAAf8BAAPsC/8JAAP/AQAZ7AEAA/8zAAP/B+wF/wHsDf8B7AP/CQAH/wPsCAAD7Az/CQAD/xsA + A/8zAA//D+wD/wkACP8M7A3/CQAh/zMAIf8JAAn/CuwO/wkAIf8zACH/CQAh/wkAIf8zACH//wCsAAH0 + Ie8BBwHyAf8FAAH0Ie8BBwHyAf9ZAAHyAQABQx4VARABEQG8AfQFAAHyFQAGDgYAAREBvAH0WQAB8gEO + AfcevAHsARUBvAH0BQAB8hQAAQ4BFQEUAhMBFAERAQ4EAAEOARUBvAH0LQAo7AQAAfIBDgH3HrwB7AEV + AbwB9AUAAfIUAAFDAfcBBwLvAfcBbQEQBAABDgEVAbwB9C0AD+wKAA/sBAAB8gEOAfcevAHsARUBvAH0 + BQAB8hQAAUMBBwHvAewBEgETAUMBDgQAAQ4BFQG8AfQtAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AfcU7AHv + BLwB7AEVAbwB9AUAAfIDAAEODEMBEAMAAUMBBwHtARUIAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQA + AfIBDgH3BLwBExEOAwAB7AS8AewBFQG8AfQFAAHyAwABEQzsAW0DAAFDAQcBkgETAQ8BDgYAAQ4BFQG8 + AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETARQP7wETAwAB7AS8AewBFQG8AfQFAAHyBAABDgEQ + CREBEAEOAwABQwEHAvIB8QEHARAFAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8 + AeoDAAHsBLwB7AEVAbwB9AUAAfIEAAEOAesJ7AEVBAABQwEHAe8B7AFtAeoBDgUAAQ4BFQG8AfQDACj/ + AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITDrwB7AFDAwABEwGSA7wB7AEVAbwB9AUAAfIEAAEOAe8CvAEH + BewB9wHqBAABQwEHAZIBEwIPAQ4FAAEOARUBvAH0AwAP/wEAGP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8 + AhMNvAEHARUBDgMAAQ4B6gO8AewBFQG8AfQFAAHyBAABDgHvArwB7wIOAg8BAAHsAeoEAAFDAQcB7wHr + ARIBEwEQAQ4EAAEOARUBvAH0AwAP/wIAF/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMOvAEHARIDAAHr + AQcDvAHsARUBvAH0BQAB8gQAAQ4B7wK8Ae8BDgHsAQcB7QEOAewB6gQAAREBkgHvAQcC7wEUAQ4EAAEO + ARUBvAH0AwAP/wMAFv8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMPvAH3AeoBDgHrAe8EvAHsARUBvAH0 + BQAB8gQAAQ4B7wHsARQBFQEAAREBFAFDAQAB7AHqBAABDgFDARUCFAEVAQ8FAAEOARUBvAH0AwAP/wQA + Ff8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAHsAesB7Ae8AfcBbQEHBbwB7AEVAbwB9AUAAfIEAAEO + Ae8BEwEQAuoBDwEQAuoBkgHqEAABDgEVAbwB9AMAD/8FABT/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAIT + BrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B7wETARUC9wEVARICvAEHAeoCAAEODA8BDgEAAUMBvAH0 + AwAP/wYAE/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8AfQFAAHyBAABDgHv + ARMBAAIOAQABEgK8AQcB6gIAAesM7QFDAQABEQG8AfQDAA//BwAS/wIAD+wBAAj/AQAP7AQAAfIBDgH3 + BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAu8E7QHvArwBBwHqAgABEAFDChUBEQEOAQABEQG8 + AfQDAA//CAAR/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEO + AeoJbQFDAwABFQltARIBDgIAAREBvAH0AwAP/wkAEP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMBBwH3 + BJIBEQEAARAFkgH3AQcIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAA/s + AQAI/wEAD+wEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAER + AbwB9AMAD/8KAA//AgAK7AYACP8HAAnsBAAB8gEOAfcEvAITAe8BDgwAAREB7Ai8AewBFQG8AfQFAAHy + EwABbQH3BkMB7QEHAZIBDgIAAREBvAH0AwAP/wkAEP8CAArsAQAT/wEACewEAAHyAQ4B9wS8AhMB7wEO + DAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAe8GbQH3AQcBkgEOAgABEQG8AfQDAA//CAAR/wIAC+wBABH/ + AQAK7AQAAfIBDgH3AbwBBwLtAkMB7AEODAABDwFtBO0B9wO8AewBFQG8AfQFAAHyEwABbQi8AQcBkgEO + AgABEQG8AfQDAA//BwAS/wIADOwBAA//AQAL7AQAAfIBDgH3AbwB7BgAARMDvAHsARUBvAH0BQAB8gQA + DA4DAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8GABP/AgAN7AEADf8BAAzsBAAB8gEOAfcBvAHsGAABEwO8 + AewBFQG8AfQFAAHyAwABEQzsAeoCAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8FABT/AgAO7AEAC/8BAA3s + BAAB8gEOAfcBvAHvBOsBbQEODAABDwETBOsB7QO8AewBFQG8AfQFAAHyAwABDgEUCxMBQwIAAW0IvAEH + AZIBDgIAAUMBvAH0AwAP/wQAFf8CAA/sAQAJ/wEADuwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8 + AfQFAAHyBAABDgEUCBIBEwERAwABFAnsAW0BDgEAAQ4BFQG8AfQDAA//AwAW/wIAEOwBAAf/AQAP7AQA + AfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOAe8CBwW8AQcB7wHqEAABDgEVAbwB9AMA + D/8CABf/AgAR7AEABf8BABDsBAAB8gEOAfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wFt + AeoEvAHvARAB7AHqBgABEAFDAxUBEQEOAwABDgEVAbwB9AMAD/8BABj/AgAS7AEAA/8BABHsBAAB8gEO + AfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wGSAW0B6gEHAbwB7QESAewB9wHqBgAB6wKS + Au0BbQERAwABDgEVAbwB9AMAKP8CABPsAQAB/wEAEuwEAAHyAQ4B9wa8AQcB6gQTAQ4DAAEVAxMBbQH3 + CLwB7AEVAbwB9AUAAfIEAAEOAe8BvAGSARIC7AJtAgcB6gUAAQ4BkgEHAfcC6wESARADAAEOARUBvAH0 + AwAo/wIAFOwBABPsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwBBwGSAREBDwHq + Ae8BvAEHAeoFAAEOApIB6gcAAQ4BFQG8AfQDACj/AgAo7AQAAfIBDgH3DLwBFQMAAZINvAHsARUBvAH0 + BQAB8gQAAQ4B7wG8AewBEQHvAQcB6wFDAgcB6gUAAQ4CkgHqBwABDgEVAbwB9AMAKP8CACjsBAAB8gEO + AfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAewB6gHtAQcBvAHvAewBFAHtAeoFAAEOAZICvALv + ARQEAAEOARUBvAH0WQAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAuwEvAHvAeoBkgHq + BQABDgGSAgcC7QEVBAABDgEVAbwB9C0AD+wdAAHyAQ4B9wy8ARIDEAH3DbwB7AEVAbwB9AUAAfIEAAEO + AewI9wHtARMFAAEOAZIB9wFtAg4FAAEOARUBvAH0LQAO7B4AAfIBDgH3DLwEBw68AewBFQG8AfQFAAHy + BQAKDgYAAQ4BkgHvAewCFQEQAQ4DAAEOARUBvAH0WQAB8gEOAfcevAHsARUBvAH0BQAB8hUAAQ4B7ALv + ApIBEgEPBAABEQG8AfRZAAHyAQABEh5tARQBQwG8AfQFAAHyFgABFQHqA20BQwEOBAABEQG8AfRZAAHz + IW0B7AHxAfQFAAHzIW0B7AHxAfT/AIIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGACH/CQAE/xrs + A/8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYADv8E7A//CQAD/xrs + BP8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIAKOwGACH/CQAE/xrs + A/8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAA7/AZID7A// + CQAD/xrsBP8FAAj/FuwF/wHsBP8CACjsBgAO/wGSA+wP/wkAIf8FAA//C+wJ/wLsA/8CACjsBgAO/wGS + A+wB8g7/CQAh/wUAHv8B7AX/AewD/wIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAHv8C7AT/AuwC/wIA + KOwGAA7/AfEE7A7/CQAh/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAP/wTsAe8N/wkAIf8FABn/AuwF/wHs + BP8B7AL/AgAo7AYAD/8B8QTsAe8M/wkAA/8a7AT/BQAa/wHsBf8B7AT/AewC/wIAKOwGABD/AbwE7AHv + AfQK/wkAIf8FABr/AuwE/wHsBP8C7AH/AgAo7AYAEf8BvATsAe0B9An/CQAh/wUAE/8E7AT/AuwJ/wHs + Af8CACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FABb/AuwF/wHsCv8CACjsBgAT/wHyBOwB7wj/CQAh/wUA + F/8B7An/BuwB/wIAKOwGABT/AfIE7AHyB/8JACH/BQAX/wLsBv8J7AIAKOwGABX/AbwD7AHvB/8JAAP/ + GuwE/wUAEP8B7Af/AuwE/wrsAgAo7AYAFv8E7Af/CQAh/wUAEP8D7Ab/AuwC/wvsAgAo7AYABv8B8wHv + AZIB7AHvC/8BkgPsB/8JACH/BQAS/wPsB/8M7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUA + FP8C7Ab/DOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/CQAh/wUAFf8C7AT/DewCACjsBgAH/wEHA+wB9wn/ + AfcD7AHvB/8JACH/BQAN/wTsBf8D7AL/DewCACjsBgAH/wH0BOwB7wf/Ae8E7AHzB/8JAAP/GuwE/wUA + EP8C7An/DewCACjsBgAI/wEHBOwBkgHwAfQB/wH0AfABkgTsAQcI/wkAIf8FABH/AewJ/w3sAgAo7AYA + Cf8B7w3sAe8J/wkAIf8FABH/COwC/w3sAgAo7AYACv8B8AvsAfAK/wkABP8a7AP/BQAb/w3sMAAL/wH0 + AbwB9wTsAe0B7wG8DP8JACH/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAIf8JAAP/GuwE/10A + If8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABqAMAAQEBAAEBBQABwAEP + FgAD/wEABf8BwBIABf8BwBIABf8BwP8A/wD/AHUABf8BwBIABf8BwBIABf8BwBIAAfADAAEBAfwEAAF/ + Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEB + AfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHA + AwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQA + AX8F/wHAAwABBwMAFf8DAAr/Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMABf8BwAQAAQ4EAAEP + AYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED + DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO + BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP + AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA + AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A + AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA + AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA + AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAwMABf8BwAEAAR8C/wH+ + BAABDwGAAwABAwMABf8BwAEAAT8C/wH+BAABDwGAAwABAwMABf8BwAEAAX8C/wH+BAABDwGAAwABAwMA + Cv8B/gQAAQ8BgAMAAQMDAAr/Af4EAAEPAYADAAEDAwAV/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/ + BAABHwX/AwAF/wH8BAABfwQAAR8F/wgAATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHAoA + AX8C/wH8BAABfwQAARwKAAP/AfwEAAF/BAABHAkAAQED/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf + Bf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw== + + + + 1347, 18 + + + 1431, 18 + + + 1544, 18 + + \ No newline at end of file diff --git a/File Opener.vb b/File Opener.vb new file mode 100644 index 0000000..68db938 --- /dev/null +++ b/File Opener.vb @@ -0,0 +1,753 @@ +Imports System.IO + +Public Class File_Opener + 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 = 400 + Public minimumsizeheight As Integer = 177 + + Dim itemsdeleted As Integer + Dim filetype As Integer + Public openextention As String + Public openingprogram As String + Dim lastselectedfilename As String + + 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() + + ShiftOSDesktop.pnlpanelbuttonfileopener.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfileopener, ShiftOSDesktop.tbfileopenericon, ShiftOSDesktop.tbfileopenertext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + If ShiftOSDesktop.fileopenerlastdirectory = "" Then + 'open default directory + Else + lbllocation.Text = ShiftOSDesktop.fileopenerlastdirectory + End If + lbextention.Text = openextention + showcontents() + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.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, 377) '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.fileopenername + 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.boughtfileskimmericon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.fileopenericontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + showcontents() + End Sub + + Public Sub showcontents() + lvfiles.Items.Clear() + + lvfiles.Items.Add("Exit Folder", 5) + + Dim dir As New DirectoryInfo(lbllocation.Text) + Dim files As FileInfo() = dir.GetFiles() + Dim file As FileInfo + Dim folders As DirectoryInfo() = dir.GetDirectories() + Dim folder As DirectoryInfo + + For Each folder In folders + Dim foldername As String = folder.Name + lvfiles.Items.Add(foldername, 0) + Next + + For Each file In files + Dim filename As String = file.Name + Dim fileex As String = file.Extension + + Select Case fileex + Case ".txt" + filetype = 2 + Case ".doc" + filetype = 2 + Case ".docx" + filetype = 2 + Case ".lst" + filetype = 2 + Case ".png" + filetype = 3 + Case ".jpg" + filetype = 3 + Case ".jpeg" + filetype = 3 + Case ".bmp" + filetype = 3 + Case ".gif" + filetype = 3 + Case ".avi" + filetype = 4 + Case ".m4v" + filetype = 4 + Case ".mp4" + filetype = 4 + Case ".wmv" + filetype = 4 + Case ".dll" + filetype = 6 + Case ".exe" + filetype = 7 + Case ".sft" + filetype = 8 + Case ".dri" + filetype = 9 + Case ".pic" + filetype = 3 + Case ".skn" + filetype = 10 + Case ".nls" + filetype = 11 + Case ".icp" + filetype = 12 + Case Else + filetype = 1 + End Select + + Select Case openingprogram + Case "textpad" + If fileex = ".txt" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "graphicpicker1", "graphicpicker2", "graphicpicker3" + If fileex = ".pic" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".gif" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".jpeg" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".png" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".jpg" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".tiff" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".bmp" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "skinloader" + If fileex = ".skn" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "artpad" + If fileex = ".pic" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "audioplayer" + If fileex = ".mp3" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".wav" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".mwa" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".midi" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "videoplayer" + If fileex = ".mp4" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".avi" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".wmv" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".mov" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".m4v" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".mpeg4" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".mkv" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "namechanger" + If fileex = ".nls" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "iconmanager" + If fileex = ".pic" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".gif" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".jpeg" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".png" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".jpg" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".tiff" Then + lvfiles.Items.Add(filename, filetype) + End If + If fileex = ".bmp" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "iconmanagerpack" + If fileex = ".icp" Then + lvfiles.Items.Add(filename, filetype) + End If + Case "skinshifter" + If fileex = ".skn" Then + lvfiles.Items.Add(filename, filetype) + End If + End Select + Next + + ShiftOSDesktop.fileopenerlastdirectory = lbllocation.Text + End Sub + + Private Sub lvfiles_MouseClick(sender As Object, e As MouseEventArgs) Handles lvfiles.MouseClick + lastselectedfilename = lvfiles.SelectedItems(0).Text + End Sub + + Private Sub lbfiles_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseDoubleClick + + If lvfiles.SelectedItems(0).Text = "Exit Folder" Then + + If lbllocation.Text = "C:/ShiftOS/" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "You can only enter directories formatted in the ShiftOS file system (ShiftFS)" + infobox.Show() + Else + Dim endloop As Boolean = False + lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) + + While endloop = False + If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then + endloop = True + Else + lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) + End If + End While + showcontents() + End If + Else + 'Check if selected item is a file or folder. It it's a folder check its extension + If lvfiles.SelectedItems(0).Text Like "*.txt" Then + openfile() + ElseIf lvfiles.SelectedItems(0).Text Like "*.skn" Then + openfile() + ElseIf lvfiles.SelectedItems(0).Text Like "*.gra" Then + openfile() + ElseIf lvfiles.SelectedItems(0).Text Like "*.*" Then + openfile() + Else + Dim textboxtext As String + textboxtext = lbllocation.Text + Dim last As String + Dim selit As String + last = textboxtext.Substring(textboxtext.Length - 1) + If last = "/" Then + selit = lvfiles.SelectedItems(0).Text + lbllocation.Text = lbllocation.Text + selit + Else + selit = lvfiles.SelectedItems(0).Text + lbllocation.Text = lbllocation.Text + ("/" & selit) + End If + showcontents() + End If + End If + End Sub + + Private Sub btndeletefile_Click(sender As Object, e As EventArgs) + If lvfiles.SelectedItems(0).Text Like "*.*" Then + My.Computer.FileSystem.DeleteFile(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + showcontents() + Else + My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents) + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + showcontents() + End If + End Sub + + Private Sub btnnewfolder_Click(sender As Object, e As EventArgs) + infobox.lblintructtext.Text = "Please enter a name for your new folder:" + infobox.txtuserinput.Text = "" + infobox.lblintructtext.Show() + infobox.txtuserinput.Show() + infobox.Show() + scaninput.Start() + End Sub + + Private Sub scaninput_Tick(sender As Object, e As EventArgs) Handles scaninput.Tick + If infobox.Visible = False Then + My.Computer.FileSystem.CreateDirectory(lbllocation.Text & "/" & infobox.txtuserinput.Text) + showcontents() + scaninput.Stop() + End If + End Sub + + Private Sub btnopen_Click(sender As Object, e As EventArgs) Handles btnopen.Click + openfile() + End Sub + + Private Sub openfile() + If lastselectedfilename = "" Then + Else + Select Case openingprogram + Case "textpad" + If TextPad.needtosave = False Then + TextPad.Show() + TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + TextPad.needtosave = False + Me.Close() + Else + infobox.title = "Textpad - Save?" + infobox.textinfo = "It appears that your text document currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to load a file without saving the changes?" + infobox.Show() + infobox.showyesno() + infobox.sendyesno = "fileopenertextpad" + End If + Case "graphicpicker1" + Graphic_Picker.imagelocations(0) = (lbllocation.Text & "/" & lastselectedfilename) + Graphic_Picker.txtidlefile.Text = lastselectedfilename + Graphic_Picker.setgraphicsidle() + Me.Close() + Case "graphicpicker2" + Graphic_Picker.imagelocations(1) = (lbllocation.Text & "/" & lastselectedfilename) + Graphic_Picker.txtmouseoverfile.Text = lastselectedfilename + Graphic_Picker.setgraphicsmouseover() + Me.Close() + Case "graphicpicker3" + Graphic_Picker.imagelocations(2) = (lbllocation.Text & "/" & lastselectedfilename) + Graphic_Picker.txtmousedownfile.Text = lastselectedfilename + Graphic_Picker.setgraphicsmousedown() + Me.Close() + Case "skinloader" + ShiftOSDesktop.disposeoldskindata("skinloaderemovepreview") + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents) + System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lastselectedfilename, "C:\ShiftOS\Shiftum42\Skins\Preview\") + My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False) + Skin_Loader.loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat") + Skin_Loader.loadskintopreview() + Skin_Loader.skinloaded = True + Me.Close() + Case "artpad" + ArtPad.savelocation = (lbllocation.Text & "/" & lastselectedfilename) + ArtPad.openpic() + Me.Close() + Case "audioplayer" + Audio_Player.lbmusiclist.Items.Add(lbllocation.Text & "/" & lastselectedfilename) + Me.Close() + Case "videoplayer" + Video_Player.AxWindowsMediaPlayer1.URL = (lbllocation.Text & "/" & lastselectedfilename) + Me.Close() + Case "namechanger" + Name_Changer.loadlines = IO.File.ReadAllLines(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + Name_Changer.loadnamesfromfile() + Me.Close() + Case "iconmanager" + Icon_Manager.openedfilelocation = (lbllocation.Text & "/" & lastselectedfilename) + Icon_Manager.loadicon() + Me.Close() + Case "iconmanagerpack" + Icon_Manager.disposebackgrounds() + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Icons") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Icons", FileIO.DeleteDirectoryOption.DeleteAllContents) + System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lastselectedfilename, "C:\ShiftOS\Shiftum42\Icons") + ShiftOSDesktop.setupicons() + Icon_Manager.needtosetupdesktop = True + Icon_Manager.loadsettings() + Me.Close() + Case "skinshifter" + Skinshifter.lbskinlist.Items.Add(lbllocation.Text & "/" & lastselectedfilename) + Me.Close() + End Select + End If + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/File Saver.Designer.vb b/File Saver.Designer.vb new file mode 100644 index 0000000..4dbfdef --- /dev/null +++ b/File Saver.Designer.vb @@ -0,0 +1,406 @@ + _ +Partial Class File_Saver + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(File_Saver)) + Me.scaninput = New System.Windows.Forms.Timer(Me.components) + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.lvfiles = New System.Windows.Forms.ListView() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.pnlsaveoptions = New System.Windows.Forms.Panel() + Me.btnsave = New System.Windows.Forms.Button() + Me.lbextention = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtfilename = New System.Windows.Forms.TextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lbllocation = New System.Windows.Forms.Label() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnlsaveoptions.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'scaninput + ' + Me.scaninput.Interval = 500 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(97, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "File Saver" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.lvfiles) + Me.pgcontents.Controls.Add(Me.Panel3) + Me.pgcontents.Controls.Add(Me.pnlsaveoptions) + Me.pgcontents.Controls.Add(Me.Panel2) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(596, 345) + Me.pgcontents.TabIndex = 25 + ' + 'lvfiles + ' + Me.lvfiles.BackColor = System.Drawing.Color.White + Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.lvfiles.LargeImageList = Me.ImageList1 + Me.lvfiles.Location = New System.Drawing.Point(0, 33) + Me.lvfiles.Name = "lvfiles" + Me.lvfiles.Size = New System.Drawing.Size(596, 268) + Me.lvfiles.TabIndex = 3 + Me.lvfiles.UseCompatibleStateImageBehavior = False + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.Black + Me.Panel3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel3.ForeColor = System.Drawing.Color.Black + Me.Panel3.Location = New System.Drawing.Point(0, 301) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(596, 2) + Me.Panel3.TabIndex = 9 + ' + 'pnlsaveoptions + ' + Me.pnlsaveoptions.BackColor = System.Drawing.Color.White + Me.pnlsaveoptions.Controls.Add(Me.btnsave) + Me.pnlsaveoptions.Controls.Add(Me.lbextention) + Me.pnlsaveoptions.Controls.Add(Me.Label1) + Me.pnlsaveoptions.Controls.Add(Me.txtfilename) + Me.pnlsaveoptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlsaveoptions.Location = New System.Drawing.Point(0, 303) + Me.pnlsaveoptions.Name = "pnlsaveoptions" + Me.pnlsaveoptions.Size = New System.Drawing.Size(596, 42) + Me.pnlsaveoptions.TabIndex = 8 + ' + 'btnsave + ' + Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsave.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsave.Location = New System.Drawing.Point(514, 6) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(75, 29) + Me.btnsave.TabIndex = 3 + Me.btnsave.Text = "Save" + Me.btnsave.UseVisualStyleBackColor = True + ' + 'lbextention + ' + Me.lbextention.AutoSize = True + Me.lbextention.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbextention.Location = New System.Drawing.Point(478, 11) + Me.lbextention.Name = "lbextention" + Me.lbextention.Size = New System.Drawing.Size(27, 18) + Me.lbextention.TabIndex = 2 + Me.lbextention.Text = ".txt" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(10, 13) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(73, 16) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "File Name:" + ' + 'txtfilename + ' + Me.txtfilename.BackColor = System.Drawing.Color.White + Me.txtfilename.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtfilename.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfilename.Location = New System.Drawing.Point(89, 10) + Me.txtfilename.Name = "txtfilename" + Me.txtfilename.Size = New System.Drawing.Size(383, 22) + Me.txtfilename.TabIndex = 0 + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.Black + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 31) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(596, 2) + Me.Panel2.TabIndex = 5 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.lbllocation) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(596, 31) + Me.Panel1.TabIndex = 4 + ' + 'lbllocation + ' + Me.lbllocation.BackColor = System.Drawing.Color.White + Me.lbllocation.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbllocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbllocation.ForeColor = System.Drawing.Color.Black + Me.lbllocation.Location = New System.Drawing.Point(0, 0) + Me.lbllocation.Name = "lbllocation" + Me.lbllocation.Size = New System.Drawing.Size(596, 31) + Me.lbllocation.TabIndex = 0 + Me.lbllocation.Text = "C:/ShiftOS/" + Me.lbllocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(598, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 347) + Me.pgright.TabIndex = 27 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 345) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 345) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 347) + Me.pgleft.TabIndex = 26 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 375) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(596, 2) + Me.pgbottom.TabIndex = 28 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(600, 30) + Me.titlebar.TabIndex = 24 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 2) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 25 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconFileSaver + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "folder.png") + Me.ImageList1.Images.SetKeyName(1, "unknown.png") + Me.ImageList1.Images.SetKeyName(2, "textfile.png") + Me.ImageList1.Images.SetKeyName(3, "imagefile.png") + Me.ImageList1.Images.SetKeyName(4, "videofile.png") + Me.ImageList1.Images.SetKeyName(5, "folderup.png") + Me.ImageList1.Images.SetKeyName(6, "philips dll.png") + Me.ImageList1.Images.SetKeyName(7, "philips exe.png") + Me.ImageList1.Images.SetKeyName(8, "config.png") + Me.ImageList1.Images.SetKeyName(9, "driver.png") + Me.ImageList1.Images.SetKeyName(10, "skinfile.png") + Me.ImageList1.Images.SetKeyName(11, "namelistfile.png") + Me.ImageList1.Images.SetKeyName(12, "iconpackfile.png") + ' + 'File_Saver + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(600, 377) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(400, 177) + Me.Name = "File_Saver" + Me.Text = "File_Saver" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnlsaveoptions.ResumeLayout(False) + Me.pnlsaveoptions.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents scaninput As System.Windows.Forms.Timer + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents lvfiles As System.Windows.Forms.ListView + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lbllocation As System.Windows.Forms.Label + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pnlsaveoptions As System.Windows.Forms.Panel + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents lbextention As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtfilename As System.Windows.Forms.TextBox + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList +End Class diff --git a/File Saver.resx b/File Saver.resx new file mode 100644 index 0000000..97375e8 --- /dev/null +++ b/File Saver.resx @@ -0,0 +1,322 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 348, 12 + + + 1638, 18 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU + KgAAAk1TRnQBSQFMAgEBDQEAASgBAQEoAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABqAMAAagDAAEBAQABCAUAAUABbhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc + AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA + AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz + AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA + AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA + AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm + AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA + ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz + AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz + AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz + AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ + AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm + AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM + Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ + AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ + AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA + ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/ + ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ + AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA + AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA + AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA + AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ + AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA + AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/ + AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/ + ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/ + AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA + AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AKQAKP+AACj/ + gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAC/wvsA/8BAATs + AQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAD/wvsA/8BAALs + AQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP+AAAP/C+wE/wIABv8CAAb/ + AgAE/4AAEf8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AAAL/C+wD/wEABOwBAAL/AQAE7AEAAv8BAATs + AQAC/4AAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALs + AQAD/4AAEv8CAAb/AgAG/wIABP+AACj/gAAo/4AAA/8L7AT/AgAG/wIABv8CAAT/gAAR/wEAAuwBAAT/ + AQAC7AEABP8BAALsAQAD/4AAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAQ/wEABOwBAAL/ + AQAE7AEAAv8BAATsAQAC/4AAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAS/wIABv8CAAb/ + AgAE/4AAKP+AACj/gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/ + gAAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/ + gAAD/wvsA/8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP//AP8A + /wDPACH/CQAh/zMAIf8JAAX/CuwS/wkAIf8zACH/CQAE/wzsEf8JACH/MwAh/wkAA/8D7AgAA+wQ/wkA + A/8bAAP/MwAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8BAAPsD/8JAAP/AQAZ7AEAA/8zAA//AewN/wHs + A/8JAAH/A+wBAAH/CAAB/wEAA+wO/wkAA/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAH/AuwBAAH/ + AgAB/wQAAf8CAAH/AQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAKP8GAA//D+wD/wkAAf8C7AMAAf8GAAH/ + AwAC7A7/CQAD/wEAGewBAAP/BQAo/wYAIf8JAAH/AuwFAAH/AgAB/wUAAuwO/wkAA/8BAALsFf8C7AEA + A/8FAAL/JAAC/wYABP8H7AT/D+wD/wkAAf8C7AYAAv8GAAvsBf8JAAP/AQAZ7AEAA/8FAAL/JAAC/wYA + D/8B7A3/AewD/wkAAf8C7AUAAf8CAAH/BQAM7AT/CQAD/wEAAuwV/wLsAQAD/wUAAv8OAAb/AQAG/wEA + Bv8CAAL/BgAD/wfsBf8B7A3/AewD/wkAAf8C7AMAAf8GAAH/AgAD7AgAA+wD/wkAA/8BABnsAQAD/wUA + Av8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/w/sA/8JAAH/AuwBAAH/AgAB/wQAAf8CAAPs + AQAB/wYAAf8BAAPsAv8JAAP/AQAE7BH/BOwBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA + Av8GACH/CQAB/wPsAQAB/wgAA+wBAAH/CAAB/wEAA+wB/wkAA/8BABnsAQAD/wUAAv8OAAH/BAAB/wEA + Af8EAAH/AQAB/wQAAf8CAAL/BgAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8C7AEAAf8CAAH/BAAB/wIA + Af8BAALsAf8JAAP/AQAZ7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAD/8B7A3/ + AewD/wkAA/8D7AgAAuwDAAH/BgAB/wMAAuwB/wkAA/8bAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/ + B+wF/wHsDf8B7AP/CQAE/wzsBQAB/wIAAf8FAALsAf8JAA7/BQAO/wUAAv8kAAL/BgAP/w/sA/8JAAX/ + C+wGAAL/BgAC7AH/CQAP/wPsD/8FAAL/JAAC/wYAIf8JAA7/AuwFAAH/AgAB/wUAAuwB/wkAIf8FACj/ + BgAE/wfsBP8P7AP/CQAO/wLsAwAB/wYAAf8DAALsAf8JAAP/CwAF/wsAA/8FACj/BgAP/wHsDf8B7AP/ + CQAO/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BAAvsA/8L7AEAA/8FACj/BgAD/wfsBf8B7A3/ + AewD/wkADv8D7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAo/wYAD/8P7AP/CQAJ/wnsAQAB/wYA + Af8BAAPsAv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAIf8JAAj/C+wIAAPsA/8JAAP/AQAE7BH/BOwBAAP/ + BQAC/yTsAv8GAAT/B+wE/w/sA/8JAAf/A+wHAAzsBP8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHsBgAB7AYA + AuwC/wYAD/8B7A3/AewD/wkABv8D7AEAAf8GAAH/CuwF/wkAA/8BAALsFf8C7AEAA/8FAAL/DuwGAAHs + BgAB7AYAAuwC/wYAA/8H7AX/AewN/wHsA/8JAAX/A+wBAAH/CAAB/wEAA+wK/wkAA/8BABnsAQAD/wUA + Av8O7AYAAewGAAHsBgAC7AL/BgAP/w/sA/8JAAX/AuwBAAH/AgAB/wQAAf8CAAH/AQAC7Ar/CQAD/wEA + AuwVAALsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAh/wkABf8C7AMAAf8GAAH/AwAC7Ar/CQAD/wEA + GewBAAP/BQAC/w7sBgAB7AYAAewGAALsAv8GAAT/B+wE/w/sA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA + A/8BAALsFQAC7AEAA/8FAAL/DuwGAAHsBgAB7AYAAuwC/wYAD/8B7A3/AewD/wkABf8C7AYAAv8GAALs + Cv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAA/8H7AX/AewN/wHsA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA + A/8BAALsFQAC7AEAA/8FAAL/JOwC/wYAD/8P7AP/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEA + A/8FACj/BgAh/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAo/wYA + BP8H7AT/D+wD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/MwAP/wHsDf8B7AP/CQAG/wPs + AQAB/wYAAf8BAAPsC/8JAAP/AQAZ7AEAA/8zAAP/B+wF/wHsDf8B7AP/CQAH/wPsCAAD7Az/CQAD/xsA + A/8zAA//D+wD/wkACP8M7A3/CQAh/zMAIf8JAAn/CuwO/wkAIf8zACH/CQAh/wkAIf8zACH//wCsAAH0 + Ie8BBwHyAf8FAAH0Ie8BBwHyAf9ZAAHyAQABQx4VARABEQG8AfQFAAHyFQAGDgYAAREBvAH0WQAB8gEO + AfcevAHsARUBvAH0BQAB8hQAAQ4BFQEUAhMBFAERAQ4EAAEOARUBvAH0LQAo7AQAAfIBDgH3HrwB7AEV + AbwB9AUAAfIUAAFDAfcBBwLvAfcBbQEQBAABDgEVAbwB9C0AD+wKAA/sBAAB8gEOAfcevAHsARUBvAH0 + BQAB8hQAAUMBBwHvAewBEgETAUMBDgQAAQ4BFQG8AfQtAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AfcU7AHv + BLwB7AEVAbwB9AUAAfIDAAEODEMBEAMAAUMBBwHtARUIAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQA + AfIBDgH3BLwBExEOAwAB7AS8AewBFQG8AfQFAAHyAwABEQzsAW0DAAFDAQcBkgETAQ8BDgYAAQ4BFQG8 + AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETARQP7wETAwAB7AS8AewBFQG8AfQFAAHyBAABDgEQ + CREBEAEOAwABQwEHAvIB8QEHARAFAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8 + AeoDAAHsBLwB7AEVAbwB9AUAAfIEAAEOAesJ7AEVBAABQwEHAe8B7AFtAeoBDgUAAQ4BFQG8AfQDACj/ + AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITDrwB7AFDAwABEwGSA7wB7AEVAbwB9AUAAfIEAAEOAe8CvAEH + BewB9wHqBAABQwEHAZIBEwIPAQ4FAAEOARUBvAH0AwAP/wEAGP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8 + AhMNvAEHARUBDgMAAQ4B6gO8AewBFQG8AfQFAAHyBAABDgHvArwB7wIOAg8BAAHsAeoEAAFDAQcB7wHr + ARIBEwEQAQ4EAAEOARUBvAH0AwAP/wIAF/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMOvAEHARIDAAHr + AQcDvAHsARUBvAH0BQAB8gQAAQ4B7wK8Ae8BDgHsAQcB7QEOAewB6gQAAREBkgHvAQcC7wEUAQ4EAAEO + ARUBvAH0AwAP/wMAFv8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMPvAH3AeoBDgHrAe8EvAHsARUBvAH0 + BQAB8gQAAQ4B7wHsARQBFQEAAREBFAFDAQAB7AHqBAABDgFDARUCFAEVAQ8FAAEOARUBvAH0AwAP/wQA + Ff8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAHsAesB7Ae8AfcBbQEHBbwB7AEVAbwB9AUAAfIEAAEO + Ae8BEwEQAuoBDwEQAuoBkgHqEAABDgEVAbwB9AMAD/8FABT/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAIT + BrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B7wETARUC9wEVARICvAEHAeoCAAEODA8BDgEAAUMBvAH0 + AwAP/wYAE/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8AfQFAAHyBAABDgHv + ARMBAAIOAQABEgK8AQcB6gIAAesM7QFDAQABEQG8AfQDAA//BwAS/wIAD+wBAAj/AQAP7AQAAfIBDgH3 + BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAu8E7QHvArwBBwHqAgABEAFDChUBEQEOAQABEQG8 + AfQDAA//CAAR/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEO + AeoJbQFDAwABFQltARIBDgIAAREBvAH0AwAP/wkAEP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMBBwH3 + BJIBEQEAARAFkgH3AQcIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAA/s + AQAI/wEAD+wEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAER + AbwB9AMAD/8KAA//AgAK7AYACP8HAAnsBAAB8gEOAfcEvAITAe8BDgwAAREB7Ai8AewBFQG8AfQFAAHy + EwABbQH3BkMB7QEHAZIBDgIAAREBvAH0AwAP/wkAEP8CAArsAQAT/wEACewEAAHyAQ4B9wS8AhMB7wEO + DAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAe8GbQH3AQcBkgEOAgABEQG8AfQDAA//CAAR/wIAC+wBABH/ + AQAK7AQAAfIBDgH3AbwBBwLtAkMB7AEODAABDwFtBO0B9wO8AewBFQG8AfQFAAHyEwABbQi8AQcBkgEO + AgABEQG8AfQDAA//BwAS/wIADOwBAA//AQAL7AQAAfIBDgH3AbwB7BgAARMDvAHsARUBvAH0BQAB8gQA + DA4DAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8GABP/AgAN7AEADf8BAAzsBAAB8gEOAfcBvAHsGAABEwO8 + AewBFQG8AfQFAAHyAwABEQzsAeoCAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8FABT/AgAO7AEAC/8BAA3s + BAAB8gEOAfcBvAHvBOsBbQEODAABDwETBOsB7QO8AewBFQG8AfQFAAHyAwABDgEUCxMBQwIAAW0IvAEH + AZIBDgIAAUMBvAH0AwAP/wQAFf8CAA/sAQAJ/wEADuwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8 + AfQFAAHyBAABDgEUCBIBEwERAwABFAnsAW0BDgEAAQ4BFQG8AfQDAA//AwAW/wIAEOwBAAf/AQAP7AQA + AfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOAe8CBwW8AQcB7wHqEAABDgEVAbwB9AMA + D/8CABf/AgAR7AEABf8BABDsBAAB8gEOAfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wFt + AeoEvAHvARAB7AHqBgABEAFDAxUBEQEOAwABDgEVAbwB9AMAD/8BABj/AgAS7AEAA/8BABHsBAAB8gEO + AfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wGSAW0B6gEHAbwB7QESAewB9wHqBgAB6wKS + Au0BbQERAwABDgEVAbwB9AMAKP8CABPsAQAB/wEAEuwEAAHyAQ4B9wa8AQcB6gQTAQ4DAAEVAxMBbQH3 + CLwB7AEVAbwB9AUAAfIEAAEOAe8BvAGSARIC7AJtAgcB6gUAAQ4BkgEHAfcC6wESARADAAEOARUBvAH0 + AwAo/wIAFOwBABPsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwBBwGSAREBDwHq + Ae8BvAEHAeoFAAEOApIB6gcAAQ4BFQG8AfQDACj/AgAo7AQAAfIBDgH3DLwBFQMAAZINvAHsARUBvAH0 + BQAB8gQAAQ4B7wG8AewBEQHvAQcB6wFDAgcB6gUAAQ4CkgHqBwABDgEVAbwB9AMAKP8CACjsBAAB8gEO + AfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAewB6gHtAQcBvAHvAewBFAHtAeoFAAEOAZICvALv + ARQEAAEOARUBvAH0WQAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAuwEvAHvAeoBkgHq + BQABDgGSAgcC7QEVBAABDgEVAbwB9C0AD+wdAAHyAQ4B9wy8ARIDEAH3DbwB7AEVAbwB9AUAAfIEAAEO + AewI9wHtARMFAAEOAZIB9wFtAg4FAAEOARUBvAH0LQAO7B4AAfIBDgH3DLwEBw68AewBFQG8AfQFAAHy + BQAKDgYAAQ4BkgHvAewCFQEQAQ4DAAEOARUBvAH0WQAB8gEOAfcevAHsARUBvAH0BQAB8hUAAQ4B7ALv + ApIBEgEPBAABEQG8AfRZAAHyAQABEh5tARQBQwG8AfQFAAHyFgABFQHqA20BQwEOBAABEQG8AfRZAAHz + IW0B7AHxAfQFAAHzIW0B7AHxAfT/AIIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGACH/CQAE/xrs + A/8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYADv8E7A//CQAD/xrs + BP8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIAKOwGACH/CQAE/xrs + A/8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAA7/AZID7A// + CQAD/xrsBP8FAAj/FuwF/wHsBP8CACjsBgAO/wGSA+wP/wkAIf8FAA//C+wJ/wLsA/8CACjsBgAO/wGS + A+wB8g7/CQAh/wUAHv8B7AX/AewD/wIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAHv8C7AT/AuwC/wIA + KOwGAA7/AfEE7A7/CQAh/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAP/wTsAe8N/wkAIf8FABn/AuwF/wHs + BP8B7AL/AgAo7AYAD/8B8QTsAe8M/wkAA/8a7AT/BQAa/wHsBf8B7AT/AewC/wIAKOwGABD/AbwE7AHv + AfQK/wkAIf8FABr/AuwE/wHsBP8C7AH/AgAo7AYAEf8BvATsAe0B9An/CQAh/wUAE/8E7AT/AuwJ/wHs + Af8CACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FABb/AuwF/wHsCv8CACjsBgAT/wHyBOwB7wj/CQAh/wUA + F/8B7An/BuwB/wIAKOwGABT/AfIE7AHyB/8JACH/BQAX/wLsBv8J7AIAKOwGABX/AbwD7AHvB/8JAAP/ + GuwE/wUAEP8B7Af/AuwE/wrsAgAo7AYAFv8E7Af/CQAh/wUAEP8D7Ab/AuwC/wvsAgAo7AYABv8B8wHv + AZIB7AHvC/8BkgPsB/8JACH/BQAS/wPsB/8M7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUA + FP8C7Ab/DOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/CQAh/wUAFf8C7AT/DewCACjsBgAH/wEHA+wB9wn/ + AfcD7AHvB/8JACH/BQAN/wTsBf8D7AL/DewCACjsBgAH/wH0BOwB7wf/Ae8E7AHzB/8JAAP/GuwE/wUA + EP8C7An/DewCACjsBgAI/wEHBOwBkgHwAfQB/wH0AfABkgTsAQcI/wkAIf8FABH/AewJ/w3sAgAo7AYA + Cf8B7w3sAe8J/wkAIf8FABH/COwC/w3sAgAo7AYACv8B8AvsAfAK/wkABP8a7AP/BQAb/w3sMAAL/wH0 + AbwB9wTsAe0B7wG8DP8JACH/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAIf8JAAP/GuwE/10A + If8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABqAMAAQEBAAEBBQABwAEP + FgAD/wEABf8BwBIABf8BwBIABf8BwP8A/wD/AHUABf8BwBIABf8BwBIABf8BwBIAAfADAAEBAfwEAAF/ + Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEB + AfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHA + AwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQA + AX8F/wHAAwABBwMAFf8DAAr/Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMABf8BwAQAAQ4EAAEP + AYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED + DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO + BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP + AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA + AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A + AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA + AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA + AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAwMABf8BwAEAAR8C/wH+ + BAABDwGAAwABAwMABf8BwAEAAT8C/wH+BAABDwGAAwABAwMABf8BwAEAAX8C/wH+BAABDwGAAwABAwMA + Cv8B/gQAAQ8BgAMAAQMDAAr/Af4EAAEPAYADAAEDAwAV/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/ + BAABHwX/AwAF/wH8BAABfwQAAR8F/wgAATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHAoA + AX8C/wH8BAABfwQAARwKAAP/AfwEAAF/BAABHAkAAQED/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf + Bf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw== + + + + 1347, 18 + + + 1431, 18 + + + 1544, 18 + + \ No newline at end of file diff --git a/File Saver.vb b/File Saver.vb new file mode 100644 index 0000000..eaaff38 --- /dev/null +++ b/File Saver.vb @@ -0,0 +1,624 @@ +Imports System.IO +Imports System.Drawing.Drawing2D +Imports System.Globalization +Imports System.Windows.Forms + +Public Class File_Saver + 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 = 400 + Public minimumsizeheight As Integer = 177 + + Dim itemsdeleted As Integer + Dim filetype As Integer + Public saveextention As String = ".txt" + Public savingprogram As String = "textpad" + + 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() + + ShiftOSDesktop.pnlpanelbuttonfilesaver.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfilesaver, ShiftOSDesktop.tbfilesavericon, ShiftOSDesktop.tbfilesavertext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + lbextention.Text = saveextention + If ShiftOSDesktop.fileopenerlastdirectory = "" Then + lbllocation.Text = "C:/ShiftOS" + Else + lbllocation.Text = ShiftOSDesktop.fileopenerlastdirectory + End If + showcontents() + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.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, 377) '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.filesavername + 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.boughtfileskimmericon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.filesavericontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + End If + 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 + + 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 + + 'end of general setup + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + showcontents() + End Sub + + Private Sub showcontents() + lvfiles.Items.Clear() + + lvfiles.Items.Add("Exit Folder", 5) + + Dim dir As New DirectoryInfo(lbllocation.Text) + Dim files As FileInfo() = dir.GetFiles() + Dim file As FileInfo + Dim folders As DirectoryInfo() = dir.GetDirectories() + Dim folder As DirectoryInfo + + For Each folder In folders + Dim foldername As String = folder.Name + lvfiles.Items.Add(foldername, 0) + Next + + For Each file In files + Dim filename As String = file.Name + Dim fileex As String = file.Extension + + Select Case fileex + Case ".txt" + filetype = 2 + Case ".doc" + filetype = 2 + Case ".docx" + filetype = 2 + Case ".lst" + filetype = 2 + Case ".png" + filetype = 3 + Case ".jpg" + filetype = 3 + Case ".jpeg" + filetype = 3 + Case ".bmp" + filetype = 3 + Case ".gif" + filetype = 3 + Case ".avi" + filetype = 4 + Case ".m4v" + filetype = 4 + Case ".mp4" + filetype = 4 + Case ".wmv" + filetype = 4 + Case ".dll" + filetype = 6 + Case ".exe" + filetype = 7 + Case ".sft" + filetype = 8 + Case ".dri" + filetype = 9 + Case ".pic" + filetype = 3 + Case ".skn" + filetype = 10 + Case ".nls" + filetype = 11 + Case ".icp" + filetype = 12 + Case Else + filetype = 1 + End Select + + Select Case savingprogram + Case "textpad" + If fileex = ".txt" Then lvfiles.Items.Add(filename, filetype) + Case "skinloader" + If fileex = ".skn" Then lvfiles.Items.Add(filename, filetype) + Case "artpad" + If fileex = ".pic" Then lvfiles.Items.Add(filename, filetype) + Case "namechanger" + If fileex = ".nls" Then lvfiles.Items.Add(filename, filetype) + End Select + Next + + ShiftOSDesktop.fileopenerlastdirectory = lbllocation.Text + End Sub + + Private Sub lvfiles_MouseClick(sender As Object, e As MouseEventArgs) Handles lvfiles.MouseClick + 'need to remove the file extention! + If lvfiles.SelectedItems(0).Text.Contains(".") Then + txtfilename.Text = lvfiles.SelectedItems(0).Text.Substring(0, lvfiles.SelectedItems(0).Text.Length - 4) + End If + End Sub + + Private Sub lbfiles_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseDoubleClick + If lvfiles.SelectedItems(0).Text.Contains(".") Then + savefile() + Else + If lvfiles.SelectedItems(0).Text = "Exit Folder" Then + If lbllocation.Text = "C:/ShiftOS/" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "You can only enter directories formatted in the ShiftOS file system (ShiftFS)" + infobox.Show() + Else + Dim endloop As Boolean = False + lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) + + While endloop = False + If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then + endloop = True + Else + lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) + End If + End While + showcontents() + End If + Else + 'Check if selected item is a file or folder. It it's a folder check its extension + Dim textboxtext As String + textboxtext = lbllocation.Text + Dim last As String + Dim selit As String + last = textboxtext.Substring(textboxtext.Length - 1) + If last = "/" Then + selit = lvfiles.SelectedItems(0).Text + lbllocation.Text = lbllocation.Text + selit + Else + selit = lvfiles.SelectedItems(0).Text + lbllocation.Text = lbllocation.Text + ("/" & selit) + End If + + showcontents() + End If + End If + End Sub + + Private Sub btndeletefile_Click(sender As Object, e As EventArgs) + If lvfiles.SelectedItems(0).Text Like "*.*" Then + My.Computer.FileSystem.DeleteFile(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + showcontents() + Else + My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents) + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + showcontents() + End If + End Sub + + Private Sub btnnewfolder_Click(sender As Object, e As EventArgs) + infobox.lblintructtext.Text = "Please enter a name for your new folder:" + infobox.txtuserinput.Text = "" + infobox.lblintructtext.Show() + infobox.txtuserinput.Show() + infobox.Show() + scaninput.Start() + End Sub + + Private Sub scaninput_Tick(sender As Object, e As EventArgs) Handles scaninput.Tick + If infobox.Visible = False Then + My.Computer.FileSystem.CreateDirectory(lbllocation.Text & "/" & infobox.txtuserinput.Text) + showcontents() + scaninput.Stop() + End If + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + savefile() + End Sub + + Private Sub savefile() + If txtfilename.Text = "" Then + Else + Select Case savingprogram + Case "textpad" + My.Computer.FileSystem.WriteAllText(lbllocation.Text & "/" & txtfilename.Text & saveextention, TextPad.txtuserinput.Text, False) + TextPad.needtosave = False + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + TextPad.codepointsearned + If ShiftOSDesktop.boughttitletext = True Then + TextPad.lbtitletext.Text = TextPad.lbtitletext.Text & " - You earned " & TextPad.codepointsearned & " codepoints!" + TextPad.setuptitlebar() + Else + infobox.title = "Textpad - " & TextPad.codepointsearned & " codepoints!" + infobox.textinfo = "Awesome! That document you just created with Textpad has earned you " & TextPad.codepointsearned & " codepoints! " & Environment.NewLine & Environment.NewLine & "Keep those docs coming for even more codepoints!" + infobox.Show() + End If + TextPad.codepointsearned = 0 + TextPad.tmrshowearnedcodepoints.Start() + Case "skinloader" + System.IO.Compression.ZipFile.CreateFromDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", lbllocation.Text & " / " & txtfilename.Text & saveextention) + Icon_Manager.unsavedchanges = False + Case "iconmanager" + System.IO.Compression.ZipFile.CreateFromDirectory("C:\ShiftOS\Shiftum42\Icons", lbllocation.Text & " / " & txtfilename.Text & saveextention) + Icon_Manager.unsavedchanges = False + Case "namechanger" + IO.File.WriteAllLines(lbllocation.Text & "/" & txtfilename.Text & saveextention, Name_Changer.savelines) + Case "artpad" + ArtPad.savelocation = lbllocation.Text & "/" & txtfilename.Text & saveextention + ArtPad.saveimage() + ArtPad.needtosave = False + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + ArtPad.codepointsearned + If ShiftOSDesktop.boughttitletext = True Then + ArtPad.lbtitletext.Text = ArtPad.lbtitletext.Text & " - You earned " & ArtPad.codepointsearned & " codepoints!" + ArtPad.setuptitlebar() + Else + infobox.title = "Artpad - " & ArtPad.codepointsearned & " codepoints!" + infobox.textinfo = "Awesome! That picture you just created with Artpad has earned you " & ArtPad.codepointsearned & " codepoints! " & Environment.NewLine & Environment.NewLine & "Keep those artworks coming for even more codepoints!" + infobox.Show() + End If + ArtPad.codepointsearned = 0 + ArtPad.tmrshowearnedcodepoints.Start() + End Select + Me.Close() + End If + End Sub +End Class \ No newline at end of file diff --git a/File Skimmer.Designer.vb b/File Skimmer.Designer.vb new file mode 100644 index 0000000..be23a13 --- /dev/null +++ b/File Skimmer.Designer.vb @@ -0,0 +1,406 @@ + _ +Partial Class File_Skimmer + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(File_Skimmer)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.lvfiles = New System.Windows.Forms.ListView() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.pnlbreak = New System.Windows.Forms.Panel() + Me.pnloptions = New System.Windows.Forms.Panel() + Me.btndeletefile = New System.Windows.Forms.Button() + Me.btnnewfolder = New System.Windows.Forms.Button() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lbllocation = New System.Windows.Forms.Label() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.fileactions = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnloptions.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.fileactions.SuspendLayout() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.lvfiles) + Me.pgcontents.Controls.Add(Me.pnlbreak) + Me.pgcontents.Controls.Add(Me.pnloptions) + Me.pgcontents.Controls.Add(Me.Panel2) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(596, 345) + Me.pgcontents.TabIndex = 20 + ' + 'lvfiles + ' + Me.lvfiles.BackColor = System.Drawing.Color.White + Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.lvfiles.LargeImageList = Me.ImageList1 + Me.lvfiles.Location = New System.Drawing.Point(0, 33) + Me.lvfiles.Name = "lvfiles" + Me.lvfiles.Size = New System.Drawing.Size(596, 259) + Me.lvfiles.TabIndex = 3 + Me.lvfiles.UseCompatibleStateImageBehavior = False + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "folder.png") + Me.ImageList1.Images.SetKeyName(1, "unknown.png") + Me.ImageList1.Images.SetKeyName(2, "textfile.png") + Me.ImageList1.Images.SetKeyName(3, "imagefile.png") + Me.ImageList1.Images.SetKeyName(4, "videofile.png") + Me.ImageList1.Images.SetKeyName(5, "folderup.png") + Me.ImageList1.Images.SetKeyName(6, "philips dll.png") + Me.ImageList1.Images.SetKeyName(7, "philips exe.png") + Me.ImageList1.Images.SetKeyName(8, "config.png") + Me.ImageList1.Images.SetKeyName(9, "driver.png") + Me.ImageList1.Images.SetKeyName(10, "skinfile.png") + Me.ImageList1.Images.SetKeyName(11, "namelistfile.png") + Me.ImageList1.Images.SetKeyName(12, "iconpackfile.png") + ' + 'pnlbreak + ' + Me.pnlbreak.BackColor = System.Drawing.Color.White + Me.pnlbreak.BackgroundImage = Global.ShiftOS.My.Resources.Resources.uparrow + Me.pnlbreak.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlbreak.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlbreak.ForeColor = System.Drawing.Color.Black + Me.pnlbreak.Location = New System.Drawing.Point(0, 292) + Me.pnlbreak.Name = "pnlbreak" + Me.pnlbreak.Size = New System.Drawing.Size(596, 15) + Me.pnlbreak.TabIndex = 7 + ' + 'pnloptions + ' + Me.pnloptions.Controls.Add(Me.btndeletefile) + Me.pnloptions.Controls.Add(Me.btnnewfolder) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 307) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(596, 38) + Me.pnloptions.TabIndex = 6 + Me.pnloptions.Visible = False + ' + 'btndeletefile + ' + Me.btndeletefile.BackColor = System.Drawing.Color.White + Me.btndeletefile.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndeletefile.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndeletefile.Image = Global.ShiftOS.My.Resources.Resources.deletefolder + Me.btndeletefile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndeletefile.Location = New System.Drawing.Point(129, 4) + Me.btndeletefile.Name = "btndeletefile" + Me.btndeletefile.Size = New System.Drawing.Size(130, 31) + Me.btndeletefile.TabIndex = 4 + Me.btndeletefile.Text = "Delete Folder" + Me.btndeletefile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndeletefile.UseVisualStyleBackColor = False + ' + 'btnnewfolder + ' + Me.btnnewfolder.BackColor = System.Drawing.Color.White + Me.btnnewfolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnnewfolder.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnnewfolder.Image = Global.ShiftOS.My.Resources.Resources.newfolder + Me.btnnewfolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnnewfolder.Location = New System.Drawing.Point(6, 4) + Me.btnnewfolder.Name = "btnnewfolder" + Me.btnnewfolder.Size = New System.Drawing.Size(117, 31) + Me.btnnewfolder.TabIndex = 3 + Me.btnnewfolder.Text = "New Folder" + Me.btnnewfolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnnewfolder.UseVisualStyleBackColor = False + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.Black + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 31) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(596, 2) + Me.Panel2.TabIndex = 5 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.lbllocation) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(596, 31) + Me.Panel1.TabIndex = 4 + ' + 'lbllocation + ' + Me.lbllocation.BackColor = System.Drawing.Color.White + Me.lbllocation.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbllocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbllocation.ForeColor = System.Drawing.Color.Black + Me.lbllocation.Location = New System.Drawing.Point(0, 0) + Me.lbllocation.Name = "lbllocation" + Me.lbllocation.Size = New System.Drawing.Size(596, 31) + Me.lbllocation.TabIndex = 0 + Me.lbllocation.Text = "C:/ShiftOS/" + Me.lbllocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 347) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 345) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(598, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 347) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 345) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(600, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconFileSkimmer + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(121, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "File Skimmer" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 375) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(596, 2) + Me.pgbottom.TabIndex = 23 + ' + 'fileactions + ' + Me.fileactions.BackColor = System.Drawing.Color.Black + Me.fileactions.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.fileactions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeleteToolStripMenuItem}) + Me.fileactions.Name = "fileactions" + Me.fileactions.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional + Me.fileactions.Size = New System.Drawing.Size(108, 26) + ' + 'DeleteToolStripMenuItem + ' + Me.DeleteToolStripMenuItem.BackColor = System.Drawing.Color.Black + Me.DeleteToolStripMenuItem.ForeColor = System.Drawing.Color.White + Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem" + Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(107, 22) + Me.DeleteToolStripMenuItem.Text = "Delete" + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'File_Skimmer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(600, 377) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(400, 177) + Me.Name = "File_Skimmer" + Me.Text = "File_Skimmer" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnloptions.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.fileactions.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lvfiles As System.Windows.Forms.ListView + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents fileactions As System.Windows.Forms.ContextMenuStrip + Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lbllocation As System.Windows.Forms.Label + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents pnloptions As System.Windows.Forms.Panel + Friend WithEvents btnnewfolder As System.Windows.Forms.Button + Friend WithEvents pnlbreak As System.Windows.Forms.Panel + Friend WithEvents btndeletefile As System.Windows.Forms.Button + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer +End Class diff --git a/File Skimmer.resx b/File Skimmer.resx new file mode 100644 index 0000000..42527f8 --- /dev/null +++ b/File Skimmer.resx @@ -0,0 +1,322 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 28, 12 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU + KgAAAk1TRnQBSQFMAgEBDQEAASABAQEgAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABqAMAAagDAAEBAQABCAUAAUABbhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc + AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA + AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz + AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA + AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA + AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm + AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA + ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz + AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz + AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz + AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ + AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm + AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM + Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ + AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ + AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA + ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/ + ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ + AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA + AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA + AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA + AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ + AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA + AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/ + AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/ + ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/ + AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA + AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AKQAKP+AACj/ + gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAC/wvsA/8BAATs + AQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAD/wvsA/8BAALs + AQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP+AAAP/C+wE/wIABv8CAAb/ + AgAE/4AAEf8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AAAL/C+wD/wEABOwBAAL/AQAE7AEAAv8BAATs + AQAC/4AAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALs + AQAD/4AAEv8CAAb/AgAG/wIABP+AACj/gAAo/4AAA/8L7AT/AgAG/wIABv8CAAT/gAAR/wEAAuwBAAT/ + AQAC7AEABP8BAALsAQAD/4AAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAQ/wEABOwBAAL/ + AQAE7AEAAv8BAATsAQAC/4AAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAS/wIABv8CAAb/ + AgAE/4AAKP+AACj/gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/ + gAAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/ + gAAD/wvsA/8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP//AP8A + /wDPACH/CQAh/zMAIf8JAAX/CuwS/wkAIf8zACH/CQAE/wzsEf8JACH/MwAh/wkAA/8D7AgAA+wQ/wkA + A/8bAAP/MwAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8BAAPsD/8JAAP/AQAZ7AEAA/8zAA//AewN/wHs + A/8JAAH/A+wBAAH/CAAB/wEAA+wO/wkAA/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAH/AuwBAAH/ + AgAB/wQAAf8CAAH/AQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAKP8GAA//D+wD/wkAAf8C7AMAAf8GAAH/ + AwAC7A7/CQAD/wEAGewBAAP/BQAo/wYAIf8JAAH/AuwFAAH/AgAB/wUAAuwO/wkAA/8BAALsFf8C7AEA + A/8FAAL/JAAC/wYABP8H7AT/D+wD/wkAAf8C7AYAAv8GAAvsBf8JAAP/AQAZ7AEAA/8FAAL/JAAC/wYA + D/8B7A3/AewD/wkAAf8C7AUAAf8CAAH/BQAM7AT/CQAD/wEAAuwV/wLsAQAD/wUAAv8OAAb/AQAG/wEA + Bv8CAAL/BgAD/wfsBf8B7A3/AewD/wkAAf8C7AMAAf8GAAH/AgAD7AgAA+wD/wkAA/8BABnsAQAD/wUA + Av8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/w/sA/8JAAH/AuwBAAH/AgAB/wQAAf8CAAPs + AQAB/wYAAf8BAAPsAv8JAAP/AQAE7BH/BOwBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA + Av8GACH/CQAB/wPsAQAB/wgAA+wBAAH/CAAB/wEAA+wB/wkAA/8BABnsAQAD/wUAAv8OAAH/BAAB/wEA + Af8EAAH/AQAB/wQAAf8CAAL/BgAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8C7AEAAf8CAAH/BAAB/wIA + Af8BAALsAf8JAAP/AQAZ7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAD/8B7A3/ + AewD/wkAA/8D7AgAAuwDAAH/BgAB/wMAAuwB/wkAA/8bAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/ + B+wF/wHsDf8B7AP/CQAE/wzsBQAB/wIAAf8FAALsAf8JAA7/BQAO/wUAAv8kAAL/BgAP/w/sA/8JAAX/ + C+wGAAL/BgAC7AH/CQAP/wPsD/8FAAL/JAAC/wYAIf8JAA7/AuwFAAH/AgAB/wUAAuwB/wkAIf8FACj/ + BgAE/wfsBP8P7AP/CQAO/wLsAwAB/wYAAf8DAALsAf8JAAP/CwAF/wsAA/8FACj/BgAP/wHsDf8B7AP/ + CQAO/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BAAvsA/8L7AEAA/8FACj/BgAD/wfsBf8B7A3/ + AewD/wkADv8D7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAo/wYAD/8P7AP/CQAJ/wnsAQAB/wYA + Af8BAAPsAv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAIf8JAAj/C+wIAAPsA/8JAAP/AQAE7BH/BOwBAAP/ + BQAC/yTsAv8GAAT/B+wE/w/sA/8JAAf/A+wHAAzsBP8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHsBgAB7AYA + AuwC/wYAD/8B7A3/AewD/wkABv8D7AEAAf8GAAH/CuwF/wkAA/8BAALsFf8C7AEAA/8FAAL/DuwGAAHs + BgAB7AYAAuwC/wYAA/8H7AX/AewN/wHsA/8JAAX/A+wBAAH/CAAB/wEAA+wK/wkAA/8BABnsAQAD/wUA + Av8O7AYAAewGAAHsBgAC7AL/BgAP/w/sA/8JAAX/AuwBAAH/AgAB/wQAAf8CAAH/AQAC7Ar/CQAD/wEA + AuwVAALsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAh/wkABf8C7AMAAf8GAAH/AwAC7Ar/CQAD/wEA + GewBAAP/BQAC/w7sBgAB7AYAAewGAALsAv8GAAT/B+wE/w/sA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA + A/8BAALsFQAC7AEAA/8FAAL/DuwGAAHsBgAB7AYAAuwC/wYAD/8B7A3/AewD/wkABf8C7AYAAv8GAALs + Cv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAA/8H7AX/AewN/wHsA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA + A/8BAALsFQAC7AEAA/8FAAL/JOwC/wYAD/8P7AP/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEA + A/8FACj/BgAh/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAo/wYA + BP8H7AT/D+wD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/MwAP/wHsDf8B7AP/CQAG/wPs + AQAB/wYAAf8BAAPsC/8JAAP/AQAZ7AEAA/8zAAP/B+wF/wHsDf8B7AP/CQAH/wPsCAAD7Az/CQAD/xsA + A/8zAA//D+wD/wkACP8M7A3/CQAh/zMAIf8JAAn/CuwO/wkAIf8zACH/CQAh/wkAIf8zACH//wCsAAH0 + Ie8BBwHyAf8FAAH0Ie8BBwHyAf9ZAAHyAQABQx4VARABEQG8AfQFAAHyFQAGDgYAAREBvAH0WQAB8gEO + AfcevAHsARUBvAH0BQAB8hQAAQ4BFQEUAhMBFAERAQ4EAAEOARUBvAH0LQAo7AQAAfIBDgH3HrwB7AEV + AbwB9AUAAfIUAAFDAfcBBwLvAfcBbQEQBAABDgEVAbwB9C0AD+wKAA/sBAAB8gEOAfcevAHsARUBvAH0 + BQAB8hQAAUMBBwHvAewBEgETAUMBDgQAAQ4BFQG8AfQtAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AfcU7AHv + BLwB7AEVAbwB9AUAAfIDAAEODEMBEAMAAUMBBwHtARUIAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQA + AfIBDgH3BLwBExEOAwAB7AS8AewBFQG8AfQFAAHyAwABEQzsAW0DAAFDAQcBkgETAQ8BDgYAAQ4BFQG8 + AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETARQP7wETAwAB7AS8AewBFQG8AfQFAAHyBAABDgEQ + CREBEAEOAwABQwEHAvIB8QEHARAFAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8 + AeoDAAHsBLwB7AEVAbwB9AUAAfIEAAEOAesJ7AEVBAABQwEHAe8B7AFtAeoBDgUAAQ4BFQG8AfQDACj/ + AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITDrwB7AFDAwABEwGSA7wB7AEVAbwB9AUAAfIEAAEOAe8CvAEH + BewB9wHqBAABQwEHAZIBEwIPAQ4FAAEOARUBvAH0AwAP/wEAGP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8 + AhMNvAEHARUBDgMAAQ4B6gO8AewBFQG8AfQFAAHyBAABDgHvArwB7wIOAg8BAAHsAeoEAAFDAQcB7wHr + ARIBEwEQAQ4EAAEOARUBvAH0AwAP/wIAF/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMOvAEHARIDAAHr + AQcDvAHsARUBvAH0BQAB8gQAAQ4B7wK8Ae8BDgHsAQcB7QEOAewB6gQAAREBkgHvAQcC7wEUAQ4EAAEO + ARUBvAH0AwAP/wMAFv8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMPvAH3AeoBDgHrAe8EvAHsARUBvAH0 + BQAB8gQAAQ4B7wHsARQBFQEAAREBFAFDAQAB7AHqBAABDgFDARUCFAEVAQ8FAAEOARUBvAH0AwAP/wQA + Ff8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAHsAesB7Ae8AfcBbQEHBbwB7AEVAbwB9AUAAfIEAAEO + Ae8BEwEQAuoBDwEQAuoBkgHqEAABDgEVAbwB9AMAD/8FABT/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAIT + BrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B7wETARUC9wEVARICvAEHAeoCAAEODA8BDgEAAUMBvAH0 + AwAP/wYAE/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8AfQFAAHyBAABDgHv + ARMBAAIOAQABEgK8AQcB6gIAAesM7QFDAQABEQG8AfQDAA//BwAS/wIAD+wBAAj/AQAP7AQAAfIBDgH3 + BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAu8E7QHvArwBBwHqAgABEAFDChUBEQEOAQABEQG8 + AfQDAA//CAAR/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEO + AeoJbQFDAwABFQltARIBDgIAAREBvAH0AwAP/wkAEP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMBBwH3 + BJIBEQEAARAFkgH3AQcIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAA/s + AQAI/wEAD+wEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAER + AbwB9AMAD/8KAA//AgAK7AYACP8HAAnsBAAB8gEOAfcEvAITAe8BDgwAAREB7Ai8AewBFQG8AfQFAAHy + EwABbQH3BkMB7QEHAZIBDgIAAREBvAH0AwAP/wkAEP8CAArsAQAT/wEACewEAAHyAQ4B9wS8AhMB7wEO + DAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAe8GbQH3AQcBkgEOAgABEQG8AfQDAA//CAAR/wIAC+wBABH/ + AQAK7AQAAfIBDgH3AbwBBwLtAkMB7AEODAABDwFtBO0B9wO8AewBFQG8AfQFAAHyEwABbQi8AQcBkgEO + AgABEQG8AfQDAA//BwAS/wIADOwBAA//AQAL7AQAAfIBDgH3AbwB7BgAARMDvAHsARUBvAH0BQAB8gQA + DA4DAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8GABP/AgAN7AEADf8BAAzsBAAB8gEOAfcBvAHsGAABEwO8 + AewBFQG8AfQFAAHyAwABEQzsAeoCAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8FABT/AgAO7AEAC/8BAA3s + BAAB8gEOAfcBvAHvBOsBbQEODAABDwETBOsB7QO8AewBFQG8AfQFAAHyAwABDgEUCxMBQwIAAW0IvAEH + AZIBDgIAAUMBvAH0AwAP/wQAFf8CAA/sAQAJ/wEADuwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8 + AfQFAAHyBAABDgEUCBIBEwERAwABFAnsAW0BDgEAAQ4BFQG8AfQDAA//AwAW/wIAEOwBAAf/AQAP7AQA + AfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOAe8CBwW8AQcB7wHqEAABDgEVAbwB9AMA + D/8CABf/AgAR7AEABf8BABDsBAAB8gEOAfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wFt + AeoEvAHvARAB7AHqBgABEAFDAxUBEQEOAwABDgEVAbwB9AMAD/8BABj/AgAS7AEAA/8BABHsBAAB8gEO + AfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wGSAW0B6gEHAbwB7QESAewB9wHqBgAB6wKS + Au0BbQERAwABDgEVAbwB9AMAKP8CABPsAQAB/wEAEuwEAAHyAQ4B9wa8AQcB6gQTAQ4DAAEVAxMBbQH3 + CLwB7AEVAbwB9AUAAfIEAAEOAe8BvAGSARIC7AJtAgcB6gUAAQ4BkgEHAfcC6wESARADAAEOARUBvAH0 + AwAo/wIAFOwBABPsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwBBwGSAREBDwHq + Ae8BvAEHAeoFAAEOApIB6gcAAQ4BFQG8AfQDACj/AgAo7AQAAfIBDgH3DLwBFQMAAZINvAHsARUBvAH0 + BQAB8gQAAQ4B7wG8AewBEQHvAQcB6wFDAgcB6gUAAQ4CkgHqBwABDgEVAbwB9AMAKP8CACjsBAAB8gEO + AfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAewB6gHtAQcBvAHvAewBFAHtAeoFAAEOAZICvALv + ARQEAAEOARUBvAH0WQAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAuwEvAHvAeoBkgHq + BQABDgGSAgcC7QEVBAABDgEVAbwB9C0AD+wdAAHyAQ4B9wy8ARIDEAH3DbwB7AEVAbwB9AUAAfIEAAEO + AewI9wHtARMFAAEOAZIB9wFtAg4FAAEOARUBvAH0LQAO7B4AAfIBDgH3DLwEBw68AewBFQG8AfQFAAHy + BQAKDgYAAQ4BkgHvAewCFQEQAQ4DAAEOARUBvAH0WQAB8gEOAfcevAHsARUBvAH0BQAB8hUAAQ4B7ALv + ApIBEgEPBAABEQG8AfRZAAHyAQABEh5tARQBQwG8AfQFAAHyFgABFQHqA20BQwEOBAABEQG8AfRZAAHz + IW0B7AHxAfQFAAHzIW0B7AHxAfT/AIIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGACH/CQAE/xrs + A/8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYADv8E7A//CQAD/xrs + BP8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIAKOwGACH/CQAE/xrs + A/8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAA7/AZID7A// + CQAD/xrsBP8FAAj/FuwF/wHsBP8CACjsBgAO/wGSA+wP/wkAIf8FAA//C+wJ/wLsA/8CACjsBgAO/wGS + A+wB8g7/CQAh/wUAHv8B7AX/AewD/wIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAHv8C7AT/AuwC/wIA + KOwGAA7/AfEE7A7/CQAh/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAP/wTsAe8N/wkAIf8FABn/AuwF/wHs + BP8B7AL/AgAo7AYAD/8B8QTsAe8M/wkAA/8a7AT/BQAa/wHsBf8B7AT/AewC/wIAKOwGABD/AbwE7AHv + AfQK/wkAIf8FABr/AuwE/wHsBP8C7AH/AgAo7AYAEf8BvATsAe0B9An/CQAh/wUAE/8E7AT/AuwJ/wHs + Af8CACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FABb/AuwF/wHsCv8CACjsBgAT/wHyBOwB7wj/CQAh/wUA + F/8B7An/BuwB/wIAKOwGABT/AfIE7AHyB/8JACH/BQAX/wLsBv8J7AIAKOwGABX/AbwD7AHvB/8JAAP/ + GuwE/wUAEP8B7Af/AuwE/wrsAgAo7AYAFv8E7Af/CQAh/wUAEP8D7Ab/AuwC/wvsAgAo7AYABv8B8wHv + AZIB7AHvC/8BkgPsB/8JACH/BQAS/wPsB/8M7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUA + FP8C7Ab/DOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/CQAh/wUAFf8C7AT/DewCACjsBgAH/wEHA+wB9wn/ + AfcD7AHvB/8JACH/BQAN/wTsBf8D7AL/DewCACjsBgAH/wH0BOwB7wf/Ae8E7AHzB/8JAAP/GuwE/wUA + EP8C7An/DewCACjsBgAI/wEHBOwBkgHwAfQB/wH0AfABkgTsAQcI/wkAIf8FABH/AewJ/w3sAgAo7AYA + Cf8B7w3sAe8J/wkAIf8FABH/COwC/w3sAgAo7AYACv8B8AvsAfAK/wkABP8a7AP/BQAb/w3sMAAL/wH0 + AbwB9wTsAe0B7wG8DP8JACH/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAIf8JAAP/GuwE/10A + If8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABqAMAAQEBAAEBBQABwAEP + FgAD/wEABf8BwBIABf8BwBIABf8BwP8A/wD/AHUABf8BwBIABf8BwBIABf8BwBIAAfADAAEBAfwEAAF/ + Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEB + AfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw + BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA + AfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHA + AwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQA + AX8F/wHAAwABBwMAFf8DAAr/Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMABf8BwAQAAQ4EAAEP + AYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED + DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO + BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP + AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA + AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A + AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA + AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA + AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAwMABf8BwAEAAR8C/wH+ + BAABDwGAAwABAwMABf8BwAEAAT8C/wH+BAABDwGAAwABAwMABf8BwAEAAX8C/wH+BAABDwGAAwABAwMA + Cv8B/gQAAQ8BgAMAAQMDAAr/Af4EAAEPAYADAAEDAwAV/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/ + BAABHwX/AwAF/wH8BAABfwQAAR8F/wgAATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A + ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHAoA + AX8C/wH8BAABfwQAARwKAAP/AfwEAAF/BAABHAkAAQED/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf + Bf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw== + + + + 138, 12 + + + 1347, 18 + + + 1431, 18 + + + 1544, 18 + + \ No newline at end of file diff --git a/File Skimmer.vb b/File Skimmer.vb new file mode 100644 index 0000000..317cf54 --- /dev/null +++ b/File Skimmer.vb @@ -0,0 +1,661 @@ +Imports System.IO +Public Class File_Skimmer + 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 = 400 + Public minimumsizeheight As Integer = 177 + + Dim itemsdeleted As Integer + Dim filetype As Integer + + 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() + + ShiftOSDesktop.pnlpanelbuttonfileskimmer.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfileskimmer, ShiftOSDesktop.tbfileskimmericon, ShiftOSDesktop.tbfileskimmertext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + setupoptions() + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.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, 377) '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.fileskimmername + 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.boughtfileskimmericon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.fileskimmericontitlebar '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 + + Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + End Sub + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 + + 'end of general setup + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + showcontents() + End Sub + + Private Sub showcontents() + lvfiles.Items.Clear() + + lvfiles.Items.Add("Exit Folder", 5) + + Dim dir As New DirectoryInfo(lbllocation.Text) + Dim files As FileInfo() = dir.GetFiles() + Dim file As FileInfo + Dim folders As DirectoryInfo() = dir.GetDirectories() + Dim folder As DirectoryInfo + + For Each folder In folders + Dim foldername As String = folder.Name + lvfiles.Items.Add(foldername, 0) + Next + + For Each file In files + Dim filename As String = file.Name + Dim fileex As String = file.Extension + + Select Case fileex + Case ".txt" + filetype = 2 + Case ".doc" + filetype = 2 + Case ".docx" + filetype = 2 + Case ".lst" + filetype = 2 + Case ".png" + filetype = 3 + Case ".jpg" + filetype = 3 + Case ".jpeg" + filetype = 3 + Case ".bmp" + filetype = 3 + Case ".gif" + filetype = 3 + Case ".avi" + filetype = 4 + Case ".m4v" + filetype = 4 + Case ".mp4" + filetype = 4 + Case ".wmv" + filetype = 4 + Case ".dll" + filetype = 6 + Case ".exe" + filetype = 7 + Case ".sft" + filetype = 8 + Case ".dri" + filetype = 9 + Case ".pic" + filetype = 3 + Case ".skn" + filetype = 10 + Case ".nls" + filetype = 11 + Case ".icp" + filetype = 12 + Case Else + filetype = 1 + End Select + lvfiles.Items.Add(filename, filetype) + Next + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + showcontents() + End Sub + + Private Sub lbfiles_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseDoubleClick + + If lvfiles.SelectedItems(0).Text = "Exit Folder" Then + + If lbllocation.Text = "C:/ShiftOS/" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "You can only enter directories formatted in the ShiftOS file system (ShiftFS)" + infobox.Show() + Else + Dim endloop As Boolean = False + lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) + + While endloop = False + If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then + endloop = True + Else + lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) + End If + End While + showcontents() + End If + Else + 'Check if selected item is a file or folder. It it's a folder check its extension + If lvfiles.SelectedItems(0).Text Like "*.txt" Then + If TextPad.needtosave = False Then + TextPad.Show() + TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + TextPad.needtosave = False + Else + infobox.title = "Textpad - Save?" + infobox.textinfo = "It appears that your text document currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to load a file without saving the changes?" + infobox.Show() + infobox.showyesno() + infobox.sendyesno = "fileskimmertextpad" + End If + ElseIf lvfiles.SelectedItems(0).Text Like "*.pic" Then + If ArtPad.needtosave = False Then + ArtPad.Show() + ArtPad.savelocation = (lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + ArtPad.openpic() + ArtPad.needtosave = False + Else + infobox.title = "Artpad - Save?" + infobox.textinfo = "It appears that your canvas currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to open a different canvas without saving the changes?" + infobox.Show() + infobox.showyesno() + infobox.sendyesno = "fileskimmerartpad" + End If + ElseIf lvfiles.SelectedItems(0).Text Like "*.sft" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.lst" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.dri" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.lang" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.skn" Then + Skin_Loader.Show() + ShiftOSDesktop.disposeoldskindata("skinloaderemovepreview") + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents) + System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lvfiles.SelectedItems(0).Text, "C:\ShiftOS\Shiftum42\Skins\Preview\") + My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False) + Skin_Loader.loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat") + Skin_Loader.loadskintopreview() + Skin_Loader.skinloaded = True + Else + Dim textboxtext As String + textboxtext = lbllocation.Text + Dim last As String + Dim selit As String + last = textboxtext.Substring(textboxtext.Length - 1) + If last = "/" Then + selit = lvfiles.SelectedItems(0).Text + lbllocation.Text = lbllocation.Text + selit + Else + selit = lvfiles.SelectedItems(0).Text + lbllocation.Text = lbllocation.Text + ("/" & selit) + End If + showcontents() + End If + + + End If + End Sub + + + Private Sub lbfiles_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + fileactions.Show(MousePosition) + Else + If lvfiles.SelectedItems(0).Text Like "*.*" Then + btndeletefile.Text = "Delete File" + btndeletefile.Image = My.Resources.deletefile + btndeletefile.Size = New Size(117, 31) + Else + btndeletefile.Text = "Delete Folder" + btndeletefile.Image = My.Resources.deletefolder + btndeletefile.Size = New Size(130, 31) + End If + End If + End Sub + + Private Sub pnlbreak_MouseEnter(sender As Object, e As EventArgs) Handles pnlbreak.Click + If pnloptions.Visible = False Then + pnlbreak.BackgroundImage = My.Resources.downarrow + pnloptions.Show() + Else + pnlbreak.BackgroundImage = My.Resources.uparrow + pnloptions.Hide() + End If + End Sub + + Private Sub btndeletefile_Click(sender As Object, e As EventArgs) Handles btndeletefile.Click + If lvfiles.SelectedItems.Count > 0 Then + If lvfiles.SelectedItems(0).Text Like "*.*" Then + If lvfiles.SelectedItems(0).Text Like "*.dri*" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.sft*" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.lst*" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage." + infobox.Show() + ElseIf lvfiles.SelectedItems(0).Text Like "*.lang*" Then + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage." + infobox.Show() + Else + My.Computer.FileSystem.DeleteFile(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text) + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + showcontents() + End If + Else + Select Case lvfiles.SelectedItems(0).Text + Case "Shiftum42", "SoftwareData", "Drivers", "Languages", "KnowledgeInput" + infobox.title = "File Skimmer - Warning!" + infobox.textinfo = "This system folder is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this folder has been blocked to protect the system from potential damage." + infobox.Show() + Case Else + My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents) + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + showcontents() + End Select + End If + End If + End Sub + + Private Sub btnnewfolder_Click(sender As Object, e As EventArgs) Handles btnnewfolder.Click + infobox.lblintructtext.Text = "Please enter a name for your new folder:" + infobox.txtuserinput.Text = "" + infobox.lblintructtext.Show() + infobox.txtuserinput.Show() + infobox.title = "New Folder" + infobox.Show() + infobox.state = "makingfolder" + End Sub + + Public Sub makefolder() + My.Computer.FileSystem.CreateDirectory(lbllocation.Text & "/" & infobox.txtuserinput.Text) + showcontents() + infobox.Close() + End Sub + + Private Sub setupoptions() + If ShiftOSDesktop.boughtfileskimmernewfolder = True Then btnnewfolder.Show() Else btnnewfolder.Hide() + If ShiftOSDesktop.boughtfileskimmerdelete = True Then btndeletefile.Show() Else btndeletefile.Hide() + If ShiftOSDesktop.boughtfileskimmernewfolder = False AndAlso ShiftOSDesktop.boughtfileskimmerdelete = False Then pnlbreak.Hide() + End Sub + + Private Sub lvfiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvfiles.SelectedIndexChanged + + End Sub +End Class \ No newline at end of file diff --git a/File_Crypt.vb b/File_Crypt.vb new file mode 100644 index 0000000..d6ee0f7 --- /dev/null +++ b/File_Crypt.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.IO +Imports System.Security +Imports System.Security.Cryptography +Imports System.Text +Public Class File_Crypt + Public Const sSecretKey As String = "Password" + + Public Shared Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String) + + Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read) + Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write) + + Dim DES As New DESCryptoServiceProvider() + + + DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey) + + DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey) + + Dim desencrypt As ICryptoTransform = DES.CreateEncryptor() + + Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write) + + Dim bytearrayinput(fsInput.Length - 1) As Byte + fsInput.Read(bytearrayinput, 0, bytearrayinput.Length) + cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length) + cryptostream.Dispose() + fsInput.Dispose() + fsEncrypted.Dispose() + End Sub + + Public Shared Sub DecryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String) + + Dim DES As New DESCryptoServiceProvider() + + + DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey) + + DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey) + + Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read) + + Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor() + + Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read) + + Dim fsDecrypted As New StreamWriter(sOutputFilename) + fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd) + fsDecrypted.Flush() + fsread.Dispose() + fsDecrypted.Dispose() + End Sub + +End Class \ No newline at end of file diff --git a/Graphic Picker.Designer.vb b/Graphic Picker.Designer.vb new file mode 100644 index 0000000..689cf11 --- /dev/null +++ b/Graphic Picker.Designer.vb @@ -0,0 +1,553 @@ + _ +Partial Class Graphic_Picker + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.btncancel = New System.Windows.Forms.Button() + Me.btnreset = New System.Windows.Forms.Button() + Me.btnapply = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnmousedownbrowse = New System.Windows.Forms.Button() + Me.txtmousedownfile = New System.Windows.Forms.TextBox() + Me.picmousedown = New System.Windows.Forms.PictureBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnmouseoverbrowse = New System.Windows.Forms.Button() + Me.txtmouseoverfile = New System.Windows.Forms.TextBox() + Me.picmouseover = New System.Windows.Forms.PictureBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnidlebrowse = New System.Windows.Forms.Button() + Me.txtidlefile = New System.Windows.Forms.TextBox() + Me.picidle = New System.Windows.Forms.PictureBox() + Me.btnzoom = New System.Windows.Forms.Button() + Me.btnstretch = New System.Windows.Forms.Button() + Me.btncentre = New System.Windows.Forms.Button() + Me.btntile = New System.Windows.Forms.Button() + Me.pnlgraphicholder = New System.Windows.Forms.Panel() + Me.picgraphic = New System.Windows.Forms.PictureBox() + Me.lblobjecttoskin = New System.Windows.Forms.Label() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.pgcontents.SuspendLayout() + CType(Me.picmousedown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picmouseover, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picidle, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlgraphicholder.SuspendLayout() + CType(Me.picgraphic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.btncancel) + Me.pgcontents.Controls.Add(Me.btnreset) + Me.pgcontents.Controls.Add(Me.btnapply) + Me.pgcontents.Controls.Add(Me.Label4) + Me.pgcontents.Controls.Add(Me.btnmousedownbrowse) + Me.pgcontents.Controls.Add(Me.txtmousedownfile) + Me.pgcontents.Controls.Add(Me.picmousedown) + Me.pgcontents.Controls.Add(Me.Label3) + Me.pgcontents.Controls.Add(Me.btnmouseoverbrowse) + Me.pgcontents.Controls.Add(Me.txtmouseoverfile) + Me.pgcontents.Controls.Add(Me.picmouseover) + Me.pgcontents.Controls.Add(Me.Label2) + Me.pgcontents.Controls.Add(Me.Label1) + Me.pgcontents.Controls.Add(Me.btnidlebrowse) + Me.pgcontents.Controls.Add(Me.txtidlefile) + Me.pgcontents.Controls.Add(Me.picidle) + Me.pgcontents.Controls.Add(Me.btnzoom) + Me.pgcontents.Controls.Add(Me.btnstretch) + Me.pgcontents.Controls.Add(Me.btncentre) + Me.pgcontents.Controls.Add(Me.btntile) + Me.pgcontents.Controls.Add(Me.pnlgraphicholder) + Me.pgcontents.Controls.Add(Me.lblobjecttoskin) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(386, 540) + Me.pgcontents.TabIndex = 20 + ' + 'btncancel + ' + Me.btncancel.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncancel.Location = New System.Drawing.Point(19, 492) + Me.btncancel.Name = "btncancel" + Me.btncancel.Size = New System.Drawing.Size(109, 32) + Me.btncancel.TabIndex = 23 + Me.btncancel.Text = "Cancel" + Me.btncancel.UseVisualStyleBackColor = True + ' + 'btnreset + ' + Me.btnreset.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.btnreset.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnreset.Location = New System.Drawing.Point(134, 492) + Me.btnreset.Name = "btnreset" + Me.btnreset.Size = New System.Drawing.Size(109, 32) + Me.btnreset.TabIndex = 22 + Me.btnreset.Text = "Reset" + Me.btnreset.UseVisualStyleBackColor = True + ' + 'btnapply + ' + Me.btnapply.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.btnapply.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnapply.Location = New System.Drawing.Point(249, 492) + Me.btnapply.Name = "btnapply" + Me.btnapply.Size = New System.Drawing.Size(118, 32) + Me.btnapply.TabIndex = 21 + Me.btnapply.Text = "Apply" + Me.btnapply.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(125, 411) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(163, 28) + Me.Label4.TabIndex = 20 + Me.Label4.Text = "Mouse Down" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnmousedownbrowse + ' + Me.btnmousedownbrowse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnmousedownbrowse.Location = New System.Drawing.Point(295, 411) + Me.btnmousedownbrowse.Name = "btnmousedownbrowse" + Me.btnmousedownbrowse.Size = New System.Drawing.Size(73, 60) + Me.btnmousedownbrowse.TabIndex = 19 + Me.btnmousedownbrowse.Text = "Browse" + Me.btnmousedownbrowse.UseVisualStyleBackColor = True + ' + 'txtmousedownfile + ' + Me.txtmousedownfile.BackColor = System.Drawing.Color.White + Me.txtmousedownfile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtmousedownfile.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!) + Me.txtmousedownfile.Location = New System.Drawing.Point(125, 442) + Me.txtmousedownfile.Multiline = True + Me.txtmousedownfile.Name = "txtmousedownfile" + Me.txtmousedownfile.Size = New System.Drawing.Size(163, 29) + Me.txtmousedownfile.TabIndex = 18 + Me.txtmousedownfile.Text = "None" + Me.txtmousedownfile.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'picmousedown + ' + Me.picmousedown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picmousedown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.picmousedown.Location = New System.Drawing.Point(19, 411) + Me.picmousedown.Name = "picmousedown" + Me.picmousedown.Size = New System.Drawing.Size(100, 60) + Me.picmousedown.TabIndex = 17 + Me.picmousedown.TabStop = False + ' + 'Label3 + ' + Me.Label3.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(125, 336) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(163, 28) + Me.Label3.TabIndex = 16 + Me.Label3.Text = "Mouse Over" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnmouseoverbrowse + ' + Me.btnmouseoverbrowse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnmouseoverbrowse.Location = New System.Drawing.Point(295, 336) + Me.btnmouseoverbrowse.Name = "btnmouseoverbrowse" + Me.btnmouseoverbrowse.Size = New System.Drawing.Size(73, 60) + Me.btnmouseoverbrowse.TabIndex = 15 + Me.btnmouseoverbrowse.Text = "Browse" + Me.btnmouseoverbrowse.UseVisualStyleBackColor = True + ' + 'txtmouseoverfile + ' + Me.txtmouseoverfile.BackColor = System.Drawing.Color.White + Me.txtmouseoverfile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtmouseoverfile.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!) + Me.txtmouseoverfile.Location = New System.Drawing.Point(125, 367) + Me.txtmouseoverfile.Multiline = True + Me.txtmouseoverfile.Name = "txtmouseoverfile" + Me.txtmouseoverfile.Size = New System.Drawing.Size(163, 29) + Me.txtmouseoverfile.TabIndex = 14 + Me.txtmouseoverfile.Text = "None" + Me.txtmouseoverfile.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'picmouseover + ' + Me.picmouseover.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picmouseover.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.picmouseover.Location = New System.Drawing.Point(19, 336) + Me.picmouseover.Name = "picmouseover" + Me.picmouseover.Size = New System.Drawing.Size(100, 60) + Me.picmouseover.TabIndex = 13 + Me.picmouseover.TabStop = False + ' + 'Label2 + ' + Me.Label2.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(125, 260) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(163, 28) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "Idle" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Bookman Old Style", 14.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(17, 228) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(70, 23) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "States" + ' + 'btnidlebrowse + ' + Me.btnidlebrowse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnidlebrowse.Location = New System.Drawing.Point(295, 260) + Me.btnidlebrowse.Name = "btnidlebrowse" + Me.btnidlebrowse.Size = New System.Drawing.Size(73, 60) + Me.btnidlebrowse.TabIndex = 10 + Me.btnidlebrowse.Text = "Browse" + Me.btnidlebrowse.UseVisualStyleBackColor = True + ' + 'txtidlefile + ' + Me.txtidlefile.BackColor = System.Drawing.Color.White + Me.txtidlefile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtidlefile.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtidlefile.Location = New System.Drawing.Point(125, 291) + Me.txtidlefile.Multiline = True + Me.txtidlefile.Name = "txtidlefile" + Me.txtidlefile.Size = New System.Drawing.Size(163, 29) + Me.txtidlefile.TabIndex = 9 + Me.txtidlefile.Text = "None" + Me.txtidlefile.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'picidle + ' + Me.picidle.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picidle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.picidle.Location = New System.Drawing.Point(19, 260) + Me.picidle.Name = "picidle" + Me.picidle.Size = New System.Drawing.Size(100, 60) + Me.picidle.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picidle.TabIndex = 8 + Me.picidle.TabStop = False + ' + 'btnzoom + ' + Me.btnzoom.BackgroundImage = Global.ShiftOS.My.Resources.Resources.zoombutton + Me.btnzoom.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnzoom.FlatAppearance.BorderSize = 0 + Me.btnzoom.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnzoom.Location = New System.Drawing.Point(286, 144) + Me.btnzoom.Name = "btnzoom" + Me.btnzoom.Size = New System.Drawing.Size(82, 65) + Me.btnzoom.TabIndex = 7 + Me.btnzoom.UseVisualStyleBackColor = True + ' + 'btnstretch + ' + Me.btnstretch.BackgroundImage = Global.ShiftOS.My.Resources.Resources.stretchbutton + Me.btnstretch.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnstretch.FlatAppearance.BorderSize = 0 + Me.btnstretch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstretch.Location = New System.Drawing.Point(197, 144) + Me.btnstretch.Name = "btnstretch" + Me.btnstretch.Size = New System.Drawing.Size(82, 65) + Me.btnstretch.TabIndex = 6 + Me.btnstretch.UseVisualStyleBackColor = True + ' + 'btncentre + ' + Me.btncentre.BackgroundImage = Global.ShiftOS.My.Resources.Resources.centrebutton + Me.btncentre.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btncentre.FlatAppearance.BorderSize = 0 + Me.btncentre.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncentre.Location = New System.Drawing.Point(108, 144) + Me.btncentre.Name = "btncentre" + Me.btncentre.Size = New System.Drawing.Size(82, 65) + Me.btncentre.TabIndex = 5 + Me.btncentre.UseVisualStyleBackColor = True + ' + 'btntile + ' + Me.btntile.BackgroundImage = Global.ShiftOS.My.Resources.Resources.tilebutton + Me.btntile.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btntile.FlatAppearance.BorderSize = 0 + Me.btntile.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntile.Location = New System.Drawing.Point(19, 144) + Me.btntile.Name = "btntile" + Me.btntile.Size = New System.Drawing.Size(82, 65) + Me.btntile.TabIndex = 4 + Me.btntile.UseVisualStyleBackColor = True + ' + 'pnlgraphicholder + ' + Me.pnlgraphicholder.Controls.Add(Me.picgraphic) + Me.pnlgraphicholder.Location = New System.Drawing.Point(19, 38) + Me.pnlgraphicholder.Name = "pnlgraphicholder" + Me.pnlgraphicholder.Size = New System.Drawing.Size(350, 100) + Me.pnlgraphicholder.TabIndex = 3 + ' + 'picgraphic + ' + Me.picgraphic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.picgraphic.Location = New System.Drawing.Point(0, 0) + Me.picgraphic.Name = "picgraphic" + Me.picgraphic.Size = New System.Drawing.Size(350, 100) + Me.picgraphic.TabIndex = 0 + Me.picgraphic.TabStop = False + ' + 'lblobjecttoskin + ' + Me.lblobjecttoskin.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblobjecttoskin.Location = New System.Drawing.Point(19, 9) + Me.lblobjecttoskin.Name = "lblobjecttoskin" + Me.lblobjecttoskin.Size = New System.Drawing.Size(350, 23) + Me.lblobjecttoskin.TabIndex = 2 + Me.lblobjecttoskin.Text = "Close Button" + Me.lblobjecttoskin.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 540) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 538) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(388, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 540) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 538) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(390, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconGraphicPicker + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(150, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Graphic Picker" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(388, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 568) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(386, 2) + Me.pgbottom.TabIndex = 23 + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'Graphic_Picker + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(390, 570) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Graphic_Picker" + Me.Text = "Graphic_Picker" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + CType(Me.picmousedown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picmouseover, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picidle, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlgraphicholder.ResumeLayout(False) + CType(Me.picgraphic, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents btncancel As System.Windows.Forms.Button + Friend WithEvents btnreset As System.Windows.Forms.Button + Friend WithEvents btnapply As System.Windows.Forms.Button + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnmousedownbrowse As System.Windows.Forms.Button + Friend WithEvents txtmousedownfile As System.Windows.Forms.TextBox + Friend WithEvents picmousedown As System.Windows.Forms.PictureBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btnmouseoverbrowse As System.Windows.Forms.Button + Friend WithEvents txtmouseoverfile As System.Windows.Forms.TextBox + Friend WithEvents picmouseover As System.Windows.Forms.PictureBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnidlebrowse As System.Windows.Forms.Button + Friend WithEvents txtidlefile As System.Windows.Forms.TextBox + Friend WithEvents picidle As System.Windows.Forms.PictureBox + Friend WithEvents btnzoom As System.Windows.Forms.Button + Friend WithEvents btnstretch As System.Windows.Forms.Button + Friend WithEvents btncentre As System.Windows.Forms.Button + Friend WithEvents btntile As System.Windows.Forms.Button + Friend WithEvents pnlgraphicholder As System.Windows.Forms.Panel + Friend WithEvents picgraphic As System.Windows.Forms.PictureBox + Friend WithEvents lblobjecttoskin As System.Windows.Forms.Label + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents minimizebutton As System.Windows.Forms.Panel +End Class diff --git a/Graphic Picker.resx b/Graphic Picker.resx new file mode 100644 index 0000000..33c7f67 --- /dev/null +++ b/Graphic Picker.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file 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 diff --git a/HijackScreen.Designer.vb b/HijackScreen.Designer.vb new file mode 100644 index 0000000..a314557 --- /dev/null +++ b/HijackScreen.Designer.vb @@ -0,0 +1,92 @@ + _ +Partial Class HijackScreen + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lblHijack = New System.Windows.Forms.Label() + Me.conversationtimer = New System.Windows.Forms.Timer(Me.components) + Me.textgen = New System.Windows.Forms.Timer(Me.components) + Me.lblhackwords = New System.Windows.Forms.Label() + Me.hackeffecttimer = New System.Windows.Forms.Timer(Me.components) + Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.SuspendLayout() + ' + 'lblHijack + ' + Me.lblHijack.Anchor = System.Windows.Forms.AnchorStyles.None + Me.lblHijack.AutoSize = True + Me.lblHijack.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblHijack.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHijack.ForeColor = System.Drawing.Color.DimGray + Me.lblHijack.Location = New System.Drawing.Point(143, 193) + Me.lblHijack.Name = "lblHijack" + Me.lblHijack.Size = New System.Drawing.Size(18, 25) + Me.lblHijack.TabIndex = 0 + Me.lblHijack.Text = "\" + ' + 'conversationtimer + ' + ' + 'textgen + ' + Me.textgen.Interval = 20 + ' + 'lblhackwords + ' + Me.lblhackwords.AutoSize = True + Me.lblhackwords.Dock = System.Windows.Forms.DockStyle.Fill + Me.lblhackwords.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblhackwords.ForeColor = System.Drawing.SystemColors.ButtonFace + Me.lblhackwords.Location = New System.Drawing.Point(0, 0) + Me.lblhackwords.Name = "lblhackwords" + Me.lblhackwords.Size = New System.Drawing.Size(127, 18) + Me.lblhackwords.TabIndex = 1 + Me.lblhackwords.Text = "Hijack in progress" + ' + 'hackeffecttimer + ' + Me.hackeffecttimer.Interval = 50 + ' + 'HijackScreen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Silver + Me.ClientSize = New System.Drawing.Size(653, 457) + Me.Controls.Add(Me.lblhackwords) + Me.Controls.Add(Me.lblHijack) + Me.Name = "HijackScreen" + Me.Text = "ShiftOS" + Me.TransparencyKey = System.Drawing.Color.White + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblHijack As System.Windows.Forms.Label + Friend WithEvents conversationtimer As System.Windows.Forms.Timer + Friend WithEvents textgen As System.Windows.Forms.Timer + Friend WithEvents lblhackwords As System.Windows.Forms.Label + Friend WithEvents hackeffecttimer As System.Windows.Forms.Timer + Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker + +End Class diff --git a/HijackScreen.resx b/HijackScreen.resx new file mode 100644 index 0000000..b58c9d2 --- /dev/null +++ b/HijackScreen.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 9, 18 + + + 106, 17 + + + 199, 17 + + + 335, 17 + + \ No newline at end of file diff --git a/HijackScreen.vb b/HijackScreen.vb new file mode 100644 index 0000000..aa5266f --- /dev/null +++ b/HijackScreen.vb @@ -0,0 +1,309 @@ +Imports System +Imports System.IO +Imports System.Text +Imports System.Net.Mail + +Public Class HijackScreen + Public actualshiftversion As String = "0.0.7" + Dim newgame As Boolean = True + Dim tcount As Integer = 0 + Dim rtext As String + Dim gtexttotype As String + Dim charcount As Integer + Dim currentletter As Integer + Dim slashcount As Integer + Dim conversationcount As Integer = 0 + Dim textgeninput As Object + Dim di As DirectoryInfo + Dim needtoclose As Boolean = False + Dim oldversion As String + Public upgraded As Boolean = False + + Dim fs As FileStream + Dim hackeffect As Integer + Dim percentcount As Integer + Dim cdrive As System.IO.DriveInfo + + Private Sub HijackScreen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Control.CheckForIllegalCrossThreadCalls = False + cdrive = My.Computer.FileSystem.GetDriveInfo("C:\") + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Me.WindowState = FormWindowState.Maximized + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS") Then + If IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft") = actualshiftversion Then + ShiftOSDesktop.Show() + conversationtimer.Start() + needtoclose = True + Else + If MessageBox.Show("Your save file is not currently compatible with this version of ShiftOS. Would you like to upgrade your save file so you can continue to play the latest version of ShiftOS without losing your progress? If so click yes below. If you would like to start a new game and wipe all your progress please click no", "Warning: Update your save file", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then + Me.Hide() + ShiftOS_Save_File_Converter.Show() + ShiftOS_Save_File_Converter.BringToFront() + Else + oldversion = IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft") + upgraded = True + System.IO.Directory.Delete("C:/ShiftOS/", True) + BackgroundWorker1.RunWorkerAsync() + conversationtimer.Start() + hackeffecttimer.Start() + End If + End If + Else + BackgroundWorker1.RunWorkerAsync() + conversationtimer.Start() + hackeffecttimer.Start() + End If + End Sub + + Private Sub TextType(texttotype As String) + conversationtimer.Stop() + charcount = texttotype.Length + gtexttotype = texttotype + currentletter = 0 + slashcount = 1 + textgen.Start() + End Sub + + Private Sub textgen_Tick(sender As Object, e As EventArgs) Handles textgen.Tick + + Select Case slashcount + Case 1 + If currentletter < gtexttotype.Length Then + textgeninput.Text = rtext & "\" + End If + + Case 2 + If currentletter < gtexttotype.Length Then + textgeninput.Text = rtext & "|" + End If + + Case 3 + If currentletter < gtexttotype.Length Then + textgeninput.Text = rtext & "/" + End If + + Case 4 + If currentletter < gtexttotype.Length Then + rtext = rtext + gtexttotype.ToCharArray(currentletter, 1) + currentletter = currentletter + 1 + textgeninput.Text = rtext + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + End If + End Select + + slashcount = slashcount + 1 + + If slashcount = 5 Then slashcount = 1 + If currentletter = gtexttotype.Length Then + gtexttotype = "" + conversationtimer.Start() + textgen.Stop() + End If + + + End Sub + + Private Sub conversationtimer_Tick(sender As Object, e As EventArgs) Handles conversationtimer.Tick + Select Case conversationcount + Case 0 + If needtoclose = True Then Me.Close() + Case 1 + + textgeninput = lblHijack + TextType("Your computer is now being Hijacked") + conversationtimer.Interval = 1000 + + Case 3 + textgeninput = lblhackwords + textgen.Interval = 10 + rtext = "" + TextType("Congratulations, you have been involuntarily selected to be an Alpha Tester for ShiftOS." & Environment.NewLine & Environment.NewLine) + Case 4 + TextType("At this current point in time I do not wish to reveal my identity or future intentions." & Environment.NewLine & Environment.NewLine) + Case 5 + TextType("I just need to use you and your computer as an external test bed to evolve my experimental operating system." & Environment.NewLine & Environment.NewLine) + Case 6 + TextType("Right now ShiftOS is practically non-existent but I’ll work on coding it remotely as you use it." & Environment.NewLine & Environment.NewLine) + Case 7 + TextType("Your hard drive will now be formatted in preparation for the installation of ShiftOS" & Environment.NewLine & Environment.NewLine) + Case 8 + TextType("Starting Format.") + conversationtimer.Interval = 500 + Case 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 + TextType(".") + Case 19 + rtext = "" + Case 20 + TextType("Scanning Drive C:/") + Case 21 + + TextType(Environment.NewLine & Environment.NewLine & "Drive Label: " & cdrive.VolumeLabel) + Case 22 + TextType(Environment.NewLine & "Total Drive Size: " & Format(cdrive.TotalSize.ToString / 1024 / 1024 / 1024, "0.00") & " GigaBytes") + Case 23 + TextType(Environment.NewLine & "Old File System: " & cdrive.DriveFormat) + Case 24 + TextType(Environment.NewLine & "New File System: ShiftFS") + Case 25 + TextType(Environment.NewLine & Environment.NewLine & "Formatting C:/ - ") + conversationtimer.Interval = 100 + Case 26 To 126 + textgeninput.Text = rtext & percentcount & "%" + If percentcount < 101 Then + percentcount = percentcount + 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + End If + Case 127 + rtext = rtext + "100%" + conversationtimer.Interval = 1000 + Case 128 + TextType(Environment.NewLine & "Format Complete") + Case 129 + rtext = "" + percentcount = 0 + TextType("Installing ShiftOS Alpha 0.0.1 - ") + conversationtimer.Interval = 200 + Case 130 To 230 + textgeninput.Text = rtext & percentcount & "%" & Environment.NewLine & Environment.NewLine + If percentcount < 101 Then + percentcount = percentcount + 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + End If + Select Case percentcount + Case 1 To 2 + textgeninput.Text = textgeninput.Text & "C:/Home" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Home")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home") + Case 3 To 4 + textgeninput.Text = textgeninput.Text & "C:/Home/Documents" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Home/Documents")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home/Documents") + Case 5 To 9 + textgeninput.Text = textgeninput.Text & "C:/Home/Documents/ShiftOSInfo.txt" + fs = File.Create("C:/ShiftOS/Home/Documents/ShiftOSInfo.txt") + fs.Close() + Case 10 To 12 + textgeninput.Text = textgeninput.Text & "C:/Home/Music" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Home/Music")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home/Music") + Case 13 To 15 + textgeninput.Text = textgeninput.Text & "C:/Home/Pictures" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Home/Pictures")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home/Pictures") + Case 16 To 18 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Shiftum42")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Shiftum42") + Case 19 To 20 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Shiftum42/Drivers")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Shiftum42/Drivers") + Case 21 To 27 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/HDD.dri" + fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/HDD.dri") + fs.Close() + Case 28 To 35 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Keyboard.dri" + fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Keyboard.dri") + fs.Close() + Case 36 To 44 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Monitor.dri" + fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Monitor.dri") + fs.Close() + Case 45 To 52 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Mouse.dri" + fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Mouse.dri") + fs.Close() + Case 53 To 60 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Printer.dri" + fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Printer.dri") + fs.Close() + Case 61 To 68 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Languages/" + If (Not System.IO.Directory.Exists("C:/ShiftOS/Shiftum42/Languages/")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Shiftum42/Languages/") + Case 69 To 76 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Languages/English.lang" + fs = File.Create("C:/ShiftOS/Shiftum42/Languages/English.lang") + fs.Close() + Case 77 To 84 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/HDAccess.sft" + fs = File.Create("C:/ShiftOS/Shiftum42/HDAccess.sft") + fs.Close() + Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False) + objWriter.Write(actualshiftversion) + objWriter.Close() + Case 85 To 89 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/ShiftGUI.sft" + fs = File.Create("C:/ShiftOS/Shiftum42/ShiftGUI.sft") + fs.Close() + Case 90 To 93 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/SKernal.sft" + fs = File.Create("C:/ShiftOS/Shiftum42/SKernal.sft") + fs.Close() + Case 94 To 97 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/SRead.sft" + fs = File.Create("C:/ShiftOS/Shiftum42/SRead.sft") + fs.Close() + Case 98 To 101 + textgeninput.Text = textgeninput.Text & "C:/Shiftum42/SWrite.sft" + fs = File.Create("C:/ShiftOS/Shiftum42/SWrite.sft") + fs.Close() + End Select + + + Case 231 + textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "C:/Shiftum42/SWrite.sft" + conversationtimer.Interval = 1000 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 232 + textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "ShiftOS Installation Complete!" + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/") + If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/KnowledgeInput") + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Animals.lst") + fs.Close() + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Fruits.lst") + fs.Close() + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Countries.lst") + fs.Close() + Case 234 + ShiftOSDesktop.newgame = True + ShiftOSDesktop.Show() + Terminal.Show() + Terminal.tmrfirstrun.Start() + Me.Close() + + End Select + conversationcount = conversationcount + 1 + End Sub + + Private Sub hackeffecttimer_Tick(sender As Object, e As EventArgs) Handles hackeffecttimer.Tick + If hackeffect < 101 Then + Select Case hackeffect + Case 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95 + Me.BackColor = Color.Black + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28 + Me.BackColor = Color.White + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50 + Me.BackColor = Color.Gainsboro + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76 + Me.BackColor = Color.Silver + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 76, 78, 80, 82, 84, 86, 88, 90, 92, 94 + Me.BackColor = Color.DimGray + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + Case 96 + lblHijack.BackColor = Color.LightGray + Case 97 + lblHijack.BackColor = Color.DarkGray + Case 98 + lblHijack.BackColor = Color.DimGray + Case 99 + lblHijack.BackColor = Color.Black + lblHijack.ForeColor = Color.DimGray + Case 100 + lblHijack.Hide() + End Select + Else + hackeffecttimer.Stop() + End If + hackeffect = hackeffect + 1 + End Sub +End Class diff --git a/Icon Manager.Designer.vb b/Icon Manager.Designer.vb new file mode 100644 index 0000000..f15d596 --- /dev/null +++ b/Icon Manager.Designer.vb @@ -0,0 +1,1902 @@ + _ +Partial Class Icon_Manager + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.pnlknowledgeinputicons = New System.Windows.Forms.Panel() + Me.txtknowledgeinputname = New System.Windows.Forms.Label() + Me.pnltitlebarknowledgeinputicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonknowledgeinputicon = New System.Windows.Forms.Panel() + Me.pnllauncherknowledgeinputicon = New System.Windows.Forms.Panel() + Me.pnlshiftoriumicons = New System.Windows.Forms.Panel() + Me.txtshiftoriumname = New System.Windows.Forms.Label() + Me.pnltitlebarshiftoriumicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonshiftoriumicon = New System.Windows.Forms.Panel() + Me.pnllaunchershiftoriumicon = New System.Windows.Forms.Panel() + Me.pnlclockicons = New System.Windows.Forms.Panel() + Me.txtclockname = New System.Windows.Forms.Label() + Me.pnltitlebarclockicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonclockicon = New System.Windows.Forms.Panel() + Me.pnllauncherclockicon = New System.Windows.Forms.Panel() + Me.pnlshiftericons = New System.Windows.Forms.Panel() + Me.txtshiftername = New System.Windows.Forms.Label() + Me.pnltitlebarshiftericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonshiftericon = New System.Windows.Forms.Panel() + Me.pnllaunchershiftericon = New System.Windows.Forms.Panel() + Me.pnlcolourpickericons = New System.Windows.Forms.Panel() + Me.txtcolourpickername = New System.Windows.Forms.Label() + Me.pnltitlebarcolourpickericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttoncolourpickericon = New System.Windows.Forms.Panel() + Me.pnllaunchercolourpickericon = New System.Windows.Forms.Panel() + Me.pnlinfoboxicons = New System.Windows.Forms.Panel() + Me.txtinfoboxname = New System.Windows.Forms.Label() + Me.pnltitlebarinfoboxicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttoninfoboxicon = New System.Windows.Forms.Panel() + Me.pnllauncherinfoboxicon = New System.Windows.Forms.Panel() + Me.pnlpongicons = New System.Windows.Forms.Panel() + Me.txtpongname = New System.Windows.Forms.Label() + Me.pnltitlebarpongicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonpongicon = New System.Windows.Forms.Panel() + Me.pnllauncherpongicon = New System.Windows.Forms.Panel() + Me.pnlfileskimmericons = New System.Windows.Forms.Panel() + Me.txtfileskimmername = New System.Windows.Forms.Label() + Me.pnltitlebarfileskimmericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonfileskimmericon = New System.Windows.Forms.Panel() + Me.pnllauncherfileskimmericon = New System.Windows.Forms.Panel() + Me.pnltextpadicons = New System.Windows.Forms.Panel() + Me.txttextpadname = New System.Windows.Forms.Label() + Me.pnltitlebartextpadicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttontextpadicon = New System.Windows.Forms.Panel() + Me.pnllaunchertextpadicon = New System.Windows.Forms.Panel() + Me.pnlfileopenericons = New System.Windows.Forms.Panel() + Me.txtfileopenername = New System.Windows.Forms.Label() + Me.pnltitlebarfileopenericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonfileopenericon = New System.Windows.Forms.Panel() + Me.pnllauncherfileopenericon = New System.Windows.Forms.Panel() + Me.pnlfilesavericons = New System.Windows.Forms.Panel() + Me.txtfilesavername = New System.Windows.Forms.Label() + Me.pnltitlebarfilesavericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonfilesavericon = New System.Windows.Forms.Panel() + Me.pnllauncherfilesavericon = New System.Windows.Forms.Panel() + Me.pnlgraphicpickericons = New System.Windows.Forms.Panel() + Me.txtgraphicpickername = New System.Windows.Forms.Label() + Me.pnltitlebargraphicpickericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttongraphicpickericon = New System.Windows.Forms.Panel() + Me.pnllaunchergraphicpickericon = New System.Windows.Forms.Panel() + Me.pnlskinloadericons = New System.Windows.Forms.Panel() + Me.txtskinloadername = New System.Windows.Forms.Label() + Me.pnltitlebarskinloadericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonskinloadericon = New System.Windows.Forms.Panel() + Me.pnllauncherskinloadericon = New System.Windows.Forms.Panel() + Me.pnlartpadicons = New System.Windows.Forms.Panel() + Me.txtartpadname = New System.Windows.Forms.Label() + Me.pnltitlebarartpadicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonartpadicon = New System.Windows.Forms.Panel() + Me.pnllauncherartpadicon = New System.Windows.Forms.Panel() + Me.pnlcalculatoricons = New System.Windows.Forms.Panel() + Me.txtcalculatorname = New System.Windows.Forms.Label() + Me.pnltitlebarcalculatoricon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttoncalculatoricon = New System.Windows.Forms.Panel() + Me.pnllaunchercalculatoricon = New System.Windows.Forms.Panel() + Me.pnlaudioplayericons = New System.Windows.Forms.Panel() + Me.txtaudioplayername = New System.Windows.Forms.Label() + Me.pnltitlebaraudioplayericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonaudioplayericon = New System.Windows.Forms.Panel() + Me.pnllauncheraudioplayericon = New System.Windows.Forms.Panel() + Me.pnlwebbrowsericons = New System.Windows.Forms.Panel() + Me.txtwebbrowsername = New System.Windows.Forms.Label() + Me.pnltitlebarwebbrowsericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonwebbrowsericon = New System.Windows.Forms.Panel() + Me.pnllauncherwebbrowsericon = New System.Windows.Forms.Panel() + Me.pnlvideoplayericons = New System.Windows.Forms.Panel() + Me.txtvideoplayername = New System.Windows.Forms.Label() + Me.pnltitlebarvideoplayericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonvideoplayericon = New System.Windows.Forms.Panel() + Me.pnllaunchervideoplayericon = New System.Windows.Forms.Panel() + Me.pnlnamechangericons = New System.Windows.Forms.Panel() + Me.txtnamechangername = New System.Windows.Forms.Label() + Me.pnltitlebarnamechangericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonnamechangericon = New System.Windows.Forms.Panel() + Me.pnllaunchernamechangericon = New System.Windows.Forms.Panel() + Me.pnliconmanagericons = New System.Windows.Forms.Panel() + Me.txticonmanagername = New System.Windows.Forms.Label() + Me.pnltitlebariconmanagericon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttoniconmanagericon = New System.Windows.Forms.Panel() + Me.pnllaunchericonmanagericon = New System.Windows.Forms.Panel() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.txtterminalname = New System.Windows.Forms.Label() + Me.pnltitlebarterminalicon = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonterminalicon = New System.Windows.Forms.Panel() + Me.pnllauncherterminalicon = New System.Windows.Forms.Panel() + Me.Panel8 = New System.Windows.Forms.Panel() + Me.txtshutdownname = New System.Windows.Forms.Label() + Me.pnllaunchershutdownicon = New System.Windows.Forms.Panel() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.txtlaunchericonsize = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtpanelbuttoniconsize = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.txttitlebariconsize = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.btnReset = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.btnSave = New System.Windows.Forms.Button() + Me.btnApply = New System.Windows.Forms.Button() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.FlowLayoutPanel1.SuspendLayout() + Me.pnlknowledgeinputicons.SuspendLayout() + Me.pnlshiftoriumicons.SuspendLayout() + Me.pnlclockicons.SuspendLayout() + Me.pnlshiftericons.SuspendLayout() + Me.pnlcolourpickericons.SuspendLayout() + Me.pnlinfoboxicons.SuspendLayout() + Me.pnlpongicons.SuspendLayout() + Me.pnlfileskimmericons.SuspendLayout() + Me.pnltextpadicons.SuspendLayout() + Me.pnlfileopenericons.SuspendLayout() + Me.pnlfilesavericons.SuspendLayout() + Me.pnlgraphicpickericons.SuspendLayout() + Me.pnlskinloadericons.SuspendLayout() + Me.pnlartpadicons.SuspendLayout() + Me.pnlcalculatoricons.SuspendLayout() + Me.pnlaudioplayericons.SuspendLayout() + Me.pnlwebbrowsericons.SuspendLayout() + Me.pnlvideoplayericons.SuspendLayout() + Me.pnlnamechangericons.SuspendLayout() + Me.pnliconmanagericons.SuspendLayout() + Me.Panel7.SuspendLayout() + Me.Panel8.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 498) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(396, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 468) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(398, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 470) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(140, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Icon Manager" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(398, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 468) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.FlowLayoutPanel1) + Me.pgcontents.Controls.Add(Me.Panel2) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Controls.Add(Me.Panel4) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(396, 468) + Me.pgcontents.TabIndex = 20 + ' + 'FlowLayoutPanel1 + ' + Me.FlowLayoutPanel1.AutoScroll = True + Me.FlowLayoutPanel1.Controls.Add(Me.pnlknowledgeinputicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlshiftoriumicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlclockicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlshiftericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlcolourpickericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlinfoboxicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlpongicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlfileskimmericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnltextpadicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlfileopenericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlfilesavericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlgraphicpickericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlskinloadericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlartpadicons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlcalculatoricons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlaudioplayericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlwebbrowsericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlvideoplayericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnlnamechangericons) + Me.FlowLayoutPanel1.Controls.Add(Me.pnliconmanagericons) + Me.FlowLayoutPanel1.Controls.Add(Me.Panel7) + Me.FlowLayoutPanel1.Controls.Add(Me.Panel8) + Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 27) + Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" + Me.FlowLayoutPanel1.Size = New System.Drawing.Size(396, 363) + Me.FlowLayoutPanel1.TabIndex = 2 + ' + 'pnlknowledgeinputicons + ' + Me.pnlknowledgeinputicons.Controls.Add(Me.txtknowledgeinputname) + Me.pnlknowledgeinputicons.Controls.Add(Me.pnltitlebarknowledgeinputicon) + Me.pnlknowledgeinputicons.Controls.Add(Me.pnlpanelbuttonknowledgeinputicon) + Me.pnlknowledgeinputicons.Controls.Add(Me.pnllauncherknowledgeinputicon) + Me.pnlknowledgeinputicons.Location = New System.Drawing.Point(3, 3) + Me.pnlknowledgeinputicons.Name = "pnlknowledgeinputicons" + Me.pnlknowledgeinputicons.Size = New System.Drawing.Size(369, 64) + Me.pnlknowledgeinputicons.TabIndex = 0 + ' + 'txtknowledgeinputname + ' + Me.txtknowledgeinputname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtknowledgeinputname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtknowledgeinputname.Location = New System.Drawing.Point(0, 0) + Me.txtknowledgeinputname.Name = "txtknowledgeinputname" + Me.txtknowledgeinputname.Size = New System.Drawing.Size(177, 64) + Me.txtknowledgeinputname.TabIndex = 3 + Me.txtknowledgeinputname.Text = "Knowledge Input" + Me.txtknowledgeinputname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarknowledgeinputicon + ' + Me.pnltitlebarknowledgeinputicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarknowledgeinputicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarknowledgeinputicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarknowledgeinputicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarknowledgeinputicon.Name = "pnltitlebarknowledgeinputicon" + Me.pnltitlebarknowledgeinputicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarknowledgeinputicon.TabIndex = 2 + ' + 'pnlpanelbuttonknowledgeinputicon + ' + Me.pnlpanelbuttonknowledgeinputicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonknowledgeinputicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonknowledgeinputicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonknowledgeinputicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonknowledgeinputicon.Name = "pnlpanelbuttonknowledgeinputicon" + Me.pnlpanelbuttonknowledgeinputicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonknowledgeinputicon.TabIndex = 1 + ' + 'pnllauncherknowledgeinputicon + ' + Me.pnllauncherknowledgeinputicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherknowledgeinputicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherknowledgeinputicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherknowledgeinputicon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherknowledgeinputicon.Name = "pnllauncherknowledgeinputicon" + Me.pnllauncherknowledgeinputicon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherknowledgeinputicon.TabIndex = 0 + ' + 'pnlshiftoriumicons + ' + Me.pnlshiftoriumicons.Controls.Add(Me.txtshiftoriumname) + Me.pnlshiftoriumicons.Controls.Add(Me.pnltitlebarshiftoriumicon) + Me.pnlshiftoriumicons.Controls.Add(Me.pnlpanelbuttonshiftoriumicon) + Me.pnlshiftoriumicons.Controls.Add(Me.pnllaunchershiftoriumicon) + Me.pnlshiftoriumicons.Location = New System.Drawing.Point(3, 73) + Me.pnlshiftoriumicons.Name = "pnlshiftoriumicons" + Me.pnlshiftoriumicons.Size = New System.Drawing.Size(369, 64) + Me.pnlshiftoriumicons.TabIndex = 1 + ' + 'txtshiftoriumname + ' + Me.txtshiftoriumname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtshiftoriumname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtshiftoriumname.Location = New System.Drawing.Point(0, 0) + Me.txtshiftoriumname.Name = "txtshiftoriumname" + Me.txtshiftoriumname.Size = New System.Drawing.Size(177, 64) + Me.txtshiftoriumname.TabIndex = 3 + Me.txtshiftoriumname.Text = "Shiftorium" + Me.txtshiftoriumname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarshiftoriumicon + ' + Me.pnltitlebarshiftoriumicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarshiftoriumicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarshiftoriumicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarshiftoriumicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarshiftoriumicon.Name = "pnltitlebarshiftoriumicon" + Me.pnltitlebarshiftoriumicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarshiftoriumicon.TabIndex = 2 + ' + 'pnlpanelbuttonshiftoriumicon + ' + Me.pnlpanelbuttonshiftoriumicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonshiftoriumicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonshiftoriumicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonshiftoriumicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonshiftoriumicon.Name = "pnlpanelbuttonshiftoriumicon" + Me.pnlpanelbuttonshiftoriumicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonshiftoriumicon.TabIndex = 1 + ' + 'pnllaunchershiftoriumicon + ' + Me.pnllaunchershiftoriumicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchershiftoriumicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchershiftoriumicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchershiftoriumicon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchershiftoriumicon.Name = "pnllaunchershiftoriumicon" + Me.pnllaunchershiftoriumicon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchershiftoriumicon.TabIndex = 0 + ' + 'pnlclockicons + ' + Me.pnlclockicons.Controls.Add(Me.txtclockname) + Me.pnlclockicons.Controls.Add(Me.pnltitlebarclockicon) + Me.pnlclockicons.Controls.Add(Me.pnlpanelbuttonclockicon) + Me.pnlclockicons.Controls.Add(Me.pnllauncherclockicon) + Me.pnlclockicons.Location = New System.Drawing.Point(3, 143) + Me.pnlclockicons.Name = "pnlclockicons" + Me.pnlclockicons.Size = New System.Drawing.Size(369, 64) + Me.pnlclockicons.TabIndex = 2 + ' + 'txtclockname + ' + Me.txtclockname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtclockname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclockname.Location = New System.Drawing.Point(0, 0) + Me.txtclockname.Name = "txtclockname" + Me.txtclockname.Size = New System.Drawing.Size(177, 64) + Me.txtclockname.TabIndex = 3 + Me.txtclockname.Text = "Clock" + Me.txtclockname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarclockicon + ' + Me.pnltitlebarclockicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarclockicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarclockicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarclockicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarclockicon.Name = "pnltitlebarclockicon" + Me.pnltitlebarclockicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarclockicon.TabIndex = 2 + ' + 'pnlpanelbuttonclockicon + ' + Me.pnlpanelbuttonclockicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonclockicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonclockicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonclockicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonclockicon.Name = "pnlpanelbuttonclockicon" + Me.pnlpanelbuttonclockicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonclockicon.TabIndex = 1 + ' + 'pnllauncherclockicon + ' + Me.pnllauncherclockicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherclockicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherclockicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherclockicon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherclockicon.Name = "pnllauncherclockicon" + Me.pnllauncherclockicon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherclockicon.TabIndex = 0 + ' + 'pnlshiftericons + ' + Me.pnlshiftericons.Controls.Add(Me.txtshiftername) + Me.pnlshiftericons.Controls.Add(Me.pnltitlebarshiftericon) + Me.pnlshiftericons.Controls.Add(Me.pnlpanelbuttonshiftericon) + Me.pnlshiftericons.Controls.Add(Me.pnllaunchershiftericon) + Me.pnlshiftericons.Location = New System.Drawing.Point(3, 213) + Me.pnlshiftericons.Name = "pnlshiftericons" + Me.pnlshiftericons.Size = New System.Drawing.Size(369, 64) + Me.pnlshiftericons.TabIndex = 3 + ' + 'txtshiftername + ' + Me.txtshiftername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtshiftername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtshiftername.Location = New System.Drawing.Point(0, 0) + Me.txtshiftername.Name = "txtshiftername" + Me.txtshiftername.Size = New System.Drawing.Size(177, 64) + Me.txtshiftername.TabIndex = 3 + Me.txtshiftername.Text = "Shifter" + Me.txtshiftername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarshiftericon + ' + Me.pnltitlebarshiftericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarshiftericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarshiftericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarshiftericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarshiftericon.Name = "pnltitlebarshiftericon" + Me.pnltitlebarshiftericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarshiftericon.TabIndex = 2 + ' + 'pnlpanelbuttonshiftericon + ' + Me.pnlpanelbuttonshiftericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonshiftericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonshiftericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonshiftericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonshiftericon.Name = "pnlpanelbuttonshiftericon" + Me.pnlpanelbuttonshiftericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonshiftericon.TabIndex = 1 + ' + 'pnllaunchershiftericon + ' + Me.pnllaunchershiftericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchershiftericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchershiftericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchershiftericon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchershiftericon.Name = "pnllaunchershiftericon" + Me.pnllaunchershiftericon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchershiftericon.TabIndex = 0 + ' + 'pnlcolourpickericons + ' + Me.pnlcolourpickericons.Controls.Add(Me.txtcolourpickername) + Me.pnlcolourpickericons.Controls.Add(Me.pnltitlebarcolourpickericon) + Me.pnlcolourpickericons.Controls.Add(Me.pnlpanelbuttoncolourpickericon) + Me.pnlcolourpickericons.Controls.Add(Me.pnllaunchercolourpickericon) + Me.pnlcolourpickericons.Location = New System.Drawing.Point(3, 283) + Me.pnlcolourpickericons.Name = "pnlcolourpickericons" + Me.pnlcolourpickericons.Size = New System.Drawing.Size(369, 64) + Me.pnlcolourpickericons.TabIndex = 4 + ' + 'txtcolourpickername + ' + Me.txtcolourpickername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtcolourpickername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcolourpickername.Location = New System.Drawing.Point(0, 0) + Me.txtcolourpickername.Name = "txtcolourpickername" + Me.txtcolourpickername.Size = New System.Drawing.Size(177, 64) + Me.txtcolourpickername.TabIndex = 3 + Me.txtcolourpickername.Text = "Colour Picker" + Me.txtcolourpickername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarcolourpickericon + ' + Me.pnltitlebarcolourpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarcolourpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarcolourpickericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarcolourpickericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarcolourpickericon.Name = "pnltitlebarcolourpickericon" + Me.pnltitlebarcolourpickericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarcolourpickericon.TabIndex = 2 + ' + 'pnlpanelbuttoncolourpickericon + ' + Me.pnlpanelbuttoncolourpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttoncolourpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttoncolourpickericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttoncolourpickericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttoncolourpickericon.Name = "pnlpanelbuttoncolourpickericon" + Me.pnlpanelbuttoncolourpickericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttoncolourpickericon.TabIndex = 1 + ' + 'pnllaunchercolourpickericon + ' + Me.pnllaunchercolourpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchercolourpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchercolourpickericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchercolourpickericon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchercolourpickericon.Name = "pnllaunchercolourpickericon" + Me.pnllaunchercolourpickericon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchercolourpickericon.TabIndex = 0 + ' + 'pnlinfoboxicons + ' + Me.pnlinfoboxicons.Controls.Add(Me.txtinfoboxname) + Me.pnlinfoboxicons.Controls.Add(Me.pnltitlebarinfoboxicon) + Me.pnlinfoboxicons.Controls.Add(Me.pnlpanelbuttoninfoboxicon) + Me.pnlinfoboxicons.Controls.Add(Me.pnllauncherinfoboxicon) + Me.pnlinfoboxicons.Location = New System.Drawing.Point(3, 353) + Me.pnlinfoboxicons.Name = "pnlinfoboxicons" + Me.pnlinfoboxicons.Size = New System.Drawing.Size(369, 64) + Me.pnlinfoboxicons.TabIndex = 5 + ' + 'txtinfoboxname + ' + Me.txtinfoboxname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtinfoboxname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtinfoboxname.Location = New System.Drawing.Point(0, 0) + Me.txtinfoboxname.Name = "txtinfoboxname" + Me.txtinfoboxname.Size = New System.Drawing.Size(177, 64) + Me.txtinfoboxname.TabIndex = 3 + Me.txtinfoboxname.Text = "Infobox" + Me.txtinfoboxname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarinfoboxicon + ' + Me.pnltitlebarinfoboxicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarinfoboxicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarinfoboxicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarinfoboxicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarinfoboxicon.Name = "pnltitlebarinfoboxicon" + Me.pnltitlebarinfoboxicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarinfoboxicon.TabIndex = 2 + ' + 'pnlpanelbuttoninfoboxicon + ' + Me.pnlpanelbuttoninfoboxicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttoninfoboxicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttoninfoboxicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttoninfoboxicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttoninfoboxicon.Name = "pnlpanelbuttoninfoboxicon" + Me.pnlpanelbuttoninfoboxicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttoninfoboxicon.TabIndex = 1 + ' + 'pnllauncherinfoboxicon + ' + Me.pnllauncherinfoboxicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherinfoboxicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherinfoboxicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherinfoboxicon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherinfoboxicon.Name = "pnllauncherinfoboxicon" + Me.pnllauncherinfoboxicon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherinfoboxicon.TabIndex = 0 + ' + 'pnlpongicons + ' + Me.pnlpongicons.Controls.Add(Me.txtpongname) + Me.pnlpongicons.Controls.Add(Me.pnltitlebarpongicon) + Me.pnlpongicons.Controls.Add(Me.pnlpanelbuttonpongicon) + Me.pnlpongicons.Controls.Add(Me.pnllauncherpongicon) + Me.pnlpongicons.Location = New System.Drawing.Point(3, 423) + Me.pnlpongicons.Name = "pnlpongicons" + Me.pnlpongicons.Size = New System.Drawing.Size(369, 64) + Me.pnlpongicons.TabIndex = 6 + ' + 'txtpongname + ' + Me.txtpongname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtpongname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpongname.Location = New System.Drawing.Point(0, 0) + Me.txtpongname.Name = "txtpongname" + Me.txtpongname.Size = New System.Drawing.Size(177, 64) + Me.txtpongname.TabIndex = 3 + Me.txtpongname.Text = "Pong" + Me.txtpongname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarpongicon + ' + Me.pnltitlebarpongicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarpongicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarpongicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarpongicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarpongicon.Name = "pnltitlebarpongicon" + Me.pnltitlebarpongicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarpongicon.TabIndex = 2 + ' + 'pnlpanelbuttonpongicon + ' + Me.pnlpanelbuttonpongicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonpongicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonpongicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonpongicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonpongicon.Name = "pnlpanelbuttonpongicon" + Me.pnlpanelbuttonpongicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonpongicon.TabIndex = 1 + ' + 'pnllauncherpongicon + ' + Me.pnllauncherpongicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherpongicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherpongicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherpongicon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherpongicon.Name = "pnllauncherpongicon" + Me.pnllauncherpongicon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherpongicon.TabIndex = 0 + ' + 'pnlfileskimmericons + ' + Me.pnlfileskimmericons.Controls.Add(Me.txtfileskimmername) + Me.pnlfileskimmericons.Controls.Add(Me.pnltitlebarfileskimmericon) + Me.pnlfileskimmericons.Controls.Add(Me.pnlpanelbuttonfileskimmericon) + Me.pnlfileskimmericons.Controls.Add(Me.pnllauncherfileskimmericon) + Me.pnlfileskimmericons.Location = New System.Drawing.Point(3, 493) + Me.pnlfileskimmericons.Name = "pnlfileskimmericons" + Me.pnlfileskimmericons.Size = New System.Drawing.Size(369, 64) + Me.pnlfileskimmericons.TabIndex = 7 + ' + 'txtfileskimmername + ' + Me.txtfileskimmername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtfileskimmername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfileskimmername.Location = New System.Drawing.Point(0, 0) + Me.txtfileskimmername.Name = "txtfileskimmername" + Me.txtfileskimmername.Size = New System.Drawing.Size(177, 64) + Me.txtfileskimmername.TabIndex = 3 + Me.txtfileskimmername.Text = "File Skimmer" + Me.txtfileskimmername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarfileskimmericon + ' + Me.pnltitlebarfileskimmericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarfileskimmericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarfileskimmericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarfileskimmericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarfileskimmericon.Name = "pnltitlebarfileskimmericon" + Me.pnltitlebarfileskimmericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarfileskimmericon.TabIndex = 2 + ' + 'pnlpanelbuttonfileskimmericon + ' + Me.pnlpanelbuttonfileskimmericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonfileskimmericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonfileskimmericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonfileskimmericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonfileskimmericon.Name = "pnlpanelbuttonfileskimmericon" + Me.pnlpanelbuttonfileskimmericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonfileskimmericon.TabIndex = 1 + ' + 'pnllauncherfileskimmericon + ' + Me.pnllauncherfileskimmericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherfileskimmericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherfileskimmericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherfileskimmericon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherfileskimmericon.Name = "pnllauncherfileskimmericon" + Me.pnllauncherfileskimmericon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherfileskimmericon.TabIndex = 0 + ' + 'pnltextpadicons + ' + Me.pnltextpadicons.Controls.Add(Me.txttextpadname) + Me.pnltextpadicons.Controls.Add(Me.pnltitlebartextpadicon) + Me.pnltextpadicons.Controls.Add(Me.pnlpanelbuttontextpadicon) + Me.pnltextpadicons.Controls.Add(Me.pnllaunchertextpadicon) + Me.pnltextpadicons.Location = New System.Drawing.Point(3, 563) + Me.pnltextpadicons.Name = "pnltextpadicons" + Me.pnltextpadicons.Size = New System.Drawing.Size(369, 64) + Me.pnltextpadicons.TabIndex = 8 + ' + 'txttextpadname + ' + Me.txttextpadname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txttextpadname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttextpadname.Location = New System.Drawing.Point(0, 0) + Me.txttextpadname.Name = "txttextpadname" + Me.txttextpadname.Size = New System.Drawing.Size(177, 64) + Me.txttextpadname.TabIndex = 3 + Me.txttextpadname.Text = "TextPad" + Me.txttextpadname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebartextpadicon + ' + Me.pnltitlebartextpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebartextpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebartextpadicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebartextpadicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebartextpadicon.Name = "pnltitlebartextpadicon" + Me.pnltitlebartextpadicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebartextpadicon.TabIndex = 2 + ' + 'pnlpanelbuttontextpadicon + ' + Me.pnlpanelbuttontextpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttontextpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttontextpadicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttontextpadicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttontextpadicon.Name = "pnlpanelbuttontextpadicon" + Me.pnlpanelbuttontextpadicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttontextpadicon.TabIndex = 1 + ' + 'pnllaunchertextpadicon + ' + Me.pnllaunchertextpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchertextpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchertextpadicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchertextpadicon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchertextpadicon.Name = "pnllaunchertextpadicon" + Me.pnllaunchertextpadicon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchertextpadicon.TabIndex = 0 + ' + 'pnlfileopenericons + ' + Me.pnlfileopenericons.Controls.Add(Me.txtfileopenername) + Me.pnlfileopenericons.Controls.Add(Me.pnltitlebarfileopenericon) + Me.pnlfileopenericons.Controls.Add(Me.pnlpanelbuttonfileopenericon) + Me.pnlfileopenericons.Controls.Add(Me.pnllauncherfileopenericon) + Me.pnlfileopenericons.Location = New System.Drawing.Point(3, 633) + Me.pnlfileopenericons.Name = "pnlfileopenericons" + Me.pnlfileopenericons.Size = New System.Drawing.Size(369, 64) + Me.pnlfileopenericons.TabIndex = 9 + ' + 'txtfileopenername + ' + Me.txtfileopenername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtfileopenername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfileopenername.Location = New System.Drawing.Point(0, 0) + Me.txtfileopenername.Name = "txtfileopenername" + Me.txtfileopenername.Size = New System.Drawing.Size(177, 64) + Me.txtfileopenername.TabIndex = 3 + Me.txtfileopenername.Text = "File Opener" + Me.txtfileopenername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarfileopenericon + ' + Me.pnltitlebarfileopenericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarfileopenericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarfileopenericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarfileopenericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarfileopenericon.Name = "pnltitlebarfileopenericon" + Me.pnltitlebarfileopenericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarfileopenericon.TabIndex = 2 + ' + 'pnlpanelbuttonfileopenericon + ' + Me.pnlpanelbuttonfileopenericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonfileopenericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonfileopenericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonfileopenericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonfileopenericon.Name = "pnlpanelbuttonfileopenericon" + Me.pnlpanelbuttonfileopenericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonfileopenericon.TabIndex = 1 + ' + 'pnllauncherfileopenericon + ' + Me.pnllauncherfileopenericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherfileopenericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherfileopenericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherfileopenericon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherfileopenericon.Name = "pnllauncherfileopenericon" + Me.pnllauncherfileopenericon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherfileopenericon.TabIndex = 0 + ' + 'pnlfilesavericons + ' + Me.pnlfilesavericons.Controls.Add(Me.txtfilesavername) + Me.pnlfilesavericons.Controls.Add(Me.pnltitlebarfilesavericon) + Me.pnlfilesavericons.Controls.Add(Me.pnlpanelbuttonfilesavericon) + Me.pnlfilesavericons.Controls.Add(Me.pnllauncherfilesavericon) + Me.pnlfilesavericons.Location = New System.Drawing.Point(3, 703) + Me.pnlfilesavericons.Name = "pnlfilesavericons" + Me.pnlfilesavericons.Size = New System.Drawing.Size(369, 64) + Me.pnlfilesavericons.TabIndex = 10 + ' + 'txtfilesavername + ' + Me.txtfilesavername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtfilesavername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfilesavername.Location = New System.Drawing.Point(0, 0) + Me.txtfilesavername.Name = "txtfilesavername" + Me.txtfilesavername.Size = New System.Drawing.Size(177, 64) + Me.txtfilesavername.TabIndex = 3 + Me.txtfilesavername.Text = "File Saver" + Me.txtfilesavername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarfilesavericon + ' + Me.pnltitlebarfilesavericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarfilesavericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarfilesavericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarfilesavericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarfilesavericon.Name = "pnltitlebarfilesavericon" + Me.pnltitlebarfilesavericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarfilesavericon.TabIndex = 2 + ' + 'pnlpanelbuttonfilesavericon + ' + Me.pnlpanelbuttonfilesavericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonfilesavericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonfilesavericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonfilesavericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonfilesavericon.Name = "pnlpanelbuttonfilesavericon" + Me.pnlpanelbuttonfilesavericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonfilesavericon.TabIndex = 1 + ' + 'pnllauncherfilesavericon + ' + Me.pnllauncherfilesavericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherfilesavericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherfilesavericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherfilesavericon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherfilesavericon.Name = "pnllauncherfilesavericon" + Me.pnllauncherfilesavericon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherfilesavericon.TabIndex = 0 + ' + 'pnlgraphicpickericons + ' + Me.pnlgraphicpickericons.Controls.Add(Me.txtgraphicpickername) + Me.pnlgraphicpickericons.Controls.Add(Me.pnltitlebargraphicpickericon) + Me.pnlgraphicpickericons.Controls.Add(Me.pnlpanelbuttongraphicpickericon) + Me.pnlgraphicpickericons.Controls.Add(Me.pnllaunchergraphicpickericon) + Me.pnlgraphicpickericons.Location = New System.Drawing.Point(3, 773) + Me.pnlgraphicpickericons.Name = "pnlgraphicpickericons" + Me.pnlgraphicpickericons.Size = New System.Drawing.Size(369, 64) + Me.pnlgraphicpickericons.TabIndex = 11 + ' + 'txtgraphicpickername + ' + Me.txtgraphicpickername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtgraphicpickername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtgraphicpickername.Location = New System.Drawing.Point(0, 0) + Me.txtgraphicpickername.Name = "txtgraphicpickername" + Me.txtgraphicpickername.Size = New System.Drawing.Size(177, 64) + Me.txtgraphicpickername.TabIndex = 3 + Me.txtgraphicpickername.Text = "Graphic Picker" + Me.txtgraphicpickername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebargraphicpickericon + ' + Me.pnltitlebargraphicpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebargraphicpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebargraphicpickericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebargraphicpickericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebargraphicpickericon.Name = "pnltitlebargraphicpickericon" + Me.pnltitlebargraphicpickericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebargraphicpickericon.TabIndex = 2 + ' + 'pnlpanelbuttongraphicpickericon + ' + Me.pnlpanelbuttongraphicpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttongraphicpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttongraphicpickericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttongraphicpickericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttongraphicpickericon.Name = "pnlpanelbuttongraphicpickericon" + Me.pnlpanelbuttongraphicpickericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttongraphicpickericon.TabIndex = 1 + ' + 'pnllaunchergraphicpickericon + ' + Me.pnllaunchergraphicpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchergraphicpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchergraphicpickericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchergraphicpickericon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchergraphicpickericon.Name = "pnllaunchergraphicpickericon" + Me.pnllaunchergraphicpickericon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchergraphicpickericon.TabIndex = 0 + ' + 'pnlskinloadericons + ' + Me.pnlskinloadericons.Controls.Add(Me.txtskinloadername) + Me.pnlskinloadericons.Controls.Add(Me.pnltitlebarskinloadericon) + Me.pnlskinloadericons.Controls.Add(Me.pnlpanelbuttonskinloadericon) + Me.pnlskinloadericons.Controls.Add(Me.pnllauncherskinloadericon) + Me.pnlskinloadericons.Location = New System.Drawing.Point(3, 843) + Me.pnlskinloadericons.Name = "pnlskinloadericons" + Me.pnlskinloadericons.Size = New System.Drawing.Size(369, 64) + Me.pnlskinloadericons.TabIndex = 12 + ' + 'txtskinloadername + ' + Me.txtskinloadername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtskinloadername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtskinloadername.Location = New System.Drawing.Point(0, 0) + Me.txtskinloadername.Name = "txtskinloadername" + Me.txtskinloadername.Size = New System.Drawing.Size(177, 64) + Me.txtskinloadername.TabIndex = 3 + Me.txtskinloadername.Text = "Skin Loader" + Me.txtskinloadername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarskinloadericon + ' + Me.pnltitlebarskinloadericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarskinloadericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarskinloadericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarskinloadericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarskinloadericon.Name = "pnltitlebarskinloadericon" + Me.pnltitlebarskinloadericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarskinloadericon.TabIndex = 2 + ' + 'pnlpanelbuttonskinloadericon + ' + Me.pnlpanelbuttonskinloadericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonskinloadericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonskinloadericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonskinloadericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonskinloadericon.Name = "pnlpanelbuttonskinloadericon" + Me.pnlpanelbuttonskinloadericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonskinloadericon.TabIndex = 1 + ' + 'pnllauncherskinloadericon + ' + Me.pnllauncherskinloadericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherskinloadericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherskinloadericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherskinloadericon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherskinloadericon.Name = "pnllauncherskinloadericon" + Me.pnllauncherskinloadericon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherskinloadericon.TabIndex = 0 + ' + 'pnlartpadicons + ' + Me.pnlartpadicons.Controls.Add(Me.txtartpadname) + Me.pnlartpadicons.Controls.Add(Me.pnltitlebarartpadicon) + Me.pnlartpadicons.Controls.Add(Me.pnlpanelbuttonartpadicon) + Me.pnlartpadicons.Controls.Add(Me.pnllauncherartpadicon) + Me.pnlartpadicons.Location = New System.Drawing.Point(3, 913) + Me.pnlartpadicons.Name = "pnlartpadicons" + Me.pnlartpadicons.Size = New System.Drawing.Size(369, 64) + Me.pnlartpadicons.TabIndex = 13 + ' + 'txtartpadname + ' + Me.txtartpadname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtartpadname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtartpadname.Location = New System.Drawing.Point(0, 0) + Me.txtartpadname.Name = "txtartpadname" + Me.txtartpadname.Size = New System.Drawing.Size(177, 64) + Me.txtartpadname.TabIndex = 3 + Me.txtartpadname.Text = "Artpad" + Me.txtartpadname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarartpadicon + ' + Me.pnltitlebarartpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarartpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarartpadicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarartpadicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarartpadicon.Name = "pnltitlebarartpadicon" + Me.pnltitlebarartpadicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarartpadicon.TabIndex = 2 + ' + 'pnlpanelbuttonartpadicon + ' + Me.pnlpanelbuttonartpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonartpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonartpadicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonartpadicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonartpadicon.Name = "pnlpanelbuttonartpadicon" + Me.pnlpanelbuttonartpadicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonartpadicon.TabIndex = 1 + ' + 'pnllauncherartpadicon + ' + Me.pnllauncherartpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherartpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherartpadicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherartpadicon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherartpadicon.Name = "pnllauncherartpadicon" + Me.pnllauncherartpadicon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherartpadicon.TabIndex = 0 + ' + 'pnlcalculatoricons + ' + Me.pnlcalculatoricons.Controls.Add(Me.txtcalculatorname) + Me.pnlcalculatoricons.Controls.Add(Me.pnltitlebarcalculatoricon) + Me.pnlcalculatoricons.Controls.Add(Me.pnlpanelbuttoncalculatoricon) + Me.pnlcalculatoricons.Controls.Add(Me.pnllaunchercalculatoricon) + Me.pnlcalculatoricons.Location = New System.Drawing.Point(3, 983) + Me.pnlcalculatoricons.Name = "pnlcalculatoricons" + Me.pnlcalculatoricons.Size = New System.Drawing.Size(369, 64) + Me.pnlcalculatoricons.TabIndex = 14 + ' + 'txtcalculatorname + ' + Me.txtcalculatorname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtcalculatorname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcalculatorname.Location = New System.Drawing.Point(0, 0) + Me.txtcalculatorname.Name = "txtcalculatorname" + Me.txtcalculatorname.Size = New System.Drawing.Size(177, 64) + Me.txtcalculatorname.TabIndex = 3 + Me.txtcalculatorname.Text = "Calculator" + Me.txtcalculatorname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarcalculatoricon + ' + Me.pnltitlebarcalculatoricon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarcalculatoricon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarcalculatoricon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarcalculatoricon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarcalculatoricon.Name = "pnltitlebarcalculatoricon" + Me.pnltitlebarcalculatoricon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarcalculatoricon.TabIndex = 2 + ' + 'pnlpanelbuttoncalculatoricon + ' + Me.pnlpanelbuttoncalculatoricon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttoncalculatoricon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttoncalculatoricon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttoncalculatoricon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttoncalculatoricon.Name = "pnlpanelbuttoncalculatoricon" + Me.pnlpanelbuttoncalculatoricon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttoncalculatoricon.TabIndex = 1 + ' + 'pnllaunchercalculatoricon + ' + Me.pnllaunchercalculatoricon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchercalculatoricon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchercalculatoricon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchercalculatoricon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchercalculatoricon.Name = "pnllaunchercalculatoricon" + Me.pnllaunchercalculatoricon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchercalculatoricon.TabIndex = 0 + ' + 'pnlaudioplayericons + ' + Me.pnlaudioplayericons.Controls.Add(Me.txtaudioplayername) + Me.pnlaudioplayericons.Controls.Add(Me.pnltitlebaraudioplayericon) + Me.pnlaudioplayericons.Controls.Add(Me.pnlpanelbuttonaudioplayericon) + Me.pnlaudioplayericons.Controls.Add(Me.pnllauncheraudioplayericon) + Me.pnlaudioplayericons.Location = New System.Drawing.Point(3, 1053) + Me.pnlaudioplayericons.Name = "pnlaudioplayericons" + Me.pnlaudioplayericons.Size = New System.Drawing.Size(369, 64) + Me.pnlaudioplayericons.TabIndex = 15 + ' + 'txtaudioplayername + ' + Me.txtaudioplayername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtaudioplayername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtaudioplayername.Location = New System.Drawing.Point(0, 0) + Me.txtaudioplayername.Name = "txtaudioplayername" + Me.txtaudioplayername.Size = New System.Drawing.Size(177, 64) + Me.txtaudioplayername.TabIndex = 3 + Me.txtaudioplayername.Text = "Audio Player" + Me.txtaudioplayername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebaraudioplayericon + ' + Me.pnltitlebaraudioplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebaraudioplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebaraudioplayericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebaraudioplayericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebaraudioplayericon.Name = "pnltitlebaraudioplayericon" + Me.pnltitlebaraudioplayericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebaraudioplayericon.TabIndex = 2 + ' + 'pnlpanelbuttonaudioplayericon + ' + Me.pnlpanelbuttonaudioplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonaudioplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonaudioplayericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonaudioplayericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonaudioplayericon.Name = "pnlpanelbuttonaudioplayericon" + Me.pnlpanelbuttonaudioplayericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonaudioplayericon.TabIndex = 1 + ' + 'pnllauncheraudioplayericon + ' + Me.pnllauncheraudioplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncheraudioplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncheraudioplayericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncheraudioplayericon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncheraudioplayericon.Name = "pnllauncheraudioplayericon" + Me.pnllauncheraudioplayericon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncheraudioplayericon.TabIndex = 0 + ' + 'pnlwebbrowsericons + ' + Me.pnlwebbrowsericons.Controls.Add(Me.txtwebbrowsername) + Me.pnlwebbrowsericons.Controls.Add(Me.pnltitlebarwebbrowsericon) + Me.pnlwebbrowsericons.Controls.Add(Me.pnlpanelbuttonwebbrowsericon) + Me.pnlwebbrowsericons.Controls.Add(Me.pnllauncherwebbrowsericon) + Me.pnlwebbrowsericons.Location = New System.Drawing.Point(3, 1123) + Me.pnlwebbrowsericons.Name = "pnlwebbrowsericons" + Me.pnlwebbrowsericons.Size = New System.Drawing.Size(369, 64) + Me.pnlwebbrowsericons.TabIndex = 16 + ' + 'txtwebbrowsername + ' + Me.txtwebbrowsername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtwebbrowsername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtwebbrowsername.Location = New System.Drawing.Point(0, 0) + Me.txtwebbrowsername.Name = "txtwebbrowsername" + Me.txtwebbrowsername.Size = New System.Drawing.Size(177, 64) + Me.txtwebbrowsername.TabIndex = 3 + Me.txtwebbrowsername.Text = "Web Browser" + Me.txtwebbrowsername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarwebbrowsericon + ' + Me.pnltitlebarwebbrowsericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarwebbrowsericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarwebbrowsericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarwebbrowsericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarwebbrowsericon.Name = "pnltitlebarwebbrowsericon" + Me.pnltitlebarwebbrowsericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarwebbrowsericon.TabIndex = 2 + ' + 'pnlpanelbuttonwebbrowsericon + ' + Me.pnlpanelbuttonwebbrowsericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonwebbrowsericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonwebbrowsericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonwebbrowsericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonwebbrowsericon.Name = "pnlpanelbuttonwebbrowsericon" + Me.pnlpanelbuttonwebbrowsericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonwebbrowsericon.TabIndex = 1 + ' + 'pnllauncherwebbrowsericon + ' + Me.pnllauncherwebbrowsericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherwebbrowsericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherwebbrowsericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherwebbrowsericon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherwebbrowsericon.Name = "pnllauncherwebbrowsericon" + Me.pnllauncherwebbrowsericon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherwebbrowsericon.TabIndex = 0 + ' + 'pnlvideoplayericons + ' + Me.pnlvideoplayericons.Controls.Add(Me.txtvideoplayername) + Me.pnlvideoplayericons.Controls.Add(Me.pnltitlebarvideoplayericon) + Me.pnlvideoplayericons.Controls.Add(Me.pnlpanelbuttonvideoplayericon) + Me.pnlvideoplayericons.Controls.Add(Me.pnllaunchervideoplayericon) + Me.pnlvideoplayericons.Location = New System.Drawing.Point(3, 1193) + Me.pnlvideoplayericons.Name = "pnlvideoplayericons" + Me.pnlvideoplayericons.Size = New System.Drawing.Size(369, 64) + Me.pnlvideoplayericons.TabIndex = 17 + ' + 'txtvideoplayername + ' + Me.txtvideoplayername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtvideoplayername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtvideoplayername.Location = New System.Drawing.Point(0, 0) + Me.txtvideoplayername.Name = "txtvideoplayername" + Me.txtvideoplayername.Size = New System.Drawing.Size(177, 64) + Me.txtvideoplayername.TabIndex = 3 + Me.txtvideoplayername.Text = "Video Player" + Me.txtvideoplayername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarvideoplayericon + ' + Me.pnltitlebarvideoplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarvideoplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarvideoplayericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarvideoplayericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarvideoplayericon.Name = "pnltitlebarvideoplayericon" + Me.pnltitlebarvideoplayericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarvideoplayericon.TabIndex = 2 + ' + 'pnlpanelbuttonvideoplayericon + ' + Me.pnlpanelbuttonvideoplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonvideoplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonvideoplayericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonvideoplayericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonvideoplayericon.Name = "pnlpanelbuttonvideoplayericon" + Me.pnlpanelbuttonvideoplayericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonvideoplayericon.TabIndex = 1 + ' + 'pnllaunchervideoplayericon + ' + Me.pnllaunchervideoplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchervideoplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchervideoplayericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchervideoplayericon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchervideoplayericon.Name = "pnllaunchervideoplayericon" + Me.pnllaunchervideoplayericon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchervideoplayericon.TabIndex = 0 + ' + 'pnlnamechangericons + ' + Me.pnlnamechangericons.Controls.Add(Me.txtnamechangername) + Me.pnlnamechangericons.Controls.Add(Me.pnltitlebarnamechangericon) + Me.pnlnamechangericons.Controls.Add(Me.pnlpanelbuttonnamechangericon) + Me.pnlnamechangericons.Controls.Add(Me.pnllaunchernamechangericon) + Me.pnlnamechangericons.Location = New System.Drawing.Point(3, 1263) + Me.pnlnamechangericons.Name = "pnlnamechangericons" + Me.pnlnamechangericons.Size = New System.Drawing.Size(369, 64) + Me.pnlnamechangericons.TabIndex = 18 + ' + 'txtnamechangername + ' + Me.txtnamechangername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtnamechangername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtnamechangername.Location = New System.Drawing.Point(0, 0) + Me.txtnamechangername.Name = "txtnamechangername" + Me.txtnamechangername.Size = New System.Drawing.Size(177, 64) + Me.txtnamechangername.TabIndex = 3 + Me.txtnamechangername.Text = "Name Changer" + Me.txtnamechangername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarnamechangericon + ' + Me.pnltitlebarnamechangericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarnamechangericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarnamechangericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarnamechangericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarnamechangericon.Name = "pnltitlebarnamechangericon" + Me.pnltitlebarnamechangericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarnamechangericon.TabIndex = 2 + ' + 'pnlpanelbuttonnamechangericon + ' + Me.pnlpanelbuttonnamechangericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonnamechangericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonnamechangericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonnamechangericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonnamechangericon.Name = "pnlpanelbuttonnamechangericon" + Me.pnlpanelbuttonnamechangericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonnamechangericon.TabIndex = 1 + ' + 'pnllaunchernamechangericon + ' + Me.pnllaunchernamechangericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchernamechangericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchernamechangericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchernamechangericon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchernamechangericon.Name = "pnllaunchernamechangericon" + Me.pnllaunchernamechangericon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchernamechangericon.TabIndex = 0 + ' + 'pnliconmanagericons + ' + Me.pnliconmanagericons.Controls.Add(Me.txticonmanagername) + Me.pnliconmanagericons.Controls.Add(Me.pnltitlebariconmanagericon) + Me.pnliconmanagericons.Controls.Add(Me.pnlpanelbuttoniconmanagericon) + Me.pnliconmanagericons.Controls.Add(Me.pnllaunchericonmanagericon) + Me.pnliconmanagericons.Location = New System.Drawing.Point(3, 1333) + Me.pnliconmanagericons.Name = "pnliconmanagericons" + Me.pnliconmanagericons.Size = New System.Drawing.Size(369, 64) + Me.pnliconmanagericons.TabIndex = 19 + ' + 'txticonmanagername + ' + Me.txticonmanagername.Dock = System.Windows.Forms.DockStyle.Fill + Me.txticonmanagername.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txticonmanagername.Location = New System.Drawing.Point(0, 0) + Me.txticonmanagername.Name = "txticonmanagername" + Me.txticonmanagername.Size = New System.Drawing.Size(177, 64) + Me.txticonmanagername.TabIndex = 3 + Me.txticonmanagername.Text = "Icon Manager" + Me.txticonmanagername.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebariconmanagericon + ' + Me.pnltitlebariconmanagericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebariconmanagericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebariconmanagericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebariconmanagericon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebariconmanagericon.Name = "pnltitlebariconmanagericon" + Me.pnltitlebariconmanagericon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebariconmanagericon.TabIndex = 2 + ' + 'pnlpanelbuttoniconmanagericon + ' + Me.pnlpanelbuttoniconmanagericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttoniconmanagericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttoniconmanagericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttoniconmanagericon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttoniconmanagericon.Name = "pnlpanelbuttoniconmanagericon" + Me.pnlpanelbuttoniconmanagericon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttoniconmanagericon.TabIndex = 1 + ' + 'pnllaunchericonmanagericon + ' + Me.pnllaunchericonmanagericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchericonmanagericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchericonmanagericon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchericonmanagericon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchericonmanagericon.Name = "pnllaunchericonmanagericon" + Me.pnllaunchericonmanagericon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchericonmanagericon.TabIndex = 0 + ' + 'Panel7 + ' + Me.Panel7.Controls.Add(Me.txtterminalname) + Me.Panel7.Controls.Add(Me.pnltitlebarterminalicon) + Me.Panel7.Controls.Add(Me.pnlpanelbuttonterminalicon) + Me.Panel7.Controls.Add(Me.pnllauncherterminalicon) + Me.Panel7.Location = New System.Drawing.Point(3, 1403) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(369, 64) + Me.Panel7.TabIndex = 20 + ' + 'txtterminalname + ' + Me.txtterminalname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtterminalname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtterminalname.Location = New System.Drawing.Point(0, 0) + Me.txtterminalname.Name = "txtterminalname" + Me.txtterminalname.Size = New System.Drawing.Size(177, 64) + Me.txtterminalname.TabIndex = 3 + Me.txtterminalname.Text = "Terminal" + Me.txtterminalname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnltitlebarterminalicon + ' + Me.pnltitlebarterminalicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnltitlebarterminalicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnltitlebarterminalicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnltitlebarterminalicon.Location = New System.Drawing.Point(177, 0) + Me.pnltitlebarterminalicon.Name = "pnltitlebarterminalicon" + Me.pnltitlebarterminalicon.Size = New System.Drawing.Size(64, 64) + Me.pnltitlebarterminalicon.TabIndex = 2 + ' + 'pnlpanelbuttonterminalicon + ' + Me.pnlpanelbuttonterminalicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlpanelbuttonterminalicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlpanelbuttonterminalicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlpanelbuttonterminalicon.Location = New System.Drawing.Point(241, 0) + Me.pnlpanelbuttonterminalicon.Name = "pnlpanelbuttonterminalicon" + Me.pnlpanelbuttonterminalicon.Size = New System.Drawing.Size(64, 64) + Me.pnlpanelbuttonterminalicon.TabIndex = 1 + ' + 'pnllauncherterminalicon + ' + Me.pnllauncherterminalicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllauncherterminalicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllauncherterminalicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllauncherterminalicon.Location = New System.Drawing.Point(305, 0) + Me.pnllauncherterminalicon.Name = "pnllauncherterminalicon" + Me.pnllauncherterminalicon.Size = New System.Drawing.Size(64, 64) + Me.pnllauncherterminalicon.TabIndex = 0 + ' + 'Panel8 + ' + Me.Panel8.Controls.Add(Me.txtshutdownname) + Me.Panel8.Controls.Add(Me.pnllaunchershutdownicon) + Me.Panel8.Location = New System.Drawing.Point(3, 1473) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(369, 64) + Me.Panel8.TabIndex = 21 + ' + 'txtshutdownname + ' + Me.txtshutdownname.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtshutdownname.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtshutdownname.Location = New System.Drawing.Point(0, 0) + Me.txtshutdownname.Name = "txtshutdownname" + Me.txtshutdownname.Size = New System.Drawing.Size(305, 64) + Me.txtshutdownname.TabIndex = 3 + Me.txtshutdownname.Text = "Shutdown" + Me.txtshutdownname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnllaunchershutdownicon + ' + Me.pnllaunchershutdownicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnllaunchershutdownicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnllaunchershutdownicon.Dock = System.Windows.Forms.DockStyle.Right + Me.pnllaunchershutdownicon.Location = New System.Drawing.Point(305, 0) + Me.pnllaunchershutdownicon.Name = "pnllaunchershutdownicon" + Me.pnllaunchershutdownicon.Size = New System.Drawing.Size(64, 64) + Me.pnllaunchershutdownicon.TabIndex = 0 + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.Panel3) + Me.Panel2.Controls.Add(Me.txtlaunchericonsize) + Me.Panel2.Controls.Add(Me.Label6) + Me.Panel2.Controls.Add(Me.txtpanelbuttoniconsize) + Me.Panel2.Controls.Add(Me.Label4) + Me.Panel2.Controls.Add(Me.txttitlebariconsize) + Me.Panel2.Controls.Add(Me.Label3) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 390) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(396, 37) + Me.Panel2.TabIndex = 4 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.Black + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel3.Location = New System.Drawing.Point(0, 0) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(396, 1) + Me.Panel3.TabIndex = 7 + ' + 'txtlaunchericonsize + ' + Me.txtlaunchericonsize.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.txtlaunchericonsize.BackColor = System.Drawing.Color.White + Me.txtlaunchericonsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtlaunchericonsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlaunchericonsize.Location = New System.Drawing.Point(330, 8) + Me.txtlaunchericonsize.Multiline = True + Me.txtlaunchericonsize.Name = "txtlaunchericonsize" + Me.txtlaunchericonsize.Size = New System.Drawing.Size(23, 20) + Me.txtlaunchericonsize.TabIndex = 6 + Me.txtlaunchericonsize.Text = "34" + Me.txtlaunchericonsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label6 + ' + Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(261, 10) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(66, 16) + Me.Label6.TabIndex = 5 + Me.Label6.Text = "Launcher:" + ' + 'txtpanelbuttoniconsize + ' + Me.txtpanelbuttoniconsize.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.txtpanelbuttoniconsize.BackColor = System.Drawing.Color.White + Me.txtpanelbuttoniconsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttoniconsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttoniconsize.Location = New System.Drawing.Point(225, 8) + Me.txtpanelbuttoniconsize.Multiline = True + Me.txtpanelbuttoniconsize.Name = "txtpanelbuttoniconsize" + Me.txtpanelbuttoniconsize.Size = New System.Drawing.Size(23, 20) + Me.txtpanelbuttoniconsize.TabIndex = 3 + Me.txtpanelbuttoniconsize.Text = "34" + Me.txtpanelbuttoniconsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label4 + ' + Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(137, 10) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(86, 16) + Me.Label4.TabIndex = 2 + Me.Label4.Text = "Panel Button:" + ' + 'txttitlebariconsize + ' + Me.txttitlebariconsize.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.txttitlebariconsize.BackColor = System.Drawing.Color.White + Me.txttitlebariconsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttitlebariconsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttitlebariconsize.Location = New System.Drawing.Point(98, 8) + Me.txttitlebariconsize.Multiline = True + Me.txttitlebariconsize.Name = "txttitlebariconsize" + Me.txttitlebariconsize.Size = New System.Drawing.Size(23, 20) + Me.txttitlebariconsize.TabIndex = 1 + Me.txttitlebariconsize.Text = "34" + Me.txttitlebariconsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label3 + ' + Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(38, 10) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(57, 16) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "Titlebar:" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.Panel5) + Me.Panel1.Controls.Add(Me.btnReset) + Me.Panel1.Controls.Add(Me.Button3) + Me.Panel1.Controls.Add(Me.btnSave) + Me.Panel1.Controls.Add(Me.btnApply) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 427) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(396, 41) + Me.Panel1.TabIndex = 3 + ' + 'Panel5 + ' + Me.Panel5.BackColor = System.Drawing.Color.Black + Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel5.Location = New System.Drawing.Point(0, 0) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(396, 1) + Me.Panel5.TabIndex = 8 + ' + 'btnReset + ' + Me.btnReset.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnReset.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnReset.Location = New System.Drawing.Point(2, 4) + Me.btnReset.Name = "btnReset" + Me.btnReset.Size = New System.Drawing.Size(95, 34) + Me.btnReset.TabIndex = 3 + Me.btnReset.Text = "Reset" + Me.btnReset.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(101, 4) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(95, 34) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "Load" + Me.Button3.UseVisualStyleBackColor = True + ' + 'btnSave + ' + Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnSave.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.Location = New System.Drawing.Point(200, 4) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(95, 34) + Me.btnSave.TabIndex = 1 + Me.btnSave.Text = "Save" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'btnApply + ' + Me.btnApply.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnApply.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnApply.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnApply.Location = New System.Drawing.Point(299, 4) + Me.btnApply.Name = "btnApply" + Me.btnApply.Size = New System.Drawing.Size(95, 34) + Me.btnApply.TabIndex = 0 + Me.btnApply.Text = "Apply" + Me.btnApply.UseVisualStyleBackColor = True + ' + 'Panel4 + ' + Me.Panel4.Controls.Add(Me.Panel6) + Me.Panel4.Controls.Add(Me.Label1) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel4.Location = New System.Drawing.Point(0, 0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(396, 27) + Me.Panel4.TabIndex = 1 + ' + 'Panel6 + ' + Me.Panel6.BackColor = System.Drawing.Color.Black + Me.Panel6.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel6.Location = New System.Drawing.Point(0, 26) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(396, 1) + Me.Panel6.TabIndex = 9 + ' + 'Label1 + ' + Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(0, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(396, 27) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Program Name | Titlebar Icon | Panel Button Icon | Launcher Icon" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 470) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(400, 30) + Me.titlebar.TabIndex = 19 + ' + 'Icon_Manager + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(400, 500) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Icon_Manager" + Me.Text = "Icon_Manager" + Me.TopMost = True + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.FlowLayoutPanel1.ResumeLayout(False) + Me.pnlknowledgeinputicons.ResumeLayout(False) + Me.pnlshiftoriumicons.ResumeLayout(False) + Me.pnlclockicons.ResumeLayout(False) + Me.pnlshiftericons.ResumeLayout(False) + Me.pnlcolourpickericons.ResumeLayout(False) + Me.pnlinfoboxicons.ResumeLayout(False) + Me.pnlpongicons.ResumeLayout(False) + Me.pnlfileskimmericons.ResumeLayout(False) + Me.pnltextpadicons.ResumeLayout(False) + Me.pnlfileopenericons.ResumeLayout(False) + Me.pnlfilesavericons.ResumeLayout(False) + Me.pnlgraphicpickericons.ResumeLayout(False) + Me.pnlskinloadericons.ResumeLayout(False) + Me.pnlartpadicons.ResumeLayout(False) + Me.pnlcalculatoricons.ResumeLayout(False) + Me.pnlaudioplayericons.ResumeLayout(False) + Me.pnlwebbrowsericons.ResumeLayout(False) + Me.pnlvideoplayericons.ResumeLayout(False) + Me.pnlnamechangericons.ResumeLayout(False) + Me.pnliconmanagericons.ResumeLayout(False) + Me.Panel7.ResumeLayout(False) + Me.Panel8.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel4.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pnlknowledgeinputicons As System.Windows.Forms.Panel + Friend WithEvents txtknowledgeinputname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarknowledgeinputicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonknowledgeinputicon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherknowledgeinputicon As System.Windows.Forms.Panel + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents FlowLayoutPanel1 As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents btnSave As System.Windows.Forms.Button + Friend WithEvents btnApply As System.Windows.Forms.Button + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents txtlaunchericonsize As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttoniconsize As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txttitlebariconsize As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btnReset As System.Windows.Forms.Button + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Panel5 As System.Windows.Forms.Panel + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents pnlshiftoriumicons As System.Windows.Forms.Panel + Friend WithEvents txtshiftoriumname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarshiftoriumicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonshiftoriumicon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchershiftoriumicon As System.Windows.Forms.Panel + Friend WithEvents pnlclockicons As System.Windows.Forms.Panel + Friend WithEvents txtclockname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarclockicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonclockicon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherclockicon As System.Windows.Forms.Panel + Friend WithEvents pnlshiftericons As System.Windows.Forms.Panel + Friend WithEvents txtshiftername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarshiftericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonshiftericon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchershiftericon As System.Windows.Forms.Panel + Friend WithEvents pnlcolourpickericons As System.Windows.Forms.Panel + Friend WithEvents txtcolourpickername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarcolourpickericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttoncolourpickericon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchercolourpickericon As System.Windows.Forms.Panel + Friend WithEvents pnlinfoboxicons As System.Windows.Forms.Panel + Friend WithEvents txtinfoboxname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarinfoboxicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttoninfoboxicon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherinfoboxicon As System.Windows.Forms.Panel + Friend WithEvents pnlpongicons As System.Windows.Forms.Panel + Friend WithEvents txtpongname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarpongicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonpongicon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherpongicon As System.Windows.Forms.Panel + Friend WithEvents pnlfileskimmericons As System.Windows.Forms.Panel + Friend WithEvents txtfileskimmername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarfileskimmericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonfileskimmericon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherfileskimmericon As System.Windows.Forms.Panel + Friend WithEvents pnltextpadicons As System.Windows.Forms.Panel + Friend WithEvents txttextpadname As System.Windows.Forms.Label + Friend WithEvents pnltitlebartextpadicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttontextpadicon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchertextpadicon As System.Windows.Forms.Panel + Friend WithEvents pnlfileopenericons As System.Windows.Forms.Panel + Friend WithEvents txtfileopenername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarfileopenericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonfileopenericon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherfileopenericon As System.Windows.Forms.Panel + Friend WithEvents pnlfilesavericons As System.Windows.Forms.Panel + Friend WithEvents txtfilesavername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarfilesavericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonfilesavericon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherfilesavericon As System.Windows.Forms.Panel + Friend WithEvents pnlgraphicpickericons As System.Windows.Forms.Panel + Friend WithEvents txtgraphicpickername As System.Windows.Forms.Label + Friend WithEvents pnltitlebargraphicpickericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttongraphicpickericon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchergraphicpickericon As System.Windows.Forms.Panel + Friend WithEvents pnlskinloadericons As System.Windows.Forms.Panel + Friend WithEvents txtskinloadername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarskinloadericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonskinloadericon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherskinloadericon As System.Windows.Forms.Panel + Friend WithEvents pnlartpadicons As System.Windows.Forms.Panel + Friend WithEvents txtartpadname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarartpadicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonartpadicon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherartpadicon As System.Windows.Forms.Panel + Friend WithEvents pnlcalculatoricons As System.Windows.Forms.Panel + Friend WithEvents txtcalculatorname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarcalculatoricon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttoncalculatoricon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchercalculatoricon As System.Windows.Forms.Panel + Friend WithEvents pnlaudioplayericons As System.Windows.Forms.Panel + Friend WithEvents txtaudioplayername As System.Windows.Forms.Label + Friend WithEvents pnltitlebaraudioplayericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonaudioplayericon As System.Windows.Forms.Panel + Friend WithEvents pnllauncheraudioplayericon As System.Windows.Forms.Panel + Friend WithEvents pnlwebbrowsericons As System.Windows.Forms.Panel + Friend WithEvents txtwebbrowsername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarwebbrowsericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonwebbrowsericon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherwebbrowsericon As System.Windows.Forms.Panel + Friend WithEvents pnlvideoplayericons As System.Windows.Forms.Panel + Friend WithEvents txtvideoplayername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarvideoplayericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonvideoplayericon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchervideoplayericon As System.Windows.Forms.Panel + Friend WithEvents pnlnamechangericons As System.Windows.Forms.Panel + Friend WithEvents txtnamechangername As System.Windows.Forms.Label + Friend WithEvents pnltitlebarnamechangericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonnamechangericon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchernamechangericon As System.Windows.Forms.Panel + Friend WithEvents pnliconmanagericons As System.Windows.Forms.Panel + Friend WithEvents txticonmanagername As System.Windows.Forms.Label + Friend WithEvents pnltitlebariconmanagericon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttoniconmanagericon As System.Windows.Forms.Panel + Friend WithEvents pnllaunchericonmanagericon As System.Windows.Forms.Panel + Friend WithEvents Panel7 As System.Windows.Forms.Panel + Friend WithEvents txtterminalname As System.Windows.Forms.Label + Friend WithEvents pnltitlebarterminalicon As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonterminalicon As System.Windows.Forms.Panel + Friend WithEvents pnllauncherterminalicon As System.Windows.Forms.Panel + Friend WithEvents Panel8 As System.Windows.Forms.Panel + Friend WithEvents txtshutdownname As System.Windows.Forms.Label + Friend WithEvents pnllaunchershutdownicon As System.Windows.Forms.Panel +End Class diff --git a/Icon Manager.resx b/Icon Manager.resx new file mode 100644 index 0000000..ff4c820 --- /dev/null +++ b/Icon Manager.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1347, 18 + + + 1441, 18 + + + 1525, 18 + + \ No newline at end of file diff --git a/Icon Manager.vb b/Icon Manager.vb new file mode 100644 index 0000000..5e877e7 --- /dev/null +++ b/Icon Manager.vb @@ -0,0 +1,1048 @@ +Public Class Icon_Manager + 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 'replace with minimum size + Public minimumsizeheight As Integer = 0 'replace with minimum size + + Public openedfilelocation As String + Public icontochange As Object + Public over64 As Boolean = False + Public needtosetupdesktop As Boolean = False + Public savelines(50) As String + Public unsavedchanges As Boolean = False + + 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() + + ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + loadsettings() + 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(400, 500) '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.iconmanagername 'Remember to change to name of program!!!! + 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.iconmanagericontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 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 + If ret.Width > 64 Then over64 = True + Return ret + End Function + + Public Sub loadsettings() + txttitlebariconsize.Text = ShiftOSDesktop.panelbuttoniconsize + txtpanelbuttoniconsize.Text = ShiftOSDesktop.panelbuttoniconsize + txtlaunchericonsize.Text = ShiftOSDesktop.launchericonsize + + pnltitlebarknowledgeinputicon.BackgroundImage = ShiftOSDesktop.knowledgeinputicontitlebar.Clone + pnlpanelbuttonknowledgeinputicon.BackgroundImage = ShiftOSDesktop.knowledgeinputiconpanelbutton.Clone + pnllauncherknowledgeinputicon.BackgroundImage = ShiftOSDesktop.knowledgeinputiconlauncher.Clone + + pnltitlebarshiftoriumicon.BackgroundImage = ShiftOSDesktop.shiftoriumicontitlebar.Clone + pnlpanelbuttonshiftoriumicon.BackgroundImage = ShiftOSDesktop.shiftoriumiconpanelbutton.Clone + pnllaunchershiftoriumicon.BackgroundImage = ShiftOSDesktop.shiftoriumiconlauncher.Clone + + pnltitlebarclockicon.BackgroundImage = ShiftOSDesktop.clockicontitlebar.Clone + pnlpanelbuttonclockicon.BackgroundImage = ShiftOSDesktop.clockiconpanelbutton.Clone + pnllauncherclockicon.BackgroundImage = ShiftOSDesktop.clockiconlauncher.Clone + + pnltitlebarshiftericon.BackgroundImage = ShiftOSDesktop.shiftericontitlebar.Clone + pnlpanelbuttonshiftericon.BackgroundImage = ShiftOSDesktop.shiftericonpanelbutton.Clone + pnllaunchershiftericon.BackgroundImage = ShiftOSDesktop.shiftericonlauncher.Clone + + pnltitlebarcolourpickericon.BackgroundImage = ShiftOSDesktop.colourpickericontitlebar.Clone + pnlpanelbuttoncolourpickericon.BackgroundImage = ShiftOSDesktop.colourpickericonpanelbutton.Clone + pnllaunchercolourpickericon.BackgroundImage = ShiftOSDesktop.colourpickericonlauncher.Clone + + pnltitlebarinfoboxicon.BackgroundImage = ShiftOSDesktop.infoboxicontitlebar.Clone + pnlpanelbuttoninfoboxicon.BackgroundImage = ShiftOSDesktop.infoboxiconpanelbutton.Clone + pnllauncherinfoboxicon.BackgroundImage = ShiftOSDesktop.infoboxiconlauncher.Clone + + pnltitlebarpongicon.BackgroundImage = ShiftOSDesktop.pongicontitlebar.Clone + pnlpanelbuttonpongicon.BackgroundImage = ShiftOSDesktop.pongiconpanelbutton.Clone + pnllauncherpongicon.BackgroundImage = ShiftOSDesktop.pongiconlauncher.Clone + + pnltitlebarfileskimmericon.BackgroundImage = ShiftOSDesktop.fileskimmericontitlebar.Clone + pnlpanelbuttonfileskimmericon.BackgroundImage = ShiftOSDesktop.fileskimmericonpanelbutton.Clone + pnllauncherfileskimmericon.BackgroundImage = ShiftOSDesktop.fileskimmericonlauncher.Clone + + pnltitlebartextpadicon.BackgroundImage = ShiftOSDesktop.textpadicontitlebar.Clone + pnlpanelbuttontextpadicon.BackgroundImage = ShiftOSDesktop.textpadiconpanelbutton.Clone + pnllaunchertextpadicon.BackgroundImage = ShiftOSDesktop.textpadiconlauncher.Clone + + pnltitlebarfileopenericon.BackgroundImage = ShiftOSDesktop.fileopenericontitlebar.Clone + pnlpanelbuttonfileopenericon.BackgroundImage = ShiftOSDesktop.fileopenericonpanelbutton.Clone + pnllauncherfileopenericon.BackgroundImage = ShiftOSDesktop.fileopenericonlauncher.Clone + + pnltitlebarfilesavericon.BackgroundImage = ShiftOSDesktop.filesavericontitlebar.Clone + pnlpanelbuttonfilesavericon.BackgroundImage = ShiftOSDesktop.filesavericonpanelbutton.Clone + pnllauncherfilesavericon.BackgroundImage = ShiftOSDesktop.filesavericonlauncher.Clone + + pnltitlebargraphicpickericon.BackgroundImage = ShiftOSDesktop.graphicpickericontitlebar.Clone + pnlpanelbuttongraphicpickericon.BackgroundImage = ShiftOSDesktop.graphicpickericonpanelbutton.Clone + pnllaunchergraphicpickericon.BackgroundImage = ShiftOSDesktop.graphicpickericonlauncher.Clone + + pnltitlebarskinloadericon.BackgroundImage = ShiftOSDesktop.skinloadericontitlebar.Clone + pnlpanelbuttonskinloadericon.BackgroundImage = ShiftOSDesktop.skinloadericonpanelbutton.Clone + pnllauncherskinloadericon.BackgroundImage = ShiftOSDesktop.skinloadericonlauncher.Clone + + pnltitlebarartpadicon.BackgroundImage = ShiftOSDesktop.artpadicontitlebar.Clone + pnlpanelbuttonartpadicon.BackgroundImage = ShiftOSDesktop.artpadiconpanelbutton.Clone + pnllauncherartpadicon.BackgroundImage = ShiftOSDesktop.artpadiconlauncher.Clone + + pnltitlebarcalculatoricon.BackgroundImage = ShiftOSDesktop.calculatoricontitlebar.Clone + pnlpanelbuttoncalculatoricon.BackgroundImage = ShiftOSDesktop.calculatoriconpanelbutton.Clone + pnllaunchercalculatoricon.BackgroundImage = ShiftOSDesktop.calculatoriconlauncher.Clone + + pnltitlebaraudioplayericon.BackgroundImage = ShiftOSDesktop.audioplayericontitlebar.Clone + pnlpanelbuttonaudioplayericon.BackgroundImage = ShiftOSDesktop.audioplayericonpanelbutton.Clone + pnllauncheraudioplayericon.BackgroundImage = ShiftOSDesktop.audioplayericonlauncher.Clone + + pnltitlebarwebbrowsericon.BackgroundImage = ShiftOSDesktop.webbrowsericontitlebar.Clone + pnlpanelbuttonwebbrowsericon.BackgroundImage = ShiftOSDesktop.webbrowsericonpanelbutton.Clone + pnllauncherwebbrowsericon.BackgroundImage = ShiftOSDesktop.webbrowsericonlauncher.Clone + + pnltitlebarvideoplayericon.BackgroundImage = ShiftOSDesktop.videoplayericontitlebar.Clone + pnlpanelbuttonvideoplayericon.BackgroundImage = ShiftOSDesktop.videoplayericonpanelbutton.Clone + pnllaunchervideoplayericon.BackgroundImage = ShiftOSDesktop.videoplayericonlauncher.Clone + + pnltitlebarnamechangericon.BackgroundImage = ShiftOSDesktop.namechangericontitlebar.Clone + pnlpanelbuttonnamechangericon.BackgroundImage = ShiftOSDesktop.namechangericonpanelbutton.Clone + pnllaunchernamechangericon.BackgroundImage = ShiftOSDesktop.namechangericonlauncher.Clone + + pnltitlebariconmanagericon.BackgroundImage = ShiftOSDesktop.iconmanagericontitlebar.Clone + pnlpanelbuttoniconmanagericon.BackgroundImage = ShiftOSDesktop.iconmanagericonpanelbutton.Clone + pnllaunchericonmanagericon.BackgroundImage = ShiftOSDesktop.iconmanagericonlauncher.Clone + + pnltitlebarterminalicon.BackgroundImage = ShiftOSDesktop.terminalicontitlebar.Clone + pnlpanelbuttonterminalicon.BackgroundImage = ShiftOSDesktop.terminaliconpanelbutton.Clone + pnllauncherterminalicon.BackgroundImage = ShiftOSDesktop.terminaliconlauncher.Clone + + pnllaunchershutdownicon.BackgroundImage = ShiftOSDesktop.shutdowniconlauncher.Clone + + txtknowledgeinputname.Text = ShiftOSDesktop.knowledgeinputname + txtshiftoriumname.Text = ShiftOSDesktop.shiftoriumname + txtclockname.Text = ShiftOSDesktop.clockname + txtshiftername.Text = ShiftOSDesktop.shiftername + txtcolourpickername.Text = ShiftOSDesktop.colourpickername + txtpongname.Text = ShiftOSDesktop.pongname + txtfileskimmername.Text = ShiftOSDesktop.fileskimmername + txtfileopenername.Text = ShiftOSDesktop.fileopenername + txtfilesavername.Text = ShiftOSDesktop.filesavername + txttextpadname.Text = ShiftOSDesktop.textpadname + txtgraphicpickername.Text = ShiftOSDesktop.graphicpickername + txtskinloadername.Text = ShiftOSDesktop.skinloadername + txtartpadname.Text = ShiftOSDesktop.artpadname + txtcalculatorname.Text = ShiftOSDesktop.calculatorname + txtaudioplayername.Text = ShiftOSDesktop.audioplayername + txtwebbrowsername.Text = ShiftOSDesktop.webbrowsername + txtvideoplayername.Text = ShiftOSDesktop.videoplayername + txtnamechangername.Text = ShiftOSDesktop.namechangername + txticonmanagername.Text = ShiftOSDesktop.iconmanagername + txtterminalname.Text = ShiftOSDesktop.terminalname + + checkbackgroundimagesize() + + If needtosetupdesktop = True Then + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setupdesktop() + needtosetupdesktop = False + End If + + unsavedchanges = False + End Sub + + Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click + + unsavedchanges = False + + ShiftOSDesktop.titlebariconsize = txttitlebariconsize.Text + ShiftOSDesktop.panelbuttoniconsize = txtpanelbuttoniconsize.Text + ShiftOSDesktop.launchericonsize = txtlaunchericonsize.Text + + ShiftOSDesktop.knowledgeinputicontitlebar = pnltitlebarknowledgeinputicon.BackgroundImage.Clone + ShiftOSDesktop.knowledgeinputiconpanelbutton = pnlpanelbuttonknowledgeinputicon.BackgroundImage.Clone + ShiftOSDesktop.knowledgeinputiconlauncher = pnllauncherknowledgeinputicon.BackgroundImage.Clone + + ShiftOSDesktop.shiftoriumicontitlebar = pnltitlebarshiftoriumicon.BackgroundImage.Clone + ShiftOSDesktop.shiftoriumiconpanelbutton = pnlpanelbuttonshiftoriumicon.BackgroundImage.Clone + ShiftOSDesktop.shiftoriumiconlauncher = pnllaunchershiftoriumicon.BackgroundImage.Clone + + ShiftOSDesktop.clockicontitlebar = pnltitlebarclockicon.BackgroundImage.Clone + ShiftOSDesktop.clockiconpanelbutton = pnlpanelbuttonclockicon.BackgroundImage.Clone + ShiftOSDesktop.clockiconlauncher = pnllauncherclockicon.BackgroundImage.Clone + + ShiftOSDesktop.shiftericontitlebar = pnltitlebarshiftericon.BackgroundImage.Clone + ShiftOSDesktop.shiftericonpanelbutton = pnlpanelbuttonshiftericon.BackgroundImage.Clone + ShiftOSDesktop.shiftericonlauncher = pnllaunchershiftericon.BackgroundImage.Clone + + ShiftOSDesktop.colourpickericontitlebar = pnltitlebarcolourpickericon.BackgroundImage.Clone + ShiftOSDesktop.colourpickericonpanelbutton = pnlpanelbuttoncolourpickericon.BackgroundImage.Clone + ShiftOSDesktop.colourpickericonlauncher = pnllaunchercolourpickericon.BackgroundImage.Clone + + ShiftOSDesktop.infoboxicontitlebar = pnltitlebarinfoboxicon.BackgroundImage.Clone + ShiftOSDesktop.infoboxiconpanelbutton = pnlpanelbuttoninfoboxicon.BackgroundImage.Clone + ShiftOSDesktop.infoboxiconlauncher = pnllauncherinfoboxicon.BackgroundImage.Clone + + ShiftOSDesktop.pongicontitlebar = pnltitlebarpongicon.BackgroundImage.Clone + ShiftOSDesktop.pongiconpanelbutton = pnlpanelbuttonpongicon.BackgroundImage.Clone + ShiftOSDesktop.pongiconlauncher = pnllauncherpongicon.BackgroundImage.Clone + + ShiftOSDesktop.fileskimmericontitlebar = pnltitlebarfileskimmericon.BackgroundImage.Clone + ShiftOSDesktop.fileskimmericonpanelbutton = pnlpanelbuttonfileskimmericon.BackgroundImage.Clone + ShiftOSDesktop.fileskimmericonlauncher = pnllauncherfileskimmericon.BackgroundImage.Clone + + ShiftOSDesktop.textpadicontitlebar = pnltitlebartextpadicon.BackgroundImage.Clone + ShiftOSDesktop.textpadiconpanelbutton = pnlpanelbuttontextpadicon.BackgroundImage.Clone + ShiftOSDesktop.textpadiconlauncher = pnllaunchertextpadicon.BackgroundImage.Clone + + ShiftOSDesktop.fileopenericontitlebar = pnltitlebarfileopenericon.BackgroundImage.Clone + ShiftOSDesktop.fileopenericonpanelbutton = pnlpanelbuttonfileopenericon.BackgroundImage.Clone + ShiftOSDesktop.fileopenericonlauncher = pnllauncherfileopenericon.BackgroundImage.Clone + + ShiftOSDesktop.filesavericontitlebar = pnltitlebarfilesavericon.BackgroundImage.Clone + ShiftOSDesktop.filesavericonpanelbutton = pnlpanelbuttonfilesavericon.BackgroundImage.Clone + ShiftOSDesktop.filesavericonlauncher = pnllauncherfilesavericon.BackgroundImage.Clone + + ShiftOSDesktop.graphicpickericontitlebar = pnltitlebargraphicpickericon.BackgroundImage.Clone + ShiftOSDesktop.graphicpickericonpanelbutton = pnlpanelbuttongraphicpickericon.BackgroundImage.Clone + ShiftOSDesktop.graphicpickericonlauncher = pnllaunchergraphicpickericon.BackgroundImage.Clone + + ShiftOSDesktop.skinloadericontitlebar = pnltitlebarskinloadericon.BackgroundImage.Clone + ShiftOSDesktop.skinloadericonpanelbutton = pnlpanelbuttonskinloadericon.BackgroundImage.Clone + ShiftOSDesktop.skinloadericonlauncher = pnllauncherskinloadericon.BackgroundImage.Clone + + ShiftOSDesktop.artpadicontitlebar = pnltitlebarartpadicon.BackgroundImage.Clone + ShiftOSDesktop.artpadiconpanelbutton = pnlpanelbuttonartpadicon.BackgroundImage.Clone + ShiftOSDesktop.artpadiconlauncher = pnllauncherartpadicon.BackgroundImage.Clone + + ShiftOSDesktop.calculatoricontitlebar = pnltitlebarcalculatoricon.BackgroundImage.Clone + ShiftOSDesktop.calculatoriconpanelbutton = pnlpanelbuttoncalculatoricon.BackgroundImage.Clone + ShiftOSDesktop.calculatoriconlauncher = pnllaunchercalculatoricon.BackgroundImage.Clone + + ShiftOSDesktop.audioplayericontitlebar = pnltitlebaraudioplayericon.BackgroundImage.Clone + ShiftOSDesktop.audioplayericonpanelbutton = pnlpanelbuttonaudioplayericon.BackgroundImage.Clone + ShiftOSDesktop.audioplayericonlauncher = pnllauncheraudioplayericon.BackgroundImage.Clone + + ShiftOSDesktop.webbrowsericontitlebar = pnltitlebarwebbrowsericon.BackgroundImage.Clone + ShiftOSDesktop.webbrowsericonpanelbutton = pnlpanelbuttonwebbrowsericon.BackgroundImage.Clone + ShiftOSDesktop.webbrowsericonlauncher = pnllauncherwebbrowsericon.BackgroundImage.Clone + + ShiftOSDesktop.videoplayericontitlebar = pnltitlebarvideoplayericon.BackgroundImage.Clone + ShiftOSDesktop.videoplayericonpanelbutton = pnlpanelbuttonvideoplayericon.BackgroundImage.Clone + ShiftOSDesktop.videoplayericonlauncher = pnllaunchervideoplayericon.BackgroundImage.Clone + + ShiftOSDesktop.namechangericontitlebar = pnltitlebarnamechangericon.BackgroundImage.Clone + ShiftOSDesktop.namechangericonpanelbutton = pnlpanelbuttonnamechangericon.BackgroundImage.Clone + ShiftOSDesktop.namechangericonlauncher = pnllaunchernamechangericon.BackgroundImage.Clone + + ShiftOSDesktop.iconmanagericontitlebar = pnltitlebariconmanagericon.BackgroundImage.Clone + ShiftOSDesktop.iconmanagericonpanelbutton = pnlpanelbuttoniconmanagericon.BackgroundImage.Clone + ShiftOSDesktop.iconmanagericonlauncher = pnllaunchericonmanagericon.BackgroundImage.Clone + + ShiftOSDesktop.terminalicontitlebar = pnltitlebarterminalicon.BackgroundImage.Clone + ShiftOSDesktop.terminaliconpanelbutton = pnlpanelbuttonterminalicon.BackgroundImage.Clone + ShiftOSDesktop.terminaliconlauncher = pnllauncherterminalicon.BackgroundImage.Clone + + ShiftOSDesktop.shutdowniconlauncher = pnllaunchershutdownicon.BackgroundImage.Clone + + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setupdesktop() + If Name_Changer.Visible = True Then Name_Changer.loadicons() + + While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Icons") + Try + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Icons") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Icons", FileIO.DeleteDirectoryOption.DeleteAllContents) + Catch ex As Exception + End Try + End While + + My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Icons") + + savelines(0) = ShiftOSDesktop.titlebariconsize + savelines(1) = ShiftOSDesktop.panelbuttoniconsize + savelines(2) = ShiftOSDesktop.launchericonsize + IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Icons\icondata.dat", savelines) + + saveappliedicons() + End Sub + + Private Sub ChangeImage(sender As Object, e As MouseEventArgs) Handles pnltitlebarknowledgeinputicon.MouseClick, pnlpanelbuttonknowledgeinputicon.MouseClick, pnllauncherknowledgeinputicon.MouseClick, pnltitlebarshiftoriumicon.MouseClick, pnlpanelbuttonshiftoriumicon.MouseClick, pnllaunchershiftoriumicon.MouseClick, pnltitlebarclockicon.MouseClick, pnlpanelbuttonclockicon.MouseClick, pnllauncherclockicon.MouseClick, pnltitlebarshiftericon.MouseClick, pnlpanelbuttonshiftericon.MouseClick, pnllaunchershiftericon.MouseClick, pnltitlebarcolourpickericon.MouseClick, pnlpanelbuttoncolourpickericon.MouseClick, pnllaunchercolourpickericon.MouseClick, pnltitlebarinfoboxicon.MouseClick, pnlpanelbuttoninfoboxicon.MouseClick, pnllauncherinfoboxicon.MouseClick, pnltitlebarpongicon.MouseClick, pnlpanelbuttonpongicon.MouseClick, pnllauncherpongicon.MouseClick, pnltitlebarfileskimmericon.MouseClick, pnlpanelbuttonfileskimmericon.MouseClick, pnllauncherfileskimmericon.MouseClick, pnltitlebartextpadicon.MouseClick, pnlpanelbuttontextpadicon.MouseClick, pnllaunchertextpadicon.MouseClick, pnltitlebarfileopenericon.MouseClick, pnlpanelbuttonfileopenericon.MouseClick, pnllauncherfileopenericon.MouseClick, pnltitlebarfilesavericon.MouseClick, pnlpanelbuttonfilesavericon.MouseClick, pnllauncherfilesavericon.MouseClick, pnltitlebargraphicpickericon.MouseClick, pnlpanelbuttongraphicpickericon.MouseClick, pnllaunchergraphicpickericon.MouseClick, pnltitlebarskinloadericon.MouseClick, pnlpanelbuttonskinloadericon.MouseClick, pnllauncherskinloadericon.MouseClick, pnltitlebarartpadicon.MouseClick, pnlpanelbuttonartpadicon.MouseClick, pnllauncherartpadicon.MouseClick, pnltitlebarcalculatoricon.MouseClick, pnlpanelbuttoncalculatoricon.MouseClick, pnllaunchercalculatoricon.MouseClick, pnltitlebaraudioplayericon.MouseClick, pnlpanelbuttonaudioplayericon.MouseClick, pnllauncheraudioplayericon.MouseClick, pnltitlebarwebbrowsericon.MouseClick, pnlpanelbuttonwebbrowsericon.MouseClick, pnllauncherwebbrowsericon.MouseClick, pnltitlebarvideoplayericon.MouseClick, pnlpanelbuttonvideoplayericon.MouseClick, pnllaunchervideoplayericon.MouseClick, pnltitlebarnamechangericon.MouseClick, pnlpanelbuttonnamechangericon.MouseClick, pnllaunchernamechangericon.MouseClick, pnltitlebariconmanagericon.MouseClick, pnlpanelbuttoniconmanagericon.MouseClick, pnllaunchericonmanagericon.MouseClick, pnltitlebarterminalicon.MouseClick, pnlpanelbuttonterminalicon.MouseClick, pnllauncherterminalicon.MouseClick, pnllaunchershutdownicon.MouseClick + File_Opener.Show() + File_Opener.openingprogram = "iconmanager" + File_Opener.openextention = ".pic" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + icontochange = sender + unsavedchanges = True + End Sub + + Public Sub loadicon() + + icontochange.BackgroundImage = GetImage(openedfilelocation) + If over64 = True Then + icontochange.backgroundimagelayout = BackgroundImageLayout.Stretch + over64 = False + Else + icontochange.backgroundimagelayout = BackgroundImageLayout.Center + End If + + End Sub + + Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click + ShiftOSDesktop.titlebariconsize = 16 + ShiftOSDesktop.panelbuttoniconsize = 16 + ShiftOSDesktop.launchericonsize = 16 + + disposebackgrounds() + needtosetupdesktop = True + loadsettings() + + ShiftOSDesktop.artpadicontitlebar = My.Resources.iconArtpad + ShiftOSDesktop.audioplayericontitlebar = My.Resources.iconAudioPlayer + ShiftOSDesktop.calculatoricontitlebar = My.Resources.iconCalculator + ShiftOSDesktop.clockicontitlebar = My.Resources.iconClock + ShiftOSDesktop.colourpickericontitlebar = My.Resources.iconColourPicker + ShiftOSDesktop.fileopenericontitlebar = My.Resources.iconFileOpener + ShiftOSDesktop.filesavericontitlebar = My.Resources.iconFileSaver + ShiftOSDesktop.fileskimmericontitlebar = My.Resources.iconFileSkimmer + ShiftOSDesktop.graphicpickericontitlebar = My.Resources.iconGraphicPicker + ShiftOSDesktop.infoboxicontitlebar = My.Resources.iconInfoBox + ShiftOSDesktop.knowledgeinputicontitlebar = My.Resources.iconKnowledgeInput + ShiftOSDesktop.pongicontitlebar = My.Resources.iconPong + ShiftOSDesktop.shiftericontitlebar = My.Resources.iconShifter + ShiftOSDesktop.shiftoriumicontitlebar = My.Resources.iconShiftorium + ShiftOSDesktop.skinloadericontitlebar = My.Resources.iconSkinLoader + ShiftOSDesktop.terminalicontitlebar = My.Resources.iconTerminal + ShiftOSDesktop.textpadicontitlebar = My.Resources.iconTextPad + ShiftOSDesktop.videoplayericontitlebar = My.Resources.iconVideoPlayer + ShiftOSDesktop.webbrowsericontitlebar = My.Resources.iconWebBrowser + ShiftOSDesktop.namechangericontitlebar = My.Resources.iconNameChanger + ShiftOSDesktop.iconmanagericontitlebar = My.Resources.iconIconManager + + ShiftOSDesktop.artpadiconpanelbutton = My.Resources.iconArtpad + ShiftOSDesktop.audioplayericonpanelbutton = My.Resources.iconAudioPlayer + ShiftOSDesktop.calculatoriconpanelbutton = My.Resources.iconCalculator + ShiftOSDesktop.clockiconpanelbutton = My.Resources.iconClock + ShiftOSDesktop.colourpickericonpanelbutton = My.Resources.iconColourPicker + ShiftOSDesktop.fileopenericonpanelbutton = My.Resources.iconFileOpener + ShiftOSDesktop.filesavericonpanelbutton = My.Resources.iconFileSaver + ShiftOSDesktop.fileskimmericonpanelbutton = My.Resources.iconFileSkimmer + ShiftOSDesktop.graphicpickericonpanelbutton = My.Resources.iconGraphicPicker + ShiftOSDesktop.infoboxiconpanelbutton = My.Resources.iconInfoBox + ShiftOSDesktop.knowledgeinputiconpanelbutton = My.Resources.iconKnowledgeInput + ShiftOSDesktop.pongiconpanelbutton = My.Resources.iconPong + ShiftOSDesktop.shiftericonpanelbutton = My.Resources.iconShifter + ShiftOSDesktop.shiftoriumiconpanelbutton = My.Resources.iconShiftorium + ShiftOSDesktop.skinloadericonpanelbutton = My.Resources.iconSkinLoader + ShiftOSDesktop.terminaliconpanelbutton = My.Resources.iconTerminal + ShiftOSDesktop.textpadiconpanelbutton = My.Resources.iconTextPad + ShiftOSDesktop.videoplayericonpanelbutton = My.Resources.iconVideoPlayer + ShiftOSDesktop.webbrowsericonpanelbutton = My.Resources.iconWebBrowser + ShiftOSDesktop.namechangericonpanelbutton = My.Resources.iconNameChanger + ShiftOSDesktop.iconmanagericonpanelbutton = My.Resources.iconIconManager + + ShiftOSDesktop.artpadiconlauncher = My.Resources.iconArtpad + ShiftOSDesktop.audioplayericonlauncher = My.Resources.iconAudioPlayer + ShiftOSDesktop.calculatoriconlauncher = My.Resources.iconCalculator + ShiftOSDesktop.clockiconlauncher = My.Resources.iconClock + ShiftOSDesktop.colourpickericonlauncher = My.Resources.iconColourPicker + ShiftOSDesktop.fileopenericonlauncher = My.Resources.iconFileOpener + ShiftOSDesktop.filesavericonlauncher = My.Resources.iconFileSaver + ShiftOSDesktop.fileskimmericonlauncher = My.Resources.iconFileSkimmer + ShiftOSDesktop.graphicpickericonlauncher = My.Resources.iconGraphicPicker + ShiftOSDesktop.infoboxiconlauncher = My.Resources.iconInfoBox + ShiftOSDesktop.knowledgeinputiconlauncher = My.Resources.iconKnowledgeInput + ShiftOSDesktop.pongiconlauncher = My.Resources.iconPong + ShiftOSDesktop.shiftericonlauncher = My.Resources.iconShifter + ShiftOSDesktop.shiftoriumiconlauncher = My.Resources.iconShiftorium + ShiftOSDesktop.skinloadericonlauncher = My.Resources.iconSkinLoader + ShiftOSDesktop.terminaliconlauncher = My.Resources.iconTerminal + ShiftOSDesktop.textpadiconlauncher = My.Resources.iconTextPad + ShiftOSDesktop.videoplayericonlauncher = My.Resources.iconVideoPlayer + ShiftOSDesktop.webbrowsericonlauncher = My.Resources.iconWebBrowser + ShiftOSDesktop.namechangericonlauncher = My.Resources.iconNameChanger + ShiftOSDesktop.iconmanagericonlauncher = My.Resources.iconIconManager + + ShiftOSDesktop.shutdowniconlauncher = My.Resources.iconshutdown + + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setupdesktop() + + loadsettings() + End Sub + + Public Sub disposebackgrounds() + pnltitlebarknowledgeinputicon.BackgroundImage.Dispose() + pnlpanelbuttonknowledgeinputicon.BackgroundImage.Dispose() + pnllauncherknowledgeinputicon.BackgroundImage.Dispose() + + pnltitlebarshiftoriumicon.BackgroundImage.Dispose() + pnlpanelbuttonshiftoriumicon.BackgroundImage.Dispose() + pnllaunchershiftoriumicon.BackgroundImage.Dispose() + + pnltitlebarclockicon.BackgroundImage.Dispose() + pnlpanelbuttonclockicon.BackgroundImage.Dispose() + pnllauncherclockicon.BackgroundImage.Dispose() + + pnltitlebarshiftericon.BackgroundImage.Dispose() + pnlpanelbuttonshiftericon.BackgroundImage.Dispose() + pnllaunchershiftericon.BackgroundImage.Dispose() + + pnltitlebarcolourpickericon.BackgroundImage.Dispose() + pnlpanelbuttoncolourpickericon.BackgroundImage.Dispose() + pnllaunchercolourpickericon.BackgroundImage.Dispose() + + pnltitlebarinfoboxicon.BackgroundImage.Dispose() + pnlpanelbuttoninfoboxicon.BackgroundImage.Dispose() + pnllauncherinfoboxicon.BackgroundImage.Dispose() + + pnltitlebarpongicon.BackgroundImage.Dispose() + pnlpanelbuttonpongicon.BackgroundImage.Dispose() + pnllauncherpongicon.BackgroundImage.Dispose() + + pnltitlebarfileskimmericon.BackgroundImage.Dispose() + pnlpanelbuttonfileskimmericon.BackgroundImage.Dispose() + pnllauncherfileskimmericon.BackgroundImage.Dispose() + + pnltitlebartextpadicon.BackgroundImage.Dispose() + pnlpanelbuttontextpadicon.BackgroundImage.Dispose() + pnllaunchertextpadicon.BackgroundImage.Dispose() + + pnltitlebarfileopenericon.BackgroundImage.Dispose() + pnlpanelbuttonfileopenericon.BackgroundImage.Dispose() + pnllauncherfileopenericon.BackgroundImage.Dispose() + + pnltitlebarfilesavericon.BackgroundImage.Dispose() + pnlpanelbuttonfilesavericon.BackgroundImage.Dispose() + pnllauncherfilesavericon.BackgroundImage.Dispose() + + pnltitlebargraphicpickericon.BackgroundImage.Dispose() + pnlpanelbuttongraphicpickericon.BackgroundImage.Dispose() + pnllaunchergraphicpickericon.BackgroundImage.Dispose() + + pnltitlebarskinloadericon.BackgroundImage.Dispose() + pnlpanelbuttonskinloadericon.BackgroundImage.Dispose() + pnllauncherskinloadericon.BackgroundImage.Dispose() + + pnltitlebarartpadicon.BackgroundImage.Dispose() + pnlpanelbuttonartpadicon.BackgroundImage.Dispose() + pnllauncherartpadicon.BackgroundImage.Dispose() + + pnltitlebarcalculatoricon.BackgroundImage.Dispose() + pnlpanelbuttoncalculatoricon.BackgroundImage.Dispose() + pnllaunchercalculatoricon.BackgroundImage.Dispose() + + pnltitlebaraudioplayericon.BackgroundImage.Dispose() + pnlpanelbuttonaudioplayericon.BackgroundImage.Dispose() + pnllauncheraudioplayericon.BackgroundImage.Dispose() + + pnltitlebarwebbrowsericon.BackgroundImage.Dispose() + pnlpanelbuttonwebbrowsericon.BackgroundImage.Dispose() + pnllauncherwebbrowsericon.BackgroundImage.Dispose() + + pnltitlebarvideoplayericon.BackgroundImage.Dispose() + pnlpanelbuttonvideoplayericon.BackgroundImage.Dispose() + pnllaunchervideoplayericon.BackgroundImage.Dispose() + + pnltitlebarnamechangericon.BackgroundImage.Dispose() + pnlpanelbuttonnamechangericon.BackgroundImage.Dispose() + pnllaunchernamechangericon.BackgroundImage.Dispose() + + pnltitlebariconmanagericon.BackgroundImage.Dispose() + pnlpanelbuttoniconmanagericon.BackgroundImage.Dispose() + pnllaunchericonmanagericon.BackgroundImage.Dispose() + + pnltitlebarterminalicon.BackgroundImage.Dispose() + pnlpanelbuttonterminalicon.BackgroundImage.Dispose() + pnllauncherterminalicon.BackgroundImage.Dispose() + + pnllaunchershutdownicon.BackgroundImage.Dispose() + End Sub + + Public Sub checkbackgroundimagesize() + minicheckresize(pnltitlebarknowledgeinputicon) + minicheckresize(pnlpanelbuttonknowledgeinputicon) + minicheckresize(pnllauncherknowledgeinputicon) + + minicheckresize(pnltitlebarshiftoriumicon) + minicheckresize(pnlpanelbuttonshiftoriumicon) + minicheckresize(pnllaunchershiftoriumicon) + + minicheckresize(pnltitlebarclockicon) + minicheckresize(pnlpanelbuttonclockicon) + minicheckresize(pnllauncherclockicon) + + minicheckresize(pnltitlebarshiftericon) + minicheckresize(pnlpanelbuttonshiftericon) + minicheckresize(pnllaunchershiftericon) + + minicheckresize(pnltitlebarcolourpickericon) + minicheckresize(pnlpanelbuttoncolourpickericon) + minicheckresize(pnllaunchercolourpickericon) + + minicheckresize(pnltitlebarinfoboxicon) + minicheckresize(pnlpanelbuttoninfoboxicon) + minicheckresize(pnllauncherinfoboxicon) + + minicheckresize(pnltitlebarpongicon) + minicheckresize(pnlpanelbuttonpongicon) + minicheckresize(pnllauncherpongicon) + + minicheckresize(pnltitlebarfileskimmericon) + minicheckresize(pnlpanelbuttonfileskimmericon) + minicheckresize(pnllauncherfileskimmericon) + + minicheckresize(pnltitlebartextpadicon) + minicheckresize(pnlpanelbuttontextpadicon) + minicheckresize(pnllaunchertextpadicon) + + minicheckresize(pnltitlebarfileopenericon) + minicheckresize(pnlpanelbuttonfileopenericon) + minicheckresize(pnllauncherfileopenericon) + + minicheckresize(pnltitlebarfilesavericon) + minicheckresize(pnlpanelbuttonfilesavericon) + minicheckresize(pnllauncherfilesavericon) + + minicheckresize(pnltitlebargraphicpickericon) + minicheckresize(pnlpanelbuttongraphicpickericon) + minicheckresize(pnllaunchergraphicpickericon) + + minicheckresize(pnltitlebarskinloadericon) + minicheckresize(pnlpanelbuttonskinloadericon) + minicheckresize(pnllauncherskinloadericon) + + minicheckresize(pnltitlebarartpadicon) + minicheckresize(pnlpanelbuttonartpadicon) + minicheckresize(pnllauncherartpadicon) + + minicheckresize(pnltitlebarcalculatoricon) + minicheckresize(pnlpanelbuttoncalculatoricon) + minicheckresize(pnllaunchercalculatoricon) + + minicheckresize(pnltitlebaraudioplayericon) + minicheckresize(pnlpanelbuttonaudioplayericon) + minicheckresize(pnllauncheraudioplayericon) + + minicheckresize(pnltitlebarwebbrowsericon) + minicheckresize(pnlpanelbuttonwebbrowsericon) + minicheckresize(pnllauncherwebbrowsericon) + + minicheckresize(pnltitlebarvideoplayericon) + minicheckresize(pnlpanelbuttonvideoplayericon) + minicheckresize(pnllaunchervideoplayericon) + + minicheckresize(pnltitlebarnamechangericon) + minicheckresize(pnlpanelbuttonnamechangericon) + minicheckresize(pnllaunchernamechangericon) + + minicheckresize(pnltitlebariconmanagericon) + minicheckresize(pnlpanelbuttoniconmanagericon) + minicheckresize(pnllaunchericonmanagericon) + + minicheckresize(pnltitlebarterminalicon) + minicheckresize(pnlpanelbuttonterminalicon) + minicheckresize(pnllauncherterminalicon) + + minicheckresize(pnllaunchershutdownicon) + End Sub + + Public Sub minicheckresize(ByVal panel As Panel) + If panel.BackgroundImage.Width > 64 Then panel.BackgroundImageLayout = ImageLayout.Stretch Else panel.BackgroundImageLayout = ImageLayout.Center + End Sub + + Public Sub saveappliedicons() + saveprocess(pnltitlebarknowledgeinputicon) + saveprocess(pnlpanelbuttonknowledgeinputicon) + saveprocess(pnllauncherknowledgeinputicon) + + saveprocess(pnltitlebarshiftoriumicon) + saveprocess(pnlpanelbuttonshiftoriumicon) + saveprocess(pnllaunchershiftoriumicon) + + saveprocess(pnltitlebarclockicon) + saveprocess(pnlpanelbuttonclockicon) + saveprocess(pnllauncherclockicon) + + saveprocess(pnltitlebarshiftericon) + saveprocess(pnlpanelbuttonshiftericon) + saveprocess(pnllaunchershiftericon) + + saveprocess(pnltitlebarcolourpickericon) + saveprocess(pnlpanelbuttoncolourpickericon) + saveprocess(pnllaunchercolourpickericon) + + saveprocess(pnltitlebarinfoboxicon) + saveprocess(pnlpanelbuttoninfoboxicon) + saveprocess(pnllauncherinfoboxicon) + + saveprocess(pnltitlebarpongicon) + saveprocess(pnlpanelbuttonpongicon) + saveprocess(pnllauncherpongicon) + + saveprocess(pnltitlebarfileskimmericon) + saveprocess(pnlpanelbuttonfileskimmericon) + saveprocess(pnllauncherfileskimmericon) + + saveprocess(pnltitlebartextpadicon) + saveprocess(pnlpanelbuttontextpadicon) + saveprocess(pnllaunchertextpadicon) + + saveprocess(pnltitlebarfileopenericon) + saveprocess(pnlpanelbuttonfileopenericon) + saveprocess(pnllauncherfileopenericon) + + saveprocess(pnltitlebarfilesavericon) + saveprocess(pnlpanelbuttonfilesavericon) + saveprocess(pnllauncherfilesavericon) + + saveprocess(pnltitlebargraphicpickericon) + saveprocess(pnlpanelbuttongraphicpickericon) + saveprocess(pnllaunchergraphicpickericon) + + saveprocess(pnltitlebarskinloadericon) + saveprocess(pnlpanelbuttonskinloadericon) + saveprocess(pnllauncherskinloadericon) + + saveprocess(pnltitlebarartpadicon) + saveprocess(pnlpanelbuttonartpadicon) + saveprocess(pnllauncherartpadicon) + + saveprocess(pnltitlebarcalculatoricon) + saveprocess(pnlpanelbuttoncalculatoricon) + saveprocess(pnllaunchercalculatoricon) + + saveprocess(pnltitlebaraudioplayericon) + saveprocess(pnlpanelbuttonaudioplayericon) + saveprocess(pnllauncheraudioplayericon) + + saveprocess(pnltitlebarwebbrowsericon) + saveprocess(pnlpanelbuttonwebbrowsericon) + saveprocess(pnllauncherwebbrowsericon) + + saveprocess(pnltitlebarvideoplayericon) + saveprocess(pnlpanelbuttonvideoplayericon) + saveprocess(pnllaunchervideoplayericon) + + saveprocess(pnltitlebarnamechangericon) + saveprocess(pnlpanelbuttonnamechangericon) + saveprocess(pnllaunchernamechangericon) + + saveprocess(pnltitlebariconmanagericon) + saveprocess(pnlpanelbuttoniconmanagericon) + saveprocess(pnllaunchericonmanagericon) + + saveprocess(pnltitlebarterminalicon) + saveprocess(pnlpanelbuttonterminalicon) + saveprocess(pnllauncherterminalicon) + + saveprocess(pnllaunchershutdownicon) + End Sub + + Public Sub saveprocess(ByVal panel As Panel) + panel.BackgroundImage.Save("C:\ShiftOS\Shiftum42\Icons\" & panel.Name.Substring(3) & ".pic", Imaging.ImageFormat.Png) + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + If unsavedchanges = False Then + File_Saver.savingprogram = "iconmanager" + File_Saver.saveextention = ".icp" + File_Saver.Show() + Else + infobox.title = "Icon Manager - Error!" + infobox.textinfo = "You must apply the changes to your system before saving the icon pack as a file." & Environment.NewLine & Environment.NewLine & "Please click the apply button first before attempting to save again." + infobox.Show() + End If + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + File_Opener.Show() + File_Opener.openingprogram = "iconmanagerpack" + File_Opener.openextention = ".icp" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub +End Class \ No newline at end of file diff --git a/Knowledge Input.Designer.vb b/Knowledge Input.Designer.vb new file mode 100644 index 0000000..1e4abec --- /dev/null +++ b/Knowledge Input.Designer.vb @@ -0,0 +1,488 @@ + _ +Partial Class Knowledge_Input + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Knowledge_Input)) + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.pnlintro = New System.Windows.Forms.Panel() + Me.pnlcategorydisplay = New System.Windows.Forms.Panel() + Me.lblnextreward = New System.Windows.Forms.Label() + Me.guessbox = New System.Windows.Forms.TextBox() + Me.lblcurrentlevel = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.listblistedstuff = New System.Windows.Forms.ListBox() + Me.lbltillnextlevel = New System.Windows.Forms.Label() + Me.lbltotal = New System.Windows.Forms.Label() + Me.btnstart = New System.Windows.Forms.Button() + Me.lblcatedescription = New System.Windows.Forms.Label() + Me.lblcategory = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.decider = New System.Windows.Forms.Timer(Me.components) + Me.Label6 = New System.Windows.Forms.Label() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pnlintro.SuspendLayout() + Me.pnlcategorydisplay.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.SuspendLayout() + ' + 'ListBox1 + ' + Me.ListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox1.BackColor = System.Drawing.Color.White + Me.ListBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.ListBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox1.ForeColor = System.Drawing.Color.Black + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 24 + Me.ListBox1.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"}) + Me.ListBox1.Location = New System.Drawing.Point(9, 49) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(175, 216) + Me.ListBox1.TabIndex = 0 + ' + 'pnlintro + ' + Me.pnlintro.Controls.Add(Me.pnlcategorydisplay) + Me.pnlintro.Controls.Add(Me.Label4) + Me.pnlintro.Controls.Add(Me.Label3) + Me.pnlintro.Controls.Add(Me.Label2) + Me.pnlintro.Controls.Add(Me.Label1) + Me.pnlintro.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlintro.Location = New System.Drawing.Point(191, 0) + Me.pnlintro.Name = "pnlintro" + Me.pnlintro.Size = New System.Drawing.Size(478, 272) + Me.pnlintro.TabIndex = 1 + ' + 'pnlcategorydisplay + ' + Me.pnlcategorydisplay.Controls.Add(Me.lblnextreward) + Me.pnlcategorydisplay.Controls.Add(Me.guessbox) + Me.pnlcategorydisplay.Controls.Add(Me.lblcurrentlevel) + Me.pnlcategorydisplay.Controls.Add(Me.Label5) + Me.pnlcategorydisplay.Controls.Add(Me.listblistedstuff) + Me.pnlcategorydisplay.Controls.Add(Me.lbltillnextlevel) + Me.pnlcategorydisplay.Controls.Add(Me.lbltotal) + Me.pnlcategorydisplay.Controls.Add(Me.btnstart) + Me.pnlcategorydisplay.Controls.Add(Me.lblcatedescription) + Me.pnlcategorydisplay.Controls.Add(Me.lblcategory) + Me.pnlcategorydisplay.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlcategorydisplay.ForeColor = System.Drawing.Color.Black + Me.pnlcategorydisplay.Location = New System.Drawing.Point(0, 0) + Me.pnlcategorydisplay.Name = "pnlcategorydisplay" + Me.pnlcategorydisplay.Size = New System.Drawing.Size(478, 272) + Me.pnlcategorydisplay.TabIndex = 2 + ' + 'lblnextreward + ' + Me.lblnextreward.AutoSize = True + Me.lblnextreward.Font = New System.Drawing.Font("Palatino Linotype", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblnextreward.Location = New System.Drawing.Point(36, 110) + Me.lblnextreward.Name = "lblnextreward" + Me.lblnextreward.Size = New System.Drawing.Size(244, 20) + Me.lblnextreward.TabIndex = 11 + Me.lblnextreward.Text = "Reward for completing level 1: 5CP" + Me.lblnextreward.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'guessbox + ' + Me.guessbox.BackColor = System.Drawing.Color.White + Me.guessbox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.guessbox.Font = New System.Drawing.Font("Century", 24.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.guessbox.ForeColor = System.Drawing.Color.Black + Me.guessbox.Location = New System.Drawing.Point(11, 147) + Me.guessbox.Multiline = True + Me.guessbox.Name = "guessbox" + Me.guessbox.Size = New System.Drawing.Size(297, 45) + Me.guessbox.TabIndex = 9 + Me.guessbox.Text = "Enter Guess Here" + Me.guessbox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblcurrentlevel + ' + Me.lblcurrentlevel.Font = New System.Drawing.Font("Gill Sans Ultra Bold", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcurrentlevel.Location = New System.Drawing.Point(-6, 77) + Me.lblcurrentlevel.Name = "lblcurrentlevel" + Me.lblcurrentlevel.Size = New System.Drawing.Size(331, 42) + Me.lblcurrentlevel.TabIndex = 8 + Me.lblcurrentlevel.Text = "Current Level: 1" + Me.lblcurrentlevel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(340, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(123, 18) + Me.Label5.TabIndex = 7 + Me.Label5.Text = "All Ready Done" + ' + 'listblistedstuff + ' + Me.listblistedstuff.BackColor = System.Drawing.Color.Black + Me.listblistedstuff.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.listblistedstuff.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + Me.listblistedstuff.ForeColor = System.Drawing.Color.White + Me.listblistedstuff.FormattingEnabled = True + Me.listblistedstuff.Location = New System.Drawing.Point(340, 41) + Me.listblistedstuff.Name = "listblistedstuff" + Me.listblistedstuff.ScrollAlwaysVisible = True + Me.listblistedstuff.Size = New System.Drawing.Size(129, 221) + Me.listblistedstuff.TabIndex = 6 + ' + 'lbltillnextlevel + ' + Me.lbltillnextlevel.AutoSize = True + Me.lbltillnextlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltillnextlevel.Location = New System.Drawing.Point(8, 250) + Me.lbltillnextlevel.Name = "lbltillnextlevel" + Me.lbltillnextlevel.Size = New System.Drawing.Size(146, 16) + Me.lbltillnextlevel.TabIndex = 5 + Me.lbltillnextlevel.Text = "Words Until Next Level:" + ' + 'lbltotal + ' + Me.lbltotal.AutoSize = True + Me.lbltotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotal.Location = New System.Drawing.Point(191, 250) + Me.lbltotal.Name = "lbltotal" + Me.lbltotal.Size = New System.Drawing.Size(66, 16) + Me.lbltotal.TabIndex = 3 + Me.lbltotal.Text = "Guessed:" + ' + 'btnstart + ' + Me.btnstart.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstart.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnstart.Location = New System.Drawing.Point(11, 198) + Me.btnstart.Name = "btnstart" + Me.btnstart.Size = New System.Drawing.Size(297, 46) + Me.btnstart.TabIndex = 2 + Me.btnstart.Text = "Submit Word" + Me.btnstart.UseVisualStyleBackColor = True + ' + 'lblcatedescription + ' + Me.lblcatedescription.Location = New System.Drawing.Point(11, 48) + Me.lblcatedescription.Name = "lblcatedescription" + Me.lblcatedescription.Size = New System.Drawing.Size(297, 26) + Me.lblcatedescription.TabIndex = 1 + Me.lblcatedescription.Text = "There are many animals out there! Can you list them all? " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Note that this is a li" & _ + "st of common animals, not every animal!" + Me.lblcatedescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblcategory + ' + Me.lblcategory.Font = New System.Drawing.Font("Microsoft Sans Serif", 26.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcategory.Location = New System.Drawing.Point(11, 8) + Me.lblcategory.Name = "lblcategory" + Me.lblcategory.Size = New System.Drawing.Size(297, 39) + Me.lblcategory.TabIndex = 0 + Me.lblcategory.Text = "Animals" + Me.lblcategory.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(52, 235) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(382, 20) + Me.Label4.TabIndex = 3 + Me.Label4.Text = "Select A Category On the Left To Start Playing" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(187, 72) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(112, 20) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "How To Play:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(61, 97) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(354, 96) + Me.Label2.TabIndex = 1 + Me.Label2.Text = resources.GetString("Label2.Text") + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(75, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(316, 25) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Welcome to Knowledge Input" + ' + 'decider + ' + Me.decider.Interval = 500 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Cambria", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(30, 8) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(131, 29) + Me.Label6.TabIndex = 8 + Me.Label6.Text = "Categories" + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.pnlintro) + Me.pgcontents.Controls.Add(Me.Label6) + Me.pgcontents.Controls.Add(Me.ListBox1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(669, 272) + Me.pgcontents.TabIndex = 10 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(673, 30) + Me.titlebar.TabIndex = 9 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(224, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(252, 4) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(280, 4) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 19 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(170, 18) + Me.lbtitletext.TabIndex = 18 + Me.lbtitletext.Text = "Knowledge Input" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(671, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 274) + Me.pgleft.TabIndex = 11 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 272) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(671, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 274) + Me.pgright.TabIndex = 12 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 272) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 302) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(669, 2) + Me.pgbottom.TabIndex = 13 + ' + 'Knowledge_Input + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(673, 304) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.KeyPreview = True + Me.Name = "Knowledge_Input" + Me.Text = "Knowledge_Input" + Me.TopMost = True + Me.pnlintro.ResumeLayout(False) + Me.pnlintro.PerformLayout() + Me.pnlcategorydisplay.ResumeLayout(False) + Me.pnlcategorydisplay.PerformLayout() + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents pnlintro As System.Windows.Forms.Panel + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents pnlcategorydisplay As System.Windows.Forms.Panel + Friend WithEvents lblcategory As System.Windows.Forms.Label + Friend WithEvents btnstart As System.Windows.Forms.Button + Friend WithEvents lblcatedescription As System.Windows.Forms.Label + Friend WithEvents lbltillnextlevel As System.Windows.Forms.Label + Friend WithEvents lbltotal As System.Windows.Forms.Label + Friend WithEvents listblistedstuff As System.Windows.Forms.ListBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents guessbox As System.Windows.Forms.TextBox + Friend WithEvents lblcurrentlevel As System.Windows.Forms.Label + Friend WithEvents decider As System.Windows.Forms.Timer + Friend WithEvents lblnextreward As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel +End Class diff --git a/Knowledge Input.resx b/Knowledge Input.resx new file mode 100644 index 0000000..20a37bf --- /dev/null +++ b/Knowledge Input.resx @@ -0,0 +1,131 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Your goal in this game is to list as many words as possible +from a certain category of objects such as "Animals". + +You start off on level 1 and your goal is to list 10 words to +reach the next level. Upon reaching each new level you will +be rewarded with an increasing number of code points. + + + 106, 17 + + \ No newline at end of file diff --git a/Knowledge Input.vb b/Knowledge Input.vb new file mode 100644 index 0000000..7436088 --- /dev/null +++ b/Knowledge Input.vb @@ -0,0 +1,1662 @@ +Public Class Knowledge_Input + 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 + + Dim guessalreadydone As Boolean + Dim guesscorrect As Boolean + Dim levelup As Boolean + Dim rewardbase As Integer + Dim savecontent() As String + + Dim totalguessed As Integer + Dim level As Integer + Dim tillnextlevel As Integer + + Dim animalslist(226) As String + Dim fruitslist(75) As String + Dim countrieslist(232) As String + Dim carbrandslist(328) As String + Dim gameconsoleslist(124) As String + Dim elementslist(117) As String + + + Private Sub Knowledge_Input_Load(sender As Object, e As EventArgs) Handles MyBase.Load + justopened = True + setuptitlebar() + setupborders() + ShiftOSDesktop.setcolours() + pnlcategorydisplay.Hide() + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + setskin() + + ShiftOSDesktop.pnlpanelbuttonknowledgeinput.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonknowledgeinput, ShiftOSDesktop.tbknowledgeinputicon, ShiftOSDesktop.tbknowledgeinputtext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + level = 1 + tillnextlevel = 10 + makeanimallist() + makefruitlist() + makecountrieslist() + makecarbrandslist() + makegameconsoleslist() + makeelementslist() + + If ShiftOSDesktop.boughtkicarbrands = True Then + If ListBox1.Items.Contains("Car Brands") Then + Else + ListBox1.Items.Add("Car Brands") + End If + End If + + If ShiftOSDesktop.boughtkigameconsoles = True Then + If ListBox1.Items.Contains("Game Consoles") Then + Else + ListBox1.Items.Add("Game Consoles") + End If + End If + + If ShiftOSDesktop.boughtkielements = True Then + If ListBox1.Items.Contains("Elements") Then + Else + ListBox1.Items.Add("Elements") + End If + 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) + e.SuppressKeyPress = True + 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) + e.SuppressKeyPress = True + 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) + e.SuppressKeyPress = True + 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) + e.SuppressKeyPress = True + End If + + 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(673, 304) '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.knowledgeinputname + 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.knowledgeinputicontitlebar '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 ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + sf.Alignment = StringAlignment.Center + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + + Private Sub listblistedstuff_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles listblistedstuff.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(listblistedstuff.GetItemText(listblistedstuff.Items(e.Index)), e.Font, b, e.Bounds) + End Using + e.DrawFocusRectangle() + End Sub + + + Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged + + On Error Resume Next + 'Remember to create the files for each category in the hijack screen and add the category in the design view and make the countries list in this load event + Select Case ListBox1.SelectedItem.ToString + Case "Animals" + loadsavepoint("Animals", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Animals.lst", "There are many animals out there! Can you list them all?" & Environment.NewLine _ + & "Note that you get points for listing animals... not animal breeds!", animalslist) + + Case "Fruits" + loadsavepoint("Fruits", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Fruits.lst", "Do you get your daily serving of fruit each day?" & Environment.NewLine _ + & "Really...? See if you can list them then ;)", fruitslist) + + Case "Countries" + loadsavepoint("Countries", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Countries.lst", "Ever wanted to travel the entire world?" & Environment.NewLine _ + & "Well before you do see if you can list every country in the world!", countrieslist) + + Case "Car Brands" + loadsavepoint("Car Brands", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Car Brands.lst", "Can you list every single car brand?" & Environment.NewLine _ + & "Don't use words like automobiles, motors or cars!", carbrandslist) + + Case "Game Consoles" + loadsavepoint("Game Consoles", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Game Consoles.lst", "Do you call yourself a gamer?" & Environment.NewLine _ + & "Earn that title by listing non-handheld game consoles!", gameconsoleslist) + + Case "Elements" + loadsavepoint("Elements", 10, "C:\ShiftOS\SoftwareData\KnowledgeInput\Elements.lst", "Have you memorized the periodic table of elements?" & Environment.NewLine _ + & "No? Well don't even attempt trying to guess them all here!", elementslist) + End Select + + End Sub + + Private Sub handleword() + + Select Case ListBox1.SelectedItem.ToString + Case "Animals" + handlewordtype(animalslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Animals.lst") + Case "Fruits" + handlewordtype(fruitslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Fruits.lst") + Case "Countries" + handlewordtype(countrieslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Countries.lst") + Case "Car Brands" + handlewordtype(carbrandslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Car Brands.lst") + Case "Game Consoles" + handlewordtype(gameconsoleslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Game Consoles.lst") + Case "Elements" + handlewordtype(elementslist, "C:\ShiftOS\SoftwareData\KnowledgeInput\Elements.lst") + End Select + + guessbox.Text = "" + listblistedstuff.TopIndex = listblistedstuff.Items.Count - 1 + End Sub + + Private Sub btnquit_Click(sender As Object, e As EventArgs) + Me.Close() + End Sub + + Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click + handleword() + End Sub + + Private Sub guessbox_click(sender As Object, e As EventArgs) Handles guessbox.MouseClick + guessbox.Text = "" + End Sub + + Private Sub guessbox_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles guessbox.KeyDown + If e.KeyCode = Keys.Enter Then + e.SuppressKeyPress = True + handleword() + End If + End Sub + + Private Sub decider_Tick(sender As Object, e As EventArgs) Handles decider.Tick + lblcurrentlevel.Text = "Current Level: " & level + lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP" + guessalreadydone = False + guesscorrect = False + levelup = False + decider.Interval = 500 + decider.Stop() + End Sub + + Private Sub loadsavepoint(ByVal title As String, ByVal reward As Integer, ByVal loadpath As String, ByVal info As String, ByVal listtype() As String) + lblcategory.Text = title + rewardbase = reward + listblistedstuff.Items.Clear() + listblistedstuff.Items.AddRange(IO.File.ReadAllLines(loadpath)) + totalguessed = listblistedstuff.Items.Count + level = Math.Ceiling((totalguessed / 10)) + tillnextlevel = Math.Abs(totalguessed - (level * 10)) + + If tillnextlevel = 0 Then + level = level + 1 + tillnextlevel = 10 + End If + + lblcatedescription.Text = info + pnlcategorydisplay.Show() + lbltillnextlevel.Text = "Words Until Next Level: " & tillnextlevel + lblcurrentlevel.Text = "Current Level: " & level + lbltotal.Text = "Guessed: " & totalguessed & "/" & listtype.Length + lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP" + End Sub + + Private Sub handlewordtype(ByVal listtype() As String, ByVal savepath As String) + + Dim userguess As String = guessbox.Text + userguess = userguess.ToLower + For Each Str As String In listtype + If Str = userguess Then + If listblistedstuff.Items.Contains(userguess) Then + guessalreadydone = True + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Already Did " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine + Else + guesscorrect = True + listblistedstuff.Items.Add(userguess) + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Guessed " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine + tillnextlevel = tillnextlevel - 1 + totalguessed = totalguessed + 1 + IO.File.WriteAllLines(savepath, listblistedstuff.Items.Cast(Of String).ToArray) + + If tillnextlevel = 0 Then + levelup = True + tillnextlevel = 10 + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + rewardbase * level + Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/SKernal.sft", False) + objWriter.Write(ShiftOSDesktop.codepoints) + objWriter.Close() + level = level + 1 + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Reached " & ListBox1.SelectedItem.ToString & " Level: " & level & Environment.NewLine + End If + End If + End If + Next + lbltillnextlevel.Text = "Words Until Next Level: " & tillnextlevel + lblcurrentlevel.Text = "Current Level: " & level + lbltotal.Text = "Guessed: " & totalguessed & "/" & listtype.Length + lblnextreward.Text = "Reward for completing level " & level & " : " & rewardbase * level & "CP" + + If levelup = True Then + decider.Interval = 2000 + lblcurrentlevel.Text = "Level Up!" + lblnextreward.Text = "You have earned " & rewardbase * (level - 1) & " Code Points!" + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine + decider.Start() + Else + If guessalreadydone = True Then + lblcurrentlevel.Text = "Already Guessed" + decider.Start() + Else + If guesscorrect = True Then + lblcurrentlevel.Text = "Correct :)" + decider.Start() + Else + lblcurrentlevel.Text = "Wrong :(" + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Knowledge Input Wrong " & ListBox1.SelectedItem.ToString & ": " & userguess & Environment.NewLine + decider.Start() + End If + End If + End If + End Sub + + Private Sub makeanimallist() + animalslist(0) = "aardvark" + animalslist(1) = "albatross" + animalslist(2) = "alligator" + animalslist(3) = "alpaca" + animalslist(4) = "ant" + animalslist(5) = "anteater" + animalslist(6) = "antelope" + animalslist(7) = "ape" + animalslist(8) = "armadillo" + animalslist(9) = "ass" + animalslist(10) = "baboon" + animalslist(11) = "badger" + animalslist(12) = "barracuda" + animalslist(13) = "bat" + animalslist(14) = "bear" + animalslist(15) = "beaver" + animalslist(16) = "bee" + animalslist(17) = "bison" + animalslist(18) = "boar" + animalslist(19) = "buffalo" + animalslist(20) = "butterfly" + animalslist(21) = "camel" + animalslist(22) = "caribou" + animalslist(23) = "cat" + animalslist(24) = "caterpillar" + animalslist(25) = "cow" + animalslist(26) = "chamois" + animalslist(27) = "cheetah" + animalslist(28) = "chicken" + animalslist(29) = "chimpanzee" + animalslist(30) = "chinchilla" + animalslist(31) = "chough" + animalslist(32) = "clam" + animalslist(33) = "cobra" + animalslist(34) = "cockroach" + animalslist(35) = "cod" + animalslist(36) = "cormorant" + animalslist(37) = "coyote" + animalslist(38) = "crab" + animalslist(39) = "crane" + animalslist(40) = "crocodile" + animalslist(41) = "crow" + animalslist(42) = "curlew" + animalslist(43) = "deer" + animalslist(44) = "dinosaur" + animalslist(45) = "dog" + animalslist(46) = "dogfish" + animalslist(47) = "dolphin" + animalslist(48) = "donkey" + animalslist(49) = "dotterel" + animalslist(50) = "dove" + animalslist(51) = "dragonfly" + animalslist(52) = "duck" + animalslist(53) = "dugong" + animalslist(54) = "dunlin" + animalslist(55) = "eagle" + animalslist(56) = "echidna" + animalslist(57) = "eel" + animalslist(58) = "eland" + animalslist(59) = "elephant" + animalslist(60) = "elephant seal" + animalslist(61) = "elk" + animalslist(62) = "emu" + animalslist(63) = "falcon" + animalslist(64) = "ferret" + animalslist(65) = "finch" + animalslist(66) = "fish" + animalslist(67) = "flamingo" + animalslist(68) = "fly" + animalslist(69) = "fox" + animalslist(70) = "frog" + animalslist(71) = "galago" + animalslist(72) = "gaur" + animalslist(73) = "gazelle" + animalslist(74) = "gerbil" + animalslist(75) = "giant panda" + animalslist(76) = "giraffe" + animalslist(77) = "gnat" + animalslist(78) = "gnu" + animalslist(79) = "goat" + animalslist(80) = "goldfinch" + animalslist(81) = "goldfish" + animalslist(82) = "goose" + animalslist(83) = "gorilla" + animalslist(84) = "goshawk" + animalslist(85) = "grasshopper" + animalslist(86) = "grouse" + animalslist(87) = "guanaco" + animalslist(88) = "guineafowl" + animalslist(89) = "guinea pig" + animalslist(90) = "gull" + animalslist(91) = "hamster" + animalslist(92) = "hare" + animalslist(93) = "hawk" + animalslist(94) = "hedgehog" + animalslist(95) = "heron" + animalslist(96) = "herring" + animalslist(97) = "hippopotamus" + animalslist(98) = "hornet" + animalslist(99) = "horse" + animalslist(100) = "human" + animalslist(101) = "humming bird" + animalslist(102) = "hyena" + animalslist(103) = "jackal" + animalslist(104) = "jaguar" + animalslist(105) = "jay" + animalslist(106) = "jellyfish" + animalslist(107) = "kangaroo" + animalslist(108) = "koala" + animalslist(109) = "komodo dragon" + animalslist(110) = "kouprey" + animalslist(111) = "kudu" + animalslist(112) = "lizard" + animalslist(113) = "lark" + animalslist(114) = "lemur" + animalslist(115) = "leopard" + animalslist(116) = "lion" + animalslist(117) = "llama" + animalslist(118) = "lobster" + animalslist(119) = "locust" + animalslist(120) = "loris" + animalslist(121) = "louse" + animalslist(122) = "lyrebird" + animalslist(123) = "magpie" + animalslist(124) = "mallard" + animalslist(125) = "manatee" + animalslist(126) = "marten" + animalslist(127) = "meerkat" + animalslist(128) = "mink" + animalslist(129) = "mole" + animalslist(130) = "monkey" + animalslist(131) = "moose" + animalslist(132) = "mosquito" + animalslist(133) = "mouse" + animalslist(134) = "mule" + animalslist(135) = "narwhal" + animalslist(136) = "newt" + animalslist(137) = "nightingale" + animalslist(138) = "octopus" + animalslist(139) = "okapi" + animalslist(140) = "opossum" + animalslist(141) = "oryx" + animalslist(142) = "ostrich" + animalslist(143) = "otter" + animalslist(144) = "owl" + animalslist(145) = "ox" + animalslist(146) = "oyster" + animalslist(147) = "panther" + animalslist(148) = "parrot" + animalslist(149) = "partridge" + animalslist(150) = "peafowl" + animalslist(151) = "pelican" + animalslist(152) = "penguin" + animalslist(153) = "pheasant" + animalslist(154) = "pig" + animalslist(155) = "pigeon" + animalslist(156) = "pony" + animalslist(157) = "porcupine" + animalslist(158) = "porpoise" + animalslist(159) = "prairie dog" + animalslist(160) = "quail" + animalslist(161) = "quelea" + animalslist(162) = "rabbit" + animalslist(163) = "raccoon" + animalslist(164) = "rail" + animalslist(165) = "ram" + animalslist(166) = "rat" + animalslist(167) = "raven" + animalslist(168) = "red deer" + animalslist(169) = "red panda" + animalslist(170) = "reindeer" + animalslist(171) = "rhinoceros" + animalslist(172) = "rook" + animalslist(173) = "ruff" + animalslist(174) = "salamander" + animalslist(175) = "salmon" + animalslist(176) = "sand dollar" + animalslist(177) = "sandpiper" + animalslist(178) = "sardine" + animalslist(179) = "scorpion" + animalslist(180) = "sea lion" + animalslist(181) = "sea urchin" + animalslist(182) = "seahorse" + animalslist(183) = "seal" + animalslist(184) = "shark" + animalslist(185) = "sheep" + animalslist(186) = "shrew" + animalslist(187) = "shrimp" + animalslist(188) = "skunk" + animalslist(189) = "snail" + animalslist(190) = "snake" + animalslist(191) = "spider" + animalslist(192) = "squid" + animalslist(193) = "squirrel" + animalslist(194) = "starling" + animalslist(195) = "stingray" + animalslist(196) = "stink bug" + animalslist(197) = "stork" + animalslist(198) = "swallow" + animalslist(199) = "swan" + animalslist(200) = "tapir" + animalslist(201) = "tarsier" + animalslist(202) = "termite" + animalslist(203) = "tiger" + animalslist(204) = "toad" + animalslist(205) = "trout" + animalslist(206) = "turkey" + animalslist(207) = "turtle" + animalslist(208) = "vicuña" + animalslist(209) = "viper" + animalslist(210) = "vulture" + animalslist(211) = "wallaby" + animalslist(212) = "walrus" + animalslist(213) = "wasp" + animalslist(214) = "water buffalo" + animalslist(215) = "weasel" + animalslist(216) = "whale" + animalslist(217) = "wolf" + animalslist(218) = "wolverine" + animalslist(219) = "wombat" + animalslist(220) = "woodcock" + animalslist(221) = "woodpecker" + animalslist(222) = "worm" + animalslist(223) = "wren" + animalslist(224) = "yak" + animalslist(225) = "zebra" + animalslist(226) = "bird" + End Sub + + Private Sub makefruitlist() + fruitslist(0) = "apple" + fruitslist(1) = "apricot" + fruitslist(2) = "avocado" + fruitslist(3) = "banana" + fruitslist(4) = "breadfruit" + fruitslist(5) = "bilberry" + fruitslist(6) = "blackberry" + fruitslist(7) = "blackcurrant" + fruitslist(8) = "blueberry" + fruitslist(9) = "boysenberry" + fruitslist(10) = "cantaloupe" + fruitslist(11) = "currant" + fruitslist(12) = "cherry" + fruitslist(13) = "cherimoya" + fruitslist(14) = "chili" + fruitslist(15) = "cloudberry" + fruitslist(16) = "coconut" + fruitslist(17) = "damson" + fruitslist(18) = "date" + fruitslist(19) = "dragonfruit" + fruitslist(20) = "durian" + fruitslist(21) = "elderberry" + fruitslist(22) = "feijoa" + fruitslist(23) = "fig" + fruitslist(24) = "gooseberry" + fruitslist(25) = "grape" + fruitslist(26) = "grapefruit" + fruitslist(27) = "guava" + fruitslist(28) = "huckleberry" + fruitslist(29) = "honeydew" + fruitslist(30) = "jackfruit" + fruitslist(31) = "jambul" + fruitslist(32) = "jujube" + fruitslist(33) = "kiwi fruit" + fruitslist(34) = "kumquat" + fruitslist(35) = "legume" + fruitslist(36) = "lemon" + fruitslist(37) = "lime" + fruitslist(38) = "loquat" + fruitslist(39) = "lychee" + fruitslist(40) = "mango" + fruitslist(41) = "melon" + fruitslist(42) = "canary melon" + fruitslist(43) = "cantaloupe" + fruitslist(44) = "honeydew" + fruitslist(45) = "watermelon" + fruitslist(46) = "rock melon" + fruitslist(47) = "nectarine" + fruitslist(48) = "nut" + fruitslist(49) = "orange" + fruitslist(50) = "clementine" + fruitslist(51) = "mandarine" + fruitslist(52) = "tangerine" + fruitslist(53) = "papaya" + fruitslist(54) = "passionfruit" + fruitslist(55) = "peach" + fruitslist(56) = "bell pepper" + fruitslist(57) = "pear" + fruitslist(58) = "persimmon" + fruitslist(59) = "physalis" + fruitslist(60) = "plum" + fruitslist(61) = "pineapple" + fruitslist(62) = "pomegranate" + fruitslist(63) = "pomelo" + fruitslist(64) = "purple mangosteen" + fruitslist(65) = "quince" + fruitslist(66) = "raspberry" + fruitslist(67) = "rambutan" + fruitslist(68) = "redcurrant" + fruitslist(69) = "salal berry" + fruitslist(70) = "satsuma" + fruitslist(71) = "star fruit" + fruitslist(72) = "strawberry" + fruitslist(73) = "tamarillo" + fruitslist(74) = "tomato" + fruitslist(75) = "ugli fruit" + End Sub + + Private Sub makecountrieslist() + countrieslist(0) = "afghanistan" + countrieslist(1) = "albania" + countrieslist(2) = "algeria" + countrieslist(3) = "american samoa" + countrieslist(4) = "andorra" + countrieslist(5) = "angola" + countrieslist(6) = "anguilla" + countrieslist(7) = "antigua" + countrieslist(8) = "argentina" + countrieslist(9) = "armenia" + countrieslist(10) = "aruba" + countrieslist(11) = "australia" + countrieslist(12) = "austria" + countrieslist(13) = "azerbaijan" + countrieslist(14) = "bahamas" + countrieslist(15) = "bahrain" + countrieslist(16) = "bangladesh" + countrieslist(17) = "barbados" + countrieslist(18) = "barbuda" + countrieslist(19) = "belarus" + countrieslist(20) = "belgium" + countrieslist(21) = "belize" + countrieslist(22) = "benin" + countrieslist(23) = "bermuda" + countrieslist(24) = "bhutan" + countrieslist(25) = "bolivia" + countrieslist(26) = "bosnia" + countrieslist(27) = "botswana" + countrieslist(28) = "bouvet island" + countrieslist(29) = "brazil" + countrieslist(30) = "brunei" + countrieslist(31) = "bulgaria" + countrieslist(32) = "burkina faso" + countrieslist(33) = "burundi" + countrieslist(34) = "cambodia" + countrieslist(35) = "cameroon" + countrieslist(36) = "canada" + countrieslist(37) = "cape verde" + countrieslist(38) = "cayman islands" + countrieslist(39) = "central african republic" + countrieslist(40) = "chad" + countrieslist(41) = "chile" + countrieslist(42) = "china" + countrieslist(43) = "christmas island" + countrieslist(44) = "cocos islands" + countrieslist(45) = "colombia" + countrieslist(46) = "comoros" + countrieslist(47) = "democratic republic of the congo" + countrieslist(48) = "republic of congo" + countrieslist(49) = "cook islands" + countrieslist(50) = "costa rica" + countrieslist(51) = "croatia" + countrieslist(52) = "cuba" + countrieslist(53) = "cyprus" + countrieslist(54) = "czech republic" + countrieslist(55) = "denmark" + countrieslist(56) = "djibouti" + countrieslist(57) = "dominica" + countrieslist(58) = "dominican republic" + countrieslist(59) = "ecuador" + countrieslist(60) = "egypt" + countrieslist(61) = "el salvador" + countrieslist(62) = "equatorial guinea" + countrieslist(63) = "eritrea" + countrieslist(64) = "estonia" + countrieslist(65) = "ethiopia" + countrieslist(66) = "falkland islands" + countrieslist(67) = "faroe islands" + countrieslist(68) = "fiji" + countrieslist(69) = "finland" + countrieslist(70) = "france" + countrieslist(71) = "french guiana" + countrieslist(72) = "gabon" + countrieslist(73) = "gambia" + countrieslist(74) = "georgia" + countrieslist(75) = "germany" + countrieslist(76) = "ghana" + countrieslist(77) = "gibraltar" + countrieslist(78) = "greece" + countrieslist(79) = "greenland" + countrieslist(80) = "grenada" + countrieslist(81) = "guadeloupe" + countrieslist(82) = "guam" + countrieslist(83) = "guatemala" + countrieslist(84) = "guinea" + countrieslist(85) = "guinea bissau" + countrieslist(86) = "guyana" + countrieslist(87) = "haiti" + countrieslist(88) = "holy see" + countrieslist(89) = "honduras" + countrieslist(90) = "hong kong" + countrieslist(91) = "hungary" + countrieslist(92) = "iceland" + countrieslist(93) = "india" + countrieslist(94) = "indonesia" + countrieslist(95) = "iran" + countrieslist(96) = "iraq" + countrieslist(97) = "ireland" + countrieslist(98) = "israel" + countrieslist(99) = "italy" + countrieslist(100) = "ivory coas" + countrieslist(101) = "jamaica" + countrieslist(102) = "japan" + countrieslist(103) = "jordan" + countrieslist(104) = "kazakhstan" + countrieslist(105) = "kenya" + countrieslist(106) = "kiribati" + countrieslist(107) = "kuwait" + countrieslist(108) = "kyrgyzstan" + countrieslist(109) = "laos" + countrieslist(110) = "latvia" + countrieslist(111) = "lebanon" + countrieslist(112) = "lesotho" + countrieslist(113) = "liberia" + countrieslist(114) = "libya" + countrieslist(115) = "liechtenstein" + countrieslist(116) = "lithuania" + countrieslist(117) = "luxembourg" + countrieslist(118) = "macau" + countrieslist(119) = "macedonia" + countrieslist(120) = "madagascar" + countrieslist(121) = "malawi" + countrieslist(122) = "malaysia" + countrieslist(123) = "maldives" + countrieslist(124) = "mali" + countrieslist(125) = "malta" + countrieslist(126) = "marshall islands" + countrieslist(127) = "martinique" + countrieslist(128) = "mauritania" + countrieslist(129) = "mauritius" + countrieslist(130) = "mayotte" + countrieslist(131) = "mexico" + countrieslist(132) = "micronesia" + countrieslist(133) = "moldova" + countrieslist(134) = "monaco" + countrieslist(135) = "mongolia" + countrieslist(136) = "montenegro" + countrieslist(137) = "montserrat" + countrieslist(138) = "morocco" + countrieslist(139) = "mozambique" + countrieslist(140) = "myanmar" + countrieslist(141) = "namibia" + countrieslist(142) = "nauru" + countrieslist(143) = "nepal" + countrieslist(144) = "netherlands" + countrieslist(145) = "new caledonia" + countrieslist(146) = "new zealand" + countrieslist(147) = "nicaragua" + countrieslist(148) = "niger" + countrieslist(149) = "nigeria" + countrieslist(150) = "niue" + countrieslist(151) = "norfolk island" + countrieslist(152) = "north korea" + countrieslist(153) = "northern mariana islands" + countrieslist(154) = "norway" + countrieslist(155) = "oman" + countrieslist(156) = "pakistan" + countrieslist(157) = "palau" + countrieslist(158) = "panama" + countrieslist(159) = "papua new guinea" + countrieslist(160) = "paraguay" + countrieslist(161) = "peru" + countrieslist(162) = "philippines" + countrieslist(163) = "pitcairn island" + countrieslist(164) = "poland" + countrieslist(165) = "polynesia" + countrieslist(166) = "portugal" + countrieslist(167) = "puerto rico" + countrieslist(168) = "qatar" + countrieslist(169) = "reunion" + countrieslist(170) = "romania" + countrieslist(171) = "russia" + countrieslist(172) = "rwanda" + countrieslist(173) = "saint helena" + countrieslist(174) = "saint kitts and nevis" + countrieslist(175) = "saint lucia" + countrieslist(176) = "saint pierre and miquelon" + countrieslist(177) = "saint vincent and grenadines" + countrieslist(178) = "samoa" + countrieslist(179) = "san marino" + countrieslist(180) = "sao tome and principe" + countrieslist(181) = "saudi arabia" + countrieslist(182) = "senegal" + countrieslist(183) = "serbia" + countrieslist(184) = "seychelles" + countrieslist(185) = "sierra leone" + countrieslist(186) = "singapore" + countrieslist(187) = "slovakia" + countrieslist(188) = "slovenia" + countrieslist(189) = "solomon islands" + countrieslist(190) = "somalia" + countrieslist(191) = "south africa" + countrieslist(192) = "south georgia and south sandwich islands" + countrieslist(193) = "south korea" + countrieslist(194) = "south sudan" + countrieslist(195) = "spain" + countrieslist(196) = "sri lanka" + countrieslist(197) = "sudan" + countrieslist(198) = "suriname" + countrieslist(199) = "svalbard and jan mayen islands" + countrieslist(200) = "swaziland" + countrieslist(201) = "sweden" + countrieslist(202) = "switzerland" + countrieslist(203) = "syria" + countrieslist(204) = "taiwan" + countrieslist(205) = "tajikistan" + countrieslist(206) = "tanzania" + countrieslist(207) = "thailand" + countrieslist(208) = "east timor" + countrieslist(209) = "togo" + countrieslist(210) = "tokelau" + countrieslist(211) = "tonga" + countrieslist(212) = "trinidad and tobago" + countrieslist(213) = "tunisia" + countrieslist(214) = "turkey" + countrieslist(215) = "turkmenistan" + countrieslist(216) = "turks and caicos islands" + countrieslist(217) = "tuvalu" + countrieslist(218) = "uganda" + countrieslist(219) = "ukraine" + countrieslist(220) = "united arab emirates" + countrieslist(221) = "united kingdom" + countrieslist(222) = "united states" + countrieslist(223) = "uruguay" + countrieslist(224) = "uzbekistan" + countrieslist(225) = "vanuatu" + countrieslist(226) = "venezuela" + countrieslist(227) = "vietnam" + countrieslist(228) = "virgin islands" + countrieslist(229) = "wallis and futuna islands" + countrieslist(230) = "yemen" + countrieslist(231) = "zambia" + countrieslist(232) = "zimbabwe" + End Sub + + Public Sub makecarbrandslist() + carbrandslist(0) = "8 chinkara" + carbrandslist(1) = "aba" + carbrandslist(2) = "abarth" + carbrandslist(3) = "ac" + carbrandslist(4) = "ac schnitzer" + carbrandslist(5) = "acura" + carbrandslist(6) = "adam" + carbrandslist(7) = "adams-farwell" + carbrandslist(8) = "adler" + carbrandslist(9) = "aero" + carbrandslist(10) = "aga" + carbrandslist(11) = "agrale" + carbrandslist(12) = "aixam" + carbrandslist(13) = "alfa romeo" + carbrandslist(14) = "allard" + carbrandslist(15) = "alpine" + carbrandslist(16) = "alvis" + carbrandslist(17) = "anadol" + carbrandslist(18) = "anasagasti" + carbrandslist(19) = "angkor" + carbrandslist(20) = "apollo" + carbrandslist(21) = "armstrong siddeley" + carbrandslist(22) = "aro" + carbrandslist(23) = "ascari" + carbrandslist(24) = "ashok leyland" + carbrandslist(25) = "aston martin" + carbrandslist(26) = "auburn" + carbrandslist(27) = "audi" + carbrandslist(28) = "austin" + carbrandslist(29) = "austin-healey" + carbrandslist(30) = "auto-mixte" + carbrandslist(31) = "autobianchi" + carbrandslist(32) = "automobile dacia" + carbrandslist(33) = "avia" + carbrandslist(34) = "avtoframos" + carbrandslist(35) = "awz" + carbrandslist(36) = "bahman" + carbrandslist(37) = "bajaj" + carbrandslist(38) = "barkas" + carbrandslist(39) = "bate" + carbrandslist(40) = "bentley" + carbrandslist(41) = "bharath benz" + carbrandslist(42) = "bitter" + carbrandslist(43) = "bmc" + carbrandslist(44) = "bmw" + carbrandslist(45) = "bollore" + carbrandslist(46) = "borgward" + carbrandslist(47) = "bricklin" + carbrandslist(48) = "bristol" + carbrandslist(49) = "british leyland" + carbrandslist(50) = "bufori" + carbrandslist(51) = "bugatti" + carbrandslist(52) = "buick" + carbrandslist(53) = "bussing" + carbrandslist(54) = "c-fee" + carbrandslist(55) = "cadillac" + carbrandslist(56) = "callaway" + carbrandslist(57) = "caterham" + carbrandslist(58) = "cherdchai" + carbrandslist(59) = "chevrolet" + carbrandslist(60) = "chrysler" + carbrandslist(61) = "citroen" + carbrandslist(62) = "cizeta" + carbrandslist(63) = "coda" + carbrandslist(64) = "cord" + carbrandslist(65) = "crespi" + carbrandslist(66) = "crobus" + carbrandslist(67) = "daf" + carbrandslist(68) = "daihatsu" + carbrandslist(69) = "daimler" + carbrandslist(70) = "datsun" + carbrandslist(71) = "davis" + carbrandslist(72) = "dc design" + carbrandslist(73) = "de tomaso" + carbrandslist(74) = "delorean" + carbrandslist(75) = "derby" + carbrandslist(76) = "dina" + carbrandslist(77) = "dkw" + carbrandslist(78) = "dodge" + carbrandslist(79) = "dok-ing" + carbrandslist(80) = "dok-ing xd" + carbrandslist(81) = "dome" + carbrandslist(82) = "donkervoort" + carbrandslist(83) = "dr" + carbrandslist(84) = "duesenberg" + carbrandslist(85) = "e-z-go" + carbrandslist(86) = "eagle" + carbrandslist(87) = "edsel" + carbrandslist(88) = "eicher" + carbrandslist(89) = "elfin" + carbrandslist(90) = "elva" + carbrandslist(91) = "enzmann" + carbrandslist(92) = "essex" + carbrandslist(93) = "esther" + carbrandslist(94) = "exagon" + carbrandslist(95) = "falcon" + carbrandslist(96) = "fap" + carbrandslist(97) = "ferrari" + carbrandslist(98) = "fiat" + carbrandslist(99) = "fisker" + carbrandslist(100) = "force" + carbrandslist(101) = "ford" + carbrandslist(102) = "fpv" + carbrandslist(103) = "gaz" + carbrandslist(104) = "gengatharan" + carbrandslist(105) = "geo" + carbrandslist(106) = "ghandhara" + carbrandslist(107) = "ghandhara nissan" + carbrandslist(108) = "gillet" + carbrandslist(109) = "ginetta" + carbrandslist(110) = "gkd" + carbrandslist(111) = "glas" + carbrandslist(112) = "global electric" + carbrandslist(113) = "gm daewoo" + carbrandslist(114) = "gm uzbekistan" + carbrandslist(115) = "gmc" + carbrandslist(116) = "goliath" + carbrandslist(117) = "gordon keeble" + carbrandslist(118) = "graham-paige" + carbrandslist(119) = "guleryuz karoseri" + carbrandslist(120) = "gumpert" + carbrandslist(121) = "gurgel" + carbrandslist(122) = "hansa" + carbrandslist(123) = "hattat" + carbrandslist(124) = "heinkel" + carbrandslist(125) = "hennessey" + carbrandslist(126) = "hero" + carbrandslist(127) = "hillman" + carbrandslist(128) = "hindustan" + carbrandslist(129) = "hino" + carbrandslist(130) = "hinopak" + carbrandslist(131) = "hispano-argentina" + carbrandslist(132) = "holden" + carbrandslist(133) = "hommell" + carbrandslist(134) = "honda" + carbrandslist(135) = "honda atlas" + carbrandslist(136) = "horch" + carbrandslist(137) = "hsv" + carbrandslist(138) = "huet brothers" + carbrandslist(139) = "humber" + carbrandslist(140) = "hummer" + carbrandslist(141) = "hupmobile" + carbrandslist(142) = "hyundai" + carbrandslist(143) = "iame" + carbrandslist(144) = "icml" + carbrandslist(145) = "ida-opel" + carbrandslist(146) = "ika" + carbrandslist(147) = "ikarbus" + carbrandslist(148) = "ikco" + carbrandslist(149) = "indus" + carbrandslist(150) = "infiniti" + carbrandslist(151) = "inokom" + carbrandslist(152) = "intermeccanica" + carbrandslist(153) = "international harvester" + carbrandslist(154) = "isuzu" + carbrandslist(155) = "isuzu anadolu" + carbrandslist(156) = "italika" + carbrandslist(157) = "izh" + carbrandslist(158) = "jaguar cars" + carbrandslist(159) = "jeep" + carbrandslist(160) = "jensen" + carbrandslist(161) = "josse" + carbrandslist(162) = "jowett" + carbrandslist(163) = "jv man" + carbrandslist(164) = "kaipan" + carbrandslist(165) = "kaiser" + carbrandslist(166) = "karsan" + carbrandslist(167) = "kerman" + carbrandslist(168) = "kia" + carbrandslist(169) = "kia" + carbrandslist(170) = "kish khodro" + carbrandslist(171) = "kissel" + carbrandslist(172) = "koenigsegg" + carbrandslist(173) = "lada" + carbrandslist(174) = "laforza" + carbrandslist(175) = "lamborghini" + carbrandslist(176) = "lanchester" + carbrandslist(177) = "lancia" + carbrandslist(178) = "land rover" + carbrandslist(179) = "lasalle" + carbrandslist(180) = "lexus" + carbrandslist(181) = "ligier" + carbrandslist(182) = "lincoln" + carbrandslist(183) = "lister" + carbrandslist(184) = "lloyd" + carbrandslist(185) = "lobini" + carbrandslist(186) = "locomobile" + carbrandslist(187) = "lotus" + carbrandslist(188) = "mahindra" + carbrandslist(189) = "man" + carbrandslist(190) = "mansory" + carbrandslist(191) = "marcos" + carbrandslist(192) = "marmon" + carbrandslist(193) = "marussia" + carbrandslist(194) = "maruti suzuki" + carbrandslist(195) = "maserati" + carbrandslist(196) = "master" + carbrandslist(197) = "mastretta" + carbrandslist(198) = "matra" + carbrandslist(199) = "maybach" + carbrandslist(200) = "mazda" + carbrandslist(201) = "mclaren" + carbrandslist(202) = "mdi" + carbrandslist(203) = "mercedes" + carbrandslist(204) = "mercury" + carbrandslist(205) = "micro" + carbrandslist(206) = "microcar" + carbrandslist(207) = "mini" + carbrandslist(208) = "mini cooper" + carbrandslist(209) = "mitsubishi" + carbrandslist(210) = "mitsuoka" + carbrandslist(211) = "morgan" + carbrandslist(212) = "morris" + carbrandslist(213) = "moskvitch" + carbrandslist(214) = "mosler" + carbrandslist(215) = "multicar" + carbrandslist(216) = "mvm" + carbrandslist(217) = "nag" + carbrandslist(218) = "nagant" + carbrandslist(219) = "nash" + carbrandslist(220) = "navistar" + carbrandslist(221) = "naza" + carbrandslist(222) = "neobus" + carbrandslist(223) = "neoplan" + carbrandslist(224) = "nissan" + carbrandslist(225) = "noble" + carbrandslist(226) = "nsu" + carbrandslist(227) = "oldsmobile" + carbrandslist(228) = "oltcit" + carbrandslist(229) = "opel" + carbrandslist(230) = "orient" + carbrandslist(231) = "otokar" + carbrandslist(232) = "otosan" + carbrandslist(233) = "oyak" + carbrandslist(234) = "p.a.r.s moto" + carbrandslist(235) = "packard" + carbrandslist(236) = "pagani" + carbrandslist(237) = "pak suzuki" + carbrandslist(238) = "panoz" + carbrandslist(239) = "pars khodro" + carbrandslist(240) = "perodua" + carbrandslist(241) = "peugeot" + carbrandslist(242) = "pgo" + carbrandslist(243) = "pieper" + carbrandslist(244) = "pierce-arrow" + carbrandslist(245) = "plymouth" + carbrandslist(246) = "pontiac" + carbrandslist(247) = "porsche" + carbrandslist(248) = "praga" + carbrandslist(249) = "premier" + carbrandslist(250) = "proto" + carbrandslist(251) = "proton" + carbrandslist(252) = "puma" + carbrandslist(253) = "ram" + carbrandslist(254) = "ramirez" + carbrandslist(255) = "regal" + carbrandslist(256) = "renault" + carbrandslist(257) = "renault samsung" + carbrandslist(258) = "reo" + carbrandslist(259) = "riley" + carbrandslist(260) = "rimac" + carbrandslist(261) = "robur" + carbrandslist(262) = "rolls royce" + carbrandslist(263) = "rover" + carbrandslist(264) = "ruf" + carbrandslist(265) = "russo-balt" + carbrandslist(266) = "saab" + carbrandslist(267) = "saipa" + carbrandslist(268) = "saleen" + carbrandslist(269) = "samavto" + carbrandslist(270) = "saturn" + carbrandslist(271) = "sbarro" + carbrandslist(272) = "scania" + carbrandslist(273) = "scion" + carbrandslist(274) = "shane moto" + carbrandslist(275) = "siam v.m.c." + carbrandslist(276) = "siata" + carbrandslist(277) = "simson" + carbrandslist(278) = "singer" + carbrandslist(279) = "skoda" + carbrandslist(280) = "sound" + carbrandslist(281) = "spyker" + carbrandslist(282) = "ssangyong" + carbrandslist(283) = "standard" + carbrandslist(284) = "stealth" + carbrandslist(285) = "sterling" + carbrandslist(286) = "studebaker" + carbrandslist(287) = "subaru" + carbrandslist(288) = "sunbeam" + carbrandslist(289) = "suzuki" + carbrandslist(290) = "tac" + carbrandslist(291) = "tafe" + carbrandslist(292) = "tata" + carbrandslist(293) = "tatra" + carbrandslist(294) = "td2000" + carbrandslist(295) = "temsa" + carbrandslist(296) = "tesla" + carbrandslist(297) = "th!nk" + carbrandslist(298) = "thai rung" + carbrandslist(299) = "the jamie stahley car" + carbrandslist(300) = "tickford" + carbrandslist(301) = "toyota" + carbrandslist(302) = "trabant" + carbrandslist(303) = "tranvias-cimex" + carbrandslist(304) = "triumph" + carbrandslist(305) = "trojan" + carbrandslist(306) = "troller" + carbrandslist(307) = "tucker" + carbrandslist(308) = "turk traktor" + carbrandslist(309) = "tvr" + carbrandslist(310) = "tvs" + carbrandslist(311) = "uaz" + carbrandslist(312) = "vam sa" + carbrandslist(313) = "vauxhall" + carbrandslist(314) = "venturi" + carbrandslist(315) = "vignale" + carbrandslist(316) = "volkswagen" + carbrandslist(317) = "volvo" + carbrandslist(318) = "wanderer" + carbrandslist(319) = "wartburg" + carbrandslist(320) = "wiesmann" + carbrandslist(321) = "willys" + carbrandslist(322) = "wolseley" + carbrandslist(323) = "yamaha" + carbrandslist(324) = "yo-mobile" + carbrandslist(325) = "zastava" + carbrandslist(326) = "zenvo" + carbrandslist(327) = "zil" + carbrandslist(328) = "zoragy" + End Sub + + Public Sub makegameconsoleslist() + gameconsoleslist(0) = "magnavox odyssey" + gameconsoleslist(1) = "ping-o-tronic" + gameconsoleslist(2) = "telstar" + gameconsoleslist(3) = "apf tv fun" + gameconsoleslist(4) = "philips odyssey" + gameconsoleslist(5) = "radio shack tv scoreboard" + gameconsoleslist(6) = "binatone tv master mk iv" + gameconsoleslist(7) = "color tv game 6" + gameconsoleslist(8) = "color tv game 15" + gameconsoleslist(9) = "color tv racing 112" + gameconsoleslist(10) = "color tv game block breaker" + gameconsoleslist(11) = "computer tv game" + gameconsoleslist(12) = "bss 01" + gameconsoleslist(13) = "fairchild channel f" + gameconsoleslist(14) = "fairchild channel f system ii" + gameconsoleslist(15) = "rca studio ii" + gameconsoleslist(16) = "atari 2600" + gameconsoleslist(17) = "atari 2600 jr" + gameconsoleslist(18) = "atari 2800" + gameconsoleslist(19) = "coleco gemini" + gameconsoleslist(20) = "bally astrocade" + gameconsoleslist(21) = "vc 4000" + gameconsoleslist(22) = "magnavox odyssey 2" + gameconsoleslist(23) = "apf imagination machine" + gameconsoleslist(24) = "intellivision" + gameconsoleslist(25) = "playcable" + gameconsoleslist(26) = "bandai super vision 8000" + gameconsoleslist(27) = "intellivision ii" + gameconsoleslist(28) = "vtech creativision" + gameconsoleslist(29) = "epoch cassette vision" + gameconsoleslist(30) = "super cassette vision" + gameconsoleslist(31) = "arcadia 2001" + gameconsoleslist(32) = "atari 5200" + gameconsoleslist(33) = "atari 5100" + gameconsoleslist(34) = "colecovision" + gameconsoleslist(35) = "entex adventure vision" + gameconsoleslist(36) = "vectrex" + gameconsoleslist(37) = "rdi halcyon" + gameconsoleslist(38) = "pv-1000" + gameconsoleslist(39) = "commodore 64 games system" + gameconsoleslist(40) = "amstrad gx4000" + gameconsoleslist(41) = "atari 7800" + gameconsoleslist(42) = "atari xegs" + gameconsoleslist(43) = "sega sg-1000" + gameconsoleslist(44) = "sega master system" + gameconsoleslist(45) = "nintendo entertainment system" + gameconsoleslist(46) = "sharp nintendo television" + gameconsoleslist(47) = "nes-101" + gameconsoleslist(48) = "family computer disk system" + gameconsoleslist(49) = "zemmix" + gameconsoleslist(50) = "action max" + gameconsoleslist(51) = "sega genesis" + gameconsoleslist(52) = "sega pico" + gameconsoleslist(53) = "pc engine" + gameconsoleslist(54) = "konix multisystem" + gameconsoleslist(55) = "neo-geo" + gameconsoleslist(56) = "neo-geo cd" + gameconsoleslist(57) = "neo-geo cdz" + gameconsoleslist(58) = "commodore cdtv" + gameconsoleslist(59) = "memorex vis" + gameconsoleslist(60) = "super nintendo entertainment system" + gameconsoleslist(61) = "sf-1 snes tv" + gameconsoleslist(62) = "snes 2" + gameconsoleslist(63) = "snes-cd" + gameconsoleslist(64) = "satellaview" + gameconsoleslist(65) = "cd-i" + gameconsoleslist(66) = "turboduo" + gameconsoleslist(67) = "super a'can" + gameconsoleslist(68) = "pioneer laseractive" + gameconsoleslist(69) = "fm towns marty" + gameconsoleslist(70) = "apple bandai pippin" + gameconsoleslist(71) = "pc-fx" + gameconsoleslist(72) = "atari panther" + gameconsoleslist(73) = "atari jaguar" + gameconsoleslist(74) = "atari jaguar cd" + gameconsoleslist(75) = "playstation" + gameconsoleslist(76) = "net yaroze" + gameconsoleslist(77) = "sega saturn" + gameconsoleslist(78) = "3do interactive multiplayer" + gameconsoleslist(79) = "amiga cd32" + gameconsoleslist(80) = "casio loopy" + gameconsoleslist(81) = "playdia" + gameconsoleslist(82) = "nintendo 64" + gameconsoleslist(83) = "nintendo 64dd" + gameconsoleslist(84) = "sega neptune" + gameconsoleslist(85) = "apextreme" + gameconsoleslist(86) = "atari flashback" + gameconsoleslist(87) = "atari jaguar ii" + gameconsoleslist(88) = "dreamcast" + gameconsoleslist(89) = "l600" + gameconsoleslist(90) = "gamecube" + gameconsoleslist(91) = "nuon" + gameconsoleslist(92) = "ique player" + gameconsoleslist(93) = "panasonic m2" + gameconsoleslist(94) = "panasonic q" + gameconsoleslist(95) = "playstation 2" + gameconsoleslist(96) = "psx" + gameconsoleslist(97) = "v.smile" + gameconsoleslist(98) = "xavixport gaming console" + gameconsoleslist(99) = "xbox" + gameconsoleslist(100) = "atari flashback 2" + gameconsoleslist(101) = "atari flashback 3" + gameconsoleslist(102) = "atari flashback 4" + gameconsoleslist(103) = "evo smart console" + gameconsoleslist(104) = "retro duo" + gameconsoleslist(105) = "game wave" + gameconsoleslist(106) = "mattel hyperscan" + gameconsoleslist(107) = "onlive" + gameconsoleslist(108) = "phantom" + gameconsoleslist(109) = "playstation 3" + gameconsoleslist(110) = "wii" + gameconsoleslist(111) = "xbox 360" + gameconsoleslist(112) = "sega firecore" + gameconsoleslist(113) = "zeebo" + gameconsoleslist(114) = "sega zone" + gameconsoleslist(115) = "eedoo ct510" + gameconsoleslist(116) = "wii u" + gameconsoleslist(117) = "ouya" + gameconsoleslist(118) = "gamestick" + gameconsoleslist(119) = "mojo" + gameconsoleslist(120) = "gamepop" + gameconsoleslist(121) = "playstation 4" + gameconsoleslist(122) = "steam machine" + gameconsoleslist(123) = "xbox one" + gameconsoleslist(124) = "xi3 piston" + + End Sub + + Public Sub makeelementslist() + elementslist(0) = "hydrogen" + elementslist(1) = "helium" + elementslist(2) = "lithium" + elementslist(3) = "beryllium" + elementslist(4) = "boron" + elementslist(5) = "carbon" + elementslist(6) = "nitrogen" + elementslist(7) = "oxygen" + elementslist(8) = "fluorine" + elementslist(9) = "neon" + elementslist(10) = "sodium" + elementslist(11) = "magnesium" + elementslist(12) = "aluminium" + elementslist(13) = "silicon" + elementslist(14) = "phosphorus" + elementslist(15) = "sulfur" + elementslist(16) = "chlorine" + elementslist(17) = "argon" + elementslist(18) = "potassium" + elementslist(19) = "calcium" + elementslist(20) = "scandium" + elementslist(21) = "titanium" + elementslist(22) = "vanadium" + elementslist(23) = "chromium" + elementslist(24) = "manganese" + elementslist(25) = "iron" + elementslist(26) = "cobalt" + elementslist(27) = "nickel" + elementslist(28) = "copper" + elementslist(29) = "zinc" + elementslist(30) = "gallium" + elementslist(31) = "germanium" + elementslist(32) = "arsenic" + elementslist(33) = "selenium" + elementslist(34) = "bromine" + elementslist(35) = "krypton" + elementslist(36) = "rubidium" + elementslist(37) = "strontium" + elementslist(38) = "yttrium" + elementslist(39) = "zirconium" + elementslist(40) = "niobium" + elementslist(41) = "molybdenum" + elementslist(42) = "technetium" + elementslist(43) = "ruthenium" + elementslist(44) = "rhodium" + elementslist(45) = "palladium" + elementslist(46) = "silver" + elementslist(47) = "cadmium" + elementslist(48) = "indium" + elementslist(49) = "tin" + elementslist(50) = "antimony" + elementslist(51) = "tellurium" + elementslist(52) = "iodine" + elementslist(53) = "xenon" + elementslist(54) = "caesium" + elementslist(55) = "barium" + elementslist(56) = "lanthanum" + elementslist(57) = "cerium" + elementslist(58) = "praseodymium" + elementslist(59) = "neodymium" + elementslist(60) = "promethium" + elementslist(61) = "samarium" + elementslist(62) = "europium" + elementslist(63) = "gadolinium" + elementslist(64) = "terbium" + elementslist(65) = "dysprosium" + elementslist(66) = "holmium" + elementslist(67) = "erbium" + elementslist(68) = "thulium" + elementslist(69) = "ytterbium" + elementslist(70) = "lutetium" + elementslist(71) = "hafnium" + elementslist(72) = "tantalum" + elementslist(73) = "tungsten" + elementslist(74) = "rhenium" + elementslist(75) = "osmium" + elementslist(76) = "iridium" + elementslist(77) = "platinum" + elementslist(78) = "gold" + elementslist(79) = "mercury" + elementslist(80) = "thallium" + elementslist(81) = "lead" + elementslist(82) = "bismuth" + elementslist(83) = "polonium" + elementslist(84) = "astatine" + elementslist(85) = "radon" + elementslist(86) = "francium" + elementslist(87) = "radium" + elementslist(88) = "actinium" + elementslist(89) = "thorium" + elementslist(90) = "protactinium" + elementslist(91) = "uranium" + elementslist(92) = "neptunium" + elementslist(93) = "plutonium" + elementslist(94) = "americium" + elementslist(95) = "curium" + elementslist(96) = "berkelium" + elementslist(97) = "californium" + elementslist(98) = "einsteinium" + elementslist(99) = "fermium" + elementslist(100) = "mendelevium" + elementslist(101) = "nobelium" + elementslist(102) = "lawrencium" + elementslist(103) = "rutherfordium" + elementslist(104) = "dubnium" + elementslist(105) = "seaborgium" + elementslist(106) = "bohrium" + elementslist(107) = "hassium" + elementslist(108) = "meitnerium" + elementslist(109) = "darmstadtium" + elementslist(110) = "roentgenium" + elementslist(111) = "copernicium" + elementslist(112) = "ununtrium" + elementslist(113) = "flerovium" + elementslist(114) = "ununpentium" + elementslist(115) = "livermorium" + elementslist(116) = "ununseptium" + elementslist(117) = "ununoctium" + End Sub + +End Class \ No newline at end of file diff --git a/Module1.vb b/Module1.vb new file mode 100644 index 0000000..4d3166b --- /dev/null +++ b/Module1.vb @@ -0,0 +1,3 @@ +Module Module1 + +End Module diff --git a/My Project/Application.Designer.vb b/My Project/Application.Designer.vb new file mode 100644 index 0000000..129d43f --- /dev/null +++ b/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = true + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.ShiftOS.HijackScreen + End Sub + End Class +End Namespace diff --git a/My Project/Application.myapp b/My Project/Application.myapp new file mode 100644 index 0000000..224b705 --- /dev/null +++ b/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + HijackScreen + true + 1 + true + 0 + true + \ No newline at end of file diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..3c5059d --- /dev/null +++ b/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb new file mode 100644 index 0000000..6621abd --- /dev/null +++ b/My Project/Resources.Designer.vb @@ -0,0 +1,2746 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property _3beepvirus() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("_3beepvirus", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeaudioplayerbox() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeaudioplayerbox", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeaudioplayerprice() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeaudioplayerprice", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeaudioplayerpricepressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeaudioplayerpricepressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapecalculator() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapecalculator", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapecalculatorprice() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapecalculatorprice", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapecalculatorpricepressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapecalculatorpricepressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapedepositnowbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapedepositnowbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapedownloadbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapedownloadbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfoaudioplayertext() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfoaudioplayertext", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfoaudioplayervisualpreview() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfoaudioplayervisualpreview", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfobackbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfobackbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfobutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfobutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfobuttonpressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfobuttonpressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfobuybutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfobuybutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfocalculatortext() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfocalculatortext", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfocalculatorvisualpreview() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfocalculatorvisualpreview", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfovideoplayertext() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfovideoplayertext", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfovideoplayervisualpreview() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfovideoplayervisualpreview", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfowebbrowsertext() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfowebbrowsertext", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeinfowebbrowservisualpreview() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeinfowebbrowservisualpreview", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapemoresoftware() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapemoresoftware", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapetitlebanner() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapetitlebanner", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeundefinedprice() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeundefinedprice", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapeundefinedpricepressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapeundefinedpricepressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapevideoplayer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapevideoplayer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapevideoplayerprice() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapevideoplayerprice", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapevideoplayerpricepressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapevideoplayerpricepressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapewebbrowser() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapewebbrowser", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapewebbrowserprice() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapewebbrowserprice", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapewebbrowserpricepressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapewebbrowserpricepressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property appscapewelcometoappscape() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("appscapewelcometoappscape", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadcirclerubber() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadcirclerubber", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadcirclerubberselected() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadcirclerubberselected", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPaderacer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPaderacer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadfloodfill() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadfloodfill", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadlinetool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadlinetool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadmagnify() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadmagnify", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadnew() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadnew", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadopen() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadopen", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadOval() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadOval", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadpaintbrush() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadpaintbrush", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadpencil() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadpencil", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadpixelplacer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadpixelplacer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadpixelsetter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadpixelsetter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadRectangle() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadRectangle", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadredo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadredo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadsave() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadsave", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadsquarerubber() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadsquarerubber", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadsquarerubberselected() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadsquarerubberselected", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadtexttool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadtexttool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ArtPadundo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ArtPadundo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property centrebutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("centrebutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property centrebuttonpressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("centrebuttonpressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property deletefile() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("deletefile", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property deletefolder() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("deletefolder", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property dial_up_modem_02() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("dial_up_modem_02", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property downarrow() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("downarrow", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconArtpad() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconArtpad", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconAudioPlayer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconAudioPlayer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconBitnoteDigger() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconBitnoteDigger", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconBitnoteWallet() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconBitnoteWallet", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconCalculator() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconCalculator", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconClock() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconClock", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconColourPicker() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconColourPicker", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconDownloader() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconDownloader", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconFileOpener() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconFileOpener", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconFileSaver() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconFileSaver", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconFileSkimmer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconFileSkimmer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconGraphicPicker() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconGraphicPicker", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconIconManager() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconIconManager", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconInfoBox() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconInfoBox", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconKnowledgeInput() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconKnowledgeInput", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconNameChanger() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconNameChanger", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconPong() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconPong", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconShifter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconShifter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconShiftnet() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconShiftnet", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconShiftorium() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconShiftorium", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconshutdown() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconshutdown", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconSkinLoader() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconSkinLoader", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconSkinShifter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconSkinShifter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconTerminal() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconTerminal", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconTextPad() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconTextPad", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconVideoPlayer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconVideoPlayer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property iconWebBrowser() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("iconWebBrowser", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property infobox() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("infobox", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property loadbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("loadbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property newfolder() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("newfolder", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property newicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("newicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property nextbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("nextbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property openicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("openicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pausebutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pausebutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property playbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("playbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property previousbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("previousbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ReceiveClicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ReceiveClicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ReceiveUnclicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ReceiveUnclicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property rolldown() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("rolldown", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property rollup() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("rollup", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property saveicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("saveicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property SendClicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("SendClicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property SendUnclicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("SendUnclicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property skindownarrow() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("skindownarrow", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property skinfile() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("skinfile", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property skinuparrow() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("skinuparrow", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property stopbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("stopbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property stretchbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("stretchbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property stretchbuttonpressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("stretchbuttonpressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Symbolinfo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Symbolinfo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property test() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("test", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property tilebutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("tilebutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property tilebuttonpressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("tilebuttonpressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property TotalBalanceClicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("TotalBalanceClicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property TotalBalanceUnclicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("TotalBalanceUnclicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property transactionsClicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("transactionsClicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property transactionsUnclicked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("transactionsUnclicked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property typesound() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("typesound", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property uparrow() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("uparrow", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property updatecustomcolourpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("updatecustomcolourpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealartpad() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealartpad", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealclock() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealclock", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealfileskimmer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealfileskimmer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealpong() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealpong", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealshifter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealshifter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealshiftorium() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealshiftorium", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradealtextpad() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradealtextpad", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeamandpm() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeamandpm", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeanycolourshade() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeanycolourshade", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeanycolourshade2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeanycolourshade2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeanycolourshade3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeanycolourshade3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeanycolourshade4() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeanycolourshade4", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeapplaunchermenu() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeapplaunchermenu", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeapplaunchershutdown() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeapplaunchershutdown", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad128colorpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad128colorpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad16colorpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad16colorpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad32colorpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad32colorpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad4colorpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad4colorpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad64colorpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad64colorpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpad8colorpallets() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpad8colorpallets", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpaderaser() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpaderaser", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadfilltool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadfilltool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadlimitlesspixels() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadlimitlesspixels", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadlinetool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadlinetool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadload() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadload", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadnew() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadnew", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadovaltool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadovaltool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpaintbrushtool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpaintbrushtool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpenciltool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpenciltool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit1024() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit1024", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit16() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit16", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit16384() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit16384", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit256() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit256", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit4() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit4", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit4096() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit4096", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit64() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit64", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit65536() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit65536", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixellimit8() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixellimit8", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixelplacer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixelplacer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadpixelplacermovementmode() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadpixelplacermovementmode", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadrectangletool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadrectangletool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadredo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadredo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadsave() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadsave", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadtexttool() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadtexttool", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeartpadundo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeartpadundo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeautoscrollterminal() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeautoscrollterminal", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeblue() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeblue", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradebluecustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradebluecustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeblueshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeblueshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeblueshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeblueshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradebrown() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradebrown", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradebrowncustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradebrowncustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradebrownshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradebrownshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradebrownshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradebrownshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeclock() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeclock", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeclockicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeclockicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeclosebutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeclosebutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradecolourpickericon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradecolourpickericon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradecustomusername() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradecustomusername", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradedesktoppanel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradedesktoppanel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradedesktoppanelclock() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradedesktoppanelclock", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradedraggablewindows() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradedraggablewindows", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradefileskimmer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradefileskimmer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradefileskimmerdelete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradefileskimmerdelete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradefileskimmericon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradefileskimmericon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradefileskimmernew() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradefileskimmernew", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegray() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegray", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegraycustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegraycustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegrayshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegrayshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegrayshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegrayshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegreen() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegreen", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegreencustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegreencustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegreenshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegreenshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradegreenshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradegreenshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradehoursssincemidnight() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradehoursssincemidnight", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeinfoboxicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeinfoboxicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradekiaddons() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradekiaddons", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradekielements() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradekielements", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeknowledgeinput() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeknowledgeinput", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeknowledgeinputicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeknowledgeinputicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgrademinimizebutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgrademinimizebutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgrademinimizecommand() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgrademinimizecommand", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgrademinuteaccuracytime() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgrademinuteaccuracytime", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgrademinutesssincemidnight() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgrademinutesssincemidnight", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgrademoveablewindows() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgrademoveablewindows", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgrademultitasking() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgrademultitasking", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeorange() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeorange", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeorangecustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeorangecustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeorangeshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeorangeshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeorangeshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeorangeshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepanelbuttons() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepanelbuttons", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepink() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepink", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepinkcustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepinkcustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepinkshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepinkshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepinkshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepinkshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepong() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepong", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepongicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepongicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepurple() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepurple", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepurplecustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepurplecustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepurpleshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepurpleshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradepurpleshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradepurpleshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradered() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradered", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgraderedcustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgraderedcustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgraderedshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgraderedshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgraderedshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgraderedshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgraderollupbutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgraderollupbutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgraderollupcommand() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgraderollupcommand", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradesecondssincemidnight() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradesecondssincemidnight", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradesgameconsoles() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradesgameconsoles", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftapplauncher() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftapplauncher", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftborders() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftborders", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftbuttons() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftbuttons", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftdesktop() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftdesktop", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftdesktoppanel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftdesktoppanel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshifter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshifter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftericon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftericon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftoriumicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftoriumicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftpanelbuttons() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftpanelbuttons", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshiftpanelclock() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshiftpanelclock", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshifttitlebar() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshifttitlebar", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshifttitletext() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshifttitletext", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeshutdownicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeshutdownicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeskicarbrands() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeskicarbrands", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeskinning() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeskinning", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradesplitsecondaccuracy() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradesplitsecondaccuracy", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeterminalicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeterminalicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeterminalscrollbar() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeterminalscrollbar", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetextpad() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetextpad", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetextpadicon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetextpadicon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetextpadnew() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetextpadnew", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetextpadopen() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetextpadopen", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetextpadsave() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetextpadsave", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetitlebar() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetitlebar", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradetitletext() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradetitletext", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeunitymode() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeunitymode", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeusefulpanelbuttons() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeusefulpanelbuttons", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradewindowborders() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradewindowborders", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradewindowedterminal() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradewindowedterminal", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradewindowsanywhere() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradewindowsanywhere", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeyellow() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeyellow", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeyellowcustom() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeyellowcustom", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeyellowshades() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeyellowshades", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property upgradeyellowshadeset() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("upgradeyellowshadeset", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property webback() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("webback", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property webforward() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("webforward", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property webhome() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("webhome", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + ''' + Friend ReadOnly Property writesound() As System.IO.UnmanagedMemoryStream + Get + Return ResourceManager.GetStream("writesound", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property zoombutton() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("zoombutton", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property zoombuttonpressed() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("zoombuttonpressed", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/My Project/Resources.resx b/My Project/Resources.resx new file mode 100644 index 0000000..8d5ea2d --- /dev/null +++ b/My Project/Resources.resx @@ -0,0 +1,928 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\dial-up-modem-02.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\Symbolinfo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\test.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\typesound.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\upgradealclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradealshiftorium.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeamandpm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\anycolourshade.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\anycolourshade2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\anycolourshade3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\anycolourshade4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeapplaunchermenu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeapplaunchershutdown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeautoscrollterminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeblue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradebluecustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeblueshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeblueshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradebrown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradebrowncustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradebrownshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradebrownshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeclosebutton.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradecustomusername.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradedesktoppanel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradedesktoppanelclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradedraggablewindows.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegraycustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegrayshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegrayshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegreen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegreencustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegreenshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradegreenshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradehoursssincemidnight.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradekiaddons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeknowledgeinput.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgrademinuteaccuracytime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgrademinutesssincemidnight.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgrademoveablewindows.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgrademultitasking.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeorange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeorangecustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeorangeshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeorangeshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepinkcustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepinkshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepinkshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepurple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepurplecustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepurpleshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepurpleshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradered.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgraderedcustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgraderedshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgraderedshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradesecondssincemidnight.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradesgameconsoles.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeskicarbrands.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradesplitsecondaccuracy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeterminalscrollbar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetitlebar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetitletext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradewindowborders.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradewindowedterminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradewindowsanywhere.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeyellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeyellowcustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeyellowshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeyellowshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\writesound.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\infobox.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\rolldown.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\rollup.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\upgradealshifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgraderollupbutton.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgraderollupcommand.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftapplauncher.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftborders.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftdesktop.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftdesktoppanel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftpanelclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshifttitlebar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshifttitletext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconClock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconKnowledgeInput.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconPong.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconShifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconShiftorium.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconTerminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\newicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\openicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\saveicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\deletefile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\downarrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\newfolder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uparrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\deletefolder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconFileSkimmer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconshutdown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconTextPad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconColourPicker.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconFileOpener.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconFileSaver.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconInfoBox.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradealfileskimmer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradealpong.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradealtextpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeclockicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradecolourpickericon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradefileskimmer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradefileskimmerdelete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradefileskimmericon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradefileskimmernew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeinfoboxicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradekielements.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeknowledgeinputicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepong.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepongicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftericon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftoriumicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshutdownicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeterminalicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetextpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetextpadicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetextpadnew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetextpadopen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradetextpadsave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\icongraphicpicker.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\centrebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\centrebuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\stretchbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\stretchbuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\tilebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\tilebuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\zoombutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\zoombuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pixelsetter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconArtpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadmagnify.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadnew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadopen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadpencil.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadpixelplacer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadredo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadsave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadundo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadfloodfill.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadOval.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadRectangle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadcirclerubberselected.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPaderacer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadsquarerubber.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadsquarerubberselected.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadlinetool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadpaintbrush.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadtexttool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\updatecustomcolourpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradealartpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad128colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad16colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad32colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad4colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad64colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpad8colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpaderaser.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadfilltool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadlimitlesspixels.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadlinetool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadload.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadnew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadovaltool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpaintbrushtool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpenciltool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit1024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit16384.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit4096.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit64.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit65536.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixellimit8.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixelplacer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadpixelplacermovementmode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadrectangletool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadredo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadsave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadtexttool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeartpadundo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgrademinimizebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradepanelbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeshiftpanelbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeskinning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeunitymode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgradeusefulpanelbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\upgrademinimizecommand.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconSkinLoader.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\skinfile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\loadbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\nextbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\playbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\previousbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\stopbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\webback.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\webforward.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\webhome.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pausebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconAudioPlayer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconCalculator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconNameChanger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconVideoPlayer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconWebBrowser.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconIconManager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\3beepvirus.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\iconBitnoteDigger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconBitnoteWallet.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ReceiveClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Receive.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\SendClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Send.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\TotalBalanceClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\TotalBalanceUnclicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\transactionsClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\transactionsUnclicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconSkinShifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\skindownarrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\skinuparrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ArtPadcirclerubber.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconDownloader.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconShiftnet.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeaudioplayerbox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeaudioplayerprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapecalculator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapecalculatorprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapedepositnowbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapedownloadbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfobutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapemoresoftware.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapetitlebanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeundefinedprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapevideoplayer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapevideoplayerprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapewebbrowser.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapewebbrowserprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapewelcometoappscape.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeaudioplayerpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapecalculatorpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfobuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeundefinedpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapevideoplayerpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapewebbrowserpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfoaudioplayertext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfoaudioplayervisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfobackbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfobuybutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfocalculatortext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfocalculatorvisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfovideoplayertext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfovideoplayervisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfowebbrowsertext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\appscapeinfowebbrowservisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..696276e --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ShiftOS.My.MySettings + Get + Return Global.ShiftOS.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/My Project/app.manifest b/My Project/app.manifest new file mode 100644 index 0000000..f499e6a --- /dev/null +++ b/My Project/app.manifest @@ -0,0 +1,52 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/MyPreviewToolStripRenderer.vb b/MyPreviewToolStripRenderer.vb new file mode 100644 index 0000000..ee2239d --- /dev/null +++ b/MyPreviewToolStripRenderer.vb @@ -0,0 +1,8 @@ +Imports ShiftOS.MyNamespace + +Public Class MyPreviewToolStripRenderer + Inherits ToolStripProfessionalRenderer + Public Sub New() + MyBase.New(New PreviewCustomColorTable()) + End Sub +End Class diff --git a/MyToolStripRenderer.vb b/MyToolStripRenderer.vb new file mode 100644 index 0000000..d517cf9 --- /dev/null +++ b/MyToolStripRenderer.vb @@ -0,0 +1,8 @@ +Imports ShiftOS.MyNamespace + +Public Class MyToolStripRenderer + Inherits ToolStripProfessionalRenderer + Public Sub New() + MyBase.New(New CustomColorTable()) + End Sub +End Class diff --git a/Name Changer.Designer.vb b/Name Changer.Designer.vb new file mode 100644 index 0000000..44cf25f --- /dev/null +++ b/Name Changer.Designer.vb @@ -0,0 +1,1521 @@ + _ +Partial Class Name_Changer + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnlprogramlistholder = New System.Windows.Forms.Panel() + Me.pnlterminalsettings = New System.Windows.Forms.Panel() + Me.txtterminalname = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.picterminalicon = New System.Windows.Forms.PictureBox() + Me.pnlnamechangersettings = New System.Windows.Forms.Panel() + Me.txtnamechanger = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.picnamechangericon = New System.Windows.Forms.PictureBox() + Me.pnlvideoplayersettings = New System.Windows.Forms.Panel() + Me.txtvideoplayername = New System.Windows.Forms.TextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.picvideoplayericon = New System.Windows.Forms.PictureBox() + Me.pnlwebbrowsersettings = New System.Windows.Forms.Panel() + Me.txtwebbrowsername = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.picwebbrowsericon = New System.Windows.Forms.PictureBox() + Me.pnlaudioplayersettings = New System.Windows.Forms.Panel() + Me.txtaudioplayername = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.picaudioplayericon = New System.Windows.Forms.PictureBox() + Me.pnlcalculatorsettings = New System.Windows.Forms.Panel() + Me.txtcalculatorname = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.piccalculatoricon = New System.Windows.Forms.PictureBox() + Me.pnlartpadsettings = New System.Windows.Forms.Panel() + Me.txtartpadname = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.picartpadicon = New System.Windows.Forms.PictureBox() + Me.pnlskinloadersettings = New System.Windows.Forms.Panel() + Me.txtskinloadername = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.picskinloadericon = New System.Windows.Forms.PictureBox() + Me.pnlgraphicpickersettings = New System.Windows.Forms.Panel() + Me.txtgraphicpickername = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.picgraphicpickericon = New System.Windows.Forms.PictureBox() + Me.pnltextpadsettings = New System.Windows.Forms.Panel() + Me.txttextpadname = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.pictextpadicon = New System.Windows.Forms.PictureBox() + Me.pnlfilesaversettings = New System.Windows.Forms.Panel() + Me.txtfilesavername = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.picfilesavericon = New System.Windows.Forms.PictureBox() + Me.pnlfileopenersettings = New System.Windows.Forms.Panel() + Me.txtfileopenername = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.picfileopenericon = New System.Windows.Forms.PictureBox() + Me.pnlfileskimmersettings = New System.Windows.Forms.Panel() + Me.txtfileskimmername = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.picfileskimmericon = New System.Windows.Forms.PictureBox() + Me.pnlpongsettings = New System.Windows.Forms.Panel() + Me.txtpongname = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.picpongicon = New System.Windows.Forms.PictureBox() + Me.pnlcolourpickersettings = New System.Windows.Forms.Panel() + Me.txtcolourpickername = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.piccolourpickericon = New System.Windows.Forms.PictureBox() + Me.pnlshiftersettings = New System.Windows.Forms.Panel() + Me.txtshiftername = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.picshiftericon = New System.Windows.Forms.PictureBox() + Me.pnlclocksettings = New System.Windows.Forms.Panel() + Me.txtclockname = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.picclockicon = New System.Windows.Forms.PictureBox() + Me.pnlshiftoriumsettings = New System.Windows.Forms.Panel() + Me.txtshiftoriumname = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.picshiftoriumicon = New System.Windows.Forms.PictureBox() + Me.pnlknowledgeinputsettings = New System.Windows.Forms.Panel() + Me.txtknowledgeinputname = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.picknowledgeinputicon = New System.Windows.Forms.PictureBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.btnLoad = New System.Windows.Forms.Button() + Me.btnSave = New System.Windows.Forms.Button() + Me.PictureBox13 = New System.Windows.Forms.PictureBox() + Me.btnReset = New System.Windows.Forms.Button() + Me.btnApply = New System.Windows.Forms.Button() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.pnliconmanagersettings = New System.Windows.Forms.Panel() + Me.txticonmanager = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.piciconmanagericon = New System.Windows.Forms.PictureBox() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.pnlprogramlistholder.SuspendLayout() + Me.pnlterminalsettings.SuspendLayout() + CType(Me.picterminalicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlnamechangersettings.SuspendLayout() + CType(Me.picnamechangericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlvideoplayersettings.SuspendLayout() + CType(Me.picvideoplayericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlwebbrowsersettings.SuspendLayout() + CType(Me.picwebbrowsericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlaudioplayersettings.SuspendLayout() + CType(Me.picaudioplayericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlcalculatorsettings.SuspendLayout() + CType(Me.piccalculatoricon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlartpadsettings.SuspendLayout() + CType(Me.picartpadicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlskinloadersettings.SuspendLayout() + CType(Me.picskinloadericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlgraphicpickersettings.SuspendLayout() + CType(Me.picgraphicpickericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnltextpadsettings.SuspendLayout() + CType(Me.pictextpadicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlfilesaversettings.SuspendLayout() + CType(Me.picfilesavericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlfileopenersettings.SuspendLayout() + CType(Me.picfileopenericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlfileskimmersettings.SuspendLayout() + CType(Me.picfileskimmericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpongsettings.SuspendLayout() + CType(Me.picpongicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlcolourpickersettings.SuspendLayout() + CType(Me.piccolourpickericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlshiftersettings.SuspendLayout() + CType(Me.picshiftericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlclocksettings.SuspendLayout() + CType(Me.picclockicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlshiftoriumsettings.SuspendLayout() + CType(Me.picshiftoriumicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlknowledgeinputsettings.SuspendLayout() + CType(Me.picknowledgeinputicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + Me.pnliconmanagersettings.SuspendLayout() + CType(Me.piciconmanagericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 642) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(330, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconNameChanger + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 612) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(332, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 614) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(143, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Name Changer" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(332, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 612) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.pnlprogramlistholder) + Me.pgcontents.Controls.Add(Me.Panel2) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(330, 612) + Me.pgcontents.TabIndex = 20 + ' + 'pnlprogramlistholder + ' + Me.pnlprogramlistholder.AutoScroll = True + Me.pnlprogramlistholder.BackColor = System.Drawing.Color.White + Me.pnlprogramlistholder.Controls.Add(Me.pnlterminalsettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnliconmanagersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlnamechangersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlvideoplayersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlwebbrowsersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlaudioplayersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlcalculatorsettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlartpadsettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlskinloadersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlgraphicpickersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnltextpadsettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlfilesaversettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlfileopenersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlfileskimmersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlpongsettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlcolourpickersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlshiftersettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlclocksettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlshiftoriumsettings) + Me.pnlprogramlistholder.Controls.Add(Me.pnlknowledgeinputsettings) + Me.pnlprogramlistholder.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlprogramlistholder.Location = New System.Drawing.Point(0, 0) + Me.pnlprogramlistholder.Name = "pnlprogramlistholder" + Me.pnlprogramlistholder.Size = New System.Drawing.Size(330, 572) + Me.pnlprogramlistholder.TabIndex = 1 + ' + 'pnlterminalsettings + ' + Me.pnlterminalsettings.Controls.Add(Me.txtterminalname) + Me.pnlterminalsettings.Controls.Add(Me.Label19) + Me.pnlterminalsettings.Controls.Add(Me.picterminalicon) + Me.pnlterminalsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlterminalsettings.Location = New System.Drawing.Point(0, 532) + Me.pnlterminalsettings.Name = "pnlterminalsettings" + Me.pnlterminalsettings.Size = New System.Drawing.Size(330, 28) + Me.pnlterminalsettings.TabIndex = 37 + ' + 'txtterminalname + ' + Me.txtterminalname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtterminalname.BackColor = System.Drawing.Color.White + Me.txtterminalname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtterminalname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtterminalname.Location = New System.Drawing.Point(151, 3) + Me.txtterminalname.Name = "txtterminalname" + Me.txtterminalname.Size = New System.Drawing.Size(175, 22) + Me.txtterminalname.TabIndex = 2 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(28, 6) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(61, 16) + Me.Label19.TabIndex = 1 + Me.Label19.Text = "Terminal" + ' + 'picterminalicon + ' + Me.picterminalicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picterminalicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picterminalicon.Location = New System.Drawing.Point(7, 6) + Me.picterminalicon.Name = "picterminalicon" + Me.picterminalicon.Size = New System.Drawing.Size(16, 16) + Me.picterminalicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picterminalicon.TabIndex = 0 + Me.picterminalicon.TabStop = False + ' + 'pnlnamechangersettings + ' + Me.pnlnamechangersettings.Controls.Add(Me.txtnamechanger) + Me.pnlnamechangersettings.Controls.Add(Me.Label18) + Me.pnlnamechangersettings.Controls.Add(Me.picnamechangericon) + Me.pnlnamechangersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlnamechangersettings.Location = New System.Drawing.Point(0, 476) + Me.pnlnamechangersettings.Name = "pnlnamechangersettings" + Me.pnlnamechangersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlnamechangersettings.TabIndex = 35 + Me.pnlnamechangersettings.Visible = False + ' + 'txtnamechanger + ' + Me.txtnamechanger.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtnamechanger.BackColor = System.Drawing.Color.White + Me.txtnamechanger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtnamechanger.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtnamechanger.Location = New System.Drawing.Point(151, 3) + Me.txtnamechanger.Name = "txtnamechanger" + Me.txtnamechanger.Size = New System.Drawing.Size(175, 22) + Me.txtnamechanger.TabIndex = 2 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(28, 6) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(99, 16) + Me.Label18.TabIndex = 1 + Me.Label18.Text = "Name Changer" + ' + 'picnamechangericon + ' + Me.picnamechangericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picnamechangericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picnamechangericon.Location = New System.Drawing.Point(7, 6) + Me.picnamechangericon.Name = "picnamechangericon" + Me.picnamechangericon.Size = New System.Drawing.Size(16, 16) + Me.picnamechangericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picnamechangericon.TabIndex = 0 + Me.picnamechangericon.TabStop = False + ' + 'pnlvideoplayersettings + ' + Me.pnlvideoplayersettings.Controls.Add(Me.txtvideoplayername) + Me.pnlvideoplayersettings.Controls.Add(Me.Label17) + Me.pnlvideoplayersettings.Controls.Add(Me.picvideoplayericon) + Me.pnlvideoplayersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlvideoplayersettings.Location = New System.Drawing.Point(0, 448) + Me.pnlvideoplayersettings.Name = "pnlvideoplayersettings" + Me.pnlvideoplayersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlvideoplayersettings.TabIndex = 33 + Me.pnlvideoplayersettings.Visible = False + ' + 'txtvideoplayername + ' + Me.txtvideoplayername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtvideoplayername.BackColor = System.Drawing.Color.White + Me.txtvideoplayername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtvideoplayername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtvideoplayername.Location = New System.Drawing.Point(151, 3) + Me.txtvideoplayername.Name = "txtvideoplayername" + Me.txtvideoplayername.Size = New System.Drawing.Size(175, 22) + Me.txtvideoplayername.TabIndex = 2 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(28, 6) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(86, 16) + Me.Label17.TabIndex = 1 + Me.Label17.Text = "Video Player" + ' + 'picvideoplayericon + ' + Me.picvideoplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picvideoplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picvideoplayericon.Location = New System.Drawing.Point(7, 6) + Me.picvideoplayericon.Name = "picvideoplayericon" + Me.picvideoplayericon.Size = New System.Drawing.Size(16, 16) + Me.picvideoplayericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picvideoplayericon.TabIndex = 0 + Me.picvideoplayericon.TabStop = False + ' + 'pnlwebbrowsersettings + ' + Me.pnlwebbrowsersettings.Controls.Add(Me.txtwebbrowsername) + Me.pnlwebbrowsersettings.Controls.Add(Me.Label16) + Me.pnlwebbrowsersettings.Controls.Add(Me.picwebbrowsericon) + Me.pnlwebbrowsersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlwebbrowsersettings.Location = New System.Drawing.Point(0, 420) + Me.pnlwebbrowsersettings.Name = "pnlwebbrowsersettings" + Me.pnlwebbrowsersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlwebbrowsersettings.TabIndex = 31 + Me.pnlwebbrowsersettings.Visible = False + ' + 'txtwebbrowsername + ' + Me.txtwebbrowsername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtwebbrowsername.BackColor = System.Drawing.Color.White + Me.txtwebbrowsername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtwebbrowsername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtwebbrowsername.Location = New System.Drawing.Point(151, 3) + Me.txtwebbrowsername.Name = "txtwebbrowsername" + Me.txtwebbrowsername.Size = New System.Drawing.Size(175, 22) + Me.txtwebbrowsername.TabIndex = 2 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(28, 6) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(89, 16) + Me.Label16.TabIndex = 1 + Me.Label16.Text = "Web Browser" + ' + 'picwebbrowsericon + ' + Me.picwebbrowsericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picwebbrowsericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picwebbrowsericon.Location = New System.Drawing.Point(7, 6) + Me.picwebbrowsericon.Name = "picwebbrowsericon" + Me.picwebbrowsericon.Size = New System.Drawing.Size(16, 16) + Me.picwebbrowsericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picwebbrowsericon.TabIndex = 0 + Me.picwebbrowsericon.TabStop = False + ' + 'pnlaudioplayersettings + ' + Me.pnlaudioplayersettings.Controls.Add(Me.txtaudioplayername) + Me.pnlaudioplayersettings.Controls.Add(Me.Label15) + Me.pnlaudioplayersettings.Controls.Add(Me.picaudioplayericon) + Me.pnlaudioplayersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlaudioplayersettings.Location = New System.Drawing.Point(0, 392) + Me.pnlaudioplayersettings.Name = "pnlaudioplayersettings" + Me.pnlaudioplayersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlaudioplayersettings.TabIndex = 29 + Me.pnlaudioplayersettings.Visible = False + ' + 'txtaudioplayername + ' + Me.txtaudioplayername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtaudioplayername.BackColor = System.Drawing.Color.White + Me.txtaudioplayername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtaudioplayername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtaudioplayername.Location = New System.Drawing.Point(151, 3) + Me.txtaudioplayername.Name = "txtaudioplayername" + Me.txtaudioplayername.Size = New System.Drawing.Size(175, 22) + Me.txtaudioplayername.TabIndex = 2 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(28, 6) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(85, 16) + Me.Label15.TabIndex = 1 + Me.Label15.Text = "Audio Player" + ' + 'picaudioplayericon + ' + Me.picaudioplayericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picaudioplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picaudioplayericon.Location = New System.Drawing.Point(7, 6) + Me.picaudioplayericon.Name = "picaudioplayericon" + Me.picaudioplayericon.Size = New System.Drawing.Size(16, 16) + Me.picaudioplayericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picaudioplayericon.TabIndex = 0 + Me.picaudioplayericon.TabStop = False + ' + 'pnlcalculatorsettings + ' + Me.pnlcalculatorsettings.Controls.Add(Me.txtcalculatorname) + Me.pnlcalculatorsettings.Controls.Add(Me.Label14) + Me.pnlcalculatorsettings.Controls.Add(Me.piccalculatoricon) + Me.pnlcalculatorsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlcalculatorsettings.Location = New System.Drawing.Point(0, 364) + Me.pnlcalculatorsettings.Name = "pnlcalculatorsettings" + Me.pnlcalculatorsettings.Size = New System.Drawing.Size(330, 28) + Me.pnlcalculatorsettings.TabIndex = 27 + Me.pnlcalculatorsettings.Visible = False + ' + 'txtcalculatorname + ' + Me.txtcalculatorname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtcalculatorname.BackColor = System.Drawing.Color.White + Me.txtcalculatorname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtcalculatorname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcalculatorname.Location = New System.Drawing.Point(151, 3) + Me.txtcalculatorname.Name = "txtcalculatorname" + Me.txtcalculatorname.Size = New System.Drawing.Size(175, 22) + Me.txtcalculatorname.TabIndex = 2 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(28, 6) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(68, 16) + Me.Label14.TabIndex = 1 + Me.Label14.Text = "Calculator" + ' + 'piccalculatoricon + ' + Me.piccalculatoricon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.piccalculatoricon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.piccalculatoricon.Location = New System.Drawing.Point(7, 6) + Me.piccalculatoricon.Name = "piccalculatoricon" + Me.piccalculatoricon.Size = New System.Drawing.Size(16, 16) + Me.piccalculatoricon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.piccalculatoricon.TabIndex = 0 + Me.piccalculatoricon.TabStop = False + ' + 'pnlartpadsettings + ' + Me.pnlartpadsettings.Controls.Add(Me.txtartpadname) + Me.pnlartpadsettings.Controls.Add(Me.Label13) + Me.pnlartpadsettings.Controls.Add(Me.picartpadicon) + Me.pnlartpadsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlartpadsettings.Location = New System.Drawing.Point(0, 336) + Me.pnlartpadsettings.Name = "pnlartpadsettings" + Me.pnlartpadsettings.Size = New System.Drawing.Size(330, 28) + Me.pnlartpadsettings.TabIndex = 25 + Me.pnlartpadsettings.Visible = False + ' + 'txtartpadname + ' + Me.txtartpadname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtartpadname.BackColor = System.Drawing.Color.White + Me.txtartpadname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtartpadname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtartpadname.Location = New System.Drawing.Point(151, 3) + Me.txtartpadname.Name = "txtartpadname" + Me.txtartpadname.Size = New System.Drawing.Size(175, 22) + Me.txtartpadname.TabIndex = 2 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(28, 6) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(48, 16) + Me.Label13.TabIndex = 1 + Me.Label13.Text = "Artpad" + ' + 'picartpadicon + ' + Me.picartpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picartpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picartpadicon.Location = New System.Drawing.Point(7, 6) + Me.picartpadicon.Name = "picartpadicon" + Me.picartpadicon.Size = New System.Drawing.Size(16, 16) + Me.picartpadicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picartpadicon.TabIndex = 0 + Me.picartpadicon.TabStop = False + ' + 'pnlskinloadersettings + ' + Me.pnlskinloadersettings.Controls.Add(Me.txtskinloadername) + Me.pnlskinloadersettings.Controls.Add(Me.Label12) + Me.pnlskinloadersettings.Controls.Add(Me.picskinloadericon) + Me.pnlskinloadersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlskinloadersettings.Location = New System.Drawing.Point(0, 308) + Me.pnlskinloadersettings.Name = "pnlskinloadersettings" + Me.pnlskinloadersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlskinloadersettings.TabIndex = 23 + Me.pnlskinloadersettings.Visible = False + ' + 'txtskinloadername + ' + Me.txtskinloadername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtskinloadername.BackColor = System.Drawing.Color.White + Me.txtskinloadername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtskinloadername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtskinloadername.Location = New System.Drawing.Point(151, 3) + Me.txtskinloadername.Name = "txtskinloadername" + Me.txtskinloadername.Size = New System.Drawing.Size(175, 22) + Me.txtskinloadername.TabIndex = 2 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(28, 6) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(80, 16) + Me.Label12.TabIndex = 1 + Me.Label12.Text = "Skin Loader" + ' + 'picskinloadericon + ' + Me.picskinloadericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picskinloadericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picskinloadericon.Location = New System.Drawing.Point(7, 6) + Me.picskinloadericon.Name = "picskinloadericon" + Me.picskinloadericon.Size = New System.Drawing.Size(16, 16) + Me.picskinloadericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picskinloadericon.TabIndex = 0 + Me.picskinloadericon.TabStop = False + ' + 'pnlgraphicpickersettings + ' + Me.pnlgraphicpickersettings.Controls.Add(Me.txtgraphicpickername) + Me.pnlgraphicpickersettings.Controls.Add(Me.Label11) + Me.pnlgraphicpickersettings.Controls.Add(Me.picgraphicpickericon) + Me.pnlgraphicpickersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlgraphicpickersettings.Location = New System.Drawing.Point(0, 280) + Me.pnlgraphicpickersettings.Name = "pnlgraphicpickersettings" + Me.pnlgraphicpickersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlgraphicpickersettings.TabIndex = 21 + Me.pnlgraphicpickersettings.Visible = False + ' + 'txtgraphicpickername + ' + Me.txtgraphicpickername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtgraphicpickername.BackColor = System.Drawing.Color.White + Me.txtgraphicpickername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtgraphicpickername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtgraphicpickername.Location = New System.Drawing.Point(151, 3) + Me.txtgraphicpickername.Name = "txtgraphicpickername" + Me.txtgraphicpickername.Size = New System.Drawing.Size(175, 22) + Me.txtgraphicpickername.TabIndex = 2 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(28, 6) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(96, 16) + Me.Label11.TabIndex = 1 + Me.Label11.Text = "Graphic Picker" + ' + 'picgraphicpickericon + ' + Me.picgraphicpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picgraphicpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picgraphicpickericon.Location = New System.Drawing.Point(7, 6) + Me.picgraphicpickericon.Name = "picgraphicpickericon" + Me.picgraphicpickericon.Size = New System.Drawing.Size(16, 16) + Me.picgraphicpickericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picgraphicpickericon.TabIndex = 0 + Me.picgraphicpickericon.TabStop = False + ' + 'pnltextpadsettings + ' + Me.pnltextpadsettings.Controls.Add(Me.txttextpadname) + Me.pnltextpadsettings.Controls.Add(Me.Label10) + Me.pnltextpadsettings.Controls.Add(Me.pictextpadicon) + Me.pnltextpadsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnltextpadsettings.Location = New System.Drawing.Point(0, 252) + Me.pnltextpadsettings.Name = "pnltextpadsettings" + Me.pnltextpadsettings.Size = New System.Drawing.Size(330, 28) + Me.pnltextpadsettings.TabIndex = 19 + Me.pnltextpadsettings.Visible = False + ' + 'txttextpadname + ' + Me.txttextpadname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txttextpadname.BackColor = System.Drawing.Color.White + Me.txttextpadname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttextpadname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttextpadname.Location = New System.Drawing.Point(151, 3) + Me.txttextpadname.Name = "txttextpadname" + Me.txttextpadname.Size = New System.Drawing.Size(175, 22) + Me.txttextpadname.TabIndex = 2 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(28, 6) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(59, 16) + Me.Label10.TabIndex = 1 + Me.Label10.Text = "TextPad" + ' + 'pictextpadicon + ' + Me.pictextpadicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.pictextpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pictextpadicon.Location = New System.Drawing.Point(7, 6) + Me.pictextpadicon.Name = "pictextpadicon" + Me.pictextpadicon.Size = New System.Drawing.Size(16, 16) + Me.pictextpadicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pictextpadicon.TabIndex = 0 + Me.pictextpadicon.TabStop = False + ' + 'pnlfilesaversettings + ' + Me.pnlfilesaversettings.Controls.Add(Me.txtfilesavername) + Me.pnlfilesaversettings.Controls.Add(Me.Label9) + Me.pnlfilesaversettings.Controls.Add(Me.picfilesavericon) + Me.pnlfilesaversettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlfilesaversettings.Location = New System.Drawing.Point(0, 224) + Me.pnlfilesaversettings.Name = "pnlfilesaversettings" + Me.pnlfilesaversettings.Size = New System.Drawing.Size(330, 28) + Me.pnlfilesaversettings.TabIndex = 17 + Me.pnlfilesaversettings.Visible = False + ' + 'txtfilesavername + ' + Me.txtfilesavername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtfilesavername.BackColor = System.Drawing.Color.White + Me.txtfilesavername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtfilesavername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfilesavername.Location = New System.Drawing.Point(151, 3) + Me.txtfilesavername.Name = "txtfilesavername" + Me.txtfilesavername.Size = New System.Drawing.Size(175, 22) + Me.txtfilesavername.TabIndex = 2 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(28, 6) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(69, 16) + Me.Label9.TabIndex = 1 + Me.Label9.Text = "File Saver" + ' + 'picfilesavericon + ' + Me.picfilesavericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picfilesavericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picfilesavericon.Location = New System.Drawing.Point(7, 6) + Me.picfilesavericon.Name = "picfilesavericon" + Me.picfilesavericon.Size = New System.Drawing.Size(16, 16) + Me.picfilesavericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picfilesavericon.TabIndex = 0 + Me.picfilesavericon.TabStop = False + ' + 'pnlfileopenersettings + ' + Me.pnlfileopenersettings.Controls.Add(Me.txtfileopenername) + Me.pnlfileopenersettings.Controls.Add(Me.Label8) + Me.pnlfileopenersettings.Controls.Add(Me.picfileopenericon) + Me.pnlfileopenersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlfileopenersettings.Location = New System.Drawing.Point(0, 196) + Me.pnlfileopenersettings.Name = "pnlfileopenersettings" + Me.pnlfileopenersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlfileopenersettings.TabIndex = 15 + Me.pnlfileopenersettings.Visible = False + ' + 'txtfileopenername + ' + Me.txtfileopenername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtfileopenername.BackColor = System.Drawing.Color.White + Me.txtfileopenername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtfileopenername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfileopenername.Location = New System.Drawing.Point(151, 3) + Me.txtfileopenername.Name = "txtfileopenername" + Me.txtfileopenername.Size = New System.Drawing.Size(175, 22) + Me.txtfileopenername.TabIndex = 2 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(28, 6) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(78, 16) + Me.Label8.TabIndex = 1 + Me.Label8.Text = "File Opener" + ' + 'picfileopenericon + ' + Me.picfileopenericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picfileopenericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picfileopenericon.Location = New System.Drawing.Point(7, 6) + Me.picfileopenericon.Name = "picfileopenericon" + Me.picfileopenericon.Size = New System.Drawing.Size(16, 16) + Me.picfileopenericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picfileopenericon.TabIndex = 0 + Me.picfileopenericon.TabStop = False + ' + 'pnlfileskimmersettings + ' + Me.pnlfileskimmersettings.Controls.Add(Me.txtfileskimmername) + Me.pnlfileskimmersettings.Controls.Add(Me.Label7) + Me.pnlfileskimmersettings.Controls.Add(Me.picfileskimmericon) + Me.pnlfileskimmersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlfileskimmersettings.Location = New System.Drawing.Point(0, 168) + Me.pnlfileskimmersettings.Name = "pnlfileskimmersettings" + Me.pnlfileskimmersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlfileskimmersettings.TabIndex = 13 + Me.pnlfileskimmersettings.Visible = False + ' + 'txtfileskimmername + ' + Me.txtfileskimmername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtfileskimmername.BackColor = System.Drawing.Color.White + Me.txtfileskimmername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtfileskimmername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtfileskimmername.Location = New System.Drawing.Point(151, 3) + Me.txtfileskimmername.Name = "txtfileskimmername" + Me.txtfileskimmername.Size = New System.Drawing.Size(175, 22) + Me.txtfileskimmername.TabIndex = 2 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(28, 6) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(86, 16) + Me.Label7.TabIndex = 1 + Me.Label7.Text = "File Skimmer" + ' + 'picfileskimmericon + ' + Me.picfileskimmericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picfileskimmericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picfileskimmericon.Location = New System.Drawing.Point(7, 6) + Me.picfileskimmericon.Name = "picfileskimmericon" + Me.picfileskimmericon.Size = New System.Drawing.Size(16, 16) + Me.picfileskimmericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picfileskimmericon.TabIndex = 0 + Me.picfileskimmericon.TabStop = False + ' + 'pnlpongsettings + ' + Me.pnlpongsettings.Controls.Add(Me.txtpongname) + Me.pnlpongsettings.Controls.Add(Me.Label6) + Me.pnlpongsettings.Controls.Add(Me.picpongicon) + Me.pnlpongsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlpongsettings.Location = New System.Drawing.Point(0, 140) + Me.pnlpongsettings.Name = "pnlpongsettings" + Me.pnlpongsettings.Size = New System.Drawing.Size(330, 28) + Me.pnlpongsettings.TabIndex = 11 + Me.pnlpongsettings.Visible = False + ' + 'txtpongname + ' + Me.txtpongname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtpongname.BackColor = System.Drawing.Color.White + Me.txtpongname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpongname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpongname.Location = New System.Drawing.Point(151, 3) + Me.txtpongname.Name = "txtpongname" + Me.txtpongname.Size = New System.Drawing.Size(175, 22) + Me.txtpongname.TabIndex = 2 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(28, 6) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(40, 16) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Pong" + ' + 'picpongicon + ' + Me.picpongicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picpongicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picpongicon.Location = New System.Drawing.Point(7, 6) + Me.picpongicon.Name = "picpongicon" + Me.picpongicon.Size = New System.Drawing.Size(16, 16) + Me.picpongicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picpongicon.TabIndex = 0 + Me.picpongicon.TabStop = False + ' + 'pnlcolourpickersettings + ' + Me.pnlcolourpickersettings.Controls.Add(Me.txtcolourpickername) + Me.pnlcolourpickersettings.Controls.Add(Me.Label5) + Me.pnlcolourpickersettings.Controls.Add(Me.piccolourpickericon) + Me.pnlcolourpickersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlcolourpickersettings.Location = New System.Drawing.Point(0, 112) + Me.pnlcolourpickersettings.Name = "pnlcolourpickersettings" + Me.pnlcolourpickersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlcolourpickersettings.TabIndex = 9 + Me.pnlcolourpickersettings.Visible = False + ' + 'txtcolourpickername + ' + Me.txtcolourpickername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtcolourpickername.BackColor = System.Drawing.Color.White + Me.txtcolourpickername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtcolourpickername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcolourpickername.Location = New System.Drawing.Point(151, 3) + Me.txtcolourpickername.Name = "txtcolourpickername" + Me.txtcolourpickername.Size = New System.Drawing.Size(175, 22) + Me.txtcolourpickername.TabIndex = 2 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(28, 6) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(88, 16) + Me.Label5.TabIndex = 1 + Me.Label5.Text = "Colour Picker" + ' + 'piccolourpickericon + ' + Me.piccolourpickericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.piccolourpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.piccolourpickericon.Location = New System.Drawing.Point(7, 6) + Me.piccolourpickericon.Name = "piccolourpickericon" + Me.piccolourpickericon.Size = New System.Drawing.Size(16, 16) + Me.piccolourpickericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.piccolourpickericon.TabIndex = 0 + Me.piccolourpickericon.TabStop = False + ' + 'pnlshiftersettings + ' + Me.pnlshiftersettings.Controls.Add(Me.txtshiftername) + Me.pnlshiftersettings.Controls.Add(Me.Label4) + Me.pnlshiftersettings.Controls.Add(Me.picshiftericon) + Me.pnlshiftersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlshiftersettings.Location = New System.Drawing.Point(0, 84) + Me.pnlshiftersettings.Name = "pnlshiftersettings" + Me.pnlshiftersettings.Size = New System.Drawing.Size(330, 28) + Me.pnlshiftersettings.TabIndex = 7 + Me.pnlshiftersettings.Visible = False + ' + 'txtshiftername + ' + Me.txtshiftername.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtshiftername.BackColor = System.Drawing.Color.White + Me.txtshiftername.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtshiftername.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtshiftername.Location = New System.Drawing.Point(151, 3) + Me.txtshiftername.Name = "txtshiftername" + Me.txtshiftername.Size = New System.Drawing.Size(175, 22) + Me.txtshiftername.TabIndex = 2 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(28, 6) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(45, 16) + Me.Label4.TabIndex = 1 + Me.Label4.Text = "Shifter" + ' + 'picshiftericon + ' + Me.picshiftericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picshiftericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picshiftericon.Location = New System.Drawing.Point(7, 6) + Me.picshiftericon.Name = "picshiftericon" + Me.picshiftericon.Size = New System.Drawing.Size(16, 16) + Me.picshiftericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picshiftericon.TabIndex = 0 + Me.picshiftericon.TabStop = False + ' + 'pnlclocksettings + ' + Me.pnlclocksettings.Controls.Add(Me.txtclockname) + Me.pnlclocksettings.Controls.Add(Me.Label3) + Me.pnlclocksettings.Controls.Add(Me.picclockicon) + Me.pnlclocksettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlclocksettings.Location = New System.Drawing.Point(0, 56) + Me.pnlclocksettings.Name = "pnlclocksettings" + Me.pnlclocksettings.Size = New System.Drawing.Size(330, 28) + Me.pnlclocksettings.TabIndex = 5 + Me.pnlclocksettings.Visible = False + ' + 'txtclockname + ' + Me.txtclockname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtclockname.BackColor = System.Drawing.Color.White + Me.txtclockname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclockname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclockname.Location = New System.Drawing.Point(151, 3) + Me.txtclockname.Name = "txtclockname" + Me.txtclockname.Size = New System.Drawing.Size(175, 22) + Me.txtclockname.TabIndex = 2 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(28, 6) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(42, 16) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Clock" + ' + 'picclockicon + ' + Me.picclockicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picclockicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picclockicon.Location = New System.Drawing.Point(7, 6) + Me.picclockicon.Name = "picclockicon" + Me.picclockicon.Size = New System.Drawing.Size(16, 16) + Me.picclockicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picclockicon.TabIndex = 0 + Me.picclockicon.TabStop = False + ' + 'pnlshiftoriumsettings + ' + Me.pnlshiftoriumsettings.Controls.Add(Me.txtshiftoriumname) + Me.pnlshiftoriumsettings.Controls.Add(Me.Label2) + Me.pnlshiftoriumsettings.Controls.Add(Me.picshiftoriumicon) + Me.pnlshiftoriumsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlshiftoriumsettings.Location = New System.Drawing.Point(0, 28) + Me.pnlshiftoriumsettings.Name = "pnlshiftoriumsettings" + Me.pnlshiftoriumsettings.Size = New System.Drawing.Size(330, 28) + Me.pnlshiftoriumsettings.TabIndex = 3 + ' + 'txtshiftoriumname + ' + Me.txtshiftoriumname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtshiftoriumname.BackColor = System.Drawing.Color.White + Me.txtshiftoriumname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtshiftoriumname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtshiftoriumname.Location = New System.Drawing.Point(151, 3) + Me.txtshiftoriumname.Name = "txtshiftoriumname" + Me.txtshiftoriumname.Size = New System.Drawing.Size(175, 22) + Me.txtshiftoriumname.TabIndex = 2 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(28, 6) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(66, 16) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Shiftorium" + ' + 'picshiftoriumicon + ' + Me.picshiftoriumicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picshiftoriumicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picshiftoriumicon.Location = New System.Drawing.Point(7, 6) + Me.picshiftoriumicon.Name = "picshiftoriumicon" + Me.picshiftoriumicon.Size = New System.Drawing.Size(16, 16) + Me.picshiftoriumicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picshiftoriumicon.TabIndex = 0 + Me.picshiftoriumicon.TabStop = False + ' + 'pnlknowledgeinputsettings + ' + Me.pnlknowledgeinputsettings.Controls.Add(Me.txtknowledgeinputname) + Me.pnlknowledgeinputsettings.Controls.Add(Me.Label1) + Me.pnlknowledgeinputsettings.Controls.Add(Me.picknowledgeinputicon) + Me.pnlknowledgeinputsettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlknowledgeinputsettings.Location = New System.Drawing.Point(0, 0) + Me.pnlknowledgeinputsettings.Name = "pnlknowledgeinputsettings" + Me.pnlknowledgeinputsettings.Size = New System.Drawing.Size(330, 28) + Me.pnlknowledgeinputsettings.TabIndex = 1 + ' + 'txtknowledgeinputname + ' + Me.txtknowledgeinputname.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtknowledgeinputname.BackColor = System.Drawing.Color.White + Me.txtknowledgeinputname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtknowledgeinputname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtknowledgeinputname.Location = New System.Drawing.Point(151, 3) + Me.txtknowledgeinputname.Name = "txtknowledgeinputname" + Me.txtknowledgeinputname.Size = New System.Drawing.Size(175, 22) + Me.txtknowledgeinputname.TabIndex = 2 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(28, 6) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(106, 16) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Knowledge Input" + ' + 'picknowledgeinputicon + ' + Me.picknowledgeinputicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.picknowledgeinputicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.picknowledgeinputicon.Location = New System.Drawing.Point(7, 6) + Me.picknowledgeinputicon.Name = "picknowledgeinputicon" + Me.picknowledgeinputicon.Size = New System.Drawing.Size(16, 16) + Me.picknowledgeinputicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picknowledgeinputicon.TabIndex = 0 + Me.picknowledgeinputicon.TabStop = False + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.btnLoad) + Me.Panel2.Controls.Add(Me.btnSave) + Me.Panel2.Controls.Add(Me.PictureBox13) + Me.Panel2.Controls.Add(Me.btnReset) + Me.Panel2.Controls.Add(Me.btnApply) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 572) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(330, 40) + Me.Panel2.TabIndex = 2 + ' + 'btnLoad + ' + Me.btnLoad.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnLoad.BackColor = System.Drawing.Color.White + Me.btnLoad.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnLoad.Location = New System.Drawing.Point(4, 5) + Me.btnLoad.Name = "btnLoad" + Me.btnLoad.Size = New System.Drawing.Size(77, 30) + Me.btnLoad.TabIndex = 17 + Me.btnLoad.Text = "Load" + Me.btnLoad.UseVisualStyleBackColor = False + ' + 'btnSave + ' + Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnSave.BackColor = System.Drawing.Color.White + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.Location = New System.Drawing.Point(86, 5) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(77, 30) + Me.btnSave.TabIndex = 16 + Me.btnSave.Text = "Save" + Me.btnSave.UseVisualStyleBackColor = False + ' + 'PictureBox13 + ' + Me.PictureBox13.BackColor = System.Drawing.Color.Black + Me.PictureBox13.Dock = System.Windows.Forms.DockStyle.Top + Me.PictureBox13.Location = New System.Drawing.Point(0, 0) + Me.PictureBox13.Name = "PictureBox13" + Me.PictureBox13.Size = New System.Drawing.Size(330, 1) + Me.PictureBox13.TabIndex = 15 + Me.PictureBox13.TabStop = False + ' + 'btnReset + ' + Me.btnReset.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnReset.BackColor = System.Drawing.Color.White + Me.btnReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnReset.Location = New System.Drawing.Point(168, 5) + Me.btnReset.Name = "btnReset" + Me.btnReset.Size = New System.Drawing.Size(77, 30) + Me.btnReset.TabIndex = 1 + Me.btnReset.Text = "Reset" + Me.btnReset.UseVisualStyleBackColor = False + ' + 'btnApply + ' + Me.btnApply.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnApply.BackColor = System.Drawing.Color.White + Me.btnApply.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnApply.Location = New System.Drawing.Point(250, 5) + Me.btnApply.Name = "btnApply" + Me.btnApply.Size = New System.Drawing.Size(77, 30) + Me.btnApply.TabIndex = 0 + Me.btnApply.Text = "Apply" + Me.btnApply.UseVisualStyleBackColor = False + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 614) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(334, 30) + Me.titlebar.TabIndex = 19 + ' + 'pnliconmanagersettings + ' + Me.pnliconmanagersettings.Controls.Add(Me.txticonmanager) + Me.pnliconmanagersettings.Controls.Add(Me.Label20) + Me.pnliconmanagersettings.Controls.Add(Me.piciconmanagericon) + Me.pnliconmanagersettings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnliconmanagersettings.Location = New System.Drawing.Point(0, 504) + Me.pnliconmanagersettings.Name = "pnliconmanagersettings" + Me.pnliconmanagersettings.Size = New System.Drawing.Size(330, 28) + Me.pnliconmanagersettings.TabIndex = 38 + Me.pnliconmanagersettings.Visible = False + ' + 'txticonmanager + ' + Me.txticonmanager.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txticonmanager.BackColor = System.Drawing.Color.White + Me.txticonmanager.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txticonmanager.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txticonmanager.Location = New System.Drawing.Point(151, 3) + Me.txticonmanager.Name = "txticonmanager" + Me.txticonmanager.Size = New System.Drawing.Size(175, 22) + Me.txticonmanager.TabIndex = 2 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(28, 6) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(90, 16) + Me.Label20.TabIndex = 1 + Me.Label20.Text = "Icon Manager" + ' + 'piciconmanagericon + ' + Me.piciconmanagericon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.piciconmanagericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.piciconmanagericon.Location = New System.Drawing.Point(7, 6) + Me.piciconmanagericon.Name = "piciconmanagericon" + Me.piciconmanagericon.Size = New System.Drawing.Size(16, 16) + Me.piciconmanagericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.piciconmanagericon.TabIndex = 0 + Me.piciconmanagericon.TabStop = False + ' + 'Name_Changer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(334, 644) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(300, 400) + Me.Name = "Name_Changer" + Me.Text = "Name_Changer" + Me.TopMost = True + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.pnlprogramlistholder.ResumeLayout(False) + Me.pnlterminalsettings.ResumeLayout(False) + Me.pnlterminalsettings.PerformLayout() + CType(Me.picterminalicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlnamechangersettings.ResumeLayout(False) + Me.pnlnamechangersettings.PerformLayout() + CType(Me.picnamechangericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlvideoplayersettings.ResumeLayout(False) + Me.pnlvideoplayersettings.PerformLayout() + CType(Me.picvideoplayericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlwebbrowsersettings.ResumeLayout(False) + Me.pnlwebbrowsersettings.PerformLayout() + CType(Me.picwebbrowsericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlaudioplayersettings.ResumeLayout(False) + Me.pnlaudioplayersettings.PerformLayout() + CType(Me.picaudioplayericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlcalculatorsettings.ResumeLayout(False) + Me.pnlcalculatorsettings.PerformLayout() + CType(Me.piccalculatoricon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlartpadsettings.ResumeLayout(False) + Me.pnlartpadsettings.PerformLayout() + CType(Me.picartpadicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlskinloadersettings.ResumeLayout(False) + Me.pnlskinloadersettings.PerformLayout() + CType(Me.picskinloadericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlgraphicpickersettings.ResumeLayout(False) + Me.pnlgraphicpickersettings.PerformLayout() + CType(Me.picgraphicpickericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnltextpadsettings.ResumeLayout(False) + Me.pnltextpadsettings.PerformLayout() + CType(Me.pictextpadicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlfilesaversettings.ResumeLayout(False) + Me.pnlfilesaversettings.PerformLayout() + CType(Me.picfilesavericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlfileopenersettings.ResumeLayout(False) + Me.pnlfileopenersettings.PerformLayout() + CType(Me.picfileopenericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlfileskimmersettings.ResumeLayout(False) + Me.pnlfileskimmersettings.PerformLayout() + CType(Me.picfileskimmericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpongsettings.ResumeLayout(False) + Me.pnlpongsettings.PerformLayout() + CType(Me.picpongicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlcolourpickersettings.ResumeLayout(False) + Me.pnlcolourpickersettings.PerformLayout() + CType(Me.piccolourpickericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlshiftersettings.ResumeLayout(False) + Me.pnlshiftersettings.PerformLayout() + CType(Me.picshiftericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlclocksettings.ResumeLayout(False) + Me.pnlclocksettings.PerformLayout() + CType(Me.picclockicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlshiftoriumsettings.ResumeLayout(False) + Me.pnlshiftoriumsettings.PerformLayout() + CType(Me.picshiftoriumicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlknowledgeinputsettings.ResumeLayout(False) + Me.pnlknowledgeinputsettings.PerformLayout() + CType(Me.picknowledgeinputicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + Me.pnliconmanagersettings.ResumeLayout(False) + Me.pnliconmanagersettings.PerformLayout() + CType(Me.piciconmanagericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents btnReset As System.Windows.Forms.Button + Friend WithEvents btnApply As System.Windows.Forms.Button + Friend WithEvents pnlprogramlistholder As System.Windows.Forms.Panel + Friend WithEvents pnlknowledgeinputsettings As System.Windows.Forms.Panel + Friend WithEvents txtknowledgeinputname As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents picknowledgeinputicon As System.Windows.Forms.PictureBox + Friend WithEvents pnlfileskimmersettings As System.Windows.Forms.Panel + Friend WithEvents txtfileskimmername As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents picfileskimmericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlpongsettings As System.Windows.Forms.Panel + Friend WithEvents txtpongname As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents picpongicon As System.Windows.Forms.PictureBox + Friend WithEvents pnlcolourpickersettings As System.Windows.Forms.Panel + Friend WithEvents txtcolourpickername As System.Windows.Forms.TextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents piccolourpickericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlshiftersettings As System.Windows.Forms.Panel + Friend WithEvents txtshiftername As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents picshiftericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlclocksettings As System.Windows.Forms.Panel + Friend WithEvents txtclockname As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents picclockicon As System.Windows.Forms.PictureBox + Friend WithEvents pnlshiftoriumsettings As System.Windows.Forms.Panel + Friend WithEvents txtshiftoriumname As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents picshiftoriumicon As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox13 As System.Windows.Forms.PictureBox + Friend WithEvents pnlartpadsettings As System.Windows.Forms.Panel + Friend WithEvents txtartpadname As System.Windows.Forms.TextBox + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents picartpadicon As System.Windows.Forms.PictureBox + Friend WithEvents pnlskinloadersettings As System.Windows.Forms.Panel + Friend WithEvents txtskinloadername As System.Windows.Forms.TextBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents picskinloadericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlgraphicpickersettings As System.Windows.Forms.Panel + Friend WithEvents txtgraphicpickername As System.Windows.Forms.TextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents picgraphicpickericon As System.Windows.Forms.PictureBox + Friend WithEvents pnltextpadsettings As System.Windows.Forms.Panel + Friend WithEvents txttextpadname As System.Windows.Forms.TextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents pictextpadicon As System.Windows.Forms.PictureBox + Friend WithEvents pnlfilesaversettings As System.Windows.Forms.Panel + Friend WithEvents txtfilesavername As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents picfilesavericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlfileopenersettings As System.Windows.Forms.Panel + Friend WithEvents txtfileopenername As System.Windows.Forms.TextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents picfileopenericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlterminalsettings As System.Windows.Forms.Panel + Friend WithEvents txtterminalname As System.Windows.Forms.TextBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents picterminalicon As System.Windows.Forms.PictureBox + Friend WithEvents pnlvideoplayersettings As System.Windows.Forms.Panel + Friend WithEvents txtvideoplayername As System.Windows.Forms.TextBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents picvideoplayericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlwebbrowsersettings As System.Windows.Forms.Panel + Friend WithEvents txtwebbrowsername As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents picwebbrowsericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlaudioplayersettings As System.Windows.Forms.Panel + Friend WithEvents txtaudioplayername As System.Windows.Forms.TextBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents picaudioplayericon As System.Windows.Forms.PictureBox + Friend WithEvents pnlcalculatorsettings As System.Windows.Forms.Panel + Friend WithEvents txtcalculatorname As System.Windows.Forms.TextBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents piccalculatoricon As System.Windows.Forms.PictureBox + Friend WithEvents btnLoad As System.Windows.Forms.Button + Friend WithEvents btnSave As System.Windows.Forms.Button + Friend WithEvents pnlnamechangersettings As System.Windows.Forms.Panel + Friend WithEvents txtnamechanger As System.Windows.Forms.TextBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents picnamechangericon As System.Windows.Forms.PictureBox + Friend WithEvents pnliconmanagersettings As System.Windows.Forms.Panel + Friend WithEvents txticonmanager As System.Windows.Forms.TextBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents piciconmanagericon As System.Windows.Forms.PictureBox +End Class diff --git a/Name Changer.resx b/Name Changer.resx new file mode 100644 index 0000000..ff4c820 --- /dev/null +++ b/Name Changer.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1347, 18 + + + 1441, 18 + + + 1525, 18 + + \ No newline at end of file diff --git a/Name Changer.vb b/Name Changer.vb new file mode 100644 index 0000000..450bf32 --- /dev/null +++ b/Name Changer.vb @@ -0,0 +1,585 @@ +Public Class Name_Changer + 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 = 300 + Public minimumsizeheight As Integer = 400 + + Public savelines(200) As String + Public loadlines(200) As String + + 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() + + ShiftOSDesktop.pnlpanelbuttonnamechanger.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonnamechanger, ShiftOSDesktop.tbnamechangericon, ShiftOSDesktop.tbnamechangertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + loadnames() + loadicons() + showboughtitems() + 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(334, 450) '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.namechangername 'Remember to change to name of program!!!! + 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.namechangericontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 + + Public Sub loadnames() + txtknowledgeinputname.Text = ShiftOSDesktop.knowledgeinputname + txtshiftoriumname.Text = ShiftOSDesktop.shiftoriumname + txtclockname.Text = ShiftOSDesktop.clockname + txtshiftername.Text = ShiftOSDesktop.shiftername + txtcolourpickername.Text = ShiftOSDesktop.colourpickername + txtpongname.Text = ShiftOSDesktop.pongname + txtfileskimmername.Text = ShiftOSDesktop.fileskimmername + txtfileopenername.Text = ShiftOSDesktop.fileopenername + txtfilesavername.Text = ShiftOSDesktop.filesavername + txttextpadname.Text = ShiftOSDesktop.textpadname + txtgraphicpickername.Text = ShiftOSDesktop.graphicpickername + txtskinloadername.Text = ShiftOSDesktop.skinloadername + txtartpadname.Text = ShiftOSDesktop.artpadname + txtcalculatorname.Text = ShiftOSDesktop.calculatorname + txtaudioplayername.Text = ShiftOSDesktop.audioplayername + txtwebbrowsername.Text = ShiftOSDesktop.webbrowsername + txtvideoplayername.Text = ShiftOSDesktop.videoplayername + txtnamechanger.Text = ShiftOSDesktop.namechangername + txticonmanager.Text = ShiftOSDesktop.iconmanagername + txtterminalname.Text = ShiftOSDesktop.terminalname + End Sub + + Public Sub loadicons() + picknowledgeinputicon.BackgroundImage = ShiftOSDesktop.knowledgeinputicontitlebar + picshiftoriumicon.BackgroundImage = ShiftOSDesktop.shiftoriumicontitlebar + picclockicon.BackgroundImage = ShiftOSDesktop.clockicontitlebar + picshiftericon.BackgroundImage = ShiftOSDesktop.shiftericontitlebar + piccolourpickericon.BackgroundImage = ShiftOSDesktop.colourpickericontitlebar + picpongicon.BackgroundImage = ShiftOSDesktop.pongicontitlebar + picfileskimmericon.BackgroundImage = ShiftOSDesktop.fileskimmericontitlebar + picfileopenericon.BackgroundImage = ShiftOSDesktop.fileopenericontitlebar + picfilesavericon.BackgroundImage = ShiftOSDesktop.filesavericontitlebar + pictextpadicon.BackgroundImage = ShiftOSDesktop.textpadicontitlebar + picgraphicpickericon.BackgroundImage = ShiftOSDesktop.graphicpickericontitlebar + picskinloadericon.BackgroundImage = ShiftOSDesktop.skinloadericontitlebar + picartpadicon.BackgroundImage = ShiftOSDesktop.artpadicontitlebar + piccalculatoricon.BackgroundImage = ShiftOSDesktop.calculatoricontitlebar + picaudioplayericon.BackgroundImage = ShiftOSDesktop.audioplayericontitlebar + picwebbrowsericon.BackgroundImage = ShiftOSDesktop.webbrowsericontitlebar + picvideoplayericon.BackgroundImage = ShiftOSDesktop.videoplayericontitlebar + picnamechangericon.BackgroundImage = ShiftOSDesktop.namechangericontitlebar + piciconmanagericon.BackgroundImage = ShiftOSDesktop.iconmanagericontitlebar + picterminalicon.BackgroundImage = ShiftOSDesktop.terminalicontitlebar + End Sub + + Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click + applychanges() + End Sub + + Public Sub applychanges() + ShiftOSDesktop.knowledgeinputname = txtknowledgeinputname.Text + ShiftOSDesktop.shiftoriumname = txtshiftoriumname.Text + ShiftOSDesktop.clockname = txtclockname.Text + ShiftOSDesktop.shiftername = txtshiftername.Text + ShiftOSDesktop.colourpickername = txtcolourpickername.Text + ShiftOSDesktop.pongname = txtpongname.Text + ShiftOSDesktop.fileskimmername = txtfileskimmername.Text + ShiftOSDesktop.fileopenername = txtfileopenername.Text + ShiftOSDesktop.filesavername = txtfilesavername.Text + ShiftOSDesktop.textpadname = txttextpadname.Text + ShiftOSDesktop.graphicpickername = txtgraphicpickername.Text + ShiftOSDesktop.skinloadername = txtskinloadername.Text + ShiftOSDesktop.artpadname = txtartpadname.Text + ShiftOSDesktop.calculatorname = txtcalculatorname.Text + ShiftOSDesktop.audioplayername = txtaudioplayername.Text + ShiftOSDesktop.webbrowsername = txtwebbrowsername.Text + ShiftOSDesktop.videoplayername = txtvideoplayername.Text + ShiftOSDesktop.namechangername = txtnamechanger.Text + ShiftOSDesktop.iconmanagername = txticonmanager.Text + ShiftOSDesktop.terminalname = txtterminalname.Text + + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setupdesktop() + If Icon_Manager.Visible = True Then Icon_Manager.loadsettings() + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + savelines(0) = ShiftOSDesktop.artpadname + savelines(1) = ShiftOSDesktop.audioplayername + savelines(2) = ShiftOSDesktop.calculatorname + savelines(3) = ShiftOSDesktop.clockname + savelines(4) = ShiftOSDesktop.colourpickername + savelines(5) = ShiftOSDesktop.fileopenername + savelines(6) = ShiftOSDesktop.filesavername + savelines(7) = ShiftOSDesktop.fileskimmername + savelines(8) = ShiftOSDesktop.graphicpickername + savelines(9) = ShiftOSDesktop.knowledgeinputname + savelines(10) = ShiftOSDesktop.pongname + savelines(11) = ShiftOSDesktop.shiftername + savelines(12) = ShiftOSDesktop.shiftoriumname + savelines(13) = ShiftOSDesktop.skinloadername + savelines(14) = ShiftOSDesktop.terminalname + savelines(15) = ShiftOSDesktop.textpadname + savelines(16) = ShiftOSDesktop.videoplayername + savelines(17) = ShiftOSDesktop.webbrowsername + savelines(18) = ShiftOSDesktop.namechangername + savelines(19) = ShiftOSDesktop.iconmanagername + + File_Saver.savingprogram = "namechanger" + File_Saver.saveextention = ".nls" + File_Saver.Show() + End Sub + + Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click + File_Opener.Show() + File_Opener.openingprogram = "namechanger" + File_Opener.openextention = ".nls" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Public Sub loadnamesfromfile() + If loadlines(0) = "" Then Else ShiftOSDesktop.artpadname = loadlines(0) + If loadlines(1) = "" Then Else ShiftOSDesktop.audioplayername = loadlines(1) + If loadlines(2) = "" Then Else ShiftOSDesktop.calculatorname = loadlines(2) + If loadlines(3) = "" Then Else ShiftOSDesktop.clockname = loadlines(3) + If loadlines(4) = "" Then Else ShiftOSDesktop.colourpickername = loadlines(4) + If loadlines(5) = "" Then Else ShiftOSDesktop.fileopenername = loadlines(5) + If loadlines(6) = "" Then Else ShiftOSDesktop.filesavername = loadlines(6) + If loadlines(7) = "" Then Else ShiftOSDesktop.fileskimmername = loadlines(7) + If loadlines(8) = "" Then Else ShiftOSDesktop.graphicpickername = loadlines(8) + If loadlines(9) = "" Then Else ShiftOSDesktop.knowledgeinputname = loadlines(9) + If loadlines(10) = "" Then Else ShiftOSDesktop.pongname = loadlines(10) + If loadlines(11) = "" Then Else ShiftOSDesktop.shiftername = loadlines(11) + If loadlines(12) = "" Then Else ShiftOSDesktop.shiftoriumname = loadlines(12) + If loadlines(13) = "" Then Else ShiftOSDesktop.skinloadername = loadlines(13) + If loadlines(14) = "" Then Else ShiftOSDesktop.terminalname = loadlines(14) + If loadlines(15) = "" Then Else ShiftOSDesktop.textpadname = loadlines(15) + If loadlines(16) = "" Then Else ShiftOSDesktop.videoplayername = loadlines(16) + If loadlines(17) = "" Then Else ShiftOSDesktop.webbrowsername = loadlines(17) + If loadlines(18) = "" Then Else ShiftOSDesktop.namechangername = loadlines(18) + If loadlines(19) = "" Then Else ShiftOSDesktop.iconmanagername = loadlines(19) + loadnames() + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setupdesktop() + End Sub + + Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click + ShiftOSDesktop.artpadname = "Artpad" + ShiftOSDesktop.audioplayername = "Audio Player" + ShiftOSDesktop.calculatorname = "Calculator" + ShiftOSDesktop.clockname = "Clock" + ShiftOSDesktop.colourpickername = "Colour Picker" + ShiftOSDesktop.fileopenername = "File Opener" + ShiftOSDesktop.filesavername = "File Saver" + ShiftOSDesktop.fileskimmername = "File Skimmer" + ShiftOSDesktop.graphicpickername = "Graphic Picker" + ShiftOSDesktop.knowledgeinputname = "Knowledge Input" + ShiftOSDesktop.pongname = "Pong" + ShiftOSDesktop.shiftername = "Shifter" + ShiftOSDesktop.shiftoriumname = "Shiftorium" + ShiftOSDesktop.skinloadername = "Skin Loader" + ShiftOSDesktop.terminalname = "Terminal" + ShiftOSDesktop.textpadname = "TextPad" + ShiftOSDesktop.videoplayername = "Video Player" + ShiftOSDesktop.webbrowsername = "Web Browser" + ShiftOSDesktop.namechangername = "Name Changer" + ShiftOSDesktop.iconmanagername = "Icon Manager" + loadnames() + loadicons() + applychanges() + End Sub + + Private Sub showboughtitems() + If ShiftOSDesktop.boughtclock = True Then pnlclocksettings.Show() + If ShiftOSDesktop.boughtshifter = True Then pnlshiftersettings.Show() + If ShiftOSDesktop.boughtshifter = True Then pnlcolourpickersettings.Show() + If ShiftOSDesktop.boughtpong = True Then pnlpongsettings.Show() + If ShiftOSDesktop.boughtfileskimmer = True Then pnlfileskimmersettings.Show() + If ShiftOSDesktop.boughtfileskimmer = True Then pnlfileopenersettings.Show() + If ShiftOSDesktop.boughtfileskimmer = True Then pnlfilesaversettings.Show() + If ShiftOSDesktop.boughttextpad = True Then pnltextpadsettings.Show() + If ShiftOSDesktop.boughtskinning = True Then pnlgraphicpickersettings.Show() + If ShiftOSDesktop.boughtskinloader = True Then pnlskinloadersettings.Show() + If ShiftOSDesktop.boughtartpad = True Then pnlartpadsettings.Show() + If ShiftOSDesktop.boughtcalculator = True Then pnlcalculatorsettings.Show() + If ShiftOSDesktop.boughtaudioplayer = True Then pnlaudioplayersettings.Show() + If ShiftOSDesktop.boughtwebbrowser = True Then pnlwebbrowsersettings.Show() + If ShiftOSDesktop.boughtvideoplayer = True Then pnlvideoplayersettings.Show() + If ShiftOSDesktop.boughtnamechanger = True Then pnlnamechangersettings.Show() + If ShiftOSDesktop.boughticonmanager = True Then pnliconmanagersettings.Show() + End Sub +End Class \ No newline at end of file diff --git a/Pong.Designer.vb b/Pong.Designer.vb new file mode 100644 index 0000000..c2ddffb --- /dev/null +++ b/Pong.Designer.vb @@ -0,0 +1,731 @@ + _ +Partial Class Pong + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Pong)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnlintro = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.btnstartgame = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.pnllose = New System.Windows.Forms.Panel() + Me.lblmissedout = New System.Windows.Forms.Label() + Me.btnlosetryagain = New System.Windows.Forms.Button() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnlgamestats = New System.Windows.Forms.Panel() + Me.lblnextstats = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.lblpreviousstats = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnplayon = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.btncashout = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.lbllevelreached = New System.Windows.Forms.Label() + Me.pnlfinalstats = New System.Windows.Forms.Panel() + Me.btnplayagain = New System.Windows.Forms.Button() + Me.lblfinalcodepoints = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.lblfinalcomputerreward = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.lblfinallevelreward = New System.Windows.Forms.Label() + Me.lblfinallevelreached = New System.Windows.Forms.Label() + Me.lblfinalcodepointswithtext = New System.Windows.Forms.Label() + Me.lblbeatai = New System.Windows.Forms.Label() + Me.lblcountdown = New System.Windows.Forms.Label() + Me.ball = New System.Windows.Forms.Panel() + Me.paddleHuman = New System.Windows.Forms.PictureBox() + Me.paddleComputer = New System.Windows.Forms.Panel() + Me.lbllevelandtime = New System.Windows.Forms.Label() + Me.lblstatscodepoints = New System.Windows.Forms.Label() + Me.lblstatsY = New System.Windows.Forms.Label() + Me.lblstatsX = New System.Windows.Forms.Label() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.gameTimer = New System.Windows.Forms.Timer(Me.components) + Me.counter = New System.Windows.Forms.Timer(Me.components) + Me.tmrcountdown = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnlintro.SuspendLayout() + Me.pnllose.SuspendLayout() + Me.pnlgamestats.SuspendLayout() + Me.pnlfinalstats.SuspendLayout() + CType(Me.paddleHuman, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.pnlintro) + Me.pgcontents.Controls.Add(Me.pnllose) + Me.pgcontents.Controls.Add(Me.pnlgamestats) + Me.pgcontents.Controls.Add(Me.pnlfinalstats) + Me.pgcontents.Controls.Add(Me.lblbeatai) + Me.pgcontents.Controls.Add(Me.lblcountdown) + Me.pgcontents.Controls.Add(Me.ball) + Me.pgcontents.Controls.Add(Me.paddleHuman) + Me.pgcontents.Controls.Add(Me.paddleComputer) + Me.pgcontents.Controls.Add(Me.lbllevelandtime) + Me.pgcontents.Controls.Add(Me.lblstatscodepoints) + Me.pgcontents.Controls.Add(Me.lblstatsY) + Me.pgcontents.Controls.Add(Me.lblstatsX) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(696, 368) + Me.pgcontents.TabIndex = 20 + ' + 'pnlintro + ' + Me.pnlintro.Controls.Add(Me.Label6) + Me.pnlintro.Controls.Add(Me.btnstartgame) + Me.pnlintro.Controls.Add(Me.Label8) + Me.pnlintro.Location = New System.Drawing.Point(52, 29) + Me.pnlintro.Name = "pnlintro" + Me.pnlintro.Size = New System.Drawing.Size(595, 303) + Me.pnlintro.TabIndex = 13 + ' + 'Label6 + ' + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(3, 39) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(589, 227) + Me.Label6.TabIndex = 15 + Me.Label6.Text = resources.GetString("Label6.Text") + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'btnstartgame + ' + Me.btnstartgame.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstartgame.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnstartgame.Location = New System.Drawing.Point(186, 273) + Me.btnstartgame.Name = "btnstartgame" + Me.btnstartgame.Size = New System.Drawing.Size(242, 28) + Me.btnstartgame.TabIndex = 15 + Me.btnstartgame.Text = "Click this button to play pong!" + Me.btnstartgame.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.Black + Me.Label8.Location = New System.Drawing.Point(179, 5) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(250, 31) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "Welcome to Pong!" + ' + 'pnllose + ' + Me.pnllose.Controls.Add(Me.lblmissedout) + Me.pnllose.Controls.Add(Me.btnlosetryagain) + Me.pnllose.Controls.Add(Me.Label5) + Me.pnllose.Controls.Add(Me.Label1) + Me.pnllose.Location = New System.Drawing.Point(209, 71) + Me.pnllose.Name = "pnllose" + Me.pnllose.Size = New System.Drawing.Size(266, 214) + Me.pnllose.TabIndex = 10 + Me.pnllose.Visible = False + ' + 'lblmissedout + ' + Me.lblmissedout.Font = New System.Drawing.Font("Bookman Old Style", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmissedout.Location = New System.Drawing.Point(3, 175) + Me.lblmissedout.Name = "lblmissedout" + Me.lblmissedout.Size = New System.Drawing.Size(146, 35) + Me.lblmissedout.TabIndex = 3 + Me.lblmissedout.Text = "You Missed Out On:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "500 Codepoints" + Me.lblmissedout.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnlosetryagain + ' + Me.btnlosetryagain.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnlosetryagain.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnlosetryagain.Location = New System.Drawing.Point(155, 176) + Me.btnlosetryagain.Name = "btnlosetryagain" + Me.btnlosetryagain.Size = New System.Drawing.Size(106, 35) + Me.btnlosetryagain.TabIndex = 2 + Me.btnlosetryagain.Text = "Try Again" + Me.btnlosetryagain.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.Location = New System.Drawing.Point(7, 26) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(260, 163) + Me.Label5.TabIndex = 1 + Me.Label5.Text = resources.GetString("Label5.Text") + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(4, 4) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(265, 16) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Unfortunately you just lost the game..." + ' + 'pnlgamestats + ' + Me.pnlgamestats.Controls.Add(Me.lblnextstats) + Me.pnlgamestats.Controls.Add(Me.Label7) + Me.pnlgamestats.Controls.Add(Me.lblpreviousstats) + Me.pnlgamestats.Controls.Add(Me.Label4) + Me.pnlgamestats.Controls.Add(Me.btnplayon) + Me.pnlgamestats.Controls.Add(Me.Label3) + Me.pnlgamestats.Controls.Add(Me.btncashout) + Me.pnlgamestats.Controls.Add(Me.Label2) + Me.pnlgamestats.Controls.Add(Me.lbllevelreached) + Me.pnlgamestats.Location = New System.Drawing.Point(122, 84) + Me.pnlgamestats.Name = "pnlgamestats" + Me.pnlgamestats.Size = New System.Drawing.Size(466, 206) + Me.pnlgamestats.TabIndex = 6 + Me.pnlgamestats.Visible = False + ' + 'lblnextstats + ' + Me.lblnextstats.AutoSize = True + Me.lblnextstats.Location = New System.Drawing.Point(278, 136) + Me.lblnextstats.Name = "lblnextstats" + Me.lblnextstats.Size = New System.Drawing.Size(119, 52) + Me.lblnextstats.TabIndex = 8 + Me.lblnextstats.Text = "Initial Ball X Speed: 6" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Initial Ball Y Speed: 9" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increment X Speed: 0.5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increme" & _ + "nt Y Speed: 0.9" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(278, 119) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(124, 16) + Me.Label7.TabIndex = 7 + Me.Label7.Text = "Next Level Stats:" + ' + 'lblpreviousstats + ' + Me.lblpreviousstats.AutoSize = True + Me.lblpreviousstats.Location = New System.Drawing.Point(278, 54) + Me.lblpreviousstats.Name = "lblpreviousstats" + Me.lblpreviousstats.Size = New System.Drawing.Size(119, 52) + Me.lblpreviousstats.TabIndex = 6 + Me.lblpreviousstats.Text = "Initial Ball X Speed: 5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Initial Ball Y Speed: 7" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increment X Speed: 0.3" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increme" & _ + "nt Y Speed: 0.6" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(278, 37) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(154, 16) + Me.Label4.TabIndex = 5 + Me.Label4.Text = "Previous Level Stats:" + ' + 'btnplayon + ' + Me.btnplayon.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnplayon.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnplayon.Location = New System.Drawing.Point(32, 162) + Me.btnplayon.Name = "btnplayon" + Me.btnplayon.Size = New System.Drawing.Size(191, 35) + Me.btnplayon.TabIndex = 4 + Me.btnplayon.Text = "Play on for 3 codepoints!" + Me.btnplayon.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(8, 126) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(245, 33) + Me.Label3.TabIndex = 3 + Me.Label3.Text = "Or do you want to try your luck on the next level to increase your reward?" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btncashout + ' + Me.btncashout.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncashout.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncashout.Location = New System.Drawing.Point(32, 73) + Me.btncashout.Name = "btncashout" + Me.btncashout.Size = New System.Drawing.Size(191, 35) + Me.btncashout.TabIndex = 2 + Me.btncashout.Text = "Cash out with 1 codepoint!" + Me.btncashout.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(8, 37) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(245, 33) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Would you like the end the game now and cash out with your reward?" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbllevelreached + ' + Me.lbllevelreached.AutoSize = True + Me.lbllevelreached.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbllevelreached.Location = New System.Drawing.Point(149, 6) + Me.lbllevelreached.Name = "lbllevelreached" + Me.lbllevelreached.Size = New System.Drawing.Size(185, 20) + Me.lbllevelreached.TabIndex = 0 + Me.lbllevelreached.Text = "You Reached Level 2!" + ' + 'pnlfinalstats + ' + Me.pnlfinalstats.Controls.Add(Me.btnplayagain) + Me.pnlfinalstats.Controls.Add(Me.lblfinalcodepoints) + Me.pnlfinalstats.Controls.Add(Me.Label11) + Me.pnlfinalstats.Controls.Add(Me.lblfinalcomputerreward) + Me.pnlfinalstats.Controls.Add(Me.Label9) + Me.pnlfinalstats.Controls.Add(Me.lblfinallevelreward) + Me.pnlfinalstats.Controls.Add(Me.lblfinallevelreached) + Me.pnlfinalstats.Controls.Add(Me.lblfinalcodepointswithtext) + Me.pnlfinalstats.Location = New System.Drawing.Point(172, 74) + Me.pnlfinalstats.Name = "pnlfinalstats" + Me.pnlfinalstats.Size = New System.Drawing.Size(362, 226) + Me.pnlfinalstats.TabIndex = 9 + Me.pnlfinalstats.Visible = False + ' + 'btnplayagain + ' + Me.btnplayagain.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnplayagain.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnplayagain.Location = New System.Drawing.Point(5, 194) + Me.btnplayagain.Name = "btnplayagain" + Me.btnplayagain.Size = New System.Drawing.Size(352, 29) + Me.btnplayagain.TabIndex = 16 + Me.btnplayagain.Text = "Click this button to play again!" + Me.btnplayagain.UseVisualStyleBackColor = True + ' + 'lblfinalcodepoints + ' + Me.lblfinalcodepoints.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblfinalcodepoints.Location = New System.Drawing.Point(3, 124) + Me.lblfinalcodepoints.Name = "lblfinalcodepoints" + Me.lblfinalcodepoints.Size = New System.Drawing.Size(356, 73) + Me.lblfinalcodepoints.TabIndex = 15 + Me.lblfinalcodepoints.Text = "134 CP" + Me.lblfinalcodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(162, 82) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(33, 33) + Me.Label11.TabIndex = 14 + Me.Label11.Text = "+" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblfinalcomputerreward + ' + Me.lblfinalcomputerreward.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblfinalcomputerreward.Location = New System.Drawing.Point(193, 72) + Me.lblfinalcomputerreward.Name = "lblfinalcomputerreward" + Me.lblfinalcomputerreward.Size = New System.Drawing.Size(151, 52) + Me.lblfinalcomputerreward.TabIndex = 12 + Me.lblfinalcomputerreward.Text = "34" + Me.lblfinalcomputerreward.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label9 + ' + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(179, 31) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(180, 49) + Me.Label9.TabIndex = 11 + Me.Label9.Text = "Codepoints rewarded for beating the Computer" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblfinallevelreward + ' + Me.lblfinallevelreward.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblfinallevelreward.Location = New System.Drawing.Point(12, 72) + Me.lblfinallevelreward.Name = "lblfinallevelreward" + Me.lblfinallevelreward.Size = New System.Drawing.Size(151, 52) + Me.lblfinallevelreward.TabIndex = 10 + Me.lblfinallevelreward.Text = "100" + Me.lblfinallevelreward.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblfinallevelreached + ' + Me.lblfinallevelreached.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblfinallevelreached.Location = New System.Drawing.Point(3, 31) + Me.lblfinallevelreached.Name = "lblfinallevelreached" + Me.lblfinallevelreached.Size = New System.Drawing.Size(170, 49) + Me.lblfinallevelreached.TabIndex = 9 + Me.lblfinallevelreached.Text = "Codepoints rewarded for reaching level 10" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.lblfinallevelreached.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblfinalcodepointswithtext + ' + Me.lblfinalcodepointswithtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblfinalcodepointswithtext.Location = New System.Drawing.Point(3, 2) + Me.lblfinalcodepointswithtext.Name = "lblfinalcodepointswithtext" + Me.lblfinalcodepointswithtext.Size = New System.Drawing.Size(356, 26) + Me.lblfinalcodepointswithtext.TabIndex = 1 + Me.lblfinalcodepointswithtext.Text = "You cashed out with 134 codepoints!" + Me.lblfinalcodepointswithtext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblbeatai + ' + Me.lblbeatai.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbeatai.Location = New System.Drawing.Point(47, 41) + Me.lblbeatai.Name = "lblbeatai" + Me.lblbeatai.Size = New System.Drawing.Size(600, 30) + Me.lblbeatai.TabIndex = 8 + Me.lblbeatai.Text = "You got 2 codepoints for beating the Computer!" + Me.lblbeatai.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblbeatai.Visible = False + ' + 'lblcountdown + ' + Me.lblcountdown.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcountdown.Location = New System.Drawing.Point(182, 152) + Me.lblcountdown.Name = "lblcountdown" + Me.lblcountdown.Size = New System.Drawing.Size(315, 49) + Me.lblcountdown.TabIndex = 7 + Me.lblcountdown.Text = "3" + Me.lblcountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblcountdown.Visible = False + ' + 'ball + ' + Me.ball.BackColor = System.Drawing.Color.Black + Me.ball.Location = New System.Drawing.Point(300, 152) + Me.ball.Name = "ball" + Me.ball.Size = New System.Drawing.Size(20, 20) + Me.ball.TabIndex = 2 + ' + 'paddleHuman + ' + Me.paddleHuman.BackColor = System.Drawing.Color.Black + Me.paddleHuman.Location = New System.Drawing.Point(10, 134) + Me.paddleHuman.Name = "paddleHuman" + Me.paddleHuman.Size = New System.Drawing.Size(20, 100) + Me.paddleHuman.TabIndex = 3 + Me.paddleHuman.TabStop = False + ' + 'paddleComputer + ' + Me.paddleComputer.BackColor = System.Drawing.Color.Black + Me.paddleComputer.Location = New System.Drawing.Point(666, 134) + Me.paddleComputer.Name = "paddleComputer" + Me.paddleComputer.Size = New System.Drawing.Size(20, 100) + Me.paddleComputer.TabIndex = 1 + ' + 'lbllevelandtime + ' + Me.lbllevelandtime.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbllevelandtime.Location = New System.Drawing.Point(6, 3) + Me.lbllevelandtime.Name = "lbllevelandtime" + Me.lbllevelandtime.Size = New System.Drawing.Size(684, 22) + Me.lbllevelandtime.TabIndex = 4 + Me.lbllevelandtime.Text = "Level: 1 - 58 Seconds Left" + Me.lbllevelandtime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblstatscodepoints + ' + Me.lblstatscodepoints.Font = New System.Drawing.Font("Georgia", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblstatscodepoints.Location = New System.Drawing.Point(237, 335) + Me.lblstatscodepoints.Name = "lblstatscodepoints" + Me.lblstatscodepoints.Size = New System.Drawing.Size(219, 35) + Me.lblstatscodepoints.TabIndex = 12 + Me.lblstatscodepoints.Text = "Codepoints: " + Me.lblstatscodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblstatsY + ' + Me.lblstatsY.Font = New System.Drawing.Font("Georgia", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblstatsY.Location = New System.Drawing.Point(541, 335) + Me.lblstatsY.Name = "lblstatsY" + Me.lblstatsY.Size = New System.Drawing.Size(144, 35) + Me.lblstatsY.TabIndex = 11 + Me.lblstatsY.Text = "Yspeed:" + Me.lblstatsY.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblstatsX + ' + Me.lblstatsX.Font = New System.Drawing.Font("Georgia", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblstatsX.Location = New System.Drawing.Point(6, 335) + Me.lblstatsX.Name = "lblstatsX" + Me.lblstatsX.Size = New System.Drawing.Size(144, 35) + Me.lblstatsX.TabIndex = 5 + Me.lblstatsX.Text = "Xspeed: " + Me.lblstatsX.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 370) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 368) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(698, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 370) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 368) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(700, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconPong + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(55, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Pong" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(698, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 398) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(696, 2) + Me.pgbottom.TabIndex = 23 + ' + 'gameTimer + ' + Me.gameTimer.Interval = 30 + ' + 'counter + ' + Me.counter.Interval = 1000 + ' + 'tmrcountdown + ' + Me.tmrcountdown.Interval = 1000 + ' + 'Pong + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(700, 400) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.DoubleBuffered = True + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Pong" + Me.Text = "Pong" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnlintro.ResumeLayout(False) + Me.pnlintro.PerformLayout() + Me.pnllose.ResumeLayout(False) + Me.pnllose.PerformLayout() + Me.pnlgamestats.ResumeLayout(False) + Me.pnlgamestats.PerformLayout() + Me.pnlfinalstats.ResumeLayout(False) + Me.pnlfinalstats.PerformLayout() + CType(Me.paddleHuman, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents ball As System.Windows.Forms.Panel + Friend WithEvents paddleComputer As System.Windows.Forms.Panel + Friend WithEvents gameTimer As System.Windows.Forms.Timer + Friend WithEvents paddleHuman As System.Windows.Forms.PictureBox + Friend WithEvents lbllevelandtime As System.Windows.Forms.Label + Friend WithEvents lblstatsX As System.Windows.Forms.Label + Friend WithEvents counter As System.Windows.Forms.Timer + Friend WithEvents pnlgamestats As System.Windows.Forms.Panel + Friend WithEvents lblnextstats As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents lblpreviousstats As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnplayon As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btncashout As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents lbllevelreached As System.Windows.Forms.Label + Friend WithEvents lblcountdown As System.Windows.Forms.Label + Friend WithEvents tmrcountdown As System.Windows.Forms.Timer + Friend WithEvents lblbeatai As System.Windows.Forms.Label + Friend WithEvents pnlfinalstats As System.Windows.Forms.Panel + Friend WithEvents btnplayagain As System.Windows.Forms.Button + Friend WithEvents lblfinalcodepoints As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents lblfinalcomputerreward As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents lblfinallevelreward As System.Windows.Forms.Label + Friend WithEvents lblfinallevelreached As System.Windows.Forms.Label + Friend WithEvents lblfinalcodepointswithtext As System.Windows.Forms.Label + Friend WithEvents pnllose As System.Windows.Forms.Panel + Friend WithEvents lblmissedout As System.Windows.Forms.Label + Friend WithEvents btnlosetryagain As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents lblstatscodepoints As System.Windows.Forms.Label + Friend WithEvents lblstatsY As System.Windows.Forms.Label + Friend WithEvents pnlintro As System.Windows.Forms.Panel + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents btnstartgame As System.Windows.Forms.Button + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel +End Class diff --git a/Pong.resx b/Pong.resx new file mode 100644 index 0000000..21fa72b --- /dev/null +++ b/Pong.resx @@ -0,0 +1,146 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Pong was a very popular arcade game made back in 1972. It simulates a game of table tennis in which you must use your paddle as a shield to prevent the ball moving past it. At the same time a computer controlled paddle will attempt to prevent the ball from passing itself. + +This ShiftOS version of Pong is similar but slightly different to the original version of Pong. In this game you start at level 1 and must survive a whole minute without letting the ball pass your paddle. + +If you survive the minute you will earn some codepoints and be given the option to cash out with them or play on with the next level to earn more codepoints. You earn bonus codepoints if you manage to get the ball past the computer paddle. The higher the level the faster the ball will move! + +The higher the level the more codepoints you will get for beating it. You must be careful though as you have no lives. If the ball passes your paddle you start all the way back at level 1 and lose all codepoints earned in that game of Pong. So don't forget to cash out when it gets too difficult! + + + You played on for as long as you could, took a risk, moved forward but sadly didn't know when to give up and safely cashout with a reward. + +Remember you have no lives in this version of pong. This is a game of endurance and if you can't make it to the next level all codepoints earned since you started this game of pong are lost. + +If you think you are ready to try again then click the button below. Don't blow it this time! + + + + 17, 17 + + + 130, 17 + + + 223, 17 + + \ No newline at end of file diff --git a/Pong.vb b/Pong.vb new file mode 100644 index 0000000..5e6909d --- /dev/null +++ b/Pong.vb @@ -0,0 +1,639 @@ +Public Class Pong + 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 + + Dim rndInst As New Random() ' Random instance + Dim xVel As Single = 7 + Dim yVel As Single = 8 + Dim computerspeed = 8 + Dim rand As New Random + Dim level As Integer = 1 + Dim secondsleft As Integer = 60 + Dim casualposition As Integer + Dim xveldec As Double = 3.0 + Dim yveldec As Double = 3.0 + Dim incrementx As Double = 0.4 + Dim incrementy As Double = 0.2 + Dim levelxspeed As Integer = 3 + Dim levelyspeed As Integer = 3 + Dim beatairewardtotal As Integer + Dim beataireward As Integer = 1 + Dim levelrewards(50) As Integer + Dim totalreward As Integer + Dim countdown As Integer = 3 + Dim paused As Boolean = False + + 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() + + ShiftOSDesktop.pnlpanelbuttonpong.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonpong, ShiftOSDesktop.tbpongicon, ShiftOSDesktop.tbpongtext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + setuplevelrewards() + 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(700, 400) '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.pongname + 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.boughtpongicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.pongicontitlebar '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) + If paused = True Then paused = False + gameTimer.Start() + counter.Start() + Else + Me.MinimumSize = New Size(0, 0) + pgleft.Hide() + pgbottom.Hide() + pgright.Hide() + rolldownsize = Me.Height + Me.Height = Me.titlebar.Height + If paused = False Then paused = True + gameTimer.Stop() + counter.Stop() + 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 + + ' Move the paddle according to the mouse position. + Private Sub pongMain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, pgcontents.MouseMove, titlebar.MouseMove, ball.MouseMove, paddleComputer.MouseMove, paddleHuman.MouseMove, lblstatsX.MouseMove, lbllevelandtime.MouseMove, lblstatsY.MouseMove, lblstatscodepoints.MouseMove, pnlintro.MouseMove, Label6.MouseMove, Label8.MouseMove, btnstartgame.MouseMove + paddleHuman.Location = New Point(paddleHuman.Location.X, (MousePosition.Y - Me.Location.Y - ShiftOSDesktop.titlebarheight - ShiftOSDesktop.windowbordersize) - (paddleHuman.Height / 2)) + End Sub + + Private Sub gameTimer_Tick(sender As Object, e As EventArgs) Handles gameTimer.Tick + + 'Set the computer player to move according to the ball's position. + If ball.Location.X > 500 - xVel * 10 AndAlso xVel > 0 Then + If ball.Location.Y > paddleComputer.Location.Y + 50 Then + paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y + computerspeed) + End If + If ball.Location.Y < paddleComputer.Location.Y + 50 Then + paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y - computerspeed) + End If + casualposition = rand.Next(-150, 201) + Else + If paddleComputer.Location.Y > Me.Size.Height / 2 - paddleComputer.Height + casualposition Then 'used to be me.location.y + paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y - computerspeed) + End If + If paddleComputer.Location.Y < Me.Size.Height / 2 - paddleComputer.Height + casualposition Then 'used to be me.location.y + paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y + computerspeed) + End If + End If + + 'Set Xvel and Yvel speeds from decimal + If xVel > 0 Then xVel = Math.Round(xveldec) + If xVel < 0 Then xVel = -Math.Round(xveldec) + If yVel > 0 Then yVel = Math.Round(yveldec) + If yVel < 0 Then yVel = -Math.Round(yveldec) + + ' Move the game ball. + ball.Location = New Point(ball.Location.X + xVel, ball.Location.Y + yVel) + + ' Check for top wall. + If ball.Location.Y < 0 Then + ball.Location = New Point(ball.Location.X, 0) + yVel = -yVel + End If + + ' Check for bottom wall. + If ball.Location.Y > Me.Height - ball.Size.Height - titlebar.Height - pgbottom.Height Then + ball.Location = New Point(ball.Location.X, Me.Height - ball.Size.Height - titlebar.Height - pgbottom.Height) + yVel = -yVel + End If + + ' Check for player paddle. + If ball.Bounds.IntersectsWith(paddleHuman.Bounds) Then + ball.Location = New Point(paddleHuman.Location.X + ball.Size.Width, ball.Location.Y) + 'randomly increase x or y speed of ball + Select Case rand.Next(1, 3) + Case 1 + xveldec = xveldec + incrementx + Case 2 + If yveldec > 0 Then yveldec = yveldec + incrementy + If yveldec < 0 Then yveldec = yveldec - incrementy + End Select + xVel = -xVel + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + End If + + ' Check for computer paddle. + If ball.Bounds.IntersectsWith(paddleComputer.Bounds) Then + ball.Location = New Point(paddleComputer.Location.X - paddleComputer.Size.Width + 1, ball.Location.Y) + xveldec = xveldec + incrementx + xVel = -xVel + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + End If + + ' Check for left wall. + If ball.Location.X < -100 Then + ball.Location = New Point(Me.Size.Width / 2 + 200, Me.Size.Height / 2) + paddleComputer.Location = New Point(paddleComputer.Location.X, ball.Location.Y) + If xVel > 0 Then xVel = -xVel + pnllose.Show() + gameTimer.Stop() + counter.Stop() + lblmissedout.Text = "You Missed Out On:" & Environment.NewLine & levelrewards(level - 1) + beatairewardtotal & " Codepoints" + End If + + ' Check for right wall. + If ball.Location.X > Me.Width - ball.Size.Width - paddleComputer.Width + 100 Then + ball.Location = New Point(Me.Size.Width / 2 + 200, Me.Size.Height / 2) + paddleComputer.Location = New Point(paddleComputer.Location.X, ball.Location.Y) + If xVel > 0 Then xVel = -xVel + beatairewardtotal = beatairewardtotal + beataireward + lblbeatai.Show() + lblbeatai.Text = "You got " & beataireward & " codepoints for beating the Computer!" + tmrcountdown.Start() + gameTimer.Stop() + counter.Stop() + End If + + 'lblstats.Text = "Xspeed: " & Math.Abs(xVel) & " Yspeed: " & Math.Abs(yVel) & " Human Location: " & paddleHuman.Location.ToString & " Computer Location: " & paddleComputer.Location.ToString & Environment.NewLine & " Ball Location: " & ball.Location.ToString & " Xdec: " & xveldec & " Ydec: " & yveldec & " Xinc: " & incrementx & " Yinc: " & incrementy + lblstatsX.Text = "Xspeed: " & xveldec + lblstatsY.Text = "Yspeed: " & yveldec + lblstatscodepoints.Text = "Codepoints earned: " & levelrewards(level - 1) + beatairewardtotal + + lbllevelandtime.Text = "Level: " & level & " - " & secondsleft & " Seconds Left" + + If xVel > 20 OrElse xVel < -20 Then + paddleHuman.Width = Math.Abs(xVel) + paddleComputer.Width = Math.Abs(xVel) + Else + paddleHuman.Width = 20 + paddleComputer.Width = 20 + End If + + computerspeed = Math.Abs(yVel) + + ' pgcontents.Refresh() + ' pgcontents.CreateGraphics.FillRectangle(Brushes.Black, ball.Location.X, ball.Location.Y, ball.Width, ball.Height) + + End Sub + + Private Sub counter_Tick(sender As Object, e As EventArgs) Handles counter.Tick + secondsleft = secondsleft - 1 + If secondsleft = -1 Then + secondsleft = 60 + level = level + 1 + generatenextlevel() + pnlgamestats.Show() + counter.Stop() + gameTimer.Stop() + End If + lblstatscodepoints.Text = "Codepoints earned: " & levelrewards(level - 1) + beatairewardtotal + End Sub + + Private Sub btnplayon_Click(sender As Object, e As EventArgs) Handles btnplayon.Click + xveldec = levelxspeed + yveldec = levelyspeed + + tmrcountdown.Start() + lblbeatai.Text = "Get " & beataireward & " codepoints for beating the Computer!" + pnlgamestats.Hide() + lblbeatai.Show() + ball.Location = New Point(paddleHuman.Location.X + paddleHuman.Width + 50, paddleHuman.Location.Y + paddleHuman.Height / 2) + If xVel < 0 Then xVel = Math.Abs(xVel) + lbllevelandtime.Text = "Level: " & level & " - " & secondsleft & " Seconds Left" + End Sub + + 'Increase the ball speed stats for the next level + Private Sub generatenextlevel() + lbllevelreached.Text = "You Reached Level " & level & "!" + + lblpreviousstats.Text = "Initial Ball X Speed: " & levelxspeed & Environment.NewLine & _ + "Initial Ball Y Speed: " & levelyspeed & Environment.NewLine & _ + "Increment X Speed: " & incrementx & Environment.NewLine & _ + "Increment Y Speed: " & incrementy + + Select Case rand.Next(1, 3) + Case 1 + levelxspeed = levelxspeed + 1 + Case 2 + levelxspeed = levelxspeed + 2 + End Select + + Select Case rand.Next(1, 3) + Case 1 + levelyspeed = levelyspeed + 1 + Case 2 + levelyspeed = levelyspeed + 2 + End Select + + Select Case rand.Next(1, 6) + Case 1 + incrementx = incrementx + 0.1 + Case 2 + incrementx = incrementx + 0.2 + Case 3 + incrementy = incrementy + 0.1 + Case 4 + incrementy = incrementy + 0.2 + Case 5 + incrementy = incrementy + 0.3 + End Select + + lblnextstats.Text = "Initial Ball X Speed: " & levelxspeed & Environment.NewLine & _ + "Initial Ball Y Speed: " & levelyspeed & Environment.NewLine & _ + "Increment X Speed: " & incrementx & Environment.NewLine & _ + "Increment Y Speed: " & incrementy + + If level < 15 Then + beataireward = level * 2 + Else + beataireward = Math.Round(levelrewards(level) / 10) + End If + + totalreward = levelrewards(level - 1) + beatairewardtotal + + btncashout.Text = "Cash out with " & totalreward & " codepoints!" + btnplayon.Text = "Play on for " & levelrewards(level) + beatairewardtotal & " codepoints!" + End Sub + + Private Sub setuplevelrewards() + levelrewards(0) = 0 + levelrewards(1) = 1 + levelrewards(2) = 3 + levelrewards(3) = 7 + levelrewards(4) = 13 + levelrewards(5) = 20 + levelrewards(6) = 30 + levelrewards(7) = 45 + levelrewards(8) = 60 + levelrewards(9) = 80 + levelrewards(10) = 100 + levelrewards(11) = 125 + levelrewards(12) = 150 + levelrewards(13) = 200 + levelrewards(14) = 250 + levelrewards(15) = 300 + levelrewards(16) = 400 + levelrewards(17) = 500 + levelrewards(18) = 650 + levelrewards(19) = 800 + levelrewards(20) = 1000 + levelrewards(21) = 1250 + levelrewards(22) = 1600 + levelrewards(23) = 2000 + levelrewards(24) = 2500 + levelrewards(25) = 3000 + levelrewards(26) = 3750 + levelrewards(27) = 4500 + levelrewards(28) = 5500 + levelrewards(29) = 7000 + levelrewards(30) = 9000 + levelrewards(31) = 11000 + levelrewards(32) = 13500 + levelrewards(33) = 16000 + levelrewards(34) = 20000 + levelrewards(35) = 25000 + levelrewards(36) = 32000 + levelrewards(37) = 40000 + levelrewards(38) = 50000 + levelrewards(39) = 75000 + levelrewards(40) = 100000 + End Sub + + Private Sub countdown_Tick(sender As Object, e As EventArgs) Handles tmrcountdown.Tick + Select Case countdown + Case 0 + countdown = 3 + lblcountdown.Hide() + lblbeatai.Hide() + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + gameTimer.Start() + counter.Start() + tmrcountdown.Stop() + Case 1 + lblcountdown.Text = "1" + countdown = countdown - 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 2 + lblcountdown.Text = "2" + countdown = countdown - 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 3 + lblcountdown.Text = "3" + countdown = countdown - 1 + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + lblcountdown.Show() + End Select + End Sub + + Private Sub btncashout_Click(sender As Object, e As EventArgs) Handles btncashout.Click + pnlgamestats.Hide() + pnlfinalstats.Show() + lblfinalcodepointswithtext.Text = "You cashed out with " & totalreward & " codepoints!" + lblfinallevelreached.Text = "Codepoints rewarded for reaching level " & level - 1 + lblfinallevelreward.Text = levelrewards(level - 1) + lblfinalcomputerreward.Text = beatairewardtotal + lblfinalcodepoints.Text = totalreward & " CP" + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + totalreward + End Sub + + Private Sub newgame() + pnlfinalstats.Hide() + pnllose.Hide() + pnlintro.Hide() + + level = 1 + totalreward = 0 + beataireward = 2 + beatairewardtotal = 0 + secondsleft = 60 + + levelxspeed = 3 + levelyspeed = 3 + + incrementx = 0.4 + incrementy = 0.2 + + xveldec = levelxspeed + yveldec = levelyspeed + + tmrcountdown.Start() + lblbeatai.Text = "Get " & beataireward & " codepoints for beating the Computer!" + pnlgamestats.Hide() + lblbeatai.Show() + ball.Location = New Point(paddleHuman.Location.X + paddleHuman.Width + 50, paddleHuman.Location.Y + paddleHuman.Height / 2) + If xVel < 0 Then xVel = Math.Abs(xVel) + lbllevelandtime.Text = "Level: " & level & " - " & secondsleft & " Seconds Left" + End Sub + + Private Sub btnplayagain_Click(sender As Object, e As EventArgs) Handles btnplayagain.Click + newgame() + End Sub + + Private Sub btnlosetryagain_Click(sender As Object, e As EventArgs) Handles btnlosetryagain.Click + newgame() + End Sub + + Private Sub btnstartgame_Click(sender As Object, e As EventArgs) Handles btnstartgame.Click + newgame() + End Sub + + Private Sub rollupbutton_Paint(sender As Object, e As PaintEventArgs) Handles rollupbutton.Paint + + End Sub +End Class \ No newline at end of file diff --git a/PreviewCustomColorTable.vb b/PreviewCustomColorTable.vb new file mode 100644 index 0000000..6ce3d83 --- /dev/null +++ b/PreviewCustomColorTable.vb @@ -0,0 +1,330 @@ +' +' This code was generated by the .NET ToolStrip Customizer. +' http://toolstripcustomizer.codeplex.com/ +' + +Imports System.Drawing +Imports System.Windows.Forms + +Namespace MyNamespace + Class PreviewCustomColorTable + Inherits ProfessionalColorTable + Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color + Get + Return ButtonSelectedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlight() As Color + Get + Return ButtonPressedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color + Get + Return ButtonPressedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color + Get + Return ButtonCheckedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckSelectedBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckPressedBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripDark() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripLight() As Color + Get + Return Color.FromName("White") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color + Get + Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color + Get + Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color + Get + Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientBegin() As Color + Get + If Shifter.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientEnd() As Color + Get + If Shifter.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelected() As Color + Get + Return Color.FromArgb(Shifter.applaunchermouseovercolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property MenuItemBorder() As Color + Get + If Shifter.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuBorder() As Color + Get + If Shifter.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color + Get + If Shifter.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color + Get + If Shifter.skinapplauncherbutton(1) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color + Get + 'remember this is for clicking the button, the below must be changed in the future + If Shifter.skinapplauncherbutton(2) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttonclickedcolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color + Get + If Shifter.skinapplauncherbutton(2) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttonclickedcolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color + Get + If Shifter.skinapplauncherbutton(2) Is Nothing Then + Return Color.FromArgb(Shifter.applauncherbuttonclickedcolour.ToArgb) + Else + Return Color.Transparent + End If + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property SeparatorDark() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property SeparatorLight() As Color + Get + Return Color.FromName("ButtonHighlight") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property ToolStripBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color + Get + Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb) + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color + Get + Return Color.FromArgb(255, 242, 242, 242) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + End Class +End Namespace \ No newline at end of file diff --git a/Resources/3beepvirus.wav b/Resources/3beepvirus.wav new file mode 100644 index 0000000..c1af078 Binary files /dev/null and b/Resources/3beepvirus.wav differ diff --git a/Resources/ArtPadOval.png b/Resources/ArtPadOval.png new file mode 100644 index 0000000..fceec4c Binary files /dev/null and b/Resources/ArtPadOval.png differ diff --git a/Resources/ArtPadRectangle.png b/Resources/ArtPadRectangle.png new file mode 100644 index 0000000..d9e2aa2 Binary files /dev/null and b/Resources/ArtPadRectangle.png differ diff --git a/Resources/ArtPadcirclerubber.png b/Resources/ArtPadcirclerubber.png new file mode 100644 index 0000000..f7331e2 Binary files /dev/null and b/Resources/ArtPadcirclerubber.png differ diff --git a/Resources/ArtPadcirclerubberselected.png b/Resources/ArtPadcirclerubberselected.png new file mode 100644 index 0000000..17f0416 Binary files /dev/null and b/Resources/ArtPadcirclerubberselected.png differ diff --git a/Resources/ArtPaderacer.png b/Resources/ArtPaderacer.png new file mode 100644 index 0000000..051718c Binary files /dev/null and b/Resources/ArtPaderacer.png differ diff --git a/Resources/ArtPadfloodfill.png b/Resources/ArtPadfloodfill.png new file mode 100644 index 0000000..487585c Binary files /dev/null and b/Resources/ArtPadfloodfill.png differ diff --git a/Resources/ArtPadlinetool.png b/Resources/ArtPadlinetool.png new file mode 100644 index 0000000..eb7329b Binary files /dev/null and b/Resources/ArtPadlinetool.png differ diff --git a/Resources/ArtPadmagnify.png b/Resources/ArtPadmagnify.png new file mode 100644 index 0000000..1310233 Binary files /dev/null and b/Resources/ArtPadmagnify.png differ diff --git a/Resources/ArtPadnew.png b/Resources/ArtPadnew.png new file mode 100644 index 0000000..e1dc34f Binary files /dev/null and b/Resources/ArtPadnew.png differ diff --git a/Resources/ArtPadopen.png b/Resources/ArtPadopen.png new file mode 100644 index 0000000..9dc232b Binary files /dev/null and b/Resources/ArtPadopen.png differ diff --git a/Resources/ArtPadpaintbrush.png b/Resources/ArtPadpaintbrush.png new file mode 100644 index 0000000..c26ac3b Binary files /dev/null and b/Resources/ArtPadpaintbrush.png differ diff --git a/Resources/ArtPadpencil.png b/Resources/ArtPadpencil.png new file mode 100644 index 0000000..cf230e2 Binary files /dev/null and b/Resources/ArtPadpencil.png differ diff --git a/Resources/ArtPadpixelplacer.png b/Resources/ArtPadpixelplacer.png new file mode 100644 index 0000000..4cc338b Binary files /dev/null and b/Resources/ArtPadpixelplacer.png differ diff --git a/Resources/ArtPadredo.png b/Resources/ArtPadredo.png new file mode 100644 index 0000000..ef42439 Binary files /dev/null and b/Resources/ArtPadredo.png differ diff --git a/Resources/ArtPadsave.png b/Resources/ArtPadsave.png new file mode 100644 index 0000000..5a31d05 Binary files /dev/null and b/Resources/ArtPadsave.png differ diff --git a/Resources/ArtPadsquarerubber.png b/Resources/ArtPadsquarerubber.png new file mode 100644 index 0000000..16391ef Binary files /dev/null and b/Resources/ArtPadsquarerubber.png differ diff --git a/Resources/ArtPadsquarerubberselected.png b/Resources/ArtPadsquarerubberselected.png new file mode 100644 index 0000000..5991242 Binary files /dev/null and b/Resources/ArtPadsquarerubberselected.png differ diff --git a/Resources/ArtPadtexttool.png b/Resources/ArtPadtexttool.png new file mode 100644 index 0000000..a669a6d Binary files /dev/null and b/Resources/ArtPadtexttool.png differ diff --git a/Resources/ArtPadundo.png b/Resources/ArtPadundo.png new file mode 100644 index 0000000..6484122 Binary files /dev/null and b/Resources/ArtPadundo.png differ diff --git a/Resources/DSC01042.JPG b/Resources/DSC01042.JPG new file mode 100644 index 0000000..bebf8a3 Binary files /dev/null and b/Resources/DSC01042.JPG differ diff --git a/Resources/Gray Shades.png b/Resources/Gray Shades.png new file mode 100644 index 0000000..70945bc Binary files /dev/null and b/Resources/Gray Shades.png differ diff --git a/Resources/Receive.png b/Resources/Receive.png new file mode 100644 index 0000000..ded20a0 Binary files /dev/null and b/Resources/Receive.png differ diff --git a/Resources/ReceiveClicked.png b/Resources/ReceiveClicked.png new file mode 100644 index 0000000..f5f968b Binary files /dev/null and b/Resources/ReceiveClicked.png differ diff --git a/Resources/Send.png b/Resources/Send.png new file mode 100644 index 0000000..f4e4302 Binary files /dev/null and b/Resources/Send.png differ diff --git a/Resources/SendClicked.png b/Resources/SendClicked.png new file mode 100644 index 0000000..807f785 Binary files /dev/null and b/Resources/SendClicked.png differ diff --git a/Resources/Symbolinfo.png b/Resources/Symbolinfo.png new file mode 100644 index 0000000..659d9b3 Binary files /dev/null and b/Resources/Symbolinfo.png differ diff --git a/Resources/TotalBalanceClicked.png b/Resources/TotalBalanceClicked.png new file mode 100644 index 0000000..18ef996 Binary files /dev/null and b/Resources/TotalBalanceClicked.png differ diff --git a/Resources/TotalBalanceUnclicked.png b/Resources/TotalBalanceUnclicked.png new file mode 100644 index 0000000..0968413 Binary files /dev/null and b/Resources/TotalBalanceUnclicked.png differ diff --git a/Resources/anycolourshade.png b/Resources/anycolourshade.png new file mode 100644 index 0000000..70d12b7 Binary files /dev/null and b/Resources/anycolourshade.png differ diff --git a/Resources/anycolourshade2.png b/Resources/anycolourshade2.png new file mode 100644 index 0000000..9494e3a Binary files /dev/null and b/Resources/anycolourshade2.png differ diff --git a/Resources/anycolourshade3.png b/Resources/anycolourshade3.png new file mode 100644 index 0000000..a71abb0 Binary files /dev/null and b/Resources/anycolourshade3.png differ diff --git a/Resources/anycolourshade4.png b/Resources/anycolourshade4.png new file mode 100644 index 0000000..b33644b Binary files /dev/null and b/Resources/anycolourshade4.png differ diff --git a/Resources/appscapeaudioplayerbox.png b/Resources/appscapeaudioplayerbox.png new file mode 100644 index 0000000..1dd4096 Binary files /dev/null and b/Resources/appscapeaudioplayerbox.png differ diff --git a/Resources/appscapeaudioplayerprice.png b/Resources/appscapeaudioplayerprice.png new file mode 100644 index 0000000..5700c24 Binary files /dev/null and b/Resources/appscapeaudioplayerprice.png differ diff --git a/Resources/appscapeaudioplayerpricepressed.png b/Resources/appscapeaudioplayerpricepressed.png new file mode 100644 index 0000000..d79c687 Binary files /dev/null and b/Resources/appscapeaudioplayerpricepressed.png differ diff --git a/Resources/appscapecalculator.png b/Resources/appscapecalculator.png new file mode 100644 index 0000000..c08f92d Binary files /dev/null and b/Resources/appscapecalculator.png differ diff --git a/Resources/appscapecalculatorprice.png b/Resources/appscapecalculatorprice.png new file mode 100644 index 0000000..36402e4 Binary files /dev/null and b/Resources/appscapecalculatorprice.png differ diff --git a/Resources/appscapecalculatorpricepressed.png b/Resources/appscapecalculatorpricepressed.png new file mode 100644 index 0000000..fc815b8 Binary files /dev/null and b/Resources/appscapecalculatorpricepressed.png differ diff --git a/Resources/appscapedepositnowbutton.png b/Resources/appscapedepositnowbutton.png new file mode 100644 index 0000000..fc99814 Binary files /dev/null and b/Resources/appscapedepositnowbutton.png differ diff --git a/Resources/appscapedownloadbutton.png b/Resources/appscapedownloadbutton.png new file mode 100644 index 0000000..1ffaf7f Binary files /dev/null and b/Resources/appscapedownloadbutton.png differ diff --git a/Resources/appscapeinfoaudioplayertext.png b/Resources/appscapeinfoaudioplayertext.png new file mode 100644 index 0000000..4143b03 Binary files /dev/null and b/Resources/appscapeinfoaudioplayertext.png differ diff --git a/Resources/appscapeinfoaudioplayervisualpreview.png b/Resources/appscapeinfoaudioplayervisualpreview.png new file mode 100644 index 0000000..b3bbbed Binary files /dev/null and b/Resources/appscapeinfoaudioplayervisualpreview.png differ diff --git a/Resources/appscapeinfobackbutton.png b/Resources/appscapeinfobackbutton.png new file mode 100644 index 0000000..6025099 Binary files /dev/null and b/Resources/appscapeinfobackbutton.png differ diff --git a/Resources/appscapeinfobutton.png b/Resources/appscapeinfobutton.png new file mode 100644 index 0000000..41d9331 Binary files /dev/null and b/Resources/appscapeinfobutton.png differ diff --git a/Resources/appscapeinfobuttonpressed.png b/Resources/appscapeinfobuttonpressed.png new file mode 100644 index 0000000..148958c Binary files /dev/null and b/Resources/appscapeinfobuttonpressed.png differ diff --git a/Resources/appscapeinfobuybutton.png b/Resources/appscapeinfobuybutton.png new file mode 100644 index 0000000..cbbe4d3 Binary files /dev/null and b/Resources/appscapeinfobuybutton.png differ diff --git a/Resources/appscapeinfocalculatortext.png b/Resources/appscapeinfocalculatortext.png new file mode 100644 index 0000000..7833187 Binary files /dev/null and b/Resources/appscapeinfocalculatortext.png differ diff --git a/Resources/appscapeinfocalculatorvisualpreview.png b/Resources/appscapeinfocalculatorvisualpreview.png new file mode 100644 index 0000000..00ad970 Binary files /dev/null and b/Resources/appscapeinfocalculatorvisualpreview.png differ diff --git a/Resources/appscapeinfovideoplayertext.png b/Resources/appscapeinfovideoplayertext.png new file mode 100644 index 0000000..b73d5c9 Binary files /dev/null and b/Resources/appscapeinfovideoplayertext.png differ diff --git a/Resources/appscapeinfovideoplayervisualpreview.png b/Resources/appscapeinfovideoplayervisualpreview.png new file mode 100644 index 0000000..f22d6cc Binary files /dev/null and b/Resources/appscapeinfovideoplayervisualpreview.png differ diff --git a/Resources/appscapeinfowebbrowsertext.png b/Resources/appscapeinfowebbrowsertext.png new file mode 100644 index 0000000..27155d4 Binary files /dev/null and b/Resources/appscapeinfowebbrowsertext.png differ diff --git a/Resources/appscapeinfowebbrowservisualpreview.png b/Resources/appscapeinfowebbrowservisualpreview.png new file mode 100644 index 0000000..008e11e Binary files /dev/null and b/Resources/appscapeinfowebbrowservisualpreview.png differ diff --git a/Resources/appscapemoresoftware.png b/Resources/appscapemoresoftware.png new file mode 100644 index 0000000..915ef8c Binary files /dev/null and b/Resources/appscapemoresoftware.png differ diff --git a/Resources/appscapetitlebanner.png b/Resources/appscapetitlebanner.png new file mode 100644 index 0000000..4ca5d5f Binary files /dev/null and b/Resources/appscapetitlebanner.png differ diff --git a/Resources/appscapeundefinedprice.png b/Resources/appscapeundefinedprice.png new file mode 100644 index 0000000..80573ef Binary files /dev/null and b/Resources/appscapeundefinedprice.png differ diff --git a/Resources/appscapeundefinedpricepressed.png b/Resources/appscapeundefinedpricepressed.png new file mode 100644 index 0000000..deea443 Binary files /dev/null and b/Resources/appscapeundefinedpricepressed.png differ diff --git a/Resources/appscapevideoplayer.png b/Resources/appscapevideoplayer.png new file mode 100644 index 0000000..4b07adc Binary files /dev/null and b/Resources/appscapevideoplayer.png differ diff --git a/Resources/appscapevideoplayerprice.png b/Resources/appscapevideoplayerprice.png new file mode 100644 index 0000000..ef9b139 Binary files /dev/null and b/Resources/appscapevideoplayerprice.png differ diff --git a/Resources/appscapevideoplayerpricepressed.png b/Resources/appscapevideoplayerpricepressed.png new file mode 100644 index 0000000..4849f54 Binary files /dev/null and b/Resources/appscapevideoplayerpricepressed.png differ diff --git a/Resources/appscapewebbrowser.png b/Resources/appscapewebbrowser.png new file mode 100644 index 0000000..b469924 Binary files /dev/null and b/Resources/appscapewebbrowser.png differ diff --git a/Resources/appscapewebbrowserprice.png b/Resources/appscapewebbrowserprice.png new file mode 100644 index 0000000..a3cb24c Binary files /dev/null and b/Resources/appscapewebbrowserprice.png differ diff --git a/Resources/appscapewebbrowserpricepressed.png b/Resources/appscapewebbrowserpricepressed.png new file mode 100644 index 0000000..36ecfb1 Binary files /dev/null and b/Resources/appscapewebbrowserpricepressed.png differ diff --git a/Resources/appscapewelcometoappscape.png b/Resources/appscapewelcometoappscape.png new file mode 100644 index 0000000..92e17c9 Binary files /dev/null and b/Resources/appscapewelcometoappscape.png differ diff --git a/Resources/centrebutton.png b/Resources/centrebutton.png new file mode 100644 index 0000000..0578039 Binary files /dev/null and b/Resources/centrebutton.png differ diff --git a/Resources/centrebuttonpressed.png b/Resources/centrebuttonpressed.png new file mode 100644 index 0000000..52c2725 Binary files /dev/null and b/Resources/centrebuttonpressed.png differ diff --git a/Resources/deletefile.png b/Resources/deletefile.png new file mode 100644 index 0000000..89bcc65 Binary files /dev/null and b/Resources/deletefile.png differ diff --git a/Resources/deletefolder.png b/Resources/deletefolder.png new file mode 100644 index 0000000..afcf19f Binary files /dev/null and b/Resources/deletefolder.png differ diff --git a/Resources/dial-up-modem-02.wav b/Resources/dial-up-modem-02.wav new file mode 100644 index 0000000..f6bb696 Binary files /dev/null and b/Resources/dial-up-modem-02.wav differ diff --git a/Resources/downarrow.png b/Resources/downarrow.png new file mode 100644 index 0000000..15d3663 Binary files /dev/null and b/Resources/downarrow.png differ diff --git a/Resources/fileskimmericon.fw.png b/Resources/fileskimmericon.fw.png new file mode 100644 index 0000000..cb4262b Binary files /dev/null and b/Resources/fileskimmericon.fw.png differ diff --git a/Resources/iconArtpad.png b/Resources/iconArtpad.png new file mode 100644 index 0000000..103eef8 Binary files /dev/null and b/Resources/iconArtpad.png differ diff --git a/Resources/iconAudioPlayer.png b/Resources/iconAudioPlayer.png new file mode 100644 index 0000000..a445af4 Binary files /dev/null and b/Resources/iconAudioPlayer.png differ diff --git a/Resources/iconBitnoteDigger.png b/Resources/iconBitnoteDigger.png new file mode 100644 index 0000000..42cbae3 Binary files /dev/null and b/Resources/iconBitnoteDigger.png differ diff --git a/Resources/iconBitnoteWallet.png b/Resources/iconBitnoteWallet.png new file mode 100644 index 0000000..1f06a17 Binary files /dev/null and b/Resources/iconBitnoteWallet.png differ diff --git a/Resources/iconCalculator.png b/Resources/iconCalculator.png new file mode 100644 index 0000000..4a15583 Binary files /dev/null and b/Resources/iconCalculator.png differ diff --git a/Resources/iconClock.png b/Resources/iconClock.png new file mode 100644 index 0000000..2bcd19a Binary files /dev/null and b/Resources/iconClock.png differ diff --git a/Resources/iconColourPicker.fw.png b/Resources/iconColourPicker.fw.png new file mode 100644 index 0000000..ece25ab Binary files /dev/null and b/Resources/iconColourPicker.fw.png differ diff --git a/Resources/iconDownloader.png b/Resources/iconDownloader.png new file mode 100644 index 0000000..9a3ef2b Binary files /dev/null and b/Resources/iconDownloader.png differ diff --git a/Resources/iconFileOpener.fw.png b/Resources/iconFileOpener.fw.png new file mode 100644 index 0000000..578d499 Binary files /dev/null and b/Resources/iconFileOpener.fw.png differ diff --git a/Resources/iconFileSaver.fw.png b/Resources/iconFileSaver.fw.png new file mode 100644 index 0000000..351b5d4 Binary files /dev/null and b/Resources/iconFileSaver.fw.png differ diff --git a/Resources/iconFileSkimmer.png b/Resources/iconFileSkimmer.png new file mode 100644 index 0000000..cb4262b Binary files /dev/null and b/Resources/iconFileSkimmer.png differ diff --git a/Resources/iconIconManager.png b/Resources/iconIconManager.png new file mode 100644 index 0000000..99246e9 Binary files /dev/null and b/Resources/iconIconManager.png differ diff --git a/Resources/iconInfoBox.fw.png b/Resources/iconInfoBox.fw.png new file mode 100644 index 0000000..0c9ebbd Binary files /dev/null and b/Resources/iconInfoBox.fw.png differ diff --git a/Resources/iconKnowledgeInput.png b/Resources/iconKnowledgeInput.png new file mode 100644 index 0000000..b5e513f Binary files /dev/null and b/Resources/iconKnowledgeInput.png differ diff --git a/Resources/iconNameChanger.png b/Resources/iconNameChanger.png new file mode 100644 index 0000000..7d94b21 Binary files /dev/null and b/Resources/iconNameChanger.png differ diff --git a/Resources/iconPong.png b/Resources/iconPong.png new file mode 100644 index 0000000..c96cd58 Binary files /dev/null and b/Resources/iconPong.png differ diff --git a/Resources/iconShifter.png b/Resources/iconShifter.png new file mode 100644 index 0000000..07344bf Binary files /dev/null and b/Resources/iconShifter.png differ diff --git a/Resources/iconShiftnet.png b/Resources/iconShiftnet.png new file mode 100644 index 0000000..405662d Binary files /dev/null and b/Resources/iconShiftnet.png differ diff --git a/Resources/iconShiftorium.png b/Resources/iconShiftorium.png new file mode 100644 index 0000000..a72239e Binary files /dev/null and b/Resources/iconShiftorium.png differ diff --git a/Resources/iconSkinLoader.png b/Resources/iconSkinLoader.png new file mode 100644 index 0000000..1df8f53 Binary files /dev/null and b/Resources/iconSkinLoader.png differ diff --git a/Resources/iconSkinShifter.png b/Resources/iconSkinShifter.png new file mode 100644 index 0000000..cccc0d1 Binary files /dev/null and b/Resources/iconSkinShifter.png differ diff --git a/Resources/iconTerminal.png b/Resources/iconTerminal.png new file mode 100644 index 0000000..df5e779 Binary files /dev/null and b/Resources/iconTerminal.png differ diff --git a/Resources/iconTextPad.png b/Resources/iconTextPad.png new file mode 100644 index 0000000..0d536ce Binary files /dev/null and b/Resources/iconTextPad.png differ diff --git a/Resources/iconVideoPlayer.png b/Resources/iconVideoPlayer.png new file mode 100644 index 0000000..17a9043 Binary files /dev/null and b/Resources/iconVideoPlayer.png differ diff --git a/Resources/iconWebBrowser.png b/Resources/iconWebBrowser.png new file mode 100644 index 0000000..e22117f Binary files /dev/null and b/Resources/iconWebBrowser.png differ diff --git a/Resources/icongraphicpicker.png b/Resources/icongraphicpicker.png new file mode 100644 index 0000000..59ded9f Binary files /dev/null and b/Resources/icongraphicpicker.png differ diff --git a/Resources/iconshutdown.png b/Resources/iconshutdown.png new file mode 100644 index 0000000..d4959c2 Binary files /dev/null and b/Resources/iconshutdown.png differ diff --git a/Resources/infobox.wav b/Resources/infobox.wav new file mode 100644 index 0000000..3c6f3f2 Binary files /dev/null and b/Resources/infobox.wav differ diff --git a/Resources/loadbutton.png b/Resources/loadbutton.png new file mode 100644 index 0000000..54ede1c Binary files /dev/null and b/Resources/loadbutton.png differ diff --git a/Resources/newfolder.png b/Resources/newfolder.png new file mode 100644 index 0000000..61e3d80 Binary files /dev/null and b/Resources/newfolder.png differ diff --git a/Resources/newicon.png b/Resources/newicon.png new file mode 100644 index 0000000..0d6db34 Binary files /dev/null and b/Resources/newicon.png differ diff --git a/Resources/nextbutton.png b/Resources/nextbutton.png new file mode 100644 index 0000000..2fdb3ff Binary files /dev/null and b/Resources/nextbutton.png differ diff --git a/Resources/openicon.png b/Resources/openicon.png new file mode 100644 index 0000000..8239c2e Binary files /dev/null and b/Resources/openicon.png differ diff --git a/Resources/pausebutton.png b/Resources/pausebutton.png new file mode 100644 index 0000000..7119b30 Binary files /dev/null and b/Resources/pausebutton.png differ diff --git a/Resources/pixelsetter.png b/Resources/pixelsetter.png new file mode 100644 index 0000000..4dae604 Binary files /dev/null and b/Resources/pixelsetter.png differ diff --git a/Resources/playbutton.png b/Resources/playbutton.png new file mode 100644 index 0000000..4b701f4 Binary files /dev/null and b/Resources/playbutton.png differ diff --git a/Resources/previousbutton.png b/Resources/previousbutton.png new file mode 100644 index 0000000..69a1c93 Binary files /dev/null and b/Resources/previousbutton.png differ diff --git a/Resources/rolldown.wav b/Resources/rolldown.wav new file mode 100644 index 0000000..ede21d3 Binary files /dev/null and b/Resources/rolldown.wav differ diff --git a/Resources/rollup.wav b/Resources/rollup.wav new file mode 100644 index 0000000..3e44e72 Binary files /dev/null and b/Resources/rollup.wav differ diff --git a/Resources/saveicon.png b/Resources/saveicon.png new file mode 100644 index 0000000..6404b15 Binary files /dev/null and b/Resources/saveicon.png differ diff --git a/Resources/skindownarrow.png b/Resources/skindownarrow.png new file mode 100644 index 0000000..2a568d0 Binary files /dev/null and b/Resources/skindownarrow.png differ diff --git a/Resources/skinfile.png b/Resources/skinfile.png new file mode 100644 index 0000000..11048fb Binary files /dev/null and b/Resources/skinfile.png differ diff --git a/Resources/skinuparrow.png b/Resources/skinuparrow.png new file mode 100644 index 0000000..753dab1 Binary files /dev/null and b/Resources/skinuparrow.png differ diff --git a/Resources/stopbutton.png b/Resources/stopbutton.png new file mode 100644 index 0000000..b4df28d Binary files /dev/null and b/Resources/stopbutton.png differ diff --git a/Resources/stretchbutton.png b/Resources/stretchbutton.png new file mode 100644 index 0000000..7c1d3f3 Binary files /dev/null and b/Resources/stretchbutton.png differ diff --git a/Resources/stretchbuttonpressed.png b/Resources/stretchbuttonpressed.png new file mode 100644 index 0000000..63ae251 Binary files /dev/null and b/Resources/stretchbuttonpressed.png differ diff --git a/Resources/test.png b/Resources/test.png new file mode 100644 index 0000000..7a391e5 Binary files /dev/null and b/Resources/test.png differ diff --git a/Resources/textpad.fw.png b/Resources/textpad.fw.png new file mode 100644 index 0000000..0d536ce Binary files /dev/null and b/Resources/textpad.fw.png differ diff --git a/Resources/tilebutton.png b/Resources/tilebutton.png new file mode 100644 index 0000000..2504be2 Binary files /dev/null and b/Resources/tilebutton.png differ diff --git a/Resources/tilebuttonpressed.png b/Resources/tilebuttonpressed.png new file mode 100644 index 0000000..6621cb2 Binary files /dev/null and b/Resources/tilebuttonpressed.png differ diff --git a/Resources/transactionsClicked.png b/Resources/transactionsClicked.png new file mode 100644 index 0000000..cf78531 Binary files /dev/null and b/Resources/transactionsClicked.png differ diff --git a/Resources/transactionsUnclicked.png b/Resources/transactionsUnclicked.png new file mode 100644 index 0000000..0af55df Binary files /dev/null and b/Resources/transactionsUnclicked.png differ diff --git a/Resources/typesound.wav b/Resources/typesound.wav new file mode 100644 index 0000000..d3e381f Binary files /dev/null and b/Resources/typesound.wav differ diff --git a/Resources/uparrow.png b/Resources/uparrow.png new file mode 100644 index 0000000..55a1d61 Binary files /dev/null and b/Resources/uparrow.png differ diff --git a/Resources/updatecustomcolourpallets.png b/Resources/updatecustomcolourpallets.png new file mode 100644 index 0000000..61e7f90 Binary files /dev/null and b/Resources/updatecustomcolourpallets.png differ diff --git a/Resources/upgradealartpad.png b/Resources/upgradealartpad.png new file mode 100644 index 0000000..fa0e6ce Binary files /dev/null and b/Resources/upgradealartpad.png differ diff --git a/Resources/upgradealclock.png b/Resources/upgradealclock.png new file mode 100644 index 0000000..af944a1 Binary files /dev/null and b/Resources/upgradealclock.png differ diff --git a/Resources/upgradealfileskimmer.png b/Resources/upgradealfileskimmer.png new file mode 100644 index 0000000..9cb4a99 Binary files /dev/null and b/Resources/upgradealfileskimmer.png differ diff --git a/Resources/upgradealpong.png b/Resources/upgradealpong.png new file mode 100644 index 0000000..0f60a2c Binary files /dev/null and b/Resources/upgradealpong.png differ diff --git a/Resources/upgradealshifter.png b/Resources/upgradealshifter.png new file mode 100644 index 0000000..a8a7728 Binary files /dev/null and b/Resources/upgradealshifter.png differ diff --git a/Resources/upgradealshiftorium.png b/Resources/upgradealshiftorium.png new file mode 100644 index 0000000..71fe105 Binary files /dev/null and b/Resources/upgradealshiftorium.png differ diff --git a/Resources/upgradealtextpad.png b/Resources/upgradealtextpad.png new file mode 100644 index 0000000..857139f Binary files /dev/null and b/Resources/upgradealtextpad.png differ diff --git a/Resources/upgradeamandpm.png b/Resources/upgradeamandpm.png new file mode 100644 index 0000000..dd6b35d Binary files /dev/null and b/Resources/upgradeamandpm.png differ diff --git a/Resources/upgradeapplaunchermenu.png b/Resources/upgradeapplaunchermenu.png new file mode 100644 index 0000000..ba82af9 Binary files /dev/null and b/Resources/upgradeapplaunchermenu.png differ diff --git a/Resources/upgradeapplaunchershutdown.png b/Resources/upgradeapplaunchershutdown.png new file mode 100644 index 0000000..ee5097b Binary files /dev/null and b/Resources/upgradeapplaunchershutdown.png differ diff --git a/Resources/upgradeartpad.png b/Resources/upgradeartpad.png new file mode 100644 index 0000000..ef66c2c Binary files /dev/null and b/Resources/upgradeartpad.png differ diff --git a/Resources/upgradeartpad128colorpallets.png b/Resources/upgradeartpad128colorpallets.png new file mode 100644 index 0000000..6fbaf99 Binary files /dev/null and b/Resources/upgradeartpad128colorpallets.png differ diff --git a/Resources/upgradeartpad16colorpallets.png b/Resources/upgradeartpad16colorpallets.png new file mode 100644 index 0000000..b4dfd50 Binary files /dev/null and b/Resources/upgradeartpad16colorpallets.png differ diff --git a/Resources/upgradeartpad32colorpallets.png b/Resources/upgradeartpad32colorpallets.png new file mode 100644 index 0000000..1a1eda4 Binary files /dev/null and b/Resources/upgradeartpad32colorpallets.png differ diff --git a/Resources/upgradeartpad4colorpallets.png b/Resources/upgradeartpad4colorpallets.png new file mode 100644 index 0000000..d18758b Binary files /dev/null and b/Resources/upgradeartpad4colorpallets.png differ diff --git a/Resources/upgradeartpad64colorpallets.png b/Resources/upgradeartpad64colorpallets.png new file mode 100644 index 0000000..ba665ae Binary files /dev/null and b/Resources/upgradeartpad64colorpallets.png differ diff --git a/Resources/upgradeartpad8colorpallets.png b/Resources/upgradeartpad8colorpallets.png new file mode 100644 index 0000000..f4bf2bd Binary files /dev/null and b/Resources/upgradeartpad8colorpallets.png differ diff --git a/Resources/upgradeartpaderaser.png b/Resources/upgradeartpaderaser.png new file mode 100644 index 0000000..ee6a37c Binary files /dev/null and b/Resources/upgradeartpaderaser.png differ diff --git a/Resources/upgradeartpadfilltool.png b/Resources/upgradeartpadfilltool.png new file mode 100644 index 0000000..6dcead2 Binary files /dev/null and b/Resources/upgradeartpadfilltool.png differ diff --git a/Resources/upgradeartpadicon.png b/Resources/upgradeartpadicon.png new file mode 100644 index 0000000..a499621 Binary files /dev/null and b/Resources/upgradeartpadicon.png differ diff --git a/Resources/upgradeartpadlimitlesspixels.png b/Resources/upgradeartpadlimitlesspixels.png new file mode 100644 index 0000000..7163005 Binary files /dev/null and b/Resources/upgradeartpadlimitlesspixels.png differ diff --git a/Resources/upgradeartpadlinetool.png b/Resources/upgradeartpadlinetool.png new file mode 100644 index 0000000..869b21d Binary files /dev/null and b/Resources/upgradeartpadlinetool.png differ diff --git a/Resources/upgradeartpadload.png b/Resources/upgradeartpadload.png new file mode 100644 index 0000000..2c5f061 Binary files /dev/null and b/Resources/upgradeartpadload.png differ diff --git a/Resources/upgradeartpadnew.png b/Resources/upgradeartpadnew.png new file mode 100644 index 0000000..2672079 Binary files /dev/null and b/Resources/upgradeartpadnew.png differ diff --git a/Resources/upgradeartpadovaltool.png b/Resources/upgradeartpadovaltool.png new file mode 100644 index 0000000..fa12d60 Binary files /dev/null and b/Resources/upgradeartpadovaltool.png differ diff --git a/Resources/upgradeartpadpaintbrushtool.png b/Resources/upgradeartpadpaintbrushtool.png new file mode 100644 index 0000000..330ee32 Binary files /dev/null and b/Resources/upgradeartpadpaintbrushtool.png differ diff --git a/Resources/upgradeartpadpenciltool.png b/Resources/upgradeartpadpenciltool.png new file mode 100644 index 0000000..d8eae9c Binary files /dev/null and b/Resources/upgradeartpadpenciltool.png differ diff --git a/Resources/upgradeartpadpixellimit1024.png b/Resources/upgradeartpadpixellimit1024.png new file mode 100644 index 0000000..c40557e Binary files /dev/null and b/Resources/upgradeartpadpixellimit1024.png differ diff --git a/Resources/upgradeartpadpixellimit16.png b/Resources/upgradeartpadpixellimit16.png new file mode 100644 index 0000000..7867b43 Binary files /dev/null and b/Resources/upgradeartpadpixellimit16.png differ diff --git a/Resources/upgradeartpadpixellimit16384.png b/Resources/upgradeartpadpixellimit16384.png new file mode 100644 index 0000000..9496f09 Binary files /dev/null and b/Resources/upgradeartpadpixellimit16384.png differ diff --git a/Resources/upgradeartpadpixellimit256.png b/Resources/upgradeartpadpixellimit256.png new file mode 100644 index 0000000..fb3b9d8 Binary files /dev/null and b/Resources/upgradeartpadpixellimit256.png differ diff --git a/Resources/upgradeartpadpixellimit4.png b/Resources/upgradeartpadpixellimit4.png new file mode 100644 index 0000000..ddce437 Binary files /dev/null and b/Resources/upgradeartpadpixellimit4.png differ diff --git a/Resources/upgradeartpadpixellimit4096.png b/Resources/upgradeartpadpixellimit4096.png new file mode 100644 index 0000000..6ff819f Binary files /dev/null and b/Resources/upgradeartpadpixellimit4096.png differ diff --git a/Resources/upgradeartpadpixellimit64.png b/Resources/upgradeartpadpixellimit64.png new file mode 100644 index 0000000..29eb05f Binary files /dev/null and b/Resources/upgradeartpadpixellimit64.png differ diff --git a/Resources/upgradeartpadpixellimit65536.png b/Resources/upgradeartpadpixellimit65536.png new file mode 100644 index 0000000..5cc23d4 Binary files /dev/null and b/Resources/upgradeartpadpixellimit65536.png differ diff --git a/Resources/upgradeartpadpixellimit8.png b/Resources/upgradeartpadpixellimit8.png new file mode 100644 index 0000000..f21e03e Binary files /dev/null and b/Resources/upgradeartpadpixellimit8.png differ diff --git a/Resources/upgradeartpadpixelplacer.png b/Resources/upgradeartpadpixelplacer.png new file mode 100644 index 0000000..88f1a9a Binary files /dev/null and b/Resources/upgradeartpadpixelplacer.png differ diff --git a/Resources/upgradeartpadpixelplacermovementmode.png b/Resources/upgradeartpadpixelplacermovementmode.png new file mode 100644 index 0000000..39097dc Binary files /dev/null and b/Resources/upgradeartpadpixelplacermovementmode.png differ diff --git a/Resources/upgradeartpadrectangletool.png b/Resources/upgradeartpadrectangletool.png new file mode 100644 index 0000000..0647fa7 Binary files /dev/null and b/Resources/upgradeartpadrectangletool.png differ diff --git a/Resources/upgradeartpadredo.png b/Resources/upgradeartpadredo.png new file mode 100644 index 0000000..c574abd Binary files /dev/null and b/Resources/upgradeartpadredo.png differ diff --git a/Resources/upgradeartpadsave.png b/Resources/upgradeartpadsave.png new file mode 100644 index 0000000..5d464a9 Binary files /dev/null and b/Resources/upgradeartpadsave.png differ diff --git a/Resources/upgradeartpadtexttool.png b/Resources/upgradeartpadtexttool.png new file mode 100644 index 0000000..acf7d56 Binary files /dev/null and b/Resources/upgradeartpadtexttool.png differ diff --git a/Resources/upgradeartpadundo.png b/Resources/upgradeartpadundo.png new file mode 100644 index 0000000..e60c686 Binary files /dev/null and b/Resources/upgradeartpadundo.png differ diff --git a/Resources/upgradeautoscrollterminal.png b/Resources/upgradeautoscrollterminal.png new file mode 100644 index 0000000..096377d Binary files /dev/null and b/Resources/upgradeautoscrollterminal.png differ diff --git a/Resources/upgradeblue.png b/Resources/upgradeblue.png new file mode 100644 index 0000000..d611fd7 Binary files /dev/null and b/Resources/upgradeblue.png differ diff --git a/Resources/upgradebluecustom.png b/Resources/upgradebluecustom.png new file mode 100644 index 0000000..15ff419 Binary files /dev/null and b/Resources/upgradebluecustom.png differ diff --git a/Resources/upgradeblueshades.png b/Resources/upgradeblueshades.png new file mode 100644 index 0000000..e24073b Binary files /dev/null and b/Resources/upgradeblueshades.png differ diff --git a/Resources/upgradeblueshadeset.png b/Resources/upgradeblueshadeset.png new file mode 100644 index 0000000..d1df0a6 Binary files /dev/null and b/Resources/upgradeblueshadeset.png differ diff --git a/Resources/upgradebrown.png b/Resources/upgradebrown.png new file mode 100644 index 0000000..26946f1 Binary files /dev/null and b/Resources/upgradebrown.png differ diff --git a/Resources/upgradebrowncustom.png b/Resources/upgradebrowncustom.png new file mode 100644 index 0000000..689da23 Binary files /dev/null and b/Resources/upgradebrowncustom.png differ diff --git a/Resources/upgradebrownshades.png b/Resources/upgradebrownshades.png new file mode 100644 index 0000000..39da965 Binary files /dev/null and b/Resources/upgradebrownshades.png differ diff --git a/Resources/upgradebrownshadeset.png b/Resources/upgradebrownshadeset.png new file mode 100644 index 0000000..dcaf86b Binary files /dev/null and b/Resources/upgradebrownshadeset.png differ diff --git a/Resources/upgradeclock.png b/Resources/upgradeclock.png new file mode 100644 index 0000000..c89ffeb Binary files /dev/null and b/Resources/upgradeclock.png differ diff --git a/Resources/upgradeclockicon.png b/Resources/upgradeclockicon.png new file mode 100644 index 0000000..d31ab31 Binary files /dev/null and b/Resources/upgradeclockicon.png differ diff --git a/Resources/upgradeclosebutton.gif b/Resources/upgradeclosebutton.gif new file mode 100644 index 0000000..eb45ea6 Binary files /dev/null and b/Resources/upgradeclosebutton.gif differ diff --git a/Resources/upgradecolourpickericon.png b/Resources/upgradecolourpickericon.png new file mode 100644 index 0000000..a9a1e2d Binary files /dev/null and b/Resources/upgradecolourpickericon.png differ diff --git a/Resources/upgradecustomusername.png b/Resources/upgradecustomusername.png new file mode 100644 index 0000000..d2ee85c Binary files /dev/null and b/Resources/upgradecustomusername.png differ diff --git a/Resources/upgradedesktoppanel.png b/Resources/upgradedesktoppanel.png new file mode 100644 index 0000000..db142d4 Binary files /dev/null and b/Resources/upgradedesktoppanel.png differ diff --git a/Resources/upgradedesktoppanelclock.png b/Resources/upgradedesktoppanelclock.png new file mode 100644 index 0000000..1d417ce Binary files /dev/null and b/Resources/upgradedesktoppanelclock.png differ diff --git a/Resources/upgradedraggablewindows.gif b/Resources/upgradedraggablewindows.gif new file mode 100644 index 0000000..c91bbd1 Binary files /dev/null and b/Resources/upgradedraggablewindows.gif differ diff --git a/Resources/upgradefileskimmer.png b/Resources/upgradefileskimmer.png new file mode 100644 index 0000000..8559818 Binary files /dev/null and b/Resources/upgradefileskimmer.png differ diff --git a/Resources/upgradefileskimmerdelete.png b/Resources/upgradefileskimmerdelete.png new file mode 100644 index 0000000..f0ec7d6 Binary files /dev/null and b/Resources/upgradefileskimmerdelete.png differ diff --git a/Resources/upgradefileskimmericon.png b/Resources/upgradefileskimmericon.png new file mode 100644 index 0000000..5c3501e Binary files /dev/null and b/Resources/upgradefileskimmericon.png differ diff --git a/Resources/upgradefileskimmernew.png b/Resources/upgradefileskimmernew.png new file mode 100644 index 0000000..0c519d6 Binary files /dev/null and b/Resources/upgradefileskimmernew.png differ diff --git a/Resources/upgradegray.png b/Resources/upgradegray.png new file mode 100644 index 0000000..ffe4632 Binary files /dev/null and b/Resources/upgradegray.png differ diff --git a/Resources/upgradegraycustom.png b/Resources/upgradegraycustom.png new file mode 100644 index 0000000..adcc04c Binary files /dev/null and b/Resources/upgradegraycustom.png differ diff --git a/Resources/upgradegrayshades.png b/Resources/upgradegrayshades.png new file mode 100644 index 0000000..70945bc Binary files /dev/null and b/Resources/upgradegrayshades.png differ diff --git a/Resources/upgradegrayshadeset.png b/Resources/upgradegrayshadeset.png new file mode 100644 index 0000000..8899401 Binary files /dev/null and b/Resources/upgradegrayshadeset.png differ diff --git a/Resources/upgradegreen.png b/Resources/upgradegreen.png new file mode 100644 index 0000000..775eb4d Binary files /dev/null and b/Resources/upgradegreen.png differ diff --git a/Resources/upgradegreencustom.png b/Resources/upgradegreencustom.png new file mode 100644 index 0000000..cca44c8 Binary files /dev/null and b/Resources/upgradegreencustom.png differ diff --git a/Resources/upgradegreenshades.png b/Resources/upgradegreenshades.png new file mode 100644 index 0000000..1e9c2ef Binary files /dev/null and b/Resources/upgradegreenshades.png differ diff --git a/Resources/upgradegreenshadeset.png b/Resources/upgradegreenshadeset.png new file mode 100644 index 0000000..d52e8ee Binary files /dev/null and b/Resources/upgradegreenshadeset.png differ diff --git a/Resources/upgradehoursssincemidnight.png b/Resources/upgradehoursssincemidnight.png new file mode 100644 index 0000000..506d970 Binary files /dev/null and b/Resources/upgradehoursssincemidnight.png differ diff --git a/Resources/upgradeinfoboxicon.png b/Resources/upgradeinfoboxicon.png new file mode 100644 index 0000000..22db5b2 Binary files /dev/null and b/Resources/upgradeinfoboxicon.png differ diff --git a/Resources/upgradekiaddons.png b/Resources/upgradekiaddons.png new file mode 100644 index 0000000..c7e618b Binary files /dev/null and b/Resources/upgradekiaddons.png differ diff --git a/Resources/upgradekielements.png b/Resources/upgradekielements.png new file mode 100644 index 0000000..5c5b398 Binary files /dev/null and b/Resources/upgradekielements.png differ diff --git a/Resources/upgradeknowledgeinput.png b/Resources/upgradeknowledgeinput.png new file mode 100644 index 0000000..74ec0d0 Binary files /dev/null and b/Resources/upgradeknowledgeinput.png differ diff --git a/Resources/upgradeknowledgeinputicon.png b/Resources/upgradeknowledgeinputicon.png new file mode 100644 index 0000000..d5b5b42 Binary files /dev/null and b/Resources/upgradeknowledgeinputicon.png differ diff --git a/Resources/upgrademinimizebutton.png b/Resources/upgrademinimizebutton.png new file mode 100644 index 0000000..4068564 Binary files /dev/null and b/Resources/upgrademinimizebutton.png differ diff --git a/Resources/upgrademinimizecommand.png b/Resources/upgrademinimizecommand.png new file mode 100644 index 0000000..c268e68 Binary files /dev/null and b/Resources/upgrademinimizecommand.png differ diff --git a/Resources/upgrademinuteaccuracytime.png b/Resources/upgrademinuteaccuracytime.png new file mode 100644 index 0000000..697a60b Binary files /dev/null and b/Resources/upgrademinuteaccuracytime.png differ diff --git a/Resources/upgrademinutesssincemidnight.png b/Resources/upgrademinutesssincemidnight.png new file mode 100644 index 0000000..45b7889 Binary files /dev/null and b/Resources/upgrademinutesssincemidnight.png differ diff --git a/Resources/upgrademoveablewindows.gif b/Resources/upgrademoveablewindows.gif new file mode 100644 index 0000000..3e657a8 Binary files /dev/null and b/Resources/upgrademoveablewindows.gif differ diff --git a/Resources/upgrademultitasking.png b/Resources/upgrademultitasking.png new file mode 100644 index 0000000..536c40a Binary files /dev/null and b/Resources/upgrademultitasking.png differ diff --git a/Resources/upgradeorange.png b/Resources/upgradeorange.png new file mode 100644 index 0000000..b45f890 Binary files /dev/null and b/Resources/upgradeorange.png differ diff --git a/Resources/upgradeorangecustom.png b/Resources/upgradeorangecustom.png new file mode 100644 index 0000000..84bf020 Binary files /dev/null and b/Resources/upgradeorangecustom.png differ diff --git a/Resources/upgradeorangeshades.png b/Resources/upgradeorangeshades.png new file mode 100644 index 0000000..bfe5683 Binary files /dev/null and b/Resources/upgradeorangeshades.png differ diff --git a/Resources/upgradeorangeshadeset.png b/Resources/upgradeorangeshadeset.png new file mode 100644 index 0000000..e30a466 Binary files /dev/null and b/Resources/upgradeorangeshadeset.png differ diff --git a/Resources/upgradepanelbuttons.png b/Resources/upgradepanelbuttons.png new file mode 100644 index 0000000..451058a Binary files /dev/null and b/Resources/upgradepanelbuttons.png differ diff --git a/Resources/upgradepink.png b/Resources/upgradepink.png new file mode 100644 index 0000000..6312fa1 Binary files /dev/null and b/Resources/upgradepink.png differ diff --git a/Resources/upgradepinkcustom.png b/Resources/upgradepinkcustom.png new file mode 100644 index 0000000..60ed53a Binary files /dev/null and b/Resources/upgradepinkcustom.png differ diff --git a/Resources/upgradepinkshades.png b/Resources/upgradepinkshades.png new file mode 100644 index 0000000..cf715e4 Binary files /dev/null and b/Resources/upgradepinkshades.png differ diff --git a/Resources/upgradepinkshadeset.png b/Resources/upgradepinkshadeset.png new file mode 100644 index 0000000..dc83681 Binary files /dev/null and b/Resources/upgradepinkshadeset.png differ diff --git a/Resources/upgradepong.png b/Resources/upgradepong.png new file mode 100644 index 0000000..d17c5c7 Binary files /dev/null and b/Resources/upgradepong.png differ diff --git a/Resources/upgradepongicon.png b/Resources/upgradepongicon.png new file mode 100644 index 0000000..61dffe3 Binary files /dev/null and b/Resources/upgradepongicon.png differ diff --git a/Resources/upgradepurple.png b/Resources/upgradepurple.png new file mode 100644 index 0000000..7ac8ce5 Binary files /dev/null and b/Resources/upgradepurple.png differ diff --git a/Resources/upgradepurplecustom.png b/Resources/upgradepurplecustom.png new file mode 100644 index 0000000..eae2523 Binary files /dev/null and b/Resources/upgradepurplecustom.png differ diff --git a/Resources/upgradepurpleshades.png b/Resources/upgradepurpleshades.png new file mode 100644 index 0000000..52323a6 Binary files /dev/null and b/Resources/upgradepurpleshades.png differ diff --git a/Resources/upgradepurpleshadeset.png b/Resources/upgradepurpleshadeset.png new file mode 100644 index 0000000..4e0fc5e Binary files /dev/null and b/Resources/upgradepurpleshadeset.png differ diff --git a/Resources/upgradered.png b/Resources/upgradered.png new file mode 100644 index 0000000..0337b5e Binary files /dev/null and b/Resources/upgradered.png differ diff --git a/Resources/upgraderedcustom.png b/Resources/upgraderedcustom.png new file mode 100644 index 0000000..e2e37b3 Binary files /dev/null and b/Resources/upgraderedcustom.png differ diff --git a/Resources/upgraderedshades.png b/Resources/upgraderedshades.png new file mode 100644 index 0000000..3f6afb3 Binary files /dev/null and b/Resources/upgraderedshades.png differ diff --git a/Resources/upgraderedshadeset.png b/Resources/upgraderedshadeset.png new file mode 100644 index 0000000..7ad2ffe Binary files /dev/null and b/Resources/upgraderedshadeset.png differ diff --git a/Resources/upgraderollupbutton.gif b/Resources/upgraderollupbutton.gif new file mode 100644 index 0000000..4157203 Binary files /dev/null and b/Resources/upgraderollupbutton.gif differ diff --git a/Resources/upgraderollupcommand.png b/Resources/upgraderollupcommand.png new file mode 100644 index 0000000..330adb0 Binary files /dev/null and b/Resources/upgraderollupcommand.png differ diff --git a/Resources/upgradesecondssincemidnight.png b/Resources/upgradesecondssincemidnight.png new file mode 100644 index 0000000..0bd8ae0 Binary files /dev/null and b/Resources/upgradesecondssincemidnight.png differ diff --git a/Resources/upgradesgameconsoles.png b/Resources/upgradesgameconsoles.png new file mode 100644 index 0000000..a52fffb Binary files /dev/null and b/Resources/upgradesgameconsoles.png differ diff --git a/Resources/upgradeshiftapplauncher.png b/Resources/upgradeshiftapplauncher.png new file mode 100644 index 0000000..db97f08 Binary files /dev/null and b/Resources/upgradeshiftapplauncher.png differ diff --git a/Resources/upgradeshiftborders.png b/Resources/upgradeshiftborders.png new file mode 100644 index 0000000..58f00b3 Binary files /dev/null and b/Resources/upgradeshiftborders.png differ diff --git a/Resources/upgradeshiftbuttons.png b/Resources/upgradeshiftbuttons.png new file mode 100644 index 0000000..a678d21 Binary files /dev/null and b/Resources/upgradeshiftbuttons.png differ diff --git a/Resources/upgradeshiftdesktop.png b/Resources/upgradeshiftdesktop.png new file mode 100644 index 0000000..f48296f Binary files /dev/null and b/Resources/upgradeshiftdesktop.png differ diff --git a/Resources/upgradeshiftdesktoppanel.png b/Resources/upgradeshiftdesktoppanel.png new file mode 100644 index 0000000..421bae5 Binary files /dev/null and b/Resources/upgradeshiftdesktoppanel.png differ diff --git a/Resources/upgradeshifter.png b/Resources/upgradeshifter.png new file mode 100644 index 0000000..d1b507f Binary files /dev/null and b/Resources/upgradeshifter.png differ diff --git a/Resources/upgradeshiftericon.png b/Resources/upgradeshiftericon.png new file mode 100644 index 0000000..4c04dc1 Binary files /dev/null and b/Resources/upgradeshiftericon.png differ diff --git a/Resources/upgradeshiftoriumicon.png b/Resources/upgradeshiftoriumicon.png new file mode 100644 index 0000000..61247df Binary files /dev/null and b/Resources/upgradeshiftoriumicon.png differ diff --git a/Resources/upgradeshiftpanelbuttons.png b/Resources/upgradeshiftpanelbuttons.png new file mode 100644 index 0000000..36fc82a Binary files /dev/null and b/Resources/upgradeshiftpanelbuttons.png differ diff --git a/Resources/upgradeshiftpanelclock.png b/Resources/upgradeshiftpanelclock.png new file mode 100644 index 0000000..cbe4cf8 Binary files /dev/null and b/Resources/upgradeshiftpanelclock.png differ diff --git a/Resources/upgradeshifttitlebar.png b/Resources/upgradeshifttitlebar.png new file mode 100644 index 0000000..91c8090 Binary files /dev/null and b/Resources/upgradeshifttitlebar.png differ diff --git a/Resources/upgradeshifttitletext.png b/Resources/upgradeshifttitletext.png new file mode 100644 index 0000000..9242d9a Binary files /dev/null and b/Resources/upgradeshifttitletext.png differ diff --git a/Resources/upgradeshutdownicon.png b/Resources/upgradeshutdownicon.png new file mode 100644 index 0000000..4ada5ca Binary files /dev/null and b/Resources/upgradeshutdownicon.png differ diff --git a/Resources/upgradeskicarbrands.png b/Resources/upgradeskicarbrands.png new file mode 100644 index 0000000..a73d5cc Binary files /dev/null and b/Resources/upgradeskicarbrands.png differ diff --git a/Resources/upgradeskinning.png b/Resources/upgradeskinning.png new file mode 100644 index 0000000..020de14 Binary files /dev/null and b/Resources/upgradeskinning.png differ diff --git a/Resources/upgradesplitsecondaccuracy.png b/Resources/upgradesplitsecondaccuracy.png new file mode 100644 index 0000000..eff89a5 Binary files /dev/null and b/Resources/upgradesplitsecondaccuracy.png differ diff --git a/Resources/upgradeterminalicon.png b/Resources/upgradeterminalicon.png new file mode 100644 index 0000000..5c65a13 Binary files /dev/null and b/Resources/upgradeterminalicon.png differ diff --git a/Resources/upgradeterminalscrollbar.png b/Resources/upgradeterminalscrollbar.png new file mode 100644 index 0000000..ffa3dea Binary files /dev/null and b/Resources/upgradeterminalscrollbar.png differ diff --git a/Resources/upgradetextpad.png b/Resources/upgradetextpad.png new file mode 100644 index 0000000..03958e8 Binary files /dev/null and b/Resources/upgradetextpad.png differ diff --git a/Resources/upgradetextpadicon.png b/Resources/upgradetextpadicon.png new file mode 100644 index 0000000..f144a8b Binary files /dev/null and b/Resources/upgradetextpadicon.png differ diff --git a/Resources/upgradetextpadnew.png b/Resources/upgradetextpadnew.png new file mode 100644 index 0000000..8dad0ce Binary files /dev/null and b/Resources/upgradetextpadnew.png differ diff --git a/Resources/upgradetextpadopen.png b/Resources/upgradetextpadopen.png new file mode 100644 index 0000000..c29190c Binary files /dev/null and b/Resources/upgradetextpadopen.png differ diff --git a/Resources/upgradetextpadsave.png b/Resources/upgradetextpadsave.png new file mode 100644 index 0000000..d62d369 Binary files /dev/null and b/Resources/upgradetextpadsave.png differ diff --git a/Resources/upgradetitlebar.png b/Resources/upgradetitlebar.png new file mode 100644 index 0000000..722b60e Binary files /dev/null and b/Resources/upgradetitlebar.png differ diff --git a/Resources/upgradetitletext.png b/Resources/upgradetitletext.png new file mode 100644 index 0000000..e29d7d3 Binary files /dev/null and b/Resources/upgradetitletext.png differ diff --git a/Resources/upgradeunitymode.png b/Resources/upgradeunitymode.png new file mode 100644 index 0000000..24fa057 Binary files /dev/null and b/Resources/upgradeunitymode.png differ diff --git a/Resources/upgradeusefulpanelbuttons.png b/Resources/upgradeusefulpanelbuttons.png new file mode 100644 index 0000000..6308051 Binary files /dev/null and b/Resources/upgradeusefulpanelbuttons.png differ diff --git a/Resources/upgradewindowborders.png b/Resources/upgradewindowborders.png new file mode 100644 index 0000000..fb7e876 Binary files /dev/null and b/Resources/upgradewindowborders.png differ diff --git a/Resources/upgradewindowedterminal.png b/Resources/upgradewindowedterminal.png new file mode 100644 index 0000000..2f87ce0 Binary files /dev/null and b/Resources/upgradewindowedterminal.png differ diff --git a/Resources/upgradewindowsanywhere.png b/Resources/upgradewindowsanywhere.png new file mode 100644 index 0000000..9fa307c Binary files /dev/null and b/Resources/upgradewindowsanywhere.png differ diff --git a/Resources/upgradeyellow.png b/Resources/upgradeyellow.png new file mode 100644 index 0000000..1e4e13d Binary files /dev/null and b/Resources/upgradeyellow.png differ diff --git a/Resources/upgradeyellowcustom.png b/Resources/upgradeyellowcustom.png new file mode 100644 index 0000000..641b40f Binary files /dev/null and b/Resources/upgradeyellowcustom.png differ diff --git a/Resources/upgradeyellowshades.png b/Resources/upgradeyellowshades.png new file mode 100644 index 0000000..9052945 Binary files /dev/null and b/Resources/upgradeyellowshades.png differ diff --git a/Resources/upgradeyellowshadeset.png b/Resources/upgradeyellowshadeset.png new file mode 100644 index 0000000..05c9ada Binary files /dev/null and b/Resources/upgradeyellowshadeset.png differ diff --git a/Resources/webback.png b/Resources/webback.png new file mode 100644 index 0000000..6e52ffc Binary files /dev/null and b/Resources/webback.png differ diff --git a/Resources/webforward.png b/Resources/webforward.png new file mode 100644 index 0000000..eea3e76 Binary files /dev/null and b/Resources/webforward.png differ diff --git a/Resources/webhome.png b/Resources/webhome.png new file mode 100644 index 0000000..5bb886f Binary files /dev/null and b/Resources/webhome.png differ diff --git a/Resources/writesound.wav b/Resources/writesound.wav new file mode 100644 index 0000000..84092d0 Binary files /dev/null and b/Resources/writesound.wav differ diff --git a/Resources/zoombutton.png b/Resources/zoombutton.png new file mode 100644 index 0000000..32e5da9 Binary files /dev/null and b/Resources/zoombutton.png differ diff --git a/Resources/zoombuttonpressed.png b/Resources/zoombuttonpressed.png new file mode 100644 index 0000000..d82d2be Binary files /dev/null and b/Resources/zoombuttonpressed.png differ diff --git a/ShiftOS Save File Converter.Designer.vb b/ShiftOS Save File Converter.Designer.vb new file mode 100644 index 0000000..d6d8478 --- /dev/null +++ b/ShiftOS Save File Converter.Designer.vb @@ -0,0 +1,92 @@ + _ +Partial Class ShiftOS_Save_File_Converter + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ShiftOS_Save_File_Converter)) + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnconvert = New System.Windows.Forms.Button() + Me.btncancel = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 40) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(301, 141) + Me.Label1.TabIndex = 0 + Me.Label1.Text = resources.GetString("Label1.Text") + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(70, 9) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(189, 33) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "0.0.6 > 0.0.7" + ' + 'btnconvert + ' + Me.btnconvert.Location = New System.Drawing.Point(12, 186) + Me.btnconvert.Name = "btnconvert" + Me.btnconvert.Size = New System.Drawing.Size(159, 29) + Me.btnconvert.TabIndex = 2 + Me.btnconvert.Text = "Convert" + Me.btnconvert.UseVisualStyleBackColor = True + ' + 'btncancel + ' + Me.btncancel.Location = New System.Drawing.Point(177, 186) + Me.btncancel.Name = "btncancel" + Me.btncancel.Size = New System.Drawing.Size(137, 29) + Me.btncancel.TabIndex = 3 + Me.btncancel.Text = "Cancel" + Me.btncancel.UseVisualStyleBackColor = True + ' + 'ShiftOS_Save_File_Converter + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(326, 222) + Me.Controls.Add(Me.btncancel) + Me.Controls.Add(Me.btnconvert) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.Name = "ShiftOS_Save_File_Converter" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "ShiftOS Save File Converter" + Me.TopMost = True + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents btnconvert As System.Windows.Forms.Button + Friend WithEvents btncancel As System.Windows.Forms.Button +End Class diff --git a/ShiftOS Save File Converter.resx b/ShiftOS Save File Converter.resx new file mode 100644 index 0000000..cfd5e7a --- /dev/null +++ b/ShiftOS Save File Converter.resx @@ -0,0 +1,125 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Welcome to the ShiftOS Save File Converter. This program is used to convert ShiftOS 0.0.6 save files into ShiftOS 0.0.7 save files. + +If your current ShiftOS save file is not used with ShiftOS 0.0.6 please cancel this conversion process. This converter will only convert 0.0.6 save files into files compatible with ShiftOS 0.0.7. + + \ No newline at end of file diff --git a/ShiftOS Save File Converter.vb b/ShiftOS Save File Converter.vb new file mode 100644 index 0000000..906d73a --- /dev/null +++ b/ShiftOS Save File Converter.vb @@ -0,0 +1,215 @@ +Public Class ShiftOS_Save_File_Converter + Dim loadlines(2000) As String + + 'Required for encryption of save files + Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer + Public Const sSecretKey As String = "Password" + + Private Sub btnconvert_Click(sender As Object, e As EventArgs) Handles btnconvert.Click + loadold() + addlines() + convertfile() + MessageBox.Show("Your save file is now compatible with ShiftOS 0.0.7. Press ok then open the ShiftOS application again to start playing ShiftOS 0.0.7.", "Conversion Complete", MessageBoxButtons.OK, MessageBoxIcon.Information) + Me.Close() + HijackScreen.Close() + End Sub + + Private Sub loadold() + File_Crypt.DecryptFile("C:/ShiftOS/Shiftum42/SKernal.sft", "C:\ShiftOS\Shiftum42\Drivers\HDD.dri", sSecretKey) + loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri") + End Sub + + Private Sub addlines() + ReDim Preserve loadlines(2000) + loadlines(308) = 105 + loadlines(309) = 69 + loadlines(310) = 4 + loadlines(311) = 4 + loadlines(312) = 2 + loadlines(313) = 2 + loadlines(314) = 10 + loadlines(315) = 10 + loadlines(316) = 10 + loadlines(317) = 10 + loadlines(318) = 10 + loadlines(319) = 10 + loadlines(320) = 10 + loadlines(321) = 10 + loadlines(322) = 10 + loadlines(323) = 10 + loadlines(324) = 10 + loadlines(325) = 10 + loadlines(326) = 10 + loadlines(327) = 10 + loadlines(328) = 10 + loadlines(329) = 10 + loadlines(330) = 10 + loadlines(331) = 10 + loadlines(332) = 10 + loadlines(333) = 10 + loadlines(334) = 10 + loadlines(335) = 10 + loadlines(336) = 10 + loadlines(337) = 10 + loadlines(338) = 10 + loadlines(339) = 10 + loadlines(340) = 10 + loadlines(341) = 10 + loadlines(342) = 10 + loadlines(343) = 10 + loadlines(344) = 10 + loadlines(345) = 10 + loadlines(346) = 10 + loadlines(347) = 10 + loadlines(348) = 10 + loadlines(349) = 10 + loadlines(350) = 10 + loadlines(351) = 10 + loadlines(352) = 10 + loadlines(353) = 10 + loadlines(354) = 10 + loadlines(355) = 10 + loadlines(356) = -16777216 + loadlines(357) = -16777216 + loadlines(358) = -16777216 + loadlines(359) = -16777216 + loadlines(360) = -16777216 + loadlines(361) = -16777216 + loadlines(362) = -16777216 + loadlines(363) = -16777216 + loadlines(364) = -16777216 + loadlines(365) = -16777216 + loadlines(366) = -16777216 + loadlines(367) = -16777216 + loadlines(368) = -16777216 + loadlines(369) = -16777216 + loadlines(370) = -16777216 + loadlines(371) = -16777216 + loadlines(372) = -16777216 + loadlines(373) = -16777216 + loadlines(374) = -16777216 + loadlines(375) = -16777216 + loadlines(376) = -16777216 + loadlines(377) = -16777216 + loadlines(378) = -16777216 + loadlines(379) = -16777216 + loadlines(380) = -16777216 + loadlines(381) = -16777216 + loadlines(382) = -16777216 + loadlines(383) = -16777216 + loadlines(384) = -16777216 + loadlines(385) = -16777216 + loadlines(386) = -16777216 + loadlines(387) = -16777216 + loadlines(388) = -16777216 + loadlines(389) = -16777216 + loadlines(390) = -16777216 + loadlines(391) = -16777216 + loadlines(392) = -16777216 + loadlines(393) = -16777216 + loadlines(394) = -16777216 + loadlines(395) = -16777216 + loadlines(396) = -16777216 + loadlines(397) = -16777216 + loadlines(398) = -16777216 + loadlines(399) = -16777216 + loadlines(400) = -16777216 + loadlines(401) = -16777216 + loadlines(402) = -16777216 + loadlines(403) = -16777216 + loadlines(404) = -16777216 + loadlines(405) = -16777216 + loadlines(406) = -16777216 + loadlines(407) = -16777216 + loadlines(408) = -16777216 + loadlines(409) = -16777216 + loadlines(410) = -16777216 + loadlines(411) = -16777216 + loadlines(412) = -16777216 + loadlines(413) = -16777216 + loadlines(414) = -16777216 + loadlines(415) = -16777216 + loadlines(416) = -16777216 + loadlines(417) = -16777216 + loadlines(418) = -16777216 + loadlines(419) = -16777216 + loadlines(420) = -16777216 + loadlines(421) = -16777216 + loadlines(422) = -16777216 + loadlines(423) = -16777216 + loadlines(424) = -16777216 + loadlines(425) = -16777216 + loadlines(426) = -16777216 + loadlines(427) = -16777216 + loadlines(428) = -16777216 + loadlines(429) = -16777216 + loadlines(430) = -16777216 + loadlines(431) = -16777216 + loadlines(432) = -16777216 + loadlines(433) = -16777216 + loadlines(434) = -16777216 + loadlines(435) = -16777216 + loadlines(436) = -16777216 + loadlines(437) = -16777216 + loadlines(438) = -16777216 + loadlines(439) = -16777216 + loadlines(440) = -16777216 + loadlines(441) = -16777216 + loadlines(442) = -16777216 + loadlines(443) = -16777216 + loadlines(444) = -16777216 + loadlines(445) = -16777216 + loadlines(446) = -16777216 + loadlines(447) = -16777216 + loadlines(448) = -16777216 + loadlines(449) = -16777216 + loadlines(450) = -16777216 + loadlines(451) = -16777216 + loadlines(452) = -16777216 + loadlines(453) = -16777216 + loadlines(454) = -16777216 + loadlines(455) = -16777216 + loadlines(456) = -16777216 + loadlines(457) = -16777216 + loadlines(458) = -16777216 + loadlines(459) = -16777216 + loadlines(460) = -16777216 + loadlines(461) = -16777216 + loadlines(462) = -16777216 + loadlines(463) = -16777216 + loadlines(464) = -16777216 + loadlines(465) = -16777216 + loadlines(466) = -16777216 + loadlines(467) = -16777216 + loadlines(468) = -16777216 + loadlines(469) = -16777216 + loadlines(470) = -16777216 + loadlines(471) = -16777216 + loadlines(472) = -16777216 + loadlines(473) = -16777216 + loadlines(474) = -16777216 + loadlines(475) = -16777216 + loadlines(476) = -16777216 + loadlines(477) = -16777216 + loadlines(478) = -16777216 + loadlines(479) = -16777216 + loadlines(480) = -16777216 + loadlines(481) = -16777216 + loadlines(482) = -16777216 + loadlines(483) = -16777216 + loadlines(484) = 10 + End Sub + + Private Sub convertfile() + IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", loadlines) + File_Crypt.EncryptFile("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey) + Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False) + objWriter.Write("0.0.7") + objWriter.Close() + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + Me.Close() + HijackScreen.Close() + End Sub +End Class \ No newline at end of file diff --git a/ShiftOS.vbproj b/ShiftOS.vbproj new file mode 100644 index 0000000..0039b12 --- /dev/null +++ b/ShiftOS.vbproj @@ -0,0 +1,759 @@ + + + + + Debug + AnyCPU + {7DCD55AB-F67D-4C43-9BFB-74ED8AD0FDCF} + WinExe + ShiftOS.My.MyApplication + ShiftOS + ShiftOS 0.0.8 Beta 1.1 + 512 + WindowsForms + v4.5 + false + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 97 + 0.0.7.%2a + false + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + ShiftOS 0.0.8 Beta 1.1.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ShiftOS 0.0.8 Beta 1.1.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + F8533EC3C8902318F4A89ADCCBBD4FFABA648375 + + + ShiftOS_TemporaryKey.pfx + + + true + + + Internet + + + app.manifest + + + false + + + ShiftOSLogo.ico + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ArtPad.vb + + + Form + + + Audio Player.vb + + + Form + + + Bitnote Digger.vb + + + Form + + + Bitnote Wallet.vb + + + Form + + + Calculator.vb + + + Form + + + Clock.vb + + + Form + + + + Colour Picker.vb + + + Form + + + Downloader.vb + + + Form + + + Icon Manager.vb + + + Form + + + Name Changer.vb + + + Form + + + Shiftnet.vb + + + Form + + + Skinshifter.vb + + + Form + + + Video Player.vb + + + Form + + + + File Opener.vb + + + Form + + + File Saver.vb + + + Form + + + File Skimmer.vb + + + Form + + + + Graphic Picker.vb + + + Form + + + Form + + + HijackScreen.vb + Form + + + infobox.vb + + + Form + + + + Knowledge Input.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Pong.vb + + + Form + + + + Shifter.vb + + + Form + + + Shiftorium.vb + + + Form + + + ShiftOS Save File Converter.vb + + + Form + + + ShiftOSDesktop.vb + + + Form + + + Skin Loader.vb + + + Form + + + template.vb + + + Form + + + Terminal.vb + + + Form + + + TextPad.vb + + + Form + + + + + Web Browser.vb + + + Form + + + + + + ArtPad.vb + + + Audio Player.vb + + + Bitnote Digger.vb + + + Bitnote Wallet.vb + + + Calculator.vb + + + Clock.vb + + + Colour Picker.vb + + + Downloader.vb + + + Icon Manager.vb + + + Name Changer.vb + + + Shiftnet.vb + + + Skinshifter.vb + + + Video Player.vb + + + File Opener.vb + + + File Saver.vb + + + File Skimmer.vb + + + Graphic Picker.vb + + + HijackScreen.vb + + + infobox.vb + + + Knowledge Input.vb + + + VbMyResourcesResXFileCodeGenerator + My.Resources + Designer + Resources.Designer.vb + + + Pong.vb + + + Shifter.vb + + + Shiftorium.vb + + + ShiftOS Save File Converter.vb + + + ShiftOSDesktop.vb + + + Skin Loader.vb + + + template.vb + + + Terminal.vb + + + TextPad.vb + + + Web Browser.vb + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + False + Microsoft .NET Framework 4.5 %28x86 and x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {6BF52A50-394A-11D3-B153-00C04F79FAA6} + 1 + 0 + 0 + aximp + False + + + {6BF52A50-394A-11D3-B153-00C04F79FAA6} + 1 + 0 + 0 + tlbimp + False + True + + + + + \ No newline at end of file diff --git a/ShiftOSDesktop.Designer.vb b/ShiftOSDesktop.Designer.vb new file mode 100644 index 0000000..e8b0888 --- /dev/null +++ b/ShiftOSDesktop.Designer.vb @@ -0,0 +1,1575 @@ + _ +Partial Class ShiftOSDesktop + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.desktoppanel = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonholder = New System.Windows.Forms.FlowLayoutPanel() + Me.pnlpanelbuttonclock = New System.Windows.Forms.Panel() + Me.tbclockicon = New System.Windows.Forms.PictureBox() + Me.tbclocktext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonskinloader = New System.Windows.Forms.Panel() + Me.tbskinloadericon = New System.Windows.Forms.PictureBox() + Me.tbskinloadertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonfileskimmer = New System.Windows.Forms.Panel() + Me.tbfileskimmericon = New System.Windows.Forms.PictureBox() + Me.tbfileskimmertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonfileopener = New System.Windows.Forms.Panel() + Me.tbfileopenericon = New System.Windows.Forms.PictureBox() + Me.tbfileopenertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttoninfobox = New System.Windows.Forms.Panel() + Me.tbinfoboxicon = New System.Windows.Forms.PictureBox() + Me.tbinfoboxtext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonknowledgeinput = New System.Windows.Forms.Panel() + Me.tbknowledgeinputicon = New System.Windows.Forms.PictureBox() + Me.tbknowledgeinputtext = New System.Windows.Forms.Label() + Me.pnlpanelbuttoncolourpicker = New System.Windows.Forms.Panel() + Me.tbcolourpickericon = New System.Windows.Forms.PictureBox() + Me.tbcolourpickertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonshiftorium = New System.Windows.Forms.Panel() + Me.tbshiftoriumicon = New System.Windows.Forms.PictureBox() + Me.tbshiftoriumtext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonfilesaver = New System.Windows.Forms.Panel() + Me.tbfilesavericon = New System.Windows.Forms.PictureBox() + Me.tbfilesavertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonshifter = New System.Windows.Forms.Panel() + Me.tbshiftericon = New System.Windows.Forms.PictureBox() + Me.tbshiftertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonpong = New System.Windows.Forms.Panel() + Me.tbpongicon = New System.Windows.Forms.PictureBox() + Me.tbpongtext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonterminal = New System.Windows.Forms.Panel() + Me.tbterminalicon = New System.Windows.Forms.PictureBox() + Me.tbterminaltext = New System.Windows.Forms.Label() + Me.pnlpanelbuttontextpad = New System.Windows.Forms.Panel() + Me.tbtextpadicon = New System.Windows.Forms.PictureBox() + Me.tbtextpadtext = New System.Windows.Forms.Label() + Me.pnlpanelbuttongraphicpicker = New System.Windows.Forms.Panel() + Me.tbgraphicpickericon = New System.Windows.Forms.PictureBox() + Me.tbgraphicpickertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonartpad = New System.Windows.Forms.Panel() + Me.tbartpadicon = New System.Windows.Forms.PictureBox() + Me.tbartpadtext = New System.Windows.Forms.Label() + Me.pnlpanelbuttoncalculator = New System.Windows.Forms.Panel() + Me.tbcalculatoricon = New System.Windows.Forms.PictureBox() + Me.tbcalculatortext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonaudioplayer = New System.Windows.Forms.Panel() + Me.tbaudioplayericon = New System.Windows.Forms.PictureBox() + Me.tbaudioplayertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonwebbrowser = New System.Windows.Forms.Panel() + Me.tbwebbrowsericon = New System.Windows.Forms.PictureBox() + Me.tbwebbrowsertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonvideoplayer = New System.Windows.Forms.Panel() + Me.tbvideoplayericon = New System.Windows.Forms.PictureBox() + Me.tbvideoplayertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonnamechanger = New System.Windows.Forms.Panel() + Me.tbnamechangericon = New System.Windows.Forms.PictureBox() + Me.tbnamechangertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttoniconmanager = New System.Windows.Forms.Panel() + Me.tbiconmanagericon = New System.Windows.Forms.PictureBox() + Me.tbiconmanagertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonbitnotewallet = New System.Windows.Forms.Panel() + Me.tbbitnotewalleticon = New System.Windows.Forms.PictureBox() + Me.tbbitnotewallettext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonbitnotedigger = New System.Windows.Forms.Panel() + Me.tbbitnotediggericon = New System.Windows.Forms.PictureBox() + Me.tbbitnotediggertext = New System.Windows.Forms.Label() + Me.pnlpanelbuttonskinshifter = New System.Windows.Forms.Panel() + Me.tbskinshiftericon = New System.Windows.Forms.PictureBox() + Me.tbskinshiftertext = New System.Windows.Forms.Label() + Me.applaunchermenuholder = New System.Windows.Forms.Panel() + Me.desktopappmenu = New System.Windows.Forms.MenuStrip() + Me.ApplicationsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KnowledgeInputToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShiftoriumToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClockToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TerminalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FileSkimmerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TextPadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShifterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PongToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SkinLoaderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ArtpadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CalculatorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AudioplayerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WebBrowserToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VideoplayerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NameChangerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.IconManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BitnoteWalletToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BitnoteDiggerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SkinShifterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.timepanel = New System.Windows.Forms.Panel() + Me.paneltimetext = New System.Windows.Forms.Label() + Me.clocktick = New System.Windows.Forms.Timer(Me.components) + Me.autosave = New System.Windows.Forms.Timer(Me.components) + Me.pnlpanelbuttonshiftnet = New System.Windows.Forms.Panel() + Me.tbshiftneticon = New System.Windows.Forms.PictureBox() + Me.tbshiftnettext = New System.Windows.Forms.Label() + Me.pnlpanelbuttondownloader = New System.Windows.Forms.Panel() + Me.tbdownloadericon = New System.Windows.Forms.PictureBox() + Me.tbdownloadertext = New System.Windows.Forms.Label() + Me.ShiftnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.desktoppanel.SuspendLayout() + Me.pnlpanelbuttonholder.SuspendLayout() + Me.pnlpanelbuttonclock.SuspendLayout() + CType(Me.tbclockicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonskinloader.SuspendLayout() + CType(Me.tbskinloadericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonfileskimmer.SuspendLayout() + CType(Me.tbfileskimmericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonfileopener.SuspendLayout() + CType(Me.tbfileopenericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttoninfobox.SuspendLayout() + CType(Me.tbinfoboxicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonknowledgeinput.SuspendLayout() + CType(Me.tbknowledgeinputicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttoncolourpicker.SuspendLayout() + CType(Me.tbcolourpickericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonshiftorium.SuspendLayout() + CType(Me.tbshiftoriumicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonfilesaver.SuspendLayout() + CType(Me.tbfilesavericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonshifter.SuspendLayout() + CType(Me.tbshiftericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonpong.SuspendLayout() + CType(Me.tbpongicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonterminal.SuspendLayout() + CType(Me.tbterminalicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttontextpad.SuspendLayout() + CType(Me.tbtextpadicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttongraphicpicker.SuspendLayout() + CType(Me.tbgraphicpickericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonartpad.SuspendLayout() + CType(Me.tbartpadicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttoncalculator.SuspendLayout() + CType(Me.tbcalculatoricon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonaudioplayer.SuspendLayout() + CType(Me.tbaudioplayericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonwebbrowser.SuspendLayout() + CType(Me.tbwebbrowsericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonvideoplayer.SuspendLayout() + CType(Me.tbvideoplayericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonnamechanger.SuspendLayout() + CType(Me.tbnamechangericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttoniconmanager.SuspendLayout() + CType(Me.tbiconmanagericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonbitnotewallet.SuspendLayout() + CType(Me.tbbitnotewalleticon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonbitnotedigger.SuspendLayout() + CType(Me.tbbitnotediggericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttonskinshifter.SuspendLayout() + CType(Me.tbskinshiftericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.applaunchermenuholder.SuspendLayout() + Me.desktopappmenu.SuspendLayout() + Me.timepanel.SuspendLayout() + Me.pnlpanelbuttonshiftnet.SuspendLayout() + CType(Me.tbshiftneticon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlpanelbuttondownloader.SuspendLayout() + CType(Me.tbdownloadericon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'desktoppanel + ' + Me.desktoppanel.BackColor = System.Drawing.Color.Gray + Me.desktoppanel.Controls.Add(Me.pnlpanelbuttonholder) + Me.desktoppanel.Controls.Add(Me.applaunchermenuholder) + Me.desktoppanel.Controls.Add(Me.timepanel) + Me.desktoppanel.Dock = System.Windows.Forms.DockStyle.Top + Me.desktoppanel.Location = New System.Drawing.Point(0, 0) + Me.desktoppanel.Name = "desktoppanel" + Me.desktoppanel.Size = New System.Drawing.Size(1745, 24) + Me.desktoppanel.TabIndex = 0 + Me.desktoppanel.Visible = False + ' + 'pnlpanelbuttonholder + ' + Me.pnlpanelbuttonholder.BackColor = System.Drawing.Color.Transparent + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonclock) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonskinloader) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonfileskimmer) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonfileopener) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttoninfobox) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonknowledgeinput) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttoncolourpicker) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonshiftorium) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonfilesaver) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonshifter) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonpong) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonterminal) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttontextpad) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttongraphicpicker) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonartpad) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttoncalculator) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonaudioplayer) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonwebbrowser) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonvideoplayer) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonnamechanger) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttoniconmanager) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonbitnotewallet) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonbitnotedigger) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonskinshifter) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttonshiftnet) + Me.pnlpanelbuttonholder.Controls.Add(Me.pnlpanelbuttondownloader) + Me.pnlpanelbuttonholder.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlpanelbuttonholder.Location = New System.Drawing.Point(130, 0) + Me.pnlpanelbuttonholder.Name = "pnlpanelbuttonholder" + Me.pnlpanelbuttonholder.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) + Me.pnlpanelbuttonholder.Size = New System.Drawing.Size(1518, 24) + Me.pnlpanelbuttonholder.TabIndex = 1 + ' + 'pnlpanelbuttonclock + ' + Me.pnlpanelbuttonclock.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonclock.Controls.Add(Me.tbclockicon) + Me.pnlpanelbuttonclock.Controls.Add(Me.tbclocktext) + Me.pnlpanelbuttonclock.Location = New System.Drawing.Point(5, 3) + Me.pnlpanelbuttonclock.Name = "pnlpanelbuttonclock" + Me.pnlpanelbuttonclock.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonclock.TabIndex = 5 + Me.pnlpanelbuttonclock.Visible = False + ' + 'tbclockicon + ' + Me.tbclockicon.BackColor = System.Drawing.Color.Transparent + Me.tbclockicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbclockicon.Image = Global.ShiftOS.My.Resources.Resources.iconClock + Me.tbclockicon.Location = New System.Drawing.Point(4, 2) + Me.tbclockicon.Name = "tbclockicon" + Me.tbclockicon.Size = New System.Drawing.Size(16, 16) + Me.tbclockicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbclockicon.TabIndex = 1 + Me.tbclockicon.TabStop = False + ' + 'tbclocktext + ' + Me.tbclocktext.AutoSize = True + Me.tbclocktext.BackColor = System.Drawing.Color.Transparent + Me.tbclocktext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbclocktext.ForeColor = System.Drawing.Color.White + Me.tbclocktext.Location = New System.Drawing.Point(24, 2) + Me.tbclocktext.Name = "tbclocktext" + Me.tbclocktext.Size = New System.Drawing.Size(42, 16) + Me.tbclocktext.TabIndex = 0 + Me.tbclocktext.Text = "Clock" + ' + 'pnlpanelbuttonskinloader + ' + Me.pnlpanelbuttonskinloader.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonskinloader.Controls.Add(Me.tbskinloadericon) + Me.pnlpanelbuttonskinloader.Controls.Add(Me.tbskinloadertext) + Me.pnlpanelbuttonskinloader.Location = New System.Drawing.Point(63, 3) + Me.pnlpanelbuttonskinloader.Name = "pnlpanelbuttonskinloader" + Me.pnlpanelbuttonskinloader.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonskinloader.TabIndex = 7 + Me.pnlpanelbuttonskinloader.Visible = False + ' + 'tbskinloadericon + ' + Me.tbskinloadericon.BackColor = System.Drawing.Color.Transparent + Me.tbskinloadericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbskinloadericon.Image = Global.ShiftOS.My.Resources.Resources.iconSkinLoader + Me.tbskinloadericon.Location = New System.Drawing.Point(4, 2) + Me.tbskinloadericon.Name = "tbskinloadericon" + Me.tbskinloadericon.Size = New System.Drawing.Size(16, 16) + Me.tbskinloadericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbskinloadericon.TabIndex = 1 + Me.tbskinloadericon.TabStop = False + ' + 'tbskinloadertext + ' + Me.tbskinloadertext.AutoSize = True + Me.tbskinloadertext.BackColor = System.Drawing.Color.Transparent + Me.tbskinloadertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbskinloadertext.ForeColor = System.Drawing.Color.White + Me.tbskinloadertext.Location = New System.Drawing.Point(24, 2) + Me.tbskinloadertext.Name = "tbskinloadertext" + Me.tbskinloadertext.Size = New System.Drawing.Size(80, 16) + Me.tbskinloadertext.TabIndex = 0 + Me.tbskinloadertext.Text = "Skin Loader" + ' + 'pnlpanelbuttonfileskimmer + ' + Me.pnlpanelbuttonfileskimmer.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonfileskimmer.Controls.Add(Me.tbfileskimmericon) + Me.pnlpanelbuttonfileskimmer.Controls.Add(Me.tbfileskimmertext) + Me.pnlpanelbuttonfileskimmer.Location = New System.Drawing.Point(121, 3) + Me.pnlpanelbuttonfileskimmer.Name = "pnlpanelbuttonfileskimmer" + Me.pnlpanelbuttonfileskimmer.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonfileskimmer.TabIndex = 6 + Me.pnlpanelbuttonfileskimmer.Visible = False + ' + 'tbfileskimmericon + ' + Me.tbfileskimmericon.BackColor = System.Drawing.Color.Transparent + Me.tbfileskimmericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbfileskimmericon.Image = Global.ShiftOS.My.Resources.Resources.iconFileSkimmer + Me.tbfileskimmericon.Location = New System.Drawing.Point(4, 2) + Me.tbfileskimmericon.Name = "tbfileskimmericon" + Me.tbfileskimmericon.Size = New System.Drawing.Size(16, 16) + Me.tbfileskimmericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbfileskimmericon.TabIndex = 1 + Me.tbfileskimmericon.TabStop = False + ' + 'tbfileskimmertext + ' + Me.tbfileskimmertext.AutoSize = True + Me.tbfileskimmertext.BackColor = System.Drawing.Color.Transparent + Me.tbfileskimmertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbfileskimmertext.ForeColor = System.Drawing.Color.White + Me.tbfileskimmertext.Location = New System.Drawing.Point(24, 2) + Me.tbfileskimmertext.Name = "tbfileskimmertext" + Me.tbfileskimmertext.Size = New System.Drawing.Size(86, 16) + Me.tbfileskimmertext.TabIndex = 0 + Me.tbfileskimmertext.Text = "File Skimmer" + ' + 'pnlpanelbuttonfileopener + ' + Me.pnlpanelbuttonfileopener.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonfileopener.Controls.Add(Me.tbfileopenericon) + Me.pnlpanelbuttonfileopener.Controls.Add(Me.tbfileopenertext) + Me.pnlpanelbuttonfileopener.Location = New System.Drawing.Point(179, 3) + Me.pnlpanelbuttonfileopener.Name = "pnlpanelbuttonfileopener" + Me.pnlpanelbuttonfileopener.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonfileopener.TabIndex = 6 + Me.pnlpanelbuttonfileopener.Visible = False + ' + 'tbfileopenericon + ' + Me.tbfileopenericon.BackColor = System.Drawing.Color.Transparent + Me.tbfileopenericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbfileopenericon.Image = Global.ShiftOS.My.Resources.Resources.iconFileOpener + Me.tbfileopenericon.Location = New System.Drawing.Point(4, 2) + Me.tbfileopenericon.Name = "tbfileopenericon" + Me.tbfileopenericon.Size = New System.Drawing.Size(16, 16) + Me.tbfileopenericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbfileopenericon.TabIndex = 1 + Me.tbfileopenericon.TabStop = False + ' + 'tbfileopenertext + ' + Me.tbfileopenertext.AutoSize = True + Me.tbfileopenertext.BackColor = System.Drawing.Color.Transparent + Me.tbfileopenertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbfileopenertext.ForeColor = System.Drawing.Color.White + Me.tbfileopenertext.Location = New System.Drawing.Point(24, 2) + Me.tbfileopenertext.Name = "tbfileopenertext" + Me.tbfileopenertext.Size = New System.Drawing.Size(78, 16) + Me.tbfileopenertext.TabIndex = 0 + Me.tbfileopenertext.Text = "File Opener" + ' + 'pnlpanelbuttoninfobox + ' + Me.pnlpanelbuttoninfobox.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttoninfobox.Controls.Add(Me.tbinfoboxicon) + Me.pnlpanelbuttoninfobox.Controls.Add(Me.tbinfoboxtext) + Me.pnlpanelbuttoninfobox.Location = New System.Drawing.Point(237, 3) + Me.pnlpanelbuttoninfobox.Name = "pnlpanelbuttoninfobox" + Me.pnlpanelbuttoninfobox.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttoninfobox.TabIndex = 6 + Me.pnlpanelbuttoninfobox.Visible = False + ' + 'tbinfoboxicon + ' + Me.tbinfoboxicon.BackColor = System.Drawing.Color.Transparent + Me.tbinfoboxicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbinfoboxicon.Image = Global.ShiftOS.My.Resources.Resources.iconInfoBox + Me.tbinfoboxicon.Location = New System.Drawing.Point(4, 2) + Me.tbinfoboxicon.Name = "tbinfoboxicon" + Me.tbinfoboxicon.Size = New System.Drawing.Size(16, 16) + Me.tbinfoboxicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbinfoboxicon.TabIndex = 1 + Me.tbinfoboxicon.TabStop = False + ' + 'tbinfoboxtext + ' + Me.tbinfoboxtext.AutoSize = True + Me.tbinfoboxtext.BackColor = System.Drawing.Color.Transparent + Me.tbinfoboxtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbinfoboxtext.ForeColor = System.Drawing.Color.White + Me.tbinfoboxtext.Location = New System.Drawing.Point(24, 2) + Me.tbinfoboxtext.Name = "tbinfoboxtext" + Me.tbinfoboxtext.Size = New System.Drawing.Size(52, 16) + Me.tbinfoboxtext.TabIndex = 0 + Me.tbinfoboxtext.Text = "InfoBox" + ' + 'pnlpanelbuttonknowledgeinput + ' + Me.pnlpanelbuttonknowledgeinput.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonknowledgeinput.Controls.Add(Me.tbknowledgeinputicon) + Me.pnlpanelbuttonknowledgeinput.Controls.Add(Me.tbknowledgeinputtext) + Me.pnlpanelbuttonknowledgeinput.Location = New System.Drawing.Point(295, 3) + Me.pnlpanelbuttonknowledgeinput.Name = "pnlpanelbuttonknowledgeinput" + Me.pnlpanelbuttonknowledgeinput.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonknowledgeinput.TabIndex = 6 + Me.pnlpanelbuttonknowledgeinput.Visible = False + ' + 'tbknowledgeinputicon + ' + Me.tbknowledgeinputicon.BackColor = System.Drawing.Color.Transparent + Me.tbknowledgeinputicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbknowledgeinputicon.Image = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput + Me.tbknowledgeinputicon.Location = New System.Drawing.Point(4, 2) + Me.tbknowledgeinputicon.Name = "tbknowledgeinputicon" + Me.tbknowledgeinputicon.Size = New System.Drawing.Size(16, 16) + Me.tbknowledgeinputicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbknowledgeinputicon.TabIndex = 1 + Me.tbknowledgeinputicon.TabStop = False + ' + 'tbknowledgeinputtext + ' + Me.tbknowledgeinputtext.AutoSize = True + Me.tbknowledgeinputtext.BackColor = System.Drawing.Color.Transparent + Me.tbknowledgeinputtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbknowledgeinputtext.ForeColor = System.Drawing.Color.White + Me.tbknowledgeinputtext.Location = New System.Drawing.Point(24, 2) + Me.tbknowledgeinputtext.Name = "tbknowledgeinputtext" + Me.tbknowledgeinputtext.Size = New System.Drawing.Size(106, 16) + Me.tbknowledgeinputtext.TabIndex = 0 + Me.tbknowledgeinputtext.Text = "Knowledge Input" + ' + 'pnlpanelbuttoncolourpicker + ' + Me.pnlpanelbuttoncolourpicker.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttoncolourpicker.Controls.Add(Me.tbcolourpickericon) + Me.pnlpanelbuttoncolourpicker.Controls.Add(Me.tbcolourpickertext) + Me.pnlpanelbuttoncolourpicker.Location = New System.Drawing.Point(353, 3) + Me.pnlpanelbuttoncolourpicker.Name = "pnlpanelbuttoncolourpicker" + Me.pnlpanelbuttoncolourpicker.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttoncolourpicker.TabIndex = 6 + Me.pnlpanelbuttoncolourpicker.Visible = False + ' + 'tbcolourpickericon + ' + Me.tbcolourpickericon.BackColor = System.Drawing.Color.Transparent + Me.tbcolourpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbcolourpickericon.Image = Global.ShiftOS.My.Resources.Resources.iconColourPicker + Me.tbcolourpickericon.Location = New System.Drawing.Point(4, 2) + Me.tbcolourpickericon.Name = "tbcolourpickericon" + Me.tbcolourpickericon.Size = New System.Drawing.Size(16, 16) + Me.tbcolourpickericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbcolourpickericon.TabIndex = 1 + Me.tbcolourpickericon.TabStop = False + ' + 'tbcolourpickertext + ' + Me.tbcolourpickertext.AutoSize = True + Me.tbcolourpickertext.BackColor = System.Drawing.Color.Transparent + Me.tbcolourpickertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcolourpickertext.ForeColor = System.Drawing.Color.White + Me.tbcolourpickertext.Location = New System.Drawing.Point(24, 2) + Me.tbcolourpickertext.Name = "tbcolourpickertext" + Me.tbcolourpickertext.Size = New System.Drawing.Size(88, 16) + Me.tbcolourpickertext.TabIndex = 0 + Me.tbcolourpickertext.Text = "Colour Picker" + ' + 'pnlpanelbuttonshiftorium + ' + Me.pnlpanelbuttonshiftorium.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonshiftorium.Controls.Add(Me.tbshiftoriumicon) + Me.pnlpanelbuttonshiftorium.Controls.Add(Me.tbshiftoriumtext) + Me.pnlpanelbuttonshiftorium.Location = New System.Drawing.Point(411, 3) + Me.pnlpanelbuttonshiftorium.Name = "pnlpanelbuttonshiftorium" + Me.pnlpanelbuttonshiftorium.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonshiftorium.TabIndex = 7 + Me.pnlpanelbuttonshiftorium.Visible = False + ' + 'tbshiftoriumicon + ' + Me.tbshiftoriumicon.BackColor = System.Drawing.Color.Transparent + Me.tbshiftoriumicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbshiftoriumicon.Image = Global.ShiftOS.My.Resources.Resources.iconShiftorium + Me.tbshiftoriumicon.Location = New System.Drawing.Point(4, 2) + Me.tbshiftoriumicon.Name = "tbshiftoriumicon" + Me.tbshiftoriumicon.Size = New System.Drawing.Size(16, 16) + Me.tbshiftoriumicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbshiftoriumicon.TabIndex = 1 + Me.tbshiftoriumicon.TabStop = False + ' + 'tbshiftoriumtext + ' + Me.tbshiftoriumtext.AutoSize = True + Me.tbshiftoriumtext.BackColor = System.Drawing.Color.Transparent + Me.tbshiftoriumtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbshiftoriumtext.ForeColor = System.Drawing.Color.White + Me.tbshiftoriumtext.Location = New System.Drawing.Point(24, 2) + Me.tbshiftoriumtext.Name = "tbshiftoriumtext" + Me.tbshiftoriumtext.Size = New System.Drawing.Size(66, 16) + Me.tbshiftoriumtext.TabIndex = 0 + Me.tbshiftoriumtext.Text = "Shiftorium" + ' + 'pnlpanelbuttonfilesaver + ' + Me.pnlpanelbuttonfilesaver.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonfilesaver.Controls.Add(Me.tbfilesavericon) + Me.pnlpanelbuttonfilesaver.Controls.Add(Me.tbfilesavertext) + Me.pnlpanelbuttonfilesaver.Location = New System.Drawing.Point(469, 3) + Me.pnlpanelbuttonfilesaver.Name = "pnlpanelbuttonfilesaver" + Me.pnlpanelbuttonfilesaver.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonfilesaver.TabIndex = 6 + Me.pnlpanelbuttonfilesaver.Visible = False + ' + 'tbfilesavericon + ' + Me.tbfilesavericon.BackColor = System.Drawing.Color.Transparent + Me.tbfilesavericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbfilesavericon.Image = Global.ShiftOS.My.Resources.Resources.iconFileSaver + Me.tbfilesavericon.Location = New System.Drawing.Point(4, 2) + Me.tbfilesavericon.Name = "tbfilesavericon" + Me.tbfilesavericon.Size = New System.Drawing.Size(16, 16) + Me.tbfilesavericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbfilesavericon.TabIndex = 1 + Me.tbfilesavericon.TabStop = False + ' + 'tbfilesavertext + ' + Me.tbfilesavertext.AutoSize = True + Me.tbfilesavertext.BackColor = System.Drawing.Color.Transparent + Me.tbfilesavertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbfilesavertext.ForeColor = System.Drawing.Color.White + Me.tbfilesavertext.Location = New System.Drawing.Point(24, 2) + Me.tbfilesavertext.Name = "tbfilesavertext" + Me.tbfilesavertext.Size = New System.Drawing.Size(69, 16) + Me.tbfilesavertext.TabIndex = 0 + Me.tbfilesavertext.Text = "File Saver" + ' + 'pnlpanelbuttonshifter + ' + Me.pnlpanelbuttonshifter.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonshifter.Controls.Add(Me.tbshiftericon) + Me.pnlpanelbuttonshifter.Controls.Add(Me.tbshiftertext) + Me.pnlpanelbuttonshifter.Location = New System.Drawing.Point(527, 3) + Me.pnlpanelbuttonshifter.Name = "pnlpanelbuttonshifter" + Me.pnlpanelbuttonshifter.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonshifter.TabIndex = 6 + Me.pnlpanelbuttonshifter.Visible = False + ' + 'tbshiftericon + ' + Me.tbshiftericon.BackColor = System.Drawing.Color.Transparent + Me.tbshiftericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbshiftericon.Image = Global.ShiftOS.My.Resources.Resources.iconShifter + Me.tbshiftericon.Location = New System.Drawing.Point(4, 2) + Me.tbshiftericon.Name = "tbshiftericon" + Me.tbshiftericon.Size = New System.Drawing.Size(16, 16) + Me.tbshiftericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbshiftericon.TabIndex = 1 + Me.tbshiftericon.TabStop = False + ' + 'tbshiftertext + ' + Me.tbshiftertext.AutoSize = True + Me.tbshiftertext.BackColor = System.Drawing.Color.Transparent + Me.tbshiftertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbshiftertext.ForeColor = System.Drawing.Color.White + Me.tbshiftertext.Location = New System.Drawing.Point(24, 2) + Me.tbshiftertext.Name = "tbshiftertext" + Me.tbshiftertext.Size = New System.Drawing.Size(45, 16) + Me.tbshiftertext.TabIndex = 0 + Me.tbshiftertext.Text = "Shifter" + ' + 'pnlpanelbuttonpong + ' + Me.pnlpanelbuttonpong.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonpong.Controls.Add(Me.tbpongicon) + Me.pnlpanelbuttonpong.Controls.Add(Me.tbpongtext) + Me.pnlpanelbuttonpong.Location = New System.Drawing.Point(585, 3) + Me.pnlpanelbuttonpong.Name = "pnlpanelbuttonpong" + Me.pnlpanelbuttonpong.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonpong.TabIndex = 6 + Me.pnlpanelbuttonpong.Visible = False + ' + 'tbpongicon + ' + Me.tbpongicon.BackColor = System.Drawing.Color.Transparent + Me.tbpongicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbpongicon.Image = Global.ShiftOS.My.Resources.Resources.iconPong + Me.tbpongicon.Location = New System.Drawing.Point(4, 2) + Me.tbpongicon.Name = "tbpongicon" + Me.tbpongicon.Size = New System.Drawing.Size(16, 16) + Me.tbpongicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbpongicon.TabIndex = 1 + Me.tbpongicon.TabStop = False + ' + 'tbpongtext + ' + Me.tbpongtext.AutoSize = True + Me.tbpongtext.BackColor = System.Drawing.Color.Transparent + Me.tbpongtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbpongtext.ForeColor = System.Drawing.Color.White + Me.tbpongtext.Location = New System.Drawing.Point(24, 2) + Me.tbpongtext.Name = "tbpongtext" + Me.tbpongtext.Size = New System.Drawing.Size(40, 16) + Me.tbpongtext.TabIndex = 0 + Me.tbpongtext.Text = "Pong" + ' + 'pnlpanelbuttonterminal + ' + Me.pnlpanelbuttonterminal.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonterminal.Controls.Add(Me.tbterminalicon) + Me.pnlpanelbuttonterminal.Controls.Add(Me.tbterminaltext) + Me.pnlpanelbuttonterminal.Location = New System.Drawing.Point(643, 3) + Me.pnlpanelbuttonterminal.Name = "pnlpanelbuttonterminal" + Me.pnlpanelbuttonterminal.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonterminal.TabIndex = 8 + Me.pnlpanelbuttonterminal.Visible = False + ' + 'tbterminalicon + ' + Me.tbterminalicon.BackColor = System.Drawing.Color.Transparent + Me.tbterminalicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbterminalicon.Image = Global.ShiftOS.My.Resources.Resources.iconTerminal + Me.tbterminalicon.Location = New System.Drawing.Point(4, 2) + Me.tbterminalicon.Name = "tbterminalicon" + Me.tbterminalicon.Size = New System.Drawing.Size(16, 16) + Me.tbterminalicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbterminalicon.TabIndex = 1 + Me.tbterminalicon.TabStop = False + ' + 'tbterminaltext + ' + Me.tbterminaltext.AutoSize = True + Me.tbterminaltext.BackColor = System.Drawing.Color.Transparent + Me.tbterminaltext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbterminaltext.ForeColor = System.Drawing.Color.White + Me.tbterminaltext.Location = New System.Drawing.Point(24, 2) + Me.tbterminaltext.Name = "tbterminaltext" + Me.tbterminaltext.Size = New System.Drawing.Size(61, 16) + Me.tbterminaltext.TabIndex = 0 + Me.tbterminaltext.Text = "Terminal" + ' + 'pnlpanelbuttontextpad + ' + Me.pnlpanelbuttontextpad.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttontextpad.Controls.Add(Me.tbtextpadicon) + Me.pnlpanelbuttontextpad.Controls.Add(Me.tbtextpadtext) + Me.pnlpanelbuttontextpad.Location = New System.Drawing.Point(701, 3) + Me.pnlpanelbuttontextpad.Name = "pnlpanelbuttontextpad" + Me.pnlpanelbuttontextpad.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttontextpad.TabIndex = 4 + Me.pnlpanelbuttontextpad.Visible = False + ' + 'tbtextpadicon + ' + Me.tbtextpadicon.BackColor = System.Drawing.Color.Transparent + Me.tbtextpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbtextpadicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.tbtextpadicon.Location = New System.Drawing.Point(4, 2) + Me.tbtextpadicon.Name = "tbtextpadicon" + Me.tbtextpadicon.Size = New System.Drawing.Size(16, 16) + Me.tbtextpadicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbtextpadicon.TabIndex = 1 + Me.tbtextpadicon.TabStop = False + ' + 'tbtextpadtext + ' + Me.tbtextpadtext.AutoSize = True + Me.tbtextpadtext.BackColor = System.Drawing.Color.Transparent + Me.tbtextpadtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbtextpadtext.ForeColor = System.Drawing.Color.White + Me.tbtextpadtext.Location = New System.Drawing.Point(24, 2) + Me.tbtextpadtext.Name = "tbtextpadtext" + Me.tbtextpadtext.Size = New System.Drawing.Size(58, 16) + Me.tbtextpadtext.TabIndex = 0 + Me.tbtextpadtext.Text = "Textpad" + ' + 'pnlpanelbuttongraphicpicker + ' + Me.pnlpanelbuttongraphicpicker.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttongraphicpicker.Controls.Add(Me.tbgraphicpickericon) + Me.pnlpanelbuttongraphicpicker.Controls.Add(Me.tbgraphicpickertext) + Me.pnlpanelbuttongraphicpicker.Location = New System.Drawing.Point(759, 3) + Me.pnlpanelbuttongraphicpicker.Name = "pnlpanelbuttongraphicpicker" + Me.pnlpanelbuttongraphicpicker.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttongraphicpicker.TabIndex = 6 + Me.pnlpanelbuttongraphicpicker.Visible = False + ' + 'tbgraphicpickericon + ' + Me.tbgraphicpickericon.BackColor = System.Drawing.Color.Transparent + Me.tbgraphicpickericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbgraphicpickericon.Image = Global.ShiftOS.My.Resources.Resources.iconGraphicPicker + Me.tbgraphicpickericon.Location = New System.Drawing.Point(4, 2) + Me.tbgraphicpickericon.Name = "tbgraphicpickericon" + Me.tbgraphicpickericon.Size = New System.Drawing.Size(16, 16) + Me.tbgraphicpickericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbgraphicpickericon.TabIndex = 1 + Me.tbgraphicpickericon.TabStop = False + ' + 'tbgraphicpickertext + ' + Me.tbgraphicpickertext.AutoSize = True + Me.tbgraphicpickertext.BackColor = System.Drawing.Color.Transparent + Me.tbgraphicpickertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbgraphicpickertext.ForeColor = System.Drawing.Color.White + Me.tbgraphicpickertext.Location = New System.Drawing.Point(24, 2) + Me.tbgraphicpickertext.Name = "tbgraphicpickertext" + Me.tbgraphicpickertext.Size = New System.Drawing.Size(96, 16) + Me.tbgraphicpickertext.TabIndex = 0 + Me.tbgraphicpickertext.Text = "Graphic Picker" + ' + 'pnlpanelbuttonartpad + ' + Me.pnlpanelbuttonartpad.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonartpad.Controls.Add(Me.tbartpadicon) + Me.pnlpanelbuttonartpad.Controls.Add(Me.tbartpadtext) + Me.pnlpanelbuttonartpad.Location = New System.Drawing.Point(817, 3) + Me.pnlpanelbuttonartpad.Name = "pnlpanelbuttonartpad" + Me.pnlpanelbuttonartpad.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonartpad.TabIndex = 9 + Me.pnlpanelbuttonartpad.Visible = False + ' + 'tbartpadicon + ' + Me.tbartpadicon.BackColor = System.Drawing.Color.Transparent + Me.tbartpadicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbartpadicon.Image = Global.ShiftOS.My.Resources.Resources.iconArtpad + Me.tbartpadicon.Location = New System.Drawing.Point(4, 2) + Me.tbartpadicon.Name = "tbartpadicon" + Me.tbartpadicon.Size = New System.Drawing.Size(16, 16) + Me.tbartpadicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbartpadicon.TabIndex = 1 + Me.tbartpadicon.TabStop = False + ' + 'tbartpadtext + ' + Me.tbartpadtext.AutoSize = True + Me.tbartpadtext.BackColor = System.Drawing.Color.Transparent + Me.tbartpadtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbartpadtext.ForeColor = System.Drawing.Color.White + Me.tbartpadtext.Location = New System.Drawing.Point(23, 2) + Me.tbartpadtext.Name = "tbartpadtext" + Me.tbartpadtext.Size = New System.Drawing.Size(49, 16) + Me.tbartpadtext.TabIndex = 0 + Me.tbartpadtext.Text = "ArtPad" + ' + 'pnlpanelbuttoncalculator + ' + Me.pnlpanelbuttoncalculator.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttoncalculator.Controls.Add(Me.tbcalculatoricon) + Me.pnlpanelbuttoncalculator.Controls.Add(Me.tbcalculatortext) + Me.pnlpanelbuttoncalculator.Location = New System.Drawing.Point(875, 3) + Me.pnlpanelbuttoncalculator.Name = "pnlpanelbuttoncalculator" + Me.pnlpanelbuttoncalculator.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttoncalculator.TabIndex = 10 + Me.pnlpanelbuttoncalculator.Visible = False + ' + 'tbcalculatoricon + ' + Me.tbcalculatoricon.BackColor = System.Drawing.Color.Transparent + Me.tbcalculatoricon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbcalculatoricon.Image = Global.ShiftOS.My.Resources.Resources.iconCalculator + Me.tbcalculatoricon.Location = New System.Drawing.Point(4, 2) + Me.tbcalculatoricon.Name = "tbcalculatoricon" + Me.tbcalculatoricon.Size = New System.Drawing.Size(16, 16) + Me.tbcalculatoricon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbcalculatoricon.TabIndex = 1 + Me.tbcalculatoricon.TabStop = False + ' + 'tbcalculatortext + ' + Me.tbcalculatortext.AutoSize = True + Me.tbcalculatortext.BackColor = System.Drawing.Color.Transparent + Me.tbcalculatortext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcalculatortext.ForeColor = System.Drawing.Color.White + Me.tbcalculatortext.Location = New System.Drawing.Point(23, 2) + Me.tbcalculatortext.Name = "tbcalculatortext" + Me.tbcalculatortext.Size = New System.Drawing.Size(68, 16) + Me.tbcalculatortext.TabIndex = 0 + Me.tbcalculatortext.Text = "Calculator" + ' + 'pnlpanelbuttonaudioplayer + ' + Me.pnlpanelbuttonaudioplayer.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonaudioplayer.Controls.Add(Me.tbaudioplayericon) + Me.pnlpanelbuttonaudioplayer.Controls.Add(Me.tbaudioplayertext) + Me.pnlpanelbuttonaudioplayer.Location = New System.Drawing.Point(933, 3) + Me.pnlpanelbuttonaudioplayer.Name = "pnlpanelbuttonaudioplayer" + Me.pnlpanelbuttonaudioplayer.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonaudioplayer.TabIndex = 11 + Me.pnlpanelbuttonaudioplayer.Visible = False + ' + 'tbaudioplayericon + ' + Me.tbaudioplayericon.BackColor = System.Drawing.Color.Transparent + Me.tbaudioplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbaudioplayericon.Image = Global.ShiftOS.My.Resources.Resources.iconAudioPlayer + Me.tbaudioplayericon.Location = New System.Drawing.Point(4, 2) + Me.tbaudioplayericon.Name = "tbaudioplayericon" + Me.tbaudioplayericon.Size = New System.Drawing.Size(16, 16) + Me.tbaudioplayericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbaudioplayericon.TabIndex = 1 + Me.tbaudioplayericon.TabStop = False + ' + 'tbaudioplayertext + ' + Me.tbaudioplayertext.AutoSize = True + Me.tbaudioplayertext.BackColor = System.Drawing.Color.Transparent + Me.tbaudioplayertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbaudioplayertext.ForeColor = System.Drawing.Color.White + Me.tbaudioplayertext.Location = New System.Drawing.Point(23, 2) + Me.tbaudioplayertext.Name = "tbaudioplayertext" + Me.tbaudioplayertext.Size = New System.Drawing.Size(85, 16) + Me.tbaudioplayertext.TabIndex = 0 + Me.tbaudioplayertext.Text = "Audio Player" + ' + 'pnlpanelbuttonwebbrowser + ' + Me.pnlpanelbuttonwebbrowser.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonwebbrowser.Controls.Add(Me.tbwebbrowsericon) + Me.pnlpanelbuttonwebbrowser.Controls.Add(Me.tbwebbrowsertext) + Me.pnlpanelbuttonwebbrowser.Location = New System.Drawing.Point(991, 3) + Me.pnlpanelbuttonwebbrowser.Name = "pnlpanelbuttonwebbrowser" + Me.pnlpanelbuttonwebbrowser.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonwebbrowser.TabIndex = 12 + Me.pnlpanelbuttonwebbrowser.Visible = False + ' + 'tbwebbrowsericon + ' + Me.tbwebbrowsericon.BackColor = System.Drawing.Color.Transparent + Me.tbwebbrowsericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbwebbrowsericon.Image = Global.ShiftOS.My.Resources.Resources.iconWebBrowser + Me.tbwebbrowsericon.Location = New System.Drawing.Point(4, 2) + Me.tbwebbrowsericon.Name = "tbwebbrowsericon" + Me.tbwebbrowsericon.Size = New System.Drawing.Size(16, 16) + Me.tbwebbrowsericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbwebbrowsericon.TabIndex = 1 + Me.tbwebbrowsericon.TabStop = False + ' + 'tbwebbrowsertext + ' + Me.tbwebbrowsertext.AutoSize = True + Me.tbwebbrowsertext.BackColor = System.Drawing.Color.Transparent + Me.tbwebbrowsertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbwebbrowsertext.ForeColor = System.Drawing.Color.White + Me.tbwebbrowsertext.Location = New System.Drawing.Point(23, 2) + Me.tbwebbrowsertext.Name = "tbwebbrowsertext" + Me.tbwebbrowsertext.Size = New System.Drawing.Size(89, 16) + Me.tbwebbrowsertext.TabIndex = 0 + Me.tbwebbrowsertext.Text = "Web Browser" + ' + 'pnlpanelbuttonvideoplayer + ' + Me.pnlpanelbuttonvideoplayer.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonvideoplayer.Controls.Add(Me.tbvideoplayericon) + Me.pnlpanelbuttonvideoplayer.Controls.Add(Me.tbvideoplayertext) + Me.pnlpanelbuttonvideoplayer.Location = New System.Drawing.Point(1049, 3) + Me.pnlpanelbuttonvideoplayer.Name = "pnlpanelbuttonvideoplayer" + Me.pnlpanelbuttonvideoplayer.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonvideoplayer.TabIndex = 13 + Me.pnlpanelbuttonvideoplayer.Visible = False + ' + 'tbvideoplayericon + ' + Me.tbvideoplayericon.BackColor = System.Drawing.Color.Transparent + Me.tbvideoplayericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbvideoplayericon.Image = Global.ShiftOS.My.Resources.Resources.iconVideoPlayer + Me.tbvideoplayericon.Location = New System.Drawing.Point(4, 2) + Me.tbvideoplayericon.Name = "tbvideoplayericon" + Me.tbvideoplayericon.Size = New System.Drawing.Size(16, 16) + Me.tbvideoplayericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbvideoplayericon.TabIndex = 1 + Me.tbvideoplayericon.TabStop = False + ' + 'tbvideoplayertext + ' + Me.tbvideoplayertext.AutoSize = True + Me.tbvideoplayertext.BackColor = System.Drawing.Color.Transparent + Me.tbvideoplayertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbvideoplayertext.ForeColor = System.Drawing.Color.White + Me.tbvideoplayertext.Location = New System.Drawing.Point(22, 2) + Me.tbvideoplayertext.Name = "tbvideoplayertext" + Me.tbvideoplayertext.Size = New System.Drawing.Size(86, 16) + Me.tbvideoplayertext.TabIndex = 0 + Me.tbvideoplayertext.Text = "Video Player" + ' + 'pnlpanelbuttonnamechanger + ' + Me.pnlpanelbuttonnamechanger.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonnamechanger.Controls.Add(Me.tbnamechangericon) + Me.pnlpanelbuttonnamechanger.Controls.Add(Me.tbnamechangertext) + Me.pnlpanelbuttonnamechanger.Location = New System.Drawing.Point(1107, 3) + Me.pnlpanelbuttonnamechanger.Name = "pnlpanelbuttonnamechanger" + Me.pnlpanelbuttonnamechanger.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonnamechanger.TabIndex = 14 + Me.pnlpanelbuttonnamechanger.Visible = False + ' + 'tbnamechangericon + ' + Me.tbnamechangericon.BackColor = System.Drawing.Color.Transparent + Me.tbnamechangericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbnamechangericon.Image = Global.ShiftOS.My.Resources.Resources.iconNameChanger + Me.tbnamechangericon.Location = New System.Drawing.Point(4, 2) + Me.tbnamechangericon.Name = "tbnamechangericon" + Me.tbnamechangericon.Size = New System.Drawing.Size(16, 16) + Me.tbnamechangericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbnamechangericon.TabIndex = 1 + Me.tbnamechangericon.TabStop = False + ' + 'tbnamechangertext + ' + Me.tbnamechangertext.AutoSize = True + Me.tbnamechangertext.BackColor = System.Drawing.Color.Transparent + Me.tbnamechangertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbnamechangertext.ForeColor = System.Drawing.Color.White + Me.tbnamechangertext.Location = New System.Drawing.Point(22, 2) + Me.tbnamechangertext.Name = "tbnamechangertext" + Me.tbnamechangertext.Size = New System.Drawing.Size(99, 16) + Me.tbnamechangertext.TabIndex = 0 + Me.tbnamechangertext.Text = "Name Changer" + ' + 'pnlpanelbuttoniconmanager + ' + Me.pnlpanelbuttoniconmanager.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttoniconmanager.Controls.Add(Me.tbiconmanagericon) + Me.pnlpanelbuttoniconmanager.Controls.Add(Me.tbiconmanagertext) + Me.pnlpanelbuttoniconmanager.Location = New System.Drawing.Point(1165, 3) + Me.pnlpanelbuttoniconmanager.Name = "pnlpanelbuttoniconmanager" + Me.pnlpanelbuttoniconmanager.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttoniconmanager.TabIndex = 15 + Me.pnlpanelbuttoniconmanager.Visible = False + ' + 'tbiconmanagericon + ' + Me.tbiconmanagericon.BackColor = System.Drawing.Color.Transparent + Me.tbiconmanagericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbiconmanagericon.Image = Global.ShiftOS.My.Resources.Resources.iconNameChanger + Me.tbiconmanagericon.Location = New System.Drawing.Point(4, 2) + Me.tbiconmanagericon.Name = "tbiconmanagericon" + Me.tbiconmanagericon.Size = New System.Drawing.Size(16, 16) + Me.tbiconmanagericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbiconmanagericon.TabIndex = 1 + Me.tbiconmanagericon.TabStop = False + ' + 'tbiconmanagertext + ' + Me.tbiconmanagertext.AutoSize = True + Me.tbiconmanagertext.BackColor = System.Drawing.Color.Transparent + Me.tbiconmanagertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbiconmanagertext.ForeColor = System.Drawing.Color.White + Me.tbiconmanagertext.Location = New System.Drawing.Point(22, 2) + Me.tbiconmanagertext.Name = "tbiconmanagertext" + Me.tbiconmanagertext.Size = New System.Drawing.Size(90, 16) + Me.tbiconmanagertext.TabIndex = 0 + Me.tbiconmanagertext.Text = "Icon Manager" + ' + 'pnlpanelbuttonbitnotewallet + ' + Me.pnlpanelbuttonbitnotewallet.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonbitnotewallet.Controls.Add(Me.tbbitnotewalleticon) + Me.pnlpanelbuttonbitnotewallet.Controls.Add(Me.tbbitnotewallettext) + Me.pnlpanelbuttonbitnotewallet.Location = New System.Drawing.Point(1223, 3) + Me.pnlpanelbuttonbitnotewallet.Name = "pnlpanelbuttonbitnotewallet" + Me.pnlpanelbuttonbitnotewallet.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonbitnotewallet.TabIndex = 16 + Me.pnlpanelbuttonbitnotewallet.Visible = False + ' + 'tbbitnotewalleticon + ' + Me.tbbitnotewalleticon.BackColor = System.Drawing.Color.Transparent + Me.tbbitnotewalleticon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbbitnotewalleticon.Image = Global.ShiftOS.My.Resources.Resources.iconBitnoteWallet + Me.tbbitnotewalleticon.Location = New System.Drawing.Point(4, 2) + Me.tbbitnotewalleticon.Name = "tbbitnotewalleticon" + Me.tbbitnotewalleticon.Size = New System.Drawing.Size(16, 16) + Me.tbbitnotewalleticon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbbitnotewalleticon.TabIndex = 1 + Me.tbbitnotewalleticon.TabStop = False + ' + 'tbbitnotewallettext + ' + Me.tbbitnotewallettext.AutoSize = True + Me.tbbitnotewallettext.BackColor = System.Drawing.Color.Transparent + Me.tbbitnotewallettext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbbitnotewallettext.ForeColor = System.Drawing.Color.White + Me.tbbitnotewallettext.Location = New System.Drawing.Point(22, 2) + Me.tbbitnotewallettext.Name = "tbbitnotewallettext" + Me.tbbitnotewallettext.Size = New System.Drawing.Size(90, 16) + Me.tbbitnotewallettext.TabIndex = 0 + Me.tbbitnotewallettext.Text = "Bitnote Wallet" + ' + 'pnlpanelbuttonbitnotedigger + ' + Me.pnlpanelbuttonbitnotedigger.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonbitnotedigger.Controls.Add(Me.tbbitnotediggericon) + Me.pnlpanelbuttonbitnotedigger.Controls.Add(Me.tbbitnotediggertext) + Me.pnlpanelbuttonbitnotedigger.Location = New System.Drawing.Point(1281, 3) + Me.pnlpanelbuttonbitnotedigger.Name = "pnlpanelbuttonbitnotedigger" + Me.pnlpanelbuttonbitnotedigger.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonbitnotedigger.TabIndex = 17 + Me.pnlpanelbuttonbitnotedigger.Visible = False + ' + 'tbbitnotediggericon + ' + Me.tbbitnotediggericon.BackColor = System.Drawing.Color.Transparent + Me.tbbitnotediggericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbbitnotediggericon.Image = Global.ShiftOS.My.Resources.Resources.iconBitnoteDigger + Me.tbbitnotediggericon.Location = New System.Drawing.Point(4, 2) + Me.tbbitnotediggericon.Name = "tbbitnotediggericon" + Me.tbbitnotediggericon.Size = New System.Drawing.Size(16, 16) + Me.tbbitnotediggericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbbitnotediggericon.TabIndex = 1 + Me.tbbitnotediggericon.TabStop = False + ' + 'tbbitnotediggertext + ' + Me.tbbitnotediggertext.AutoSize = True + Me.tbbitnotediggertext.BackColor = System.Drawing.Color.Transparent + Me.tbbitnotediggertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbbitnotediggertext.ForeColor = System.Drawing.Color.White + Me.tbbitnotediggertext.Location = New System.Drawing.Point(22, 2) + Me.tbbitnotediggertext.Name = "tbbitnotediggertext" + Me.tbbitnotediggertext.Size = New System.Drawing.Size(93, 16) + Me.tbbitnotediggertext.TabIndex = 0 + Me.tbbitnotediggertext.Text = "Bitnote Digger" + ' + 'pnlpanelbuttonskinshifter + ' + Me.pnlpanelbuttonskinshifter.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonskinshifter.Controls.Add(Me.tbskinshiftericon) + Me.pnlpanelbuttonskinshifter.Controls.Add(Me.tbskinshiftertext) + Me.pnlpanelbuttonskinshifter.Location = New System.Drawing.Point(1339, 3) + Me.pnlpanelbuttonskinshifter.Name = "pnlpanelbuttonskinshifter" + Me.pnlpanelbuttonskinshifter.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonskinshifter.TabIndex = 18 + Me.pnlpanelbuttonskinshifter.Visible = False + ' + 'tbskinshiftericon + ' + Me.tbskinshiftericon.BackColor = System.Drawing.Color.Transparent + Me.tbskinshiftericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbskinshiftericon.Image = Global.ShiftOS.My.Resources.Resources.iconSkinShifter + Me.tbskinshiftericon.Location = New System.Drawing.Point(4, 2) + Me.tbskinshiftericon.Name = "tbskinshiftericon" + Me.tbskinshiftericon.Size = New System.Drawing.Size(16, 16) + Me.tbskinshiftericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbskinshiftericon.TabIndex = 1 + Me.tbskinshiftericon.TabStop = False + ' + 'tbskinshiftertext + ' + Me.tbskinshiftertext.AutoSize = True + Me.tbskinshiftertext.BackColor = System.Drawing.Color.Transparent + Me.tbskinshiftertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbskinshiftertext.ForeColor = System.Drawing.Color.White + Me.tbskinshiftertext.Location = New System.Drawing.Point(22, 2) + Me.tbskinshiftertext.Name = "tbskinshiftertext" + Me.tbskinshiftertext.Size = New System.Drawing.Size(74, 16) + Me.tbskinshiftertext.TabIndex = 0 + Me.tbskinshiftertext.Text = "Skin Shifter" + ' + 'applaunchermenuholder + ' + Me.applaunchermenuholder.Controls.Add(Me.desktopappmenu) + Me.applaunchermenuholder.Dock = System.Windows.Forms.DockStyle.Left + Me.applaunchermenuholder.Location = New System.Drawing.Point(0, 0) + Me.applaunchermenuholder.Name = "applaunchermenuholder" + Me.applaunchermenuholder.Size = New System.Drawing.Size(130, 24) + Me.applaunchermenuholder.TabIndex = 3 + ' + 'desktopappmenu + ' + Me.desktopappmenu.AutoSize = False + Me.desktopappmenu.BackColor = System.Drawing.Color.Transparent + Me.desktopappmenu.GripMargin = New System.Windows.Forms.Padding(0) + Me.desktopappmenu.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.desktopappmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplicationsToolStripMenuItem}) + Me.desktopappmenu.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow + Me.desktopappmenu.Location = New System.Drawing.Point(0, 0) + Me.desktopappmenu.Name = "desktopappmenu" + Me.desktopappmenu.Padding = New System.Windows.Forms.Padding(0) + Me.desktopappmenu.Size = New System.Drawing.Size(130, 24) + Me.desktopappmenu.TabIndex = 0 + Me.desktopappmenu.TabStop = True + Me.desktopappmenu.Text = "MenuStrip1" + ' + 'ApplicationsToolStripMenuItem + ' + Me.ApplicationsToolStripMenuItem.AutoSize = False + Me.ApplicationsToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ApplicationsToolStripMenuItem.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.ApplicationsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KnowledgeInputToolStripMenuItem, Me.ShiftoriumToolStripMenuItem, Me.ClockToolStripMenuItem, Me.TerminalToolStripMenuItem, Me.FileSkimmerToolStripMenuItem, Me.TextPadToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.PongToolStripMenuItem, Me.SkinLoaderToolStripMenuItem, Me.ArtpadToolStripMenuItem, Me.CalculatorToolStripMenuItem, Me.AudioplayerToolStripMenuItem, Me.WebBrowserToolStripMenuItem, Me.VideoplayerToolStripMenuItem, Me.NameChangerToolStripMenuItem, Me.IconManagerToolStripMenuItem, Me.BitnoteWalletToolStripMenuItem, Me.BitnoteDiggerToolStripMenuItem, Me.SkinShifterToolStripMenuItem, Me.ShiftnetToolStripMenuItem, Me.ToolStripSeparator1, Me.ShutdownToolStripMenuItem}) + Me.ApplicationsToolStripMenuItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.749999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem" + Me.ApplicationsToolStripMenuItem.Padding = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.ApplicationsToolStripMenuItem.ShowShortcutKeys = False + Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(94, 24) + Me.ApplicationsToolStripMenuItem.Text = "Applications" + Me.ApplicationsToolStripMenuItem.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal + Me.ApplicationsToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage + ' + 'KnowledgeInputToolStripMenuItem + ' + Me.KnowledgeInputToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.KnowledgeInputToolStripMenuItem.Name = "KnowledgeInputToolStripMenuItem" + Me.KnowledgeInputToolStripMenuItem.ShowShortcutKeys = False + Me.KnowledgeInputToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.KnowledgeInputToolStripMenuItem.Text = "Knowledge Input" + ' + 'ShiftoriumToolStripMenuItem + ' + Me.ShiftoriumToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShiftoriumToolStripMenuItem.Name = "ShiftoriumToolStripMenuItem" + Me.ShiftoriumToolStripMenuItem.ShowShortcutKeys = False + Me.ShiftoriumToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShiftoriumToolStripMenuItem.Text = "Shiftorium" + ' + 'ClockToolStripMenuItem + ' + Me.ClockToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ClockToolStripMenuItem.Name = "ClockToolStripMenuItem" + Me.ClockToolStripMenuItem.ShowShortcutKeys = False + Me.ClockToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ClockToolStripMenuItem.Text = "Clock" + ' + 'TerminalToolStripMenuItem + ' + Me.TerminalToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.TerminalToolStripMenuItem.Name = "TerminalToolStripMenuItem" + Me.TerminalToolStripMenuItem.ShowShortcutKeys = False + Me.TerminalToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.TerminalToolStripMenuItem.Text = "Terminal" + ' + 'FileSkimmerToolStripMenuItem + ' + Me.FileSkimmerToolStripMenuItem.Name = "FileSkimmerToolStripMenuItem" + Me.FileSkimmerToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.FileSkimmerToolStripMenuItem.Text = "File Skimmer" + ' + 'TextPadToolStripMenuItem + ' + Me.TextPadToolStripMenuItem.Name = "TextPadToolStripMenuItem" + Me.TextPadToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.TextPadToolStripMenuItem.Text = "TextPad" + ' + 'ShifterToolStripMenuItem + ' + Me.ShifterToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem" + Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShifterToolStripMenuItem.Text = "Shifter" + ' + 'PongToolStripMenuItem + ' + Me.PongToolStripMenuItem.Name = "PongToolStripMenuItem" + Me.PongToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.PongToolStripMenuItem.Text = "Pong" + ' + 'SkinLoaderToolStripMenuItem + ' + Me.SkinLoaderToolStripMenuItem.Name = "SkinLoaderToolStripMenuItem" + Me.SkinLoaderToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.SkinLoaderToolStripMenuItem.Text = "Skin Loader" + ' + 'ArtpadToolStripMenuItem + ' + Me.ArtpadToolStripMenuItem.Name = "ArtpadToolStripMenuItem" + Me.ArtpadToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ArtpadToolStripMenuItem.Text = "ArtPad" + ' + 'CalculatorToolStripMenuItem + ' + Me.CalculatorToolStripMenuItem.Name = "CalculatorToolStripMenuItem" + Me.CalculatorToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.CalculatorToolStripMenuItem.Text = "Calculator" + ' + 'AudioplayerToolStripMenuItem + ' + Me.AudioplayerToolStripMenuItem.Name = "AudioplayerToolStripMenuItem" + Me.AudioplayerToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.AudioplayerToolStripMenuItem.Text = "Audio Player" + ' + 'WebBrowserToolStripMenuItem + ' + Me.WebBrowserToolStripMenuItem.Name = "WebBrowserToolStripMenuItem" + Me.WebBrowserToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.WebBrowserToolStripMenuItem.Text = "Web Browser" + ' + 'VideoplayerToolStripMenuItem + ' + Me.VideoplayerToolStripMenuItem.Name = "VideoplayerToolStripMenuItem" + Me.VideoplayerToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.VideoplayerToolStripMenuItem.Text = "Video Player" + ' + 'NameChangerToolStripMenuItem + ' + Me.NameChangerToolStripMenuItem.Name = "NameChangerToolStripMenuItem" + Me.NameChangerToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.NameChangerToolStripMenuItem.Text = "Name Changer" + ' + 'IconManagerToolStripMenuItem + ' + Me.IconManagerToolStripMenuItem.Name = "IconManagerToolStripMenuItem" + Me.IconManagerToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.IconManagerToolStripMenuItem.Text = "Icon Manager" + ' + 'BitnoteWalletToolStripMenuItem + ' + Me.BitnoteWalletToolStripMenuItem.Name = "BitnoteWalletToolStripMenuItem" + Me.BitnoteWalletToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.BitnoteWalletToolStripMenuItem.Text = "Bitnote Wallet" + ' + 'BitnoteDiggerToolStripMenuItem + ' + Me.BitnoteDiggerToolStripMenuItem.Name = "BitnoteDiggerToolStripMenuItem" + Me.BitnoteDiggerToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.BitnoteDiggerToolStripMenuItem.Text = "Bitnote Digger" + ' + 'SkinShifterToolStripMenuItem + ' + Me.SkinShifterToolStripMenuItem.Name = "SkinShifterToolStripMenuItem" + Me.SkinShifterToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.SkinShifterToolStripMenuItem.Text = "Skin Shifter" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.BackColor = System.Drawing.Color.Transparent + Me.ToolStripSeparator1.ForeColor = System.Drawing.Color.White + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6) + ' + 'ShutdownToolStripMenuItem + ' + Me.ShutdownToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShutdownToolStripMenuItem.Name = "ShutdownToolStripMenuItem" + Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShutdownToolStripMenuItem.Text = "Shut Down" + ' + 'timepanel + ' + Me.timepanel.Controls.Add(Me.paneltimetext) + Me.timepanel.Dock = System.Windows.Forms.DockStyle.Right + Me.timepanel.Location = New System.Drawing.Point(1648, 0) + Me.timepanel.Name = "timepanel" + Me.timepanel.Size = New System.Drawing.Size(97, 24) + Me.timepanel.TabIndex = 2 + ' + 'paneltimetext + ' + Me.paneltimetext.AutoSize = True + Me.paneltimetext.BackColor = System.Drawing.Color.Transparent + Me.paneltimetext.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.paneltimetext.Location = New System.Drawing.Point(5, 0) + Me.paneltimetext.Name = "paneltimetext" + Me.paneltimetext.Size = New System.Drawing.Size(80, 24) + Me.paneltimetext.TabIndex = 1 + Me.paneltimetext.Text = "5000023" + Me.paneltimetext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'clocktick + ' + Me.clocktick.Enabled = True + Me.clocktick.Interval = 1000 + ' + 'autosave + ' + Me.autosave.Enabled = True + Me.autosave.Interval = 60000 + ' + 'pnlpanelbuttonshiftnet + ' + Me.pnlpanelbuttonshiftnet.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttonshiftnet.Controls.Add(Me.tbshiftneticon) + Me.pnlpanelbuttonshiftnet.Controls.Add(Me.tbshiftnettext) + Me.pnlpanelbuttonshiftnet.Location = New System.Drawing.Point(1397, 3) + Me.pnlpanelbuttonshiftnet.Name = "pnlpanelbuttonshiftnet" + Me.pnlpanelbuttonshiftnet.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttonshiftnet.TabIndex = 19 + Me.pnlpanelbuttonshiftnet.Visible = False + ' + 'tbshiftneticon + ' + Me.tbshiftneticon.BackColor = System.Drawing.Color.Transparent + Me.tbshiftneticon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbshiftneticon.Image = Global.ShiftOS.My.Resources.Resources.iconShiftnet + Me.tbshiftneticon.Location = New System.Drawing.Point(4, 2) + Me.tbshiftneticon.Name = "tbshiftneticon" + Me.tbshiftneticon.Size = New System.Drawing.Size(16, 16) + Me.tbshiftneticon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbshiftneticon.TabIndex = 1 + Me.tbshiftneticon.TabStop = False + ' + 'tbshiftnettext + ' + Me.tbshiftnettext.AutoSize = True + Me.tbshiftnettext.BackColor = System.Drawing.Color.Transparent + Me.tbshiftnettext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbshiftnettext.ForeColor = System.Drawing.Color.White + Me.tbshiftnettext.Location = New System.Drawing.Point(22, 2) + Me.tbshiftnettext.Name = "tbshiftnettext" + Me.tbshiftnettext.Size = New System.Drawing.Size(51, 16) + Me.tbshiftnettext.TabIndex = 0 + Me.tbshiftnettext.Text = "Shiftnet" + ' + 'pnlpanelbuttondownloader + ' + Me.pnlpanelbuttondownloader.BackColor = System.Drawing.Color.Black + Me.pnlpanelbuttondownloader.Controls.Add(Me.tbdownloadericon) + Me.pnlpanelbuttondownloader.Controls.Add(Me.tbdownloadertext) + Me.pnlpanelbuttondownloader.Location = New System.Drawing.Point(1455, 3) + Me.pnlpanelbuttondownloader.Name = "pnlpanelbuttondownloader" + Me.pnlpanelbuttondownloader.Size = New System.Drawing.Size(52, 20) + Me.pnlpanelbuttondownloader.TabIndex = 20 + Me.pnlpanelbuttondownloader.Visible = False + ' + 'tbdownloadericon + ' + Me.tbdownloadericon.BackColor = System.Drawing.Color.Transparent + Me.tbdownloadericon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.tbdownloadericon.Image = Global.ShiftOS.My.Resources.Resources.iconDownloader + Me.tbdownloadericon.Location = New System.Drawing.Point(4, 2) + Me.tbdownloadericon.Name = "tbdownloadericon" + Me.tbdownloadericon.Size = New System.Drawing.Size(16, 16) + Me.tbdownloadericon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.tbdownloadericon.TabIndex = 1 + Me.tbdownloadericon.TabStop = False + ' + 'tbdownloadertext + ' + Me.tbdownloadertext.AutoSize = True + Me.tbdownloadertext.BackColor = System.Drawing.Color.Transparent + Me.tbdownloadertext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbdownloadertext.ForeColor = System.Drawing.Color.White + Me.tbdownloadertext.Location = New System.Drawing.Point(22, 2) + Me.tbdownloadertext.Name = "tbdownloadertext" + Me.tbdownloadertext.Size = New System.Drawing.Size(81, 16) + Me.tbdownloadertext.TabIndex = 0 + Me.tbdownloadertext.Text = "Downloader" + ' + 'ShiftnetToolStripMenuItem + ' + Me.ShiftnetToolStripMenuItem.Name = "ShiftnetToolStripMenuItem" + Me.ShiftnetToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShiftnetToolStripMenuItem.Text = "Shiftnet" + ' + 'ShiftOSDesktop + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(1745, 805) + Me.Controls.Add(Me.desktoppanel) + Me.KeyPreview = True + Me.MainMenuStrip = Me.desktopappmenu + Me.Name = "ShiftOSDesktop" + Me.Text = "ShiftOSDesktop" + Me.desktoppanel.ResumeLayout(False) + Me.pnlpanelbuttonholder.ResumeLayout(False) + Me.pnlpanelbuttonclock.ResumeLayout(False) + Me.pnlpanelbuttonclock.PerformLayout() + CType(Me.tbclockicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonskinloader.ResumeLayout(False) + Me.pnlpanelbuttonskinloader.PerformLayout() + CType(Me.tbskinloadericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonfileskimmer.ResumeLayout(False) + Me.pnlpanelbuttonfileskimmer.PerformLayout() + CType(Me.tbfileskimmericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonfileopener.ResumeLayout(False) + Me.pnlpanelbuttonfileopener.PerformLayout() + CType(Me.tbfileopenericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttoninfobox.ResumeLayout(False) + Me.pnlpanelbuttoninfobox.PerformLayout() + CType(Me.tbinfoboxicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonknowledgeinput.ResumeLayout(False) + Me.pnlpanelbuttonknowledgeinput.PerformLayout() + CType(Me.tbknowledgeinputicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttoncolourpicker.ResumeLayout(False) + Me.pnlpanelbuttoncolourpicker.PerformLayout() + CType(Me.tbcolourpickericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonshiftorium.ResumeLayout(False) + Me.pnlpanelbuttonshiftorium.PerformLayout() + CType(Me.tbshiftoriumicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonfilesaver.ResumeLayout(False) + Me.pnlpanelbuttonfilesaver.PerformLayout() + CType(Me.tbfilesavericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonshifter.ResumeLayout(False) + Me.pnlpanelbuttonshifter.PerformLayout() + CType(Me.tbshiftericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonpong.ResumeLayout(False) + Me.pnlpanelbuttonpong.PerformLayout() + CType(Me.tbpongicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonterminal.ResumeLayout(False) + Me.pnlpanelbuttonterminal.PerformLayout() + CType(Me.tbterminalicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttontextpad.ResumeLayout(False) + Me.pnlpanelbuttontextpad.PerformLayout() + CType(Me.tbtextpadicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttongraphicpicker.ResumeLayout(False) + Me.pnlpanelbuttongraphicpicker.PerformLayout() + CType(Me.tbgraphicpickericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonartpad.ResumeLayout(False) + Me.pnlpanelbuttonartpad.PerformLayout() + CType(Me.tbartpadicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttoncalculator.ResumeLayout(False) + Me.pnlpanelbuttoncalculator.PerformLayout() + CType(Me.tbcalculatoricon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonaudioplayer.ResumeLayout(False) + Me.pnlpanelbuttonaudioplayer.PerformLayout() + CType(Me.tbaudioplayericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonwebbrowser.ResumeLayout(False) + Me.pnlpanelbuttonwebbrowser.PerformLayout() + CType(Me.tbwebbrowsericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonvideoplayer.ResumeLayout(False) + Me.pnlpanelbuttonvideoplayer.PerformLayout() + CType(Me.tbvideoplayericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonnamechanger.ResumeLayout(False) + Me.pnlpanelbuttonnamechanger.PerformLayout() + CType(Me.tbnamechangericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttoniconmanager.ResumeLayout(False) + Me.pnlpanelbuttoniconmanager.PerformLayout() + CType(Me.tbiconmanagericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonbitnotewallet.ResumeLayout(False) + Me.pnlpanelbuttonbitnotewallet.PerformLayout() + CType(Me.tbbitnotewalleticon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonbitnotedigger.ResumeLayout(False) + Me.pnlpanelbuttonbitnotedigger.PerformLayout() + CType(Me.tbbitnotediggericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttonskinshifter.ResumeLayout(False) + Me.pnlpanelbuttonskinshifter.PerformLayout() + CType(Me.tbskinshiftericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.applaunchermenuholder.ResumeLayout(False) + Me.desktopappmenu.ResumeLayout(False) + Me.desktopappmenu.PerformLayout() + Me.timepanel.ResumeLayout(False) + Me.timepanel.PerformLayout() + Me.pnlpanelbuttonshiftnet.ResumeLayout(False) + Me.pnlpanelbuttonshiftnet.PerformLayout() + CType(Me.tbshiftneticon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlpanelbuttondownloader.ResumeLayout(False) + Me.pnlpanelbuttondownloader.PerformLayout() + CType(Me.tbdownloadericon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents desktoppanel As System.Windows.Forms.Panel + Friend WithEvents desktopappmenu As System.Windows.Forms.MenuStrip + Friend WithEvents ApplicationsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KnowledgeInputToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShiftoriumToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ClockToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TerminalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ShutdownToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents paneltimetext As System.Windows.Forms.Label + Friend WithEvents clocktick As System.Windows.Forms.Timer + Friend WithEvents timepanel As System.Windows.Forms.Panel + Friend WithEvents ShifterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents applaunchermenuholder As System.Windows.Forms.Panel + Friend WithEvents PongToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FileSkimmerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TextPadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents autosave As System.Windows.Forms.Timer + Friend WithEvents SkinLoaderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttontextpad As System.Windows.Forms.Panel + Friend WithEvents tbtextpadicon As System.Windows.Forms.PictureBox + Friend WithEvents tbtextpadtext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonclock As System.Windows.Forms.Panel + Friend WithEvents tbclockicon As System.Windows.Forms.PictureBox + Friend WithEvents tbclocktext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttoncolourpicker As System.Windows.Forms.Panel + Friend WithEvents tbcolourpickericon As System.Windows.Forms.PictureBox + Friend WithEvents tbcolourpickertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonfilesaver As System.Windows.Forms.Panel + Friend WithEvents tbfilesavericon As System.Windows.Forms.PictureBox + Friend WithEvents tbfilesavertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttongraphicpicker As System.Windows.Forms.Panel + Friend WithEvents tbgraphicpickericon As System.Windows.Forms.PictureBox + Friend WithEvents tbgraphicpickertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonfileopener As System.Windows.Forms.Panel + Friend WithEvents tbfileopenericon As System.Windows.Forms.PictureBox + Friend WithEvents tbfileopenertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonfileskimmer As System.Windows.Forms.Panel + Friend WithEvents tbfileskimmericon As System.Windows.Forms.PictureBox + Friend WithEvents tbfileskimmertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonknowledgeinput As System.Windows.Forms.Panel + Friend WithEvents tbknowledgeinputicon As System.Windows.Forms.PictureBox + Friend WithEvents tbknowledgeinputtext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttoninfobox As System.Windows.Forms.Panel + Friend WithEvents tbinfoboxicon As System.Windows.Forms.PictureBox + Friend WithEvents tbinfoboxtext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonshifter As System.Windows.Forms.Panel + Friend WithEvents tbshiftericon As System.Windows.Forms.PictureBox + Friend WithEvents tbshiftertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonpong As System.Windows.Forms.Panel + Friend WithEvents tbpongicon As System.Windows.Forms.PictureBox + Friend WithEvents tbpongtext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonshiftorium As System.Windows.Forms.Panel + Friend WithEvents tbshiftoriumicon As System.Windows.Forms.PictureBox + Friend WithEvents tbshiftoriumtext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonskinloader As System.Windows.Forms.Panel + Friend WithEvents tbskinloadericon As System.Windows.Forms.PictureBox + Friend WithEvents tbskinloadertext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonterminal As System.Windows.Forms.Panel + Friend WithEvents tbterminalicon As System.Windows.Forms.PictureBox + Friend WithEvents tbterminaltext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonholder As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents pnlpanelbuttonartpad As System.Windows.Forms.Panel + Friend WithEvents tbartpadicon As System.Windows.Forms.PictureBox + Friend WithEvents tbartpadtext As System.Windows.Forms.Label + Friend WithEvents ArtpadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CalculatorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttoncalculator As System.Windows.Forms.Panel + Friend WithEvents tbcalculatoricon As System.Windows.Forms.PictureBox + Friend WithEvents tbcalculatortext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonaudioplayer As System.Windows.Forms.Panel + Friend WithEvents tbaudioplayericon As System.Windows.Forms.PictureBox + Friend WithEvents tbaudioplayertext As System.Windows.Forms.Label + Friend WithEvents AudioplayerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttonwebbrowser As System.Windows.Forms.Panel + Friend WithEvents tbwebbrowsericon As System.Windows.Forms.PictureBox + Friend WithEvents tbwebbrowsertext As System.Windows.Forms.Label + Friend WithEvents WebBrowserToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttonvideoplayer As System.Windows.Forms.Panel + Friend WithEvents tbvideoplayericon As System.Windows.Forms.PictureBox + Friend WithEvents tbvideoplayertext As System.Windows.Forms.Label + Friend WithEvents VideoplayerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttonnamechanger As System.Windows.Forms.Panel + Friend WithEvents tbnamechangericon As System.Windows.Forms.PictureBox + Friend WithEvents tbnamechangertext As System.Windows.Forms.Label + Friend WithEvents NameChangerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttoniconmanager As System.Windows.Forms.Panel + Friend WithEvents tbiconmanagericon As System.Windows.Forms.PictureBox + Friend WithEvents tbiconmanagertext As System.Windows.Forms.Label + Friend WithEvents IconManagerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttonbitnotewallet As System.Windows.Forms.Panel + Friend WithEvents tbbitnotewalleticon As System.Windows.Forms.PictureBox + Friend WithEvents tbbitnotewallettext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttonbitnotedigger As System.Windows.Forms.Panel + Friend WithEvents tbbitnotediggericon As System.Windows.Forms.PictureBox + Friend WithEvents tbbitnotediggertext As System.Windows.Forms.Label + Friend WithEvents BitnoteWalletToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BitnoteDiggerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttonskinshifter As System.Windows.Forms.Panel + Friend WithEvents tbskinshiftericon As System.Windows.Forms.PictureBox + Friend WithEvents tbskinshiftertext As System.Windows.Forms.Label + Friend WithEvents SkinShifterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlpanelbuttonshiftnet As System.Windows.Forms.Panel + Friend WithEvents tbshiftneticon As System.Windows.Forms.PictureBox + Friend WithEvents tbshiftnettext As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttondownloader As System.Windows.Forms.Panel + Friend WithEvents tbdownloadericon As System.Windows.Forms.PictureBox + Friend WithEvents tbdownloadertext As System.Windows.Forms.Label + Friend WithEvents ShiftnetToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/ShiftOSDesktop.resx b/ShiftOSDesktop.resx new file mode 100644 index 0000000..4a27da5 --- /dev/null +++ b/ShiftOSDesktop.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 190, 17 + + + 337, 17 + + + 435, 17 + + \ No newline at end of file diff --git a/ShiftOSDesktop.vb b/ShiftOSDesktop.vb new file mode 100644 index 0000000..c0be181 --- /dev/null +++ b/ShiftOSDesktop.vb @@ -0,0 +1,4092 @@ +Public Class ShiftOSDesktop + Public codepoints As Integer + Public log As String + Public forceclose As Boolean = False + Public movablewindownumber As Integer = 50 + Public terminalfullscreen As Boolean = True + Public unitymode As Boolean = False + Public savelines(2000) As String + Public loadlines(2000) As String + Public skinlines(200) As String + Public newgame As Boolean = False + Public lastcolourpick As Color = Color.Gray + Public programsopen As Integer = 0 + Private actualshiftversion As String = "0.0.7" + + 'Shiftorium Upgrades + Public boughttitlebar As Boolean = False + Public boughtgray As Boolean = False + Public boughtsecondspastmidnight As Boolean = False + Public boughtminutespastmidnight As Boolean = False + Public boughthourspastmidnight As Boolean = False + Public boughtcustomusername As Boolean = False + Public boughtwindowsanywhere As Boolean = False + Public boughtmultitasking As Boolean = False + Public boughtautoscrollterminal As Boolean = False + Public boughtmovablewindows As Boolean = False + Public boughtdraggablewindows As Boolean = False + Public boughtwindowborders As Boolean = False + Public boughtpmandam As Boolean = False + Public boughtminuteaccuracytime As Boolean = False + Public boughtsplitsecondtime As Boolean = False + Public boughttitletext As Boolean = False + Public boughtclosebutton As Boolean = False + Public boughtdesktoppanel As Boolean = False + Public boughtclock As Boolean = False + Public boughtwindowedterminal As Boolean = False + Public boughtapplaunchermenu As Boolean = False + Public boughtalknowledgeinput As Boolean = False + Public boughtalclock As Boolean = False + Public boughtalshiftorium As Boolean = False + Public boughtapplaunchershutdown As Boolean = False + Public boughtdesktoppanelclock As Boolean = False + Public boughtterminalscrollbar As Boolean = False + Public boughtkiaddons As Boolean = False + Public boughtkicarbrands As Boolean = False + Public boughtkigameconsoles As Boolean = False + Public boughtshifter As Boolean = False + Public boughtalshifter As Boolean = False + Public boughtrollupcommand As Boolean = False + Public boughtrollupbutton As Boolean = False + Public boughtshiftdesktop As Boolean = False + Public boughtshiftpanelclock As Boolean = False + Public boughtshiftapplauncher As Boolean = False + Public boughtshiftdesktoppanel As Boolean = False + Public boughtshifttitlebar As Boolean = False + Public boughtshifttitletext As Boolean = False + Public boughtshifttitlebuttons As Boolean = False + Public boughtshiftborders As Boolean = False + Public boughtgray2 As Boolean = False + Public boughtgray3 As Boolean = False + Public boughtgray4 As Boolean = False + Public boughtanycolour As Boolean = False + Public boughtanycolour2 As Boolean = False + Public boughtanycolour3 As Boolean = False + Public boughtanycolour4 As Boolean = False + Public boughtpurple As Boolean = False + Public boughtpurple2 As Boolean = False + Public boughtpurple3 As Boolean = False + Public boughtpurple4 As Boolean = False + Public boughtblue As Boolean = False + Public boughtblue2 As Boolean = False + Public boughtblue3 As Boolean = False + Public boughtblue4 As Boolean = False + Public boughtgreen As Boolean = False + Public boughtgreen2 As Boolean = False + Public boughtgreen3 As Boolean = False + Public boughtgreen4 As Boolean = False + Public boughtyellow As Boolean = False + Public boughtyellow2 As Boolean = False + Public boughtyellow3 As Boolean = False + Public boughtyellow4 As Boolean = False + Public boughtorange As Boolean = False + Public boughtorange2 As Boolean = False + Public boughtorange3 As Boolean = False + Public boughtorange4 As Boolean = False + Public boughtbrown As Boolean = False + Public boughtbrown2 As Boolean = False + Public boughtbrown3 As Boolean = False + Public boughtbrown4 As Boolean = False + Public boughtred As Boolean = False + Public boughtred2 As Boolean = False + Public boughtred3 As Boolean = False + Public boughtred4 As Boolean = False + Public boughtpink As Boolean = False + Public boughtpink2 As Boolean = False + Public boughtpink3 As Boolean = False + Public boughtpink4 As Boolean = False + 'new 0.0.6 content + Public boughtpong As Boolean = False + Public boughtknowledgeinputicon As Boolean = False + Public boughtshiftericon As Boolean = False + Public boughtshiftoriumicon As Boolean = False + Public boughtclockicon As Boolean = False + Public boughtshutdownicon As Boolean = False + Public boughtpongicon As Boolean = False + Public boughtterminalicon As Boolean = False + Public boughtalpong As Boolean = False + Public boughtfileskimmer As Boolean = False + Public boughtalfileskimmer As Boolean = False + Public boughttextpad As Boolean = False + Public boughtaltextpad As Boolean = False + Public boughtfileskimmericon As Boolean = False + Public boughttextpadicon As Boolean = False + Public boughttextpadnew As Boolean = False + Public boughttextpadsave As Boolean = False + Public boughttextpadopen As Boolean = False + Public boughtfileskimmernewfolder As Boolean = False + Public boughtfileskimmerdelete As Boolean = False + Public boughtkielements As Boolean = False + Public boughtcolourpickericon As Boolean = False + Public boughtinfoboxicon As Boolean = False + 'new 0.0.7 content + Public boughtskinloader As Boolean = False + Public boughtminimizebutton As Boolean = False + Public boughtpanelbuttons As Boolean = False + Public boughtshiftpanelbuttons As Boolean = False + Public boughtartpad As Boolean = False + Public boughtalartpad As Boolean = False + Public boughtartpadicon As Boolean = False + Public boughtskinning As Boolean = False + Public boughtminimizecommand As Boolean = False + Public boughtusefulpanelbuttons As Boolean = False + Public boughtunitymode As Boolean = False + Public boughtartpadpixellimit4 As Boolean = False + Public boughtartpadpixellimit8 As Boolean = False + Public boughtartpadpixellimit16 As Boolean = False + Public boughtartpadpixellimit64 As Boolean = False + Public boughtartpadpixellimit256 As Boolean = False + Public boughtartpadpixellimit1024 As Boolean = False + Public boughtartpadpixellimit4096 As Boolean = False + Public boughtartpadpixellimit16384 As Boolean = False + Public boughtartpadpixellimit65536 As Boolean = False + Public boughtartpadlimitlesspixels As Boolean = False + Public boughtartpad4colorpallets As Boolean = False + Public boughtartpad8colorpallets As Boolean = False + Public boughtartpad16colorpallets As Boolean = False + Public boughtartpad32colorpallets As Boolean = False + Public boughtartpad64colorpallets As Boolean = False + Public boughtartpad128colorpallets As Boolean = False + Public boughtartpadcustompallets As Boolean = False + Public boughtartpadnew As Boolean = False + Public boughtartpadpixelplacer As Boolean = False + Public boughtartpadpixelplacermovementmode As Boolean = False + Public boughtartpadpencil As Boolean = False + Public boughtartpadpaintbrush As Boolean = False + Public boughtartpadlinetool As Boolean = False + Public boughtartpadovaltool As Boolean = False + Public boughtartpadrectangletool As Boolean = False + Public boughtartpaderaser As Boolean = False + Public boughtartpadfilltool As Boolean = False + Public boughtartpadtexttool As Boolean = False + Public boughtartpadundo As Boolean = False + Public boughtartpadredo As Boolean = False + Public boughtartpadsave As Boolean = False + Public boughtartpadload As Boolean = False + 'new 0.0.8 features + Public boughtresizablewindows As Boolean = True + Public boughtcalculator As Boolean = True + Public boughtaudioplayer As Boolean = True + Public boughtchangeosnamecommand As Boolean = True + Public boughtwebbrowser As Boolean = True + Public boughtvideoplayer As Boolean = True + Public boughtnamechanger As Boolean = True + Public boughticonmanager As Boolean = True + Public boughtbitnotewallet As Boolean = True + Public boughtbitnotedigger As Boolean = True + Public boughtskinshifter As Boolean = True + Public boughtshiftnet As Boolean = True + Public boughtdownloader As Boolean = True + Public boughtshiftneticon As Boolean = True + Public boughtalshiftnet As Boolean = True + + 'new 0.0.9 features + Public boughtskinstates As Boolean = False + + 'Colour Picker Memories + Public anymemory(15) As Color + Public graymemory(15) As Color + Public purplememory(15) As Color + Public bluememory(15) As Color + Public greenmemory(15) As Color + Public yellowmemory(15) As Color + Public orangememory(15) As Color + Public brownmemory(15) As Color + Public redmemory(15) As Color + Public pinkmemory(15) As Color + + 'ShiftOS UI Settings + Public titlebarcolour As Color = Color.Gray + Public windowbordercolour As Color = Color.Gray + Public windowbordersize As Integer = 2 + Public titlebarheight As Integer = 30 + Public closebuttoncolour As Color = Color.Black + Public closebuttonheight As Integer = 22 + Public closebuttonwidth As Integer = 22 + Public closebuttonside As Integer = 5 + Public closebuttontop As Integer = 4 + Public titletextcolour As Color = Color.White + Public titletexttop As Integer = 7 + Public titletextside As Integer = 4 + Public titletextsize As Integer = 11 + Public titletextfont As String = "Felix Titling" + Public titletextstyle As FontStyle = FontStyle.Bold + Public desktoppanelcolour As Color = Color.Gray + Public desktopbackgroundcolour As Color = Color.Black + Public desktoppanelheight As Integer = 24 + Public desktoppanelposition As String = "Top" + Public clocktextcolour As Color = Color.Black + Public clockbackgroundcolor As Color = Color.Gray + Public panelclocktexttop As Integer = 0 + Public panelclocktextsize As Integer = 14 + Public panelclocktextfont As String = "Trebuchet MS" + Public panelclocktextstyle As FontStyle = FontStyle.Regular + Public applauncherbuttoncolour As Color = Color.Gray + Public applauncherbuttonclickedcolour = Color.Gray + Public applauncherbackgroundcolour As Color = Color.Gray + Public applaunchermouseovercolour As Color = Color.Gray + Public applicationsbuttontextcolour As Color = Color.Black + Public applicationbuttonheight As Integer = 24 + Public applicationbuttontextsize As Integer = 10 + Public applicationbuttontextfont As String = "Byington" + Public applicationbuttontextstyle As FontStyle = FontStyle.Bold + Public applicationlaunchername As String = "Applications" + Public titletextposition As String = "Left" + Public rollupbuttoncolour As Color = Color.Black + Public rollupbuttonheight As Integer = 22 + Public rollupbuttonwidth As Integer = 22 + Public rollupbuttonside As Integer = 32 + Public rollupbuttontop As Integer = 4 + 'new 0.0.7 + Public titlebariconside As Integer = 8 + Public titlebaricontop As Integer = 8 + Public showwindowcorners As Boolean = False + Public titlebarcornerwidth As Integer = 2 + Public titlebarrightcornercolour As Color = Color.White + Public titlebarleftcornercolour As Color = Color.White + Public applaunchermenuholderwidth As Integer = 100 + Public windowborderleftcolour As Color = Color.Gray + Public windowborderrightcolour As Color = Color.Gray + Public windowborderbottomcolour As Color = Color.Gray + Public windowborderbottomrightcolour As Color = Color.Gray + Public windowborderbottomleftcolour As Color = Color.Gray + Public fileopenerlastdirectory As String + Public panelbuttonicontop As Integer = 3 + Public panelbuttoniconside As Integer = 4 + 'Public panelbuttoniconsize As Integer = 16 'duplicated + 'Public panelbuttoniconsize As Integer = 16 'duplicated + Public panelbuttonheight As Integer = 22 + Public panelbuttonwidth As Integer = 186 + Public panelbuttoncolour As Color = Color.Black + Public panelbuttontextcolour As Color = Color.White + Public panelbuttontextsize As Integer = 10 + Public panelbuttontextfont As String = "Microsoft Sans Serif" + Public panelbuttontextstyle As FontStyle = FontStyle.Bold + Public panelbuttontextside As Integer = 22 + Public panelbuttontexttop As Integer = 2 + Public panelbuttongap As Integer = 1 + Public panelbuttonfromtop As Integer = 1 + Public panelbuttoninitialgap As Integer = 5 + Public minimizebuttoncolour As Color = Color.Black + Public minimizebuttonheight As Integer = 22 + Public minimizebuttonwidth As Integer = 22 + Public minimizebuttonside As Integer = 59 + Public minimizebuttontop As Integer = 4 + + + 'ShiftOS Skin Settings + 'finsih up checking for skin changes with states in the clock app before copying across to other apps + Public globaltransparencycolour As Color = Color.FromArgb(1, 0, 1) + Public skinimages(100) As String + Public skinclosebutton(2) As Image + Public skinclosebuttonstyle As ImageLayout = ImageLayout.Stretch + Public skintitlebar(2) As Image + Public skintitlebarstyle As ImageLayout = ImageLayout.Stretch + Public skindesktopbackground(2) As Image + Public skindesktopbackgroundstyle As ImageLayout = ImageLayout.Stretch + Public skinrollupbutton(2) As Image + Public skinrollupbuttonstyle As ImageLayout = ImageLayout.Stretch + 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 + + 'Program settings + Public artpadcolorpalletwidth As Integer = 105 + Public artpadcolorpalletheight As Integer = 69 + Public artpadcolorpalletsidegap As Integer = 4 + Public artpadcolorpallettopgap As Integer = 4 + Public artpadvisiblepallets As Integer = 2 + Public artpadpixellimit As Integer = 2 + Public artpadcolourpallets(128) As Color + + Public webbrowserhomepage As String = "www.google.com" + + Public iconmanagericondatalines(50) As String + + Public bitnotebalance As Decimal = 2.64028 + Public bitnotebalanceappscape As Decimal = 0.0 + Public bitnoteaddress As String = "1LgZUWQNYWZ7Qhc1hScZieC3GWnPLzaqSd" + Public bitnoteaddressappscape As String = "1JB97iocfdv6zVMeKxXAHdahbfdoYWNyUh" + + Public downloadspeedcap As Integer = 32 + + 'Main ShiftOS settings + Public username As String = "user" + Public osname As String = "shiftos" + Public artpadname As String = "Artpad" + Public audioplayername As String = "Audio Player" + Public calculatorname As String = "Calculator" + Public clockname As String = "Clock" + Public colourpickername As String = "Colour Picker" + Public fileopenername As String = "File Opener" + Public filesavername As String = "File Saver" + Public fileskimmername As String = "File Skimmer" + Public graphicpickername As String = "Graphic Picker" + Public knowledgeinputname As String = "Knowledge Input" + Public pongname As String = "Pong" + Public shiftername As String = "Shifter" + Public shiftoriumname As String = "Shiftorium" + Public skinloadername As String = "Skin Loader" + Public terminalname As String = "Terminal" + Public textpadname As String = "TextPad" + Public videoplayername As String = "Video Player" + Public webbrowsername As String = "Web Browser" + Public namechangername As String = "Name Changer" + Public iconmanagername As String = "Icon Manager" + Public bitnotewalletname As String = "Bitnote Wallet" + Public bitnotediggername As String = "Bitnote Digger" + Public skinshiftername As String = "Skin Shifter" + Public shiftnetname As String = "Shiftnet" + Public downloadername As String = "Downloader" + + 'Icons + Public titlebariconsize As Integer = 16 + Public panelbuttoniconsize As Integer = 16 + Public launchericonsize As Integer = 16 + + Public artpadicontitlebar As Image = My.Resources.iconArtpad + Public audioplayericontitlebar As Image = My.Resources.iconAudioPlayer + Public calculatoricontitlebar As Image = My.Resources.iconCalculator + Public clockicontitlebar As Image = My.Resources.iconClock + Public colourpickericontitlebar As Image = My.Resources.iconColourPicker + Public fileopenericontitlebar As Image = My.Resources.iconFileOpener + Public filesavericontitlebar As Image = My.Resources.iconFileSaver + Public fileskimmericontitlebar As Image = My.Resources.iconFileSkimmer + Public graphicpickericontitlebar As Image = My.Resources.iconGraphicPicker + Public infoboxicontitlebar As Image = My.Resources.iconInfoBox + Public knowledgeinputicontitlebar As Image = My.Resources.iconKnowledgeInput + Public pongicontitlebar As Image = My.Resources.iconPong + Public shiftericontitlebar As Image = My.Resources.iconShifter + Public shiftoriumicontitlebar As Image = My.Resources.iconShiftorium + Public skinloadericontitlebar As Image = My.Resources.iconSkinLoader + Public terminalicontitlebar As Image = My.Resources.iconTerminal + Public textpadicontitlebar As Image = My.Resources.iconTextPad + Public videoplayericontitlebar As Image = My.Resources.iconVideoPlayer + Public webbrowsericontitlebar As Image = My.Resources.iconWebBrowser + Public namechangericontitlebar As Image = My.Resources.iconNameChanger + Public iconmanagericontitlebar As Image = My.Resources.iconIconManager + Public bitnotewalleticontitlebar As Image = My.Resources.iconBitnoteWallet + Public bitnotediggericontitlebar As Image = My.Resources.iconBitnoteDigger + Public skinshiftericontitlebar As Image = My.Resources.iconSkinShifter + Public shiftneticontitlebar As Image = My.Resources.iconShiftnet + Public downloadericontitlebar As Image = My.Resources.iconDownloader + + Public artpadiconpanelbutton As Image = My.Resources.iconArtpad + Public audioplayericonpanelbutton As Image = My.Resources.iconAudioPlayer + Public calculatoriconpanelbutton As Image = My.Resources.iconCalculator + Public clockiconpanelbutton As Image = My.Resources.iconClock + Public colourpickericonpanelbutton As Image = My.Resources.iconColourPicker + Public fileopenericonpanelbutton As Image = My.Resources.iconFileOpener + Public filesavericonpanelbutton As Image = My.Resources.iconFileSaver + Public fileskimmericonpanelbutton As Image = My.Resources.iconFileSkimmer + Public graphicpickericonpanelbutton As Image = My.Resources.iconGraphicPicker + Public infoboxiconpanelbutton As Image = My.Resources.iconInfoBox + Public knowledgeinputiconpanelbutton As Image = My.Resources.iconKnowledgeInput + Public pongiconpanelbutton As Image = My.Resources.iconPong + Public shiftericonpanelbutton As Image = My.Resources.iconShifter + Public shiftoriumiconpanelbutton As Image = My.Resources.iconShiftorium + Public skinloadericonpanelbutton As Image = My.Resources.iconSkinLoader + Public terminaliconpanelbutton As Image = My.Resources.iconTerminal + Public textpadiconpanelbutton As Image = My.Resources.iconTextPad + Public videoplayericonpanelbutton As Image = My.Resources.iconVideoPlayer + Public webbrowsericonpanelbutton As Image = My.Resources.iconWebBrowser + Public namechangericonpanelbutton As Image = My.Resources.iconNameChanger + Public iconmanagericonpanelbutton As Image = My.Resources.iconIconManager + Public bitnotewalleticonpanelbutton As Image = My.Resources.iconBitnoteWallet + Public bitnotediggericonpanelbutton As Image = My.Resources.iconBitnoteDigger + Public skinshiftericonpanelbutton As Image = My.Resources.iconSkinShifter + Public shiftneticonpanelbutton As Image = My.Resources.iconShiftnet + Public downloadericonpanelbutton As Image = My.Resources.iconDownloader + + Public artpadiconlauncher As Image = My.Resources.iconArtpad + Public audioplayericonlauncher As Image = My.Resources.iconAudioPlayer + Public calculatoriconlauncher As Image = My.Resources.iconCalculator + Public clockiconlauncher As Image = My.Resources.iconClock + Public colourpickericonlauncher As Image = My.Resources.iconColourPicker + Public fileopenericonlauncher As Image = My.Resources.iconFileOpener + Public filesavericonlauncher As Image = My.Resources.iconFileSaver + Public fileskimmericonlauncher As Image = My.Resources.iconFileSkimmer + Public graphicpickericonlauncher As Image = My.Resources.iconGraphicPicker + Public infoboxiconlauncher As Image = My.Resources.iconInfoBox + Public knowledgeinputiconlauncher As Image = My.Resources.iconKnowledgeInput + Public pongiconlauncher As Image = My.Resources.iconPong + Public shiftericonlauncher As Image = My.Resources.iconShifter + Public shiftoriumiconlauncher As Image = My.Resources.iconShiftorium + Public skinloadericonlauncher As Image = My.Resources.iconSkinLoader + Public terminaliconlauncher As Image = My.Resources.iconTerminal + Public textpadiconlauncher As Image = My.Resources.iconTextPad + Public videoplayericonlauncher As Image = My.Resources.iconVideoPlayer + Public webbrowsericonlauncher As Image = My.Resources.iconWebBrowser + Public namechangericonlauncher As Image = My.Resources.iconNameChanger + Public iconmanagericonlauncher As Image = My.Resources.iconIconManager + Public bitnotewalleticonlauncher As Image = My.Resources.iconBitnoteWallet + Public bitnotediggericonlauncher As Image = My.Resources.iconBitnoteDigger + Public skinshiftericonlauncher As Image = My.Resources.iconSkinShifter + Public shiftneticonlauncher As Image = My.Resources.iconShiftnet + Public downloadericonlauncher As Image = My.Resources.iconDownloader + + Public shutdowniconlauncher As Image = My.Resources.iconshutdown + + 'Required for encryption of save files + Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer + Public Const sSecretKey As String = "Password" + + 'When adding a new program you need to do the following: + 'Copy over Template and Template Code + 'Make program upmost/alway on top + 'Add the panelbutton + 'Add Open and Close command in terminal as well as info and commands such as move to + 'Add desktop launcher menu item + 'Add buy from shiftorium and lanucher buy from shiftorium + 'Add to all ShiftOSDesktop.vb things + + Public Sub savegame() + If boughttitlebar = True Then savelines(0) = 11 Else savelines(0) = 10 + If boughtgray = True Then savelines(1) = 11 Else savelines(1) = 10 + If boughtsecondspastmidnight = True Then savelines(2) = 11 Else savelines(2) = 10 + If boughtminutespastmidnight = True Then savelines(3) = 11 Else savelines(3) = 10 + If boughthourspastmidnight = True Then savelines(4) = 11 Else savelines(4) = 10 + If boughtcustomusername = True Then savelines(5) = 11 Else savelines(5) = 10 + If boughtwindowsanywhere = True Then savelines(6) = 11 Else savelines(6) = 10 + If boughtmultitasking = True Then savelines(7) = 11 Else savelines(7) = 10 + If boughtautoscrollterminal = True Then savelines(8) = 11 Else savelines(8) = 10 + savelines(9) = codepoints + If boughtmovablewindows = True Then savelines(10) = 11 Else savelines(10) = 10 + If boughtdraggablewindows = True Then savelines(11) = 11 Else savelines(11) = 10 + If boughtwindowborders = True Then savelines(12) = 11 Else savelines(12) = 10 + If boughtpmandam = True Then savelines(13) = 11 Else savelines(13) = 10 + If boughtminuteaccuracytime = True Then savelines(14) = 11 Else savelines(14) = 10 + If boughtsplitsecondtime = True Then savelines(15) = 11 Else savelines(15) = 10 + If boughttitletext = True Then savelines(16) = 11 Else savelines(16) = 10 + If boughtclosebutton = True Then savelines(17) = 11 Else savelines(17) = 10 + If boughtdesktoppanel = True Then savelines(18) = 11 Else savelines(18) = 10 + If boughtclock = True Then savelines(19) = 11 Else savelines(19) = 10 + If boughtwindowedterminal = True Then savelines(20) = 11 Else savelines(20) = 10 + If boughtapplaunchermenu = True Then savelines(21) = 11 Else savelines(21) = 10 + If boughtalknowledgeinput = True Then savelines(22) = 11 Else savelines(22) = 10 + If boughtalclock = True Then savelines(23) = 11 Else savelines(23) = 10 + If boughtalshiftorium = True Then savelines(24) = 11 Else savelines(24) = 10 + If boughtapplaunchershutdown = True Then savelines(25) = 11 Else savelines(25) = 10 + If boughtdesktoppanelclock = True Then savelines(26) = 11 Else savelines(26) = 10 + If boughtterminalscrollbar = True Then savelines(27) = 11 Else savelines(27) = 10 + If boughtkiaddons = True Then savelines(28) = 11 Else savelines(28) = 10 + If boughtkicarbrands = True Then savelines(29) = 11 Else savelines(29) = 10 + If boughtkigameconsoles = True Then savelines(30) = 11 Else savelines(30) = 10 + savelines(31) = username + If terminalfullscreen = True Then savelines(32) = 11 Else savelines(32) = 10 + If boughtshifter = True Then savelines(33) = 11 Else savelines(33) = 10 + If boughtalshifter = True Then savelines(34) = 11 Else savelines(34) = 10 + If boughtrollupcommand = True Then savelines(35) = 11 Else savelines(35) = 10 + If boughtrollupbutton = True Then savelines(36) = 11 Else savelines(36) = 10 + If boughtshiftdesktop = True Then savelines(37) = 11 Else savelines(37) = 10 + If boughtshiftpanelclock = True Then savelines(38) = 11 Else savelines(38) = 10 + If boughtshiftapplauncher = True Then savelines(39) = 11 Else savelines(39) = 10 + If boughtshiftdesktoppanel = True Then savelines(40) = 11 Else savelines(40) = 10 + If boughtshifttitlebar = True Then savelines(41) = 11 Else savelines(41) = 10 + If boughtshifttitletext = True Then savelines(42) = 11 Else savelines(42) = 10 + If boughtshifttitlebuttons = True Then savelines(43) = 11 Else savelines(43) = 10 + If boughtshiftborders = True Then savelines(44) = 11 Else savelines(44) = 10 + If boughtgray2 = True Then savelines(45) = 11 Else savelines(45) = 10 + If boughtgray3 = True Then savelines(46) = 11 Else savelines(46) = 10 + If boughtgray4 = True Then savelines(47) = 11 Else savelines(47) = 10 + If boughtanycolour = True Then savelines(48) = 11 Else savelines(48) = 10 + If boughtanycolour2 = True Then savelines(49) = 11 Else savelines(49) = 10 + If boughtanycolour3 = True Then savelines(50) = 11 Else savelines(50) = 10 + If boughtanycolour4 = True Then savelines(51) = 11 Else savelines(51) = 10 + If boughtpurple = True Then savelines(52) = 11 Else savelines(52) = 10 + If boughtpurple2 = True Then savelines(53) = 11 Else savelines(53) = 10 + If boughtpurple3 = True Then savelines(54) = 11 Else savelines(54) = 10 + If boughtpurple4 = True Then savelines(55) = 11 Else savelines(55) = 10 + If boughtblue = True Then savelines(56) = 11 Else savelines(56) = 10 + If boughtblue2 = True Then savelines(57) = 11 Else savelines(57) = 10 + If boughtblue3 = True Then savelines(58) = 11 Else savelines(58) = 10 + If boughtblue4 = True Then savelines(59) = 11 Else savelines(59) = 10 + If boughtgreen = True Then savelines(60) = 11 Else savelines(60) = 10 + If boughtgreen2 = True Then savelines(61) = 11 Else savelines(61) = 10 + If boughtgreen3 = True Then savelines(62) = 11 Else savelines(62) = 10 + If boughtgreen4 = True Then savelines(63) = 11 Else savelines(63) = 10 + If boughtyellow = True Then savelines(64) = 11 Else savelines(64) = 10 + If boughtyellow2 = True Then savelines(65) = 11 Else savelines(65) = 10 + If boughtyellow3 = True Then savelines(66) = 11 Else savelines(66) = 10 + If boughtyellow4 = True Then savelines(67) = 11 Else savelines(67) = 10 + If boughtorange = True Then savelines(68) = 11 Else savelines(68) = 10 + If boughtorange2 = True Then savelines(69) = 11 Else savelines(69) = 10 + If boughtorange3 = True Then savelines(70) = 11 Else savelines(70) = 10 + If boughtorange4 = True Then savelines(71) = 11 Else savelines(71) = 10 + If boughtbrown = True Then savelines(72) = 11 Else savelines(72) = 10 + If boughtbrown2 = True Then savelines(73) = 11 Else savelines(73) = 10 + If boughtbrown3 = True Then savelines(74) = 11 Else savelines(74) = 10 + If boughtbrown4 = True Then savelines(75) = 11 Else savelines(75) = 10 + If boughtred = True Then savelines(76) = 11 Else savelines(76) = 10 + If boughtred2 = True Then savelines(77) = 11 Else savelines(77) = 10 + If boughtred3 = True Then savelines(78) = 11 Else savelines(78) = 10 + If boughtred4 = True Then savelines(79) = 11 Else savelines(79) = 10 + If boughtpink = True Then savelines(80) = 11 Else savelines(80) = 10 + If boughtpink2 = True Then savelines(81) = 11 Else savelines(81) = 10 + If boughtpink3 = True Then savelines(82) = 11 Else savelines(82) = 10 + If boughtpink4 = True Then savelines(83) = 11 Else savelines(83) = 10 + savelines(84) = anymemory(0).ToArgb + savelines(85) = anymemory(1).ToArgb + savelines(86) = anymemory(2).ToArgb + savelines(87) = anymemory(3).ToArgb + savelines(88) = anymemory(4).ToArgb + savelines(89) = anymemory(5).ToArgb + savelines(90) = anymemory(6).ToArgb + savelines(91) = anymemory(7).ToArgb + savelines(92) = anymemory(8).ToArgb + savelines(93) = anymemory(9).ToArgb + savelines(94) = anymemory(10).ToArgb + savelines(95) = anymemory(11).ToArgb + savelines(96) = anymemory(12).ToArgb + savelines(97) = anymemory(13).ToArgb + savelines(98) = anymemory(14).ToArgb + savelines(99) = anymemory(15).ToArgb + savelines(100) = graymemory(0).ToArgb + savelines(101) = graymemory(1).ToArgb + savelines(102) = graymemory(2).ToArgb + savelines(103) = graymemory(3).ToArgb + savelines(104) = graymemory(4).ToArgb + savelines(105) = graymemory(5).ToArgb + savelines(106) = graymemory(6).ToArgb + savelines(107) = graymemory(7).ToArgb + savelines(108) = graymemory(8).ToArgb + savelines(109) = graymemory(9).ToArgb + savelines(110) = graymemory(10).ToArgb + savelines(111) = graymemory(11).ToArgb + savelines(112) = graymemory(12).ToArgb + savelines(113) = graymemory(13).ToArgb + savelines(114) = graymemory(14).ToArgb + savelines(115) = graymemory(15).ToArgb + savelines(116) = purplememory(0).ToArgb + savelines(117) = purplememory(1).ToArgb + savelines(118) = purplememory(2).ToArgb + savelines(119) = purplememory(3).ToArgb + savelines(120) = purplememory(4).ToArgb + savelines(121) = purplememory(5).ToArgb + savelines(122) = purplememory(6).ToArgb + savelines(123) = purplememory(7).ToArgb + savelines(124) = purplememory(8).ToArgb + savelines(125) = purplememory(9).ToArgb + savelines(126) = purplememory(10).ToArgb + savelines(127) = purplememory(11).ToArgb + savelines(128) = purplememory(12).ToArgb + savelines(129) = purplememory(13).ToArgb + savelines(130) = purplememory(14).ToArgb + savelines(131) = purplememory(15).ToArgb + savelines(132) = bluememory(0).ToArgb + savelines(133) = bluememory(1).ToArgb + savelines(134) = bluememory(2).ToArgb + savelines(135) = bluememory(3).ToArgb + savelines(136) = bluememory(4).ToArgb + savelines(137) = bluememory(5).ToArgb + savelines(138) = bluememory(6).ToArgb + savelines(139) = bluememory(7).ToArgb + savelines(140) = bluememory(8).ToArgb + savelines(141) = bluememory(9).ToArgb + savelines(142) = bluememory(10).ToArgb + savelines(143) = bluememory(11).ToArgb + savelines(144) = bluememory(12).ToArgb + savelines(145) = bluememory(13).ToArgb + savelines(146) = bluememory(14).ToArgb + savelines(147) = bluememory(15).ToArgb + savelines(148) = greenmemory(0).ToArgb + savelines(149) = greenmemory(1).ToArgb + savelines(150) = greenmemory(2).ToArgb + savelines(151) = greenmemory(3).ToArgb + savelines(152) = greenmemory(4).ToArgb + savelines(153) = greenmemory(5).ToArgb + savelines(154) = greenmemory(6).ToArgb + savelines(155) = greenmemory(7).ToArgb + savelines(156) = greenmemory(8).ToArgb + savelines(157) = greenmemory(9).ToArgb + savelines(158) = greenmemory(10).ToArgb + savelines(159) = greenmemory(11).ToArgb + savelines(160) = greenmemory(12).ToArgb + savelines(161) = greenmemory(13).ToArgb + savelines(162) = greenmemory(14).ToArgb + savelines(163) = greenmemory(15).ToArgb + savelines(164) = yellowmemory(0).ToArgb + savelines(165) = yellowmemory(1).ToArgb + savelines(166) = yellowmemory(2).ToArgb + savelines(167) = yellowmemory(3).ToArgb + savelines(168) = yellowmemory(4).ToArgb + savelines(169) = yellowmemory(5).ToArgb + savelines(170) = yellowmemory(6).ToArgb + savelines(171) = yellowmemory(7).ToArgb + savelines(172) = yellowmemory(8).ToArgb + savelines(173) = yellowmemory(9).ToArgb + savelines(174) = yellowmemory(10).ToArgb + savelines(175) = yellowmemory(11).ToArgb + savelines(176) = yellowmemory(12).ToArgb + savelines(177) = yellowmemory(13).ToArgb + savelines(178) = yellowmemory(14).ToArgb + savelines(179) = yellowmemory(15).ToArgb + savelines(180) = orangememory(0).ToArgb + savelines(181) = orangememory(1).ToArgb + savelines(182) = orangememory(2).ToArgb + savelines(183) = orangememory(3).ToArgb + savelines(184) = orangememory(4).ToArgb + savelines(185) = orangememory(5).ToArgb + savelines(186) = orangememory(6).ToArgb + savelines(187) = orangememory(7).ToArgb + savelines(188) = orangememory(8).ToArgb + savelines(189) = orangememory(9).ToArgb + savelines(190) = orangememory(10).ToArgb + savelines(191) = orangememory(11).ToArgb + savelines(192) = orangememory(12).ToArgb + savelines(193) = orangememory(13).ToArgb + savelines(194) = orangememory(14).ToArgb + savelines(195) = orangememory(15).ToArgb + savelines(196) = brownmemory(0).ToArgb + savelines(197) = brownmemory(1).ToArgb + savelines(198) = brownmemory(2).ToArgb + savelines(199) = brownmemory(3).ToArgb + savelines(200) = brownmemory(4).ToArgb + savelines(201) = brownmemory(5).ToArgb + savelines(202) = brownmemory(6).ToArgb + savelines(203) = brownmemory(7).ToArgb + savelines(204) = brownmemory(8).ToArgb + savelines(205) = brownmemory(9).ToArgb + savelines(206) = brownmemory(10).ToArgb + savelines(207) = brownmemory(11).ToArgb + savelines(208) = brownmemory(12).ToArgb + savelines(209) = brownmemory(13).ToArgb + savelines(210) = brownmemory(14).ToArgb + savelines(211) = brownmemory(15).ToArgb + savelines(212) = redmemory(0).ToArgb + savelines(213) = redmemory(1).ToArgb + savelines(214) = redmemory(2).ToArgb + savelines(215) = redmemory(3).ToArgb + savelines(216) = redmemory(4).ToArgb + savelines(217) = redmemory(5).ToArgb + savelines(218) = redmemory(6).ToArgb + savelines(219) = redmemory(7).ToArgb + savelines(220) = redmemory(8).ToArgb + savelines(221) = redmemory(9).ToArgb + savelines(222) = redmemory(10).ToArgb + savelines(223) = redmemory(11).ToArgb + savelines(224) = redmemory(12).ToArgb + savelines(225) = redmemory(13).ToArgb + savelines(226) = redmemory(14).ToArgb + savelines(227) = redmemory(15).ToArgb + savelines(228) = pinkmemory(0).ToArgb + savelines(229) = pinkmemory(1).ToArgb + savelines(230) = pinkmemory(2).ToArgb + savelines(231) = pinkmemory(3).ToArgb + savelines(232) = pinkmemory(4).ToArgb + savelines(233) = pinkmemory(5).ToArgb + savelines(234) = pinkmemory(6).ToArgb + savelines(235) = pinkmemory(7).ToArgb + savelines(236) = pinkmemory(8).ToArgb + savelines(237) = pinkmemory(9).ToArgb + savelines(238) = pinkmemory(10).ToArgb + savelines(239) = pinkmemory(11).ToArgb + savelines(240) = pinkmemory(12).ToArgb + savelines(241) = pinkmemory(13).ToArgb + savelines(242) = pinkmemory(14).ToArgb + savelines(243) = pinkmemory(15).ToArgb + savelines(244) = titlebarcolour.ToArgb + savelines(245) = windowbordercolour.ToArgb + savelines(246) = windowbordersize + savelines(247) = titlebarheight + savelines(248) = closebuttoncolour.ToArgb + savelines(249) = closebuttonheight + savelines(250) = closebuttonwidth + savelines(251) = closebuttonside + savelines(252) = closebuttontop + savelines(253) = titletextcolour.ToArgb + savelines(254) = titletexttop + savelines(255) = titletextside + savelines(256) = titletextsize + savelines(257) = titletextfont + savelines(258) = titletextstyle + savelines(259) = desktoppanelcolour.ToArgb + savelines(260) = desktopbackgroundcolour.ToArgb + savelines(261) = desktoppanelheight + savelines(262) = desktoppanelposition + savelines(263) = clocktextcolour.ToArgb + savelines(264) = clockbackgroundcolor.ToArgb + savelines(265) = panelclocktexttop + savelines(266) = panelclocktextsize + savelines(267) = panelclocktextfont + savelines(268) = panelclocktextstyle + savelines(269) = applauncherbuttoncolour.ToArgb + savelines(270) = applauncherbuttonclickedcolour.ToArgb + savelines(271) = applauncherbackgroundcolour.ToArgb + savelines(272) = applaunchermouseovercolour.ToArgb + savelines(273) = applicationsbuttontextcolour.ToArgb + savelines(274) = applicationbuttonheight + savelines(275) = applicationbuttontextsize + savelines(276) = applicationbuttontextfont + savelines(277) = applicationbuttontextstyle + savelines(278) = applicationlaunchername + savelines(279) = titletextposition + savelines(280) = rollupbuttoncolour.ToArgb + savelines(281) = rollupbuttonheight + savelines(282) = rollupbuttonwidth + savelines(283) = rollupbuttonside + savelines(284) = rollupbuttontop + If boughtpong = True Then savelines(285) = 11 Else savelines(285) = 10 + If boughtknowledgeinputicon = True Then savelines(286) = 11 Else savelines(286) = 10 + If boughtshiftericon = True Then savelines(287) = 11 Else savelines(287) = 10 + If boughtshiftoriumicon = True Then savelines(288) = 11 Else savelines(288) = 10 + If boughtclockicon = True Then savelines(289) = 11 Else savelines(289) = 10 + If boughtshutdownicon = True Then savelines(290) = 11 Else savelines(290) = 10 + If boughtpongicon = True Then savelines(291) = 11 Else savelines(291) = 10 + If boughtterminalicon = True Then savelines(292) = 11 Else savelines(292) = 10 + If boughtalpong = True Then savelines(293) = 11 Else savelines(293) = 10 + If boughtfileskimmer = True Then savelines(294) = 11 Else savelines(294) = 10 + If boughtalfileskimmer = True Then savelines(295) = 11 Else savelines(295) = 10 + If boughttextpad = True Then savelines(296) = 11 Else savelines(296) = 10 + If boughtaltextpad = True Then savelines(297) = 11 Else savelines(297) = 10 + If boughtfileskimmericon = True Then savelines(298) = 11 Else savelines(298) = 10 + If boughttextpadicon = True Then savelines(299) = 11 Else savelines(299) = 10 + If boughttextpadnew = True Then savelines(300) = 11 Else savelines(300) = 10 + If boughttextpadsave = True Then savelines(301) = 11 Else savelines(301) = 10 + If boughttextpadopen = True Then savelines(302) = 11 Else savelines(302) = 10 + If boughtfileskimmernewfolder = True Then savelines(303) = 11 Else savelines(303) = 10 + If boughtfileskimmerdelete = True Then savelines(304) = 11 Else savelines(304) = 10 + If boughtkielements = True Then savelines(305) = 11 Else savelines(305) = 10 + If boughtcolourpickericon = True Then savelines(306) = 11 Else savelines(306) = 10 + If boughtinfoboxicon = True Then savelines(307) = 11 Else savelines(307) = 10 + savelines(308) = artpadcolorpalletwidth + savelines(309) = artpadcolorpalletheight + savelines(310) = artpadcolorpalletsidegap + savelines(311) = artpadcolorpallettopgap + savelines(312) = artpadvisiblepallets + savelines(313) = artpadpixellimit + If boughtskinloader = True Then savelines(314) = 11 Else savelines(314) = 10 + If boughtminimizebutton = True Then savelines(315) = 11 Else savelines(315) = 10 + If boughtpanelbuttons = True Then savelines(316) = 11 Else savelines(316) = 10 + If boughtshiftpanelbuttons = True Then savelines(317) = 11 Else savelines(317) = 10 + If boughtartpad = True Then savelines(318) = 11 Else savelines(318) = 10 + If boughtalartpad = True Then savelines(319) = 11 Else savelines(319) = 10 + If boughtartpadicon = True Then savelines(320) = 11 Else savelines(320) = 10 + If boughtskinning = True Then savelines(321) = 11 Else savelines(321) = 10 + If boughtminimizecommand = True Then savelines(322) = 11 Else savelines(322) = 10 + If boughtusefulpanelbuttons = True Then savelines(323) = 11 Else savelines(323) = 10 + If boughtunitymode = True Then savelines(324) = 11 Else savelines(324) = 10 + If boughtartpadpixellimit4 = True Then savelines(325) = 11 Else savelines(325) = 10 + If boughtartpadpixellimit8 = True Then savelines(326) = 11 Else savelines(326) = 10 + If boughtartpadpixellimit16 = True Then savelines(327) = 11 Else savelines(327) = 10 + If boughtartpadpixellimit64 = True Then savelines(328) = 11 Else savelines(328) = 10 + If boughtartpadpixellimit256 = True Then savelines(329) = 11 Else savelines(329) = 10 + If boughtartpadpixellimit1024 = True Then savelines(330) = 11 Else savelines(330) = 10 + If boughtartpadpixellimit4096 = True Then savelines(331) = 11 Else savelines(331) = 10 + If boughtartpadpixellimit16384 = True Then savelines(332) = 11 Else savelines(332) = 10 + If boughtartpadpixellimit65536 = True Then savelines(333) = 11 Else savelines(333) = 10 + If boughtartpadlimitlesspixels = True Then savelines(334) = 11 Else savelines(334) = 10 + If boughtartpad4colorpallets = True Then savelines(335) = 11 Else savelines(335) = 10 + If boughtartpad8colorpallets = True Then savelines(336) = 11 Else savelines(336) = 10 + If boughtartpad16colorpallets = True Then savelines(337) = 11 Else savelines(337) = 10 + If boughtartpad32colorpallets = True Then savelines(338) = 11 Else savelines(338) = 10 + If boughtartpad64colorpallets = True Then savelines(339) = 11 Else savelines(339) = 10 + If boughtartpad128colorpallets = True Then savelines(340) = 11 Else savelines(340) = 10 + If boughtartpadcustompallets = True Then savelines(341) = 11 Else savelines(341) = 10 + If boughtartpadpixelplacer = True Then savelines(342) = 11 Else savelines(342) = 10 + If boughtartpadpixelplacermovementmode = True Then savelines(343) = 11 Else savelines(343) = 10 + If boughtartpadpencil = True Then savelines(344) = 11 Else savelines(344) = 10 + If boughtartpadpaintbrush = True Then savelines(345) = 11 Else savelines(345) = 10 + If boughtartpadlinetool = True Then savelines(346) = 11 Else savelines(346) = 10 + If boughtartpadovaltool = True Then savelines(347) = 11 Else savelines(347) = 10 + If boughtartpadrectangletool = True Then savelines(348) = 11 Else savelines(348) = 10 + If boughtartpaderaser = True Then savelines(349) = 11 Else savelines(349) = 10 + If boughtartpadfilltool = True Then savelines(350) = 11 Else savelines(350) = 10 + If boughtartpadtexttool = True Then savelines(351) = 11 Else savelines(351) = 10 + If boughtartpadundo = True Then savelines(352) = 11 Else savelines(352) = 10 + If boughtartpadredo = True Then savelines(353) = 11 Else savelines(353) = 10 + If boughtartpadsave = True Then savelines(354) = 11 Else savelines(354) = 10 + If boughtartpadload = True Then savelines(355) = 11 Else savelines(355) = 10 + For i = 0 To 127 : savelines(356 + i) = artpadcolourpallets(i).ToArgb : Next + If boughtartpadnew = True Then savelines(484) = 11 Else savelines(484) = 10 + + IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", savelines) + File_Crypt.EncryptFile("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey) + + Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False) + objWriter.Write(actualshiftversion) + objWriter.Close() + + End Sub + + Private Sub loadgame() + File_Crypt.DecryptFile("C:/ShiftOS/Shiftum42/SKernal.sft", "C:\ShiftOS\Shiftum42\Drivers\HDD.dri", sSecretKey) + loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri") + + If loadlines(0) = 11 Then boughttitlebar = True Else boughttitlebar = False + If loadlines(1) = 11 Then boughtgray = True Else boughtgray = False + If loadlines(2) = 11 Then boughtsecondspastmidnight = True Else boughtsecondspastmidnight = False + If loadlines(3) = 11 Then boughtminutespastmidnight = True Else boughtminutespastmidnight = False + If loadlines(4) = 11 Then boughthourspastmidnight = True Else boughthourspastmidnight = False + If loadlines(5) = 11 Then boughtcustomusername = True Else boughtcustomusername = False + If loadlines(6) = 11 Then boughtwindowsanywhere = True Else boughtwindowsanywhere = False + If loadlines(7) = 11 Then boughtmultitasking = True Else boughtmultitasking = False + If loadlines(8) = 11 Then boughtautoscrollterminal = True Else boughtautoscrollterminal = False + codepoints = loadlines(9) + If loadlines(10) = 11 Then boughtmovablewindows = True Else boughtmovablewindows = False + If loadlines(11) = 11 Then boughtdraggablewindows = True Else boughtdraggablewindows = False + If loadlines(12) = 11 Then boughtwindowborders = True Else boughtwindowborders = False + If loadlines(13) = 11 Then boughtpmandam = True Else boughtpmandam = False + If loadlines(14) = 11 Then boughtminuteaccuracytime = True Else boughtminuteaccuracytime = False + If loadlines(15) = 11 Then boughtsplitsecondtime = True Else boughtsplitsecondtime = False + If loadlines(16) = 11 Then boughttitletext = True Else boughttitletext = False + If loadlines(17) = 11 Then boughtclosebutton = True Else boughtclosebutton = False + If loadlines(18) = 11 Then boughtdesktoppanel = True Else boughtdesktoppanel = False + If loadlines(19) = 11 Then boughtclock = True Else boughtclock = False + If loadlines(20) = 11 Then boughtwindowedterminal = True Else boughtwindowedterminal = False + If loadlines(21) = 11 Then boughtapplaunchermenu = True Else boughtapplaunchermenu = False + If loadlines(22) = 11 Then boughtalknowledgeinput = True Else boughtalknowledgeinput = False + If loadlines(23) = 11 Then boughtalclock = True Else boughtalclock = False + If loadlines(24) = 11 Then boughtalshiftorium = True Else boughtalshiftorium = False + If loadlines(25) = 11 Then boughtapplaunchershutdown = True Else boughtapplaunchershutdown = False + If loadlines(26) = 11 Then boughtdesktoppanelclock = True Else boughtdesktoppanelclock = False + If loadlines(27) = 11 Then boughtterminalscrollbar = True Else boughtterminalscrollbar = False + If loadlines(28) = 11 Then boughtkiaddons = True Else boughtkiaddons = False + If loadlines(29) = 11 Then boughtkicarbrands = True Else boughtkicarbrands = False + If loadlines(30) = 11 Then boughtkigameconsoles = True Else boughtkigameconsoles = False + username = loadlines(31) + If loadlines(32) = 11 Then terminalfullscreen = True Else terminalfullscreen = False + If loadlines(33) = 11 Then boughtshifter = True Else boughtshifter = False + If loadlines(34) = 11 Then boughtalshifter = True Else boughtalshifter = False + If loadlines(35) = 11 Then boughtrollupcommand = True Else boughtrollupcommand = False + If loadlines(36) = 11 Then boughtrollupbutton = True Else boughtrollupbutton = False + If loadlines(37) = 11 Then boughtshiftdesktop = True Else boughtshiftdesktop = False + If loadlines(38) = 11 Then boughtshiftpanelclock = True Else boughtshiftpanelclock = False + If loadlines(39) = 11 Then boughtshiftapplauncher = True Else boughtshiftapplauncher = False + If loadlines(40) = 11 Then boughtshiftdesktoppanel = True Else boughtshiftdesktoppanel = False + If loadlines(41) = 11 Then boughtshifttitlebar = True Else boughtshifttitlebar = False + If loadlines(42) = 11 Then boughtshifttitletext = True Else boughtshifttitletext = False + If loadlines(43) = 11 Then boughtshifttitlebuttons = True Else boughtshifttitlebuttons = False + If loadlines(44) = 11 Then boughtshiftborders = True Else boughtshiftborders = False + If loadlines(45) = 11 Then boughtgray2 = True Else boughtgray2 = False + If loadlines(46) = 11 Then boughtgray3 = True Else boughtgray3 = False + If loadlines(47) = 11 Then boughtgray4 = True Else boughtgray4 = False + If loadlines(48) = 11 Then boughtanycolour = True Else boughtanycolour = False + If loadlines(49) = 11 Then boughtanycolour2 = True Else boughtanycolour2 = False + If loadlines(50) = 11 Then boughtanycolour3 = True Else boughtanycolour3 = False + If loadlines(51) = 11 Then boughtanycolour4 = True Else boughtanycolour4 = False + If loadlines(52) = 11 Then boughtpurple = True Else boughtpurple = False + If loadlines(53) = 11 Then boughtpurple2 = True Else boughtpurple2 = False + If loadlines(54) = 11 Then boughtpurple3 = True Else boughtpurple3 = False + If loadlines(55) = 11 Then boughtpurple4 = True Else boughtpurple4 = False + If loadlines(56) = 11 Then boughtblue = True Else boughtblue = False + If loadlines(57) = 11 Then boughtblue2 = True Else boughtblue2 = False + If loadlines(58) = 11 Then boughtblue3 = True Else boughtblue3 = False + If loadlines(59) = 11 Then boughtblue4 = True Else boughtblue4 = False + If loadlines(60) = 11 Then boughtgreen = True Else boughtgreen = False + If loadlines(61) = 11 Then boughtgreen2 = True Else boughtgreen2 = False + If loadlines(62) = 11 Then boughtgreen3 = True Else boughtgreen3 = False + If loadlines(63) = 11 Then boughtgreen4 = True Else boughtgreen4 = False + If loadlines(64) = 11 Then boughtyellow = True Else boughtyellow = False + If loadlines(65) = 11 Then boughtyellow2 = True Else boughtyellow2 = False + If loadlines(66) = 11 Then boughtyellow3 = True Else boughtyellow3 = False + If loadlines(67) = 11 Then boughtyellow4 = True Else boughtyellow4 = False + If loadlines(68) = 11 Then boughtorange = True Else boughtorange = False + If loadlines(69) = 11 Then boughtorange2 = True Else boughtorange2 = False + If loadlines(70) = 11 Then boughtorange3 = True Else boughtorange3 = False + If loadlines(71) = 11 Then boughtorange4 = True Else boughtorange4 = False + If loadlines(72) = 11 Then boughtbrown = True Else boughtbrown = False + If loadlines(73) = 11 Then boughtbrown2 = True Else boughtbrown2 = False + If loadlines(74) = 11 Then boughtbrown3 = True Else boughtbrown3 = False + If loadlines(75) = 11 Then boughtbrown4 = True Else boughtbrown4 = False + If loadlines(76) = 11 Then boughtred = True Else boughtred = False + If loadlines(77) = 11 Then boughtred2 = True Else boughtred2 = False + If loadlines(78) = 11 Then boughtred3 = True Else boughtred3 = False + If loadlines(79) = 11 Then boughtred4 = True Else boughtred4 = False + If loadlines(80) = 11 Then boughtpink = True Else boughtpink = False + If loadlines(81) = 11 Then boughtpink2 = True Else boughtpink2 = False + If loadlines(82) = 11 Then boughtpink3 = True Else boughtpink3 = False + If loadlines(83) = 11 Then boughtpink4 = True Else boughtpink4 = False + anymemory(0) = Color.FromArgb(loadlines(84)) + anymemory(1) = Color.FromArgb(loadlines(85)) + anymemory(2) = Color.FromArgb(loadlines(86)) + anymemory(3) = Color.FromArgb(loadlines(87)) + anymemory(4) = Color.FromArgb(loadlines(88)) + anymemory(5) = Color.FromArgb(loadlines(89)) + anymemory(6) = Color.FromArgb(loadlines(90)) + anymemory(7) = Color.FromArgb(loadlines(91)) + anymemory(8) = Color.FromArgb(loadlines(92)) + anymemory(9) = Color.FromArgb(loadlines(93)) + anymemory(10) = Color.FromArgb(loadlines(94)) + anymemory(11) = Color.FromArgb(loadlines(95)) + anymemory(12) = Color.FromArgb(loadlines(96)) + anymemory(13) = Color.FromArgb(loadlines(97)) + anymemory(14) = Color.FromArgb(loadlines(98)) + anymemory(15) = Color.FromArgb(loadlines(99)) + graymemory(0) = Color.FromArgb(loadlines(100)) + graymemory(1) = Color.FromArgb(loadlines(101)) + graymemory(2) = Color.FromArgb(loadlines(102)) + graymemory(3) = Color.FromArgb(loadlines(103)) + graymemory(4) = Color.FromArgb(loadlines(104)) + graymemory(5) = Color.FromArgb(loadlines(105)) + graymemory(6) = Color.FromArgb(loadlines(106)) + graymemory(7) = Color.FromArgb(loadlines(107)) + graymemory(8) = Color.FromArgb(loadlines(108)) + graymemory(9) = Color.FromArgb(loadlines(109)) + graymemory(10) = Color.FromArgb(loadlines(110)) + graymemory(11) = Color.FromArgb(loadlines(111)) + graymemory(12) = Color.FromArgb(loadlines(112)) + graymemory(13) = Color.FromArgb(loadlines(113)) + graymemory(14) = Color.FromArgb(loadlines(114)) + graymemory(15) = Color.FromArgb(loadlines(115)) + purplememory(0) = Color.FromArgb(loadlines(116)) + purplememory(1) = Color.FromArgb(loadlines(117)) + purplememory(2) = Color.FromArgb(loadlines(118)) + purplememory(3) = Color.FromArgb(loadlines(119)) + purplememory(4) = Color.FromArgb(loadlines(120)) + purplememory(5) = Color.FromArgb(loadlines(121)) + purplememory(6) = Color.FromArgb(loadlines(122)) + purplememory(7) = Color.FromArgb(loadlines(123)) + purplememory(8) = Color.FromArgb(loadlines(124)) + purplememory(9) = Color.FromArgb(loadlines(125)) + purplememory(10) = Color.FromArgb(loadlines(126)) + purplememory(11) = Color.FromArgb(loadlines(127)) + purplememory(12) = Color.FromArgb(loadlines(128)) + purplememory(13) = Color.FromArgb(loadlines(129)) + purplememory(14) = Color.FromArgb(loadlines(130)) + purplememory(15) = Color.FromArgb(loadlines(131)) + bluememory(0) = Color.FromArgb(loadlines(132)) + bluememory(1) = Color.FromArgb(loadlines(133)) + bluememory(2) = Color.FromArgb(loadlines(134)) + bluememory(3) = Color.FromArgb(loadlines(135)) + bluememory(4) = Color.FromArgb(loadlines(136)) + bluememory(5) = Color.FromArgb(loadlines(137)) + bluememory(6) = Color.FromArgb(loadlines(138)) + bluememory(7) = Color.FromArgb(loadlines(139)) + bluememory(8) = Color.FromArgb(loadlines(140)) + bluememory(9) = Color.FromArgb(loadlines(141)) + bluememory(10) = Color.FromArgb(loadlines(142)) + bluememory(11) = Color.FromArgb(loadlines(143)) + bluememory(12) = Color.FromArgb(loadlines(144)) + bluememory(13) = Color.FromArgb(loadlines(145)) + bluememory(14) = Color.FromArgb(loadlines(146)) + bluememory(15) = Color.FromArgb(loadlines(147)) + greenmemory(0) = Color.FromArgb(loadlines(148)) + greenmemory(1) = Color.FromArgb(loadlines(149)) + greenmemory(2) = Color.FromArgb(loadlines(150)) + greenmemory(3) = Color.FromArgb(loadlines(151)) + greenmemory(4) = Color.FromArgb(loadlines(152)) + greenmemory(5) = Color.FromArgb(loadlines(153)) + greenmemory(6) = Color.FromArgb(loadlines(154)) + greenmemory(7) = Color.FromArgb(loadlines(155)) + greenmemory(8) = Color.FromArgb(loadlines(156)) + greenmemory(9) = Color.FromArgb(loadlines(157)) + greenmemory(10) = Color.FromArgb(loadlines(158)) + greenmemory(11) = Color.FromArgb(loadlines(159)) + greenmemory(12) = Color.FromArgb(loadlines(160)) + greenmemory(13) = Color.FromArgb(loadlines(161)) + greenmemory(14) = Color.FromArgb(loadlines(162)) + greenmemory(15) = Color.FromArgb(loadlines(163)) + yellowmemory(0) = Color.FromArgb(loadlines(164)) + yellowmemory(1) = Color.FromArgb(loadlines(165)) + yellowmemory(2) = Color.FromArgb(loadlines(166)) + yellowmemory(3) = Color.FromArgb(loadlines(167)) + yellowmemory(4) = Color.FromArgb(loadlines(168)) + yellowmemory(5) = Color.FromArgb(loadlines(169)) + yellowmemory(6) = Color.FromArgb(loadlines(170)) + yellowmemory(7) = Color.FromArgb(loadlines(171)) + yellowmemory(8) = Color.FromArgb(loadlines(172)) + yellowmemory(9) = Color.FromArgb(loadlines(173)) + yellowmemory(10) = Color.FromArgb(loadlines(174)) + yellowmemory(11) = Color.FromArgb(loadlines(175)) + yellowmemory(12) = Color.FromArgb(loadlines(176)) + yellowmemory(13) = Color.FromArgb(loadlines(177)) + yellowmemory(14) = Color.FromArgb(loadlines(178)) + yellowmemory(15) = Color.FromArgb(loadlines(179)) + orangememory(0) = Color.FromArgb(loadlines(180)) + orangememory(1) = Color.FromArgb(loadlines(181)) + orangememory(2) = Color.FromArgb(loadlines(182)) + orangememory(3) = Color.FromArgb(loadlines(183)) + orangememory(4) = Color.FromArgb(loadlines(184)) + orangememory(5) = Color.FromArgb(loadlines(185)) + orangememory(6) = Color.FromArgb(loadlines(186)) + orangememory(7) = Color.FromArgb(loadlines(187)) + orangememory(8) = Color.FromArgb(loadlines(188)) + orangememory(9) = Color.FromArgb(loadlines(189)) + orangememory(10) = Color.FromArgb(loadlines(190)) + orangememory(11) = Color.FromArgb(loadlines(191)) + orangememory(12) = Color.FromArgb(loadlines(192)) + orangememory(13) = Color.FromArgb(loadlines(193)) + orangememory(14) = Color.FromArgb(loadlines(194)) + orangememory(15) = Color.FromArgb(loadlines(195)) + brownmemory(0) = Color.FromArgb(loadlines(196)) + brownmemory(1) = Color.FromArgb(loadlines(197)) + brownmemory(2) = Color.FromArgb(loadlines(198)) + brownmemory(3) = Color.FromArgb(loadlines(199)) + brownmemory(4) = Color.FromArgb(loadlines(200)) + brownmemory(5) = Color.FromArgb(loadlines(201)) + brownmemory(6) = Color.FromArgb(loadlines(202)) + brownmemory(7) = Color.FromArgb(loadlines(203)) + brownmemory(8) = Color.FromArgb(loadlines(204)) + brownmemory(9) = Color.FromArgb(loadlines(205)) + brownmemory(10) = Color.FromArgb(loadlines(206)) + brownmemory(11) = Color.FromArgb(loadlines(207)) + brownmemory(12) = Color.FromArgb(loadlines(208)) + brownmemory(13) = Color.FromArgb(loadlines(209)) + brownmemory(14) = Color.FromArgb(loadlines(210)) + brownmemory(15) = Color.FromArgb(loadlines(211)) + redmemory(0) = Color.FromArgb(loadlines(212)) + redmemory(1) = Color.FromArgb(loadlines(213)) + redmemory(2) = Color.FromArgb(loadlines(214)) + redmemory(3) = Color.FromArgb(loadlines(215)) + redmemory(4) = Color.FromArgb(loadlines(216)) + redmemory(5) = Color.FromArgb(loadlines(217)) + redmemory(6) = Color.FromArgb(loadlines(218)) + redmemory(7) = Color.FromArgb(loadlines(219)) + redmemory(8) = Color.FromArgb(loadlines(220)) + redmemory(9) = Color.FromArgb(loadlines(221)) + redmemory(10) = Color.FromArgb(loadlines(222)) + redmemory(11) = Color.FromArgb(loadlines(223)) + redmemory(12) = Color.FromArgb(loadlines(224)) + redmemory(13) = Color.FromArgb(loadlines(225)) + redmemory(14) = Color.FromArgb(loadlines(226)) + redmemory(15) = Color.FromArgb(loadlines(227)) + pinkmemory(0) = Color.FromArgb(loadlines(228)) + pinkmemory(1) = Color.FromArgb(loadlines(229)) + pinkmemory(2) = Color.FromArgb(loadlines(230)) + pinkmemory(3) = Color.FromArgb(loadlines(231)) + pinkmemory(4) = Color.FromArgb(loadlines(232)) + pinkmemory(5) = Color.FromArgb(loadlines(233)) + pinkmemory(6) = Color.FromArgb(loadlines(234)) + pinkmemory(7) = Color.FromArgb(loadlines(235)) + pinkmemory(8) = Color.FromArgb(loadlines(236)) + pinkmemory(9) = Color.FromArgb(loadlines(237)) + pinkmemory(10) = Color.FromArgb(loadlines(238)) + pinkmemory(11) = Color.FromArgb(loadlines(239)) + pinkmemory(12) = Color.FromArgb(loadlines(240)) + pinkmemory(13) = Color.FromArgb(loadlines(241)) + pinkmemory(14) = Color.FromArgb(loadlines(242)) + pinkmemory(15) = Color.FromArgb(loadlines(243)) + titlebarcolour = Color.FromArgb(loadlines(244)) + windowbordercolour = Color.FromArgb(loadlines(245)) + windowbordersize = loadlines(246) + titlebarheight = loadlines(247) + closebuttoncolour = Color.FromArgb(loadlines(248)) + closebuttonheight = loadlines(249) + closebuttonwidth = loadlines(250) + closebuttonside = loadlines(251) + closebuttontop = loadlines(252) + titletextcolour = Color.FromArgb(loadlines(253)) + titletexttop = loadlines(254) + titletextside = loadlines(255) + titletextsize = loadlines(256) + titletextfont = loadlines(257) + titletextstyle = loadlines(258) + desktoppanelcolour = Color.FromArgb(loadlines(259)) + desktopbackgroundcolour = Color.FromArgb(loadlines(260)) + desktoppanelheight = loadlines(261) + desktoppanelposition = loadlines(262) + clocktextcolour = Color.FromArgb(loadlines(263)) + clockbackgroundcolor = Color.FromArgb(loadlines(264)) + panelclocktexttop = loadlines(265) + panelclocktextsize = loadlines(266) + panelclocktextfont = loadlines(267) + panelclocktextstyle = loadlines(268) + applauncherbuttoncolour = Color.FromArgb(loadlines(269)) + applauncherbuttonclickedcolour = Color.FromArgb(loadlines(270)) + applauncherbackgroundcolour = Color.FromArgb(loadlines(271)) + applaunchermouseovercolour = Color.FromArgb(loadlines(272)) + applicationsbuttontextcolour = Color.FromArgb(loadlines(273)) + applicationbuttonheight = loadlines(274) + applicationbuttontextsize = loadlines(275) + applicationbuttontextfont = loadlines(276) + applicationbuttontextstyle = loadlines(277) + applicationlaunchername = loadlines(278) + titletextposition = loadlines(279) + rollupbuttoncolour = Color.FromArgb(loadlines(280)) + rollupbuttonheight = loadlines(281) + rollupbuttonwidth = loadlines(282) + rollupbuttonside = loadlines(283) + rollupbuttontop = loadlines(284) + If loadlines(285) = 11 Then boughtpong = True Else boughtpong = False + If loadlines(286) = 11 Then boughtknowledgeinputicon = True Else boughtknowledgeinputicon = False + If loadlines(287) = 11 Then boughtshiftericon = True Else boughtshiftericon = False + If loadlines(288) = 11 Then boughtshiftoriumicon = True Else boughtshiftoriumicon = False + If loadlines(289) = 11 Then boughtclockicon = True Else boughtclockicon = False + If loadlines(290) = 11 Then boughtshutdownicon = True Else boughtshutdownicon = False + If loadlines(291) = 11 Then boughtpongicon = True Else boughtpongicon = False + If loadlines(292) = 11 Then boughtterminalicon = True Else boughtterminalicon = False + If loadlines(293) = 11 Then boughtalpong = True Else boughtalpong = False + If loadlines(294) = 11 Then boughtfileskimmer = True Else boughtfileskimmer = False + If loadlines(295) = 11 Then boughtalfileskimmer = True Else boughtalfileskimmer = False + If loadlines(296) = 11 Then boughttextpad = True Else boughttextpad = False + If loadlines(297) = 11 Then boughtaltextpad = True Else boughtaltextpad = False + If loadlines(298) = 11 Then boughtfileskimmericon = True Else boughtfileskimmericon = False + If loadlines(299) = 11 Then boughttextpadicon = True Else boughttextpadicon = False + If loadlines(300) = 11 Then boughttextpadnew = True Else boughttextpadnew = False + If loadlines(301) = 11 Then boughttextpadsave = True Else boughttextpadsave = False + If loadlines(302) = 11 Then boughttextpadopen = True Else boughttextpadopen = False + If loadlines(303) = 11 Then boughtfileskimmernewfolder = True Else boughtfileskimmernewfolder = False + If loadlines(304) = 11 Then boughtfileskimmerdelete = True Else boughtfileskimmerdelete = False + If loadlines(305) = 11 Then boughtkielements = True Else boughtkielements = False + If loadlines(306) = 11 Then boughtcolourpickericon = True Else boughtcolourpickericon = False + If loadlines(307) = 11 Then boughtinfoboxicon = True Else boughtinfoboxicon = False + artpadcolorpalletwidth = loadlines(308) + artpadcolorpalletheight = loadlines(309) + artpadcolorpalletsidegap = loadlines(310) + artpadcolorpallettopgap = loadlines(311) + artpadvisiblepallets = loadlines(312) + artpadpixellimit = loadlines(313) + If loadlines(314) = 11 Then boughtskinloader = True Else boughtskinloader = False + If loadlines(315) = 11 Then boughtminimizebutton = True Else boughtminimizebutton = False + If loadlines(316) = 11 Then boughtpanelbuttons = True Else boughtpanelbuttons = False + If loadlines(317) = 11 Then boughtshiftpanelbuttons = True Else boughtshiftpanelbuttons = False + If loadlines(318) = 11 Then boughtartpad = True Else boughtartpad = False + If loadlines(319) = 11 Then boughtalartpad = True Else boughtalartpad = False + If loadlines(320) = 11 Then boughtartpadicon = True Else boughtartpadicon = False + If loadlines(321) = 11 Then boughtskinning = True Else boughtskinning = False + If loadlines(322) = 11 Then boughtminimizecommand = True Else boughtminimizecommand = False + If loadlines(323) = 11 Then boughtusefulpanelbuttons = True Else boughtusefulpanelbuttons = False + If loadlines(324) = 11 Then boughtunitymode = True Else boughtunitymode = False + If loadlines(325) = 11 Then boughtartpadpixellimit4 = True Else boughtartpadpixellimit4 = False + If loadlines(326) = 11 Then boughtartpadpixellimit8 = True Else boughtartpadpixellimit8 = False + If loadlines(327) = 11 Then boughtartpadpixellimit16 = True Else boughtartpadpixellimit16 = False + If loadlines(328) = 11 Then boughtartpadpixellimit64 = True Else boughtartpadpixellimit64 = False + If loadlines(329) = 11 Then boughtartpadpixellimit256 = True Else boughtartpadpixellimit256 = False + If loadlines(330) = 11 Then boughtartpadpixellimit1024 = True Else boughtartpadpixellimit1024 = False + If loadlines(331) = 11 Then boughtartpadpixellimit4096 = True Else boughtartpadpixellimit4096 = False + If loadlines(332) = 11 Then boughtartpadpixellimit16384 = True Else boughtartpadpixellimit16384 = False + If loadlines(333) = 11 Then boughtartpadpixellimit65536 = True Else boughtartpadpixellimit65536 = False + If loadlines(334) = 11 Then boughtartpadlimitlesspixels = True Else boughtartpadlimitlesspixels = False + If loadlines(335) = 11 Then boughtartpad4colorpallets = True Else boughtartpad4colorpallets = False + If loadlines(336) = 11 Then boughtartpad8colorpallets = True Else boughtartpad8colorpallets = False + If loadlines(337) = 11 Then boughtartpad16colorpallets = True Else boughtartpad16colorpallets = False + If loadlines(338) = 11 Then boughtartpad32colorpallets = True Else boughtartpad32colorpallets = False + If loadlines(339) = 11 Then boughtartpad64colorpallets = True Else boughtartpad64colorpallets = False + If loadlines(340) = 11 Then boughtartpad128colorpallets = True Else boughtartpad128colorpallets = False + If loadlines(341) = 11 Then boughtartpadcustompallets = True Else boughtartpadcustompallets = False + If loadlines(342) = 11 Then boughtartpadpixelplacer = True Else boughtartpadpixelplacer = False + If loadlines(343) = 11 Then boughtartpadpixelplacermovementmode = True Else boughtartpadpixelplacermovementmode = False + If loadlines(344) = 11 Then boughtartpadpencil = True Else boughtartpadpencil = False + If loadlines(345) = 11 Then boughtartpadpaintbrush = True Else boughtartpadpaintbrush = False + If loadlines(346) = 11 Then boughtartpadlinetool = True Else boughtartpadlinetool = False + If loadlines(347) = 11 Then boughtartpadovaltool = True Else boughtartpadovaltool = False + If loadlines(348) = 11 Then boughtartpadrectangletool = True Else boughtartpadrectangletool = False + If loadlines(349) = 11 Then boughtartpaderaser = True Else boughtartpaderaser = False + If loadlines(350) = 11 Then boughtartpadfilltool = True Else boughtartpadfilltool = False + If loadlines(351) = 11 Then boughtartpadtexttool = True Else boughtartpadtexttool = False + If loadlines(352) = 11 Then boughtartpadundo = True Else boughtartpadundo = False + If loadlines(353) = 11 Then boughtartpadredo = True Else boughtartpadredo = False + If loadlines(354) = 11 Then boughtartpadsave = True Else boughtartpadsave = False + If loadlines(355) = 11 Then boughtartpadload = True Else boughtartpadload = False + For i = 0 To 127 : artpadcolourpallets(i) = Color.FromArgb(loadlines(356 + i)) : Next + If loadlines(484) = "" Then Else If loadlines(484) = 11 Then boughtartpadnew = True Else boughtartpadnew = False + + If IO.File.Exists("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin() + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Icons") Then setupicons() + End Sub + + Private Sub ShiftOSDesktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If newgame = True Then + savegame() + Else + loadgame() + End If + ToolStripManager.Renderer = New MyToolStripRenderer() + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Me.WindowState = FormWindowState.Maximized + loadskinfiles() + setupdesktop() + setupskins() + End Sub + + Public Sub loadcurrentskin() + skinlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat") + titlebarcolour = Color.FromArgb(skinlines(0)) + windowbordercolour = Color.FromArgb(skinlines(1)) + windowbordersize = skinlines(2) + titlebarheight = skinlines(3) + closebuttoncolour = Color.FromArgb(skinlines(4)) + closebuttonheight = skinlines(5) + closebuttonwidth = skinlines(6) + closebuttonside = skinlines(7) + closebuttontop = skinlines(8) + titletextcolour = Color.FromArgb(skinlines(9)) + titletexttop = skinlines(10) + titletextside = skinlines(11) + titletextsize = skinlines(12) + titletextfont = skinlines(13) + titletextstyle = skinlines(14) + desktoppanelcolour = Color.FromArgb(skinlines(15)) + desktopbackgroundcolour = Color.FromArgb(skinlines(16)) + desktoppanelheight = skinlines(17) + desktoppanelposition = skinlines(18) + clocktextcolour = Color.FromArgb(skinlines(19)) + clockbackgroundcolor = Color.FromArgb(skinlines(20)) + panelclocktexttop = skinlines(21) + panelclocktextsize = skinlines(22) + panelclocktextfont = skinlines(23) + panelclocktextstyle = skinlines(24) + applauncherbuttoncolour = Color.FromArgb(skinlines(25)) + applauncherbuttonclickedcolour = Color.FromArgb(skinlines(26)) + applauncherbackgroundcolour = Color.FromArgb(skinlines(27)) + applaunchermouseovercolour = Color.FromArgb(skinlines(28)) + applicationsbuttontextcolour = Color.FromArgb(skinlines(29)) + applicationbuttonheight = skinlines(30) + applicationbuttontextsize = skinlines(31) + applicationbuttontextfont = skinlines(32) + applicationbuttontextstyle = skinlines(33) + applicationlaunchername = skinlines(34) + titletextposition = skinlines(35) + rollupbuttoncolour = Color.FromArgb(skinlines(36)) + If skinlines(37) = "" Then Else rollupbuttonheight = skinlines(37) + If skinlines(38) = "" Then Else rollupbuttonwidth = skinlines(38) + If skinlines(39) = "" Then Else rollupbuttonside = skinlines(39) + If skinlines(40) = "" Then Else rollupbuttontop = skinlines(40) + If skinlines(41) = "" Then Else titlebariconside = skinlines(41) + If skinlines(42) = "" Then Else titlebaricontop = skinlines(42) + If skinlines(43) = "" Then Else showwindowcorners = skinlines(43) + If skinlines(44) = "" Then Else titlebarcornerwidth = skinlines(44) + If skinlines(45) = "" Then Else titlebarrightcornercolour = Color.FromArgb(skinlines(45)) + If skinlines(46) = "" Then Else titlebarleftcornercolour = Color.FromArgb(skinlines(46)) + If skinlines(47) = "" Then Else applaunchermenuholderwidth = skinlines(47) + If skinlines(48) = "" Then Else windowborderleftcolour = Color.FromArgb(skinlines(48)) + If skinlines(49) = "" Then Else windowborderrightcolour = Color.FromArgb(skinlines(49)) + If skinlines(50) = "" Then Else windowborderbottomcolour = Color.FromArgb(skinlines(50)) + If skinlines(51) = "" Then Else windowborderbottomrightcolour = Color.FromArgb(skinlines(51)) + If skinlines(52) = "" Then Else windowborderbottomleftcolour = Color.FromArgb(skinlines(52)) + If skinlines(53) = "" Then Else panelbuttonicontop = skinlines(53) + If skinlines(54) = "" Then Else panelbuttoniconside = skinlines(54) + If skinlines(55) = "" Then Else panelbuttoniconsize = skinlines(55) + If skinlines(56) = "" Then Else panelbuttoniconsize = skinlines(56) + If skinlines(57) = "" Then Else panelbuttonheight = skinlines(57) + If skinlines(58) = "" Then Else panelbuttonwidth = skinlines(58) + If skinlines(59) = "" Then Else panelbuttoncolour = Color.FromArgb(skinlines(59)) + If skinlines(60) = "" Then Else panelbuttontextcolour = Color.FromArgb(skinlines(60)) + If skinlines(61) = "" Then Else panelbuttontextsize = skinlines(61) + If skinlines(62) = "" Then Else panelbuttontextfont = skinlines(62) + If skinlines(63) = "" Then Else panelbuttontextstyle = skinlines(63) + If skinlines(64) = "" Then Else panelbuttontextside = skinlines(64) + If skinlines(65) = "" Then Else panelbuttontexttop = skinlines(65) + If skinlines(66) = "" Then Else panelbuttongap = skinlines(66) + If skinlines(67) = "" Then Else panelbuttonfromtop = skinlines(67) + If skinlines(68) = "" Then Else panelbuttoninitialgap = skinlines(68) + If skinlines(69) = "" Then Else minimizebuttoncolour = Color.FromArgb(skinlines(69)) + If skinlines(70) = "" Then Else minimizebuttonheight = skinlines(70) + If skinlines(71) = "" Then Else minimizebuttonwidth = skinlines(71) + If skinlines(72) = "" Then Else minimizebuttonside = skinlines(72) + If skinlines(73) = "" Then Else minimizebuttontop = skinlines(73) + + skinimages(0) = skinlines(100) + skinimages(1) = skinlines(101) + skinimages(2) = skinlines(102) + skinimages(3) = skinlines(103) + skinimages(4) = skinlines(104) + skinimages(5) = skinlines(105) + skinimages(6) = skinlines(106) + skinimages(7) = skinlines(107) + skinimages(8) = skinlines(108) + skinimages(9) = skinlines(109) + skinimages(10) = skinlines(110) + skinimages(11) = skinlines(111) + skinimages(12) = skinlines(112) + skinimages(13) = skinlines(113) + skinimages(14) = skinlines(114) + skinimages(15) = skinlines(115) + skinimages(16) = skinlines(116) + skinimages(17) = skinlines(117) + skinimages(18) = skinlines(118) + skinimages(19) = skinlines(119) + skinimages(20) = skinlines(120) + skinimages(21) = skinlines(121) + skinimages(22) = skinlines(122) + skinimages(23) = skinlines(123) + skinimages(24) = skinlines(124) + skinimages(25) = skinlines(125) + skinimages(26) = skinlines(126) + skinimages(27) = skinlines(127) + skinimages(28) = skinlines(128) + skinimages(29) = skinlines(129) + skinimages(30) = skinlines(130) + skinimages(31) = skinlines(131) + skinimages(32) = skinlines(132) + skinimages(33) = skinlines(133) + skinimages(34) = skinlines(134) + skinimages(35) = skinlines(135) + skinimages(36) = skinlines(136) + skinimages(37) = skinlines(137) + skinimages(38) = skinlines(138) + skinimages(39) = skinlines(139) + skinimages(40) = skinlines(140) + skinimages(41) = skinlines(141) + skinimages(42) = skinlines(142) + skinimages(43) = skinlines(143) + skinimages(44) = skinlines(144) + skinimages(45) = skinlines(145) + skinimages(46) = skinlines(146) + skinimages(47) = skinlines(147) + skinimages(48) = skinlines(148) + skinimages(49) = skinlines(149) + skinimages(50) = skinlines(150) + End Sub + + + Public Sub disposeoldskindata(ByVal fromwhere As String) + + 'mostly disabled due to issues with disposing causing red X's + + Select Case fromwhere + Case "skinloaderapplyskin" + shortdisposecode(Skin_Loader.skinloaderskinclosebutton, Me.skinclosebutton, Shifter.skinclosebutton, True) + shortdisposecode(Skin_Loader.skinloaderskintitlebar, Me.skintitlebar, Shifter.shifterskintitlebar, True) + shortdisposecode(Skin_Loader.skinloaderskindesktopbackground, Me.skindesktopbackground, Shifter.skindesktopbackground, True) + shortdisposecode(Skin_Loader.skinloaderskinrollupbutton, Me.skinrollupbutton, Shifter.skinrollupbutton, True) + shortdisposecode(Skin_Loader.skinloaderskintitlebarrightcorner, Me.skintitlebarrightcorner, Shifter.skintitlebarrightcorner, True) + shortdisposecode(Skin_Loader.skinloaderskintitlebarleftcorner, Me.skintitlebarleftcorner, Shifter.skintitlebarleftcorner, True) + shortdisposecode(Skin_Loader.skinloaderskindesktoppanel, Me.skindesktoppanel, Shifter.skindesktoppanel, True) + shortdisposecode(Skin_Loader.skinloaderskindesktoppaneltime, Me.skindesktoppaneltime, Shifter.skindesktoppaneltime, True) + shortdisposecode(Skin_Loader.skinloaderskinapplauncherbutton, Me.skinapplauncherbutton, Shifter.skinapplauncherbutton, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderleft, Me.skinwindowborderleft, Shifter.skinwindowborderleft, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderright, Me.skinwindowborderright, Shifter.skinwindowborderright, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottom, Me.skinwindowborderbottom, Shifter.skinwindowborderbottom, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomright, Me.skinwindowborderbottomright, Shifter.skinwindowborderbottomright, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomleft, Me.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft, True) + shortdisposecode(Skin_Loader.skinloaderskinpanelbutton, Me.skinpanelbutton, Shifter.skinpanelbutton, True) + shortdisposecode(Skin_Loader.skinloaderskinminimizebutton, Me.skinminimizebutton, Shifter.skinminimizebutton, True) + + 'If Me.BackgroundImage Is Nothing Then Else Me.BackgroundImage.Dispose() + 'If Me.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Me.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonholder.BackgroundImage.Dispose() + 'If Me.desktoppanel.BackgroundImage Is Nothing Then Else Me.desktoppanel.BackgroundImage.Dispose() + 'If Me.timepanel.BackgroundImage Is Nothing Then Else Me.timepanel.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonclock.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonclock.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonskinloader.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinloader.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonfileskimmer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileskimmer.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonfileopener.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileopener.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoninfobox.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoninfobox.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonknowledgeinput.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonknowledgeinput.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoncolourpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncolourpicker.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonshiftorium.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshiftorium.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonfilesaver.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfilesaver.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshifter.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonpong.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonpong.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonterminal.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonterminal.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttontextpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttontextpad.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttongraphicpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttongraphicpicker.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonartpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonartpad.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoncalculator.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncalculator.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonaudioplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonaudioplayer.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonwebbrowser.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonwebbrowser.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonvideoplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonvideoplayer.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonnamechanger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonnamechanger.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoniconmanager.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoniconmanager.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonbitnotewallet.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotewallet.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonbitnotedigger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotedigger.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonskinshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinshifter.BackgroundImage.Dispose() + 'If Me.tbclockicon.BackgroundImage Is Nothing Then Else Me.tbclockicon.BackgroundImage.Dispose() + 'If Me.tbskinloadericon.BackgroundImage Is Nothing Then Else Me.tbskinloadericon.BackgroundImage.Dispose() + 'If Me.tbfileskimmericon.BackgroundImage Is Nothing Then Else Me.tbfileskimmericon.BackgroundImage.Dispose() + 'If Me.tbfileopenericon.BackgroundImage Is Nothing Then Else Me.tbfileopenericon.BackgroundImage.Dispose() + 'If Me.tbinfoboxicon.BackgroundImage Is Nothing Then Else Me.tbinfoboxicon.BackgroundImage.Dispose() + 'If Me.tbknowledgeinputicon.BackgroundImage Is Nothing Then Else Me.tbknowledgeinputicon.BackgroundImage.Dispose() + 'If Me.tbcolourpickericon.BackgroundImage Is Nothing Then Else Me.tbcolourpickericon.BackgroundImage.Dispose() + 'If Me.tbshiftoriumicon.BackgroundImage Is Nothing Then Else Me.tbshiftoriumicon.BackgroundImage.Dispose() + 'If Me.tbfilesavericon.BackgroundImage Is Nothing Then Else Me.tbfilesavericon.BackgroundImage.Dispose() + 'If Me.tbshiftericon.BackgroundImage Is Nothing Then Else Me.tbshiftericon.BackgroundImage.Dispose() + 'If Me.tbpongicon.BackgroundImage Is Nothing Then Else Me.tbpongicon.BackgroundImage.Dispose() + 'If Me.tbterminalicon.BackgroundImage Is Nothing Then Else Me.tbterminalicon.BackgroundImage.Dispose() + 'If Me.tbtextpadicon.BackgroundImage Is Nothing Then Else Me.tbtextpadicon.BackgroundImage.Dispose() + 'If Me.tbgraphicpickericon.BackgroundImage Is Nothing Then Else Me.tbgraphicpickericon.BackgroundImage.Dispose() + 'If Me.tbartpadicon.BackgroundImage Is Nothing Then Else Me.tbartpadicon.BackgroundImage.Dispose() + 'If Me.tbcalculatoricon.BackgroundImage Is Nothing Then Else Me.tbcalculatoricon.BackgroundImage.Dispose() + 'If Me.tbaudioplayericon.BackgroundImage Is Nothing Then Else Me.tbaudioplayericon.BackgroundImage.Dispose() + 'If Me.tbwebbrowsericon.BackgroundImage Is Nothing Then Else Me.tbwebbrowsericon.BackgroundImage.Dispose() + 'If Me.tbvideoplayericon.BackgroundImage Is Nothing Then Else Me.tbvideoplayericon.BackgroundImage.Dispose() + 'If Me.tbnamechangericon.BackgroundImage Is Nothing Then Else Me.tbnamechangericon.BackgroundImage.Dispose() + 'If Me.tbiconmanagericon.BackgroundImage Is Nothing Then Else Me.tbiconmanagericon.BackgroundImage.Dispose() + 'If Me.tbbitnotewalleticon.BackgroundImage Is Nothing Then Else Me.tbbitnotewalleticon.BackgroundImage.Dispose() + 'If Me.tbbitnotediggericon.BackgroundImage Is Nothing Then Else Me.tbbitnotediggericon.BackgroundImage.Dispose() + 'If Me.tbskinshiftericon.BackgroundImage Is Nothing Then Else Me.tbskinshiftericon.BackgroundImage.Dispose() + + Me.BackgroundImage = Nothing + Me.ApplicationsToolStripMenuItem.BackgroundImage = Nothing + Me.pnlpanelbuttonholder.BackgroundImage = Nothing + Me.desktoppanel.BackgroundImage = Nothing + Me.timepanel.BackgroundImage = Nothing + Me.pnlpanelbuttonclock.BackgroundImage = Nothing + Me.pnlpanelbuttonskinloader.BackgroundImage = Nothing + Me.pnlpanelbuttonfileskimmer.BackgroundImage = Nothing + Me.pnlpanelbuttonfileopener.BackgroundImage = Nothing + Me.pnlpanelbuttoninfobox.BackgroundImage = Nothing + Me.pnlpanelbuttonknowledgeinput.BackgroundImage = Nothing + Me.pnlpanelbuttoncolourpicker.BackgroundImage = Nothing + Me.pnlpanelbuttonshiftorium.BackgroundImage = Nothing + Me.pnlpanelbuttonfilesaver.BackgroundImage = Nothing + Me.pnlpanelbuttonshifter.BackgroundImage = Nothing + Me.pnlpanelbuttonpong.BackgroundImage = Nothing + Me.pnlpanelbuttonterminal.BackgroundImage = Nothing + Me.pnlpanelbuttontextpad.BackgroundImage = Nothing + Me.pnlpanelbuttongraphicpicker.BackgroundImage = Nothing + Me.pnlpanelbuttonartpad.BackgroundImage = Nothing + Me.pnlpanelbuttoncalculator.BackgroundImage = Nothing + Me.pnlpanelbuttonaudioplayer.BackgroundImage = Nothing + Me.pnlpanelbuttonwebbrowser.BackgroundImage = Nothing + Me.pnlpanelbuttonvideoplayer.BackgroundImage = Nothing + Me.pnlpanelbuttonnamechanger.BackgroundImage = Nothing + Me.pnlpanelbuttoniconmanager.BackgroundImage = Nothing + Me.pnlpanelbuttonbitnotewallet.BackgroundImage = Nothing + Me.pnlpanelbuttonbitnotedigger.BackgroundImage = Nothing + Me.pnlpanelbuttonskinshifter.BackgroundImage = Nothing + Me.pnlpanelbuttonshiftnet.BackgroundImage = Nothing + Me.pnlpanelbuttondownloader.BackgroundImage = Nothing + Me.tbclockicon.BackgroundImage = Nothing + Me.tbskinloadericon.BackgroundImage = Nothing + Me.tbfileskimmericon.BackgroundImage = Nothing + Me.tbfileopenericon.BackgroundImage = Nothing + Me.tbinfoboxicon.BackgroundImage = Nothing + Me.tbknowledgeinputicon.BackgroundImage = Nothing + Me.tbcolourpickericon.BackgroundImage = Nothing + Me.tbshiftoriumicon.BackgroundImage = Nothing + Me.tbfilesavericon.BackgroundImage = Nothing + Me.tbshiftericon.BackgroundImage = Nothing + Me.tbpongicon.BackgroundImage = Nothing + Me.tbterminalicon.BackgroundImage = Nothing + Me.tbtextpadicon.BackgroundImage = Nothing + Me.tbgraphicpickericon.BackgroundImage = Nothing + Me.tbartpadicon.BackgroundImage = Nothing + Me.tbcalculatoricon.BackgroundImage = Nothing + Me.tbaudioplayericon.BackgroundImage = Nothing + Me.tbwebbrowsericon.BackgroundImage = Nothing + Me.tbvideoplayericon.BackgroundImage = Nothing + Me.tbnamechangericon.BackgroundImage = Nothing + Me.tbiconmanagericon.BackgroundImage = Nothing + Me.tbbitnotewalleticon.BackgroundImage = Nothing + Me.tbbitnotediggericon.BackgroundImage = Nothing + Me.tbskinshiftericon.BackgroundImage = Nothing + Me.tbshiftneticon.BackgroundImage = Nothing + Me.tbdownloadericon.BackgroundImage = Nothing + + 'For i = 0 To 50 + ' skinimages(i) = "" + 'Next + + 'If Skin_Loader.pgleft.BackgroundImage Is Nothing Then Else Skin_Loader.pgleft.BackgroundImage.Dispose() + 'If Skin_Loader.pgright.BackgroundImage Is Nothing Then Else Skin_Loader.pgright.BackgroundImage.Dispose() + 'If Skin_Loader.pgbottom.BackgroundImage Is Nothing Then Else Skin_Loader.pgbottom.BackgroundImage.Dispose() + 'If Skin_Loader.pgbottomlcorner.BackgroundImage Is Nothing Then Else Skin_Loader.pgbottomlcorner.BackgroundImage.Dispose() + 'If Skin_Loader.pgbottomrcorner.BackgroundImage Is Nothing Then Else Skin_Loader.pgbottomrcorner.BackgroundImage.Dispose() + + 'If Clock.Visible = True Then + ' If Clock.titlebar.BackgroundImage Is Nothing Then Else Clock.titlebar.BackgroundImage.Dispose() + ' Clock.titlebar.BackgroundImage = Nothing + 'End If + + Skin_Loader.pgleft.BackgroundImage = Nothing + Skin_Loader.pgright.BackgroundImage = Nothing + Skin_Loader.pgbottom.BackgroundImage = Nothing + Skin_Loader.pgbottomlcorner.BackgroundImage = Nothing + Skin_Loader.pgbottomrcorner.BackgroundImage = Nothing + + GC.Collect() + + While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") + Try + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", FileIO.DeleteDirectoryOption.DeleteAllContents) + Catch ex As Exception + End Try + End While + + My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Current\") + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.CopyDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", "C:\ShiftOS\Shiftum42\Skins\Current\") + My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Current\skindata.dat").Replace("\Preview", "\Current"), False) + + Case "shifterapply" + shortdisposecode(Skin_Loader.skinloaderskinclosebutton, Me.skinclosebutton, Shifter.skinclosebutton, True) + shortdisposecode(Skin_Loader.skinloaderskintitlebar, Me.skintitlebar, Shifter.shifterskintitlebar, True) + shortdisposecode(Skin_Loader.skinloaderskindesktopbackground, Me.skindesktopbackground, Shifter.skindesktopbackground, True) + shortdisposecode(Skin_Loader.skinloaderskinrollupbutton, Me.skinrollupbutton, Shifter.skinrollupbutton, True) + shortdisposecode(Skin_Loader.skinloaderskintitlebarrightcorner, Me.skintitlebarrightcorner, Shifter.skintitlebarrightcorner, True) + shortdisposecode(Skin_Loader.skinloaderskintitlebarleftcorner, Me.skintitlebarleftcorner, Shifter.skintitlebarleftcorner, True) + shortdisposecode(Skin_Loader.skinloaderskindesktoppanel, Me.skindesktoppanel, Shifter.skindesktoppanel, True) + shortdisposecode(Skin_Loader.skinloaderskindesktoppaneltime, Me.skindesktoppaneltime, Shifter.skindesktoppaneltime, True) + shortdisposecode(Skin_Loader.skinloaderskinapplauncherbutton, Me.skinapplauncherbutton, Shifter.skinapplauncherbutton, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderleft, Me.skinwindowborderleft, Shifter.skinwindowborderleft, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderright, Me.skinwindowborderright, Shifter.skinwindowborderright, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottom, Me.skinwindowborderbottom, Shifter.skinwindowborderbottom, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomright, Me.skinwindowborderbottomright, Shifter.skinwindowborderbottomright, True) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomleft, Me.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft, True) + shortdisposecode(Skin_Loader.skinloaderskinpanelbutton, Me.skinpanelbutton, Shifter.skinpanelbutton, True) + shortdisposecode(Skin_Loader.skinloaderskinminimizebutton, Me.skinminimizebutton, Shifter.skinminimizebutton, True) + + 'If Skin_Loader.Visible Then + ' If Skin_Loader.preclosebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preclosebutton.BackgroundImage.Dispose() + ' If Skin_Loader.pretitlebar.BackgroundImage Is Nothing Then Else Skin_Loader.pretitlebar.BackgroundImage.Dispose() + ' If Skin_Loader.pnldesktoppreview.BackgroundImage Is Nothing Then Else Skin_Loader.pnldesktoppreview.BackgroundImage.Dispose() + ' If Skin_Loader.prerollupbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prerollupbutton.BackgroundImage.Dispose() + ' If Skin_Loader.prepgtoprcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoprcorner.BackgroundImage.Dispose() + ' If Skin_Loader.prepgtoplcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoplcorner.BackgroundImage.Dispose() + ' If Skin_Loader.predesktoppanel.BackgroundImage Is Nothing Then Else Skin_Loader.predesktoppanel.BackgroundImage.Dispose() + ' If Skin_Loader.prepnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbuttonholder.BackgroundImage.Dispose() + ' If Skin_Loader.pretimepanel.BackgroundImage Is Nothing Then Else Skin_Loader.pretimepanel.BackgroundImage.Dispose() + ' If Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() + ' If Skin_Loader.prepgleft.BackgroundImage Is Nothing Then Else Skin_Loader.prepgleft.BackgroundImage.Dispose() + ' If Skin_Loader.prepgright.BackgroundImage Is Nothing Then Else Skin_Loader.prepgright.BackgroundImage.Dispose() + ' If Skin_Loader.prepgbottom.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottom.BackgroundImage.Dispose() + ' If Skin_Loader.prepgbottomrcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomrcorner.BackgroundImage.Dispose() + ' If Skin_Loader.prepgbottomlcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomlcorner.BackgroundImage.Dispose() + ' If Skin_Loader.prepnlpanelbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbutton.BackgroundImage.Dispose() + ' If Skin_Loader.preminimizebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preminimizebutton.BackgroundImage.Dispose() + + Skin_Loader.preclosebutton.BackgroundImage = Nothing + Skin_Loader.pretitlebar.BackgroundImage = Nothing + Skin_Loader.pnldesktoppreview.BackgroundImage = Nothing + Skin_Loader.prerollupbutton.BackgroundImage = Nothing + Skin_Loader.prepgtoprcorner.BackgroundImage = Nothing + Skin_Loader.prepgtoplcorner.BackgroundImage = Nothing + Skin_Loader.predesktoppanel.BackgroundImage = Nothing + Skin_Loader.prepnlpanelbuttonholder.BackgroundImage = Nothing + Skin_Loader.pretimepanel.BackgroundImage = Nothing + Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage = Nothing + Skin_Loader.prepgleft.BackgroundImage = Nothing + Skin_Loader.prepgright.BackgroundImage = Nothing + Skin_Loader.prepgbottom.BackgroundImage = Nothing + Skin_Loader.prepgbottomrcorner.BackgroundImage = Nothing + Skin_Loader.prepgbottomlcorner.BackgroundImage = Nothing + Skin_Loader.prepnlpanelbutton.BackgroundImage = Nothing + Skin_Loader.preminimizebutton.BackgroundImage = Nothing + 'End If + + 'If Shifter.preclosebutton.BackgroundImage Is Nothing Then Else Shifter.preclosebutton.BackgroundImage.Dispose() + 'If Shifter.pretitlebar.BackgroundImage Is Nothing Then Else Shifter.pretitlebar.BackgroundImage.Dispose() + 'If Shifter.pnldesktoppreview.BackgroundImage Is Nothing Then Else Shifter.pnldesktoppreview.BackgroundImage.Dispose() + 'If Shifter.prerollupbutton.BackgroundImage Is Nothing Then Else Shifter.prerollupbutton.BackgroundImage.Dispose() + 'If Shifter.prepgtoprcorner.BackgroundImage Is Nothing Then Else Shifter.prepgtoprcorner.BackgroundImage.Dispose() + 'If Shifter.prepgtoplcorner.BackgroundImage Is Nothing Then Else Shifter.prepgtoplcorner.BackgroundImage.Dispose() + 'If Shifter.predesktoppanel.BackgroundImage Is Nothing Then Else Shifter.predesktoppanel.BackgroundImage.Dispose() + 'If Shifter.prepnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Shifter.prepnlpanelbuttonholder.BackgroundImage.Dispose() + 'If Shifter.pretimepanel.BackgroundImage Is Nothing Then Else Shifter.pretimepanel.BackgroundImage.Dispose() + 'If Shifter.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Shifter.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() + 'If Shifter.prepgleft.BackgroundImage Is Nothing Then Else Shifter.prepgleft.BackgroundImage.Dispose() + 'If Shifter.prepgright.BackgroundImage Is Nothing Then Else Shifter.prepgright.BackgroundImage.Dispose() + 'If Shifter.prepgbottom.BackgroundImage Is Nothing Then Else Shifter.prepgbottom.BackgroundImage.Dispose() + 'If Shifter.prepgbottomrcorner.BackgroundImage Is Nothing Then Else Shifter.prepgbottomrcorner.BackgroundImage.Dispose() + 'If Shifter.prepgbottomlcorner.BackgroundImage Is Nothing Then Else Shifter.prepgbottomlcorner.BackgroundImage.Dispose() + 'If Shifter.prepnlpanelbutton.BackgroundImage Is Nothing Then Else Shifter.prepnlpanelbutton.BackgroundImage.Dispose() + 'If Shifter.preminimizebutton.BackgroundImage Is Nothing Then Else Shifter.preminimizebutton.BackgroundImage.Dispose() + + Shifter.preclosebutton.BackgroundImage = Nothing + Shifter.pretitlebar.BackgroundImage = Nothing + Shifter.pnldesktoppreview.BackgroundImage = Nothing + Shifter.prerollupbutton.BackgroundImage = Nothing + Shifter.prepgtoprcorner.BackgroundImage = Nothing + Shifter.prepgtoplcorner.BackgroundImage = Nothing + Shifter.predesktoppanel.BackgroundImage = Nothing + Shifter.prepnlpanelbuttonholder.BackgroundImage = Nothing + Shifter.pretimepanel.BackgroundImage = Nothing + Shifter.ApplicationsToolStripMenuItem.BackgroundImage = Nothing + Shifter.prepgleft.BackgroundImage = Nothing + Shifter.prepgright.BackgroundImage = Nothing + Shifter.prepgbottom.BackgroundImage = Nothing + Shifter.prepgbottomrcorner.BackgroundImage = Nothing + Shifter.prepgbottomlcorner.BackgroundImage = Nothing + Shifter.prepnlpanelbutton.BackgroundImage = Nothing + Shifter.preminimizebutton.BackgroundImage = Nothing + + ''prevent shifter red x images appearing + If Shifter.titlebar.BackgroundImage Is Nothing Then Else Shifter.titlebar.BackgroundImage.Dispose() : Shifter.titlebar.BackgroundImage = Nothing + If Shifter.pgtoplcorner.BackgroundImage Is Nothing Then Else Shifter.pgtoplcorner.BackgroundImage.Dispose() : Shifter.pgtoplcorner.BackgroundImage = Nothing + If Shifter.pgtoprcorner.BackgroundImage Is Nothing Then Else Shifter.pgtoprcorner.BackgroundImage.Dispose() : Shifter.pgtoprcorner.BackgroundImage = Nothing + If Shifter.closebutton.BackgroundImage Is Nothing Then Else Shifter.closebutton.BackgroundImage.Dispose() : Shifter.closebutton.BackgroundImage = Nothing + If Shifter.minimizebutton.BackgroundImage Is Nothing Then Else Shifter.minimizebutton.BackgroundImage.Dispose() : Shifter.minimizebutton.BackgroundImage = Nothing + If Shifter.rollupbutton.BackgroundImage Is Nothing Then Else Shifter.rollupbutton.BackgroundImage.Dispose() : Shifter.rollupbutton.BackgroundImage = Nothing + + 'If Clock.Visible = True Then + ' If Clock.titlebar.BackgroundImage Is Nothing Then Else Clock.titlebar.BackgroundImage.Dispose() + ' Clock.titlebar.BackgroundImage = Nothing + 'End If + + 'If Me.BackgroundImage Is Nothing Then Else Me.BackgroundImage.Dispose() + 'If Me.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Me.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonholder.BackgroundImage.Dispose() + 'If Me.desktoppanel.BackgroundImage Is Nothing Then Else Me.desktoppanel.BackgroundImage.Dispose() + 'If Me.timepanel.BackgroundImage Is Nothing Then Else Me.timepanel.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonclock.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonclock.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonskinloader.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinloader.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonfileskimmer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileskimmer.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonfileopener.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfileopener.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoninfobox.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoninfobox.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonknowledgeinput.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonknowledgeinput.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoncolourpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncolourpicker.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonshiftorium.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshiftorium.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonfilesaver.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonfilesaver.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonshifter.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonpong.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonpong.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonterminal.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonterminal.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttontextpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttontextpad.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttongraphicpicker.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttongraphicpicker.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonartpad.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonartpad.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoncalculator.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoncalculator.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonaudioplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonaudioplayer.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonwebbrowser.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonwebbrowser.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonvideoplayer.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonvideoplayer.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonnamechanger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonnamechanger.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttoniconmanager.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttoniconmanager.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonbitnotewallet.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotewallet.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonbitnotedigger.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonbitnotedigger.BackgroundImage.Dispose() + 'If Me.pnlpanelbuttonskinshifter.BackgroundImage Is Nothing Then Else Me.pnlpanelbuttonskinshifter.BackgroundImage.Dispose() + 'If Me.tbclockicon.BackgroundImage Is Nothing Then Else Me.tbclockicon.BackgroundImage.Dispose() + 'If Me.tbskinloadericon.BackgroundImage Is Nothing Then Else Me.tbskinloadericon.BackgroundImage.Dispose() + 'If Me.tbfileskimmericon.BackgroundImage Is Nothing Then Else Me.tbfileskimmericon.BackgroundImage.Dispose() + 'If Me.tbfileopenericon.BackgroundImage Is Nothing Then Else Me.tbfileopenericon.BackgroundImage.Dispose() + 'If Me.tbinfoboxicon.BackgroundImage Is Nothing Then Else Me.tbinfoboxicon.BackgroundImage.Dispose() + 'If Me.tbknowledgeinputicon.BackgroundImage Is Nothing Then Else Me.tbknowledgeinputicon.BackgroundImage.Dispose() + 'If Me.tbcolourpickericon.BackgroundImage Is Nothing Then Else Me.tbcolourpickericon.BackgroundImage.Dispose() + 'If Me.tbshiftoriumicon.BackgroundImage Is Nothing Then Else Me.tbshiftoriumicon.BackgroundImage.Dispose() + 'If Me.tbfilesavericon.BackgroundImage Is Nothing Then Else Me.tbfilesavericon.BackgroundImage.Dispose() + 'If Me.tbshiftericon.BackgroundImage Is Nothing Then Else Me.tbshiftericon.BackgroundImage.Dispose() + 'If Me.tbpongicon.BackgroundImage Is Nothing Then Else Me.tbpongicon.BackgroundImage.Dispose() + 'If Me.tbterminalicon.BackgroundImage Is Nothing Then Else Me.tbterminalicon.BackgroundImage.Dispose() + 'If Me.tbtextpadicon.BackgroundImage Is Nothing Then Else Me.tbtextpadicon.BackgroundImage.Dispose() + 'If Me.tbgraphicpickericon.BackgroundImage Is Nothing Then Else Me.tbgraphicpickericon.BackgroundImage.Dispose() + 'If Me.tbartpadicon.BackgroundImage Is Nothing Then Else Me.tbartpadicon.BackgroundImage.Dispose() + 'If Me.tbcalculatoricon.BackgroundImage Is Nothing Then Else Me.tbcalculatoricon.BackgroundImage.Dispose() + 'If Me.tbaudioplayericon.BackgroundImage Is Nothing Then Else Me.tbaudioplayericon.BackgroundImage.Dispose() + 'If Me.tbwebbrowsericon.BackgroundImage Is Nothing Then Else Me.tbwebbrowsericon.BackgroundImage.Dispose() + 'If Me.tbvideoplayericon.BackgroundImage Is Nothing Then Else Me.tbvideoplayericon.BackgroundImage.Dispose() + 'If Me.tbnamechangericon.BackgroundImage Is Nothing Then Else Me.tbnamechangericon.BackgroundImage.Dispose() + 'If Me.tbiconmanagericon.BackgroundImage Is Nothing Then Else Me.tbiconmanagericon.BackgroundImage.Dispose() + 'If Me.tbbitnotewalleticon.BackgroundImage Is Nothing Then Else Me.tbbitnotewalleticon.BackgroundImage.Dispose() + 'If Me.tbbitnotediggericon.BackgroundImage Is Nothing Then Else Me.tbbitnotediggericon.BackgroundImage.Dispose() + 'If Me.tbskinshiftericon.BackgroundImage Is Nothing Then Else Me.tbskinshiftericon.BackgroundImage.Dispose() + + Me.BackgroundImage = Nothing + Me.ApplicationsToolStripMenuItem.BackgroundImage = Nothing + Me.pnlpanelbuttonholder.BackgroundImage = Nothing + Me.desktoppanel.BackgroundImage = Nothing + Me.timepanel.BackgroundImage = Nothing + Me.pnlpanelbuttonclock.BackgroundImage = Nothing + Me.pnlpanelbuttonskinloader.BackgroundImage = Nothing + Me.pnlpanelbuttonfileskimmer.BackgroundImage = Nothing + Me.pnlpanelbuttonfileopener.BackgroundImage = Nothing + Me.pnlpanelbuttoninfobox.BackgroundImage = Nothing + Me.pnlpanelbuttonknowledgeinput.BackgroundImage = Nothing + Me.pnlpanelbuttoncolourpicker.BackgroundImage = Nothing + Me.pnlpanelbuttonshiftorium.BackgroundImage = Nothing + Me.pnlpanelbuttonfilesaver.BackgroundImage = Nothing + Me.pnlpanelbuttonshifter.BackgroundImage = Nothing + Me.pnlpanelbuttonpong.BackgroundImage = Nothing + Me.pnlpanelbuttonterminal.BackgroundImage = Nothing + Me.pnlpanelbuttontextpad.BackgroundImage = Nothing + Me.pnlpanelbuttongraphicpicker.BackgroundImage = Nothing + Me.pnlpanelbuttonartpad.BackgroundImage = Nothing + Me.pnlpanelbuttoncalculator.BackgroundImage = Nothing + Me.pnlpanelbuttonaudioplayer.BackgroundImage = Nothing + Me.pnlpanelbuttonwebbrowser.BackgroundImage = Nothing + Me.pnlpanelbuttonvideoplayer.BackgroundImage = Nothing + Me.pnlpanelbuttonnamechanger.BackgroundImage = Nothing + Me.pnlpanelbuttoniconmanager.BackgroundImage = Nothing + Me.pnlpanelbuttonbitnotewallet.BackgroundImage = Nothing + Me.pnlpanelbuttonbitnotedigger.BackgroundImage = Nothing + Me.pnlpanelbuttonskinshifter.BackgroundImage = Nothing + Me.pnlpanelbuttonshiftnet.BackgroundImage = Nothing + Me.pnlpanelbuttondownloader.BackgroundImage = Nothing + Me.tbclockicon.BackgroundImage = Nothing + Me.tbskinloadericon.BackgroundImage = Nothing + Me.tbfileskimmericon.BackgroundImage = Nothing + Me.tbfileopenericon.BackgroundImage = Nothing + Me.tbinfoboxicon.BackgroundImage = Nothing + Me.tbknowledgeinputicon.BackgroundImage = Nothing + Me.tbcolourpickericon.BackgroundImage = Nothing + Me.tbshiftoriumicon.BackgroundImage = Nothing + Me.tbfilesavericon.BackgroundImage = Nothing + Me.tbshiftericon.BackgroundImage = Nothing + Me.tbpongicon.BackgroundImage = Nothing + Me.tbterminalicon.BackgroundImage = Nothing + Me.tbtextpadicon.BackgroundImage = Nothing + Me.tbgraphicpickericon.BackgroundImage = Nothing + Me.tbartpadicon.BackgroundImage = Nothing + Me.tbcalculatoricon.BackgroundImage = Nothing + Me.tbaudioplayericon.BackgroundImage = Nothing + Me.tbwebbrowsericon.BackgroundImage = Nothing + Me.tbvideoplayericon.BackgroundImage = Nothing + Me.tbnamechangericon.BackgroundImage = Nothing + Me.tbiconmanagericon.BackgroundImage = Nothing + Me.tbbitnotewalleticon.BackgroundImage = Nothing + Me.tbbitnotediggericon.BackgroundImage = Nothing + Me.tbskinshiftericon.BackgroundImage = Nothing + Me.tbshiftneticon.BackgroundImage = Nothing + Me.tbdownloadericon.BackgroundImage = Nothing + + GC.Collect() + + While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") + Try + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Current\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", FileIO.DeleteDirectoryOption.DeleteAllContents) + Catch ex As Exception + End Try + End While + My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Current\") + + Case "skinloaderemovepreview" + shortdisposecode(Skin_Loader.skinloaderskinclosebutton, Me.skinclosebutton, Shifter.skinclosebutton, False) + shortdisposecode(Skin_Loader.skinloaderskintitlebar, Me.skintitlebar, Shifter.shifterskintitlebar, False) + shortdisposecode(Skin_Loader.skinloaderskindesktopbackground, Me.skindesktopbackground, Shifter.skindesktopbackground, False) + shortdisposecode(Skin_Loader.skinloaderskinrollupbutton, Me.skinrollupbutton, Shifter.skinrollupbutton, False) + shortdisposecode(Skin_Loader.skinloaderskintitlebarrightcorner, Me.skintitlebarrightcorner, Shifter.skintitlebarrightcorner, False) + shortdisposecode(Skin_Loader.skinloaderskintitlebarleftcorner, Me.skintitlebarleftcorner, Shifter.skintitlebarleftcorner, False) + shortdisposecode(Skin_Loader.skinloaderskindesktoppanel, Me.skindesktoppanel, Shifter.skindesktoppanel, False) + shortdisposecode(Skin_Loader.skinloaderskindesktoppaneltime, Me.skindesktoppaneltime, Shifter.skindesktoppaneltime, False) + shortdisposecode(Skin_Loader.skinloaderskinapplauncherbutton, Me.skinapplauncherbutton, Shifter.skinapplauncherbutton, False) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderleft, Me.skinwindowborderleft, Shifter.skinwindowborderleft, False) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderright, Me.skinwindowborderright, Shifter.skinwindowborderright, False) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottom, Me.skinwindowborderbottom, Shifter.skinwindowborderbottom, False) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomright, Me.skinwindowborderbottomright, Shifter.skinwindowborderbottomright, False) + shortdisposecode(Skin_Loader.skinloaderskinwindowborderbottomleft, Me.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft, False) + shortdisposecode(Skin_Loader.skinloaderskinpanelbutton, Me.skinpanelbutton, Shifter.skinpanelbutton, False) + shortdisposecode(Skin_Loader.skinloaderskinminimizebutton, Me.skinminimizebutton, Shifter.skinminimizebutton, False) + + 'If Skin_Loader.preclosebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preclosebutton.BackgroundImage.Dispose() + 'If Skin_Loader.pretitlebar.BackgroundImage Is Nothing Then Else Skin_Loader.pretitlebar.BackgroundImage.Dispose() + 'If Skin_Loader.pnldesktoppreview.BackgroundImage Is Nothing Then Else Skin_Loader.pnldesktoppreview.BackgroundImage.Dispose() + 'If Skin_Loader.prerollupbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prerollupbutton.BackgroundImage.Dispose() + 'If Skin_Loader.prepgtoprcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoprcorner.BackgroundImage.Dispose() + 'If Skin_Loader.prepgtoplcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgtoplcorner.BackgroundImage.Dispose() + 'If Skin_Loader.predesktoppanel.BackgroundImage Is Nothing Then Else Skin_Loader.predesktoppanel.BackgroundImage.Dispose() + 'If Skin_Loader.prepnlpanelbuttonholder.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbuttonholder.BackgroundImage.Dispose() + 'If Skin_Loader.pretimepanel.BackgroundImage Is Nothing Then Else Skin_Loader.pretimepanel.BackgroundImage.Dispose() + 'If Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then Else Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage.Dispose() + 'If Skin_Loader.prepgleft.BackgroundImage Is Nothing Then Else Skin_Loader.prepgleft.BackgroundImage.Dispose() + 'If Skin_Loader.prepgright.BackgroundImage Is Nothing Then Else Skin_Loader.prepgright.BackgroundImage.Dispose() + 'If Skin_Loader.prepgbottom.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottom.BackgroundImage.Dispose() + 'If Skin_Loader.prepgbottomrcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomrcorner.BackgroundImage.Dispose() + 'If Skin_Loader.prepgbottomlcorner.BackgroundImage Is Nothing Then Else Skin_Loader.prepgbottomlcorner.BackgroundImage.Dispose() + 'If Skin_Loader.prepnlpanelbutton.BackgroundImage Is Nothing Then Else Skin_Loader.prepnlpanelbutton.BackgroundImage.Dispose() + 'If Skin_Loader.preminimizebutton.BackgroundImage Is Nothing Then Else Skin_Loader.preminimizebutton.BackgroundImage.Dispose() + + Skin_Loader.preclosebutton.BackgroundImage = Nothing + Skin_Loader.pretitlebar.BackgroundImage = Nothing + Skin_Loader.pnldesktoppreview.BackgroundImage = Nothing + Skin_Loader.prerollupbutton.BackgroundImage = Nothing + Skin_Loader.prepgtoprcorner.BackgroundImage = Nothing + Skin_Loader.prepgtoplcorner.BackgroundImage = Nothing + Skin_Loader.predesktoppanel.BackgroundImage = Nothing + Skin_Loader.prepnlpanelbuttonholder.BackgroundImage = Nothing + Skin_Loader.pretimepanel.BackgroundImage = Nothing + Skin_Loader.ApplicationsToolStripMenuItem.BackgroundImage = Nothing + Skin_Loader.prepgleft.BackgroundImage = Nothing + Skin_Loader.prepgright.BackgroundImage = Nothing + Skin_Loader.prepgbottom.BackgroundImage = Nothing + Skin_Loader.prepgbottomrcorner.BackgroundImage = Nothing + Skin_Loader.prepgbottomlcorner.BackgroundImage = Nothing + Skin_Loader.prepnlpanelbutton.BackgroundImage = Nothing + Skin_Loader.preminimizebutton.BackgroundImage = Nothing + + For i = 0 To 50 + Skin_Loader.skinloaderskinimages(i) = "" + Next + + GC.Collect() + + While My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") + Try + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents) + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End While + My.Computer.FileSystem.CreateDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\") + End Select + + End Sub + + Private Sub shortdisposecode(ByVal skinloadervarible As Array, ByVal shiftosdesktopvarible As Array, ByVal shiftervarible As Array, ByVal includedesktop As Boolean) + If includedesktop = True Then + If shiftosdesktopvarible(0) Is Nothing Then Else shiftosdesktopvarible(0).Dispose() + If shiftosdesktopvarible(1) Is Nothing Then Else shiftosdesktopvarible(1).Dispose() + If shiftosdesktopvarible(2) Is Nothing Then Else shiftosdesktopvarible(2).Dispose() + shiftosdesktopvarible(0) = Nothing + shiftosdesktopvarible(1) = Nothing + shiftosdesktopvarible(2) = Nothing + End If + If Shifter.Visible Then + If shiftervarible(0) Is Nothing Then Else shiftervarible(0).Dispose() + If shiftervarible(1) Is Nothing Then Else shiftervarible(1).Dispose() + If shiftervarible(2) Is Nothing Then Else shiftervarible(2).Dispose() + shiftervarible(0) = Nothing + shiftervarible(1) = Nothing + shiftervarible(2) = Nothing + End If + If Skin_Loader.Visible Then + If skinloadervarible(0) Is Nothing Then Else skinloadervarible(0).Dispose() + If skinloadervarible(1) Is Nothing Then Else skinloadervarible(1).Dispose() + If skinloadervarible(2) Is Nothing Then Else skinloadervarible(2).Dispose() + skinloadervarible(0) = Nothing + skinloadervarible(1) = Nothing + skinloadervarible(2) = Nothing + End If + End Sub + + Public Sub setupdesktop() + + If unitymode = False Then + Me.BackColor = desktopbackgroundcolour + If skindesktopbackground(0) Is Nothing Then Me.BackgroundImage = Nothing Else Me.BackgroundImage = skindesktopbackground(0) + Me.BackgroundImageLayout = skindesktopbackgroundstyle + Else + Me.BackColor = globaltransparencycolour + Me.BackgroundImage = Nothing + Me.TransparencyKey = globaltransparencycolour + End If + + shiftwindowsontop() + ToolStripManager.Renderer = New MyToolStripRenderer() + + If boughtdesktoppanel = True Then + If skindesktoppanel(0) Is Nothing Then + desktoppanel.BackColor = desktoppanelcolour + desktoppanel.BackgroundImage = Nothing + Else + desktoppanel.BackgroundImage = skindesktoppanel(0) + desktoppanel.BackgroundImageLayout = skindesktoppanelstyle + desktoppanel.BackColor = Color.Transparent + End If + + desktoppanel.Size = New Size(desktoppanel.Size.Width, desktoppanelheight) + Select Case desktoppanelposition + Case "Top" + desktoppanel.Dock = DockStyle.Top + desktopappmenu.Dock = DockStyle.Top + Case "Bottom" + desktoppanel.Dock = DockStyle.Bottom + desktopappmenu.Dock = DockStyle.Bottom + End Select + desktoppanel.Show() + Else + desktoppanel.Hide() + End If + + If boughtapplaunchermenu = True Then + + ApplicationsToolStripMenuItem.Font = New Font(applicationbuttontextfont, applicationbuttontextsize, applicationbuttontextstyle) + ApplicationsToolStripMenuItem.Text = applicationlaunchername + KnowledgeInputToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + ShiftoriumToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + ClockToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + ShifterToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + TerminalToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + PongToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + FileSkimmerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + TextPadToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + SkinLoaderToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + ArtpadToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + CalculatorToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + AudioplayerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + WebBrowserToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + VideoplayerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + NameChangerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + IconManagerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + BitnoteWalletToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + BitnoteDiggerToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + SkinShifterToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + ShiftnetToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + ShutdownToolStripMenuItem.Font = New Font("Byington", 10, FontStyle.Bold) + desktopappmenu.ImageScalingSize = New Size(launchericonsize, launchericonsize) + KnowledgeInputToolStripMenuItem.Text = knowledgeinputname + ShiftoriumToolStripMenuItem.Text = shiftoriumname + ClockToolStripMenuItem.Text = clockname + ShifterToolStripMenuItem.Text = shiftername + TerminalToolStripMenuItem.Text = terminalname + PongToolStripMenuItem.Text = pongname + FileSkimmerToolStripMenuItem.Text = fileskimmername + TextPadToolStripMenuItem.Text = textpadname + SkinLoaderToolStripMenuItem.Text = skinloadername + ArtpadToolStripMenuItem.Text = artpadname + CalculatorToolStripMenuItem.Text = calculatorname + AudioplayerToolStripMenuItem.Text = audioplayername + WebBrowserToolStripMenuItem.Text = webbrowsername + VideoplayerToolStripMenuItem.Text = videoplayername + NameChangerToolStripMenuItem.Text = namechangername + IconManagerToolStripMenuItem.Text = iconmanagername + BitnoteWalletToolStripMenuItem.Text = bitnotewalletname + BitnoteDiggerToolStripMenuItem.Text = bitnotediggername + SkinShifterToolStripMenuItem.Text = skinshiftername + ShiftnetToolStripMenuItem.Text = shiftnetname + KnowledgeInputToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ShiftoriumToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ClockToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ShiftoriumToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ShifterToolStripMenuItem.ForeColor = applicationsbuttontextcolour + TerminalToolStripMenuItem.ForeColor = applicationsbuttontextcolour + PongToolStripMenuItem.ForeColor = applicationsbuttontextcolour + FileSkimmerToolStripMenuItem.ForeColor = applicationsbuttontextcolour + TextPadToolStripMenuItem.ForeColor = applicationsbuttontextcolour + SkinLoaderToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ArtpadToolStripMenuItem.ForeColor = applicationsbuttontextcolour + CalculatorToolStripMenuItem.ForeColor = applicationsbuttontextcolour + AudioplayerToolStripMenuItem.ForeColor = applicationsbuttontextcolour + WebBrowserToolStripMenuItem.ForeColor = applicationsbuttontextcolour + VideoplayerToolStripMenuItem.ForeColor = applicationsbuttontextcolour + NameChangerToolStripMenuItem.ForeColor = applicationsbuttontextcolour + IconManagerToolStripMenuItem.ForeColor = applicationsbuttontextcolour + BitnoteWalletToolStripMenuItem.ForeColor = applicationsbuttontextcolour + BitnoteDiggerToolStripMenuItem.ForeColor = applicationsbuttontextcolour + SkinShifterToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ShiftnetToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ShutdownToolStripMenuItem.ForeColor = applicationsbuttontextcolour + applaunchermenuholder.Size = ApplicationsToolStripMenuItem.Size + ApplicationsToolStripMenuItem.ForeColor = applicationsbuttontextcolour + ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour + applaunchermenuholder.Height = applicationbuttonheight + desktopappmenu.Height = applicationbuttonheight + ApplicationsToolStripMenuItem.Height = applicationbuttonheight + ApplicationsToolStripMenuItem.Visible = True + TerminalToolStripMenuItem.Visible = True + + applaunchermenuholder.Width = applaunchermenuholderwidth + desktopappmenu.Width = applaunchermenuholderwidth + ApplicationsToolStripMenuItem.Width = applaunchermenuholderwidth + + If skinapplauncherbutton(0) Is Nothing Then + ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour + ApplicationsToolStripMenuItem.BackgroundImage = Nothing + Else + ApplicationsToolStripMenuItem.BackColor = Color.Transparent + desktopappmenu.BackColor = Color.Transparent + ApplicationsToolStripMenuItem.BackgroundImage = skinapplauncherbutton(0) + ApplicationsToolStripMenuItem.Text = "" + End If + + Else + ApplicationsToolStripMenuItem.Visible = False + End If + + If boughtalclock = True Then + ClockToolStripMenuItem.Visible = True + If boughtclockicon = True Then + ClockToolStripMenuItem.Image = clockiconlauncher + End If + Else + ClockToolStripMenuItem.Visible = False + End If + + If boughtalknowledgeinput = True Then + KnowledgeInputToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + KnowledgeInputToolStripMenuItem.Image = knowledgeinputiconlauncher + End If + Else + KnowledgeInputToolStripMenuItem.Visible = False + End If + + If boughtalshiftorium = True Then + ShiftoriumToolStripMenuItem.Visible = True + If boughtshiftoriumicon = True Then + ShiftoriumToolStripMenuItem.Image = shiftoriumiconlauncher + End If + Else + ShiftoriumToolStripMenuItem.Visible = False + End If + + If boughtalshifter = True Then + ShifterToolStripMenuItem.Visible = True + If boughtshiftericon = True Then + ShifterToolStripMenuItem.Image = shiftericonlauncher + End If + Else + ShifterToolStripMenuItem.Visible = False + End If + + If boughtalpong = True Then + PongToolStripMenuItem.Visible = True + If boughtpongicon = True Then + PongToolStripMenuItem.Image = pongiconlauncher + End If + Else + PongToolStripMenuItem.Visible = False + End If + + If boughtalfileskimmer = True Then + FileSkimmerToolStripMenuItem.Visible = True + If boughtfileskimmericon = True Then + FileSkimmerToolStripMenuItem.Image = fileskimmericonlauncher + End If + Else + FileSkimmerToolStripMenuItem.Visible = False + End If + + If boughtaltextpad = True Then + TextPadToolStripMenuItem.Visible = True + If boughttextpadicon = True Then + TextPadToolStripMenuItem.Image = textpadiconlauncher + End If + Else + TextPadToolStripMenuItem.Visible = False + End If + + If boughtskinning = True Then + SkinLoaderToolStripMenuItem.Visible = True + SkinLoaderToolStripMenuItem.Image = skinloadericonlauncher + Else + SkinLoaderToolStripMenuItem.Visible = False + End If + + If boughtalartpad = True Then + ArtpadToolStripMenuItem.Visible = True + If boughtartpadicon = True Then + ArtpadToolStripMenuItem.Image = artpadiconlauncher + End If + Else + ArtpadToolStripMenuItem.Visible = False + End If + + If boughtcalculator = True Then + CalculatorToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + CalculatorToolStripMenuItem.Image = calculatoriconlauncher + End If + Else + CalculatorToolStripMenuItem.Visible = False + End If + + If boughtaudioplayer = True Then + AudioplayerToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + AudioplayerToolStripMenuItem.Image = audioplayericonlauncher + End If + Else + AudioplayerToolStripMenuItem.Visible = False + End If + + If boughtwebbrowser = True Then + WebBrowserToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + WebBrowserToolStripMenuItem.Image = webbrowsericonlauncher + End If + Else + WebBrowserToolStripMenuItem.Visible = False + End If + + If boughtvideoplayer = True Then + VideoplayerToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + VideoplayerToolStripMenuItem.Image = videoplayericonlauncher + End If + Else + VideoplayerToolStripMenuItem.Visible = False + End If + + If boughtnamechanger = True Then + NameChangerToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + NameChangerToolStripMenuItem.Image = namechangericonlauncher + End If + Else + NameChangerToolStripMenuItem.Visible = False + End If + + If boughticonmanager = True Then + IconManagerToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + IconManagerToolStripMenuItem.Image = iconmanagericonlauncher + End If + Else + IconManagerToolStripMenuItem.Visible = False + End If + + If boughtbitnotewallet = True Then + BitnoteWalletToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + BitnoteWalletToolStripMenuItem.Image = bitnotewalleticonlauncher + End If + Else + BitnoteWalletToolStripMenuItem.Visible = False + End If + + If boughtbitnotedigger = True Then + BitnoteDiggerToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + BitnoteDiggerToolStripMenuItem.Image = bitnotediggericonlauncher + End If + Else + BitnoteDiggerToolStripMenuItem.Visible = False + End If + + If boughtskinshifter = True Then + SkinShifterToolStripMenuItem.Visible = True + If boughtknowledgeinputicon = True Then + SkinShifterToolStripMenuItem.Image = skinshiftericonlauncher + End If + Else + SkinShifterToolStripMenuItem.Visible = False + End If + + If boughtshiftnet = True Then + SkinShifterToolStripMenuItem.Visible = True + If boughtshiftneticon = True Then + ShiftnetToolStripMenuItem.Image = shiftneticonlauncher + End If + Else + ShiftnetToolStripMenuItem.Visible = False + End If + + If boughtdesktoppanelclock = True Then + setclocktime() + paneltimetext.ForeColor = clocktextcolour + + If skindesktoppaneltime(0) Is Nothing Then + timepanel.BackColor = clockbackgroundcolor + timepanel.BackgroundImage = Nothing + Else + timepanel.BackColor = Color.Transparent + timepanel.BackgroundImage = skindesktoppaneltime(0) + timepanel.BackgroundImageLayout = skindesktoppaneltimestyle + End If + paneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle) + timepanel.Size = New Size(paneltimetext.Width + 3, timepanel.Height) + paneltimetext.Location = New Point(0, panelclocktexttop) + timepanel.Show() + Else + timepanel.Hide() + End If + + If boughtapplaunchershutdown = True Then + ShutdownToolStripMenuItem.Visible = True + ToolStripSeparator1.Visible = True + If boughtshutdownicon = True Then + ShutdownToolStripMenuItem.Image = shutdowniconlauncher + End If + Else + ShutdownToolStripMenuItem.Visible = False + ToolStripSeparator1.Visible = False + End If + + If boughtterminalicon = True Then + TerminalToolStripMenuItem.Image = terminaliconlauncher + End If + + If boughttitlebar = False Then + titlebarheight = 0 + End If + + If boughtwindowborders = False Then + windowbordersize = 0 + End If + + setuppanelbuttons() + + End Sub + + Public Sub setuppanelbuttons() + If boughtpanelbuttons Then + If Knowledge_Input.Visible Then pnlpanelbuttonknowledgeinput.Show() Else pnlpanelbuttonknowledgeinput.Hide() + If Shiftorium.Visible Then pnlpanelbuttonshiftorium.Show() Else pnlpanelbuttonshiftorium.Hide() + If Clock.Visible Then pnlpanelbuttonclock.Show() Else pnlpanelbuttonclock.Hide() + If Shifter.Visible Then pnlpanelbuttonshifter.Show() Else pnlpanelbuttonshifter.Hide() + If Colour_Picker.Visible Then pnlpanelbuttoncolourpicker.Show() Else pnlpanelbuttoncolourpicker.Hide() + If infobox.Visible Then pnlpanelbuttoninfobox.Show() Else pnlpanelbuttoninfobox.Hide() + If Pong.Visible Then pnlpanelbuttonpong.Show() Else pnlpanelbuttonpong.Hide() + If File_Skimmer.Visible Then pnlpanelbuttonfileskimmer.Show() Else pnlpanelbuttonfileskimmer.Hide() + If File_Opener.Visible Then pnlpanelbuttonfileopener.Show() Else pnlpanelbuttonfileopener.Hide() + If File_Saver.Visible Then pnlpanelbuttonfilesaver.Show() Else pnlpanelbuttonfilesaver.Hide() + If TextPad.Visible Then pnlpanelbuttontextpad.Show() Else pnlpanelbuttontextpad.Hide() + If Graphic_Picker.Visible Then pnlpanelbuttongraphicpicker.Show() Else pnlpanelbuttongraphicpicker.Hide() + If Skin_Loader.Visible Then pnlpanelbuttonskinloader.Show() Else pnlpanelbuttonskinloader.Hide() + If ArtPad.Visible Then pnlpanelbuttonartpad.Show() Else pnlpanelbuttonartpad.Hide() + If Calculator.Visible Then pnlpanelbuttoncalculator.Show() Else pnlpanelbuttoncalculator.Hide() + If Audio_Player.Visible Then pnlpanelbuttonaudioplayer.Show() Else pnlpanelbuttonaudioplayer.Hide() + If Web_Browser.Visible Then pnlpanelbuttonwebbrowser.Show() Else pnlpanelbuttonwebbrowser.Hide() + If Video_Player.Visible Then pnlpanelbuttonvideoplayer.Show() Else pnlpanelbuttonvideoplayer.Hide() + If Name_Changer.Visible Then pnlpanelbuttonnamechanger.Show() Else pnlpanelbuttonnamechanger.Hide() + If Icon_Manager.Visible Then pnlpanelbuttoniconmanager.Show() Else pnlpanelbuttoniconmanager.Hide() + If Bitnote_Wallet.Visible Then pnlpanelbuttonbitnotewallet.Show() Else pnlpanelbuttonbitnotewallet.Hide() + If Bitnote_Digger.Visible Then pnlpanelbuttonbitnotedigger.Show() Else pnlpanelbuttonbitnotedigger.Hide() + If Skinshifter.Visible Then pnlpanelbuttonskinshifter.Show() Else pnlpanelbuttonskinshifter.Hide() + If Shiftnet.Visible Then pnlpanelbuttonshiftnet.Show() Else pnlpanelbuttonshiftnet.Hide() + If Downloader.Visible Then pnlpanelbuttondownloader.Show() Else pnlpanelbuttondownloader.Hide() + If Terminal.Visible Then pnlpanelbuttonterminal.Show() Else pnlpanelbuttonterminal.Hide() + + tbknowledgeinputicon.Image = knowledgeinputiconpanelbutton.Clone + + tbknowledgeinputtext.Text = knowledgeinputname + tbshiftoriumtext.Text = shiftoriumname + tbclocktext.Text = clockname + tbshiftertext.Text = shiftername + tbcolourpickertext.Text = colourpickername + tbpongtext.Text = pongname + tbfileskimmertext.Text = fileskimmername + tbfileopenertext.Text = fileopenername + tbfilesavertext.Text = filesavername + tbtextpadtext.Text = textpadname + tbgraphicpickertext.Text = graphicpickername + tbskinloadertext.Text = skinloadername + tbartpadtext.Text = artpadname + tbcalculatortext.Text = calculatorname + tbaudioplayertext.Text = audioplayername + tbwebbrowsertext.Text = webbrowsername + tbvideoplayertext.Text = videoplayername + tbnamechangertext.Text = namechangername + tbiconmanagertext.Text = iconmanagername + tbbitnotewallettext.Text = bitnotewalletname + tbbitnotediggertext.Text = bitnotediggername + tbskinshiftertext.Text = skinshiftername + tbshiftnettext.Text = shiftnetname + tbdownloadertext.Text = downloadername + tbterminaltext.Text = terminalname + + pnlpanelbuttonknowledgeinput.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonshiftorium.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonclock.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonshifter.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttoncolourpicker.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttoninfobox.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonpong.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonfileskimmer.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonfileopener.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonfilesaver.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttontextpad.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttongraphicpicker.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonskinloader.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonartpad.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttoncalculator.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonaudioplayer.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonwebbrowser.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonvideoplayer.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonnamechanger.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttoniconmanager.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonbitnotewallet.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonbitnotedigger.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonskinshifter.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonshiftnet.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttondownloader.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + pnlpanelbuttonterminal.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + + setpanelbuttonappearnce(pnlpanelbuttonknowledgeinput, tbknowledgeinputicon, tbknowledgeinputtext, False) + setpanelbuttonappearnce(pnlpanelbuttonshiftorium, tbshiftoriumicon, tbshiftoriumtext, False) + setpanelbuttonappearnce(pnlpanelbuttonclock, tbclockicon, tbclocktext, False) + setpanelbuttonappearnce(pnlpanelbuttonshifter, tbshiftericon, tbshiftertext, False) + setpanelbuttonappearnce(pnlpanelbuttoncolourpicker, tbcolourpickericon, tbcolourpickertext, False) + setpanelbuttonappearnce(pnlpanelbuttoninfobox, tbinfoboxicon, tbinfoboxtext, False) + setpanelbuttonappearnce(pnlpanelbuttonpong, tbpongicon, tbpongtext, False) + setpanelbuttonappearnce(pnlpanelbuttonfileskimmer, tbfileskimmericon, tbfileskimmertext, False) + setpanelbuttonappearnce(pnlpanelbuttonfileopener, tbfileopenericon, tbfileopenertext, False) + setpanelbuttonappearnce(pnlpanelbuttonfilesaver, tbfilesavericon, tbfilesavertext, False) + setpanelbuttonappearnce(pnlpanelbuttontextpad, tbtextpadicon, tbtextpadtext, False) + setpanelbuttonappearnce(pnlpanelbuttongraphicpicker, tbgraphicpickericon, tbgraphicpickertext, False) + setpanelbuttonappearnce(pnlpanelbuttonskinloader, tbskinloadericon, tbskinloadertext, False) + setpanelbuttonappearnce(pnlpanelbuttonartpad, tbartpadicon, tbartpadtext, False) + setpanelbuttonappearnce(pnlpanelbuttoncalculator, tbcalculatoricon, tbcalculatortext, False) + setpanelbuttonappearnce(pnlpanelbuttonaudioplayer, tbaudioplayericon, tbaudioplayertext, False) + setpanelbuttonappearnce(pnlpanelbuttonwebbrowser, tbwebbrowsericon, tbwebbrowsertext, False) + setpanelbuttonappearnce(pnlpanelbuttonvideoplayer, tbvideoplayericon, tbvideoplayertext, False) + setpanelbuttonappearnce(pnlpanelbuttonnamechanger, tbnamechangericon, tbnamechangertext, False) + setpanelbuttonappearnce(pnlpanelbuttoniconmanager, tbiconmanagericon, tbiconmanagertext, False) + setpanelbuttonappearnce(pnlpanelbuttonbitnotewallet, tbbitnotewalleticon, tbbitnotewallettext, False) + setpanelbuttonappearnce(pnlpanelbuttonbitnotedigger, tbbitnotediggericon, tbbitnotediggertext, False) + setpanelbuttonappearnce(pnlpanelbuttonskinshifter, tbskinshiftericon, tbskinshiftertext, False) + setpanelbuttonappearnce(pnlpanelbuttonshiftnet, tbshiftneticon, tbshiftnettext, False) + setpanelbuttonappearnce(pnlpanelbuttondownloader, tbdownloadericon, tbdownloadertext, False) + setpanelbuttonappearnce(pnlpanelbuttonterminal, tbterminalicon, tbterminaltext, False) + + setuppanelbuttonicons(tbknowledgeinputicon, knowledgeinputiconpanelbutton) + setuppanelbuttonicons(tbshiftoriumicon, shiftoriumiconpanelbutton) + setuppanelbuttonicons(tbclockicon, clockiconpanelbutton) + setuppanelbuttonicons(tbshiftericon, shiftericonpanelbutton) + setuppanelbuttonicons(tbcolourpickericon, colourpickericonpanelbutton) + setuppanelbuttonicons(tbinfoboxicon, infoboxiconpanelbutton) + setuppanelbuttonicons(tbpongicon, pongiconpanelbutton) + setuppanelbuttonicons(tbfileskimmericon, fileskimmericonpanelbutton) + setuppanelbuttonicons(tbfileopenericon, fileopenericonpanelbutton) + setuppanelbuttonicons(tbfilesavericon, filesavericonpanelbutton) + setuppanelbuttonicons(tbtextpadicon, textpadiconpanelbutton) + setuppanelbuttonicons(tbgraphicpickericon, graphicpickericonpanelbutton) + setuppanelbuttonicons(tbskinloadericon, skinloadericonpanelbutton) + setuppanelbuttonicons(tbartpadicon, artpadiconpanelbutton) + setuppanelbuttonicons(tbcalculatoricon, calculatoriconpanelbutton) + setuppanelbuttonicons(tbaudioplayericon, audioplayericonpanelbutton) + setuppanelbuttonicons(tbwebbrowsericon, webbrowsericonpanelbutton) + setuppanelbuttonicons(tbvideoplayericon, videoplayericonpanelbutton) + setuppanelbuttonicons(tbnamechangericon, namechangericonpanelbutton) + setuppanelbuttonicons(tbiconmanagericon, iconmanagericonpanelbutton) + setuppanelbuttonicons(tbbitnotewalleticon, bitnotewalleticonpanelbutton) + setuppanelbuttonicons(tbbitnotediggericon, bitnotediggericonpanelbutton) + setuppanelbuttonicons(tbskinshiftericon, skinshiftericonpanelbutton) + setuppanelbuttonicons(tbshiftneticon, shiftneticonpanelbutton) + setuppanelbuttonicons(tbdownloadericon, downloadericonpanelbutton) + setuppanelbuttonicons(tbterminalicon, terminaliconpanelbutton) + + pnlpanelbuttonholder.Padding = New Padding(panelbuttoninitialgap, 0, 0, 0) + End If + End Sub + + Public Sub setuppanelbuttonicons(ByVal tbicon As PictureBox, ByVal image As Image) + tbicon.Image = image + tbicon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize) + End Sub + + Public Sub setpanelbuttonappearnce(ByVal panelbutton As Panel, ByVal icon As PictureBox, ByVal text As Label, ByVal sendback As Boolean) + If sendback = True Then panelbutton.SendToBack() + icon.Location = New Point(panelbuttoniconside, panelbuttonicontop) + icon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize) + panelbutton.Size = New Size(panelbuttonwidth, panelbuttonheight) + panelbutton.BackColor = panelbuttoncolour + panelbutton.BackgroundImage = skinpanelbutton(0) + If skinpanelbutton(0) Is Nothing Then Else panelbutton.BackColor = Color.Transparent + panelbutton.BackgroundImageLayout = skinpanelbuttonstyle + text.ForeColor = panelbuttontextcolour + text.Font = New Font(panelbuttontextfont, panelbuttontextsize, panelbuttontextstyle) + text.Location = New Point(panelbuttontextside, panelbuttontexttop) + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + If e.KeyCode = Keys.T AndAlso e.Control Then + Terminal.Show() + Terminal.BringToFront() + If terminalfullscreen = True Then Terminal.fullterminal() + End If + End Sub + + Public Sub closeeverything() + + If boughtmultitasking = False Then + 'Knowledge_Input.Close() + 'Shiftorium.Close() + 'Clock.Close() + 'Shifter.Close() + 'Colour_Picker.Close() + 'infobox.Close() + 'Pong.Close() + 'File_Skimmer.Close() + 'File_Opener.Close() + 'File_Saver.Close() + 'TextPad.Close() + 'Graphic_Picker.Close() + 'Skin_Loader.Close() + 'ArtPad.Close() + 'Calculator.Close() + 'Audio_Player.Close() + 'Web_Browser.Close() + 'Video_Player.Close() + 'Name_Changer.Close() + 'Icon_Manager.Close() + 'Bitnote_Wallet.Close() + 'Bitnote_Digger.Close() + 'Skinshifter.Close() + 'Shiftnet.Close() + 'Downloader.Close() + 'template.Close() + + For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray() + Select Case f.Name + Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter" + 'do nothing + Case Else + f.Close() + End Select + Next + + End If + + If forceclose = True Then + 'Knowledge_Input.Close() + 'Shiftorium.Close() + 'Clock.Close() + 'Shifter.Close() + 'Colour_Picker.Close() + 'infobox.Close() + 'Pong.Close() + 'File_Skimmer.Close() + 'TextPad.Close() + 'File_Opener.Close() + 'File_Saver.Close() + 'Graphic_Picker.Close() + 'Skin_Loader.Close() + 'ArtPad.Close() + 'Calculator.Close() + 'Audio_Player.Close() + 'Web_Browser.Close() + 'Video_Player.Close() + 'Name_Changer.Close() + 'Icon_Manager.Close() + 'Bitnote_Wallet.Close() + 'Bitnote_Digger.Close() + 'Skinshifter.Close() + 'Shiftnet.Close() + 'Downloader.Close() + 'template.Close() + + For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray() + Select Case f.Name + Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter" + 'do nothing + Case Else + f.Close() + End Select + Next + + End If + forceclose = False + End Sub + + Public Sub shutdownshiftos() + forceclose = True + closeeverything() + Terminal.txtterm.Text = Terminal.txtterm.Text & Environment.NewLine & "System Is Shutting Down..." & Environment.NewLine + log = log & My.Computer.Clock.LocalTime & " ShutDown ShiftOS with " & codepoints & " Code Points!" & Environment.NewLine + savegame() + Terminal.tmrshutdown.Start() + End Sub + + Public Sub addtitlebars() + + 'attempted future code to dramatically increase development time and simplify code + 'For Each f In My.Application.OpenForms.Cast(Of Form)().ToArray() + ' Select Case f.Name + ' Case "ShiftOSDesktop", "HijackScreen", "ShiftOS Save File Converter" + ' 'do nothing + ' Case Else + ' If f.Visible = True Then + ' f.titlebar.Show() + ' f.setuptitlebar() + ' f.Size = New Size(f.Width, f.Size.Height + f.titlebar.Height) + ' End If + ' End Select + 'Next + + If Knowledge_Input.Visible = True Then + Knowledge_Input.titlebar.Show() + Knowledge_Input.setuptitlebar() + Knowledge_Input.Size = New Size(Knowledge_Input.Width, Knowledge_Input.Size.Height + Knowledge_Input.titlebar.Height) + End If + + If Shiftorium.Visible = True Then + Shiftorium.titlebar.Show() + Shiftorium.setuptitlebar() + Shiftorium.Size = New Size(Shiftorium.Width, Shiftorium.Size.Height + Shiftorium.titlebar.Height) + End If + + If Clock.Visible = True Then + Clock.titlebar.Show() + Clock.setuptitlebar() + Clock.Size = New Size(Clock.Width, Clock.Size.Height + Clock.titlebar.Height) + End If + + If Shifter.Visible = True Then + Shifter.titlebar.Show() + Shifter.setuptitlebar() + Shifter.Size = New Size(Shifter.Width, Shifter.Size.Height + Shifter.titlebar.Height) + End If + + If Colour_Picker.Visible = True Then + Colour_Picker.titlebar.Show() + Colour_Picker.setuptitlebar() + Colour_Picker.Size = New Size(Colour_Picker.Width, Colour_Picker.Size.Height + Colour_Picker.titlebar.Height) + End If + + If infobox.Visible = True Then + infobox.titlebar.Show() + infobox.setuptitlebar() + infobox.Size = New Size(infobox.Width, infobox.Size.Height + infobox.titlebar.Height) + End If + + If Pong.Visible = True Then + Pong.titlebar.Show() + Pong.setuptitlebar() + Pong.Size = New Size(Pong.Width, Pong.Size.Height + Pong.titlebar.Height) + End If + + If File_Skimmer.Visible = True Then + File_Skimmer.titlebar.Show() + File_Skimmer.setuptitlebar() + File_Skimmer.Size = New Size(File_Skimmer.Width, File_Skimmer.Size.Height + File_Skimmer.titlebar.Height) + End If + + If TextPad.Visible = True Then + TextPad.titlebar.Show() + TextPad.setuptitlebar() + TextPad.Size = New Size(TextPad.Width, TextPad.Size.Height + TextPad.titlebar.Height) + End If + + If File_Opener.Visible = True Then + File_Opener.titlebar.Show() + File_Opener.setuptitlebar() + File_Opener.Size = New Size(File_Opener.Width, File_Opener.Size.Height + File_Opener.titlebar.Height) + End If + + If File_Saver.Visible = True Then + File_Saver.titlebar.Show() + File_Saver.setuptitlebar() + File_Saver.Size = New Size(File_Saver.Width, File_Saver.Size.Height + File_Saver.titlebar.Height) + End If + + If Graphic_Picker.Visible = True Then + Graphic_Picker.titlebar.Show() + Graphic_Picker.setuptitlebar() + Graphic_Picker.Size = New Size(Graphic_Picker.Width, Graphic_Picker.Size.Height + Graphic_Picker.titlebar.Height) + End If + + If Skin_Loader.Visible = True Then + Skin_Loader.titlebar.Show() + Skin_Loader.setuptitlebar() + Skin_Loader.Size = New Size(Skin_Loader.Width, Skin_Loader.Size.Height + Skin_Loader.titlebar.Height) + End If + + If ArtPad.Visible = True Then + ArtPad.titlebar.Show() + ArtPad.setuptitlebar() + ArtPad.Size = New Size(ArtPad.Width, ArtPad.Size.Height + ArtPad.titlebar.Height) + End If + + If Calculator.Visible = True Then + Calculator.titlebar.Show() + Calculator.setuptitlebar() + Calculator.Size = New Size(Calculator.Width, Calculator.Size.Height + Calculator.titlebar.Height) + End If + + If Audio_Player.Visible = True Then + Audio_Player.titlebar.Show() + Audio_Player.setuptitlebar() + Audio_Player.Size = New Size(Audio_Player.Width, Audio_Player.Size.Height + Audio_Player.titlebar.Height) + End If + + If Web_Browser.Visible = True Then + Web_Browser.titlebar.Show() + Web_Browser.setuptitlebar() + Web_Browser.Size = New Size(Web_Browser.Width, Web_Browser.Size.Height + Web_Browser.titlebar.Height) + End If + + If Name_Changer.Visible = True Then + Name_Changer.titlebar.Show() + Name_Changer.setuptitlebar() + Name_Changer.Size = New Size(Name_Changer.Width, Name_Changer.Size.Height + Name_Changer.titlebar.Height) + End If + + If Icon_Manager.Visible = True Then + Icon_Manager.titlebar.Show() + Icon_Manager.setuptitlebar() + Icon_Manager.Size = New Size(Icon_Manager.Width, Icon_Manager.Size.Height + Icon_Manager.titlebar.Height) + End If + + If Bitnote_Wallet.Visible = True Then + Bitnote_Wallet.titlebar.Show() + Bitnote_Wallet.setuptitlebar() + Bitnote_Wallet.Size = New Size(Bitnote_Wallet.Width, Bitnote_Wallet.Size.Height + Bitnote_Wallet.titlebar.Height) + End If + + If Bitnote_Digger.Visible = True Then + Bitnote_Digger.titlebar.Show() + Bitnote_Digger.setuptitlebar() + Bitnote_Digger.Size = New Size(Bitnote_Digger.Width, Bitnote_Digger.Size.Height + Bitnote_Digger.titlebar.Height) + End If + + If Skinshifter.Visible = True Then + Skinshifter.titlebar.Show() + Skinshifter.setuptitlebar() + Skinshifter.Size = New Size(Skinshifter.Width, Skinshifter.Size.Height + Skinshifter.titlebar.Height) + End If + + If Shiftnet.Visible = True Then + Shiftnet.titlebar.Show() + Shiftnet.setuptitlebar() + Shiftnet.Size = New Size(Shiftnet.Width, Shiftnet.Size.Height + Shiftnet.titlebar.Height) + End If + + If Downloader.Visible = True Then + Downloader.titlebar.Show() + Downloader.setuptitlebar() + Downloader.Size = New Size(Downloader.Width, Downloader.Size.Height + Downloader.titlebar.Height) + End If + + If template.Visible = True Then + template.titlebar.Show() + template.setuptitlebar() + template.Size = New Size(ArtPad.Width, ArtPad.Size.Height + ArtPad.titlebar.Height) + End If + + If terminalfullscreen = False Then + If Terminal.Visible = True Then + Terminal.titlebar.Show() + Terminal.setuptitlebar() + Terminal.Size = New Size(Terminal.Width, Terminal.Size.Height + Terminal.titlebar.Height) + End If + End If + End Sub + + Public Sub addborders() + Knowledge_Input.pgleft.Show() + Knowledge_Input.pgbottom.Show() + Knowledge_Input.pgright.Show() + Knowledge_Input.Size = New Size(Knowledge_Input.Width + Knowledge_Input.pgleft.Width + Knowledge_Input.pgright.Width, Knowledge_Input.Height + Knowledge_Input.pgbottom.Height) + If boughttitlebar = True Then Knowledge_Input.setuptitlebar() + + Shiftorium.pgleft.Show() + Shiftorium.pgbottom.Show() + Shiftorium.pgright.Show() + Shiftorium.Size = New Size(Shiftorium.Width + Shiftorium.pgleft.Width + Shiftorium.pgright.Width, Shiftorium.Height + Shiftorium.pgbottom.Height) + If boughttitlebar = True Then Shiftorium.setuptitlebar() + + Clock.pgleft.Show() + Clock.pgbottom.Show() + Clock.pgright.Show() + Clock.Size = New Size(Clock.Width + Clock.pgleft.Width + Clock.pgright.Width, Clock.Height + Clock.pgbottom.Height) + If boughttitlebar = True Then Clock.setuptitlebar() + + Shifter.pgleft.Show() + Shifter.pgbottom.Show() + Shifter.pgright.Show() + Shifter.Size = New Size(Shifter.Width + Shifter.pgleft.Width + Shifter.pgright.Width, Shifter.Height + Shifter.pgbottom.Height) + If boughttitlebar = True Then Shifter.setuptitlebar() + + Colour_Picker.pgleft.Show() + Colour_Picker.pgbottom.Show() + Colour_Picker.pgright.Show() + Colour_Picker.Size = New Size(Colour_Picker.Width + Colour_Picker.pgleft.Width + Colour_Picker.pgright.Width, Colour_Picker.Height + Colour_Picker.pgbottom.Height) + If boughttitlebar = True Then Colour_Picker.setuptitlebar() + + infobox.pgleft.Show() + infobox.pgbottom.Show() + infobox.pgright.Show() + infobox.Size = New Size(infobox.Width + infobox.pgleft.Width + infobox.pgright.Width, infobox.Height + infobox.pgbottom.Height) + If boughttitlebar = True Then infobox.setuptitlebar() + + Pong.pgleft.Show() + Pong.pgbottom.Show() + Pong.pgright.Show() + Pong.Size = New Size(Pong.Width + Pong.pgleft.Width + Pong.pgright.Width, Pong.Height + Pong.pgbottom.Height) + If boughttitlebar = True Then Pong.setuptitlebar() + + File_Skimmer.pgleft.Show() + File_Skimmer.pgbottom.Show() + File_Skimmer.pgright.Show() + File_Skimmer.Size = New Size(File_Skimmer.Width + File_Skimmer.pgleft.Width + File_Skimmer.pgright.Width, File_Skimmer.Height + File_Skimmer.pgbottom.Height) + If boughttitlebar = True Then File_Skimmer.setuptitlebar() + + TextPad.pgleft.Show() + TextPad.pgbottom.Show() + TextPad.pgright.Show() + TextPad.Size = New Size(File_Skimmer.Width + TextPad.pgleft.Width + TextPad.pgright.Width, TextPad.Height + TextPad.pgbottom.Height) + If boughttitlebar = True Then TextPad.setuptitlebar() + + File_Opener.pgleft.Show() + File_Opener.pgbottom.Show() + File_Opener.pgright.Show() + File_Opener.Size = New Size(File_Skimmer.Width + File_Opener.pgleft.Width + File_Opener.pgright.Width, File_Opener.Height + File_Opener.pgbottom.Height) + If boughttitlebar = True Then File_Opener.setuptitlebar() + + File_Saver.pgleft.Show() + File_Saver.pgbottom.Show() + File_Saver.pgright.Show() + File_Saver.Size = New Size(File_Skimmer.Width + File_Saver.pgleft.Width + File_Saver.pgright.Width, File_Saver.Height + File_Saver.pgbottom.Height) + If boughttitlebar = True Then File_Saver.setuptitlebar() + + Graphic_Picker.pgleft.Show() + Graphic_Picker.pgbottom.Show() + Graphic_Picker.pgright.Show() + Graphic_Picker.Size = New Size(Graphic_Picker.Width + Graphic_Picker.pgleft.Width + Graphic_Picker.pgright.Width, Graphic_Picker.Height + Graphic_Picker.pgbottom.Height) + If boughttitlebar = True Then Graphic_Picker.setuptitlebar() + + Skin_Loader.pgleft.Show() + Skin_Loader.pgbottom.Show() + Skin_Loader.pgright.Show() + Skin_Loader.Size = New Size(Skin_Loader.Width + Skin_Loader.pgleft.Width + Skin_Loader.pgright.Width, Skin_Loader.Height + Skin_Loader.pgbottom.Height) + If boughttitlebar = True Then Skin_Loader.setuptitlebar() + + ArtPad.pgleft.Show() + ArtPad.pgbottom.Show() + ArtPad.pgright.Show() + ArtPad.Size = New Size(ArtPad.Width + ArtPad.pgleft.Width + ArtPad.pgright.Width, ArtPad.Height + ArtPad.pgbottom.Height) + If boughttitlebar = True Then ArtPad.setuptitlebar() + + Calculator.pgleft.Show() + Calculator.pgbottom.Show() + Calculator.pgright.Show() + Calculator.Size = New Size(Calculator.Width + Calculator.pgleft.Width + Calculator.pgright.Width, Calculator.Height + Calculator.pgbottom.Height) + If boughttitlebar = True Then Calculator.setuptitlebar() + + Audio_Player.pgleft.Show() + Audio_Player.pgbottom.Show() + Audio_Player.pgright.Show() + Audio_Player.Size = New Size(Audio_Player.Width + Audio_Player.pgleft.Width + Audio_Player.pgright.Width, Audio_Player.Height + Audio_Player.pgbottom.Height) + If boughttitlebar = True Then Audio_Player.setuptitlebar() + + Web_Browser.pgleft.Show() + Web_Browser.pgbottom.Show() + Web_Browser.pgright.Show() + Web_Browser.Size = New Size(Web_Browser.Width + Web_Browser.pgleft.Width + Web_Browser.pgright.Width, Web_Browser.Height + Web_Browser.pgbottom.Height) + If boughttitlebar = True Then Web_Browser.setuptitlebar() + + Video_Player.pgleft.Show() + Video_Player.pgbottom.Show() + Video_Player.pgright.Show() + Video_Player.Size = New Size(Video_Player.Width + Video_Player.pgleft.Width + Video_Player.pgright.Width, Video_Player.Height + Video_Player.pgbottom.Height) + If boughttitlebar = True Then Video_Player.setuptitlebar() + + Name_Changer.pgleft.Show() + Name_Changer.pgbottom.Show() + Name_Changer.pgright.Show() + Name_Changer.Size = New Size(Name_Changer.Width + Name_Changer.pgleft.Width + Name_Changer.pgright.Width, Name_Changer.Height + Name_Changer.pgbottom.Height) + If boughttitlebar = True Then Name_Changer.setuptitlebar() + + Icon_Manager.pgleft.Show() + Icon_Manager.pgbottom.Show() + Icon_Manager.pgright.Show() + Icon_Manager.Size = New Size(Icon_Manager.Width + Icon_Manager.pgleft.Width + Icon_Manager.pgright.Width, Icon_Manager.Height + Icon_Manager.pgbottom.Height) + If boughttitlebar = True Then Icon_Manager.setuptitlebar() + + Bitnote_Wallet.pgleft.Show() + Bitnote_Wallet.pgbottom.Show() + Bitnote_Wallet.pgright.Show() + Bitnote_Wallet.Size = New Size(Bitnote_Wallet.Width + Bitnote_Wallet.pgleft.Width + Bitnote_Wallet.pgright.Width, Bitnote_Wallet.Height + Bitnote_Wallet.pgbottom.Height) + If boughttitlebar = True Then Bitnote_Wallet.setuptitlebar() + + Bitnote_Digger.pgleft.Show() + Bitnote_Digger.pgbottom.Show() + Bitnote_Digger.pgright.Show() + Bitnote_Digger.Size = New Size(Bitnote_Digger.Width + Bitnote_Digger.pgleft.Width + Bitnote_Digger.pgright.Width, Bitnote_Digger.Height + Bitnote_Digger.pgbottom.Height) + If boughttitlebar = True Then Bitnote_Digger.setuptitlebar() + + Skinshifter.pgleft.Show() + Skinshifter.pgbottom.Show() + Skinshifter.pgright.Show() + Skinshifter.Size = New Size(Skinshifter.Width + Skinshifter.pgleft.Width + Skinshifter.pgright.Width, Skinshifter.Height + Skinshifter.pgbottom.Height) + If boughttitlebar = True Then Skinshifter.setuptitlebar() + + Shiftnet.pgleft.Show() + Shiftnet.pgbottom.Show() + Shiftnet.pgright.Show() + Shiftnet.Size = New Size(Shiftnet.Width + Shiftnet.pgleft.Width + Shiftnet.pgright.Width, Shiftnet.Height + Shiftnet.pgbottom.Height) + If boughttitlebar = True Then Shiftnet.setuptitlebar() + + Downloader.pgleft.Show() + Downloader.pgbottom.Show() + Downloader.pgright.Show() + Downloader.Size = New Size(Downloader.Width + Downloader.pgleft.Width + Downloader.pgright.Width, Downloader.Height + Downloader.pgbottom.Height) + If boughttitlebar = True Then Downloader.setuptitlebar() + + template.pgleft.Show() + template.pgbottom.Show() + template.pgright.Show() + template.Size = New Size(template.Width + template.pgleft.Width + template.pgright.Width, template.Height + template.pgbottom.Height) + If boughttitlebar = True Then ArtPad.setuptitlebar() + + If terminalfullscreen = False Then + Terminal.pgleft.Show() + Terminal.pgbottom.Show() + Terminal.pgright.Show() + Terminal.Size = New Size(Terminal.Width + Terminal.pgleft.Width + Terminal.pgright.Width, Terminal.Height + Terminal.pgbottom.Height) + If boughttitlebar = True Then Terminal.setuptitlebar() + End If + End Sub + + Public Sub setupalltitlebars() + Knowledge_Input.setuptitlebar() + Shiftorium.setuptitlebar() + Clock.setuptitlebar() + Shifter.setuptitlebar() + Colour_Picker.setuptitlebar() + infobox.setuptitlebar() + Pong.setuptitlebar() + File_Skimmer.setuptitlebar() + TextPad.setuptitlebar() + File_Opener.setuptitlebar() + File_Saver.setuptitlebar() + Graphic_Picker.setuptitlebar() + Skin_Loader.setuptitlebar() + ArtPad.setuptitlebar() + Calculator.setuptitlebar() + Audio_Player.setuptitlebar() + Web_Browser.setuptitlebar() + Video_Player.setuptitlebar() + Name_Changer.setuptitlebar() + Icon_Manager.setuptitlebar() + Bitnote_Wallet.setuptitlebar() + Bitnote_Digger.setuptitlebar() + Skinshifter.setuptitlebar() + Shiftnet.setuptitlebar() + Downloader.setuptitlebar() + template.setuptitlebar() + If terminalfullscreen = False Then Terminal.setuptitlebar() + End Sub + + Public Sub setupskins() + Knowledge_Input.setskin() + Shiftorium.setskin() + Clock.setskin() + Shifter.setskin() + Colour_Picker.setskin() + infobox.setskin() + Pong.setskin() + File_Skimmer.setskin() + TextPad.setskin() + File_Opener.setskin() + File_Saver.setskin() + Graphic_Picker.setskin() + Skin_Loader.setskin() + ArtPad.setskin() + Calculator.setskin() + Audio_Player.setskin() + Web_Browser.setskin() + Video_Player.setskin() + Name_Changer.setskin() + Icon_Manager.setskin() + Bitnote_Wallet.setskin() + Bitnote_Digger.setskin() + Skinshifter.setskin() + Shiftnet.setskin() + Downloader.setskin() + template.setskin() + If terminalfullscreen = False Then Terminal.setskin() + End Sub + + Public Sub shiftwindowsontop() + If unitymode = True Then + Knowledge_Input.TopMost = False + Shiftorium.TopMost = False + Clock.TopMost = False + Shifter.TopMost = False + Colour_Picker.TopMost = False + infobox.TopMost = False + Pong.TopMost = False + File_Skimmer.TopMost = False + TextPad.TopMost = False + File_Opener.TopMost = False + File_Saver.TopMost = False + Graphic_Picker.TopMost = False + Skin_Loader.TopMost = False + ArtPad.TopMost = False + Calculator.TopMost = False + Audio_Player.TopMost = False + Web_Browser.TopMost = False + Video_Player.TopMost = False + Name_Changer.TopMost = False + Icon_Manager.TopMost = False + Bitnote_Wallet.TopMost = False + Bitnote_Digger.TopMost = False + Skinshifter.TopMost = False + Shiftnet.TopMost = False + Downloader.TopMost = False + template.TopMost = False + Terminal.TopMost = False + Else + Me.BringToFront() + Knowledge_Input.TopMost = True + Shiftorium.TopMost = True + Clock.TopMost = True + Shifter.TopMost = True + Colour_Picker.TopMost = True + infobox.TopMost = True + Pong.TopMost = True + File_Skimmer.TopMost = True + TextPad.TopMost = True + File_Opener.TopMost = True + File_Saver.TopMost = True + Graphic_Picker.TopMost = True + Skin_Loader.TopMost = True + ArtPad.TopMost = True + Calculator.TopMost = True + Audio_Player.TopMost = True + Web_Browser.TopMost = True + Video_Player.TopMost = True + Name_Changer.TopMost = True + Icon_Manager.TopMost = True + Bitnote_Wallet.TopMost = True + Bitnote_Digger.TopMost = True + Skinshifter.TopMost = True + Shiftnet.TopMost = True + Downloader.TopMost = True + template.TopMost = True + Terminal.TopMost = True + End If + End Sub + + Public Sub loadskinfiles() + If skinimages(0) = "" Then Else skinclosebutton(0) = GetImage(skinimages(0)) + If skinimages(1) = "" Then Else skinclosebutton(1) = GetImage(skinimages(1)) + If skinimages(2) = "" Then Else skinclosebutton(2) = GetImage(skinimages(2)) + If skinimages(3) = "" Then Else skintitlebar(0) = GetImage(skinimages(3)) + If skinimages(4) = "" Then Else skintitlebar(1) = GetImage(skinimages(4)) + If skinimages(5) = "" Then Else skintitlebar(2) = GetImage(skinimages(5)) + If skinimages(6) = "" Then Else skindesktopbackground(0) = GetImage(skinimages(6)) + If skinimages(7) = "" Then Else skindesktopbackground(1) = GetImage(skinimages(7)) + If skinimages(8) = "" Then Else skindesktopbackground(2) = GetImage(skinimages(8)) + If skinimages(9) = "" Then Else skinrollupbutton(0) = GetImage(skinimages(9)) + If skinimages(10) = "" Then Else skinrollupbutton(1) = GetImage(skinimages(10)) + If skinimages(11) = "" Then Else skinrollupbutton(2) = GetImage(skinimages(11)) + If skinimages(12) = "" Then Else skintitlebarrightcorner(0) = GetImage(skinimages(12)) + If skinimages(13) = "" Then Else skintitlebarrightcorner(1) = GetImage(skinimages(13)) + If skinimages(14) = "" Then Else skintitlebarrightcorner(2) = GetImage(skinimages(14)) + If skinimages(15) = "" Then Else skintitlebarleftcorner(0) = GetImage(skinimages(15)) + If skinimages(16) = "" Then Else skintitlebarleftcorner(1) = GetImage(skinimages(16)) + If skinimages(17) = "" Then Else skintitlebarleftcorner(2) = GetImage(skinimages(17)) + If skinimages(18) = "" Then Else skindesktoppanel(0) = GetImage(skinimages(18)) + If skinimages(19) = "" Then Else skindesktoppanel(1) = GetImage(skinimages(19)) + If skinimages(20) = "" Then Else skindesktoppanel(2) = GetImage(skinimages(20)) + If skinimages(21) = "" Then Else skindesktoppaneltime(0) = GetImage(skinimages(21)) + If skinimages(22) = "" Then Else skindesktoppaneltime(1) = GetImage(skinimages(22)) + If skinimages(23) = "" Then Else skindesktoppaneltime(2) = GetImage(skinimages(23)) + If skinimages(24) = "" Then Else skinapplauncherbutton(0) = GetImage(skinimages(24)) + If skinimages(25) = "" Then Else skinapplauncherbutton(1) = GetImage(skinimages(25)) + If skinimages(26) = "" Then Else skinapplauncherbutton(2) = GetImage(skinimages(26)) + If skinimages(27) = "" Then Else skinwindowborderleft(0) = GetImage(skinimages(27)) + If skinimages(28) = "" Then Else skinwindowborderleft(1) = GetImage(skinimages(28)) + If skinimages(29) = "" Then Else skinwindowborderleft(2) = GetImage(skinimages(29)) + If skinimages(30) = "" Then Else skinwindowborderright(0) = GetImage(skinimages(30)) + If skinimages(31) = "" Then Else skinwindowborderright(1) = GetImage(skinimages(31)) + If skinimages(32) = "" Then Else skinwindowborderright(2) = GetImage(skinimages(32)) + If skinimages(33) = "" Then Else skinwindowborderbottom(0) = GetImage(skinimages(33)) + If skinimages(34) = "" Then Else skinwindowborderbottom(1) = GetImage(skinimages(34)) + If skinimages(35) = "" Then Else skinwindowborderbottom(2) = GetImage(skinimages(35)) + If skinimages(36) = "" Then Else skinwindowborderbottomright(0) = GetImage(skinimages(36)) + If skinimages(37) = "" Then Else skinwindowborderbottomright(1) = GetImage(skinimages(37)) + If skinimages(38) = "" Then Else skinwindowborderbottomright(2) = GetImage(skinimages(38)) + If skinimages(39) = "" Then Else skinwindowborderbottomleft(0) = GetImage(skinimages(39)) + If skinimages(40) = "" Then Else skinwindowborderbottomleft(1) = GetImage(skinimages(40)) + If skinimages(41) = "" Then Else skinwindowborderbottomleft(2) = GetImage(skinimages(41)) + If skinimages(42) = "" Then Else skinminimizebutton(0) = GetImage(skinimages(42)) + If skinimages(43) = "" Then Else skinminimizebutton(1) = GetImage(skinimages(43)) + If skinimages(44) = "" Then Else skinminimizebutton(2) = GetImage(skinimages(44)) + If skinimages(45) = "" Then Else skinpanelbutton(0) = GetImage(skinimages(45)) + If skinimages(46) = "" Then Else skinpanelbutton(1) = GetImage(skinimages(46)) + If skinimages(47) = "" Then Else skinpanelbutton(2) = GetImage(skinimages(47)) + 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 setcolours() + If Shiftorium.Visible = True Then + Shiftorium.titlebar.BackColor = titlebarcolour + Shiftorium.pgtoplcorner.BackColor = titlebarleftcornercolour + Shiftorium.pgtoprcorner.BackColor = titlebarrightcornercolour + Shiftorium.pgleft.BackColor = windowborderleftcolour + Shiftorium.pgleft.BackgroundImage = skinwindowborderleft(0) + Shiftorium.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Shiftorium.pgright.BackColor = windowborderrightcolour + Shiftorium.pgright.BackgroundImage = skinwindowborderright(0) + Shiftorium.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Shiftorium.pgbottom.BackColor = windowborderbottomcolour + Shiftorium.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Shiftorium.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Shiftorium.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Shiftorium.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Shiftorium.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Shiftorium.pgbottomlcorner.Height = windowbordersize + Shiftorium.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Shiftorium.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Shiftorium.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Shiftorium.pgbottomrcorner.Height = windowbordersize + Else + Shiftorium.Close() + End If + + If Knowledge_Input.Visible = True Then + Knowledge_Input.titlebar.BackColor = titlebarcolour + Knowledge_Input.pgtoplcorner.BackColor = titlebarleftcornercolour + Knowledge_Input.pgtoprcorner.BackColor = titlebarrightcornercolour + Knowledge_Input.pgleft.BackColor = windowborderleftcolour + Knowledge_Input.pgleft.BackgroundImage = skinwindowborderleft(0) + Knowledge_Input.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Knowledge_Input.pgright.BackColor = windowborderrightcolour + Knowledge_Input.pgright.BackgroundImage = skinwindowborderright(0) + Knowledge_Input.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Knowledge_Input.pgbottom.BackColor = windowborderbottomcolour + Knowledge_Input.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Knowledge_Input.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Knowledge_Input.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Knowledge_Input.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Knowledge_Input.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Knowledge_Input.pgbottomlcorner.Height = windowbordersize + Knowledge_Input.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Knowledge_Input.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Knowledge_Input.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Knowledge_Input.pgbottomrcorner.Height = windowbordersize + Else + Knowledge_Input.Close() + End If + + If Clock.Visible = True Then + Clock.titlebar.BackColor = titlebarcolour + Clock.pgtoplcorner.BackColor = titlebarleftcornercolour + Clock.pgtoprcorner.BackColor = titlebarrightcornercolour + Clock.pgleft.BackColor = windowborderleftcolour + Clock.pgleft.BackgroundImage = skinwindowborderleft(0) + Clock.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Clock.pgright.BackColor = windowborderrightcolour + Clock.pgright.BackgroundImage = skinwindowborderright(0) + Clock.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Clock.pgbottom.BackColor = windowborderbottomcolour + Clock.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Clock.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Clock.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Clock.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Clock.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Clock.pgbottomlcorner.Height = windowbordersize + Clock.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Clock.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Clock.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Clock.pgbottomrcorner.Height = windowbordersize + Else + Clock.Close() + End If + + If Shifter.Visible = True Then + Shifter.titlebar.BackColor = titlebarcolour + Shifter.pgtoplcorner.BackColor = titlebarleftcornercolour + Shifter.pgtoprcorner.BackColor = titlebarrightcornercolour + Shifter.pgleft.BackColor = windowborderleftcolour + Shifter.pgleft.BackgroundImage = skinwindowborderleft(0) + Shifter.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Shifter.pgright.BackColor = windowborderrightcolour + Shifter.pgright.BackgroundImage = skinwindowborderright(0) + Shifter.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Shifter.pgbottom.BackColor = windowborderbottomcolour + Shifter.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Shifter.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Shifter.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Shifter.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Shifter.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Shifter.pgbottomlcorner.Height = windowbordersize + Shifter.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Shifter.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Shifter.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Shifter.pgbottomrcorner.Height = windowbordersize + Else + Shifter.Close() + End If + + If Colour_Picker.Visible = True Then + Colour_Picker.titlebar.BackColor = titlebarcolour + Colour_Picker.pgtoplcorner.BackColor = titlebarleftcornercolour + Colour_Picker.pgtoprcorner.BackColor = titlebarrightcornercolour + Colour_Picker.pgleft.BackColor = windowborderleftcolour + Colour_Picker.pgleft.BackgroundImage = skinwindowborderleft(0) + Colour_Picker.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Colour_Picker.pgright.BackColor = windowborderrightcolour + Colour_Picker.pgright.BackgroundImage = skinwindowborderright(0) + Colour_Picker.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Colour_Picker.pgbottom.BackColor = windowborderbottomcolour + Colour_Picker.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Colour_Picker.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Colour_Picker.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Colour_Picker.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Colour_Picker.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Colour_Picker.pgbottomlcorner.Height = windowbordersize + Colour_Picker.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Colour_Picker.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Colour_Picker.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Colour_Picker.pgbottomrcorner.Height = windowbordersize + Else + Colour_Picker.Close() + End If + + If infobox.Visible = True Then + infobox.titlebar.BackColor = titlebarcolour + infobox.pgtoplcorner.BackColor = titlebarleftcornercolour + infobox.pgtoprcorner.BackColor = titlebarrightcornercolour + infobox.pgleft.BackColor = windowborderleftcolour + infobox.pgleft.BackgroundImage = skinwindowborderleft(0) + infobox.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + infobox.pgright.BackColor = windowborderrightcolour + infobox.pgright.BackgroundImage = skinwindowborderright(0) + infobox.pgright.BackgroundImageLayout = skinwindowborderrightstyle + infobox.pgbottom.BackColor = windowborderbottomcolour + infobox.pgbottom.BackgroundImage = skinwindowborderbottom(0) + infobox.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + infobox.pgbottomlcorner.BackColor = windowborderbottomleftcolour + infobox.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + infobox.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + infobox.pgbottomlcorner.Height = windowbordersize + infobox.pgbottomrcorner.BackColor = windowborderbottomrightcolour + infobox.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + infobox.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + infobox.pgbottomrcorner.Height = windowbordersize + Else + infobox.Close() + End If + + If Pong.Visible = True Then + Pong.titlebar.BackColor = titlebarcolour + Pong.pgtoplcorner.BackColor = titlebarleftcornercolour + Pong.pgtoprcorner.BackColor = titlebarrightcornercolour + Pong.pgleft.BackColor = windowborderleftcolour + Pong.pgleft.BackgroundImage = skinwindowborderleft(0) + Pong.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Pong.pgright.BackColor = windowborderrightcolour + Pong.pgright.BackgroundImage = skinwindowborderright(0) + Pong.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Pong.pgbottom.BackColor = windowborderbottomcolour + Pong.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Pong.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Pong.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Pong.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Pong.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Pong.pgbottomlcorner.Height = windowbordersize + Pong.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Pong.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Pong.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Pong.pgbottomrcorner.Height = windowbordersize + Else + Pong.Close() + End If + + If File_Skimmer.Visible = True Then + File_Skimmer.titlebar.BackColor = titlebarcolour + File_Skimmer.pgtoplcorner.BackColor = titlebarleftcornercolour + File_Skimmer.pgtoprcorner.BackColor = titlebarrightcornercolour + File_Skimmer.pgleft.BackColor = windowborderleftcolour + File_Skimmer.pgleft.BackgroundImage = skinwindowborderleft(0) + File_Skimmer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + File_Skimmer.pgright.BackColor = windowborderrightcolour + File_Skimmer.pgright.BackgroundImage = skinwindowborderright(0) + File_Skimmer.pgright.BackgroundImageLayout = skinwindowborderrightstyle + File_Skimmer.pgbottom.BackColor = windowborderbottomcolour + File_Skimmer.pgbottom.BackgroundImage = skinwindowborderbottom(0) + File_Skimmer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + File_Skimmer.pgbottomlcorner.BackColor = windowborderbottomleftcolour + File_Skimmer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + File_Skimmer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + File_Skimmer.pgbottomlcorner.Height = windowbordersize + File_Skimmer.pgbottomrcorner.BackColor = windowborderbottomrightcolour + File_Skimmer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + File_Skimmer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + File_Skimmer.pgbottomrcorner.Height = windowbordersize + Else + File_Skimmer.Close() + End If + + If TextPad.Visible = True Then + TextPad.titlebar.BackColor = titlebarcolour + TextPad.pgtoplcorner.BackColor = titlebarleftcornercolour + TextPad.pgtoprcorner.BackColor = titlebarrightcornercolour + TextPad.pgleft.BackColor = windowborderleftcolour + TextPad.pgleft.BackgroundImage = skinwindowborderleft(0) + TextPad.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + TextPad.pgright.BackColor = windowborderrightcolour + TextPad.pgright.BackgroundImage = skinwindowborderright(0) + TextPad.pgright.BackgroundImageLayout = skinwindowborderrightstyle + TextPad.pgbottom.BackColor = windowborderbottomcolour + TextPad.pgbottom.BackgroundImage = skinwindowborderbottom(0) + TextPad.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + TextPad.pgbottomlcorner.BackColor = windowborderbottomleftcolour + TextPad.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + TextPad.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + TextPad.pgbottomlcorner.Height = windowbordersize + TextPad.pgbottomrcorner.BackColor = windowborderbottomrightcolour + TextPad.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + TextPad.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + TextPad.pgbottomrcorner.Height = windowbordersize + Else + TextPad.Close() + End If + + + If File_Opener.Visible = True Then + File_Opener.titlebar.BackColor = titlebarcolour + File_Opener.pgtoplcorner.BackColor = titlebarleftcornercolour + File_Opener.pgtoprcorner.BackColor = titlebarrightcornercolour + File_Opener.pgleft.BackColor = windowborderleftcolour + File_Opener.pgleft.BackgroundImage = skinwindowborderleft(0) + File_Opener.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + File_Opener.pgright.BackColor = windowborderrightcolour + File_Opener.pgright.BackgroundImage = skinwindowborderright(0) + File_Opener.pgright.BackgroundImageLayout = skinwindowborderrightstyle + File_Opener.pgbottom.BackColor = windowborderbottomcolour + File_Opener.pgbottom.BackgroundImage = skinwindowborderbottom(0) + File_Opener.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + File_Opener.pgbottomlcorner.BackColor = windowborderbottomleftcolour + File_Opener.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + File_Opener.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + File_Opener.pgbottomlcorner.Height = windowbordersize + File_Opener.pgbottomrcorner.BackColor = windowborderbottomrightcolour + File_Opener.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + File_Opener.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + File_Opener.pgbottomrcorner.Height = windowbordersize + Else + File_Opener.Close() + End If + + If File_Saver.Visible = True Then + File_Saver.titlebar.BackColor = titlebarcolour + File_Saver.pgtoplcorner.BackColor = titlebarleftcornercolour + File_Saver.pgtoprcorner.BackColor = titlebarrightcornercolour + File_Saver.pgleft.BackColor = windowborderleftcolour + File_Saver.pgleft.BackgroundImage = skinwindowborderleft(0) + File_Saver.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + File_Saver.pgright.BackColor = windowborderrightcolour + File_Saver.pgright.BackgroundImage = skinwindowborderright(0) + File_Saver.pgright.BackgroundImageLayout = skinwindowborderrightstyle + File_Saver.pgbottom.BackColor = windowborderbottomcolour + File_Saver.pgbottom.BackgroundImage = skinwindowborderbottom(0) + File_Saver.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + File_Saver.pgbottomlcorner.BackColor = windowborderbottomleftcolour + File_Saver.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + File_Saver.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + File_Saver.pgbottomlcorner.Height = windowbordersize + File_Saver.pgbottomrcorner.BackColor = windowborderbottomrightcolour + File_Saver.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + File_Saver.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + File_Saver.pgbottomrcorner.Height = windowbordersize + Else + File_Saver.Close() + End If + + If Graphic_Picker.Visible = True Then + Graphic_Picker.titlebar.BackColor = titlebarcolour + Graphic_Picker.pgtoplcorner.BackColor = titlebarleftcornercolour + Graphic_Picker.pgtoprcorner.BackColor = titlebarrightcornercolour + Graphic_Picker.pgleft.BackColor = windowborderleftcolour + Graphic_Picker.pgleft.BackgroundImage = skinwindowborderleft(0) + Graphic_Picker.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Graphic_Picker.pgright.BackColor = windowborderrightcolour + Graphic_Picker.pgright.BackgroundImage = skinwindowborderright(0) + Graphic_Picker.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Graphic_Picker.pgbottom.BackColor = windowborderbottomcolour + Graphic_Picker.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Graphic_Picker.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Graphic_Picker.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Graphic_Picker.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Graphic_Picker.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Graphic_Picker.pgbottomlcorner.Height = windowbordersize + Graphic_Picker.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Graphic_Picker.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Graphic_Picker.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Graphic_Picker.pgbottomrcorner.Height = windowbordersize + Else + Graphic_Picker.Close() + End If + + If Skin_Loader.Visible = True Then + Skin_Loader.titlebar.BackColor = titlebarcolour + Skin_Loader.pgtoplcorner.BackColor = titlebarleftcornercolour + Skin_Loader.pgtoprcorner.BackColor = titlebarrightcornercolour + Skin_Loader.pgleft.BackColor = windowborderleftcolour + Skin_Loader.pgleft.BackgroundImage = skinwindowborderleft(0) + Skin_Loader.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Skin_Loader.pgright.BackColor = windowborderrightcolour + Skin_Loader.pgright.BackgroundImage = skinwindowborderright(0) + Skin_Loader.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Skin_Loader.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Skin_Loader.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Skin_Loader.pgbottom.BackColor = windowborderbottomcolour + Skin_Loader.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Skin_Loader.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Skin_Loader.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Skin_Loader.pgbottomlcorner.Height = windowbordersize + Skin_Loader.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Skin_Loader.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Skin_Loader.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Skin_Loader.pgbottomrcorner.Height = windowbordersize + Else + Skin_Loader.Close() + End If + + If ArtPad.Visible = True Then + ArtPad.titlebar.BackColor = titlebarcolour + ArtPad.pgtoplcorner.BackColor = titlebarleftcornercolour + ArtPad.pgtoprcorner.BackColor = titlebarrightcornercolour + ArtPad.pgleft.BackColor = windowborderleftcolour + ArtPad.pgleft.BackgroundImage = skinwindowborderleft(0) + ArtPad.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + ArtPad.pgright.BackColor = windowborderrightcolour + ArtPad.pgright.BackgroundImage = skinwindowborderright(0) + ArtPad.pgright.BackgroundImageLayout = skinwindowborderrightstyle + ArtPad.pgbottom.BackgroundImage = skinwindowborderbottom(0) + ArtPad.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + ArtPad.pgbottom.BackColor = windowborderbottomcolour + ArtPad.pgbottomlcorner.BackColor = windowborderbottomleftcolour + ArtPad.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + ArtPad.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + ArtPad.pgbottomlcorner.Height = windowbordersize + ArtPad.pgbottomrcorner.BackColor = windowborderbottomrightcolour + ArtPad.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + ArtPad.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + ArtPad.pgbottomrcorner.Height = windowbordersize + Else + ArtPad.Close() + End If + + If Calculator.Visible = True Then + Calculator.titlebar.BackColor = titlebarcolour + Calculator.pgtoplcorner.BackColor = titlebarleftcornercolour + Calculator.pgtoprcorner.BackColor = titlebarrightcornercolour + Calculator.pgleft.BackColor = windowborderleftcolour + Calculator.pgleft.BackgroundImage = skinwindowborderleft(0) + Calculator.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Calculator.pgright.BackColor = windowborderrightcolour + Calculator.pgright.BackgroundImage = skinwindowborderright(0) + Calculator.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Calculator.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Calculator.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Calculator.pgbottom.BackColor = windowborderbottomcolour + Calculator.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Calculator.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Calculator.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Calculator.pgbottomlcorner.Height = windowbordersize + Calculator.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Calculator.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Calculator.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Calculator.pgbottomrcorner.Height = windowbordersize + Else + Calculator.Close() + End If + + If Audio_Player.Visible = True Then + Audio_Player.titlebar.BackColor = titlebarcolour + Audio_Player.pgtoplcorner.BackColor = titlebarleftcornercolour + Audio_Player.pgtoprcorner.BackColor = titlebarrightcornercolour + Audio_Player.pgleft.BackColor = windowborderleftcolour + Audio_Player.pgleft.BackgroundImage = skinwindowborderleft(0) + Audio_Player.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Audio_Player.pgright.BackColor = windowborderrightcolour + Audio_Player.pgright.BackgroundImage = skinwindowborderright(0) + Audio_Player.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Audio_Player.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Audio_Player.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Audio_Player.pgbottom.BackColor = windowborderbottomcolour + Audio_Player.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Audio_Player.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Audio_Player.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Audio_Player.pgbottomlcorner.Height = windowbordersize + Audio_Player.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Audio_Player.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Audio_Player.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Audio_Player.pgbottomrcorner.Height = windowbordersize + Else + Audio_Player.Close() + End If + + If Web_Browser.Visible = True Then + Web_Browser.titlebar.BackColor = titlebarcolour + Web_Browser.pgtoplcorner.BackColor = titlebarleftcornercolour + Web_Browser.pgtoprcorner.BackColor = titlebarrightcornercolour + Web_Browser.pgleft.BackColor = windowborderleftcolour + Web_Browser.pgleft.BackgroundImage = skinwindowborderleft(0) + Web_Browser.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Web_Browser.pgright.BackColor = windowborderrightcolour + Web_Browser.pgright.BackgroundImage = skinwindowborderright(0) + Web_Browser.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Web_Browser.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Web_Browser.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Web_Browser.pgbottom.BackColor = windowborderbottomcolour + Web_Browser.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Web_Browser.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Web_Browser.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Web_Browser.pgbottomlcorner.Height = windowbordersize + Web_Browser.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Web_Browser.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Web_Browser.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Web_Browser.pgbottomrcorner.Height = windowbordersize + Else + Web_Browser.Close() + End If + + If Video_Player.Visible = True Then + Video_Player.titlebar.BackColor = titlebarcolour + Video_Player.pgtoplcorner.BackColor = titlebarleftcornercolour + Video_Player.pgtoprcorner.BackColor = titlebarrightcornercolour + Video_Player.pgleft.BackColor = windowborderleftcolour + Video_Player.pgleft.BackgroundImage = skinwindowborderleft(0) + Video_Player.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Video_Player.pgright.BackColor = windowborderrightcolour + Video_Player.pgright.BackgroundImage = skinwindowborderright(0) + Video_Player.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Video_Player.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Video_Player.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Video_Player.pgbottom.BackColor = windowborderbottomcolour + Video_Player.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Video_Player.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Video_Player.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Video_Player.pgbottomlcorner.Height = windowbordersize + Video_Player.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Video_Player.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Video_Player.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Video_Player.pgbottomrcorner.Height = windowbordersize + Else + Video_Player.Close() + End If + + If Name_Changer.Visible = True Then + Name_Changer.titlebar.BackColor = titlebarcolour + Name_Changer.pgtoplcorner.BackColor = titlebarleftcornercolour + Name_Changer.pgtoprcorner.BackColor = titlebarrightcornercolour + Name_Changer.pgleft.BackColor = windowborderleftcolour + Name_Changer.pgleft.BackgroundImage = skinwindowborderleft(0) + Name_Changer.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Name_Changer.pgright.BackColor = windowborderrightcolour + Name_Changer.pgright.BackgroundImage = skinwindowborderright(0) + Name_Changer.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Name_Changer.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Name_Changer.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Name_Changer.pgbottom.BackColor = windowborderbottomcolour + Name_Changer.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Name_Changer.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Name_Changer.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Name_Changer.pgbottomlcorner.Height = windowbordersize + Name_Changer.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Name_Changer.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Name_Changer.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Name_Changer.pgbottomrcorner.Height = windowbordersize + Else + Name_Changer.Close() + End If + + If Icon_Manager.Visible = True Then + Icon_Manager.titlebar.BackColor = titlebarcolour + Icon_Manager.pgtoplcorner.BackColor = titlebarleftcornercolour + Icon_Manager.pgtoprcorner.BackColor = titlebarrightcornercolour + Icon_Manager.pgleft.BackColor = windowborderleftcolour + Icon_Manager.pgleft.BackgroundImage = skinwindowborderleft(0) + Icon_Manager.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Icon_Manager.pgright.BackColor = windowborderrightcolour + Icon_Manager.pgright.BackgroundImage = skinwindowborderright(0) + Icon_Manager.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Icon_Manager.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Icon_Manager.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Icon_Manager.pgbottom.BackColor = windowborderbottomcolour + Icon_Manager.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Icon_Manager.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Icon_Manager.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Icon_Manager.pgbottomlcorner.Height = windowbordersize + Icon_Manager.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Icon_Manager.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Icon_Manager.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Icon_Manager.pgbottomrcorner.Height = windowbordersize + Else + Icon_Manager.Close() + End If + + If Bitnote_Wallet.Visible = True Then + Bitnote_Wallet.titlebar.BackColor = titlebarcolour + Bitnote_Wallet.pgtoplcorner.BackColor = titlebarleftcornercolour + Bitnote_Wallet.pgtoprcorner.BackColor = titlebarrightcornercolour + Bitnote_Wallet.pgleft.BackColor = windowborderleftcolour + Bitnote_Wallet.pgleft.BackgroundImage = skinwindowborderleft(0) + Bitnote_Wallet.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Bitnote_Wallet.pgright.BackColor = windowborderrightcolour + Bitnote_Wallet.pgright.BackgroundImage = skinwindowborderright(0) + Bitnote_Wallet.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Bitnote_Wallet.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Bitnote_Wallet.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Bitnote_Wallet.pgbottom.BackColor = windowborderbottomcolour + Bitnote_Wallet.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Bitnote_Wallet.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Bitnote_Wallet.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Bitnote_Wallet.pgbottomlcorner.Height = windowbordersize + Bitnote_Wallet.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Bitnote_Wallet.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Bitnote_Wallet.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Bitnote_Wallet.pgbottomrcorner.Height = windowbordersize + Else + Bitnote_Wallet.Close() + End If + + If Bitnote_Digger.Visible = True Then + Bitnote_Digger.titlebar.BackColor = titlebarcolour + Bitnote_Digger.pgtoplcorner.BackColor = titlebarleftcornercolour + Bitnote_Digger.pgtoprcorner.BackColor = titlebarrightcornercolour + Bitnote_Digger.pgleft.BackColor = windowborderleftcolour + Bitnote_Digger.pgleft.BackgroundImage = skinwindowborderleft(0) + Bitnote_Digger.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Bitnote_Digger.pgright.BackColor = windowborderrightcolour + Bitnote_Digger.pgright.BackgroundImage = skinwindowborderright(0) + Bitnote_Digger.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Bitnote_Digger.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Bitnote_Digger.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Bitnote_Digger.pgbottom.BackColor = windowborderbottomcolour + Bitnote_Digger.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Bitnote_Digger.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Bitnote_Digger.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Bitnote_Digger.pgbottomlcorner.Height = windowbordersize + Bitnote_Digger.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Bitnote_Digger.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Bitnote_Digger.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Bitnote_Digger.pgbottomrcorner.Height = windowbordersize + Else + Bitnote_Digger.Close() + End If + + If Skinshifter.Visible = True Then + Skinshifter.titlebar.BackColor = titlebarcolour + Skinshifter.pgtoplcorner.BackColor = titlebarleftcornercolour + Skinshifter.pgtoprcorner.BackColor = titlebarrightcornercolour + Skinshifter.pgleft.BackColor = windowborderleftcolour + Skinshifter.pgleft.BackgroundImage = skinwindowborderleft(0) + Skinshifter.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Skinshifter.pgright.BackColor = windowborderrightcolour + Skinshifter.pgright.BackgroundImage = skinwindowborderright(0) + Skinshifter.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Skinshifter.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Skinshifter.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Skinshifter.pgbottom.BackColor = windowborderbottomcolour + Skinshifter.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Skinshifter.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Skinshifter.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Skinshifter.pgbottomlcorner.Height = windowbordersize + Skinshifter.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Skinshifter.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Skinshifter.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Skinshifter.pgbottomrcorner.Height = windowbordersize + Else + Skinshifter.Close() + End If + + If Shiftnet.Visible = True Then + Shiftnet.titlebar.BackColor = titlebarcolour + Shiftnet.pgtoplcorner.BackColor = titlebarleftcornercolour + Shiftnet.pgtoprcorner.BackColor = titlebarrightcornercolour + Shiftnet.pgleft.BackColor = windowborderleftcolour + Shiftnet.pgleft.BackgroundImage = skinwindowborderleft(0) + Shiftnet.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Shiftnet.pgright.BackColor = windowborderrightcolour + Shiftnet.pgright.BackgroundImage = skinwindowborderright(0) + Shiftnet.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Shiftnet.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Shiftnet.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Shiftnet.pgbottom.BackColor = windowborderbottomcolour + Shiftnet.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Shiftnet.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Shiftnet.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Shiftnet.pgbottomlcorner.Height = windowbordersize + Shiftnet.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Shiftnet.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Shiftnet.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Shiftnet.pgbottomrcorner.Height = windowbordersize + Else + Shiftnet.Close() + End If + + If Downloader.Visible = True Then + Downloader.titlebar.BackColor = titlebarcolour + Downloader.pgtoplcorner.BackColor = titlebarleftcornercolour + Downloader.pgtoprcorner.BackColor = titlebarrightcornercolour + Downloader.pgleft.BackColor = windowborderleftcolour + Downloader.pgleft.BackgroundImage = skinwindowborderleft(0) + Downloader.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Downloader.pgright.BackColor = windowborderrightcolour + Downloader.pgright.BackgroundImage = skinwindowborderright(0) + Downloader.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Downloader.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Downloader.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Downloader.pgbottom.BackColor = windowborderbottomcolour + Downloader.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Downloader.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Downloader.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Downloader.pgbottomlcorner.Height = windowbordersize + Downloader.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Downloader.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Downloader.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Downloader.pgbottomrcorner.Height = windowbordersize + Else + Downloader.Close() + End If + + If template.Visible = True Then + template.titlebar.BackColor = titlebarcolour + template.pgtoplcorner.BackColor = titlebarleftcornercolour + template.pgtoprcorner.BackColor = titlebarrightcornercolour + template.pgleft.BackColor = windowborderleftcolour + template.pgleft.BackgroundImage = skinwindowborderleft(0) + template.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + template.pgright.BackColor = windowborderrightcolour + template.pgright.BackgroundImage = skinwindowborderright(0) + template.pgright.BackgroundImageLayout = skinwindowborderrightstyle + template.pgbottom.BackgroundImage = skinwindowborderbottom(0) + template.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + template.pgbottom.BackColor = windowborderbottomcolour + template.pgbottomlcorner.BackColor = windowborderbottomleftcolour + template.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + template.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + template.pgbottomlcorner.Height = windowbordersize + template.pgbottomrcorner.BackColor = windowborderbottomrightcolour + template.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + template.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + template.pgbottomrcorner.Height = windowbordersize + Else + template.Close() + End If + + If Terminal.Visible = True Then + Terminal.titlebar.BackColor = titlebarcolour + Terminal.pgtoplcorner.BackColor = titlebarleftcornercolour + Terminal.pgtoprcorner.BackColor = titlebarrightcornercolour + Terminal.pgleft.BackColor = windowborderleftcolour + Terminal.pgleft.BackgroundImage = skinwindowborderleft(0) + Terminal.pgleft.BackgroundImageLayout = skinwindowborderleftstyle + Terminal.pgright.BackColor = windowborderrightcolour + Terminal.pgright.BackgroundImage = skinwindowborderright(0) + Terminal.pgright.BackgroundImageLayout = skinwindowborderrightstyle + Terminal.pgbottom.BackColor = windowborderbottomcolour + Terminal.pgbottom.BackgroundImage = skinwindowborderbottom(0) + Terminal.pgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + Terminal.pgbottomlcorner.BackColor = windowborderbottomleftcolour + Terminal.pgbottomlcorner.BackgroundImage = skinwindowborderbottomleft(0) + Terminal.pgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + Terminal.pgbottomlcorner.Height = windowbordersize + Terminal.pgbottomrcorner.BackColor = windowborderbottomrightcolour + Terminal.pgbottomrcorner.BackgroundImage = skinwindowborderbottomright(0) + Terminal.pgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + Terminal.pgbottomrcorner.Height = windowbordersize + Else + Terminal.Close() + End If + End Sub + + Public Sub setupiconprocess(ByVal location As String, ByRef imagetochange As Image) + If IO.File.Exists("C:\ShiftOS\Shiftum42\Icons\" & location & ".pic") Then + imagetochange = GetImage("C:\ShiftOS\Shiftum42\Icons\" & location & ".pic") + End If + End Sub + + Public Sub setupicons() + + iconmanagericondatalines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Icons\icondata.dat") + titlebariconsize = iconmanagericondatalines(0) + panelbuttoniconsize = iconmanagericondatalines(1) + launchericonsize = iconmanagericondatalines(2) + + setupiconprocess("titlebarartpadicon", artpadicontitlebar) + setupiconprocess("titlebaraudioplayericon", audioplayericontitlebar) + setupiconprocess("titlebarcalculatoricon", calculatoricontitlebar) + setupiconprocess("titlebarclockicon", clockicontitlebar) + setupiconprocess("titlebarcolourpickericon", colourpickericontitlebar) + setupiconprocess("titlebarfileopenericon", fileopenericontitlebar) + setupiconprocess("titlebarfilesavericon", filesavericontitlebar) + setupiconprocess("titlebarfileskimmericon", fileskimmericontitlebar) + setupiconprocess("titlebargraphicpickericon", graphicpickericontitlebar) + setupiconprocess("titlebarinfoboxicon", infoboxicontitlebar) + setupiconprocess("titlebarknowledgeinputicon", knowledgeinputicontitlebar) + setupiconprocess("titlebarpongicon", pongicontitlebar) + setupiconprocess("titlebarshiftericon", shiftericontitlebar) + setupiconprocess("titlebarshiftoriumicon", shiftoriumicontitlebar) + setupiconprocess("titlebarskinloadericon", skinloadericontitlebar) + setupiconprocess("titlebarterminalicon", terminalicontitlebar) + setupiconprocess("titlebartextpadicon", textpadicontitlebar) + setupiconprocess("titlebarvideoplayericon", videoplayericontitlebar) + setupiconprocess("titlebarwebbrowsericon", webbrowsericontitlebar) + setupiconprocess("titlebarnamechangericon", namechangericontitlebar) + setupiconprocess("titlebariconmanagericon", iconmanagericontitlebar) + setupiconprocess("titlebarbitnotewalleticon", bitnotewalleticontitlebar) + setupiconprocess("titlebarbitnotediggericon", bitnotediggericontitlebar) + setupiconprocess("titlebarbitnotediggericon", bitnotediggericontitlebar) + + setupiconprocess("panelbuttonartpadicon", artpadiconpanelbutton) + setupiconprocess("panelbuttonaudioplayericon", audioplayericonpanelbutton) + setupiconprocess("panelbuttoncalculatoricon", calculatoriconpanelbutton) + setupiconprocess("panelbuttonclockicon", clockiconpanelbutton) + setupiconprocess("panelbuttoncolourpickericon", colourpickericonpanelbutton) + setupiconprocess("panelbuttonfileopenericon", fileopenericonpanelbutton) + setupiconprocess("panelbuttonfilesavericon", filesavericonpanelbutton) + setupiconprocess("panelbuttonfileskimmericon", fileskimmericonpanelbutton) + setupiconprocess("panelbuttongraphicpickericon", graphicpickericonpanelbutton) + setupiconprocess("panelbuttoninfoboxicon", infoboxiconpanelbutton) + setupiconprocess("panelbuttonknowledgeinputicon", knowledgeinputiconpanelbutton) + setupiconprocess("panelbuttonpongicon", pongiconpanelbutton) + setupiconprocess("panelbuttonshiftericon", shiftericonpanelbutton) + setupiconprocess("panelbuttonshiftoriumicon", shiftoriumiconpanelbutton) + setupiconprocess("panelbuttonskinloadericon", skinloadericonpanelbutton) + setupiconprocess("panelbuttonterminalicon", terminaliconpanelbutton) + setupiconprocess("panelbuttontextpadicon", textpadiconpanelbutton) + setupiconprocess("panelbuttonvideoplayericon", videoplayericonpanelbutton) + setupiconprocess("panelbuttonwebbrowsericon", webbrowsericonpanelbutton) + setupiconprocess("panelbuttonnamechangericon", namechangericonpanelbutton) + setupiconprocess("panelbuttoniconmanagericon", iconmanagericonpanelbutton) + setupiconprocess("panelbuttonbitnotewalleticon", bitnotewalleticonpanelbutton) + setupiconprocess("panelbuttonbitnotediggericon", bitnotediggericonpanelbutton) + setupiconprocess("panelbuttonbitnotediggericon", bitnotediggericonpanelbutton) + + setupiconprocess("launcherartpadicon", artpadiconlauncher) + setupiconprocess("launcheraudioplayericon", audioplayericonlauncher) + setupiconprocess("launchercalculatoricon", calculatoriconlauncher) + setupiconprocess("launcherclockicon", clockiconlauncher) + setupiconprocess("launchercolourpickericon", colourpickericonlauncher) + setupiconprocess("launcherfileopenericon", fileopenericonlauncher) + setupiconprocess("launcherfilesavericon", filesavericonlauncher) + setupiconprocess("launcherfileskimmericon", fileskimmericonlauncher) + setupiconprocess("launchergraphicpickericon", graphicpickericonlauncher) + setupiconprocess("launcherinfoboxicon", infoboxiconlauncher) + setupiconprocess("launcherknowledgeinputicon", knowledgeinputiconlauncher) + setupiconprocess("launcherpongicon", pongiconlauncher) + setupiconprocess("launchershiftericon", shiftericonlauncher) + setupiconprocess("launchershiftoriumicon", shiftoriumiconlauncher) + setupiconprocess("launcherskinloadericon", skinloadericonlauncher) + setupiconprocess("launcherterminalicon", terminaliconlauncher) + setupiconprocess("launchertextpadicon", textpadiconlauncher) + setupiconprocess("launchervideoplayericon", videoplayericonlauncher) + setupiconprocess("launcherwebbrowsericon", webbrowsericonlauncher) + setupiconprocess("launchernamechangericon", namechangericonlauncher) + setupiconprocess("launchericonmanagericon", iconmanagericonlauncher) + setupiconprocess("launcherbitnotewalleticon", bitnotewalleticonlauncher) + setupiconprocess("launcherbitnotediggericon", bitnotediggericonlauncher) + setupiconprocess("launcherbitnotediggericon", bitnotediggericonlauncher) + + setupiconprocess("launchershutdownicon", shutdowniconlauncher) + End Sub + + Private Sub KnowledgeInputToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnowledgeInputToolStripMenuItem.Click + closeeverything() + log = log & My.Computer.Clock.LocalTime & " User opened Knowledge Input from the app launcher" & Environment.NewLine + Knowledge_Input.Show() + Knowledge_Input.BringToFront() + End Sub + + Private Sub ShiftoriumToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShiftoriumToolStripMenuItem.Click + closeeverything() + log = log & My.Computer.Clock.LocalTime & " User opened Shiftorium from the app launcher" & Environment.NewLine + Shiftorium.Show() + Shiftorium.BringToFront() + End Sub + + Private Sub ClockToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClockToolStripMenuItem.Click + closeeverything() + log = log & My.Computer.Clock.LocalTime & " User opened Clock from the app launcher" & Environment.NewLine + Clock.Show() + Clock.BringToFront() + End Sub + + Private Sub TerminalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TerminalToolStripMenuItem.Click + closeeverything() + log = log & My.Computer.Clock.LocalTime & " User opened Terminal from the app launcher" & Environment.NewLine + Terminal.Show() + Terminal.BringToFront() + End Sub + + Private Sub CalculatorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CalculatorToolStripMenuItem.Click + closeeverything() + Calculator.Show() + Calculator.BringToFront() + End Sub + + Private Sub ApplicationsToolStripMenuItem_MouseEnter(sender As Object, e As EventArgs) Handles ApplicationsToolStripMenuItem.MouseEnter + Me.Focus() + ToolStripManager.Renderer = New MyToolStripRenderer() + End Sub + + Private Sub ShutdownToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShutdownToolStripMenuItem.Click + Terminal.Show() + Terminal.BringToFront() + log = log & My.Computer.Clock.LocalTime & " User Shut Down ShiftOS from the app launcher" & Environment.NewLine + shutdownshiftos() + End Sub + + Private Sub clocktick_Tick(sender As Object, e As EventArgs) Handles clocktick.Tick + setclocktime() + End Sub + + Private Sub setclocktime() + If boughtsplitsecondtime = True Then + paneltimetext.Text = TimeOfDay + Else + If boughtminuteaccuracytime = True Then + If Date.Now.Hour < 12 Then + paneltimetext.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM" + Else + paneltimetext.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM" + End If + Else + If boughtpmandam = True Then + If Date.Now.Hour < 12 Then + paneltimetext.Text = TimeOfDay.Hour & " AM" + Else + paneltimetext.Text = TimeOfDay.Hour - 12 & " PM" + End If + Else + If boughthourspastmidnight = True Then + paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60) + Else + If boughtminutespastmidnight = True Then + paneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60) + Else + If boughtsecondspastmidnight = True Then + paneltimetext.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 ShifterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShifterToolStripMenuItem.Click + closeeverything() + log = log & My.Computer.Clock.LocalTime & " User opened Shifter from the app launcher" & Environment.NewLine + Shifter.Show() + Shifter.BringToFront() + End Sub + + Private Sub PongToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PongToolStripMenuItem.Click + closeeverything() + Pong.Show() + Pong.BringToFront() + End Sub + + Private Sub FileSkimmerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileSkimmerToolStripMenuItem.Click + closeeverything() + File_Skimmer.Show() + File_Skimmer.BringToFront() + End Sub + + Private Sub TextPadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextPadToolStripMenuItem.Click + closeeverything() + TextPad.Show() + TextPad.BringToFront() + End Sub + + Private Sub SkinLoaderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SkinLoaderToolStripMenuItem.Click + closeeverything() + Skin_Loader.Show() + Skin_Loader.BringToFront() + End Sub + + Private Sub ArtpadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArtpadToolStripMenuItem.Click + closeeverything() + ArtPad.Show() + ArtPad.BringToFront() + End Sub + + Private Sub AudioplayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AudioplayerToolStripMenuItem.Click + closeeverything() + Audio_Player.Show() + Audio_Player.BringToFront() + End Sub + + Private Sub WebBrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WebBrowserToolStripMenuItem.Click + closeeverything() + Web_Browser.Show() + Web_Browser.BringToFront() + If Web_Browser.Location.Y <= 0 Then Web_Browser.Location = New Point(Web_Browser.Location.X, Web_Browser.Location.Y + 5000) + Web_Browser.resettitlebar() + End Sub + + Private Sub VideoplayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VideoplayerToolStripMenuItem.Click + closeeverything() + Video_Player.Show() + Video_Player.BringToFront() + End Sub + + Private Sub NameChangerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NameChangerToolStripMenuItem.Click + closeeverything() + Name_Changer.Show() + Name_Changer.BringToFront() + End Sub + + Private Sub IconManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IconManagerToolStripMenuItem.Click + closeeverything() + Icon_Manager.Show() + Icon_Manager.BringToFront() + End Sub + + Private Sub bitnotewalletToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BitnoteWalletToolStripMenuItem.Click + closeeverything() + Bitnote_Wallet.Show() + Bitnote_Wallet.BringToFront() + End Sub + + Private Sub bitnotediggerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BitnoteDiggerToolStripMenuItem.Click + closeeverything() + Bitnote_Digger.Show() + Bitnote_Digger.BringToFront() + End Sub + + Private Sub SkinshifterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SkinShifterToolStripMenuItem.Click + closeeverything() + Skinshifter.Show() + Skinshifter.BringToFront() + End Sub + + Private Sub ShiftnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShiftnetToolStripMenuItem.Click + closeeverything() + Shiftnet.Show() + Shiftnet.BringToFront() + End Sub + + Private Sub autosave_Tick(sender As Object, e As EventArgs) Handles autosave.Tick + savegame() + End Sub + + Public Sub ApplicationsToolStripMenuItem_Paint(sender As Object, e As PaintEventArgs) Handles ApplicationsToolStripMenuItem.Paint + If skinapplauncherbutton(0) Is Nothing Then + Else + e.Graphics.DrawImage(skinapplauncherbutton(0), 0, 0, skinapplauncherbutton(0).Width, skinapplauncherbutton(0).Height) + End If + End Sub + + Public Sub minimizeprogram(ByVal whatprogram As Form) + If whatprogram.Location.Y > 0 Then + whatprogram.Location = New Point(whatprogram.Location.X, whatprogram.Location.Y - 5000) + Else + whatprogram.Location = New Point(whatprogram.Location.X, whatprogram.Location.Y + 5000) + whatprogram.BringToFront() + End If + End Sub + + Private Sub pnlpanelbuttonclock_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonclock.Click, tbclockicon.Click, tbclocktext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Clock) + End If + End Sub + + Private Sub pnlpanelbuttoncolourpicker_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoncolourpicker.Click, tbcolourpickericon.Click, tbcolourpickertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Colour_Picker) + End If + End Sub + + Private Sub pnlpanelbuttonfileopener_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfileopener.Click, tbfileopenericon.Click, tbfileopenertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(File_Opener) + End If + End Sub + + Private Sub pnlpanelbuttonfilesaver_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfilesaver.Click, tbfilesavericon.Click, tbfilesavertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(File_Saver) + End If + End Sub + + Private Sub pnlpanelbuttonfileskimmer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonfileskimmer.Click, tbfileskimmericon.Click, tbfileskimmertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(File_Skimmer) + End If + End Sub + + Private Sub pnlpanelbuttongraphicpicker_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttongraphicpicker.Click, tbgraphicpickericon.Click, tbgraphicpickertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Graphic_Picker) + End If + End Sub + + Private Sub pnlpanelbuttoninfobox_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoninfobox.Click, tbinfoboxicon.Click, tbinfoboxtext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(infobox) + End If + End Sub + + Private Sub pnlpanelbuttonknowledgeinput_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonknowledgeinput.Click, tbknowledgeinputicon.Click, tbknowledgeinputtext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Knowledge_Input) + End If + End Sub + + Private Sub pnlpanelbuttonpong_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonpong.Click, tbpongicon.Click, tbpongtext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Pong) + End If + End Sub + + Private Sub pnlpanelbuttonshifter_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshifter.Click, tbshiftericon.Click, tbshiftertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Shifter) + End If + End Sub + + Private Sub pnlpanelbuttonshiftorium_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshiftorium.Click, tbshiftoriumicon.Click, tbshiftoriumtext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Shiftorium) + End If + End Sub + + Private Sub pnlpanelbuttonskinloader_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonskinloader.Click, tbskinloadericon.Click, tbskinloadertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Skin_Loader) + End If + End Sub + + Private Sub pnlpanelbuttonterminal_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonterminal.Click, tbterminalicon.Click, tbterminaltext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Terminal) + End If + End Sub + + Private Sub pnlpanelbuttontextpad_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttontextpad.Click, tbtextpadicon.Click, tbtextpadtext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(TextPad) + End If + End Sub + + Private Sub pnlpanelbuttonartpad_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonartpad.Click, tbartpadicon.Click, tbartpadtext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(ArtPad) + End If + End Sub + + Private Sub pnlpanelbuttoncalculator_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoncalculator.Click, tbcalculatoricon.Click, tbcalculatortext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Calculator) + End If + End Sub + + Private Sub pnlpanelbuttonaudioplayer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonaudioplayer.Click, tbaudioplayericon.Click, tbaudioplayertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Audio_Player) + End If + End Sub + + Private Sub pnlpanelbuttonwebbrowser_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonwebbrowser.Click, tbwebbrowsericon.Click, tbwebbrowsertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Web_Browser) + End If + End Sub + + Private Sub pnlpanelbuttonvideoplayer_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonvideoplayer.Click, tbvideoplayericon.Click, tbvideoplayertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Video_Player) + End If + End Sub + + Private Sub pnlpanelbuttonnamechanger_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonnamechanger.Click, tbnamechangericon.Click, tbnamechangertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Name_Changer) + End If + End Sub + + Private Sub pnlpanelbuttoniconmanager_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttoniconmanager.Click, tbiconmanagericon.Click, tbiconmanagertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Icon_Manager) + End If + End Sub + + Private Sub pnlpanelbuttonbitnotewallet_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonbitnotewallet.Click, tbbitnotewalleticon.Click, tbbitnotewallettext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Bitnote_Wallet) + End If + End Sub + + Private Sub pnlpanelbuttonbitnotedigger_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonbitnotedigger.Click, tbbitnotediggericon.Click, tbbitnotediggertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Bitnote_Digger) + End If + End Sub + + Private Sub pnlpanelbuttonskinshifter_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonskinshifter.Click, tbskinshiftericon.Click, tbskinshiftertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Skinshifter) + End If + End Sub + + Private Sub pnlpanelbuttonShiftnet_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttonshiftnet.Click, tbshiftneticon.Click, tbshiftnettext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Shiftnet) + End If + End Sub + + Private Sub pnlpanelbuttonDownloader_Click(sender As Object, e As EventArgs) Handles pnlpanelbuttondownloader.Click, tbdownloadericon.Click, tbdownloadertext.Click + If boughtusefulpanelbuttons = True Then + minimizeprogram(Downloader) + End If + End Sub +End Class \ No newline at end of file diff --git a/ShiftOSLogo.ico b/ShiftOSLogo.ico new file mode 100644 index 0000000..5840b3c Binary files /dev/null and b/ShiftOSLogo.ico differ diff --git a/Shifter.Designer.vb b/Shifter.Designer.vb new file mode 100644 index 0000000..ce5fe1e --- /dev/null +++ b/Shifter.Designer.vb @@ -0,0 +1,3690 @@ + _ +Partial Class Shifter + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Shifter)) + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.ColorDialog1 = New System.Windows.Forms.ColorDialog() + Me.clocktick = New System.Windows.Forms.Timer(Me.components) + Me.customizationtime = New System.Windows.Forms.Timer(Me.components) + Me.timerearned = New System.Windows.Forms.Timer(Me.components) + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnapply = New System.Windows.Forms.Button() + Me.catholder = New System.Windows.Forms.Panel() + Me.btnreset = New System.Windows.Forms.Button() + Me.btnprograms = New System.Windows.Forms.Button() + Me.btnicons = New System.Windows.Forms.Button() + Me.btnwindows = New System.Windows.Forms.Button() + Me.btndesktop = New System.Windows.Forms.Button() + Me.pnlshifterintro = New System.Windows.Forms.Panel() + Me.Label66 = New System.Windows.Forms.Label() + Me.Label65 = New System.Windows.Forms.Label() + Me.Label64 = New System.Windows.Forms.Label() + Me.Label63 = New System.Windows.Forms.Label() + Me.pnldesktopoptions = New System.Windows.Forms.Panel() + Me.pnlpanelbuttonsoptions = New System.Windows.Forms.Panel() + Me.pnlpanelbuttontextcolour = New System.Windows.Forms.Panel() + Me.Label101 = New System.Windows.Forms.Label() + Me.txtpanelbuttontexttop = New System.Windows.Forms.TextBox() + Me.Label104 = New System.Windows.Forms.Label() + Me.txtpanelbuttontextside = New System.Windows.Forms.TextBox() + Me.Label106 = New System.Windows.Forms.Label() + Me.Label93 = New System.Windows.Forms.Label() + Me.txtpanelbuttontop = New System.Windows.Forms.TextBox() + Me.Label94 = New System.Windows.Forms.Label() + Me.txtpanelbuttoninitalgap = New System.Windows.Forms.TextBox() + Me.Label108 = New System.Windows.Forms.Label() + Me.txtpanelbuttonicontop = New System.Windows.Forms.TextBox() + Me.Label110 = New System.Windows.Forms.Label() + Me.txtpanelbuttoniconside = New System.Windows.Forms.TextBox() + Me.Label112 = New System.Windows.Forms.Label() + Me.txtpanelbuttoniconsize = New System.Windows.Forms.TextBox() + Me.Label105 = New System.Windows.Forms.Label() + Me.cbpanelbuttontextstyle = New System.Windows.Forms.ComboBox() + Me.cbpanelbuttonfont = New System.Windows.Forms.ComboBox() + Me.Label100 = New System.Windows.Forms.Label() + Me.txtpaneltextbuttonsize = New System.Windows.Forms.TextBox() + Me.Label102 = New System.Windows.Forms.Label() + Me.Label103 = New System.Windows.Forms.Label() + Me.Label98 = New System.Windows.Forms.Label() + Me.txtpanelbuttongap = New System.Windows.Forms.TextBox() + Me.Label99 = New System.Windows.Forms.Label() + Me.Label96 = New System.Windows.Forms.Label() + Me.txtpanelbuttonheight = New System.Windows.Forms.TextBox() + Me.Label97 = New System.Windows.Forms.Label() + Me.Label92 = New System.Windows.Forms.Label() + Me.txtpanelbuttonwidth = New System.Windows.Forms.TextBox() + Me.Label91 = New System.Windows.Forms.Label() + Me.pnlpanelbuttoncolour = New System.Windows.Forms.Panel() + Me.Label95 = New System.Windows.Forms.Label() + Me.pnldesktoppaneloptions = New System.Windows.Forms.Panel() + Me.btnpanelbuttons = New System.Windows.Forms.Button() + Me.Label27 = New System.Windows.Forms.Label() + Me.combodesktoppanelposition = New System.Windows.Forms.ComboBox() + Me.Label46 = New System.Windows.Forms.Label() + Me.Label47 = New System.Windows.Forms.Label() + Me.txtdesktoppanelheight = New System.Windows.Forms.TextBox() + Me.Label48 = New System.Windows.Forms.Label() + Me.pnldesktoppanelcolour = New System.Windows.Forms.Panel() + Me.Label49 = New System.Windows.Forms.Label() + Me.pnlapplauncheroptions = New System.Windows.Forms.Panel() + Me.Label71 = New System.Windows.Forms.Label() + Me.txtapplauncherwidth = New System.Windows.Forms.TextBox() + Me.Label72 = New System.Windows.Forms.Label() + Me.txtappbuttonlabel = New System.Windows.Forms.TextBox() + Me.Label51 = New System.Windows.Forms.Label() + Me.Label50 = New System.Windows.Forms.Label() + Me.pnlmaintextcolour = New System.Windows.Forms.Panel() + Me.comboappbuttontextstyle = New System.Windows.Forms.ComboBox() + Me.comboappbuttontextfont = New System.Windows.Forms.ComboBox() + Me.Label37 = New System.Windows.Forms.Label() + Me.Label38 = New System.Windows.Forms.Label() + Me.txtappbuttontextsize = New System.Windows.Forms.TextBox() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label40 = New System.Windows.Forms.Label() + Me.pnlmenuitemsmouseover = New System.Windows.Forms.Panel() + Me.Label41 = New System.Windows.Forms.Label() + Me.pnlmenuitemscolour = New System.Windows.Forms.Panel() + Me.Label42 = New System.Windows.Forms.Label() + Me.pnlmainbuttonactivated = New System.Windows.Forms.Panel() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.txtapplicationsbuttonheight = New System.Windows.Forms.TextBox() + Me.Label36 = New System.Windows.Forms.Label() + Me.pnlmainbuttoncolour = New System.Windows.Forms.Panel() + Me.Label43 = New System.Windows.Forms.Label() + Me.pnldesktopintro = New System.Windows.Forms.Panel() + Me.Label69 = New System.Windows.Forms.Label() + Me.Label70 = New System.Windows.Forms.Label() + Me.pnlpanelclockoptions = New System.Windows.Forms.Panel() + Me.pnlclockbackgroundcolour = New System.Windows.Forms.Panel() + Me.Label44 = New System.Windows.Forms.Label() + Me.comboclocktextstyle = New System.Windows.Forms.ComboBox() + Me.comboclocktextfont = New System.Windows.Forms.ComboBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label29 = New System.Windows.Forms.Label() + Me.txtclocktextfromtop = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.txtclocktextsize = New System.Windows.Forms.TextBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.pnlpanelclocktextcolour = New System.Windows.Forms.Panel() + Me.Label34 = New System.Windows.Forms.Label() + Me.pnldesktopbackgroundoptions = New System.Windows.Forms.Panel() + Me.pnldesktopcolour = New System.Windows.Forms.Panel() + Me.Label45 = New System.Windows.Forms.Label() + Me.Panel10 = New System.Windows.Forms.Panel() + Me.btndesktopitself = New System.Windows.Forms.Button() + Me.btnpanelclock = New System.Windows.Forms.Button() + Me.btnapplauncher = New System.Windows.Forms.Button() + Me.btndesktoppanel = New System.Windows.Forms.Button() + Me.pnldesktoppreview = New System.Windows.Forms.Panel() + Me.predesktoppanel = New System.Windows.Forms.Panel() + Me.prepnlpanelbuttonholder = New System.Windows.Forms.FlowLayoutPanel() + Me.prepnlpanelbutton = New System.Windows.Forms.Panel() + Me.pretbicon = New System.Windows.Forms.PictureBox() + Me.pretbctext = New System.Windows.Forms.Label() + Me.pretimepanel = New System.Windows.Forms.Panel() + Me.prepaneltimetext = New System.Windows.Forms.Label() + Me.preapplaunchermenuholder = New System.Windows.Forms.Panel() + Me.predesktopappmenu = New System.Windows.Forms.MenuStrip() + Me.ApplicationsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KnowledgeInputToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShiftoriumToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClockToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TerminalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShifterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtpanelbuttoniconheight = New System.Windows.Forms.TextBox() + Me.pnlwindowsoptions = New System.Windows.Forms.Panel() + Me.pnlbuttonoptions = New System.Windows.Forms.Panel() + Me.pnlminimizebuttonoptions = New System.Windows.Forms.Panel() + Me.Label82 = New System.Windows.Forms.Label() + Me.Label83 = New System.Windows.Forms.Label() + Me.pnlminimizebuttoncolour = New System.Windows.Forms.Panel() + Me.txtminimizebuttonside = New System.Windows.Forms.TextBox() + Me.Label84 = New System.Windows.Forms.Label() + Me.Label85 = New System.Windows.Forms.Label() + Me.txtminimizebuttonheight = New System.Windows.Forms.TextBox() + Me.Label86 = New System.Windows.Forms.Label() + Me.Label87 = New System.Windows.Forms.Label() + Me.txtminimizebuttontop = New System.Windows.Forms.TextBox() + Me.Label88 = New System.Windows.Forms.Label() + Me.Label89 = New System.Windows.Forms.Label() + Me.txtminimizebuttonwidth = New System.Windows.Forms.TextBox() + Me.Label90 = New System.Windows.Forms.Label() + Me.pnlrollupbuttonoptions = New System.Windows.Forms.Panel() + Me.Label54 = New System.Windows.Forms.Label() + Me.Label55 = New System.Windows.Forms.Label() + Me.pnlrollupbuttoncolour = New System.Windows.Forms.Panel() + Me.txtrollupbuttonside = New System.Windows.Forms.TextBox() + Me.Label56 = New System.Windows.Forms.Label() + Me.Label57 = New System.Windows.Forms.Label() + Me.txtrollupbuttonheight = New System.Windows.Forms.TextBox() + Me.Label58 = New System.Windows.Forms.Label() + Me.Label59 = New System.Windows.Forms.Label() + Me.txtrollupbuttontop = New System.Windows.Forms.TextBox() + Me.Label60 = New System.Windows.Forms.Label() + Me.Label61 = New System.Windows.Forms.Label() + Me.txtrollupbuttonwidth = New System.Windows.Forms.TextBox() + Me.Label62 = New System.Windows.Forms.Label() + Me.combobuttonoption = New System.Windows.Forms.ComboBox() + Me.Label52 = New System.Windows.Forms.Label() + Me.pnlclosebuttonoptions = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.pnlclosebuttoncolour = New System.Windows.Forms.Panel() + Me.txtclosebuttonfromside = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtclosebuttonheight = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtclosebuttonfromtop = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtclosebuttonwidth = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.pnltitlebaroptions = New System.Windows.Forms.Panel() + Me.Label80 = New System.Windows.Forms.Label() + Me.txticonfromtop = New System.Windows.Forms.TextBox() + Me.Label81 = New System.Windows.Forms.Label() + Me.Label78 = New System.Windows.Forms.Label() + Me.txticonfromside = New System.Windows.Forms.TextBox() + Me.Label79 = New System.Windows.Forms.Label() + Me.lbcornerwidthpx = New System.Windows.Forms.Label() + Me.txttitlebarcornerwidth = New System.Windows.Forms.TextBox() + Me.lbcornerwidth = New System.Windows.Forms.Label() + Me.pnltitlebarrightcornercolour = New System.Windows.Forms.Panel() + Me.pnltitlebarleftcornercolour = New System.Windows.Forms.Panel() + Me.lbrightcornercolor = New System.Windows.Forms.Label() + Me.lbleftcornercolor = New System.Windows.Forms.Label() + Me.cboxtitlebarcorners = New System.Windows.Forms.CheckBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txttitlebarheight = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.pnltitlebarcolour = New System.Windows.Forms.Panel() + Me.Label2 = New System.Windows.Forms.Label() + Me.pnlborderoptions = New System.Windows.Forms.Panel() + Me.cbindividualbordercolours = New System.Windows.Forms.CheckBox() + Me.pnlborderbottomrightcolour = New System.Windows.Forms.Panel() + Me.Label77 = New System.Windows.Forms.Label() + Me.pnlborderbottomcolour = New System.Windows.Forms.Panel() + Me.Label76 = New System.Windows.Forms.Label() + Me.pnlborderbottomleftcolour = New System.Windows.Forms.Panel() + Me.Label75 = New System.Windows.Forms.Label() + Me.pnlborderrightcolour = New System.Windows.Forms.Panel() + Me.Label74 = New System.Windows.Forms.Label() + Me.pnlborderleftcolour = New System.Windows.Forms.Panel() + Me.Label73 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.pnlbordercolour = New System.Windows.Forms.Panel() + Me.txtbordersize = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.pnltitletextoptions = New System.Windows.Forms.Panel() + Me.combotitletextposition = New System.Windows.Forms.ComboBox() + Me.Label53 = New System.Windows.Forms.Label() + Me.combotitletextstyle = New System.Windows.Forms.ComboBox() + Me.combotitletextfont = New System.Windows.Forms.ComboBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.txttitletextside = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.txttitletexttop = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.txttitletextsize = New System.Windows.Forms.TextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.pnltitletextcolour = New System.Windows.Forms.Panel() + Me.Label25 = New System.Windows.Forms.Label() + Me.pnlwindowsintro = New System.Windows.Forms.Panel() + Me.Label68 = New System.Windows.Forms.Label() + Me.Label67 = New System.Windows.Forms.Label() + Me.pnlwindowsobjects = New System.Windows.Forms.Panel() + Me.btnborders = New System.Windows.Forms.Button() + Me.btnbuttons = New System.Windows.Forms.Button() + Me.btntitletext = New System.Windows.Forms.Button() + Me.btntitlebar = New System.Windows.Forms.Button() + Me.pnlwindowpreview = New System.Windows.Forms.Panel() + Me.prepgcontent = New System.Windows.Forms.Panel() + Me.prepgbottom = New System.Windows.Forms.Panel() + Me.prepgleft = New System.Windows.Forms.Panel() + Me.prepgbottomlcorner = New System.Windows.Forms.Panel() + Me.prepgright = New System.Windows.Forms.Panel() + Me.prepgbottomrcorner = New System.Windows.Forms.Panel() + Me.pretitlebar = New System.Windows.Forms.Panel() + Me.preminimizebutton = New System.Windows.Forms.Panel() + Me.prepnlicon = New System.Windows.Forms.PictureBox() + Me.prerollupbutton = New System.Windows.Forms.Panel() + Me.preclosebutton = New System.Windows.Forms.Panel() + Me.pretitletext = New System.Windows.Forms.Label() + Me.prepgtoplcorner = New System.Windows.Forms.Panel() + Me.prepgtoprcorner = New System.Windows.Forms.Panel() + Me.pnlreset = New System.Windows.Forms.Panel() + Me.Label113 = New System.Windows.Forms.Label() + Me.btnresetallsettings = New System.Windows.Forms.Button() + Me.Label109 = New System.Windows.Forms.Label() + Me.Label111 = New System.Windows.Forms.Label() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.tmrfix = New System.Windows.Forms.Timer(Me.components) + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.catholder.SuspendLayout() + Me.pnlshifterintro.SuspendLayout() + Me.pnldesktopoptions.SuspendLayout() + Me.pnlpanelbuttonsoptions.SuspendLayout() + Me.pnldesktoppaneloptions.SuspendLayout() + Me.pnlapplauncheroptions.SuspendLayout() + Me.pnldesktopintro.SuspendLayout() + Me.pnlpanelclockoptions.SuspendLayout() + Me.pnldesktopbackgroundoptions.SuspendLayout() + Me.Panel10.SuspendLayout() + Me.pnldesktoppreview.SuspendLayout() + Me.predesktoppanel.SuspendLayout() + Me.prepnlpanelbuttonholder.SuspendLayout() + Me.prepnlpanelbutton.SuspendLayout() + CType(Me.pretbicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pretimepanel.SuspendLayout() + Me.preapplaunchermenuholder.SuspendLayout() + Me.predesktopappmenu.SuspendLayout() + Me.pnlwindowsoptions.SuspendLayout() + Me.pnlbuttonoptions.SuspendLayout() + Me.pnlminimizebuttonoptions.SuspendLayout() + Me.pnlrollupbuttonoptions.SuspendLayout() + Me.pnlclosebuttonoptions.SuspendLayout() + Me.pnltitlebaroptions.SuspendLayout() + Me.pnlborderoptions.SuspendLayout() + Me.pnltitletextoptions.SuspendLayout() + Me.pnlwindowsintro.SuspendLayout() + Me.pnlwindowsobjects.SuspendLayout() + Me.pnlwindowpreview.SuspendLayout() + Me.prepgleft.SuspendLayout() + Me.prepgright.SuspendLayout() + Me.pretitlebar.SuspendLayout() + CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlreset.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.SuspendLayout() + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 309) + Me.pgleft.TabIndex = 27 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 307) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(598, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 309) + Me.pgright.TabIndex = 28 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 307) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 337) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(596, 2) + Me.pgbottom.TabIndex = 29 + ' + 'clocktick + ' + Me.clocktick.Enabled = True + Me.clocktick.Interval = 1000 + ' + 'customizationtime + ' + Me.customizationtime.Enabled = True + Me.customizationtime.Interval = 10000 + ' + 'timerearned + ' + Me.timerearned.Interval = 3000 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(600, 30) + Me.titlebar.TabIndex = 25 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 30 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconShifter + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 31 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 5) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 30 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(74, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Shifter" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(597, 3) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(39, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Label1" + ' + 'btnapply + ' + Me.btnapply.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnapply.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnapply.Location = New System.Drawing.Point(7, 270) + Me.btnapply.Name = "btnapply" + Me.btnapply.Size = New System.Drawing.Size(119, 29) + Me.btnapply.TabIndex = 3 + Me.btnapply.TabStop = False + Me.btnapply.Text = "Apply Changes" + Me.btnapply.UseVisualStyleBackColor = True + ' + 'catholder + ' + Me.catholder.BackColor = System.Drawing.Color.White + Me.catholder.Controls.Add(Me.btnreset) + Me.catholder.Controls.Add(Me.btnprograms) + Me.catholder.Controls.Add(Me.btnicons) + Me.catholder.Controls.Add(Me.btnwindows) + Me.catholder.Controls.Add(Me.btndesktop) + Me.catholder.Location = New System.Drawing.Point(7, 9) + Me.catholder.Name = "catholder" + Me.catholder.Size = New System.Drawing.Size(119, 255) + Me.catholder.TabIndex = 5 + ' + 'btnreset + ' + Me.btnreset.BackColor = System.Drawing.Color.White + Me.btnreset.Dock = System.Windows.Forms.DockStyle.Top + Me.btnreset.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnreset.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnreset.Location = New System.Drawing.Point(0, 116) + Me.btnreset.Name = "btnreset" + Me.btnreset.Size = New System.Drawing.Size(119, 29) + Me.btnreset.TabIndex = 8 + Me.btnreset.TabStop = False + Me.btnreset.Text = "Reset" + Me.btnreset.UseVisualStyleBackColor = False + ' + 'btnprograms + ' + Me.btnprograms.BackColor = System.Drawing.Color.White + Me.btnprograms.Dock = System.Windows.Forms.DockStyle.Top + Me.btnprograms.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnprograms.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnprograms.Location = New System.Drawing.Point(0, 87) + Me.btnprograms.Name = "btnprograms" + Me.btnprograms.Size = New System.Drawing.Size(119, 29) + Me.btnprograms.TabIndex = 7 + Me.btnprograms.TabStop = False + Me.btnprograms.Text = "Programs" + Me.btnprograms.UseVisualStyleBackColor = False + Me.btnprograms.Visible = False + ' + 'btnicons + ' + Me.btnicons.BackColor = System.Drawing.Color.White + Me.btnicons.Dock = System.Windows.Forms.DockStyle.Top + Me.btnicons.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnicons.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnicons.Location = New System.Drawing.Point(0, 58) + Me.btnicons.Name = "btnicons" + Me.btnicons.Size = New System.Drawing.Size(119, 29) + Me.btnicons.TabIndex = 6 + Me.btnicons.TabStop = False + Me.btnicons.Text = "Icons" + Me.btnicons.UseVisualStyleBackColor = False + Me.btnicons.Visible = False + ' + 'btnwindows + ' + Me.btnwindows.BackColor = System.Drawing.Color.White + Me.btnwindows.Dock = System.Windows.Forms.DockStyle.Top + Me.btnwindows.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnwindows.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnwindows.Location = New System.Drawing.Point(0, 29) + Me.btnwindows.Name = "btnwindows" + Me.btnwindows.Size = New System.Drawing.Size(119, 29) + Me.btnwindows.TabIndex = 5 + Me.btnwindows.TabStop = False + Me.btnwindows.Text = "Windows" + Me.btnwindows.UseVisualStyleBackColor = False + ' + 'btndesktop + ' + Me.btndesktop.BackColor = System.Drawing.Color.White + Me.btndesktop.Dock = System.Windows.Forms.DockStyle.Top + Me.btndesktop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndesktop.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndesktop.Location = New System.Drawing.Point(0, 0) + Me.btndesktop.Name = "btndesktop" + Me.btndesktop.Size = New System.Drawing.Size(119, 29) + Me.btndesktop.TabIndex = 4 + Me.btndesktop.TabStop = False + Me.btndesktop.Text = "Desktop" + Me.btndesktop.UseVisualStyleBackColor = False + ' + 'pnlshifterintro + ' + Me.pnlshifterintro.BackColor = System.Drawing.Color.White + Me.pnlshifterintro.Controls.Add(Me.Label66) + Me.pnlshifterintro.Controls.Add(Me.Label65) + Me.pnlshifterintro.Controls.Add(Me.Label64) + Me.pnlshifterintro.Controls.Add(Me.Label63) + Me.pnlshifterintro.Location = New System.Drawing.Point(519, 256) + Me.pnlshifterintro.Name = "pnlshifterintro" + Me.pnlshifterintro.Size = New System.Drawing.Size(72, 47) + Me.pnlshifterintro.TabIndex = 17 + ' + 'Label66 + ' + Me.Label66.BackColor = System.Drawing.Color.Transparent + Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label66.Location = New System.Drawing.Point(3, 227) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(451, 65) + Me.Label66.TabIndex = 3 + Me.Label66.Text = resources.GetString("Label66.Text") + Me.Label66.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label65 + ' + Me.Label65.AutoSize = True + Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label65.Location = New System.Drawing.Point(53, 204) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(352, 20) + Me.Label65.TabIndex = 2 + Me.Label65.Text = "You can earn codepoints using the Shifter!" + ' + 'Label64 + ' + Me.Label64.BackColor = System.Drawing.Color.Transparent + Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label64.Location = New System.Drawing.Point(4, 32) + Me.Label64.Name = "Label64" + Me.Label64.Size = New System.Drawing.Size(451, 163) + Me.Label64.TabIndex = 1 + Me.Label64.Text = resources.GetString("Label64.Text") + Me.Label64.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label63 + ' + Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label63.Location = New System.Drawing.Point(72, 0) + Me.Label63.Name = "Label63" + Me.Label63.Size = New System.Drawing.Size(332, 29) + Me.Label63.TabIndex = 0 + Me.Label63.Text = "Welcome to the Shifter!" + ' + 'pnldesktopoptions + ' + Me.pnldesktopoptions.BackColor = System.Drawing.Color.White + Me.pnldesktopoptions.Controls.Add(Me.pnlpanelbuttonsoptions) + Me.pnldesktopoptions.Controls.Add(Me.pnldesktoppaneloptions) + Me.pnldesktopoptions.Controls.Add(Me.pnlapplauncheroptions) + Me.pnldesktopoptions.Controls.Add(Me.pnldesktopintro) + Me.pnldesktopoptions.Controls.Add(Me.pnlpanelclockoptions) + Me.pnldesktopoptions.Controls.Add(Me.pnldesktopbackgroundoptions) + Me.pnldesktopoptions.Controls.Add(Me.Panel10) + Me.pnldesktopoptions.Controls.Add(Me.pnldesktoppreview) + Me.pnldesktopoptions.Location = New System.Drawing.Point(134, 9) + Me.pnldesktopoptions.Name = "pnldesktopoptions" + Me.pnldesktopoptions.Size = New System.Drawing.Size(457, 292) + Me.pnldesktopoptions.TabIndex = 16 + Me.pnldesktopoptions.Visible = False + ' + 'pnlpanelbuttonsoptions + ' + Me.pnlpanelbuttonsoptions.Controls.Add(Me.pnlpanelbuttontextcolour) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label101) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttontexttop) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label104) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttontextside) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label106) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label93) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttontop) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label94) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttoninitalgap) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label108) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttonicontop) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label110) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttoniconside) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label112) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttoniconsize) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label105) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.cbpanelbuttontextstyle) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.cbpanelbuttonfont) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label100) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpaneltextbuttonsize) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label102) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label103) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label98) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttongap) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label99) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label96) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttonheight) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label97) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label92) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.txtpanelbuttonwidth) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label91) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.pnlpanelbuttoncolour) + Me.pnlpanelbuttonsoptions.Controls.Add(Me.Label95) + Me.pnlpanelbuttonsoptions.Location = New System.Drawing.Point(135, 159) + Me.pnlpanelbuttonsoptions.Name = "pnlpanelbuttonsoptions" + Me.pnlpanelbuttonsoptions.Size = New System.Drawing.Size(317, 134) + Me.pnlpanelbuttonsoptions.TabIndex = 10 + Me.pnlpanelbuttonsoptions.Visible = False + ' + 'pnlpanelbuttontextcolour + ' + Me.pnlpanelbuttontextcolour.Location = New System.Drawing.Point(270, 57) + Me.pnlpanelbuttontextcolour.Name = "pnlpanelbuttontextcolour" + Me.pnlpanelbuttontextcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlpanelbuttontextcolour.TabIndex = 50 + ' + 'Label101 + ' + Me.Label101.AutoSize = True + Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label101.Location = New System.Drawing.Point(219, 59) + Me.Label101.Name = "Label101" + Me.Label101.Size = New System.Drawing.Size(50, 16) + Me.Label101.TabIndex = 49 + Me.Label101.Text = "Colour:" + ' + 'txtpanelbuttontexttop + ' + Me.txtpanelbuttontexttop.BackColor = System.Drawing.Color.White + Me.txtpanelbuttontexttop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttontexttop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttontexttop.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttontexttop.Location = New System.Drawing.Point(225, 82) + Me.txtpanelbuttontexttop.Name = "txtpanelbuttontexttop" + Me.txtpanelbuttontexttop.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttontexttop.TabIndex = 48 + ' + 'Label104 + ' + Me.Label104.AutoSize = True + Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label104.Location = New System.Drawing.Point(191, 84) + Me.Label104.Name = "Label104" + Me.Label104.Size = New System.Drawing.Size(36, 16) + Me.Label104.TabIndex = 47 + Me.Label104.Text = "Top:" + ' + 'txtpanelbuttontextside + ' + Me.txtpanelbuttontextside.BackColor = System.Drawing.Color.White + Me.txtpanelbuttontextside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttontextside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttontextside.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttontextside.Location = New System.Drawing.Point(165, 82) + Me.txtpanelbuttontextside.Name = "txtpanelbuttontextside" + Me.txtpanelbuttontextside.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttontextside.TabIndex = 46 + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label106.Location = New System.Drawing.Point(128, 84) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(39, 16) + Me.Label106.TabIndex = 45 + Me.Label106.Text = "Side:" + ' + 'Label93 + ' + Me.Label93.AutoSize = True + Me.Label93.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label93.Location = New System.Drawing.Point(292, 7) + Me.Label93.Name = "Label93" + Me.Label93.Size = New System.Drawing.Size(22, 16) + Me.Label93.TabIndex = 43 + Me.Label93.Text = "px" + ' + 'txtpanelbuttontop + ' + Me.txtpanelbuttontop.BackColor = System.Drawing.Color.White + Me.txtpanelbuttontop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttontop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttontop.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttontop.Location = New System.Drawing.Point(268, 5) + Me.txtpanelbuttontop.Name = "txtpanelbuttontop" + Me.txtpanelbuttontop.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttontop.TabIndex = 42 + ' + 'Label94 + ' + Me.Label94.AutoSize = True + Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label94.Location = New System.Drawing.Point(233, 7) + Me.Label94.Name = "Label94" + Me.Label94.Size = New System.Drawing.Size(36, 16) + Me.Label94.TabIndex = 41 + Me.Label94.Text = "Top:" + ' + 'txtpanelbuttoninitalgap + ' + Me.txtpanelbuttoninitalgap.BackColor = System.Drawing.Color.White + Me.txtpanelbuttoninitalgap.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttoninitalgap.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttoninitalgap.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttoninitalgap.Location = New System.Drawing.Point(207, 5) + Me.txtpanelbuttoninitalgap.Name = "txtpanelbuttoninitalgap" + Me.txtpanelbuttoninitalgap.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttoninitalgap.TabIndex = 40 + ' + 'Label108 + ' + Me.Label108.AutoSize = True + Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label108.Location = New System.Drawing.Point(137, 7) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(70, 16) + Me.Label108.TabIndex = 39 + Me.Label108.Text = "Initial Gap:" + ' + 'txtpanelbuttonicontop + ' + Me.txtpanelbuttonicontop.BackColor = System.Drawing.Color.White + Me.txtpanelbuttonicontop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttonicontop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttonicontop.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttonicontop.Location = New System.Drawing.Point(287, 108) + Me.txtpanelbuttonicontop.Name = "txtpanelbuttonicontop" + Me.txtpanelbuttonicontop.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttonicontop.TabIndex = 37 + ' + 'Label110 + ' + Me.Label110.AutoSize = True + Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label110.Location = New System.Drawing.Point(221, 110) + Me.Label110.Name = "Label110" + Me.Label110.Size = New System.Drawing.Size(64, 16) + Me.Label110.TabIndex = 36 + Me.Label110.Text = "Icon Top:" + ' + 'txtpanelbuttoniconside + ' + Me.txtpanelbuttoniconside.BackColor = System.Drawing.Color.White + Me.txtpanelbuttoniconside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttoniconside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttoniconside.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttoniconside.Location = New System.Drawing.Point(180, 108) + Me.txtpanelbuttoniconside.Name = "txtpanelbuttoniconside" + Me.txtpanelbuttoniconside.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttoniconside.TabIndex = 34 + ' + 'Label112 + ' + Me.Label112.AutoSize = True + Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label112.Location = New System.Drawing.Point(113, 110) + Me.Label112.Name = "Label112" + Me.Label112.Size = New System.Drawing.Size(67, 16) + Me.Label112.TabIndex = 33 + Me.Label112.Text = "Icon Side:" + ' + 'txtpanelbuttoniconsize + ' + Me.txtpanelbuttoniconsize.BackColor = System.Drawing.Color.White + Me.txtpanelbuttoniconsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttoniconsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttoniconsize.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttoniconsize.Location = New System.Drawing.Point(70, 108) + Me.txtpanelbuttoniconsize.Name = "txtpanelbuttoniconsize" + Me.txtpanelbuttoniconsize.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttoniconsize.TabIndex = 27 + ' + 'Label105 + ' + Me.Label105.AutoSize = True + Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label105.Location = New System.Drawing.Point(3, 110) + Me.Label105.Name = "Label105" + Me.Label105.Size = New System.Drawing.Size(65, 16) + Me.Label105.TabIndex = 26 + Me.Label105.Text = "Icon Size:" + ' + 'cbpanelbuttontextstyle + ' + Me.cbpanelbuttontextstyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbpanelbuttontextstyle.FormattingEnabled = True + Me.cbpanelbuttontextstyle.Items.AddRange(New Object() {"Bold", "Italic", "Regular", "Strikeout", "Underline"}) + Me.cbpanelbuttontextstyle.Location = New System.Drawing.Point(46, 83) + Me.cbpanelbuttontextstyle.Name = "cbpanelbuttontextstyle" + Me.cbpanelbuttontextstyle.Size = New System.Drawing.Size(80, 24) + Me.cbpanelbuttontextstyle.TabIndex = 25 + ' + 'cbpanelbuttonfont + ' + Me.cbpanelbuttonfont.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbpanelbuttonfont.FormattingEnabled = True + Me.cbpanelbuttonfont.Location = New System.Drawing.Point(70, 56) + Me.cbpanelbuttonfont.Name = "cbpanelbuttonfont" + Me.cbpanelbuttonfont.Size = New System.Drawing.Size(147, 24) + Me.cbpanelbuttonfont.TabIndex = 24 + ' + 'Label100 + ' + Me.Label100.AutoSize = True + Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label100.Location = New System.Drawing.Point(3, 86) + Me.Label100.Name = "Label100" + Me.Label100.Size = New System.Drawing.Size(41, 16) + Me.Label100.TabIndex = 23 + Me.Label100.Text = "Style:" + ' + 'txtpaneltextbuttonsize + ' + Me.txtpaneltextbuttonsize.BackColor = System.Drawing.Color.White + Me.txtpaneltextbuttonsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpaneltextbuttonsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpaneltextbuttonsize.ForeColor = System.Drawing.Color.Black + Me.txtpaneltextbuttonsize.Location = New System.Drawing.Point(287, 82) + Me.txtpaneltextbuttonsize.Name = "txtpaneltextbuttonsize" + Me.txtpaneltextbuttonsize.Size = New System.Drawing.Size(23, 22) + Me.txtpaneltextbuttonsize.TabIndex = 21 + ' + 'Label102 + ' + Me.Label102.AutoSize = True + Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label102.Location = New System.Drawing.Point(252, 84) + Me.Label102.Name = "Label102" + Me.Label102.Size = New System.Drawing.Size(37, 16) + Me.Label102.TabIndex = 20 + Me.Label102.Text = "Size:" + ' + 'Label103 + ' + Me.Label103.AutoSize = True + Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label103.Location = New System.Drawing.Point(3, 60) + Me.Label103.Name = "Label103" + Me.Label103.Size = New System.Drawing.Size(66, 16) + Me.Label103.TabIndex = 19 + Me.Label103.Text = "Text Font:" + ' + 'Label98 + ' + Me.Label98.AutoSize = True + Me.Label98.BackColor = System.Drawing.Color.Transparent + Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label98.Location = New System.Drawing.Point(292, 33) + Me.Label98.Name = "Label98" + Me.Label98.Size = New System.Drawing.Size(22, 16) + Me.Label98.TabIndex = 14 + Me.Label98.Text = "px" + ' + 'txtpanelbuttongap + ' + Me.txtpanelbuttongap.BackColor = System.Drawing.Color.White + Me.txtpanelbuttongap.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttongap.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttongap.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttongap.Location = New System.Drawing.Point(268, 31) + Me.txtpanelbuttongap.Name = "txtpanelbuttongap" + Me.txtpanelbuttongap.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttongap.TabIndex = 13 + ' + 'Label99 + ' + Me.Label99.AutoSize = True + Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label99.Location = New System.Drawing.Point(232, 33) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(37, 16) + Me.Label99.TabIndex = 12 + Me.Label99.Text = "Gap:" + ' + 'Label96 + ' + Me.Label96.AutoSize = True + Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label96.Location = New System.Drawing.Point(209, 34) + Me.Label96.Name = "Label96" + Me.Label96.Size = New System.Drawing.Size(22, 16) + Me.Label96.TabIndex = 11 + Me.Label96.Text = "px" + ' + 'txtpanelbuttonheight + ' + Me.txtpanelbuttonheight.BackColor = System.Drawing.Color.White + Me.txtpanelbuttonheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttonheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttonheight.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttonheight.Location = New System.Drawing.Point(185, 32) + Me.txtpanelbuttonheight.Name = "txtpanelbuttonheight" + Me.txtpanelbuttonheight.Size = New System.Drawing.Size(23, 22) + Me.txtpanelbuttonheight.TabIndex = 10 + ' + 'Label97 + ' + Me.Label97.AutoSize = True + Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label97.Location = New System.Drawing.Point(135, 34) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(50, 16) + Me.Label97.TabIndex = 9 + Me.Label97.Text = "Height:" + ' + 'Label92 + ' + Me.Label92.AutoSize = True + Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label92.Location = New System.Drawing.Point(114, 33) + Me.Label92.Name = "Label92" + Me.Label92.Size = New System.Drawing.Size(22, 16) + Me.Label92.TabIndex = 8 + Me.Label92.Text = "px" + ' + 'txtpanelbuttonwidth + ' + Me.txtpanelbuttonwidth.BackColor = System.Drawing.Color.White + Me.txtpanelbuttonwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtpanelbuttonwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpanelbuttonwidth.ForeColor = System.Drawing.Color.Black + Me.txtpanelbuttonwidth.Location = New System.Drawing.Point(88, 31) + Me.txtpanelbuttonwidth.Name = "txtpanelbuttonwidth" + Me.txtpanelbuttonwidth.Size = New System.Drawing.Size(26, 22) + Me.txtpanelbuttonwidth.TabIndex = 7 + ' + 'Label91 + ' + Me.Label91.AutoSize = True + Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label91.Location = New System.Drawing.Point(3, 33) + Me.Label91.Name = "Label91" + Me.Label91.Size = New System.Drawing.Size(85, 16) + Me.Label91.TabIndex = 6 + Me.Label91.Text = "Button Width:" + ' + 'pnlpanelbuttoncolour + ' + Me.pnlpanelbuttoncolour.Location = New System.Drawing.Point(94, 5) + Me.pnlpanelbuttoncolour.Name = "pnlpanelbuttoncolour" + Me.pnlpanelbuttoncolour.Size = New System.Drawing.Size(41, 20) + Me.pnlpanelbuttoncolour.TabIndex = 1 + ' + 'Label95 + ' + Me.Label95.AutoSize = True + Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label95.Location = New System.Drawing.Point(3, 7) + Me.Label95.Name = "Label95" + Me.Label95.Size = New System.Drawing.Size(90, 16) + Me.Label95.TabIndex = 0 + Me.Label95.Text = "Button Colour:" + ' + 'pnldesktoppaneloptions + ' + Me.pnldesktoppaneloptions.Controls.Add(Me.btnpanelbuttons) + Me.pnldesktoppaneloptions.Controls.Add(Me.Label27) + Me.pnldesktoppaneloptions.Controls.Add(Me.combodesktoppanelposition) + Me.pnldesktoppaneloptions.Controls.Add(Me.Label46) + Me.pnldesktoppaneloptions.Controls.Add(Me.Label47) + Me.pnldesktoppaneloptions.Controls.Add(Me.txtdesktoppanelheight) + Me.pnldesktoppaneloptions.Controls.Add(Me.Label48) + Me.pnldesktoppaneloptions.Controls.Add(Me.pnldesktoppanelcolour) + Me.pnldesktoppaneloptions.Controls.Add(Me.Label49) + Me.pnldesktoppaneloptions.Location = New System.Drawing.Point(393, 265) + Me.pnldesktoppaneloptions.Name = "pnldesktoppaneloptions" + Me.pnldesktoppaneloptions.Size = New System.Drawing.Size(60, 28) + Me.pnldesktoppaneloptions.TabIndex = 9 + Me.pnldesktoppaneloptions.Visible = False + ' + 'btnpanelbuttons + ' + Me.btnpanelbuttons.BackColor = System.Drawing.Color.White + Me.btnpanelbuttons.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpanelbuttons.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpanelbuttons.Location = New System.Drawing.Point(193, 101) + Me.btnpanelbuttons.Name = "btnpanelbuttons" + Me.btnpanelbuttons.Size = New System.Drawing.Size(119, 29) + Me.btnpanelbuttons.TabIndex = 8 + Me.btnpanelbuttons.Text = "Panel Buttons >" + Me.btnpanelbuttons.UseVisualStyleBackColor = False + ' + 'Label27 + ' + Me.Label27.Location = New System.Drawing.Point(3, 52) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(290, 42) + Me.Label27.TabIndex = 8 + Me.Label27.Text = "Warning: If you set the panel position to the bottom you must hide your windows t" & _ + "askbar and restart ShiftOS on your host operating system to prevent a visual bug" & _ + "." + ' + 'combodesktoppanelposition + ' + Me.combodesktoppanelposition.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combodesktoppanelposition.FormattingEnabled = True + Me.combodesktoppanelposition.Items.AddRange(New Object() {"Top", "Bottom"}) + Me.combodesktoppanelposition.Location = New System.Drawing.Point(103, 28) + Me.combodesktoppanelposition.Name = "combodesktoppanelposition" + Me.combodesktoppanelposition.Size = New System.Drawing.Size(59, 24) + Me.combodesktoppanelposition.TabIndex = 7 + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.Location = New System.Drawing.Point(3, 31) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(97, 16) + Me.Label46.TabIndex = 6 + Me.Label46.Text = "Panel Position:" + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label47.Location = New System.Drawing.Point(213, 7) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(22, 16) + Me.Label47.TabIndex = 5 + Me.Label47.Text = "px" + ' + 'txtdesktoppanelheight + ' + Me.txtdesktoppanelheight.BackColor = System.Drawing.Color.White + Me.txtdesktoppanelheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtdesktoppanelheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtdesktoppanelheight.ForeColor = System.Drawing.Color.Black + Me.txtdesktoppanelheight.Location = New System.Drawing.Point(189, 5) + Me.txtdesktoppanelheight.Name = "txtdesktoppanelheight" + Me.txtdesktoppanelheight.Size = New System.Drawing.Size(23, 22) + Me.txtdesktoppanelheight.TabIndex = 4 + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label48.Location = New System.Drawing.Point(138, 7) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(50, 16) + Me.Label48.TabIndex = 2 + Me.Label48.Text = "Height:" + ' + 'pnldesktoppanelcolour + ' + Me.pnldesktoppanelcolour.Location = New System.Drawing.Point(92, 5) + Me.pnldesktoppanelcolour.Name = "pnldesktoppanelcolour" + Me.pnldesktoppanelcolour.Size = New System.Drawing.Size(41, 20) + Me.pnldesktoppanelcolour.TabIndex = 1 + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label49.Location = New System.Drawing.Point(3, 7) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(88, 16) + Me.Label49.TabIndex = 0 + Me.Label49.Text = "Panel Colour:" + ' + 'pnlapplauncheroptions + ' + Me.pnlapplauncheroptions.Controls.Add(Me.Label71) + Me.pnlapplauncheroptions.Controls.Add(Me.txtapplauncherwidth) + Me.pnlapplauncheroptions.Controls.Add(Me.Label72) + Me.pnlapplauncheroptions.Controls.Add(Me.txtappbuttonlabel) + Me.pnlapplauncheroptions.Controls.Add(Me.Label51) + Me.pnlapplauncheroptions.Controls.Add(Me.Label50) + Me.pnlapplauncheroptions.Controls.Add(Me.pnlmaintextcolour) + Me.pnlapplauncheroptions.Controls.Add(Me.comboappbuttontextstyle) + Me.pnlapplauncheroptions.Controls.Add(Me.comboappbuttontextfont) + Me.pnlapplauncheroptions.Controls.Add(Me.Label37) + Me.pnlapplauncheroptions.Controls.Add(Me.Label38) + Me.pnlapplauncheroptions.Controls.Add(Me.txtappbuttontextsize) + Me.pnlapplauncheroptions.Controls.Add(Me.Label39) + Me.pnlapplauncheroptions.Controls.Add(Me.Label40) + Me.pnlapplauncheroptions.Controls.Add(Me.pnlmenuitemsmouseover) + Me.pnlapplauncheroptions.Controls.Add(Me.Label41) + Me.pnlapplauncheroptions.Controls.Add(Me.pnlmenuitemscolour) + Me.pnlapplauncheroptions.Controls.Add(Me.Label42) + Me.pnlapplauncheroptions.Controls.Add(Me.pnlmainbuttonactivated) + Me.pnlapplauncheroptions.Controls.Add(Me.Label28) + Me.pnlapplauncheroptions.Controls.Add(Me.Label35) + Me.pnlapplauncheroptions.Controls.Add(Me.txtapplicationsbuttonheight) + Me.pnlapplauncheroptions.Controls.Add(Me.Label36) + Me.pnlapplauncheroptions.Controls.Add(Me.pnlmainbuttoncolour) + Me.pnlapplauncheroptions.Controls.Add(Me.Label43) + Me.pnlapplauncheroptions.Location = New System.Drawing.Point(178, 253) + Me.pnlapplauncheroptions.Name = "pnlapplauncheroptions" + Me.pnlapplauncheroptions.Size = New System.Drawing.Size(145, 37) + Me.pnlapplauncheroptions.TabIndex = 10 + Me.pnlapplauncheroptions.Visible = False + ' + 'Label71 + ' + Me.Label71.AutoSize = True + Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label71.Location = New System.Drawing.Point(280, 108) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(22, 16) + Me.Label71.TabIndex = 33 + Me.Label71.Text = "px" + ' + 'txtapplauncherwidth + ' + Me.txtapplauncherwidth.BackColor = System.Drawing.Color.White + Me.txtapplauncherwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtapplauncherwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtapplauncherwidth.ForeColor = System.Drawing.Color.Black + Me.txtapplauncherwidth.Location = New System.Drawing.Point(210, 106) + Me.txtapplauncherwidth.Name = "txtapplauncherwidth" + Me.txtapplauncherwidth.Size = New System.Drawing.Size(68, 22) + Me.txtapplauncherwidth.TabIndex = 32 + ' + 'Label72 + ' + Me.Label72.AutoSize = True + Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label72.Location = New System.Drawing.Point(164, 108) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(45, 16) + Me.Label72.TabIndex = 31 + Me.Label72.Text = "Width:" + ' + 'txtappbuttonlabel + ' + Me.txtappbuttonlabel.BackColor = System.Drawing.Color.White + Me.txtappbuttonlabel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtappbuttonlabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtappbuttonlabel.ForeColor = System.Drawing.Color.Black + Me.txtappbuttonlabel.Location = New System.Drawing.Point(54, 81) + Me.txtappbuttonlabel.Name = "txtappbuttonlabel" + Me.txtappbuttonlabel.Size = New System.Drawing.Size(81, 22) + Me.txtappbuttonlabel.TabIndex = 30 + ' + 'Label51 + ' + Me.Label51.AutoSize = True + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label51.Location = New System.Drawing.Point(3, 84) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(45, 16) + Me.Label51.TabIndex = 29 + Me.Label51.Text = "Label:" + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label50.Location = New System.Drawing.Point(141, 84) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(37, 16) + Me.Label50.TabIndex = 28 + Me.Label50.Text = "Font:" + ' + 'pnlmaintextcolour + ' + Me.pnlmaintextcolour.Location = New System.Drawing.Point(156, 56) + Me.pnlmaintextcolour.Name = "pnlmaintextcolour" + Me.pnlmaintextcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlmaintextcolour.TabIndex = 19 + ' + 'comboappbuttontextstyle + ' + Me.comboappbuttontextstyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.comboappbuttontextstyle.FormattingEnabled = True + Me.comboappbuttontextstyle.Items.AddRange(New Object() {"Bold", "Italic", "Regular", "Strikeout", "Underline"}) + Me.comboappbuttontextstyle.Location = New System.Drawing.Point(244, 54) + Me.comboappbuttontextstyle.Name = "comboappbuttontextstyle" + Me.comboappbuttontextstyle.Size = New System.Drawing.Size(64, 24) + Me.comboappbuttontextstyle.TabIndex = 27 + ' + 'comboappbuttontextfont + ' + Me.comboappbuttontextfont.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.comboappbuttontextfont.FormattingEnabled = True + Me.comboappbuttontextfont.Location = New System.Drawing.Point(182, 80) + Me.comboappbuttontextfont.Name = "comboappbuttontextfont" + Me.comboappbuttontextfont.Size = New System.Drawing.Size(125, 24) + Me.comboappbuttontextfont.TabIndex = 26 + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.Location = New System.Drawing.Point(201, 57) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(41, 16) + Me.Label37.TabIndex = 25 + Me.Label37.Text = "Style:" + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label38.Location = New System.Drawing.Point(76, 57) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(22, 16) + Me.Label38.TabIndex = 24 + Me.Label38.Text = "px" + ' + 'txtappbuttontextsize + ' + Me.txtappbuttontextsize.BackColor = System.Drawing.Color.White + Me.txtappbuttontextsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtappbuttontextsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtappbuttontextsize.ForeColor = System.Drawing.Color.Black + Me.txtappbuttontextsize.Location = New System.Drawing.Point(52, 55) + Me.txtappbuttontextsize.Name = "txtappbuttontextsize" + Me.txtappbuttontextsize.Size = New System.Drawing.Size(23, 22) + Me.txtappbuttontextsize.TabIndex = 23 + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.Location = New System.Drawing.Point(2, 57) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(49, 16) + Me.Label39.TabIndex = 22 + Me.Label39.Text = "T Size:" + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(102, 58) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(50, 16) + Me.Label40.TabIndex = 21 + Me.Label40.Text = "Colour:" + ' + 'pnlmenuitemsmouseover + ' + Me.pnlmenuitemsmouseover.Location = New System.Drawing.Point(267, 31) + Me.pnlmenuitemsmouseover.Name = "pnlmenuitemsmouseover" + Me.pnlmenuitemsmouseover.Size = New System.Drawing.Size(41, 20) + Me.pnlmenuitemsmouseover.TabIndex = 20 + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(177, 32) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(84, 16) + Me.Label41.TabIndex = 19 + Me.Label41.Text = "Mouse Over:" + ' + 'pnlmenuitemscolour + ' + Me.pnlmenuitemscolour.Location = New System.Drawing.Point(128, 30) + Me.pnlmenuitemscolour.Name = "pnlmenuitemscolour" + Me.pnlmenuitemscolour.Size = New System.Drawing.Size(41, 20) + Me.pnlmenuitemscolour.TabIndex = 18 + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label42.Location = New System.Drawing.Point(3, 32) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(121, 16) + Me.Label42.TabIndex = 17 + Me.Label42.Text = "Menu Items Colour:" + ' + 'pnlmainbuttonactivated + ' + Me.pnlmainbuttonactivated.Location = New System.Drawing.Point(267, 6) + Me.pnlmainbuttonactivated.Name = "pnlmainbuttonactivated" + Me.pnlmainbuttonactivated.Size = New System.Drawing.Size(41, 20) + Me.pnlmainbuttonactivated.TabIndex = 16 + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(177, 7) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(67, 16) + Me.Label28.TabIndex = 15 + Me.Label28.Text = "Activated:" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label35.Location = New System.Drawing.Point(136, 108) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(22, 16) + Me.Label35.TabIndex = 14 + Me.Label35.Text = "px" + ' + 'txtapplicationsbuttonheight + ' + Me.txtapplicationsbuttonheight.BackColor = System.Drawing.Color.White + Me.txtapplicationsbuttonheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtapplicationsbuttonheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtapplicationsbuttonheight.ForeColor = System.Drawing.Color.Black + Me.txtapplicationsbuttonheight.Location = New System.Drawing.Point(112, 106) + Me.txtapplicationsbuttonheight.Name = "txtapplicationsbuttonheight" + Me.txtapplicationsbuttonheight.Size = New System.Drawing.Size(23, 22) + Me.txtapplicationsbuttonheight.TabIndex = 13 + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label36.Location = New System.Drawing.Point(3, 108) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(108, 16) + Me.Label36.TabIndex = 12 + Me.Label36.Text = "Launcher Height:" + ' + 'pnlmainbuttoncolour + ' + Me.pnlmainbuttoncolour.Location = New System.Drawing.Point(128, 4) + Me.pnlmainbuttoncolour.Name = "pnlmainbuttoncolour" + Me.pnlmainbuttoncolour.Size = New System.Drawing.Size(41, 20) + Me.pnlmainbuttoncolour.TabIndex = 1 + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.Location = New System.Drawing.Point(3, 7) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(122, 16) + Me.Label43.TabIndex = 0 + Me.Label43.Text = "Main Button Colour:" + ' + 'pnldesktopintro + ' + Me.pnldesktopintro.Controls.Add(Me.Label69) + Me.pnldesktopintro.Controls.Add(Me.Label70) + Me.pnldesktopintro.Location = New System.Drawing.Point(154, 173) + Me.pnldesktopintro.Name = "pnldesktopintro" + Me.pnldesktopintro.Size = New System.Drawing.Size(47, 48) + Me.pnldesktopintro.TabIndex = 17 + ' + 'Label69 + ' + Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label69.Location = New System.Drawing.Point(3, 20) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(312, 113) + Me.Label69.TabIndex = 1 + Me.Label69.Text = resources.GetString("Label69.Text") + Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label70 + ' + Me.Label70.AutoSize = True + Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label70.Location = New System.Drawing.Point(86, -2) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(148, 20) + Me.Label70.TabIndex = 0 + Me.Label70.Text = "Desktop Settings" + ' + 'pnlpanelclockoptions + ' + Me.pnlpanelclockoptions.Controls.Add(Me.pnlclockbackgroundcolour) + Me.pnlpanelclockoptions.Controls.Add(Me.Label44) + Me.pnlpanelclockoptions.Controls.Add(Me.comboclocktextstyle) + Me.pnlpanelclockoptions.Controls.Add(Me.comboclocktextfont) + Me.pnlpanelclockoptions.Controls.Add(Me.Label26) + Me.pnlpanelclockoptions.Controls.Add(Me.Label29) + Me.pnlpanelclockoptions.Controls.Add(Me.txtclocktextfromtop) + Me.pnlpanelclockoptions.Controls.Add(Me.Label30) + Me.pnlpanelclockoptions.Controls.Add(Me.Label31) + Me.pnlpanelclockoptions.Controls.Add(Me.txtclocktextsize) + Me.pnlpanelclockoptions.Controls.Add(Me.Label32) + Me.pnlpanelclockoptions.Controls.Add(Me.Label33) + Me.pnlpanelclockoptions.Controls.Add(Me.pnlpanelclocktextcolour) + Me.pnlpanelclockoptions.Controls.Add(Me.Label34) + Me.pnlpanelclockoptions.Location = New System.Drawing.Point(217, 170) + Me.pnlpanelclockoptions.Name = "pnlpanelclockoptions" + Me.pnlpanelclockoptions.Size = New System.Drawing.Size(110, 64) + Me.pnlpanelclockoptions.TabIndex = 15 + Me.pnlpanelclockoptions.Visible = False + ' + 'pnlclockbackgroundcolour + ' + Me.pnlclockbackgroundcolour.Location = New System.Drawing.Point(261, 5) + Me.pnlclockbackgroundcolour.Name = "pnlclockbackgroundcolour" + Me.pnlclockbackgroundcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlclockbackgroundcolour.TabIndex = 20 + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label44.Location = New System.Drawing.Point(173, 7) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(84, 16) + Me.Label44.TabIndex = 19 + Me.Label44.Text = "Background:" + ' + 'comboclocktextstyle + ' + Me.comboclocktextstyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.comboclocktextstyle.FormattingEnabled = True + Me.comboclocktextstyle.Items.AddRange(New Object() {"Bold", "Italic", "Regular", "Strikeout", "Underline"}) + Me.comboclocktextstyle.Location = New System.Drawing.Point(209, 54) + Me.comboclocktextstyle.Name = "comboclocktextstyle" + Me.comboclocktextstyle.Size = New System.Drawing.Size(99, 24) + Me.comboclocktextstyle.TabIndex = 18 + ' + 'comboclocktextfont + ' + Me.comboclocktextfont.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.comboclocktextfont.FormattingEnabled = True + Me.comboclocktextfont.Location = New System.Drawing.Point(114, 28) + Me.comboclocktextfont.Name = "comboclocktextfont" + Me.comboclocktextfont.Size = New System.Drawing.Size(192, 24) + Me.comboclocktextfont.TabIndex = 17 + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(166, 57) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(41, 16) + Me.Label26.TabIndex = 15 + Me.Label26.Text = "Style:" + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.Location = New System.Drawing.Point(163, 82) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(22, 16) + Me.Label29.TabIndex = 11 + Me.Label29.Text = "px" + ' + 'txtclocktextfromtop + ' + Me.txtclocktextfromtop.BackColor = System.Drawing.Color.White + Me.txtclocktextfromtop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclocktextfromtop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclocktextfromtop.ForeColor = System.Drawing.Color.Black + Me.txtclocktextfromtop.Location = New System.Drawing.Point(139, 80) + Me.txtclocktextfromtop.Name = "txtclocktextfromtop" + Me.txtclocktextfromtop.Size = New System.Drawing.Size(23, 22) + Me.txtclocktextfromtop.TabIndex = 10 + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.Location = New System.Drawing.Point(3, 82) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(136, 16) + Me.Label30.TabIndex = 9 + Me.Label30.Text = "Clock Text From Top:" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.Location = New System.Drawing.Point(138, 57) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(22, 16) + Me.Label31.TabIndex = 8 + Me.Label31.Text = "px" + ' + 'txtclocktextsize + ' + Me.txtclocktextsize.BackColor = System.Drawing.Color.White + Me.txtclocktextsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclocktextsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclocktextsize.ForeColor = System.Drawing.Color.Black + Me.txtclocktextsize.Location = New System.Drawing.Point(114, 55) + Me.txtclocktextsize.Name = "txtclocktextsize" + Me.txtclocktextsize.Size = New System.Drawing.Size(23, 22) + Me.txtclocktextsize.TabIndex = 7 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label32.Location = New System.Drawing.Point(3, 57) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(103, 16) + Me.Label32.TabIndex = 6 + Me.Label32.Text = "Clock Text Size:" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(3, 32) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(103, 16) + Me.Label33.TabIndex = 2 + Me.Label33.Text = "Clock Text Font:" + ' + 'pnlpanelclocktextcolour + ' + Me.pnlpanelclocktextcolour.Location = New System.Drawing.Point(121, 5) + Me.pnlpanelclocktextcolour.Name = "pnlpanelclocktextcolour" + Me.pnlpanelclocktextcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlpanelclocktextcolour.TabIndex = 1 + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.Location = New System.Drawing.Point(3, 7) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(116, 16) + Me.Label34.TabIndex = 0 + Me.Label34.Text = "Clock Text Colour:" + ' + 'pnldesktopbackgroundoptions + ' + Me.pnldesktopbackgroundoptions.Controls.Add(Me.pnldesktopcolour) + Me.pnldesktopbackgroundoptions.Controls.Add(Me.Label45) + Me.pnldesktopbackgroundoptions.Location = New System.Drawing.Point(354, 163) + Me.pnldesktopbackgroundoptions.Name = "pnldesktopbackgroundoptions" + Me.pnldesktopbackgroundoptions.Size = New System.Drawing.Size(103, 70) + Me.pnldesktopbackgroundoptions.TabIndex = 10 + Me.pnldesktopbackgroundoptions.Visible = False + ' + 'pnldesktopcolour + ' + Me.pnldesktopcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnldesktopcolour.Location = New System.Drawing.Point(112, 5) + Me.pnldesktopcolour.Name = "pnldesktopcolour" + Me.pnldesktopcolour.Size = New System.Drawing.Size(41, 20) + Me.pnldesktopcolour.TabIndex = 3 + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label45.Location = New System.Drawing.Point(3, 7) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(104, 16) + Me.Label45.TabIndex = 2 + Me.Label45.Text = "Desktop Colour:" + ' + 'Panel10 + ' + Me.Panel10.Controls.Add(Me.btndesktopitself) + Me.Panel10.Controls.Add(Me.btnpanelclock) + Me.Panel10.Controls.Add(Me.btnapplauncher) + Me.Panel10.Controls.Add(Me.btndesktoppanel) + Me.Panel10.Location = New System.Drawing.Point(1, 159) + Me.Panel10.Name = "Panel10" + Me.Panel10.Size = New System.Drawing.Size(128, 135) + Me.Panel10.TabIndex = 8 + ' + 'btndesktopitself + ' + Me.btndesktopitself.BackColor = System.Drawing.Color.White + Me.btndesktopitself.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndesktopitself.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndesktopitself.Location = New System.Drawing.Point(4, 105) + Me.btndesktopitself.Name = "btndesktopitself" + Me.btndesktopitself.Size = New System.Drawing.Size(119, 29) + Me.btndesktopitself.TabIndex = 7 + Me.btndesktopitself.Text = "Desktop" + Me.btndesktopitself.UseVisualStyleBackColor = False + ' + 'btnpanelclock + ' + Me.btnpanelclock.BackColor = System.Drawing.Color.White + Me.btnpanelclock.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnpanelclock.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpanelclock.Location = New System.Drawing.Point(4, 70) + Me.btnpanelclock.Name = "btnpanelclock" + Me.btnpanelclock.Size = New System.Drawing.Size(119, 29) + Me.btnpanelclock.TabIndex = 6 + Me.btnpanelclock.Text = "Panel Clock" + Me.btnpanelclock.UseVisualStyleBackColor = False + ' + 'btnapplauncher + ' + Me.btnapplauncher.BackColor = System.Drawing.Color.White + Me.btnapplauncher.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnapplauncher.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnapplauncher.Location = New System.Drawing.Point(4, 35) + Me.btnapplauncher.Name = "btnapplauncher" + Me.btnapplauncher.Size = New System.Drawing.Size(119, 29) + Me.btnapplauncher.TabIndex = 5 + Me.btnapplauncher.Text = "App Launcher" + Me.btnapplauncher.UseVisualStyleBackColor = False + ' + 'btndesktoppanel + ' + Me.btndesktoppanel.BackColor = System.Drawing.Color.White + Me.btndesktoppanel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndesktoppanel.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndesktoppanel.Location = New System.Drawing.Point(4, 0) + Me.btndesktoppanel.Name = "btndesktoppanel" + Me.btndesktoppanel.Size = New System.Drawing.Size(119, 29) + Me.btndesktoppanel.TabIndex = 4 + Me.btndesktoppanel.Text = "Desktop Panel" + Me.btndesktoppanel.UseVisualStyleBackColor = False + ' + 'pnldesktoppreview + ' + Me.pnldesktoppreview.Controls.Add(Me.predesktoppanel) + Me.pnldesktoppreview.Location = New System.Drawing.Point(5, 3) + Me.pnldesktoppreview.Name = "pnldesktoppreview" + Me.pnldesktoppreview.Size = New System.Drawing.Size(448, 148) + Me.pnldesktoppreview.TabIndex = 0 + ' + 'predesktoppanel + ' + Me.predesktoppanel.BackColor = System.Drawing.Color.Gray + Me.predesktoppanel.Controls.Add(Me.prepnlpanelbuttonholder) + Me.predesktoppanel.Controls.Add(Me.pretimepanel) + Me.predesktoppanel.Controls.Add(Me.preapplaunchermenuholder) + Me.predesktoppanel.Dock = System.Windows.Forms.DockStyle.Top + Me.predesktoppanel.Location = New System.Drawing.Point(0, 0) + Me.predesktoppanel.Name = "predesktoppanel" + Me.predesktoppanel.Size = New System.Drawing.Size(448, 25) + Me.predesktoppanel.TabIndex = 1 + ' + 'prepnlpanelbuttonholder + ' + Me.prepnlpanelbuttonholder.BackColor = System.Drawing.Color.Transparent + Me.prepnlpanelbuttonholder.Controls.Add(Me.prepnlpanelbutton) + Me.prepnlpanelbuttonholder.Dock = System.Windows.Forms.DockStyle.Fill + Me.prepnlpanelbuttonholder.Location = New System.Drawing.Point(116, 0) + Me.prepnlpanelbuttonholder.Name = "prepnlpanelbuttonholder" + Me.prepnlpanelbuttonholder.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) + Me.prepnlpanelbuttonholder.Size = New System.Drawing.Size(235, 25) + Me.prepnlpanelbuttonholder.TabIndex = 6 + ' + 'prepnlpanelbutton + ' + Me.prepnlpanelbutton.BackColor = System.Drawing.Color.Black + Me.prepnlpanelbutton.Controls.Add(Me.pretbicon) + Me.prepnlpanelbutton.Controls.Add(Me.pretbctext) + Me.prepnlpanelbutton.Location = New System.Drawing.Point(5, 3) + Me.prepnlpanelbutton.Name = "prepnlpanelbutton" + Me.prepnlpanelbutton.Size = New System.Drawing.Size(126, 20) + Me.prepnlpanelbutton.TabIndex = 18 + Me.prepnlpanelbutton.Visible = False + ' + 'pretbicon + ' + Me.pretbicon.BackColor = System.Drawing.Color.Transparent + Me.pretbicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pretbicon.Image = Global.ShiftOS.My.Resources.Resources.iconShifter + Me.pretbicon.Location = New System.Drawing.Point(4, 2) + Me.pretbicon.Name = "pretbicon" + Me.pretbicon.Size = New System.Drawing.Size(16, 16) + Me.pretbicon.TabIndex = 1 + Me.pretbicon.TabStop = False + ' + 'pretbctext + ' + Me.pretbctext.AutoSize = True + Me.pretbctext.BackColor = System.Drawing.Color.Transparent + Me.pretbctext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pretbctext.ForeColor = System.Drawing.Color.White + Me.pretbctext.Location = New System.Drawing.Point(24, 2) + Me.pretbctext.Name = "pretbctext" + Me.pretbctext.Size = New System.Drawing.Size(45, 16) + Me.pretbctext.TabIndex = 0 + Me.pretbctext.Text = "Shifter" + ' + 'pretimepanel + ' + Me.pretimepanel.Controls.Add(Me.prepaneltimetext) + Me.pretimepanel.Dock = System.Windows.Forms.DockStyle.Right + Me.pretimepanel.Location = New System.Drawing.Point(351, 0) + Me.pretimepanel.Name = "pretimepanel" + Me.pretimepanel.Size = New System.Drawing.Size(97, 25) + Me.pretimepanel.TabIndex = 5 + ' + 'prepaneltimetext + ' + Me.prepaneltimetext.AutoSize = True + Me.prepaneltimetext.BackColor = System.Drawing.Color.Transparent + Me.prepaneltimetext.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.prepaneltimetext.Location = New System.Drawing.Point(5, 0) + Me.prepaneltimetext.Name = "prepaneltimetext" + Me.prepaneltimetext.Size = New System.Drawing.Size(80, 24) + Me.prepaneltimetext.TabIndex = 1 + Me.prepaneltimetext.Text = "5000023" + Me.prepaneltimetext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'preapplaunchermenuholder + ' + Me.preapplaunchermenuholder.Controls.Add(Me.predesktopappmenu) + Me.preapplaunchermenuholder.Dock = System.Windows.Forms.DockStyle.Left + Me.preapplaunchermenuholder.Location = New System.Drawing.Point(0, 0) + Me.preapplaunchermenuholder.Name = "preapplaunchermenuholder" + Me.preapplaunchermenuholder.Size = New System.Drawing.Size(116, 25) + Me.preapplaunchermenuholder.TabIndex = 4 + ' + 'predesktopappmenu + ' + Me.predesktopappmenu.AutoSize = False + Me.predesktopappmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplicationsToolStripMenuItem}) + Me.predesktopappmenu.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow + Me.predesktopappmenu.Location = New System.Drawing.Point(0, 0) + Me.predesktopappmenu.Name = "predesktopappmenu" + Me.predesktopappmenu.Padding = New System.Windows.Forms.Padding(0) + Me.predesktopappmenu.Size = New System.Drawing.Size(116, 24) + Me.predesktopappmenu.TabIndex = 0 + Me.predesktopappmenu.Text = "MenuStrip1" + ' + 'ApplicationsToolStripMenuItem + ' + Me.ApplicationsToolStripMenuItem.AutoSize = False + Me.ApplicationsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KnowledgeInputToolStripMenuItem, Me.ShiftoriumToolStripMenuItem, Me.ClockToolStripMenuItem, Me.TerminalToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.ToolStripSeparator1, Me.ShutdownToolStripMenuItem}) + Me.ApplicationsToolStripMenuItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.749999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem" + Me.ApplicationsToolStripMenuItem.Padding = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.ApplicationsToolStripMenuItem.ShowShortcutKeys = False + Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(102, 24) + Me.ApplicationsToolStripMenuItem.Text = "Applications" + Me.ApplicationsToolStripMenuItem.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal + Me.ApplicationsToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage + ' + 'KnowledgeInputToolStripMenuItem + ' + Me.KnowledgeInputToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.KnowledgeInputToolStripMenuItem.Name = "KnowledgeInputToolStripMenuItem" + Me.KnowledgeInputToolStripMenuItem.ShowShortcutKeys = False + Me.KnowledgeInputToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.KnowledgeInputToolStripMenuItem.Text = "Knowledge Input" + ' + 'ShiftoriumToolStripMenuItem + ' + Me.ShiftoriumToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShiftoriumToolStripMenuItem.Name = "ShiftoriumToolStripMenuItem" + Me.ShiftoriumToolStripMenuItem.ShowShortcutKeys = False + Me.ShiftoriumToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShiftoriumToolStripMenuItem.Text = "Shiftorium" + ' + 'ClockToolStripMenuItem + ' + Me.ClockToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ClockToolStripMenuItem.Name = "ClockToolStripMenuItem" + Me.ClockToolStripMenuItem.ShowShortcutKeys = False + Me.ClockToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ClockToolStripMenuItem.Text = "Clock" + ' + 'TerminalToolStripMenuItem + ' + Me.TerminalToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.TerminalToolStripMenuItem.Name = "TerminalToolStripMenuItem" + Me.TerminalToolStripMenuItem.ShowShortcutKeys = False + Me.TerminalToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.TerminalToolStripMenuItem.Text = "Terminal" + ' + 'ShifterToolStripMenuItem + ' + Me.ShifterToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem" + Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShifterToolStripMenuItem.Text = "Shifter" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.BackColor = System.Drawing.Color.Transparent + Me.ToolStripSeparator1.ForeColor = System.Drawing.Color.White + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6) + ' + 'ShutdownToolStripMenuItem + ' + Me.ShutdownToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShutdownToolStripMenuItem.Name = "ShutdownToolStripMenuItem" + Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShutdownToolStripMenuItem.Text = "Shut Down" + ' + 'txtpanelbuttoniconheight + ' + Me.txtpanelbuttoniconheight.Location = New System.Drawing.Point(0, 0) + Me.txtpanelbuttoniconheight.Name = "txtpanelbuttoniconheight" + Me.txtpanelbuttoniconheight.Size = New System.Drawing.Size(100, 20) + Me.txtpanelbuttoniconheight.TabIndex = 0 + ' + 'pnlwindowsoptions + ' + Me.pnlwindowsoptions.BackColor = System.Drawing.Color.White + Me.pnlwindowsoptions.Controls.Add(Me.pnlbuttonoptions) + Me.pnlwindowsoptions.Controls.Add(Me.pnltitlebaroptions) + Me.pnlwindowsoptions.Controls.Add(Me.pnlborderoptions) + Me.pnlwindowsoptions.Controls.Add(Me.pnltitletextoptions) + Me.pnlwindowsoptions.Controls.Add(Me.pnlwindowsintro) + Me.pnlwindowsoptions.Controls.Add(Me.pnlwindowsobjects) + Me.pnlwindowsoptions.Controls.Add(Me.pnlwindowpreview) + Me.pnlwindowsoptions.Location = New System.Drawing.Point(539, 28) + Me.pnlwindowsoptions.Name = "pnlwindowsoptions" + Me.pnlwindowsoptions.Size = New System.Drawing.Size(46, 39) + Me.pnlwindowsoptions.TabIndex = 4 + Me.pnlwindowsoptions.Visible = False + ' + 'pnlbuttonoptions + ' + Me.pnlbuttonoptions.Controls.Add(Me.pnlminimizebuttonoptions) + Me.pnlbuttonoptions.Controls.Add(Me.pnlrollupbuttonoptions) + Me.pnlbuttonoptions.Controls.Add(Me.combobuttonoption) + Me.pnlbuttonoptions.Controls.Add(Me.Label52) + Me.pnlbuttonoptions.Controls.Add(Me.pnlclosebuttonoptions) + Me.pnlbuttonoptions.Location = New System.Drawing.Point(312, 266) + Me.pnlbuttonoptions.Name = "pnlbuttonoptions" + Me.pnlbuttonoptions.Size = New System.Drawing.Size(66, 18) + Me.pnlbuttonoptions.TabIndex = 10 + Me.pnlbuttonoptions.Visible = False + ' + 'pnlminimizebuttonoptions + ' + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label82) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label83) + Me.pnlminimizebuttonoptions.Controls.Add(Me.pnlminimizebuttoncolour) + Me.pnlminimizebuttonoptions.Controls.Add(Me.txtminimizebuttonside) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label84) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label85) + Me.pnlminimizebuttonoptions.Controls.Add(Me.txtminimizebuttonheight) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label86) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label87) + Me.pnlminimizebuttonoptions.Controls.Add(Me.txtminimizebuttontop) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label88) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label89) + Me.pnlminimizebuttonoptions.Controls.Add(Me.txtminimizebuttonwidth) + Me.pnlminimizebuttonoptions.Controls.Add(Me.Label90) + Me.pnlminimizebuttonoptions.Location = New System.Drawing.Point(4, 29) + Me.pnlminimizebuttonoptions.Name = "pnlminimizebuttonoptions" + Me.pnlminimizebuttonoptions.Size = New System.Drawing.Size(311, 105) + Me.pnlminimizebuttonoptions.TabIndex = 18 + Me.pnlminimizebuttonoptions.Visible = False + ' + 'Label82 + ' + Me.Label82.AutoSize = True + Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label82.Location = New System.Drawing.Point(3, 6) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(145, 16) + Me.Label82.TabIndex = 0 + Me.Label82.Text = "Minimize Button Colour:" + ' + 'Label83 + ' + Me.Label83.AutoSize = True + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.Location = New System.Drawing.Point(196, 82) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(22, 16) + Me.Label83.TabIndex = 14 + Me.Label83.Text = "px" + ' + 'pnlminimizebuttoncolour + ' + Me.pnlminimizebuttoncolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlminimizebuttoncolour.Location = New System.Drawing.Point(149, 4) + Me.pnlminimizebuttoncolour.Name = "pnlminimizebuttoncolour" + Me.pnlminimizebuttoncolour.Size = New System.Drawing.Size(41, 20) + Me.pnlminimizebuttoncolour.TabIndex = 1 + ' + 'txtminimizebuttonside + ' + Me.txtminimizebuttonside.BackColor = System.Drawing.Color.White + Me.txtminimizebuttonside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtminimizebuttonside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtminimizebuttonside.ForeColor = System.Drawing.Color.Black + Me.txtminimizebuttonside.Location = New System.Drawing.Point(172, 80) + Me.txtminimizebuttonside.Name = "txtminimizebuttonside" + Me.txtminimizebuttonside.Size = New System.Drawing.Size(23, 22) + Me.txtminimizebuttonside.TabIndex = 13 + ' + 'Label84 + ' + Me.Label84.AutoSize = True + Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label84.Location = New System.Drawing.Point(3, 32) + Me.Label84.Name = "Label84" + Me.Label84.Size = New System.Drawing.Size(145, 16) + Me.Label84.TabIndex = 2 + Me.Label84.Text = "Minimize Button Height:" + ' + 'Label85 + ' + Me.Label85.AutoSize = True + Me.Label85.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label85.Location = New System.Drawing.Point(3, 82) + Me.Label85.Name = "Label85" + Me.Label85.Size = New System.Drawing.Size(168, 16) + Me.Label85.TabIndex = 12 + Me.Label85.Text = "Minimize Button From Side:" + ' + 'txtminimizebuttonheight + ' + Me.txtminimizebuttonheight.BackColor = System.Drawing.Color.White + Me.txtminimizebuttonheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtminimizebuttonheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtminimizebuttonheight.ForeColor = System.Drawing.Color.Black + Me.txtminimizebuttonheight.Location = New System.Drawing.Point(150, 30) + Me.txtminimizebuttonheight.Name = "txtminimizebuttonheight" + Me.txtminimizebuttonheight.Size = New System.Drawing.Size(23, 22) + Me.txtminimizebuttonheight.TabIndex = 4 + ' + 'Label86 + ' + Me.Label86.AutoSize = True + Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label86.Location = New System.Drawing.Point(196, 57) + Me.Label86.Name = "Label86" + Me.Label86.Size = New System.Drawing.Size(22, 16) + Me.Label86.TabIndex = 11 + Me.Label86.Text = "px" + ' + 'Label87 + ' + Me.Label87.AutoSize = True + Me.Label87.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label87.Location = New System.Drawing.Point(174, 32) + Me.Label87.Name = "Label87" + Me.Label87.Size = New System.Drawing.Size(22, 16) + Me.Label87.TabIndex = 5 + Me.Label87.Text = "px" + ' + 'txtminimizebuttontop + ' + Me.txtminimizebuttontop.BackColor = System.Drawing.Color.White + Me.txtminimizebuttontop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtminimizebuttontop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtminimizebuttontop.ForeColor = System.Drawing.Color.Black + Me.txtminimizebuttontop.Location = New System.Drawing.Point(172, 55) + Me.txtminimizebuttontop.Name = "txtminimizebuttontop" + Me.txtminimizebuttontop.Size = New System.Drawing.Size(23, 22) + Me.txtminimizebuttontop.TabIndex = 10 + ' + 'Label88 + ' + Me.Label88.AutoSize = True + Me.Label88.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label88.Location = New System.Drawing.Point(198, 32) + Me.Label88.Name = "Label88" + Me.Label88.Size = New System.Drawing.Size(45, 16) + Me.Label88.TabIndex = 6 + Me.Label88.Text = "Width:" + ' + 'Label89 + ' + Me.Label89.AutoSize = True + Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label89.Location = New System.Drawing.Point(3, 57) + Me.Label89.Name = "Label89" + Me.Label89.Size = New System.Drawing.Size(165, 16) + Me.Label89.TabIndex = 9 + Me.Label89.Text = "Minimize Button From Top:" + ' + 'txtminimizebuttonwidth + ' + Me.txtminimizebuttonwidth.BackColor = System.Drawing.Color.White + Me.txtminimizebuttonwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtminimizebuttonwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtminimizebuttonwidth.ForeColor = System.Drawing.Color.Black + Me.txtminimizebuttonwidth.Location = New System.Drawing.Point(247, 30) + Me.txtminimizebuttonwidth.Name = "txtminimizebuttonwidth" + Me.txtminimizebuttonwidth.Size = New System.Drawing.Size(23, 22) + Me.txtminimizebuttonwidth.TabIndex = 7 + ' + 'Label90 + ' + Me.Label90.AutoSize = True + Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label90.Location = New System.Drawing.Point(269, 32) + Me.Label90.Name = "Label90" + Me.Label90.Size = New System.Drawing.Size(22, 16) + Me.Label90.TabIndex = 8 + Me.Label90.Text = "px" + ' + 'pnlrollupbuttonoptions + ' + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label54) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label55) + Me.pnlrollupbuttonoptions.Controls.Add(Me.pnlrollupbuttoncolour) + Me.pnlrollupbuttonoptions.Controls.Add(Me.txtrollupbuttonside) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label56) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label57) + Me.pnlrollupbuttonoptions.Controls.Add(Me.txtrollupbuttonheight) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label58) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label59) + Me.pnlrollupbuttonoptions.Controls.Add(Me.txtrollupbuttontop) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label60) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label61) + Me.pnlrollupbuttonoptions.Controls.Add(Me.txtrollupbuttonwidth) + Me.pnlrollupbuttonoptions.Controls.Add(Me.Label62) + Me.pnlrollupbuttonoptions.Location = New System.Drawing.Point(235, 38) + Me.pnlrollupbuttonoptions.Name = "pnlrollupbuttonoptions" + Me.pnlrollupbuttonoptions.Size = New System.Drawing.Size(53, 39) + Me.pnlrollupbuttonoptions.TabIndex = 16 + Me.pnlrollupbuttonoptions.Visible = False + ' + 'Label54 + ' + Me.Label54.AutoSize = True + Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label54.Location = New System.Drawing.Point(3, 6) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(138, 16) + Me.Label54.TabIndex = 0 + Me.Label54.Text = "Roll Up Button Colour:" + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label55.Location = New System.Drawing.Point(188, 82) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(22, 16) + Me.Label55.TabIndex = 14 + Me.Label55.Text = "px" + ' + 'pnlrollupbuttoncolour + ' + Me.pnlrollupbuttoncolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlrollupbuttoncolour.Location = New System.Drawing.Point(143, 4) + Me.pnlrollupbuttoncolour.Name = "pnlrollupbuttoncolour" + Me.pnlrollupbuttoncolour.Size = New System.Drawing.Size(41, 20) + Me.pnlrollupbuttoncolour.TabIndex = 1 + ' + 'txtrollupbuttonside + ' + Me.txtrollupbuttonside.BackColor = System.Drawing.Color.White + Me.txtrollupbuttonside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtrollupbuttonside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtrollupbuttonside.ForeColor = System.Drawing.Color.Black + Me.txtrollupbuttonside.Location = New System.Drawing.Point(164, 80) + Me.txtrollupbuttonside.Name = "txtrollupbuttonside" + Me.txtrollupbuttonside.Size = New System.Drawing.Size(23, 22) + Me.txtrollupbuttonside.TabIndex = 13 + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label56.Location = New System.Drawing.Point(3, 32) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(138, 16) + Me.Label56.TabIndex = 2 + Me.Label56.Text = "Roll Up Button Height:" + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label57.Location = New System.Drawing.Point(3, 82) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(161, 16) + Me.Label57.TabIndex = 12 + Me.Label57.Text = "Roll Up Button From Side:" + ' + 'txtrollupbuttonheight + ' + Me.txtrollupbuttonheight.BackColor = System.Drawing.Color.White + Me.txtrollupbuttonheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtrollupbuttonheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtrollupbuttonheight.ForeColor = System.Drawing.Color.Black + Me.txtrollupbuttonheight.Location = New System.Drawing.Point(143, 30) + Me.txtrollupbuttonheight.Name = "txtrollupbuttonheight" + Me.txtrollupbuttonheight.Size = New System.Drawing.Size(23, 22) + Me.txtrollupbuttonheight.TabIndex = 4 + ' + 'Label58 + ' + Me.Label58.AutoSize = True + Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label58.Location = New System.Drawing.Point(188, 57) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(22, 16) + Me.Label58.TabIndex = 11 + Me.Label58.Text = "px" + ' + 'Label59 + ' + Me.Label59.AutoSize = True + Me.Label59.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label59.Location = New System.Drawing.Point(167, 32) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(22, 16) + Me.Label59.TabIndex = 5 + Me.Label59.Text = "px" + ' + 'txtrollupbuttontop + ' + Me.txtrollupbuttontop.BackColor = System.Drawing.Color.White + Me.txtrollupbuttontop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtrollupbuttontop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtrollupbuttontop.ForeColor = System.Drawing.Color.Black + Me.txtrollupbuttontop.Location = New System.Drawing.Point(164, 55) + Me.txtrollupbuttontop.Name = "txtrollupbuttontop" + Me.txtrollupbuttontop.Size = New System.Drawing.Size(23, 22) + Me.txtrollupbuttontop.TabIndex = 10 + ' + 'Label60 + ' + Me.Label60.AutoSize = True + Me.Label60.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label60.Location = New System.Drawing.Point(195, 32) + Me.Label60.Name = "Label60" + Me.Label60.Size = New System.Drawing.Size(45, 16) + Me.Label60.TabIndex = 6 + Me.Label60.Text = "Width:" + ' + 'Label61 + ' + Me.Label61.AutoSize = True + Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label61.Location = New System.Drawing.Point(3, 57) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(158, 16) + Me.Label61.TabIndex = 9 + Me.Label61.Text = "Roll Up Button From Top:" + ' + 'txtrollupbuttonwidth + ' + Me.txtrollupbuttonwidth.BackColor = System.Drawing.Color.White + Me.txtrollupbuttonwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtrollupbuttonwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtrollupbuttonwidth.ForeColor = System.Drawing.Color.Black + Me.txtrollupbuttonwidth.Location = New System.Drawing.Point(245, 30) + Me.txtrollupbuttonwidth.Name = "txtrollupbuttonwidth" + Me.txtrollupbuttonwidth.Size = New System.Drawing.Size(23, 22) + Me.txtrollupbuttonwidth.TabIndex = 7 + ' + 'Label62 + ' + Me.Label62.AutoSize = True + Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label62.Location = New System.Drawing.Point(269, 32) + Me.Label62.Name = "Label62" + Me.Label62.Size = New System.Drawing.Size(22, 16) + Me.Label62.TabIndex = 8 + Me.Label62.Text = "px" + ' + 'combobuttonoption + ' + Me.combobuttonoption.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combobuttonoption.FormattingEnabled = True + Me.combobuttonoption.Items.AddRange(New Object() {"Close Button", "Roll Up Button"}) + Me.combobuttonoption.Location = New System.Drawing.Point(157, 4) + Me.combobuttonoption.Name = "combobuttonoption" + Me.combobuttonoption.Size = New System.Drawing.Size(121, 24) + Me.combobuttonoption.TabIndex = 17 + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label52.Location = New System.Drawing.Point(40, 6) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(111, 16) + Me.Label52.TabIndex = 15 + Me.Label52.Text = "Button To Modify:" + ' + 'pnlclosebuttonoptions + ' + Me.pnlclosebuttonoptions.Controls.Add(Me.Label8) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label11) + Me.pnlclosebuttonoptions.Controls.Add(Me.pnlclosebuttoncolour) + Me.pnlclosebuttonoptions.Controls.Add(Me.txtclosebuttonfromside) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label7) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label12) + Me.pnlclosebuttonoptions.Controls.Add(Me.txtclosebuttonheight) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label13) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label6) + Me.pnlclosebuttonoptions.Controls.Add(Me.txtclosebuttonfromtop) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label10) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label14) + Me.pnlclosebuttonoptions.Controls.Add(Me.txtclosebuttonwidth) + Me.pnlclosebuttonoptions.Controls.Add(Me.Label9) + Me.pnlclosebuttonoptions.Location = New System.Drawing.Point(212, 87) + Me.pnlclosebuttonoptions.Name = "pnlclosebuttonoptions" + Me.pnlclosebuttonoptions.Size = New System.Drawing.Size(104, 44) + Me.pnlclosebuttonoptions.TabIndex = 15 + Me.pnlclosebuttonoptions.Visible = False + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(3, 6) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(128, 16) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "Close Button Colour:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(177, 82) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(22, 16) + Me.Label11.TabIndex = 14 + Me.Label11.Text = "px" + ' + 'pnlclosebuttoncolour + ' + Me.pnlclosebuttoncolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlclosebuttoncolour.Location = New System.Drawing.Point(132, 4) + Me.pnlclosebuttoncolour.Name = "pnlclosebuttoncolour" + Me.pnlclosebuttoncolour.Size = New System.Drawing.Size(41, 20) + Me.pnlclosebuttoncolour.TabIndex = 1 + ' + 'txtclosebuttonfromside + ' + Me.txtclosebuttonfromside.BackColor = System.Drawing.Color.White + Me.txtclosebuttonfromside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclosebuttonfromside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclosebuttonfromside.ForeColor = System.Drawing.Color.Black + Me.txtclosebuttonfromside.Location = New System.Drawing.Point(153, 80) + Me.txtclosebuttonfromside.Name = "txtclosebuttonfromside" + Me.txtclosebuttonfromside.Size = New System.Drawing.Size(23, 22) + Me.txtclosebuttonfromside.TabIndex = 13 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(3, 32) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(128, 16) + Me.Label7.TabIndex = 2 + Me.Label7.Text = "Close Button Height:" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(3, 82) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(151, 16) + Me.Label12.TabIndex = 12 + Me.Label12.Text = "Close Button From Side:" + ' + 'txtclosebuttonheight + ' + Me.txtclosebuttonheight.BackColor = System.Drawing.Color.White + Me.txtclosebuttonheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclosebuttonheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclosebuttonheight.ForeColor = System.Drawing.Color.Black + Me.txtclosebuttonheight.Location = New System.Drawing.Point(132, 30) + Me.txtclosebuttonheight.Name = "txtclosebuttonheight" + Me.txtclosebuttonheight.Size = New System.Drawing.Size(23, 22) + Me.txtclosebuttonheight.TabIndex = 4 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(177, 57) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(22, 16) + Me.Label13.TabIndex = 11 + Me.Label13.Text = "px" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(156, 32) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(22, 16) + Me.Label6.TabIndex = 5 + Me.Label6.Text = "px" + ' + 'txtclosebuttonfromtop + ' + Me.txtclosebuttonfromtop.BackColor = System.Drawing.Color.White + Me.txtclosebuttonfromtop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclosebuttonfromtop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclosebuttonfromtop.ForeColor = System.Drawing.Color.Black + Me.txtclosebuttonfromtop.Location = New System.Drawing.Point(153, 55) + Me.txtclosebuttonfromtop.Name = "txtclosebuttonfromtop" + Me.txtclosebuttonfromtop.Size = New System.Drawing.Size(23, 22) + Me.txtclosebuttonfromtop.TabIndex = 10 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(184, 32) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(45, 16) + Me.Label10.TabIndex = 6 + Me.Label10.Text = "Width:" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(3, 57) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(148, 16) + Me.Label14.TabIndex = 9 + Me.Label14.Text = "Close Button From Top:" + ' + 'txtclosebuttonwidth + ' + Me.txtclosebuttonwidth.BackColor = System.Drawing.Color.White + Me.txtclosebuttonwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtclosebuttonwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtclosebuttonwidth.ForeColor = System.Drawing.Color.Black + Me.txtclosebuttonwidth.Location = New System.Drawing.Point(234, 30) + Me.txtclosebuttonwidth.Name = "txtclosebuttonwidth" + Me.txtclosebuttonwidth.Size = New System.Drawing.Size(23, 22) + Me.txtclosebuttonwidth.TabIndex = 7 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(258, 32) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(22, 16) + Me.Label9.TabIndex = 8 + Me.Label9.Text = "px" + ' + 'pnltitlebaroptions + ' + Me.pnltitlebaroptions.Controls.Add(Me.Label80) + Me.pnltitlebaroptions.Controls.Add(Me.txticonfromtop) + Me.pnltitlebaroptions.Controls.Add(Me.Label81) + Me.pnltitlebaroptions.Controls.Add(Me.Label78) + Me.pnltitlebaroptions.Controls.Add(Me.txticonfromside) + Me.pnltitlebaroptions.Controls.Add(Me.Label79) + Me.pnltitlebaroptions.Controls.Add(Me.lbcornerwidthpx) + Me.pnltitlebaroptions.Controls.Add(Me.txttitlebarcornerwidth) + Me.pnltitlebaroptions.Controls.Add(Me.lbcornerwidth) + Me.pnltitlebaroptions.Controls.Add(Me.pnltitlebarrightcornercolour) + Me.pnltitlebaroptions.Controls.Add(Me.pnltitlebarleftcornercolour) + Me.pnltitlebaroptions.Controls.Add(Me.lbrightcornercolor) + Me.pnltitlebaroptions.Controls.Add(Me.lbleftcornercolor) + Me.pnltitlebaroptions.Controls.Add(Me.cboxtitlebarcorners) + Me.pnltitlebaroptions.Controls.Add(Me.Label5) + Me.pnltitlebaroptions.Controls.Add(Me.txttitlebarheight) + Me.pnltitlebaroptions.Controls.Add(Me.Label4) + Me.pnltitlebaroptions.Controls.Add(Me.pnltitlebarcolour) + Me.pnltitlebaroptions.Controls.Add(Me.Label2) + Me.pnltitlebaroptions.Location = New System.Drawing.Point(325, 159) + Me.pnltitlebaroptions.Name = "pnltitlebaroptions" + Me.pnltitlebaroptions.Size = New System.Drawing.Size(33, 65) + Me.pnltitlebaroptions.TabIndex = 9 + Me.pnltitlebaroptions.Visible = False + ' + 'Label80 + ' + Me.Label80.AutoSize = True + Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label80.Location = New System.Drawing.Point(277, 105) + Me.Label80.Name = "Label80" + Me.Label80.Size = New System.Drawing.Size(22, 16) + Me.Label80.TabIndex = 19 + Me.Label80.Text = "px" + ' + 'txticonfromtop + ' + Me.txticonfromtop.BackColor = System.Drawing.Color.White + Me.txticonfromtop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txticonfromtop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txticonfromtop.ForeColor = System.Drawing.Color.Black + Me.txticonfromtop.Location = New System.Drawing.Point(253, 103) + Me.txticonfromtop.Name = "txticonfromtop" + Me.txticonfromtop.Size = New System.Drawing.Size(23, 22) + Me.txticonfromtop.TabIndex = 18 + ' + 'Label81 + ' + Me.Label81.AutoSize = True + Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label81.Location = New System.Drawing.Point(157, 105) + Me.Label81.Name = "Label81" + Me.Label81.Size = New System.Drawing.Size(98, 16) + Me.Label81.TabIndex = 17 + Me.Label81.Text = "Icon From Top:" + ' + 'Label78 + ' + Me.Label78.AutoSize = True + Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label78.Location = New System.Drawing.Point(128, 105) + Me.Label78.Name = "Label78" + Me.Label78.Size = New System.Drawing.Size(22, 16) + Me.Label78.TabIndex = 16 + Me.Label78.Text = "px" + ' + 'txticonfromside + ' + Me.txticonfromside.BackColor = System.Drawing.Color.White + Me.txticonfromside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txticonfromside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txticonfromside.ForeColor = System.Drawing.Color.Black + Me.txticonfromside.Location = New System.Drawing.Point(104, 103) + Me.txticonfromside.Name = "txticonfromside" + Me.txticonfromside.Size = New System.Drawing.Size(23, 22) + Me.txticonfromside.TabIndex = 15 + ' + 'Label79 + ' + Me.Label79.AutoSize = True + Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label79.Location = New System.Drawing.Point(3, 105) + Me.Label79.Name = "Label79" + Me.Label79.Size = New System.Drawing.Size(101, 16) + Me.Label79.TabIndex = 14 + Me.Label79.Text = "Icon From Side:" + ' + 'lbcornerwidthpx + ' + Me.lbcornerwidthpx.AutoSize = True + Me.lbcornerwidthpx.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbcornerwidthpx.Location = New System.Drawing.Point(277, 32) + Me.lbcornerwidthpx.Name = "lbcornerwidthpx" + Me.lbcornerwidthpx.Size = New System.Drawing.Size(22, 16) + Me.lbcornerwidthpx.TabIndex = 13 + Me.lbcornerwidthpx.Text = "px" + ' + 'txttitlebarcornerwidth + ' + Me.txttitlebarcornerwidth.BackColor = System.Drawing.Color.White + Me.txttitlebarcornerwidth.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttitlebarcornerwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttitlebarcornerwidth.ForeColor = System.Drawing.Color.Black + Me.txttitlebarcornerwidth.Location = New System.Drawing.Point(253, 30) + Me.txttitlebarcornerwidth.Name = "txttitlebarcornerwidth" + Me.txttitlebarcornerwidth.Size = New System.Drawing.Size(23, 22) + Me.txttitlebarcornerwidth.TabIndex = 12 + ' + 'lbcornerwidth + ' + Me.lbcornerwidth.AutoSize = True + Me.lbcornerwidth.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbcornerwidth.Location = New System.Drawing.Point(163, 32) + Me.lbcornerwidth.Name = "lbcornerwidth" + Me.lbcornerwidth.Size = New System.Drawing.Size(88, 16) + Me.lbcornerwidth.TabIndex = 11 + Me.lbcornerwidth.Text = "Corner Width:" + ' + 'pnltitlebarrightcornercolour + ' + Me.pnltitlebarrightcornercolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnltitlebarrightcornercolour.Location = New System.Drawing.Point(136, 80) + Me.pnltitlebarrightcornercolour.Name = "pnltitlebarrightcornercolour" + Me.pnltitlebarrightcornercolour.Size = New System.Drawing.Size(41, 20) + Me.pnltitlebarrightcornercolour.TabIndex = 10 + ' + 'pnltitlebarleftcornercolour + ' + Me.pnltitlebarleftcornercolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnltitlebarleftcornercolour.Location = New System.Drawing.Point(126, 56) + Me.pnltitlebarleftcornercolour.Name = "pnltitlebarleftcornercolour" + Me.pnltitlebarleftcornercolour.Size = New System.Drawing.Size(41, 20) + Me.pnltitlebarleftcornercolour.TabIndex = 8 + ' + 'lbrightcornercolor + ' + Me.lbrightcornercolor.AutoSize = True + Me.lbrightcornercolor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbrightcornercolor.Location = New System.Drawing.Point(3, 81) + Me.lbrightcornercolor.Name = "lbrightcornercolor" + Me.lbrightcornercolor.Size = New System.Drawing.Size(127, 16) + Me.lbrightcornercolor.TabIndex = 9 + Me.lbrightcornercolor.Text = "Right Corner Colour:" + ' + 'lbleftcornercolor + ' + Me.lbleftcornercolor.AutoSize = True + Me.lbleftcornercolor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbleftcornercolor.Location = New System.Drawing.Point(3, 57) + Me.lbleftcornercolor.Name = "lbleftcornercolor" + Me.lbleftcornercolor.Size = New System.Drawing.Size(117, 16) + Me.lbleftcornercolor.TabIndex = 7 + Me.lbleftcornercolor.Text = "Left Corner Colour:" + ' + 'cboxtitlebarcorners + ' + Me.cboxtitlebarcorners.AutoSize = True + Me.cboxtitlebarcorners.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.cboxtitlebarcorners.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black + Me.cboxtitlebarcorners.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboxtitlebarcorners.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.25!) + Me.cboxtitlebarcorners.Location = New System.Drawing.Point(166, 4) + Me.cboxtitlebarcorners.Name = "cboxtitlebarcorners" + Me.cboxtitlebarcorners.Size = New System.Drawing.Size(131, 21) + Me.cboxtitlebarcorners.TabIndex = 6 + Me.cboxtitlebarcorners.Text = "Title Bar Corners" + Me.cboxtitlebarcorners.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(136, 32) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(22, 16) + Me.Label5.TabIndex = 5 + Me.Label5.Text = "px" + ' + 'txttitlebarheight + ' + Me.txttitlebarheight.BackColor = System.Drawing.Color.White + Me.txttitlebarheight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttitlebarheight.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttitlebarheight.ForeColor = System.Drawing.Color.Black + Me.txttitlebarheight.Location = New System.Drawing.Point(112, 30) + Me.txttitlebarheight.Name = "txttitlebarheight" + Me.txttitlebarheight.Size = New System.Drawing.Size(23, 22) + Me.txttitlebarheight.TabIndex = 4 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(3, 32) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(103, 16) + Me.Label4.TabIndex = 2 + Me.Label4.Text = "Title Bar Height:" + ' + 'pnltitlebarcolour + ' + Me.pnltitlebarcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnltitlebarcolour.Location = New System.Drawing.Point(112, 5) + Me.pnltitlebarcolour.Name = "pnltitlebarcolour" + Me.pnltitlebarcolour.Size = New System.Drawing.Size(41, 20) + Me.pnltitlebarcolour.TabIndex = 1 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(3, 7) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(103, 16) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Title Bar Colour:" + ' + 'pnlborderoptions + ' + Me.pnlborderoptions.Controls.Add(Me.cbindividualbordercolours) + Me.pnlborderoptions.Controls.Add(Me.pnlborderbottomrightcolour) + Me.pnlborderoptions.Controls.Add(Me.Label77) + Me.pnlborderoptions.Controls.Add(Me.pnlborderbottomcolour) + Me.pnlborderoptions.Controls.Add(Me.Label76) + Me.pnlborderoptions.Controls.Add(Me.pnlborderbottomleftcolour) + Me.pnlborderoptions.Controls.Add(Me.Label75) + Me.pnlborderoptions.Controls.Add(Me.pnlborderrightcolour) + Me.pnlborderoptions.Controls.Add(Me.Label74) + Me.pnlborderoptions.Controls.Add(Me.pnlborderleftcolour) + Me.pnlborderoptions.Controls.Add(Me.Label73) + Me.pnlborderoptions.Controls.Add(Me.Label15) + Me.pnlborderoptions.Controls.Add(Me.pnlbordercolour) + Me.pnlborderoptions.Controls.Add(Me.txtbordersize) + Me.pnlborderoptions.Controls.Add(Me.Label3) + Me.pnlborderoptions.Controls.Add(Me.Label16) + Me.pnlborderoptions.Location = New System.Drawing.Point(407, 188) + Me.pnlborderoptions.Name = "pnlborderoptions" + Me.pnlborderoptions.Size = New System.Drawing.Size(44, 52) + Me.pnlborderoptions.TabIndex = 10 + Me.pnlborderoptions.Visible = False + ' + 'cbindividualbordercolours + ' + Me.cbindividualbordercolours.AutoSize = True + Me.cbindividualbordercolours.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.cbindividualbordercolours.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black + Me.cbindividualbordercolours.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbindividualbordercolours.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.25!) + Me.cbindividualbordercolours.Location = New System.Drawing.Point(161, 4) + Me.cbindividualbordercolours.Name = "cbindividualbordercolours" + Me.cbindividualbordercolours.Size = New System.Drawing.Size(135, 21) + Me.cbindividualbordercolours.TabIndex = 28 + Me.cbindividualbordercolours.Text = "Individual Colours" + Me.cbindividualbordercolours.UseVisualStyleBackColor = True + ' + 'pnlborderbottomrightcolour + ' + Me.pnlborderbottomrightcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlborderbottomrightcolour.Location = New System.Drawing.Point(132, 101) + Me.pnlborderbottomrightcolour.Name = "pnlborderbottomrightcolour" + Me.pnlborderbottomrightcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlborderbottomrightcolour.TabIndex = 27 + ' + 'Label77 + ' + Me.Label77.AutoSize = True + Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label77.Location = New System.Drawing.Point(3, 103) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(129, 16) + Me.Label77.TabIndex = 26 + Me.Label77.Text = "Bottom Right Colour:" + ' + 'pnlborderbottomcolour + ' + Me.pnlborderbottomcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlborderbottomcolour.Location = New System.Drawing.Point(263, 31) + Me.pnlborderbottomcolour.Name = "pnlborderbottomcolour" + Me.pnlborderbottomcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlborderbottomcolour.TabIndex = 25 + ' + 'Label76 + ' + Me.Label76.AutoSize = True + Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label76.Location = New System.Drawing.Point(158, 32) + Me.Label76.Name = "Label76" + Me.Label76.Size = New System.Drawing.Size(95, 16) + Me.Label76.TabIndex = 24 + Me.Label76.Text = "Bottom Colour:" + ' + 'pnlborderbottomleftcolour + ' + Me.pnlborderbottomleftcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlborderbottomleftcolour.Location = New System.Drawing.Point(124, 78) + Me.pnlborderbottomleftcolour.Name = "pnlborderbottomleftcolour" + Me.pnlborderbottomleftcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlborderbottomleftcolour.TabIndex = 23 + ' + 'Label75 + ' + Me.Label75.AutoSize = True + Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label75.Location = New System.Drawing.Point(3, 80) + Me.Label75.Name = "Label75" + Me.Label75.Size = New System.Drawing.Size(119, 16) + Me.Label75.TabIndex = 22 + Me.Label75.Text = "Bottom Left Colour:" + ' + 'pnlborderrightcolour + ' + Me.pnlborderrightcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlborderrightcolour.Location = New System.Drawing.Point(263, 54) + Me.pnlborderrightcolour.Name = "pnlborderrightcolour" + Me.pnlborderrightcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlborderrightcolour.TabIndex = 21 + ' + 'Label74 + ' + Me.Label74.AutoSize = True + Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label74.Location = New System.Drawing.Point(157, 56) + Me.Label74.Name = "Label74" + Me.Label74.Size = New System.Drawing.Size(84, 16) + Me.Label74.TabIndex = 20 + Me.Label74.Text = "Right Colour:" + ' + 'pnlborderleftcolour + ' + Me.pnlborderleftcolour.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pnlborderleftcolour.Location = New System.Drawing.Point(102, 54) + Me.pnlborderleftcolour.Name = "pnlborderleftcolour" + Me.pnlborderleftcolour.Size = New System.Drawing.Size(41, 20) + Me.pnlborderleftcolour.TabIndex = 19 + ' + 'Label73 + ' + Me.Label73.AutoSize = True + Me.Label73.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label73.Location = New System.Drawing.Point(3, 56) + Me.Label73.Name = "Label73" + Me.Label73.Size = New System.Drawing.Size(74, 16) + Me.Label73.TabIndex = 18 + Me.Label73.Text = "Left Colour:" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(126, 31) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(22, 16) + Me.Label15.TabIndex = 17 + Me.Label15.Text = "px" + ' + 'pnlbordercolour + ' + Me.pnlbordercolour.Location = New System.Drawing.Point(102, 5) + Me.pnlbordercolour.Name = "pnlbordercolour" + Me.pnlbordercolour.Size = New System.Drawing.Size(41, 20) + Me.pnlbordercolour.TabIndex = 3 + ' + 'txtbordersize + ' + Me.txtbordersize.BackColor = System.Drawing.Color.White + Me.txtbordersize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtbordersize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbordersize.ForeColor = System.Drawing.Color.Black + Me.txtbordersize.Location = New System.Drawing.Point(102, 29) + Me.txtbordersize.Name = "txtbordersize" + Me.txtbordersize.Size = New System.Drawing.Size(23, 22) + Me.txtbordersize.TabIndex = 16 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(3, 7) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(94, 16) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Border Colour:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(3, 31) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(81, 16) + Me.Label16.TabIndex = 15 + Me.Label16.Text = "Border Size:" + ' + 'pnltitletextoptions + ' + Me.pnltitletextoptions.Controls.Add(Me.combotitletextposition) + Me.pnltitletextoptions.Controls.Add(Me.Label53) + Me.pnltitletextoptions.Controls.Add(Me.combotitletextstyle) + Me.pnltitletextoptions.Controls.Add(Me.combotitletextfont) + Me.pnltitletextoptions.Controls.Add(Me.Label23) + Me.pnltitletextoptions.Controls.Add(Me.Label17) + Me.pnltitletextoptions.Controls.Add(Me.txttitletextside) + Me.pnltitletextoptions.Controls.Add(Me.Label18) + Me.pnltitletextoptions.Controls.Add(Me.Label19) + Me.pnltitletextoptions.Controls.Add(Me.txttitletexttop) + Me.pnltitletextoptions.Controls.Add(Me.Label20) + Me.pnltitletextoptions.Controls.Add(Me.Label21) + Me.pnltitletextoptions.Controls.Add(Me.txttitletextsize) + Me.pnltitletextoptions.Controls.Add(Me.Label22) + Me.pnltitletextoptions.Controls.Add(Me.Label24) + Me.pnltitletextoptions.Controls.Add(Me.pnltitletextcolour) + Me.pnltitletextoptions.Controls.Add(Me.Label25) + Me.pnltitletextoptions.Location = New System.Drawing.Point(408, 264) + Me.pnltitletextoptions.Name = "pnltitletextoptions" + Me.pnltitletextoptions.Size = New System.Drawing.Size(43, 27) + Me.pnltitletextoptions.TabIndex = 15 + Me.pnltitletextoptions.Visible = False + ' + 'combotitletextposition + ' + Me.combotitletextposition.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combotitletextposition.FormattingEnabled = True + Me.combotitletextposition.Items.AddRange(New Object() {"Left", "Centre"}) + Me.combotitletextposition.Location = New System.Drawing.Point(211, 54) + Me.combotitletextposition.Name = "combotitletextposition" + Me.combotitletextposition.Size = New System.Drawing.Size(95, 24) + Me.combotitletextposition.TabIndex = 21 + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label53.Location = New System.Drawing.Point(149, 57) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(59, 16) + Me.Label53.TabIndex = 20 + Me.Label53.Text = "Position:" + ' + 'combotitletextstyle + ' + Me.combotitletextstyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combotitletextstyle.FormattingEnabled = True + Me.combotitletextstyle.Items.AddRange(New Object() {"Bold", "Italic", "Regular", "Strikeout", "Underline"}) + Me.combotitletextstyle.Location = New System.Drawing.Point(207, 3) + Me.combotitletextstyle.Name = "combotitletextstyle" + Me.combotitletextstyle.Size = New System.Drawing.Size(99, 24) + Me.combotitletextstyle.TabIndex = 18 + ' + 'combotitletextfont + ' + Me.combotitletextfont.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.combotitletextfont.FormattingEnabled = True + Me.combotitletextfont.Location = New System.Drawing.Point(100, 30) + Me.combotitletextfont.Name = "combotitletextfont" + Me.combotitletextfont.Size = New System.Drawing.Size(202, 24) + Me.combotitletextfont.TabIndex = 17 + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(164, 7) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(41, 16) + Me.Label23.TabIndex = 15 + Me.Label23.Text = "Style:" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(159, 107) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(22, 16) + Me.Label17.TabIndex = 14 + Me.Label17.Text = "px" + ' + 'txttitletextside + ' + Me.txttitletextside.BackColor = System.Drawing.Color.White + Me.txttitletextside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttitletextside.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttitletextside.ForeColor = System.Drawing.Color.Black + Me.txttitletextside.Location = New System.Drawing.Point(135, 105) + Me.txttitletextside.Name = "txttitletextside" + Me.txttitletextside.Size = New System.Drawing.Size(23, 22) + Me.txttitletextside.TabIndex = 13 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(3, 107) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(131, 16) + Me.Label18.TabIndex = 12 + Me.Label18.Text = "Title Text From Side:" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(159, 82) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(22, 16) + Me.Label19.TabIndex = 11 + Me.Label19.Text = "px" + ' + 'txttitletexttop + ' + Me.txttitletexttop.BackColor = System.Drawing.Color.White + Me.txttitletexttop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttitletexttop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttitletexttop.ForeColor = System.Drawing.Color.Black + Me.txttitletexttop.Location = New System.Drawing.Point(135, 80) + Me.txttitletexttop.Name = "txttitletexttop" + Me.txttitletexttop.Size = New System.Drawing.Size(23, 22) + Me.txttitletexttop.TabIndex = 10 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(3, 82) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(128, 16) + Me.Label20.TabIndex = 9 + Me.Label20.Text = "Title Text From Top:" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(124, 57) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(22, 16) + Me.Label21.TabIndex = 8 + Me.Label21.Text = "px" + ' + 'txttitletextsize + ' + Me.txttitletextsize.BackColor = System.Drawing.Color.White + Me.txttitletextsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txttitletextsize.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txttitletextsize.ForeColor = System.Drawing.Color.Black + Me.txttitletextsize.Location = New System.Drawing.Point(100, 55) + Me.txttitletextsize.Name = "txttitletextsize" + Me.txttitletextsize.Size = New System.Drawing.Size(23, 22) + Me.txttitletextsize.TabIndex = 7 + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(3, 57) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(95, 16) + Me.Label22.TabIndex = 6 + Me.Label22.Text = "Title Text Size:" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.Location = New System.Drawing.Point(3, 33) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(95, 16) + Me.Label24.TabIndex = 2 + Me.Label24.Text = "Title Text Font:" + ' + 'pnltitletextcolour + ' + Me.pnltitletextcolour.Location = New System.Drawing.Point(114, 5) + Me.pnltitletextcolour.Name = "pnltitletextcolour" + Me.pnltitletextcolour.Size = New System.Drawing.Size(41, 20) + Me.pnltitletextcolour.TabIndex = 1 + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.Location = New System.Drawing.Point(3, 7) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(108, 16) + Me.Label25.TabIndex = 0 + Me.Label25.Text = "Title Text Colour:" + ' + 'pnlwindowsintro + ' + Me.pnlwindowsintro.Controls.Add(Me.Label68) + Me.pnlwindowsintro.Controls.Add(Me.Label67) + Me.pnlwindowsintro.Location = New System.Drawing.Point(156, 202) + Me.pnlwindowsintro.Name = "pnlwindowsintro" + Me.pnlwindowsintro.Size = New System.Drawing.Size(107, 74) + Me.pnlwindowsintro.TabIndex = 16 + ' + 'Label68 + ' + Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label68.Location = New System.Drawing.Point(3, 20) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(312, 113) + Me.Label68.TabIndex = 1 + Me.Label68.Text = resources.GetString("Label68.Text") + Me.Label68.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label67.Location = New System.Drawing.Point(89, -2) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(143, 20) + Me.Label67.TabIndex = 0 + Me.Label67.Text = "Window Settings" + ' + 'pnlwindowsobjects + ' + Me.pnlwindowsobjects.Controls.Add(Me.btnborders) + Me.pnlwindowsobjects.Controls.Add(Me.btnbuttons) + Me.pnlwindowsobjects.Controls.Add(Me.btntitletext) + Me.pnlwindowsobjects.Controls.Add(Me.btntitlebar) + Me.pnlwindowsobjects.Location = New System.Drawing.Point(1, 159) + Me.pnlwindowsobjects.Name = "pnlwindowsobjects" + Me.pnlwindowsobjects.Size = New System.Drawing.Size(128, 135) + Me.pnlwindowsobjects.TabIndex = 8 + ' + 'btnborders + ' + Me.btnborders.BackColor = System.Drawing.Color.White + Me.btnborders.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnborders.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnborders.Location = New System.Drawing.Point(4, 105) + Me.btnborders.Name = "btnborders" + Me.btnborders.Size = New System.Drawing.Size(119, 29) + Me.btnborders.TabIndex = 7 + Me.btnborders.TabStop = False + Me.btnborders.Text = "Borders" + Me.btnborders.UseVisualStyleBackColor = False + ' + 'btnbuttons + ' + Me.btnbuttons.BackColor = System.Drawing.Color.White + Me.btnbuttons.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnbuttons.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnbuttons.Location = New System.Drawing.Point(4, 70) + Me.btnbuttons.Name = "btnbuttons" + Me.btnbuttons.Size = New System.Drawing.Size(119, 29) + Me.btnbuttons.TabIndex = 6 + Me.btnbuttons.TabStop = False + Me.btnbuttons.Text = "Buttons" + Me.btnbuttons.UseVisualStyleBackColor = False + ' + 'btntitletext + ' + Me.btntitletext.BackColor = System.Drawing.Color.White + Me.btntitletext.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntitletext.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btntitletext.Location = New System.Drawing.Point(4, 35) + Me.btntitletext.Name = "btntitletext" + Me.btntitletext.Size = New System.Drawing.Size(119, 29) + Me.btntitletext.TabIndex = 5 + Me.btntitletext.TabStop = False + Me.btntitletext.Text = "Title Text" + Me.btntitletext.UseVisualStyleBackColor = False + ' + 'btntitlebar + ' + Me.btntitlebar.BackColor = System.Drawing.Color.White + Me.btntitlebar.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btntitlebar.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btntitlebar.Location = New System.Drawing.Point(4, 0) + Me.btntitlebar.Name = "btntitlebar" + Me.btntitlebar.Size = New System.Drawing.Size(119, 29) + Me.btntitlebar.TabIndex = 4 + Me.btntitlebar.TabStop = False + Me.btntitlebar.Text = "Title Bar" + Me.btntitlebar.UseVisualStyleBackColor = False + ' + 'pnlwindowpreview + ' + Me.pnlwindowpreview.Controls.Add(Me.prepgcontent) + Me.pnlwindowpreview.Controls.Add(Me.prepgbottom) + Me.pnlwindowpreview.Controls.Add(Me.prepgleft) + Me.pnlwindowpreview.Controls.Add(Me.prepgright) + Me.pnlwindowpreview.Controls.Add(Me.pretitlebar) + Me.pnlwindowpreview.Location = New System.Drawing.Point(5, 3) + Me.pnlwindowpreview.Name = "pnlwindowpreview" + Me.pnlwindowpreview.Size = New System.Drawing.Size(448, 148) + Me.pnlwindowpreview.TabIndex = 0 + ' + 'prepgcontent + ' + Me.prepgcontent.Dock = System.Windows.Forms.DockStyle.Fill + Me.prepgcontent.Location = New System.Drawing.Point(2, 30) + Me.prepgcontent.Name = "prepgcontent" + Me.prepgcontent.Size = New System.Drawing.Size(444, 116) + Me.prepgcontent.TabIndex = 20 + ' + 'prepgbottom + ' + Me.prepgbottom.BackColor = System.Drawing.Color.Gray + Me.prepgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prepgbottom.Location = New System.Drawing.Point(2, 146) + Me.prepgbottom.Name = "prepgbottom" + Me.prepgbottom.Size = New System.Drawing.Size(444, 2) + Me.prepgbottom.TabIndex = 23 + ' + 'prepgleft + ' + Me.prepgleft.BackColor = System.Drawing.Color.Gray + Me.prepgleft.Controls.Add(Me.prepgbottomlcorner) + Me.prepgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.prepgleft.Location = New System.Drawing.Point(0, 30) + Me.prepgleft.Name = "prepgleft" + Me.prepgleft.Size = New System.Drawing.Size(2, 118) + Me.prepgleft.TabIndex = 21 + ' + 'prepgbottomlcorner + ' + Me.prepgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.prepgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prepgbottomlcorner.Location = New System.Drawing.Point(0, 116) + Me.prepgbottomlcorner.Name = "prepgbottomlcorner" + Me.prepgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.prepgbottomlcorner.TabIndex = 14 + ' + 'prepgright + ' + Me.prepgright.BackColor = System.Drawing.Color.Gray + Me.prepgright.Controls.Add(Me.prepgbottomrcorner) + Me.prepgright.Dock = System.Windows.Forms.DockStyle.Right + Me.prepgright.Location = New System.Drawing.Point(446, 30) + Me.prepgright.Name = "prepgright" + Me.prepgright.Size = New System.Drawing.Size(2, 118) + Me.prepgright.TabIndex = 22 + ' + 'prepgbottomrcorner + ' + Me.prepgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.prepgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prepgbottomrcorner.Location = New System.Drawing.Point(0, 116) + Me.prepgbottomrcorner.Name = "prepgbottomrcorner" + Me.prepgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.prepgbottomrcorner.TabIndex = 15 + ' + 'pretitlebar + ' + Me.pretitlebar.BackColor = System.Drawing.Color.Gray + Me.pretitlebar.Controls.Add(Me.preminimizebutton) + Me.pretitlebar.Controls.Add(Me.prepnlicon) + Me.pretitlebar.Controls.Add(Me.prerollupbutton) + Me.pretitlebar.Controls.Add(Me.preclosebutton) + Me.pretitlebar.Controls.Add(Me.pretitletext) + Me.pretitlebar.Controls.Add(Me.prepgtoplcorner) + Me.pretitlebar.Controls.Add(Me.prepgtoprcorner) + Me.pretitlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.pretitlebar.ForeColor = System.Drawing.Color.White + Me.pretitlebar.Location = New System.Drawing.Point(0, 0) + Me.pretitlebar.Name = "pretitlebar" + Me.pretitlebar.Size = New System.Drawing.Size(448, 30) + Me.pretitlebar.TabIndex = 19 + ' + 'preminimizebutton + ' + Me.preminimizebutton.BackColor = System.Drawing.Color.Black + Me.preminimizebutton.Location = New System.Drawing.Point(185, 5) + Me.preminimizebutton.Name = "preminimizebutton" + Me.preminimizebutton.Size = New System.Drawing.Size(22, 22) + Me.preminimizebutton.TabIndex = 31 + ' + 'prepnlicon + ' + Me.prepnlicon.BackColor = System.Drawing.Color.Transparent + Me.prepnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconShifter + Me.prepnlicon.Location = New System.Drawing.Point(8, 8) + Me.prepnlicon.Name = "prepnlicon" + Me.prepnlicon.Size = New System.Drawing.Size(16, 16) + Me.prepnlicon.TabIndex = 32 + Me.prepnlicon.TabStop = False + Me.prepnlicon.Visible = False + ' + 'prerollupbutton + ' + Me.prerollupbutton.BackColor = System.Drawing.Color.Black + Me.prerollupbutton.Location = New System.Drawing.Point(213, 5) + Me.prerollupbutton.Name = "prerollupbutton" + Me.prerollupbutton.Size = New System.Drawing.Size(22, 22) + Me.prerollupbutton.TabIndex = 31 + ' + 'preclosebutton + ' + Me.preclosebutton.BackColor = System.Drawing.Color.Black + Me.preclosebutton.Location = New System.Drawing.Point(251, 5) + Me.preclosebutton.Name = "preclosebutton" + Me.preclosebutton.Size = New System.Drawing.Size(22, 22) + Me.preclosebutton.TabIndex = 20 + ' + 'pretitletext + ' + Me.pretitletext.AutoSize = True + Me.pretitletext.BackColor = System.Drawing.Color.Transparent + Me.pretitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pretitletext.Location = New System.Drawing.Point(29, 7) + Me.pretitletext.Name = "pretitletext" + Me.pretitletext.Size = New System.Drawing.Size(89, 18) + Me.pretitletext.TabIndex = 19 + Me.pretitletext.Text = "Template" + ' + 'prepgtoplcorner + ' + Me.prepgtoplcorner.BackColor = System.Drawing.Color.Red + Me.prepgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.prepgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.prepgtoplcorner.Name = "prepgtoplcorner" + Me.prepgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.prepgtoplcorner.TabIndex = 17 + ' + 'prepgtoprcorner + ' + Me.prepgtoprcorner.BackColor = System.Drawing.Color.Red + Me.prepgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.prepgtoprcorner.Location = New System.Drawing.Point(446, 0) + Me.prepgtoprcorner.Name = "prepgtoprcorner" + Me.prepgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.prepgtoprcorner.TabIndex = 16 + ' + 'pnlreset + ' + Me.pnlreset.Controls.Add(Me.Label113) + Me.pnlreset.Controls.Add(Me.btnresetallsettings) + Me.pnlreset.Controls.Add(Me.Label109) + Me.pnlreset.Controls.Add(Me.Label111) + Me.pnlreset.Location = New System.Drawing.Point(134, 272) + Me.pnlreset.Name = "pnlreset" + Me.pnlreset.Size = New System.Drawing.Size(55, 26) + Me.pnlreset.TabIndex = 18 + ' + 'Label113 + ' + Me.Label113.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label113.Location = New System.Drawing.Point(57, 231) + Me.Label113.Name = "Label113" + Me.Label113.Size = New System.Drawing.Size(332, 33) + Me.Label113.TabIndex = 5 + Me.Label113.Text = "Warning! A Global Reset Is Irreversible!" + Me.Label113.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnresetallsettings + ' + Me.btnresetallsettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnresetallsettings.Font = New System.Drawing.Font("Cambria", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnresetallsettings.Location = New System.Drawing.Point(101, 145) + Me.btnresetallsettings.Name = "btnresetallsettings" + Me.btnresetallsettings.Size = New System.Drawing.Size(255, 83) + Me.btnresetallsettings.TabIndex = 4 + Me.btnresetallsettings.TabStop = False + Me.btnresetallsettings.Text = "Reset All Settings" + Me.btnresetallsettings.UseVisualStyleBackColor = True + ' + 'Label109 + ' + Me.Label109.BackColor = System.Drawing.Color.Transparent + Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label109.Location = New System.Drawing.Point(4, 40) + Me.Label109.Name = "Label109" + Me.Label109.Size = New System.Drawing.Size(451, 66) + Me.Label109.TabIndex = 3 + Me.Label109.Text = resources.GetString("Label109.Text") + Me.Label109.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label111 + ' + Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label111.Location = New System.Drawing.Point(68, 4) + Me.Label111.Name = "Label111" + Me.Label111.Size = New System.Drawing.Size(332, 33) + Me.Label111.TabIndex = 2 + Me.Label111.Text = "Global Settings Reset!" + Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.pnlreset) + Me.pgcontents.Controls.Add(Me.pnlwindowsoptions) + Me.pgcontents.Controls.Add(Me.pnldesktopoptions) + Me.pgcontents.Controls.Add(Me.pnlshifterintro) + Me.pgcontents.Controls.Add(Me.catholder) + Me.pgcontents.Controls.Add(Me.btnapply) + Me.pgcontents.Controls.Add(Me.Label1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(596, 307) + Me.pgcontents.TabIndex = 0 + ' + 'tmrfix + ' + Me.tmrfix.Interval = 5000 + ' + 'Shifter + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(600, 339) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Shifter" + Me.Text = "Shifter" + Me.TopMost = True + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.catholder.ResumeLayout(False) + Me.pnlshifterintro.ResumeLayout(False) + Me.pnlshifterintro.PerformLayout() + Me.pnldesktopoptions.ResumeLayout(False) + Me.pnlpanelbuttonsoptions.ResumeLayout(False) + Me.pnlpanelbuttonsoptions.PerformLayout() + Me.pnldesktoppaneloptions.ResumeLayout(False) + Me.pnldesktoppaneloptions.PerformLayout() + Me.pnlapplauncheroptions.ResumeLayout(False) + Me.pnlapplauncheroptions.PerformLayout() + Me.pnldesktopintro.ResumeLayout(False) + Me.pnldesktopintro.PerformLayout() + Me.pnlpanelclockoptions.ResumeLayout(False) + Me.pnlpanelclockoptions.PerformLayout() + Me.pnldesktopbackgroundoptions.ResumeLayout(False) + Me.pnldesktopbackgroundoptions.PerformLayout() + Me.Panel10.ResumeLayout(False) + Me.pnldesktoppreview.ResumeLayout(False) + Me.predesktoppanel.ResumeLayout(False) + Me.prepnlpanelbuttonholder.ResumeLayout(False) + Me.prepnlpanelbutton.ResumeLayout(False) + Me.prepnlpanelbutton.PerformLayout() + CType(Me.pretbicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pretimepanel.ResumeLayout(False) + Me.pretimepanel.PerformLayout() + Me.preapplaunchermenuholder.ResumeLayout(False) + Me.predesktopappmenu.ResumeLayout(False) + Me.predesktopappmenu.PerformLayout() + Me.pnlwindowsoptions.ResumeLayout(False) + Me.pnlbuttonoptions.ResumeLayout(False) + Me.pnlbuttonoptions.PerformLayout() + Me.pnlminimizebuttonoptions.ResumeLayout(False) + Me.pnlminimizebuttonoptions.PerformLayout() + Me.pnlrollupbuttonoptions.ResumeLayout(False) + Me.pnlrollupbuttonoptions.PerformLayout() + Me.pnlclosebuttonoptions.ResumeLayout(False) + Me.pnlclosebuttonoptions.PerformLayout() + Me.pnltitlebaroptions.ResumeLayout(False) + Me.pnltitlebaroptions.PerformLayout() + Me.pnlborderoptions.ResumeLayout(False) + Me.pnlborderoptions.PerformLayout() + Me.pnltitletextoptions.ResumeLayout(False) + Me.pnltitletextoptions.PerformLayout() + Me.pnlwindowsintro.ResumeLayout(False) + Me.pnlwindowsintro.PerformLayout() + Me.pnlwindowsobjects.ResumeLayout(False) + Me.pnlwindowpreview.ResumeLayout(False) + Me.prepgleft.ResumeLayout(False) + Me.prepgright.ResumeLayout(False) + Me.pretitlebar.ResumeLayout(False) + Me.pretitlebar.PerformLayout() + CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlreset.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog + Friend WithEvents clocktick As System.Windows.Forms.Timer + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents customizationtime As System.Windows.Forms.Timer + Friend WithEvents timerearned As System.Windows.Forms.Timer + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnapply As System.Windows.Forms.Button + Friend WithEvents catholder As System.Windows.Forms.Panel + Friend WithEvents btnreset As System.Windows.Forms.Button + Friend WithEvents btnprograms As System.Windows.Forms.Button + Friend WithEvents btnicons As System.Windows.Forms.Button + Friend WithEvents btnwindows As System.Windows.Forms.Button + Friend WithEvents btndesktop As System.Windows.Forms.Button + Friend WithEvents pnlshifterintro As System.Windows.Forms.Panel + Friend WithEvents Label66 As System.Windows.Forms.Label + Friend WithEvents Label65 As System.Windows.Forms.Label + Friend WithEvents Label64 As System.Windows.Forms.Label + Friend WithEvents Label63 As System.Windows.Forms.Label + Friend WithEvents pnldesktopoptions As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttonsoptions As System.Windows.Forms.Panel + Friend WithEvents pnlpanelbuttontextcolour As System.Windows.Forms.Panel + Friend WithEvents Label101 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttontexttop As System.Windows.Forms.TextBox + Friend WithEvents Label104 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttontextside As System.Windows.Forms.TextBox + Friend WithEvents Label106 As System.Windows.Forms.Label + Friend WithEvents Label93 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttontop As System.Windows.Forms.TextBox + Friend WithEvents Label94 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttoninitalgap As System.Windows.Forms.TextBox + Friend WithEvents Label108 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttonicontop As System.Windows.Forms.TextBox + Friend WithEvents Label110 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttoniconside As System.Windows.Forms.TextBox + Friend WithEvents Label112 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttoniconsize As System.Windows.Forms.TextBox + Friend WithEvents txtpanelbuttoniconheight As System.Windows.Forms.TextBox + Friend WithEvents Label105 As System.Windows.Forms.Label + Friend WithEvents cbpanelbuttontextstyle As System.Windows.Forms.ComboBox + Friend WithEvents cbpanelbuttonfont As System.Windows.Forms.ComboBox + Friend WithEvents Label100 As System.Windows.Forms.Label + Friend WithEvents txtpaneltextbuttonsize As System.Windows.Forms.TextBox + Friend WithEvents Label102 As System.Windows.Forms.Label + Friend WithEvents Label103 As System.Windows.Forms.Label + Friend WithEvents Label98 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttongap As System.Windows.Forms.TextBox + Friend WithEvents Label99 As System.Windows.Forms.Label + Friend WithEvents Label96 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttonheight As System.Windows.Forms.TextBox + Friend WithEvents Label97 As System.Windows.Forms.Label + Friend WithEvents Label92 As System.Windows.Forms.Label + Friend WithEvents txtpanelbuttonwidth As System.Windows.Forms.TextBox + Friend WithEvents Label91 As System.Windows.Forms.Label + Friend WithEvents pnlpanelbuttoncolour As System.Windows.Forms.Panel + Friend WithEvents Label95 As System.Windows.Forms.Label + Friend WithEvents pnldesktoppaneloptions As System.Windows.Forms.Panel + Friend WithEvents btnpanelbuttons As System.Windows.Forms.Button + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents combodesktoppanelposition As System.Windows.Forms.ComboBox + Friend WithEvents Label46 As System.Windows.Forms.Label + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents txtdesktoppanelheight As System.Windows.Forms.TextBox + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents pnldesktoppanelcolour As System.Windows.Forms.Panel + Friend WithEvents Label49 As System.Windows.Forms.Label + Friend WithEvents pnlapplauncheroptions As System.Windows.Forms.Panel + Friend WithEvents Label71 As System.Windows.Forms.Label + Friend WithEvents txtapplauncherwidth As System.Windows.Forms.TextBox + Friend WithEvents Label72 As System.Windows.Forms.Label + Friend WithEvents txtappbuttonlabel As System.Windows.Forms.TextBox + Friend WithEvents Label51 As System.Windows.Forms.Label + Friend WithEvents Label50 As System.Windows.Forms.Label + Friend WithEvents pnlmaintextcolour As System.Windows.Forms.Panel + Friend WithEvents comboappbuttontextstyle As System.Windows.Forms.ComboBox + Friend WithEvents comboappbuttontextfont As System.Windows.Forms.ComboBox + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents txtappbuttontextsize As System.Windows.Forms.TextBox + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents pnlmenuitemsmouseover As System.Windows.Forms.Panel + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents pnlmenuitemscolour As System.Windows.Forms.Panel + Friend WithEvents Label42 As System.Windows.Forms.Label + Friend WithEvents pnlmainbuttonactivated As System.Windows.Forms.Panel + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents txtapplicationsbuttonheight As System.Windows.Forms.TextBox + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents pnlmainbuttoncolour As System.Windows.Forms.Panel + Friend WithEvents Label43 As System.Windows.Forms.Label + Friend WithEvents pnldesktopintro As System.Windows.Forms.Panel + Friend WithEvents Label69 As System.Windows.Forms.Label + Friend WithEvents Label70 As System.Windows.Forms.Label + Friend WithEvents pnlpanelclockoptions As System.Windows.Forms.Panel + Friend WithEvents pnlclockbackgroundcolour As System.Windows.Forms.Panel + Friend WithEvents Label44 As System.Windows.Forms.Label + Friend WithEvents comboclocktextstyle As System.Windows.Forms.ComboBox + Friend WithEvents comboclocktextfont As System.Windows.Forms.ComboBox + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents txtclocktextfromtop As System.Windows.Forms.TextBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents txtclocktextsize As System.Windows.Forms.TextBox + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents pnlpanelclocktextcolour As System.Windows.Forms.Panel + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents pnldesktopbackgroundoptions As System.Windows.Forms.Panel + Friend WithEvents pnldesktopcolour As System.Windows.Forms.Panel + Friend WithEvents Label45 As System.Windows.Forms.Label + Friend WithEvents Panel10 As System.Windows.Forms.Panel + Friend WithEvents btndesktopitself As System.Windows.Forms.Button + Friend WithEvents btnpanelclock As System.Windows.Forms.Button + Friend WithEvents btnapplauncher As System.Windows.Forms.Button + Friend WithEvents btndesktoppanel As System.Windows.Forms.Button + Friend WithEvents pnldesktoppreview As System.Windows.Forms.Panel + Friend WithEvents predesktoppanel As System.Windows.Forms.Panel + Friend WithEvents prepnlpanelbuttonholder As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents prepnlpanelbutton As System.Windows.Forms.Panel + Friend WithEvents pretbicon As System.Windows.Forms.PictureBox + Friend WithEvents pretbctext As System.Windows.Forms.Label + Friend WithEvents pretimepanel As System.Windows.Forms.Panel + Friend WithEvents prepaneltimetext As System.Windows.Forms.Label + Friend WithEvents preapplaunchermenuholder As System.Windows.Forms.Panel + Friend WithEvents predesktopappmenu As System.Windows.Forms.MenuStrip + Friend WithEvents ApplicationsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KnowledgeInputToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShiftoriumToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ClockToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TerminalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShifterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ShutdownToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlwindowsoptions As System.Windows.Forms.Panel + Friend WithEvents pnlbuttonoptions As System.Windows.Forms.Panel + Friend WithEvents pnlminimizebuttonoptions As System.Windows.Forms.Panel + Friend WithEvents Label82 As System.Windows.Forms.Label + Friend WithEvents Label83 As System.Windows.Forms.Label + Friend WithEvents pnlminimizebuttoncolour As System.Windows.Forms.Panel + Friend WithEvents txtminimizebuttonside As System.Windows.Forms.TextBox + Friend WithEvents Label84 As System.Windows.Forms.Label + Friend WithEvents Label85 As System.Windows.Forms.Label + Friend WithEvents txtminimizebuttonheight As System.Windows.Forms.TextBox + Friend WithEvents Label86 As System.Windows.Forms.Label + Friend WithEvents Label87 As System.Windows.Forms.Label + Friend WithEvents txtminimizebuttontop As System.Windows.Forms.TextBox + Friend WithEvents Label88 As System.Windows.Forms.Label + Friend WithEvents Label89 As System.Windows.Forms.Label + Friend WithEvents txtminimizebuttonwidth As System.Windows.Forms.TextBox + Friend WithEvents Label90 As System.Windows.Forms.Label + Friend WithEvents pnlrollupbuttonoptions As System.Windows.Forms.Panel + Friend WithEvents Label54 As System.Windows.Forms.Label + Friend WithEvents Label55 As System.Windows.Forms.Label + Friend WithEvents pnlrollupbuttoncolour As System.Windows.Forms.Panel + Friend WithEvents txtrollupbuttonside As System.Windows.Forms.TextBox + Friend WithEvents Label56 As System.Windows.Forms.Label + Friend WithEvents Label57 As System.Windows.Forms.Label + Friend WithEvents txtrollupbuttonheight As System.Windows.Forms.TextBox + Friend WithEvents Label58 As System.Windows.Forms.Label + Friend WithEvents Label59 As System.Windows.Forms.Label + Friend WithEvents txtrollupbuttontop As System.Windows.Forms.TextBox + Friend WithEvents Label60 As System.Windows.Forms.Label + Friend WithEvents Label61 As System.Windows.Forms.Label + Friend WithEvents txtrollupbuttonwidth As System.Windows.Forms.TextBox + Friend WithEvents Label62 As System.Windows.Forms.Label + Friend WithEvents combobuttonoption As System.Windows.Forms.ComboBox + Friend WithEvents Label52 As System.Windows.Forms.Label + Friend WithEvents pnlclosebuttonoptions As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents pnlclosebuttoncolour As System.Windows.Forms.Panel + Friend WithEvents txtclosebuttonfromside As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents txtclosebuttonheight As System.Windows.Forms.TextBox + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtclosebuttonfromtop As System.Windows.Forms.TextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents txtclosebuttonwidth As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents pnltitlebaroptions As System.Windows.Forms.Panel + Friend WithEvents Label80 As System.Windows.Forms.Label + Friend WithEvents txticonfromtop As System.Windows.Forms.TextBox + Friend WithEvents Label81 As System.Windows.Forms.Label + Friend WithEvents Label78 As System.Windows.Forms.Label + Friend WithEvents txticonfromside As System.Windows.Forms.TextBox + Friend WithEvents Label79 As System.Windows.Forms.Label + Friend WithEvents lbcornerwidthpx As System.Windows.Forms.Label + Friend WithEvents txttitlebarcornerwidth As System.Windows.Forms.TextBox + Friend WithEvents lbcornerwidth As System.Windows.Forms.Label + Friend WithEvents pnltitlebarrightcornercolour As System.Windows.Forms.Panel + Friend WithEvents pnltitlebarleftcornercolour As System.Windows.Forms.Panel + Friend WithEvents lbrightcornercolor As System.Windows.Forms.Label + Friend WithEvents lbleftcornercolor As System.Windows.Forms.Label + Friend WithEvents cboxtitlebarcorners As System.Windows.Forms.CheckBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txttitlebarheight As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents pnltitlebarcolour As System.Windows.Forms.Panel + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents pnlborderoptions As System.Windows.Forms.Panel + Friend WithEvents cbindividualbordercolours As System.Windows.Forms.CheckBox + Friend WithEvents pnlborderbottomrightcolour As System.Windows.Forms.Panel + Friend WithEvents Label77 As System.Windows.Forms.Label + Friend WithEvents pnlborderbottomcolour As System.Windows.Forms.Panel + Friend WithEvents Label76 As System.Windows.Forms.Label + Friend WithEvents pnlborderbottomleftcolour As System.Windows.Forms.Panel + Friend WithEvents Label75 As System.Windows.Forms.Label + Friend WithEvents pnlborderrightcolour As System.Windows.Forms.Panel + Friend WithEvents Label74 As System.Windows.Forms.Label + Friend WithEvents pnlborderleftcolour As System.Windows.Forms.Panel + Friend WithEvents Label73 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents pnlbordercolour As System.Windows.Forms.Panel + Friend WithEvents txtbordersize As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents pnltitletextoptions As System.Windows.Forms.Panel + Friend WithEvents combotitletextposition As System.Windows.Forms.ComboBox + Friend WithEvents Label53 As System.Windows.Forms.Label + Friend WithEvents combotitletextstyle As System.Windows.Forms.ComboBox + Friend WithEvents combotitletextfont As System.Windows.Forms.ComboBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents txttitletextside As System.Windows.Forms.TextBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents txttitletexttop As System.Windows.Forms.TextBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents txttitletextsize As System.Windows.Forms.TextBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents pnltitletextcolour As System.Windows.Forms.Panel + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents pnlwindowsintro As System.Windows.Forms.Panel + Friend WithEvents Label68 As System.Windows.Forms.Label + Friend WithEvents Label67 As System.Windows.Forms.Label + Friend WithEvents pnlwindowsobjects As System.Windows.Forms.Panel + Friend WithEvents btnborders As System.Windows.Forms.Button + Friend WithEvents btnbuttons As System.Windows.Forms.Button + Friend WithEvents btntitletext As System.Windows.Forms.Button + Friend WithEvents btntitlebar As System.Windows.Forms.Button + Friend WithEvents pnlwindowpreview As System.Windows.Forms.Panel + Friend WithEvents prepgcontent As System.Windows.Forms.Panel + Friend WithEvents prepgbottom As System.Windows.Forms.Panel + Friend WithEvents prepgleft As System.Windows.Forms.Panel + Friend WithEvents prepgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents prepgright As System.Windows.Forms.Panel + Friend WithEvents prepgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pretitlebar As System.Windows.Forms.Panel + Friend WithEvents preminimizebutton As System.Windows.Forms.Panel + Friend WithEvents prepnlicon As System.Windows.Forms.PictureBox + Friend WithEvents prerollupbutton As System.Windows.Forms.Panel + Friend WithEvents preclosebutton As System.Windows.Forms.Panel + Friend WithEvents pretitletext As System.Windows.Forms.Label + Friend WithEvents prepgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents prepgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pnlreset As System.Windows.Forms.Panel + Friend WithEvents Label113 As System.Windows.Forms.Label + Friend WithEvents btnresetallsettings As System.Windows.Forms.Button + Friend WithEvents Label109 As System.Windows.Forms.Label + Friend WithEvents Label111 As System.Windows.Forms.Label + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents tmrfix As System.Windows.Forms.Timer +End Class diff --git a/Shifter.resx b/Shifter.resx new file mode 100644 index 0000000..4ef3078 --- /dev/null +++ b/Shifter.resx @@ -0,0 +1,166 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 582, 17 + + + 845, 17 + + + 997, 17 + + + That's right! Simply by customizing your ShiftOS interface you can earn as many codepoints as you like. The amount of codepoints you earn will be calculated and displayed the moment you press "Apply Changes". The more time you spend customizing the more codepoints you will earn! + + + + The shifter is an application that allows you to modify various features in ShiftOS. Initially the user interface of ShiftOS is very dull however you can use the Shifter and various sub programs within the Shifter such as the "Colour Picker" to improve the appearance of ShiftOS. + +The basic process of modifying your ShiftOS interface is very simple. You first choose a main category on the left which will bring up a list of sub categories. Next select a sub category to display your list of customization options. Once you have modified the appropriate settings click Apply Changes to confirm your choices. + + + + Welcome to the desktop settings panel. Here you can modify the appearance of the controls that are displayed on your desktop. Just select a sub option to the left to get started! + +The preview desktop above will track your modifications live until you click "Apply Changes". + + + 680, 17 + + + 680, 17 + + + Welcome to the windows settings panel. Here you can modify the appearance of the controls that are displayed on your open windows. Just select a sub option to the left to get started! + +The preview window above will track your modifications live until you click "Apply Changes". + + + After spending hours customizing ShiftOS you may want to reset all settings to their default values so you can have a clean slate. Remember that once you reset your settings you can't undo your actions so only do so if you truly want to abandon all the customizations you have made to ShiftOS. + + + + + 1115, 17 + + \ No newline at end of file diff --git a/Shifter.vb b/Shifter.vb new file mode 100644 index 0000000..097129c --- /dev/null +++ b/Shifter.vb @@ -0,0 +1,2757 @@ +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 \ No newline at end of file diff --git a/Shiftnet.Designer.vb b/Shiftnet.Designer.vb new file mode 100644 index 0000000..5aa7a42 --- /dev/null +++ b/Shiftnet.Designer.vb @@ -0,0 +1,1102 @@ + _ +Partial Class Shiftnet + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnlmainsiteappscape = New System.Windows.Forms.Panel() + Me.appscapecalculatorinfopage = New System.Windows.Forms.Panel() + Me.Panel28 = New System.Windows.Forms.Panel() + Me.btncalculatorinfobuy = New System.Windows.Forms.Panel() + Me.btncalculatorinfoback = New System.Windows.Forms.Panel() + Me.Panel34 = New System.Windows.Forms.Panel() + Me.Panel35 = New System.Windows.Forms.Panel() + Me.Label7 = New System.Windows.Forms.Label() + Me.Panel36 = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.appscapewebbrowserinfopage = New System.Windows.Forms.Panel() + Me.Panel19 = New System.Windows.Forms.Panel() + Me.btnwebbrowserinfobuy = New System.Windows.Forms.Panel() + Me.btnwebbrowserinfoback = New System.Windows.Forms.Panel() + Me.Panel24 = New System.Windows.Forms.Panel() + Me.Panel25 = New System.Windows.Forms.Panel() + Me.Label5 = New System.Windows.Forms.Label() + Me.Panel26 = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.appscapevideoplayerinfopage = New System.Windows.Forms.Panel() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.btnvideoplayerinfobuy = New System.Windows.Forms.Panel() + Me.btnvideoplayerinfoback = New System.Windows.Forms.Panel() + Me.Panel13 = New System.Windows.Forms.Panel() + Me.Panel15 = New System.Windows.Forms.Panel() + Me.Label3 = New System.Windows.Forms.Label() + Me.Panel16 = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.appscapeaudioplayerinfopage = New System.Windows.Forms.Panel() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.btnaudioplayerinfobuy = New System.Windows.Forms.Panel() + Me.btnaudioplayerinfoback = New System.Windows.Forms.Panel() + Me.Panel31 = New System.Windows.Forms.Panel() + Me.Panel32 = New System.Windows.Forms.Panel() + Me.lbappscapeaudioplayerinfohello = New System.Windows.Forms.Label() + Me.Panel33 = New System.Windows.Forms.Panel() + Me.Label2 = New System.Windows.Forms.Label() + Me.appscapehomepage = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel20 = New System.Windows.Forms.Panel() + Me.btnbuymoresoftware2 = New System.Windows.Forms.Panel() + Me.btnmoresoftware2info = New System.Windows.Forms.Panel() + Me.Panel17 = New System.Windows.Forms.Panel() + Me.btnbuymoresoftware1 = New System.Windows.Forms.Panel() + Me.btnmoresoftware1info = New System.Windows.Forms.Panel() + Me.Panel14 = New System.Windows.Forms.Panel() + Me.btnbuycalculator = New System.Windows.Forms.Panel() + Me.btncalculatorinfo = New System.Windows.Forms.Panel() + Me.Panel11 = New System.Windows.Forms.Panel() + Me.btnbuywebbrowser = New System.Windows.Forms.Panel() + Me.btnwebbrowserinfo = New System.Windows.Forms.Panel() + Me.Panel8 = New System.Windows.Forms.Panel() + Me.btnbuyvideoplayer = New System.Windows.Forms.Panel() + Me.btnvideoplayerinfo = New System.Windows.Forms.Panel() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.btnbuyaudioplayer = New System.Windows.Forms.Panel() + Me.btnaudioplayerinfo = New System.Windows.Forms.Panel() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.lbappscapehello = New System.Windows.Forms.Label() + Me.Panel23 = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnhome = New System.Windows.Forms.Button() + Me.txtlocation = New System.Windows.Forms.TextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.tmrloadsite = New System.Windows.Forms.Timer(Me.components) + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.pnlmainsiteappscape.SuspendLayout() + Me.appscapecalculatorinfopage.SuspendLayout() + Me.Panel28.SuspendLayout() + Me.Panel35.SuspendLayout() + Me.appscapewebbrowserinfopage.SuspendLayout() + Me.Panel19.SuspendLayout() + Me.Panel25.SuspendLayout() + Me.appscapevideoplayerinfopage.SuspendLayout() + Me.Panel9.SuspendLayout() + Me.Panel15.SuspendLayout() + Me.appscapeaudioplayerinfopage.SuspendLayout() + Me.Panel6.SuspendLayout() + Me.Panel32.SuspendLayout() + Me.appscapehomepage.SuspendLayout() + Me.Panel20.SuspendLayout() + Me.Panel17.SuspendLayout() + Me.Panel14.SuspendLayout() + Me.Panel11.SuspendLayout() + Me.Panel8.SuspendLayout() + Me.Panel5.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 598) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(816, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 568) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(818, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 570) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(84, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Shiftnet" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(818, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 568) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.pnlmainsiteappscape) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(816, 568) + Me.pgcontents.TabIndex = 20 + ' + 'pnlmainsiteappscape + ' + Me.pnlmainsiteappscape.BackColor = System.Drawing.Color.White + Me.pnlmainsiteappscape.Controls.Add(Me.appscapecalculatorinfopage) + Me.pnlmainsiteappscape.Controls.Add(Me.appscapewebbrowserinfopage) + Me.pnlmainsiteappscape.Controls.Add(Me.appscapevideoplayerinfopage) + Me.pnlmainsiteappscape.Controls.Add(Me.appscapeaudioplayerinfopage) + Me.pnlmainsiteappscape.Controls.Add(Me.appscapehomepage) + Me.pnlmainsiteappscape.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlmainsiteappscape.Location = New System.Drawing.Point(0, 35) + Me.pnlmainsiteappscape.Name = "pnlmainsiteappscape" + Me.pnlmainsiteappscape.Size = New System.Drawing.Size(816, 533) + Me.pnlmainsiteappscape.TabIndex = 2 + Me.pnlmainsiteappscape.Visible = False + ' + 'appscapecalculatorinfopage + ' + Me.appscapecalculatorinfopage.AutoScroll = True + Me.appscapecalculatorinfopage.BackColor = System.Drawing.Color.White + Me.appscapecalculatorinfopage.Controls.Add(Me.Panel28) + Me.appscapecalculatorinfopage.Controls.Add(Me.Panel34) + Me.appscapecalculatorinfopage.Controls.Add(Me.Panel35) + Me.appscapecalculatorinfopage.Controls.Add(Me.Label8) + Me.appscapecalculatorinfopage.Location = New System.Drawing.Point(507, 414) + Me.appscapecalculatorinfopage.Name = "appscapecalculatorinfopage" + Me.appscapecalculatorinfopage.Size = New System.Drawing.Size(149, 91) + Me.appscapecalculatorinfopage.TabIndex = 7 + Me.appscapecalculatorinfopage.Visible = False + ' + 'Panel28 + ' + Me.Panel28.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel28.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfocalculatorvisualpreview + Me.Panel28.Controls.Add(Me.btncalculatorinfobuy) + Me.Panel28.Controls.Add(Me.btncalculatorinfoback) + Me.Panel28.Location = New System.Drawing.Point(-101, 99) + Me.Panel28.Name = "Panel28" + Me.Panel28.Size = New System.Drawing.Size(561, 414) + Me.Panel28.TabIndex = 2 + ' + 'btncalculatorinfobuy + ' + Me.btncalculatorinfobuy.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btncalculatorinfobuy.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobuybutton + Me.btncalculatorinfobuy.Location = New System.Drawing.Point(439, 366) + Me.btncalculatorinfobuy.Name = "btncalculatorinfobuy" + Me.btncalculatorinfobuy.Size = New System.Drawing.Size(102, 37) + Me.btncalculatorinfobuy.TabIndex = 2 + ' + 'btncalculatorinfoback + ' + Me.btncalculatorinfoback.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btncalculatorinfoback.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobackbutton + Me.btncalculatorinfoback.Location = New System.Drawing.Point(20, 366) + Me.btncalculatorinfoback.Name = "btncalculatorinfoback" + Me.btncalculatorinfoback.Size = New System.Drawing.Size(102, 37) + Me.btncalculatorinfoback.TabIndex = 1 + ' + 'Panel34 + ' + Me.Panel34.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel34.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfocalculatortext + Me.Panel34.Location = New System.Drawing.Point(-310, 99) + Me.Panel34.Name = "Panel34" + Me.Panel34.Size = New System.Drawing.Size(202, 414) + Me.Panel34.TabIndex = 1 + ' + 'Panel35 + ' + Me.Panel35.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel35.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapetitlebanner + Me.Panel35.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel35.Controls.Add(Me.Label7) + Me.Panel35.Controls.Add(Me.Panel36) + Me.Panel35.Location = New System.Drawing.Point(-310, 5) + Me.Panel35.Name = "Panel35" + Me.Panel35.Size = New System.Drawing.Size(770, 88) + Me.Panel35.TabIndex = 0 + ' + 'Label7 + ' + Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label7.BackColor = System.Drawing.Color.Transparent + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(335, 5) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(432, 23) + Me.Label7.TabIndex = 6 + Me.Label7.Text = " Hello CherryBlue - Your Wallet Contains 2.53542 BTN" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Panel36 + ' + Me.Panel36.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel36.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapedepositnowbutton + Me.Panel36.Location = New System.Drawing.Point(678, 33) + Me.Panel36.Name = "Panel36" + Me.Panel36.Size = New System.Drawing.Size(82, 47) + Me.Panel36.TabIndex = 0 + ' + 'Label8 + ' + Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(-313, 511) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(768, 23) + Me.Label8.TabIndex = 5 + Me.Label8.Text = "© Copyright Aiden Nirh - Do Not Reproduce" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'appscapewebbrowserinfopage + ' + Me.appscapewebbrowserinfopage.AutoScroll = True + Me.appscapewebbrowserinfopage.BackColor = System.Drawing.Color.White + Me.appscapewebbrowserinfopage.Controls.Add(Me.Panel19) + Me.appscapewebbrowserinfopage.Controls.Add(Me.Panel24) + Me.appscapewebbrowserinfopage.Controls.Add(Me.Panel25) + Me.appscapewebbrowserinfopage.Controls.Add(Me.Label6) + Me.appscapewebbrowserinfopage.Location = New System.Drawing.Point(671, 42) + Me.appscapewebbrowserinfopage.Name = "appscapewebbrowserinfopage" + Me.appscapewebbrowserinfopage.Size = New System.Drawing.Size(106, 87) + Me.appscapewebbrowserinfopage.TabIndex = 6 + Me.appscapewebbrowserinfopage.Visible = False + ' + 'Panel19 + ' + Me.Panel19.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel19.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfowebbrowservisualpreview + Me.Panel19.Controls.Add(Me.btnwebbrowserinfobuy) + Me.Panel19.Controls.Add(Me.btnwebbrowserinfoback) + Me.Panel19.Location = New System.Drawing.Point(-123, 99) + Me.Panel19.Name = "Panel19" + Me.Panel19.Size = New System.Drawing.Size(561, 414) + Me.Panel19.TabIndex = 2 + ' + 'btnwebbrowserinfobuy + ' + Me.btnwebbrowserinfobuy.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnwebbrowserinfobuy.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobuybutton + Me.btnwebbrowserinfobuy.Location = New System.Drawing.Point(439, 366) + Me.btnwebbrowserinfobuy.Name = "btnwebbrowserinfobuy" + Me.btnwebbrowserinfobuy.Size = New System.Drawing.Size(102, 37) + Me.btnwebbrowserinfobuy.TabIndex = 2 + ' + 'btnwebbrowserinfoback + ' + Me.btnwebbrowserinfoback.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnwebbrowserinfoback.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobackbutton + Me.btnwebbrowserinfoback.Location = New System.Drawing.Point(20, 366) + Me.btnwebbrowserinfoback.Name = "btnwebbrowserinfoback" + Me.btnwebbrowserinfoback.Size = New System.Drawing.Size(102, 37) + Me.btnwebbrowserinfoback.TabIndex = 1 + ' + 'Panel24 + ' + Me.Panel24.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel24.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfowebbrowsertext + Me.Panel24.Location = New System.Drawing.Point(-332, 99) + Me.Panel24.Name = "Panel24" + Me.Panel24.Size = New System.Drawing.Size(202, 414) + Me.Panel24.TabIndex = 1 + ' + 'Panel25 + ' + Me.Panel25.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel25.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapetitlebanner + Me.Panel25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel25.Controls.Add(Me.Label5) + Me.Panel25.Controls.Add(Me.Panel26) + Me.Panel25.Location = New System.Drawing.Point(-332, 5) + Me.Panel25.Name = "Panel25" + Me.Panel25.Size = New System.Drawing.Size(770, 88) + Me.Panel25.TabIndex = 0 + ' + 'Label5 + ' + Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label5.BackColor = System.Drawing.Color.Transparent + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(335, 5) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(432, 23) + Me.Label5.TabIndex = 6 + Me.Label5.Text = " Hello CherryBlue - Your Wallet Contains 2.53542 BTN" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Panel26 + ' + Me.Panel26.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel26.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapedepositnowbutton + Me.Panel26.Location = New System.Drawing.Point(678, 33) + Me.Panel26.Name = "Panel26" + Me.Panel26.Size = New System.Drawing.Size(82, 47) + Me.Panel26.TabIndex = 0 + ' + 'Label6 + ' + Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(-335, 511) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(768, 23) + Me.Label6.TabIndex = 5 + Me.Label6.Text = "© Copyright Aiden Nirh - Do Not Reproduce" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'appscapevideoplayerinfopage + ' + Me.appscapevideoplayerinfopage.AutoScroll = True + Me.appscapevideoplayerinfopage.BackColor = System.Drawing.Color.White + Me.appscapevideoplayerinfopage.Controls.Add(Me.Panel9) + Me.appscapevideoplayerinfopage.Controls.Add(Me.Panel13) + Me.appscapevideoplayerinfopage.Controls.Add(Me.Panel15) + Me.appscapevideoplayerinfopage.Controls.Add(Me.Label4) + Me.appscapevideoplayerinfopage.Location = New System.Drawing.Point(671, 157) + Me.appscapevideoplayerinfopage.Name = "appscapevideoplayerinfopage" + Me.appscapevideoplayerinfopage.Size = New System.Drawing.Size(90, 91) + Me.appscapevideoplayerinfopage.TabIndex = 5 + Me.appscapevideoplayerinfopage.Visible = False + ' + 'Panel9 + ' + Me.Panel9.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel9.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfovideoplayervisualpreview + Me.Panel9.Controls.Add(Me.btnvideoplayerinfobuy) + Me.Panel9.Controls.Add(Me.btnvideoplayerinfoback) + Me.Panel9.Location = New System.Drawing.Point(-131, 99) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(561, 414) + Me.Panel9.TabIndex = 2 + ' + 'btnvideoplayerinfobuy + ' + Me.btnvideoplayerinfobuy.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnvideoplayerinfobuy.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobuybutton + Me.btnvideoplayerinfobuy.Location = New System.Drawing.Point(439, 366) + Me.btnvideoplayerinfobuy.Name = "btnvideoplayerinfobuy" + Me.btnvideoplayerinfobuy.Size = New System.Drawing.Size(102, 37) + Me.btnvideoplayerinfobuy.TabIndex = 2 + ' + 'btnvideoplayerinfoback + ' + Me.btnvideoplayerinfoback.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnvideoplayerinfoback.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobackbutton + Me.btnvideoplayerinfoback.Location = New System.Drawing.Point(20, 366) + Me.btnvideoplayerinfoback.Name = "btnvideoplayerinfoback" + Me.btnvideoplayerinfoback.Size = New System.Drawing.Size(102, 37) + Me.btnvideoplayerinfoback.TabIndex = 1 + ' + 'Panel13 + ' + Me.Panel13.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel13.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfovideoplayertext + Me.Panel13.Location = New System.Drawing.Point(-340, 99) + Me.Panel13.Name = "Panel13" + Me.Panel13.Size = New System.Drawing.Size(202, 414) + Me.Panel13.TabIndex = 1 + ' + 'Panel15 + ' + Me.Panel15.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel15.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapetitlebanner + Me.Panel15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel15.Controls.Add(Me.Label3) + Me.Panel15.Controls.Add(Me.Panel16) + Me.Panel15.Location = New System.Drawing.Point(-340, 5) + Me.Panel15.Name = "Panel15" + Me.Panel15.Size = New System.Drawing.Size(770, 88) + Me.Panel15.TabIndex = 0 + ' + 'Label3 + ' + Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label3.BackColor = System.Drawing.Color.Transparent + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(335, 5) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(432, 23) + Me.Label3.TabIndex = 6 + Me.Label3.Text = " Hello CherryBlue - Your Wallet Contains 2.53542 BTN" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Panel16 + ' + Me.Panel16.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel16.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapedepositnowbutton + Me.Panel16.Location = New System.Drawing.Point(678, 33) + Me.Panel16.Name = "Panel16" + Me.Panel16.Size = New System.Drawing.Size(82, 47) + Me.Panel16.TabIndex = 0 + ' + 'Label4 + ' + Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(-343, 511) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(768, 23) + Me.Label4.TabIndex = 5 + Me.Label4.Text = "© Copyright Aiden Nirh - Do Not Reproduce" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'appscapeaudioplayerinfopage + ' + Me.appscapeaudioplayerinfopage.AutoScroll = True + Me.appscapeaudioplayerinfopage.BackColor = System.Drawing.Color.White + Me.appscapeaudioplayerinfopage.Controls.Add(Me.Panel6) + Me.appscapeaudioplayerinfopage.Controls.Add(Me.Panel31) + Me.appscapeaudioplayerinfopage.Controls.Add(Me.Panel32) + Me.appscapeaudioplayerinfopage.Controls.Add(Me.Label2) + Me.appscapeaudioplayerinfopage.Location = New System.Drawing.Point(161, 42) + Me.appscapeaudioplayerinfopage.Name = "appscapeaudioplayerinfopage" + Me.appscapeaudioplayerinfopage.Size = New System.Drawing.Size(446, 306) + Me.appscapeaudioplayerinfopage.TabIndex = 4 + Me.appscapeaudioplayerinfopage.Visible = False + ' + 'Panel6 + ' + Me.Panel6.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel6.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfoaudioplayervisualpreview + Me.Panel6.Controls.Add(Me.btnaudioplayerinfobuy) + Me.Panel6.Controls.Add(Me.btnaudioplayerinfoback) + Me.Panel6.Location = New System.Drawing.Point(47, 99) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(561, 414) + Me.Panel6.TabIndex = 2 + ' + 'btnaudioplayerinfobuy + ' + Me.btnaudioplayerinfobuy.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnaudioplayerinfobuy.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobuybutton + Me.btnaudioplayerinfobuy.Location = New System.Drawing.Point(439, 366) + Me.btnaudioplayerinfobuy.Name = "btnaudioplayerinfobuy" + Me.btnaudioplayerinfobuy.Size = New System.Drawing.Size(102, 37) + Me.btnaudioplayerinfobuy.TabIndex = 2 + ' + 'btnaudioplayerinfoback + ' + Me.btnaudioplayerinfoback.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.btnaudioplayerinfoback.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobackbutton + Me.btnaudioplayerinfoback.Location = New System.Drawing.Point(20, 366) + Me.btnaudioplayerinfoback.Name = "btnaudioplayerinfoback" + Me.btnaudioplayerinfoback.Size = New System.Drawing.Size(102, 37) + Me.btnaudioplayerinfoback.TabIndex = 1 + ' + 'Panel31 + ' + Me.Panel31.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel31.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfoaudioplayertext + Me.Panel31.Location = New System.Drawing.Point(-162, 99) + Me.Panel31.Name = "Panel31" + Me.Panel31.Size = New System.Drawing.Size(202, 414) + Me.Panel31.TabIndex = 1 + ' + 'Panel32 + ' + Me.Panel32.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel32.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapetitlebanner + Me.Panel32.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel32.Controls.Add(Me.lbappscapeaudioplayerinfohello) + Me.Panel32.Controls.Add(Me.Panel33) + Me.Panel32.Location = New System.Drawing.Point(-162, 5) + Me.Panel32.Name = "Panel32" + Me.Panel32.Size = New System.Drawing.Size(770, 88) + Me.Panel32.TabIndex = 0 + ' + 'lbappscapeaudioplayerinfohello + ' + Me.lbappscapeaudioplayerinfohello.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.lbappscapeaudioplayerinfohello.BackColor = System.Drawing.Color.Transparent + Me.lbappscapeaudioplayerinfohello.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbappscapeaudioplayerinfohello.Location = New System.Drawing.Point(335, 5) + Me.lbappscapeaudioplayerinfohello.Name = "lbappscapeaudioplayerinfohello" + Me.lbappscapeaudioplayerinfohello.Size = New System.Drawing.Size(432, 23) + Me.lbappscapeaudioplayerinfohello.TabIndex = 6 + Me.lbappscapeaudioplayerinfohello.Text = " Hello CherryBlue - Your Wallet Contains 2.53542 BTN" + Me.lbappscapeaudioplayerinfohello.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Panel33 + ' + Me.Panel33.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel33.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapedepositnowbutton + Me.Panel33.Location = New System.Drawing.Point(678, 33) + Me.Panel33.Name = "Panel33" + Me.Panel33.Size = New System.Drawing.Size(82, 47) + Me.Panel33.TabIndex = 0 + ' + 'Label2 + ' + Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(-166, 511) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(768, 23) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "© Copyright Aiden Nirh - Do Not Reproduce" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'appscapehomepage + ' + Me.appscapehomepage.AutoScroll = True + Me.appscapehomepage.BackColor = System.Drawing.Color.White + Me.appscapehomepage.Controls.Add(Me.Label1) + Me.appscapehomepage.Controls.Add(Me.Panel20) + Me.appscapehomepage.Controls.Add(Me.Panel17) + Me.appscapehomepage.Controls.Add(Me.Panel14) + Me.appscapehomepage.Controls.Add(Me.Panel11) + Me.appscapehomepage.Controls.Add(Me.Panel8) + Me.appscapehomepage.Controls.Add(Me.Panel5) + Me.appscapehomepage.Controls.Add(Me.Panel4) + Me.appscapehomepage.Controls.Add(Me.Panel3) + Me.appscapehomepage.Location = New System.Drawing.Point(10, 6) + Me.appscapehomepage.Name = "appscapehomepage" + Me.appscapehomepage.Size = New System.Drawing.Size(96, 90) + Me.appscapehomepage.TabIndex = 3 + Me.appscapehomepage.Visible = False + ' + 'Label1 + ' + Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(-336, 511) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(768, 23) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "© Copyright Aiden Nirh - Do Not Reproduce" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Panel20 + ' + Me.Panel20.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel20.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapemoresoftware + Me.Panel20.Controls.Add(Me.btnbuymoresoftware2) + Me.Panel20.Controls.Add(Me.btnmoresoftware2info) + Me.Panel20.Location = New System.Drawing.Point(250, 308) + Me.Panel20.Name = "Panel20" + Me.Panel20.Size = New System.Drawing.Size(182, 200) + Me.Panel20.TabIndex = 3 + ' + 'btnbuymoresoftware2 + ' + Me.btnbuymoresoftware2.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeundefinedprice + Me.btnbuymoresoftware2.Location = New System.Drawing.Point(73, 161) + Me.btnbuymoresoftware2.Name = "btnbuymoresoftware2" + Me.btnbuymoresoftware2.Size = New System.Drawing.Size(102, 30) + Me.btnbuymoresoftware2.TabIndex = 1 + ' + 'btnmoresoftware2info + ' + Me.btnmoresoftware2info.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobutton + Me.btnmoresoftware2info.Location = New System.Drawing.Point(10, 161) + Me.btnmoresoftware2info.Name = "btnmoresoftware2info" + Me.btnmoresoftware2info.Size = New System.Drawing.Size(57, 30) + Me.btnmoresoftware2info.TabIndex = 0 + ' + 'Panel17 + ' + Me.Panel17.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel17.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapemoresoftware + Me.Panel17.Controls.Add(Me.btnbuymoresoftware1) + Me.Panel17.Controls.Add(Me.btnmoresoftware1info) + Me.Panel17.Location = New System.Drawing.Point(61, 308) + Me.Panel17.Name = "Panel17" + Me.Panel17.Size = New System.Drawing.Size(182, 200) + Me.Panel17.TabIndex = 4 + ' + 'btnbuymoresoftware1 + ' + Me.btnbuymoresoftware1.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeundefinedprice + Me.btnbuymoresoftware1.Location = New System.Drawing.Point(73, 161) + Me.btnbuymoresoftware1.Name = "btnbuymoresoftware1" + Me.btnbuymoresoftware1.Size = New System.Drawing.Size(102, 30) + Me.btnbuymoresoftware1.TabIndex = 1 + ' + 'btnmoresoftware1info + ' + Me.btnmoresoftware1info.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobutton + Me.btnmoresoftware1info.Location = New System.Drawing.Point(10, 161) + Me.btnmoresoftware1info.Name = "btnmoresoftware1info" + Me.btnmoresoftware1info.Size = New System.Drawing.Size(57, 30) + Me.btnmoresoftware1info.TabIndex = 0 + ' + 'Panel14 + ' + Me.Panel14.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel14.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapecalculator + Me.Panel14.Controls.Add(Me.btnbuycalculator) + Me.Panel14.Controls.Add(Me.btncalculatorinfo) + Me.Panel14.Location = New System.Drawing.Point(-128, 308) + Me.Panel14.Name = "Panel14" + Me.Panel14.Size = New System.Drawing.Size(182, 200) + Me.Panel14.TabIndex = 3 + ' + 'btnbuycalculator + ' + Me.btnbuycalculator.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapecalculatorprice + Me.btnbuycalculator.Location = New System.Drawing.Point(73, 161) + Me.btnbuycalculator.Name = "btnbuycalculator" + Me.btnbuycalculator.Size = New System.Drawing.Size(102, 30) + Me.btnbuycalculator.TabIndex = 1 + ' + 'btncalculatorinfo + ' + Me.btncalculatorinfo.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobutton + Me.btncalculatorinfo.Location = New System.Drawing.Point(10, 161) + Me.btncalculatorinfo.Name = "btncalculatorinfo" + Me.btncalculatorinfo.Size = New System.Drawing.Size(57, 30) + Me.btncalculatorinfo.TabIndex = 0 + ' + 'Panel11 + ' + Me.Panel11.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel11.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapewebbrowser + Me.Panel11.Controls.Add(Me.btnbuywebbrowser) + Me.Panel11.Controls.Add(Me.btnwebbrowserinfo) + Me.Panel11.Location = New System.Drawing.Point(250, 101) + Me.Panel11.Name = "Panel11" + Me.Panel11.Size = New System.Drawing.Size(182, 200) + Me.Panel11.TabIndex = 3 + ' + 'btnbuywebbrowser + ' + Me.btnbuywebbrowser.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapewebbrowserprice + Me.btnbuywebbrowser.Location = New System.Drawing.Point(73, 161) + Me.btnbuywebbrowser.Name = "btnbuywebbrowser" + Me.btnbuywebbrowser.Size = New System.Drawing.Size(102, 30) + Me.btnbuywebbrowser.TabIndex = 1 + ' + 'btnwebbrowserinfo + ' + Me.btnwebbrowserinfo.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobutton + Me.btnwebbrowserinfo.Location = New System.Drawing.Point(10, 161) + Me.btnwebbrowserinfo.Name = "btnwebbrowserinfo" + Me.btnwebbrowserinfo.Size = New System.Drawing.Size(57, 30) + Me.btnwebbrowserinfo.TabIndex = 0 + ' + 'Panel8 + ' + Me.Panel8.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel8.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapevideoplayer + Me.Panel8.Controls.Add(Me.btnbuyvideoplayer) + Me.Panel8.Controls.Add(Me.btnvideoplayerinfo) + Me.Panel8.Location = New System.Drawing.Point(61, 101) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(182, 200) + Me.Panel8.TabIndex = 3 + ' + 'btnbuyvideoplayer + ' + Me.btnbuyvideoplayer.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapevideoplayerprice + Me.btnbuyvideoplayer.Location = New System.Drawing.Point(73, 161) + Me.btnbuyvideoplayer.Name = "btnbuyvideoplayer" + Me.btnbuyvideoplayer.Size = New System.Drawing.Size(102, 30) + Me.btnbuyvideoplayer.TabIndex = 1 + ' + 'btnvideoplayerinfo + ' + Me.btnvideoplayerinfo.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobutton + Me.btnvideoplayerinfo.Location = New System.Drawing.Point(10, 161) + Me.btnvideoplayerinfo.Name = "btnvideoplayerinfo" + Me.btnvideoplayerinfo.Size = New System.Drawing.Size(57, 30) + Me.btnvideoplayerinfo.TabIndex = 0 + ' + 'Panel5 + ' + Me.Panel5.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel5.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeaudioplayerbox + Me.Panel5.Controls.Add(Me.btnbuyaudioplayer) + Me.Panel5.Controls.Add(Me.btnaudioplayerinfo) + Me.Panel5.Location = New System.Drawing.Point(-128, 101) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(182, 200) + Me.Panel5.TabIndex = 2 + ' + 'btnbuyaudioplayer + ' + Me.btnbuyaudioplayer.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeaudioplayerprice + Me.btnbuyaudioplayer.Location = New System.Drawing.Point(73, 161) + Me.btnbuyaudioplayer.Name = "btnbuyaudioplayer" + Me.btnbuyaudioplayer.Size = New System.Drawing.Size(102, 30) + Me.btnbuyaudioplayer.TabIndex = 1 + ' + 'btnaudioplayerinfo + ' + Me.btnaudioplayerinfo.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapeinfobutton + Me.btnaudioplayerinfo.Location = New System.Drawing.Point(10, 161) + Me.btnaudioplayerinfo.Name = "btnaudioplayerinfo" + Me.btnaudioplayerinfo.Size = New System.Drawing.Size(57, 30) + Me.btnaudioplayerinfo.TabIndex = 0 + ' + 'Panel4 + ' + Me.Panel4.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel4.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapewelcometoappscape + Me.Panel4.Location = New System.Drawing.Point(-337, 101) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(202, 407) + Me.Panel4.TabIndex = 1 + ' + 'Panel3 + ' + Me.Panel3.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel3.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapetitlebanner + Me.Panel3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel3.Controls.Add(Me.lbappscapehello) + Me.Panel3.Controls.Add(Me.Panel23) + Me.Panel3.Location = New System.Drawing.Point(-337, 5) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(770, 88) + Me.Panel3.TabIndex = 0 + ' + 'lbappscapehello + ' + Me.lbappscapehello.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.lbappscapehello.BackColor = System.Drawing.Color.Transparent + Me.lbappscapehello.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbappscapehello.Location = New System.Drawing.Point(335, 5) + Me.lbappscapehello.Name = "lbappscapehello" + Me.lbappscapehello.Size = New System.Drawing.Size(432, 23) + Me.lbappscapehello.TabIndex = 6 + Me.lbappscapehello.Text = " Hello CherryBlue - Your Wallet Contains 2.53542 BTN" + Me.lbappscapehello.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Panel23 + ' + Me.Panel23.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel23.BackgroundImage = Global.ShiftOS.My.Resources.Resources.appscapedepositnowbutton + Me.Panel23.Location = New System.Drawing.Point(678, 33) + Me.Panel23.Name = "Panel23" + Me.Panel23.Size = New System.Drawing.Size(82, 47) + Me.Panel23.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.btnhome) + Me.Panel1.Controls.Add(Me.txtlocation) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(816, 35) + Me.Panel1.TabIndex = 1 + ' + 'btnhome + ' + Me.btnhome.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnhome.BackColor = System.Drawing.Color.White + Me.btnhome.BackgroundImage = Global.ShiftOS.My.Resources.Resources.webhome + Me.btnhome.FlatAppearance.BorderSize = 0 + Me.btnhome.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnhome.Location = New System.Drawing.Point(781, 5) + Me.btnhome.Name = "btnhome" + Me.btnhome.Size = New System.Drawing.Size(30, 25) + Me.btnhome.TabIndex = 10 + Me.btnhome.UseVisualStyleBackColor = False + ' + 'txtlocation + ' + Me.txtlocation.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtlocation.BackColor = System.Drawing.Color.White + Me.txtlocation.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtlocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlocation.Location = New System.Drawing.Point(5, 5) + Me.txtlocation.Multiline = True + Me.txtlocation.Name = "txtlocation" + Me.txtlocation.Size = New System.Drawing.Size(772, 25) + Me.txtlocation.TabIndex = 9 + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.Black + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 34) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(816, 1) + Me.Panel2.TabIndex = 6 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 570) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(820, 30) + Me.titlebar.TabIndex = 19 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'tmrloadsite + ' + Me.tmrloadsite.Enabled = True + ' + 'Shiftnet + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(820, 600) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Shiftnet" + Me.Text = "Shiftnet" + Me.TopMost = True + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.pnlmainsiteappscape.ResumeLayout(False) + Me.appscapecalculatorinfopage.ResumeLayout(False) + Me.Panel28.ResumeLayout(False) + Me.Panel35.ResumeLayout(False) + Me.appscapewebbrowserinfopage.ResumeLayout(False) + Me.Panel19.ResumeLayout(False) + Me.Panel25.ResumeLayout(False) + Me.appscapevideoplayerinfopage.ResumeLayout(False) + Me.Panel9.ResumeLayout(False) + Me.Panel15.ResumeLayout(False) + Me.appscapeaudioplayerinfopage.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + Me.Panel32.ResumeLayout(False) + Me.appscapehomepage.ResumeLayout(False) + Me.Panel20.ResumeLayout(False) + Me.Panel17.ResumeLayout(False) + Me.Panel14.ResumeLayout(False) + Me.Panel11.ResumeLayout(False) + Me.Panel8.ResumeLayout(False) + Me.Panel5.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents btnhome As System.Windows.Forms.Button + Friend WithEvents txtlocation As System.Windows.Forms.TextBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents pnlmainsiteappscape As System.Windows.Forms.Panel + Friend WithEvents appscapehomepage As System.Windows.Forms.Panel + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents Panel5 As System.Windows.Forms.Panel + Friend WithEvents btnaudioplayerinfo As System.Windows.Forms.Panel + Friend WithEvents Panel11 As System.Windows.Forms.Panel + Friend WithEvents btnbuywebbrowser As System.Windows.Forms.Panel + Friend WithEvents btnwebbrowserinfo As System.Windows.Forms.Panel + Friend WithEvents Panel8 As System.Windows.Forms.Panel + Friend WithEvents btnbuyvideoplayer As System.Windows.Forms.Panel + Friend WithEvents btnvideoplayerinfo As System.Windows.Forms.Panel + Friend WithEvents btnbuyaudioplayer As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Panel20 As System.Windows.Forms.Panel + Friend WithEvents btnbuymoresoftware2 As System.Windows.Forms.Panel + Friend WithEvents btnmoresoftware2info As System.Windows.Forms.Panel + Friend WithEvents Panel17 As System.Windows.Forms.Panel + Friend WithEvents btnbuymoresoftware1 As System.Windows.Forms.Panel + Friend WithEvents btnmoresoftware1info As System.Windows.Forms.Panel + Friend WithEvents Panel14 As System.Windows.Forms.Panel + Friend WithEvents btnbuycalculator As System.Windows.Forms.Panel + Friend WithEvents btncalculatorinfo As System.Windows.Forms.Panel + Friend WithEvents lbappscapehello As System.Windows.Forms.Label + Friend WithEvents Panel23 As System.Windows.Forms.Panel + Friend WithEvents tmrloadsite As System.Windows.Forms.Timer + Friend WithEvents appscapecalculatorinfopage As System.Windows.Forms.Panel + Friend WithEvents Panel28 As System.Windows.Forms.Panel + Friend WithEvents btncalculatorinfobuy As System.Windows.Forms.Panel + Friend WithEvents btncalculatorinfoback As System.Windows.Forms.Panel + Friend WithEvents Panel34 As System.Windows.Forms.Panel + Friend WithEvents Panel35 As System.Windows.Forms.Panel + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Panel36 As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents appscapewebbrowserinfopage As System.Windows.Forms.Panel + Friend WithEvents Panel19 As System.Windows.Forms.Panel + Friend WithEvents btnwebbrowserinfobuy As System.Windows.Forms.Panel + Friend WithEvents btnwebbrowserinfoback As System.Windows.Forms.Panel + Friend WithEvents Panel24 As System.Windows.Forms.Panel + Friend WithEvents Panel25 As System.Windows.Forms.Panel + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Panel26 As System.Windows.Forms.Panel + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents appscapevideoplayerinfopage As System.Windows.Forms.Panel + Friend WithEvents Panel9 As System.Windows.Forms.Panel + Friend WithEvents btnvideoplayerinfobuy As System.Windows.Forms.Panel + Friend WithEvents btnvideoplayerinfoback As System.Windows.Forms.Panel + Friend WithEvents Panel13 As System.Windows.Forms.Panel + Friend WithEvents Panel15 As System.Windows.Forms.Panel + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Panel16 As System.Windows.Forms.Panel + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents appscapeaudioplayerinfopage As System.Windows.Forms.Panel + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents btnaudioplayerinfobuy As System.Windows.Forms.Panel + Friend WithEvents btnaudioplayerinfoback As System.Windows.Forms.Panel + Friend WithEvents Panel31 As System.Windows.Forms.Panel + Friend WithEvents Panel32 As System.Windows.Forms.Panel + Friend WithEvents lbappscapeaudioplayerinfohello As System.Windows.Forms.Label + Friend WithEvents Panel33 As System.Windows.Forms.Panel + Friend WithEvents Label2 As System.Windows.Forms.Label +End Class diff --git a/Shiftnet.resx b/Shiftnet.resx new file mode 100644 index 0000000..00a1318 --- /dev/null +++ b/Shiftnet.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 130, 17 + + + 224, 17 + + + 308, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Shiftnet.vb b/Shiftnet.vb new file mode 100644 index 0000000..5df1a3a --- /dev/null +++ b/Shiftnet.vb @@ -0,0 +1,579 @@ +Public Class Shiftnet + 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 = 820 'replace with minimum size + Public minimumsizeheight As Integer = 600 'replace with minimum size + + Public loadsitenow As Boolean = False + + 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() + + ShiftOSDesktop.pnlpanelbuttonshiftnet.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftnet, ShiftOSDesktop.tbshiftneticon, ShiftOSDesktop.tbshiftnettext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(820, 600) '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.shiftnetname 'Remember to change to name of program!!!! + 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.shiftneticontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 txtlocation_KeyDown(sender As Object, e As KeyEventArgs) Handles txtlocation.KeyDown + If e.KeyCode = Keys.Enter Then + loadsitenow = True + End If + End Sub + + Private Sub hideallsites() + pnlmainsiteappscape.Hide() + appscapehomepage.Hide() + appscapeaudioplayerinfopage.Hide() + End Sub + + Private Sub opensite(ByVal mainsite As Panel, ByVal page As Panel, ByVal site As String) + hideallsites() + mainsite.Show() + mainsite.BringToFront() + mainsite.Dock = DockStyle.Fill + page.Show() + page.BringToFront() + page.Dock = DockStyle.Fill + txtlocation.Clear() + txtlocation.Text = site + End Sub + + Private Sub btnhome_Click(sender As Object, e As EventArgs) Handles btnhome.Click + hideallsites() + txtlocation.Text = "" + End Sub + + Private Sub tmrloadsite_Tick(sender As Object, e As EventArgs) Handles tmrloadsite.Tick + If loadsitenow = True Then + txtlocation.Text = Replace$(txtlocation.Text, vbCrLf, "") + Select Case txtlocation.Text + Case "shiftnet.main.appscape/home.rnp" + opensite(pnlmainsiteappscape, appscapehomepage, "shiftnet.main.appscape/home.rnp") + setupappscapeaccountinfo() + Case "shiftnet.main.appscape/audioplayerinfo.rnp" + opensite(pnlmainsiteappscape, appscapeaudioplayerinfopage, "shiftnet.main.appscape/audioplayerinfo.rnp") + Case "shiftnet.main.appscape/videoplayerinfo.rnp" + opensite(pnlmainsiteappscape, appscapevideoplayerinfopage, "shiftnet.main.appscape/videoplayerinfo.rnp") + Case "shiftnet.main.appscape/calculatorinfo.rnp" + opensite(pnlmainsiteappscape, appscapecalculatorinfopage, "shiftnet.main.appscape/calculatorinfo.rnp") + Case "shiftnet.main.appscape/webbrowserinfo.rnp" + opensite(pnlmainsiteappscape, appscapewebbrowserinfopage, "shiftnet.main.appscape/webbrowserinfo.rnp") + End Select + loadsitenow = False + btnhome.Focus() + End If + End Sub + + 'Appscape Website functions + + Public Sub setupappscapeaccountinfo() + lbappscapehello.Text = "Hello " & ShiftOSDesktop.username & " - Your Account Contains " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalanceappscape, 5), 5) & " BTN" + lbappscapeaudioplayerinfohello.Text = "Hello " & ShiftOSDesktop.username & " - Your Account Contains " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalanceappscape, 5), 5) & " BTN" + End Sub + + Private Sub btnaudioplayerinfo_MouseEnter(sender As Object, e As EventArgs) Handles btnaudioplayerinfo.MouseEnter + btnaudioplayerinfo.BackgroundImage = My.Resources.appscapeinfobuttonpressed + End Sub + + Private Sub btnaudioplayerinfo_MouseLeave(sender As Object, e As EventArgs) Handles btnaudioplayerinfo.MouseLeave + btnaudioplayerinfo.BackgroundImage = My.Resources.appscapeinfobutton + End Sub + + Private Sub btnvideolayerinfo_MouseEnter(sender As Object, e As EventArgs) Handles btnvideoplayerinfo.MouseEnter + btnvideoplayerinfo.BackgroundImage = My.Resources.appscapeinfobuttonpressed + End Sub + + Private Sub btnvideoplayerinfo_MouseLeave(sender As Object, e As EventArgs) Handles btnvideoplayerinfo.MouseLeave + btnvideoplayerinfo.BackgroundImage = My.Resources.appscapeinfobutton + End Sub + + Private Sub btnwebbrowserinfo_MouseEnter(sender As Object, e As EventArgs) Handles btnwebbrowserinfo.MouseEnter + btnwebbrowserinfo.BackgroundImage = My.Resources.appscapeinfobuttonpressed + End Sub + + Private Sub btnwebbrowserinfo_MouseLeave(sender As Object, e As EventArgs) Handles btnwebbrowserinfo.MouseLeave + btnwebbrowserinfo.BackgroundImage = My.Resources.appscapeinfobutton + End Sub + + Private Sub btncalculatorinfo_MouseEnter(sender As Object, e As EventArgs) Handles btncalculatorinfo.MouseEnter + btncalculatorinfo.BackgroundImage = My.Resources.appscapeinfobuttonpressed + End Sub + + Private Sub btncalculatorinfo_MouseLeave(sender As Object, e As EventArgs) Handles btncalculatorinfo.MouseLeave + btncalculatorinfo.BackgroundImage = My.Resources.appscapeinfobutton + End Sub + + Private Sub btnmoresoftware1info_MouseEnter(sender As Object, e As EventArgs) Handles btnmoresoftware1info.MouseEnter + btnmoresoftware1info.BackgroundImage = My.Resources.appscapeinfobuttonpressed + End Sub + + Private Sub btnmoresoftware1info_MouseLeave(sender As Object, e As EventArgs) Handles btnmoresoftware1info.MouseLeave + btnmoresoftware1info.BackgroundImage = My.Resources.appscapeinfobutton + End Sub + + Private Sub btnmoresoftware2info_MouseEnter(sender As Object, e As EventArgs) Handles btnmoresoftware2info.MouseEnter + btnmoresoftware2info.BackgroundImage = My.Resources.appscapeinfobuttonpressed + End Sub + + Private Sub btnmoresoftware2info_MouseLeave(sender As Object, e As EventArgs) Handles btnmoresoftware2info.MouseLeave + btnmoresoftware2info.BackgroundImage = My.Resources.appscapeinfobutton + End Sub + + Private Sub btnbuyaudioplayer_MouseEnter(sender As Object, e As EventArgs) Handles btnbuyaudioplayer.MouseEnter + btnbuyaudioplayer.BackgroundImage = My.Resources.appscapeaudioplayerpricepressed + End Sub + + Private Sub btnbuyaudioplayer_MouseLeave(sender As Object, e As EventArgs) Handles btnbuyaudioplayer.MouseLeave + btnbuyaudioplayer.BackgroundImage = My.Resources.appscapeaudioplayerprice + End Sub + + Private Sub btnbuyvideoplayer_MouseEnter(sender As Object, e As EventArgs) Handles btnbuyvideoplayer.MouseEnter + btnbuyvideoplayer.BackgroundImage = My.Resources.appscapevideoplayerpricepressed + End Sub + + Private Sub btnbuyvideoplayer_MouseLeave(sender As Object, e As EventArgs) Handles btnbuyvideoplayer.MouseLeave + btnbuyvideoplayer.BackgroundImage = My.Resources.appscapevideoplayerprice + End Sub + + Private Sub btnbuywebbrowser_MouseEnter(sender As Object, e As EventArgs) Handles btnbuywebbrowser.MouseEnter + btnbuywebbrowser.BackgroundImage = My.Resources.appscapewebbrowserpricepressed + End Sub + + Private Sub btnbuywebbrowser_MouseLeave(sender As Object, e As EventArgs) Handles btnbuywebbrowser.MouseLeave + btnbuywebbrowser.BackgroundImage = My.Resources.appscapewebbrowserprice + End Sub + + Private Sub btnbuycalculator_MouseEnter(sender As Object, e As EventArgs) Handles btnbuycalculator.MouseEnter + btnbuycalculator.BackgroundImage = My.Resources.appscapecalculatorpricepressed + End Sub + + Private Sub btnbuycalculator_MouseLeave(sender As Object, e As EventArgs) Handles btnbuycalculator.MouseLeave + btnbuycalculator.BackgroundImage = My.Resources.appscapecalculatorprice + End Sub + + Private Sub btnbuymoresoftware1_MouseEnter(sender As Object, e As EventArgs) Handles btnbuymoresoftware1.MouseEnter + btnbuymoresoftware1.BackgroundImage = My.Resources.appscapeundefinedpricepressed + End Sub + + Private Sub btnbuymoresoftware1_MouseLeave(sender As Object, e As EventArgs) Handles btnbuymoresoftware1.MouseLeave + btnbuymoresoftware1.BackgroundImage = My.Resources.appscapeundefinedprice + End Sub + + Private Sub btnbuymoresoftware2_MouseEnter(sender As Object, e As EventArgs) Handles btnbuymoresoftware2.MouseEnter + btnbuymoresoftware2.BackgroundImage = My.Resources.appscapeundefinedpricepressed + End Sub + + Private Sub btnbuymoresoftware2_MouseLeave(sender As Object, e As EventArgs) Handles btnbuymoresoftware2.MouseLeave + btnbuymoresoftware2.BackgroundImage = My.Resources.appscapeundefinedprice + End Sub + + Private Sub btnaudioplayerinfoback_Click(sender As Object, e As EventArgs) Handles btnaudioplayerinfoback.Click + opensite(pnlmainsiteappscape, appscapehomepage, "shiftnet.main.appscape/home.rnp") + End Sub + + Private Sub btnaudioplayerinfo_Click(sender As Object, e As EventArgs) Handles btnaudioplayerinfo.Click + opensite(pnlmainsiteappscape, appscapeaudioplayerinfopage, "shiftnet.main.appscape/audioplayerinfo.rnp") + End Sub + + Private Sub btnvideoplayerinfoback_Click(sender As Object, e As EventArgs) Handles btnvideoplayerinfoback.Click + opensite(pnlmainsiteappscape, appscapehomepage, "shiftnet.main.appscape/home.rnp") + End Sub + + Private Sub btnvideoplayerinfo_Click(sender As Object, e As EventArgs) Handles btnvideoplayerinfo.Click + opensite(pnlmainsiteappscape, appscapevideoplayerinfopage, "shiftnet.main.appscape/videoplayerinfo.rnp") + End Sub + + Private Sub btncalculatorinfoback_Click(sender As Object, e As EventArgs) Handles btncalculatorinfoback.Click + opensite(pnlmainsiteappscape, appscapehomepage, "shiftnet.main.appscape/home.rnp") + End Sub + + Private Sub btncalculatorinfo_Click(sender As Object, e As EventArgs) Handles btncalculatorinfo.Click + opensite(pnlmainsiteappscape, appscapecalculatorinfopage, "shiftnet.main.appscape/calculatorinfo.rnp") + End Sub + + Private Sub btnwebbrowserinfoback_Click(sender As Object, e As EventArgs) Handles btnwebbrowserinfoback.Click + opensite(pnlmainsiteappscape, appscapehomepage, "shiftnet.main.appscape/home.rnp") + End Sub + + Private Sub btnwebbrowserinfo_Click(sender As Object, e As EventArgs) Handles btnwebbrowserinfo.Click + opensite(pnlmainsiteappscape, appscapewebbrowserinfopage, "shiftnet.main.appscape/webbrowserinfo.rnp") + End Sub +End Class \ No newline at end of file diff --git a/Shiftorium.Designer.vb b/Shiftorium.Designer.vb new file mode 100644 index 0000000..47d697c --- /dev/null +++ b/Shiftorium.Designer.vb @@ -0,0 +1,419 @@ + _ +Partial Class Shiftorium + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Shiftorium)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.lbcodepoints = New System.Windows.Forms.Label() + Me.lbupgrades = New System.Windows.Forms.ListBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnlinfo = New System.Windows.Forms.Panel() + Me.pnlintro = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.btnbuy = New System.Windows.Forms.Button() + Me.lbprice = New System.Windows.Forms.Label() + Me.picpreview = New System.Windows.Forms.PictureBox() + Me.lbudescription = New System.Windows.Forms.Label() + Me.lbupgradename = New System.Windows.Forms.Label() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.tmrcodepointsupdate = New System.Windows.Forms.Timer(Me.components) + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pgcontents.SuspendLayout() + Me.pnlinfo.SuspendLayout() + Me.pnlintro.SuspendLayout() + CType(Me.picpreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.lbcodepoints) + Me.pgcontents.Controls.Add(Me.lbupgrades) + Me.pgcontents.Controls.Add(Me.Label1) + Me.pgcontents.Controls.Add(Me.pnlinfo) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(697, 430) + Me.pgcontents.TabIndex = 0 + Me.pgcontents.TabStop = True + ' + 'lbcodepoints + ' + Me.lbcodepoints.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbcodepoints.ForeColor = System.Drawing.Color.Black + Me.lbcodepoints.Location = New System.Drawing.Point(16, 372) + Me.lbcodepoints.Name = "lbcodepoints" + Me.lbcodepoints.Size = New System.Drawing.Size(309, 43) + Me.lbcodepoints.TabIndex = 8 + Me.lbcodepoints.Text = "Codepoints: 25" + Me.lbcodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbupgrades + ' + Me.lbupgrades.BackColor = System.Drawing.Color.White + Me.lbupgrades.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lbupgrades.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + Me.lbupgrades.Font = New System.Drawing.Font("Maiandra GD", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbupgrades.ForeColor = System.Drawing.Color.Black + Me.lbupgrades.FormattingEnabled = True + Me.lbupgrades.ItemHeight = 19 + Me.lbupgrades.Items.AddRange(New Object() {"Title Bar - 80 CP", "Program Titles - 60 CP", "Seconds Since Midnight - 10 CP", "Close Button - 100 CP", "Shifter - 500 CP", "Gray - 50 CP"}) + Me.lbupgrades.Location = New System.Drawing.Point(21, 70) + Me.lbupgrades.Name = "lbupgrades" + Me.lbupgrades.Size = New System.Drawing.Size(304, 285) + Me.lbupgrades.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 26.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(85, 17) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(175, 39) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Upgrades" + ' + 'pnlinfo + ' + Me.pnlinfo.Controls.Add(Me.pnlintro) + Me.pnlinfo.Controls.Add(Me.btnbuy) + Me.pnlinfo.Controls.Add(Me.lbprice) + Me.pnlinfo.Controls.Add(Me.picpreview) + Me.pnlinfo.Controls.Add(Me.lbudescription) + Me.pnlinfo.Controls.Add(Me.lbupgradename) + Me.pnlinfo.Dock = System.Windows.Forms.DockStyle.Right + Me.pnlinfo.Location = New System.Drawing.Point(328, 0) + Me.pnlinfo.Name = "pnlinfo" + Me.pnlinfo.Size = New System.Drawing.Size(369, 430) + Me.pnlinfo.TabIndex = 0 + ' + 'pnlintro + ' + Me.pnlintro.Controls.Add(Me.Label4) + Me.pnlintro.Controls.Add(Me.Label2) + Me.pnlintro.Controls.Add(Me.Label5) + Me.pnlintro.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlintro.Location = New System.Drawing.Point(0, 0) + Me.pnlintro.Name = "pnlintro" + Me.pnlintro.Size = New System.Drawing.Size(369, 430) + Me.pnlintro.TabIndex = 8 + Me.pnlintro.TabStop = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(-3, 397) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(358, 18) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "Select an upgrade on the left to view its details" + ' + 'Label2 + ' + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(3, 53) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(340, 341) + Me.Label2.TabIndex = 5 + Me.Label2.Text = resources.GetString("Label2.Text") + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.ForeColor = System.Drawing.Color.Black + Me.Label5.Location = New System.Drawing.Point(-4, 14) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(355, 31) + Me.Label5.TabIndex = 4 + Me.Label5.Text = "Welcome to the Shiftorium" + ' + 'btnbuy + ' + Me.btnbuy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnbuy.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnbuy.ForeColor = System.Drawing.Color.Black + Me.btnbuy.Location = New System.Drawing.Point(160, 362) + Me.btnbuy.Name = "btnbuy" + Me.btnbuy.Size = New System.Drawing.Size(185, 56) + Me.btnbuy.TabIndex = 7 + Me.btnbuy.Text = "Buy" + Me.btnbuy.UseVisualStyleBackColor = True + ' + 'lbprice + ' + Me.lbprice.Font = New System.Drawing.Font("Microsoft Sans Serif", 26.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbprice.ForeColor = System.Drawing.Color.Black + Me.lbprice.Location = New System.Drawing.Point(15, 362) + Me.lbprice.Name = "lbprice" + Me.lbprice.Size = New System.Drawing.Size(139, 59) + Me.lbprice.TabIndex = 6 + Me.lbprice.Text = "50 CP" + Me.lbprice.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'picpreview + ' + Me.picpreview.Image = Global.ShiftOS.My.Resources.Resources.upgradegray + Me.picpreview.Location = New System.Drawing.Point(25, 218) + Me.picpreview.Name = "picpreview" + Me.picpreview.Size = New System.Drawing.Size(320, 130) + Me.picpreview.TabIndex = 5 + Me.picpreview.TabStop = False + ' + 'lbudescription + ' + Me.lbudescription.Font = New System.Drawing.Font("Tempus Sans ITC", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbudescription.ForeColor = System.Drawing.Color.Black + Me.lbudescription.Location = New System.Drawing.Point(24, 63) + Me.lbudescription.Name = "lbudescription" + Me.lbudescription.Size = New System.Drawing.Size(321, 144) + Me.lbudescription.TabIndex = 4 + Me.lbudescription.Text = resources.GetString("lbudescription.Text") + Me.lbudescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lbupgradename + ' + Me.lbupgradename.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbupgradename.ForeColor = System.Drawing.Color.Black + Me.lbupgradename.Location = New System.Drawing.Point(5, 17) + Me.lbupgradename.Name = "lbupgradename" + Me.lbupgradename.Size = New System.Drawing.Size(361, 43) + Me.lbupgradename.TabIndex = 3 + Me.lbupgradename.Text = "Upgradename" + Me.lbupgradename.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(701, 30) + Me.titlebar.TabIndex = 11 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(283, 2) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconShiftorium + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(311, 4) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(339, 4) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 21 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(109, 18) + Me.lbtitletext.TabIndex = 20 + Me.lbtitletext.Text = "Shiftorium" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 19 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(699, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 18 + ' + 'tmrcodepointsupdate + ' + Me.tmrcodepointsupdate.Enabled = True + Me.tmrcodepointsupdate.Interval = 1000 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 432) + Me.pgleft.TabIndex = 12 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 430) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(699, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 432) + Me.pgright.TabIndex = 13 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 430) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 460) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(697, 2) + Me.pgbottom.TabIndex = 14 + ' + 'Shiftorium + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(701, 462) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.KeyPreview = True + Me.Name = "Shiftorium" + Me.Text = "Shiftorium" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.pnlinfo.ResumeLayout(False) + Me.pnlintro.ResumeLayout(False) + Me.pnlintro.PerformLayout() + CType(Me.picpreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents lbupgrades As System.Windows.Forms.ListBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents pnlinfo As System.Windows.Forms.Panel + Friend WithEvents lbcodepoints As System.Windows.Forms.Label + Friend WithEvents btnbuy As System.Windows.Forms.Button + Friend WithEvents lbprice As System.Windows.Forms.Label + Friend WithEvents picpreview As System.Windows.Forms.PictureBox + Friend WithEvents lbudescription As System.Windows.Forms.Label + Friend WithEvents lbupgradename As System.Windows.Forms.Label + Friend WithEvents pnlintro As System.Windows.Forms.Panel + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents tmrcodepointsupdate As System.Windows.Forms.Timer + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel +End Class diff --git a/Shiftorium.resx b/Shiftorium.resx new file mode 100644 index 0000000..47bcfd4 --- /dev/null +++ b/Shiftorium.resx @@ -0,0 +1,137 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + The shiftorium allows you to buy a range of upgrades that expand and enhance ShiftOS. Everything from system wide GUI and functionality improvements to new programs and program addons can be found here. + +Buying GUI and functionality improvements can be very welcoming as they make the operating system easier and faster to use as well as better looking. Buying new programs and addons open up oportunities to earn codepoints and customise your system further. + +Spending all your codepoints on GUI and functionality improvements can be dangerous however as you may find yourself with a good looking easy to use interface yet you may be unable to earn more codepoints. + +Remember to close all programs after upgrading for full changes to take effect and that any attempt to modify system codepoints manually will result in curruption of the system, the lose of all your codepoints and potentially leave you unable to earn more codepoints. + + + "Everything doesn't always have to be black and white. Give your programs and GUI some depth by mixing black and white together to form grey." + +Note: You are unable to make controls grey until you buy the Shifter + + + 102, 17 + + \ No newline at end of file diff --git a/Shiftorium.vb b/Shiftorium.vb new file mode 100644 index 0000000..64b5112 --- /dev/null +++ b/Shiftorium.vb @@ -0,0 +1,1474 @@ +Imports System.IO + +Public Class Shiftorium + 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 + + Dim pricegrab As String + Dim started As Boolean = False + Dim fs As FileStream + + + + Private Sub Shiftorium_Load(sender As Object, e As EventArgs) Handles Me.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() + + ShiftOSDesktop.pnlpanelbuttonshiftorium.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + handleupgradelist() + 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) + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " left to " & Me.Location.ToString & Environment.NewLine + 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) + e.SuppressKeyPress = True + 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) + e.SuppressKeyPress = True + 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) + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " down to " & Me.Location.ToString & Environment.NewLine + End If + + 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(701, 462) 'put the default size of your window here + Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30) + Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize) + oldbordersize = ShiftOSDesktop.windowbordersize + oldtitlebarheight = ShiftOSDesktop.titlebarheight + justopened = False + Else + If Me.Visible = True Then + Me.Hide() + Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30) + Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) + oldbordersize = ShiftOSDesktop.windowbordersize + oldtitlebarheight = ShiftOSDesktop.titlebarheight + Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30) + Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize) + rolldownsize = Me.Height + If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide() + Me.Show() + End If + End If + + If ShiftOSDesktop.showwindowcorners = True Then + pgtoplcorner.Show() + pgtoprcorner.Show() + pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth + pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth + Else + pgtoplcorner.Hide() + pgtoprcorner.Hide() + End If + + If ShiftOSDesktop.boughttitlebar = False Then + titlebar.Hide() + Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height) + End If + + If ShiftOSDesktop.boughttitletext = False Then + lbtitletext.Hide() + Else + lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle) + lbtitletext.Text = ShiftOSDesktop.shiftoriumname + 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.boughtshiftoriumicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.shiftoriumicontitlebar '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 lbupgrades_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lbupgrades.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + sf.Alignment = StringAlignment.Center + On Error Resume Next + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lbupgrades.GetItemText(lbupgrades.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + + Private Sub lbupgrades_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbupgrades.SelectedIndexChanged + If Me.lbupgrades.SelectedIndex >= 0 Then + If started = False Then + pnlinfo.Location = New Point(351, 0) + pnlintro.Hide() + started = True + End If + + handleupgradedescription("Gray - 20 CP", My.Resources.upgradegray, "Everything doesn't always have to be black and white. Give your programs and GUI some depth by mixing black and white together to form grey." & Environment.NewLine & Environment.NewLine & "Note: You are unable to make controls grey until you buy the Shifter.") + handleupgradedescription("Title Bar - 80 CP", My.Resources.upgradetitlebar, "Your windows are looking extremely bare right now. You know what they need? A gray bar on top of them! What is the gray bar for you ask?" & Environment.NewLine & Environment.NewLine & "Depending on what kind of person you are it either ""Does Nothing"" or ""Looks Pretty"". The Title Bar has a lot of future potential though…") + handleupgradedescription("Seconds Since Midnight - 10 CP", My.Resources.upgradesecondssincemidnight, "Ever wondered how many seconds have passed since the clock struck midnight? No?" & Environment.NewLine & Environment.NewLine & "Well for just 9.99 codepoints (rounded to the nearest codepoint) you will finally have the answer to that question you have no intention of knowing the answer to.") + handleupgradedescription("Minutes Since Midnight - 20 CP", My.Resources.upgrademinutesssincemidnight, "Most people would find looking out their window a better indication of what time it is than being told how many seconds have passed since midnight." & Environment.NewLine & Environment.NewLine & "If you are like most people then enhancing the computers ability to tell the time is critical.") + handleupgradedescription("Hours Since Midnight - 40 CP", My.Resources.upgradehoursssincemidnight, "Need a somewhat normal method of time tracking? Well now you can have it with the Hours Past Midnight time format." & Environment.NewLine & Environment.NewLine & "It's not perfectly accurate but it's easier than trying to work out the time from how many seconds or minutes have passed since midnight.") + handleupgradedescription("Custom Username - 15 CP", My.Resources.upgradecustomusername, "Sick of being known as ""User""? Want to be recognized and labeled? Then you need to replace the default username with your own!" & Environment.NewLine & Environment.NewLine & "If you want ShiftOS to refer to you by name then you are going to need this upgrade.") + handleupgradedescription("Windows Anywhere - 25 CP", My.Resources.upgradewindowsanywhere, "Having all windows open in the center of the screen is seriously limiting when it comes to multitasking." & Environment.NewLine & Environment.NewLine & "Buying this upgrade is essential if you plan on multitasking or even if you just hate having windows centered in the middle of screen.") + handleupgradedescription("Multitasking - 50 CP", My.Resources.upgrademultitasking, "These days people have many windows up on their computer so they can edit photos while they watch videos and chat to their friends about how good at multitasking they are." & Environment.NewLine & Environment.NewLine & "If you like multitasking and having lots of windows open then buy this upgrade!") + handleupgradedescription("Auto Scroll Terminal - 5 CP", My.Resources.upgradeautoscrollterminal, "Getting sick of the terminal filling up with text leaving you not knowing what you have typed unless you start typing more?" & Environment.NewLine & Environment.NewLine & "Then buy this upgrade to keep the terminal scrolled to the bottom so you can always see the latest stuff you've typed.") + handleupgradedescription("Movable Windows - 75 CP", My.Resources.upgrademoveablewindows, "Although it's nice to be able to type commands in the terminal to teleport windows to any spot on the screen it’s a little time consuming and difficult at times." & Environment.NewLine & Environment.NewLine & "Well, with Movable Windows you can move Windows with the keyboard WASD keys.") + handleupgradedescription("Draggable Windows - 150 CP", My.Resources.upgradedraggablewindows, "So... I heard you have a Title Bar? I also heard that you have Movable Windows. Although Movable Windows are nice they aren't perfect." & Environment.NewLine & Environment.NewLine & "Buy this upgrade if you want to drag windows around by their Title Bar! Trust me... Its ultra-efficient!") + handleupgradedescription("Window Borders - 40 CP", My.Resources.upgradewindowborders, "A borderless window on your desktop is like a picture hung on the wall without a frame. It looks completely out of place and awful!" & Environment.NewLine & Environment.NewLine & "Without this upgrade your overlapping windows will look extremely messy and appear to merge with each other,") + handleupgradedescription("PM and AM - 60 CP", My.Resources.upgradeamandpm, "You may be able read the time as it is now but by splitting the time into two 12 hour periods other less intelligent people around you will have an easier time reading the time." & Environment.NewLine & Environment.NewLine & "This upgrade is necessary to stop your families and friends brains exploding!") + handleupgradedescription("Minute Accuracy Time - 80 CP", My.Resources.upgrademinuteaccuracytime, "Want to be completely normal for once? Well Shift your time format into one 60x more accurate. " & Environment.NewLine & Environment.NewLine & "Most people these days make plans to meet at certain times such as 5:30pm so knowing the exact minute of the exact hour is very important.") + handleupgradedescription("Split Second Time - 100 CP", My.Resources.upgradesplitsecondaccuracy, "You already know the exact time down to the very last minute. Do you really need to know the exact second?" & Environment.NewLine & Environment.NewLine & "If so then give this upgrade a whirl but I'm sure you have better things to do than throw 100 codepoints away like this.") + handleupgradedescription("Title Text - 40 CP", My.Resources.upgradetitletext, "Since looking at a program won't tell you the name of it you need Title Text. Unless of course you want to go through the trouble of remembering the name of the program..." & Environment.NewLine & Environment.NewLine & "Title Text sits in the top left hand corner of the title bar to label each program.") + handleupgradedescription("Close Button - 90 CP", My.Resources.upgradeclosebutton, "Closing a program should be as easy as pressing a button. Opening up the terminal and typing ""Close [Program name]"" is just Ridiculous." & Environment.NewLine & Environment.NewLine & "Please, for your own sake... Buy this close button before you waste another second opening up that terminal!") + handleupgradedescription("Desktop Panel - 150 CP", My.Resources.upgradedesktoppanel, "Got a boring blank desktop? Feel it doesn't really serve a purpose? Then you need a desktop panel!" & Environment.NewLine & Environment.NewLine & "This beautiful gray desktop panel will sit at the top of your desktop and do absolutely nothing for only 150 codepoints!") + handleupgradedescription("Clock - 50 CP", My.Resources.upgradeclock, "You could type ""time"" in the terminal every time you wanted to know what the time was but that's a little inefficient don't you think?" & Environment.NewLine & Environment.NewLine & "Ever wish you could just have the time on the screen all the time? Well, there’s an app for that!") + handleupgradedescription("App Launcher Menu - 120 CP", My.Resources.upgradeapplaunchermenu, "Launching programs by typing their names in the terminal is very counterproductive especially if you are bad at spelling." & Environment.NewLine & Environment.NewLine & "A menu on the desktop that displays all programs on your computer and allows you to launch them would be a huge time saver.") + handleupgradedescription("AL Knowledge Input - 20 CP", My.Resources.upgradeknowledgeinput, "What's the point of an App Launcher if it can't launch all your apps?" & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to knowledge input in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("AL Clock - 20 CP", My.Resources.upgradealclock, "What's the point of an App Launcher if it can't launch all your apps?" & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to the clock in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("AL Shiftorium - 20 CP", My.Resources.upgradealshiftorium, "What's the point of an App Launcher if it can't launch all your apps?" & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to shiftorium in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("App Launcher Shutdown - 40 CP", My.Resources.upgradeapplaunchershutdown, "You want a complete graphical interface with no reliance on the terminal right? That means every possible function of the operating system must be achievable graphically." & Environment.NewLine & Environment.NewLine & "You may not shut down too often but hey, it beats opening the terminal...") + handleupgradedescription("Windowed Terminal - 45 CP", My.Resources.upgradewindowedterminal, "A nice big terminal is useful however it can sometimes get in the way of what you are doing." & Environment.NewLine & Environment.NewLine & "With a few tweaks we may be able to program a command that allows the terminal to switch between a full screen and windowed state.") + handleupgradedescription("Desktop Panel Clock - 75 CP", My.Resources.upgradedesktoppanelclock, "Want to always know what the time is without typing ""time"" in the terminal or opening up an entire application?" & Environment.NewLine & Environment.NewLine & "Well, with this somewhat expensive but extremely affordable clock you will know what the time is no matter what you are doing.") + handleupgradedescription("Terminal Scrollbar - 20 CP", My.Resources.upgradeterminalscrollbar, "It’s great having the terminal windowed so it doesn't block the view of your desktop but at the same time size can be an issue." & Environment.NewLine & Environment.NewLine & "This problem can easily be fixed however by adding a scrollbar to the terminal when it's windowed.") + handleupgradedescription("KI Addons - 15 CP", My.Resources.upgradekiaddons, "Knowledge input is a great game to play if you want to earn codepoints but what happens when you run out of things to guess?" & Environment.NewLine & Environment.NewLine & "This upgrade will allow you to install add-ons for knowledge input.") + handleupgradedescription("KI Car Brands - 10 CP", My.Resources.upgradeskicarbrands, "Need some more lists for Knowledge input? Why not add a list of automobile manufacturers to guess?" & Environment.NewLine & Environment.NewLine & "You know the brand of car you drive right? Toyota Maybe? Suzuki? Or maybe you have a Ferrari... come on you can do this!") + handleupgradedescription("KI Game Consoles - 10 CP", My.Resources.upgradesgameconsoles, "Need some more lists for Knowledge input? Why not add a list of game consoles to guess?" & Environment.NewLine & Environment.NewLine & "You know the name of your game console right? Playstation 4 Maybe? Xbox one? Or maybe you have a Ouya... come on you can do this!") + handleupgradedescription("Gray Shades - 40 CP", My.Resources.upgradegrayshades, "Seeing gray on your computer screen may be a nice break from black and white but why have just one shade of gray when you can have 3?" & Environment.NewLine & Environment.NewLine & "More shades of gray increase the uniqueness of your ShiftOS interface by expanding your range of colour options in the Shifter.") + handleupgradedescription("Full Gray Shade Set - 60 CP", My.Resources.upgradegrayshadeset, "3 Shades of gray may be better than 1 shade but why not get a full gray shade set complete with 8 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of gray.") + handleupgradedescription("Custom Gray Shades - 100 CP", My.Resources.upgradegraycustom, "Forget about having 8 shades of gray because this upgrade will allow you to crack the colour value code giving you the ability to create your own custom shades of gray." & Environment.NewLine & Environment.NewLine & "Further research may even allow us to create other basic colours.") + handleupgradedescription("Purple - 20 CP", My.Resources.upgradepurple, "Now that we have the RBG colours ""Red"" and ""Blue"" we are able to mix them together to form purple which symbolizes spirituality, royalty, magic and mystery." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Purple.") + handleupgradedescription("Purple Shades - 40 CP", My.Resources.upgradepurpleshades, "Having a splash of purple may be cool but why have just one shade of purple when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of purple.") + handleupgradedescription("Full Purple Shade Set - 60 CP", My.Resources.upgradepurpleshadeset, "3 Shades of purple may be better than 1 shade but why not get a full purple shade set complete with 16 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of purple.") + handleupgradedescription("Custom Purple Shades - 100 CP", My.Resources.upgradepurplecustom, "16 shades of purple gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own purple shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Blue - 20 CP", My.Resources.upgradeblue, "Blue may be the colour of the sky and the ocean but it’s also an important colour that may allow us to create more colours if we mix it with red." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Blue.") + handleupgradedescription("Blue Shades - 40 CP", My.Resources.upgradeblueshades, "Having a splash of blue may be cool but why have just one shade of blue when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of blue.") + handleupgradedescription("Full Blue Shade Set - 60 CP", My.Resources.upgradeblueshadeset, "3 Shades of blue may be better than 1 shade but why not get a full blue shade set complete with 16 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of blue.") + handleupgradedescription("Custom Blue Shades - 100 CP", My.Resources.upgradebluecustom, "16 shades of blue gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own blue shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Green - 20 CP", My.Resources.upgradegreen, "Green may be the colour of nature and life but it’s also an important colour that may allow us to create more colours if we mix it with red." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Green.") + handleupgradedescription("Green Shades - 40 CP", My.Resources.upgradegreenshades, "Having a splash of green may be cool but why have just one shade of green when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of green.") + handleupgradedescription("Full Green Shade Set - 60 CP", My.Resources.upgradegreenshadeset, "3 Shades of green may be better than 1 shade but why not get a full green shade set complete with 16 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of green.") + handleupgradedescription("Custom Green Shades - 100 CP", My.Resources.upgradegreencustom, "16 shades of green gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own green shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Yellow - 20 CP", My.Resources.upgradeyellow, "Now that we have the RBG colours ""Red"" and ""Green"" we are able to mix them together to form yellow which symbolizes happiness, creativity and high intellect." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Yellow.") + handleupgradedescription("Yellow Shades - 40 CP", My.Resources.upgradeyellowshades, "Having a splash of yellow may be cool but why have just one shade of yellow when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of yellow.") + handleupgradedescription("Full Yellow Shade Set - 60 CP", My.Resources.upgradeyellowshadeset, "3 Shades of yellow may be better than 1 shade but why not get a full yellow shade set complete with 10 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of yellow.") + handleupgradedescription("Custom Yellow Shades - 100 CP", My.Resources.upgradeyellowcustom, "10 shades of yellow gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own yellow shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Orange - 20 CP", My.Resources.upgradeorange, "Now that we have the RBG colours ""Red"" and ""Green"" we are able to mix them together to form orange which symbolizes enthusiasm and creativity." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Orange.") + handleupgradedescription("Orange Shades - 40 CP", My.Resources.upgradeorangeshades, "Having a splash of orange may be cool but why have just one shade of orange when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of orange.") + handleupgradedescription("Full Orange Shade Set - 60 CP", My.Resources.upgradeorangeshadeset, "3 Shades of orange may be better than 1 shade but why not get a full orange shade set complete with 6 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of orange.") + handleupgradedescription("Custom Orange Shades - 100 CP", My.Resources.upgradeorangecustom, "6 shades of orange gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own orange shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Brown - 20 CP", My.Resources.upgradebrown, "Now that we have the all the RBG colours we are able to mix them together to form brown which symbolizes laziness and the earth." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Brown.") + handleupgradedescription("Brown Shades - 40 CP", My.Resources.upgradebrownshades, "Having a splash of brown may be cool but why have just one shade of brown when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of brown.") + handleupgradedescription("Full Brown Shade Set - 60 CP", My.Resources.upgradebrownshadeset, "3 Shades of brown may be better than 1 shade but why not get a full brown shade set complete with 16 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of brown.") + handleupgradedescription("Custom Brown Shades - 100 CP", My.Resources.upgradebrowncustom, "16 shades of brown gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own brown shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Red - 20 CP", My.Resources.upgradered, "Red may be a demonic and evil colour that symbolizes hate and rage but it’s a very important colour that may allow us to create more colours if we mix it with Blue or Green." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to red.") + handleupgradedescription("Red Shades - 40 CP", My.Resources.upgraderedshades, "Having a splash of red may be cool but why have just one shade of red when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of red.") + handleupgradedescription("Full Red Shade Set - 60 CP", My.Resources.upgraderedshadeset, "3 Shades of red may be better than 1 shade but why not get a full red shade set complete with 9 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of red.") + handleupgradedescription("Custom Red Shades - 100 CP", My.Resources.upgraderedcustom, "9 shades of red gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own red shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Pink - 20 CP", My.Resources.upgradepink, "Now that we have the all the RBG colours we are able to mix them together to form pink which symbolizes universal love and beauty." & Environment.NewLine & Environment.NewLine & "Buying this upgrade would enable you to set various UI elements in ShiftOS to Pink.") + handleupgradedescription("Pink Shades - 40 CP", My.Resources.upgradepinkshades, "Having a splash of pink may be cool but why have just one shade of pink when you can have 3?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to get more shades of pink.") + handleupgradedescription("Full Pink Shade Set - 60 CP", My.Resources.upgradepinkshadeset, "3 Shades of pink may be better than 1 shade but why not get a full pink shade set complete with 6 shades?" & Environment.NewLine & Environment.NewLine & "Further upgrades may even allow you to create your own custom shades of pink.") + handleupgradedescription("Custom Pink Shades - 100 CP", My.Resources.upgradepinkcustom, "6 shades of pink gives you plenty of customization options but further investigation into the RBG colour system will allow you to make your own pink shades." & Environment.NewLine & Environment.NewLine & "Eventually we may be able to limitlessly create shades of any colour.") + handleupgradedescription("Basic Custom shade - 50 CP", My.Resources.upgradeanycolourshade, "Now that we can create shades of colours based on certain rules our level of customization is very high." & Environment.NewLine & Environment.NewLine & "With further research ShiftOS may be able to support the ability to make a shade not linked to the rules of a certain colour.") + handleupgradedescription("General Custom Shades - 100 CP", My.Resources.upgradeanycolourshade2, "There isn’t much use making a single custom colour that looks mostly gray. Further research into optimizing ShiftOS may improve its compatibility with the RGB colour system." & Environment.NewLine & Environment.NewLine & "This would lead to a higher range in values and shades being stored.") + handleupgradedescription("Advanced Custom Shades - 250 CP", My.Resources.upgradeanycolourshade3, "4 savable shade spaces is nowhere near decent for storing custom colours and with RGB limits of 100 to 200 the colours are still looking quite dull." & Environment.NewLine & Environment.NewLine & "More research into optimizing ShiftOS may further break these limits.") + handleupgradedescription("Limitless Custom Shades - 500 CP", My.Resources.upgradeanycolourshade4, "It’s time to break all RGB colour limits forever! This upgrade may be expensive but it will allow us to master the RGB colour system." & Environment.NewLine & Environment.NewLine & "With total native RGB colour support in ShiftOS we will limitlessly be able to make millions of shades of colours.") + handleupgradedescription("Shifter - 40 CP", My.Resources.upgradeshifter, "For system compatibility reasons practically all ShiftOS elements are designed to display in gray style and look dull." & Environment.NewLine & Environment.NewLine & "We may be able to overcome this dull interface however if the user is given the option to customize it through the use of an application.") + handleupgradedescription("AL Shifter - 20 CP", My.Resources.upgradealshifter, "What's the point of an App Launcher if it can't launch all your apps? " & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to the shifter in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("Roll Up Command - 10 CP", My.Resources.upgraderollupcommand, "Running out of space on your desktop? Wish you could keep a window running in the background without completely closing it?" & Environment.NewLine & Environment.NewLine & "Well you 're in luck. The roll up command will allow you to roll windows up to their title bar when you want to save space.") + handleupgradedescription("Roll Up Button - 45 CP", My.Resources.upgraderollupbutton, "Are you a fan of the Roll Up functionality? Are you absolutely sick of opening up the terminal and typing in a command every time you want to roll up a window?" & Environment.NewLine & Environment.NewLine & "This upgrade will making rolling up windows much quicker!") + handleupgradedescription("Shift Desktop - 20 CP", My.Resources.upgradeshiftdesktop, "The shifter is currently unable to change any settings but this simple upgrade may be able to add a module that allows you to change the colour of the desktop background." & Environment.NewLine & Environment.NewLine & "This may even unlock further Shifter functionality.") + handleupgradedescription("Shift Panel Clock - 20 CP", My.Resources.upgradeshiftpanelclock, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Desktop Panel Clock.") + handleupgradedescription("Shift App Launcher - 20 CP", My.Resources.upgradeshiftapplauncher, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the App Launcher.") + handleupgradedescription("Shift Desktop Panel - 20 CP", My.Resources.upgradeshiftdesktoppanel, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Desktop Panel.") + handleupgradedescription("Shift Title Bar - 20 CP", My.Resources.upgradeshifttitlebar, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Title Bar.") + handleupgradedescription("Shift Title Text - 20 CP", My.Resources.upgradeshifttitletext, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Title Text.") + handleupgradedescription("Shift Title Buttons - 20 CP", My.Resources.upgradeshiftbuttons, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Title Buttons.") + handleupgradedescription("Shift Borders - 20 CP", My.Resources.upgradeshiftborders, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Window Borders.") + handleupgradedescription("Pong - 70 CP", My.Resources.upgradepong, "Finding it difficult to list more words with knowledge input? Everyone has their limits right? Well how about a game of pong?" & Environment.NewLine & Environment.NewLine & "This game is sure to get your adrenalin going and you can earn codepoints as you play it!") + handleupgradedescription("Knowledge Input Icon - 15 CP", My.Resources.upgradeknowledgeinputicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for knowledge input.") + handleupgradedescription("Shifter Icon - 15 CP", My.Resources.upgradeshiftericon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for shifter.") + handleupgradedescription("Shiftorium Icon - 15 CP", My.Resources.upgradeshiftoriumicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for shiftorium.") + handleupgradedescription("Clock Icon - 15 CP", My.Resources.upgradeclockicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for clock.") + handleupgradedescription("Shutdown Icon - 15 CP", My.Resources.upgradeshutdownicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for shutdown.") + handleupgradedescription("Pong Icon - 15 CP", My.Resources.upgradepongicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for pong.") + handleupgradedescription("Terminal Icon - 15 CP", My.Resources.upgradeterminalicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for terminal.") + handleupgradedescription("File Skimmer Icon - 15 CP", My.Resources.upgradefileskimmericon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for file skimmer.") + handleupgradedescription("Textpad Icon - 15 CP", My.Resources.upgradetextpadicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for textpad.") + handleupgradedescription("AL Pong - 20 CP", My.Resources.upgradealpong, "What's the point of an App Launcher if it can't launch all your apps? " & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to pong in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("AL File Skimmer - 20 CP", My.Resources.upgradealfileskimmer, "What's the point of an App Launcher if it can't launch all your apps? " & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to the file skimmer in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("AL Textpad - 20 CP", My.Resources.upgradealtextpad, "What's the point of an App Launcher if it can't launch all your apps? " & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to textpad in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("File Skimmer - 60 CP", My.Resources.upgradefileskimmer, "Almost all computers come with some form of permanent data storage." & Environment.NewLine & Environment.NewLine & "ShiftOS is storing data on your storage device (e.g. HDD or SSD) however without a way to view and browse through these files you are practically locked out of your own computer.") + handleupgradedescription("Textpad - 65 CP", My.Resources.upgradetextpad, "Need to quickly jot down something but you can’t find a pen and paper nearby? There’s an app for that!" & Environment.NewLine & Environment.NewLine & "With the Textpad you will be able to jot down whatever you like and have it displayed in all its glory on your computer screen.") + handleupgradedescription("Textpad New - 25 CP", My.Resources.upgradetextpadnew, "Have you ever been typing a document and thought ‘I don’t like what I’m writing’. Closing and opening the entire application to clear the text is too much effort right?" & Environment.NewLine & Environment.NewLine & "Well if you get this upgrade clearing the text can be as easy as pressing a button.") + handleupgradedescription("Textpad Save - 25 CP", My.Resources.upgradetextpadsave, "Have you just written something worth keeping with Textpad? Well, what a shame you can’t save it…" & Environment.NewLine & Environment.NewLine & "Or can you? That’s right, with this upgrade your award winning documents can sit safely on your storage device.") + handleupgradedescription("Textpad Open - 25 CP", My.Resources.upgradetextpadopen, "Sure you can open your text files by going to all the effort of opening File Skimmer and then clicking on the file you want to open but it doesn’t have to be that hard." & Environment.NewLine & Environment.NewLine & "Wouldn't an open button make life much easier?") + handleupgradedescription("FS New Folder - 25 CP", My.Resources.upgradefileskimmernew, "There are a few folders within the ShiftOS file system that you can sort your data into but why limit yourself?" & Environment.NewLine & Environment.NewLine & "In an operating system that you can shift to your liking surely you should be able to create your own folders right?") + handleupgradedescription("FS Delete - 25 CP", My.Resources.upgradefileskimmerdelete, "You’re not a hoarder are you? If you are stop reading this and go look for another upgrade." & Environment.NewLine & Environment.NewLine & "If you keep every file you create your storage device is sure to get cluttered… seriously, you need a delete button!") + handleupgradedescription("KI Elements - 10 CP", My.Resources.upgradekielements, "Need some more lists for Knowledge input? Why not add a list of Elements to guess?" & Environment.NewLine & Environment.NewLine & "You studied the periodic table of elements in highschool right? Hydrogen, oxygen, lead, silver… you can do this!") + handleupgradedescription("Colour Picker Icon - 15 CP", My.Resources.upgradecolourpickericon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for the Colour Picker.") + handleupgradedescription("Infobox Icon - 15 CP", My.Resources.upgradeinfoboxicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for the InfoBox.") + 'new + handleupgradedescription("Panel Buttons - 75 CP", My.Resources.upgradepanelbuttons, "A desktop panel seems like it could be useful for a variety of different features." & Environment.NewLine & Environment.NewLine & "Maybe with a little more research we could find a way to display the names of all your open programs in the desktop panel") + handleupgradedescription("Minimize Command - 20 CP", My.Resources.upgrademinimizecommand, "Ever wanted to completely remove a program from the screen without actually closing it?" & Environment.NewLine & Environment.NewLine & "Well with a minimize command this may actually become possible and allow you to save the state of hidden programs in the process!") + handleupgradedescription("Minimize Button - 50 CP", My.Resources.upgrademinimizebutton, "As useful as the minimize feature is you still have to go to all the effort of opening the terminal and typing in a command to use it." & Environment.NewLine & Environment.NewLine & "Wouldn’t a button in the title of each window be more efficient?") + handleupgradedescription("Useful Panel Buttons - 40 CP", My.Resources.upgradeusefulpanelbuttons, "How can you call those things on the desktop panel ‘panel buttons’ when they aren’t even clickable?." & Environment.NewLine & Environment.NewLine & "A graphical unminimize feature would be handy and those panel buttons might help us…") + handleupgradedescription("Artpad - 75 CP", My.Resources.upgradeartpad, "Ever wanted to play around with pixels on your screen?" & Environment.NewLine & Environment.NewLine & "Well it looks like your newest companion may become the Artpad but be sure you know your x and y coordinates!") + handleupgradedescription("Artpad Pixel Limit 4 - 10 CP", My.Resources.upgradeartpadpixellimit4, "With just two pixels you can’t make very interesting artworks." & Environment.NewLine & Environment.NewLine & "Doubling the pixel limit to 4 should more than double the variety of unique creations you can make with the artpad.") + handleupgradedescription("Artpad Pixel Limit 8 - 20 CP", My.Resources.upgradeartpadpixellimit8, "Earlier I lied about 4 pixels giving you many different types of unique artistic opportunities." & Environment.NewLine & Environment.NewLine & "A pixel limit of 8 may be a little limiting though and its still dirt cheap.") + handleupgradedescription("Artpad Pixel Limit 16 - 30 CP", My.Resources.upgradeartpadpixellimit16, "8 pixels may not be great but 16 is looking a little more pristine." & Environment.NewLine & Environment.NewLine & "It may be a silly rhyme but it’s true.") + handleupgradedescription("Artpad Pixel Limit 64 - 50 CP", My.Resources.upgradeartpadpixellimit64, "Step right up to a pixel limit 4x greater than your current one." & Environment.NewLine & Environment.NewLine & "Isn’t it usually double you say? Well this time around its quadruple but unfortunately it does come with a dearer price.") + handleupgradedescription("Artpad Pixel Limit 256 - 75 CP", My.Resources.upgradeartpadpixellimit256, "Finally we are on the verge on a decent pixel limit. Think of what you could do with 256 pixels" & Environment.NewLine & Environment.NewLine & "The width and height of your canvas could be huge!") + handleupgradedescription("Artpad Pixel Limit 1024 - 100 CP", My.Resources.upgradeartpadpixellimit1024, "Ahh, now we’re talking. This is an upgrade that will do you a world of good." & Environment.NewLine & Environment.NewLine & "It’s a shame it’s is so expensive but good things always come at a cost.") + handleupgradedescription("Artpad Pixel Limit 4096 - 150 CP", My.Resources.upgradeartpadpixellimit4096, " With a pixel limit of 4096 you would have the ability to make canvases 64 by 64 pixels." & Environment.NewLine & Environment.NewLine & "Do you really think you will need this high of a pixel limit?") + handleupgradedescription("Artpad Pixel Limit 16384 - 200 CP", My.Resources.upgradeartpadpixellimit16384, "You may think your current pixel limit is good but you aren’t seen nothing yet." & Environment.NewLine & Environment.NewLine & "For some true 4x zoomed freehand drawing don’t miss this upgrade.") + handleupgradedescription("Artpad Pixel Limit 65536 - 250 CP", My.Resources.upgradeartpadpixellimit65536, "Oh come on how much higher can the pixel limit go?" & Environment.NewLine & Environment.NewLine & "I doubt you actually need it but aren’t you curious how much higher this goes?") + handleupgradedescription("Artpad Limitless Pixels - 350 CP", My.Resources.upgradeartpadlimitlesspixels, "This is what you’ve been waiting for all this time after purchasing all those pixel limit upgrades" & Environment.NewLine & Environment.NewLine & "It may be ultra-expensive but you won’t have to ever get another after this one.") + handleupgradedescription("Artpad New - 10 CP", My.Resources.upgradeartpadnew, "Ever wanted to start a fresh with a new canvas without restarting Artpad" & Environment.NewLine & Environment.NewLine & "With a little research it may be possible to add a button to do just that whenever you want.") + handleupgradedescription("Artpad Save - 50 CP", My.Resources.upgradeartpadsave, "Artpad may be fun to play around with but wouldn’t saving be an amazing feature?" & Environment.NewLine & Environment.NewLine & "Saving your pictures may even generate codepoints and the saved pictures might be able to be used for something.") + handleupgradedescription("Artpad Load - 50 CP", My.Resources.upgradeartpadload, "Sometimes after making something and saving it you wish to alter it slightly to enhance it" & Environment.NewLine & Environment.NewLine & "A load feature in the Artpad should let you modify saved .pic files by allowing you to load them up again with the click of a button.") + handleupgradedescription("Artpad Undo - 40 CP", My.Resources.upgradeartpadundo, "Ever spilt your paint over your masterpiece? It’s an awful feeling right?" & Environment.NewLine & Environment.NewLine & "Well in situations like these an undo feature would be very useful so for backup I would definitely get this upgrade.") + handleupgradedescription("Artpad Redo - 40 CP", My.Resources.upgradeartpadredo, "Ever clicked undo too many times and found that you have lost a large portion of work" & Environment.NewLine & Environment.NewLine & "For cases like these a redo button can be quite handy but obviously you could save your codepoints by just being careful with the undo button.") + handleupgradedescription("Artpad Pixel Placer - 20 CP", My.Resources.upgradeartpadpixelplacer, "The pixel setter allows you to set pixels but do you really want to go around trying to pinpoint and calculate x and y coordinates" & Environment.NewLine & Environment.NewLine & "Clicking the pixel you want to change directly would be much more efficient don’t you agree?") + handleupgradedescription("Artpad PP Movement Mode - 20 CP", My.Resources.upgradeartpadpixelplacermovementmode, "Constantly clicking each individual pixel on your canvas using the Pixel Placer can be very time consuming and tiring for your hands" & Environment.NewLine & Environment.NewLine & "Wouldn’t it be easier to just click and drag? Well there’s an upgrade for that!") + handleupgradedescription("Artpad Pencil - 30 CP", My.Resources.upgradeartpadpenciltool, "Does the buggy Pixel placer movement mode annoy you when it skips pixels?" & Environment.NewLine & Environment.NewLine & "Well with a little more research we may be able to develop a new tool that can draw much more smoothly.") + handleupgradedescription("Artpad Paint Brush - 30 CP", My.Resources.upgradeartpadpaintbrushtool, "Ever wanted to paint with a tool that can paint free handedly and be big, small, circular or square?" & Environment.NewLine & Environment.NewLine & "This paint brush tool may be the tool you want then and its pretty cheap too.") + handleupgradedescription("Artpad Line Tool - 30 CP", My.Resources.upgradeartpadlinetool, "Having difficulty drawing strait lines? Then you obviously need a line tool." & Environment.NewLine & Environment.NewLine & "With a line tool you will be able to draw straight lines from any point to any point on your canvas.") + handleupgradedescription("Artpad Oval Tool - 40 CP", My.Resources.upgradeartpadovaltool, "Drawing perfect circles is a very tricky process especially if zoomed right in on the canvas" & Environment.NewLine & Environment.NewLine & "With a bit of research we may be able to discover a tool that calculates how to draw circles without much effort on our side.") + handleupgradedescription("Artpad Rectangle Tool - 40 CP", My.Resources.upgradeartpadrectangletool, "Drawing perfect squares is a time consuming process especially if you are trying to draw them perfectly straight" & Environment.NewLine & Environment.NewLine & "With a bit of research we may be able to discover a tool that calculates how to draw squares without much effort on our side.") + handleupgradedescription("Artpad Eraser - 20 CP", My.Resources.upgradeartpaderaser, "Made a little mistake and want to erase it? Sounds like you need an eraser" & Environment.NewLine & Environment.NewLine & "With a little bit of research an eraser tool may not be too far away as overall its just a paintbrush set to the colour of the canvas.") + handleupgradedescription("Artpad Fill Tool - 60 CP", My.Resources.upgradeartpadfilltool, "Instead of coloring in every single individual pixel sometimes it is more appropriate to simply draw an outline and instantly fill a space in." & Environment.NewLine & Environment.NewLine & "If that’s a feature you’re interested in then you should definitely buy this upgrade.") + handleupgradedescription("Artpad Text Tool - 45 CP", My.Resources.upgradeartpadtexttool, "drawing text is very difficult but if you can pull it off then well done, nice accomplishment!" & Environment.NewLine & Environment.NewLine & "For those who can’t though research into a text drawing tool would be very handy unless you don’t require text in your artwork.") + handleupgradedescription("Artpad 4 Color Pallets - 10 CP", My.Resources.upgradeartpad4colorpallets, "Having just 2 colours in your work may give it an interesting style but overall its very limiting." & Environment.NewLine & Environment.NewLine & "This upgrade will double the amount of usable colour pallets in the Artpad to allow you quick access to a wider range of colours.") + handleupgradedescription("Artpad 8 Color Pallets - 20 CP", My.Resources.upgradeartpad8colorpallets, "4 colour pallets is still very limiting and a lot less than your average paint program." & Environment.NewLine & Environment.NewLine & "This upgrade will double the amount of usable colour pallets in the Artpad to allow you quick access to a wider range of colours.") + handleupgradedescription("Artpad 16 Color Pallets - 35 CP", My.Resources.upgradeartpad16colorpallets, "8 colours is still going to leave you changing the colour of your pallets quite often." & Environment.NewLine & Environment.NewLine & "This upgrade will double the amount of usable colour pallets in the Artpad to allow you quick access to a wider range of colours.") + handleupgradedescription("Artpad 32 Color Pallets - 50 CP", My.Resources.upgradeartpad32colorpallets, "16 colours is definitely usable but it certainly could get better than that right?" & Environment.NewLine & Environment.NewLine & "This upgrade will double the amount of usable colour pallets in the Artpad to allow you quick access to a wider range of colours.") + handleupgradedescription("Artpad 64 Color Pallets - 100 CP", My.Resources.upgradeartpad64colorpallets, "32 colours is slightly more than average for a paint program but don’t you want extreme?" & Environment.NewLine & Environment.NewLine & "This upgrade will double the amount of usable colour pallets in the Artpad to allow you quick access to a wider range of colours.") + handleupgradedescription("Artpad 128 Color Pallets - 150 CP", My.Resources.upgradeartpad128colorpallets, "For some people 64 colour pallets may already be overkill but for the extremists like yourself it’s just not enough." & Environment.NewLine & Environment.NewLine & "This upgrade will double the amount of usable colour pallets in the Artpad to allow you quick access to a wider range of colours.") + handleupgradedescription("Artpad Custom Pallets - 75 CP", My.Resources.updatecustomcolourpallets, "It can be annoying when things are set in stone and can’t be changed." & Environment.NewLine & Environment.NewLine & "Let’s not let that happen to the Artpad by programming the colour pallets to be resizable by the user.") + handleupgradedescription("Skinning - 80 CP", My.Resources.upgradeskinning, "Static colours of the windows and desktop in ShiftOS are beginning to look boring and unprofessional." & Environment.NewLine & Environment.NewLine & "Since the artpad is able to save .pic file we may be able to use them as UI elements.") + handleupgradedescription("Unity Mode - 1000 CP", My.Resources.upgradeunitymode, "ShiftOS uses Microsoft Windows as nothing more than supportive boot code however further research could enhance interactivity between operating systems." & Environment.NewLine & Environment.NewLine & "The Full RGB colour system support should enable better compatibility allowing ShiftOS to run in Unity with Windows.") + handleupgradedescription("AL Artpad - 20 CP", My.Resources.upgradealartpad, "What's the point of an App Launcher if it can't launch all your apps? " & Environment.NewLine & Environment.NewLine & "Use this tweak to add a shortcut to artpad in your app launcher so you can launch it at any time with just a few clicks.") + handleupgradedescription("Artpad Icon - 15 CP", My.Resources.upgradeartpadicon, "Having the name of a program in its title bar or in an app launcher is always great as it helps you remember what each program is." & Environment.NewLine & Environment.NewLine & "Text however is a little plain don’t you think? What we really need is an icon for artpad.") + handleupgradedescription("Shift Panel Buttons - 20 CP", My.Resources.upgradeshiftpanelbuttons, "The Shifter may have some functionality but why not add more modules to it so you can customize even more elements of ShiftOS?" & Environment.NewLine & Environment.NewLine & "This module will allow you to modify the Desktop Panel Buttons.") + + End If + End Sub + + Private Sub btnbuy_Click(sender As Object, e As EventArgs) Handles btnbuy.Click + If Me.lbupgrades.SelectedIndex >= 0 Then + handlebuy("Gray - 20 CP", ShiftOSDesktop.boughtgray, "Originally the screen could only display black and white but now with the ability to display gray it's easier and more efficient to display more information and controls on the screen." & Environment.NewLine & Environment.NewLine & "You can now set the colour of screen controls including the background to gray using Shifter and even draw in gray within Artpad.") + handlebuy("Title Bar - 80 CP", ShiftOSDesktop.boughttitlebar, "Congratulations, windows will now have a gray, 30 pixel high title bar at the top of them!" & Environment.NewLine & Environment.NewLine & "It may not seem like much now but you've just opened up the ShiftOS GUI to a huge range of future upgrades that could turn this title bar into a very useful tool for window information and enhanced control.") + handlebuy("Seconds Since Midnight - 10 CP", ShiftOSDesktop.boughtsecondspastmidnight, "Interesting, the bios appears to have the ability to track how many seconds have passed since midnight. With further calculations we may be able to convert this format of time tracking to a more convenient one." & Environment.NewLine & Environment.NewLine & "You can now find out how many seconds have passed since midnight by typing ""time"" in the terminal.") + handlebuy("Minutes Since Midnight - 20 CP", ShiftOSDesktop.boughtminutespastmidnight, "Wow, isn't this amazing? Simply by dividing how many seconds have passed since midnight by 60 the computer is now able to tell you how many minutes have passed since midnight." & Environment.NewLine & Environment.NewLine & "Typing ""time"" in the terminal will now give you a better indication of what time it is.") + handlebuy("Hours Since Midnight - 40 CP", ShiftOSDesktop.boughthourspastmidnight, "Incredible! If you divide the amount of minutes that have passed since midnight by 60 you are able to determine a somewhat proper time in 24 hour format." & Environment.NewLine & Environment.NewLine & "Typing ""time"" in the terminal will now tell you the time in a not so accurate but very understandable format.") + handlebuy("Custom Username - 15 CP", ShiftOSDesktop.boughtcustomusername, "Well, isn't this special? The terminal will now display any name you want it to. Even the ShiftOS desktop and some other applications will refer to you by the username you set." & Environment.NewLine & Environment.NewLine & "To set your username simply type ""set username"" in the terminal followed by the name you want (spaces not allowed).") + handlebuy("Windows Anywhere - 25 CP", ShiftOSDesktop.boughtwindowsanywhere, "Congratulations! You can now move windows to any point on the screen... As long as you understand the concept of X and Y coordinates and screen resolution." & Environment.NewLine & Environment.NewLine & "Type ""Move [insert program name here] to [xcoordinate],[ycoordinate]"" to teleport windows to any point on the screen.") + handlebuy("Multitasking - 50 CP", ShiftOSDesktop.boughtmultitasking, "Congratulations! You can now open as many applications as you want on your computer. Remember that all applications are 'single instance applications' so you can't open two versions of the same application." & Environment.NewLine & Environment.NewLine & "To switch between open programs/bring a window to the front type ""switch to"" followed by the application name.") + handlebuy("Auto Scroll Terminal - 5 CP", ShiftOSDesktop.boughtautoscrollterminal, "Buggy terminal Fixed! Although your terminal may not get filled up that much when it's full screen it certainly will if you find a way to make the terminal smaller." & Environment.NewLine & Environment.NewLine & "Every time you press enter the terminal will now automatically scroll you to bottom so you can always see the latest terminal output.") + handlebuy("Movable Windows - 75 CP", ShiftOSDesktop.boughtmovablewindows, "You can now move windows without total reliance on the terminal however movement is far from smooth and not fully efficient." & Environment.NewLine & Environment.NewLine & "To move windows simply click once anywhere on the window you wish to move and hold the Ctrl key while tapping the WASD keys to move it 50 (customizable in Shifter) pixels in that direction.") + handlebuy("Draggable Windows - 150 CP", ShiftOSDesktop.boughtdraggablewindows, "You have just taken a major step in the right direction. You no longer have to worry about relying on the keyboard to move windows around on the screen." & Environment.NewLine & Environment.NewLine & "From this point on you can use the pin point accuracy of your mouse to smoothly drag windows to any spot on the screen by pulling on their title bars.") + handlebuy("Window Borders - 40 CP", ShiftOSDesktop.boughtwindowborders, "Now with your freshly framed windows you will no longer have issues distinguishing them from each other. Those borders may even perform a function other than looking pretty in a future upgrade." & Environment.NewLine & Environment.NewLine & "Borders only cover the right, left and bottom of windows so if you haven't bought a Title Bar your windows won't have a top border.") + handlebuy("PM and AM - 60 CP", ShiftOSDesktop.boughtpmandam, "Congratulations, you have just saved anyone who looks at your computer for the time a few seconds converting it from 24 hour time to 12 hour time. Good Job!" & Environment.NewLine & Environment.NewLine & "It may not be totally accurate but now people won't think you are a complete nerd with a strange time format.") + handlebuy("Minute Accuracy Time - 80 CP", ShiftOSDesktop.boughtminuteaccuracytime, "Finally you have a great time format. You may not know the exact second of each minute but knowing the minute of the hour is good enough right?" & Environment.NewLine & Environment.NewLine & "If you haven't already buy a desktop clock or title bar clock to show off the time so you don't have to type ""time"" in the terminal all the time.") + handlebuy("Split Second Time - 100 CP", ShiftOSDesktop.boughtsplitsecondtime, "Ok, looks like you just couldn't resist so here you go... Typing ""time"" in the terminal will now tell you the hour, minute and second of the day." & Environment.NewLine & Environment.NewLine & "If you have any other clock like programs these will also now tell you the time to the exact second. Now go upgrade something that matters!") + handlebuy("Title Text - 40 CP", ShiftOSDesktop.boughttitletext, "Fantastic! You now have some beautiful title text that sits in the title bar and tells you the name of all open programs." & Environment.NewLine & Environment.NewLine & "If you are unhappy with the font, size, colour or even position of the Title Text you are free to change it in the Shifter or even turn off Title Text all together if you don't like it.") + handlebuy("Close Button - 90 CP", ShiftOSDesktop.boughtclosebutton, "What a relief! Finally programs can be closed with the click of a button. This is a big step forwards towards total graphical functionality without a terminal." & Environment.NewLine & Environment.NewLine & "If you havn't already now would be a great time to start building up a desktop interface to free yourself from the terminal.") + handlebuy("Desktop Panel - 150 CP", ShiftOSDesktop.boughtdesktoppanel, "Now wasn't that worth it? Your desktop looks like it could actually do something now even though it can't. Doesn't this make your life feel totally complete now?" & Environment.NewLine & Environment.NewLine & "No? Well then... go buy some more upgrades and maybe that gray bar at the top of the screen will actually serve a purpose!") + handlebuy("Clock - 50 CP", ShiftOSDesktop.boughtclock, "Great Work! You can now use your expensive computer as a cheap clock that hopefully displays the time in a nice format." & Environment.NewLine & Environment.NewLine & "Now you can sit back spending the day watching the time or even play knowledge input while the time is being displayed if your computer can multitask.") + handlebuy("App Launcher Menu - 120 CP", ShiftOSDesktop.boughtapplaunchermenu, "Fantastic! Your desktop panel now contains an application launcher. You can now use it at any time to open the terminal by clicking the application launcher menu and then selecting terminal from the dropdown list." & Environment.NewLine & Environment.NewLine & "Further upgrades may add more programs you have installed on your computer to the launcher.") + handlebuy("AL Knowledge Input - 20 CP", ShiftOSDesktop.boughtalknowledgeinput, "Your App Launcher is now more complete and will allow you to launch Knowledge input at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("AL Clock - 20 CP", ShiftOSDesktop.boughtalclock, "Your App Launcher is now more complete and will allow you to launch the clock at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("AL Shiftorium - 20 CP", ShiftOSDesktop.boughtalshiftorium, "Your App Launcher is now more complete and will allow you to launch shiftorium at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("App Launcher Shutdown - 40 CP", ShiftOSDesktop.boughtapplaunchershutdown, "Congratulations! Under your programs in the program launcher you will now see an option to shut down your computer." & Environment.NewLine & Environment.NewLine & "You may now instantly shutdown ShiftOS any time you want with just a few clicks! Be sure not to accidently click it though otherwise you may lose unsaved work or exit out of something before you're done.") + handlebuy("Windowed Terminal - 45 CP", ShiftOSDesktop.boughtwindowedterminal, "Excellent! The terminal no longer has to be a huge barrier between you and your desktop." & Environment.NewLine & Environment.NewLine & "You can now type ""windowed terminal"" to turn the terminal into a normal windowed program. You can also type ""fullscreen terminal"" to restore the terminal to it’s original state.") + handlebuy("Desktop Panel Clock - 75 CP", ShiftOSDesktop.boughtdesktoppanelclock, "Well Done! You now will know what the time is whenever you want as long as the desktop panel is visible." & Environment.NewLine & Environment.NewLine & "Feel free to spend the next hour starring at the top right corner of your desktop panel admiring your new clock. At least you will know how much time is passing...") + handlebuy("Terminal Scrollbar - 20 CP", ShiftOSDesktop.boughtterminalscrollbar, "Well, Isn't this heaven! The terminal will now display a scroll bar when windowed! It may not seem like much but it will certainly help if you need to backtrack on previous output in the terminal." & Environment.NewLine & Environment.NewLine & "Please note that the scrollbar will only appear when the terminal is windowed and can't display all text at once.") + handlebuy("KI Addons - 15 CP", ShiftOSDesktop.boughtkiaddons, "Fantastic! Knowledge input can now be expanded with Add-ons. If you ever run out of Fruits, Countries or Animals to guess you will be able to buy more lists in the Shiftorium." & Environment.NewLine & Environment.NewLine & "Be careful not to spend all your codepoints on lists you can't guess otherwise you will be losing rather than earning codepoints!") + handlebuy("KI Car Brands - 10 CP", ShiftOSDesktop.boughtkicarbrands, "Now that you have added a list of car brands/companies to Knowledge Input open it now and start guessing as many car brands as you can think of!" & Environment.NewLine & Environment.NewLine & "If you are playing on a tablet computer take a walk down the road looking at the backs or fronts of cars for their names/brands.") + handlebuy("KI Game Consoles - 10 CP", ShiftOSDesktop.boughtkigameconsoles, "Now that you have added a list of video game consoles to Knowledge Input open it now and start guessing as many game consoles as you can think of!" & Environment.NewLine & Environment.NewLine & "If you are playing on a tablet computer take a walk down to the shops and see what consoles you can find there.") + handlebuy("Gray Shades - 40 CP", ShiftOSDesktop.boughtgray2, "Now with a more lively, illuminated light gray and a more dramatic dim gray your interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "To use these new shades of gray just open the shifter and click on a colour customization box. Once the colour picker appears you will see these new shades of gray ready to be used wherever you want.") + handlebuy("Full Gray Shade Set - 60 CP", ShiftOSDesktop.boughtgray3, "Now with the complete gray shade set you can greatly alter the appearance of your ShiftOS desktop." & Environment.NewLine & Environment.NewLine & "It appears that there is a pattern with these different shades of gray. The higher the numeric RGB value is the lighter the shade is. Further research may allow us to make our own custom shades of gray.") + handlebuy("Custom Gray Shades - 100 CP", ShiftOSDesktop.boughtgray4, "It appears black has an RGB value of 0 and white has an RGB value of 255. Values between 0 – 255 are different shades of gray from 0 being the darkest to 255 being the lightest." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of gray in the colour picker by typing in a custom value and then right clicking any colour box in the gray shades area.") + handlebuy("Purple - 20 CP", ShiftOSDesktop.boughtpurple, "Purple is an interesting colour as it is a mix of the warmest red colour and coolest blue colour. Now that you have it you are free to use it throughout ShiftOS." & Environment.NewLine & Environment.NewLine & "Once we have discovered all the basic colours we may be able to use our knowledge to create more shades of the colours we have.") + handlebuy("Purple Shades - 40 CP", ShiftOSDesktop.boughtpurple2, "Now with a darker purple and lighter purple shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Purple Shade Set - 60 CP", ShiftOSDesktop.boughtpurple3, "Now with the complete purple shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this purple set we are very close to discovering how to make our own custom shades of purple.") + handlebuy("Custom Purple Shades - 100 CP", ShiftOSDesktop.boughtpurple4, "To make a purple shade with the RGB colour system Blue must have the highest value followed by red. Green must then have the lowest value." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of purple in the colour picker by typing in custom values that follow the purple rules.") + handlebuy("Blue - 20 CP", ShiftOSDesktop.boughtblue, "Blue is a vital part of the RGB colour system and now that we can use it we should be able to create Purple if we mix it with red." & Environment.NewLine & Environment.NewLine & "With all 3 RGB colours we may be able to start creating different shades of various other colours.") + handlebuy("Blue Shades - 40 CP", ShiftOSDesktop.boughtblue2, "Now with a darker blue and lighter blue shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Blue Shade Set - 60 CP", ShiftOSDesktop.boughtblue3, "Now with the complete blue shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this blue set we are very close to discovering how to make our own custom shades of blue.") + handlebuy("Custom Blue Shades - 100 CP", ShiftOSDesktop.boughtblue4, "To make a Blue shade with the RGB colour system blue must have the highest value followed by red. Green must then have the lowest value." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of blue in the colour picker by typing in custom values that follow the blue rules.") + handlebuy("Green - 20 CP", ShiftOSDesktop.boughtgreen, "Green is a vital part of the RGB colour system and now that we can use it we should be able to create yellow and orange if we mix it with red." & Environment.NewLine & Environment.NewLine & "With all 3 RGB colours we may be able to start creating different shades of various other colours.") + handlebuy("Green Shades - 40 CP", ShiftOSDesktop.boughtgreen2, "Now with a darker green and lighter green shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Green Shade Set - 60 CP", ShiftOSDesktop.boughtgreen3, "Now with the complete green shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this green set we are very close to discovering how to make our own custom shades of green.") + handlebuy("Custom Green Shades - 100 CP", ShiftOSDesktop.boughtgreen4, "To make a green shade with the RGB colour system green must have the highest value. Red and Blue need to have values within 150 of each other." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of green in the colour picker by typing in custom values that follow the green rules.") + handlebuy("Yellow - 20 CP", ShiftOSDesktop.boughtyellow, "Yellow is a great colour to have up on your screen to improve your concentration and make you more alert. Now that you have it you are free to use it throughout ShiftOS." & Environment.NewLine & Environment.NewLine & "Once we have discovered all the basic colours we may be able to use our knowledge to create more shades of the colours we have.") + handlebuy("Yellow Shades - 40 CP", ShiftOSDesktop.boughtyellow2, "Now with a darker yellow and lighter yellow shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Yellow Shade Set - 60 CP", ShiftOSDesktop.boughtyellow3, "Now with the complete yellow shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this yellow set we are very close to discovering how to make our own custom shades of yellow.") + handlebuy("Custom Yellow Shades - 100 CP", ShiftOSDesktop.boughtyellow4, "To make a yellow shade with the RGB colour system red must have the highest value and be over 180. Green must be within 30 values of red. Blue must be the lowest value." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of yellow in the colour picker by typing in custom values that follow the yellow rules.") + handlebuy("Orange - 20 CP", ShiftOSDesktop.boughtorange, "Orange is apparently a color that can increase the desire for humans to eat food. Now that you have it you are free to eat, er… use it throughout ShiftOS." & Environment.NewLine & Environment.NewLine & "Once we have discovered all the basic colours we may be able to use our knowledge to create more shades of the colours we have.") + handlebuy("Orange Shades - 40 CP", ShiftOSDesktop.boughtorange2, "Now with a darker orange and lighter orange shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Orange Shade Set - 60 CP", ShiftOSDesktop.boughtorange3, "Now with the complete orange shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this orange set we are very close to discovering how to make our own custom shades of orange.") + handlebuy("Custom Orange Shades - 100 CP", ShiftOSDesktop.boughtorange4, "To make an orange shade with the RGB colour system red must have a value of 255. Green must be 100 or more values less than red. Blue must be 30 or more values less than green." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of orange in the colour picker by typing in custom values that follow the orange rules.") + handlebuy("Brown - 20 CP", ShiftOSDesktop.boughtbrown, "People who like brown are usually conventional, orderly and sometimes lazy and repressed. Use it in ShiftOS if you must..." & Environment.NewLine & Environment.NewLine & "Once we have discovered all the basic colours we may be able to use our knowledge to create more shades of the colours we have.") + handlebuy("Brown Shades - 40 CP", ShiftOSDesktop.boughtbrown2, "Now with a darker brown and lighter brown shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Brown Shade Set - 60 CP", ShiftOSDesktop.boughtbrown3, "Now with the complete brown shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this brown set we are very close to discovering how to make our own custom shades of brown.") + handlebuy("Custom Brown Shades - 100 CP", ShiftOSDesktop.boughtbrown4, "To make a brown shade with the RGB colour system red must have the highest value. Green must be 30 - 128 values lower than red. Blue must be 60 or more values less than green." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of brown in the colour picker by typing in custom values that follow the brown rules.") + handlebuy("Red - 20 CP", ShiftOSDesktop.boughtred, "Red is a vital part of the RGB colour system and now that we can use it we may be able to create Purple if we mix it with Blue. If we mix it with Green we may be able to create yellow and orange." & Environment.NewLine & Environment.NewLine & "With all 3 RGB colours we may be able to start creating different shades of various other colours.") + handlebuy("Red Shades - 40 CP", ShiftOSDesktop.boughtred2, "Now with a darker red and lighter red shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Red Shade Set - 60 CP", ShiftOSDesktop.boughtred3, "Now with the complete red shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this red set we are very close to discovering how to make our own custom shades of red.") + handlebuy("Custom Red Shades - 100 CP", ShiftOSDesktop.boughtred4, "To make a red shade with the RGB colour system red must have the highest value. Green and blue must be 80 or more values less than red but within 50 values of each other." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of red in the colour picker by typing in custom values that follow the red rules.") + handlebuy("Pink - 20 CP", ShiftOSDesktop.boughtpink, "Pink is apparently a color that can decrease aggressive behavior. Now that you have it you are free use it throughout ShiftOS if you can handle it ;)" & Environment.NewLine & Environment.NewLine & "Once we have discovered all the basic colours we may be able to use our knowledge to create more shades of the colours we have.") + handlebuy("Pink Shades - 40 CP", ShiftOSDesktop.boughtpink2, "Now with a darker pink and lighter pink shade at your disposal your ShiftOS interface can be designed with more depth and variety." & Environment.NewLine & Environment.NewLine & "Discovering more of these predefined colour shades may allow us to eventually use the RGB colour system to limitlessly create our own custom colours.") + handlebuy("Full Pink Shade Set - 60 CP", ShiftOSDesktop.boughtpink3, "Now with the complete pink shade set you can seriously customize your ShiftOS desktop to your liking." & Environment.NewLine & Environment.NewLine & "With the knowledge of the RGB values of this pink set we are very close to discovering how to make our own custom shades of pink.") + handlebuy("Custom Pink Shades - 100 CP", ShiftOSDesktop.boughtpink4, "To make a pink shade with the RGB colour system red must have the highest value. Blue must be 50 or more values less than red. Green must have the lowest value." & Environment.NewLine & Environment.NewLine & "Now you can make your own shades of pink in the colour picker by typing in custom values that follow the pink rules.") + handlebuy("Basic Custom shade - 50 CP", ShiftOSDesktop.boughtanycolour, "Amazing! The colour picker can now support the ability to make a single shade not linked to any colour rules." & Environment.NewLine & Environment.NewLine & "Due to system limitations though only one custom shade can be stored and that shade must have an RGB value between 100 and 150. Further research may improve this systems compatibility with the RGB colour system.") + handlebuy("General Custom Shades - 100 CP", ShiftOSDesktop.boughtanycolour2, "Fantastic, We are now one step closer to complete control over the RGB colour system without any limitations." & Environment.NewLine & Environment.NewLine & "We can now have up to 4 custom shades not linked to certain colour rules. The custom RGB range has now increased to values between 100 and 200. A little more research will continue to break these limits.") + handlebuy("Advanced Custom Shades - 250 CP", ShiftOSDesktop.boughtanycolour3, "Brilliant! It looks like we are just around the corner from having the full RGB colour system supported natively in ShiftOS." & Environment.NewLine & Environment.NewLine & "You can now have up to 8 custom colours stored in the colour picker but they must have RGB values of 75 to 225.") + handlebuy("Limitless Custom Shades - 500 CP", ShiftOSDesktop.boughtanycolour4, "This is EPIC! ShiftOS now supports the ability to display 16,777,216 shades of colour. Yes many of them may look the same but now you can have them all!" & Environment.NewLine & Environment.NewLine & "You can now have a full set of 16 stored colours in the colour picker set to any RGB values between 0 and 255. This native RGB support opens up a lot of cross compatibility opportunities in the future.") + handlebuy("Shifter - 40 CP", ShiftOSDesktop.boughtshifter, "Fantastic! The Shifter can now be opened by typing 'open shifter' in the terminal. In its current state the shifter is simply a basic layout that has no UI Shifting functionality." & Environment.NewLine & Environment.NewLine & "With further research we may be able to add some functionally to it allowing the user to modify the sizes and colours of various UI elements.") + handlebuy("AL Shifter - 20 CP", ShiftOSDesktop.boughtalshifter, "Your App Launcher is now more complete and will allow you to launch the shifter at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("Roll Up Command - 10 CP", ShiftOSDesktop.boughtrollupcommand, "Great! You can now roll windows up to their title bar whenever you want simply by bringing up the terminal and typing 'roll' followed by the program you want to roll up." & Environment.NewLine & Environment.NewLine & "Typing 'roll shiftorium' will roll the shiftorium application up to its title bar while keeping all its data stored safely. Typing the command again will roll the shiftorium back down.") + handlebuy("Roll Up Button - 45 CP", ShiftOSDesktop.boughtrollupbutton, "Now isn’t this nice? All your windows now have a black square button on them that will roll windows up and down if you click on it." & Environment.NewLine & Environment.NewLine & "It functions well but if I were you I would attempt to alter its appearance or change its colour so you can better distinguish it from any other buttons you may or may not have.") + handlebuy("Shift Desktop - 20 CP", ShiftOSDesktop.boughtshiftdesktop, "Brilliant! The Shifter can change your desktop background colour but unfortunately you only use the colours 'Black', 'Gray' and 'White'." & Environment.NewLine & Environment.NewLine & "Further research may allow us to decipher the mysterious colour code allowing us to use more colours throughout ShiftOS with the Colour Picker application.") + handlebuy("Shift Panel Clock - 20 CP", ShiftOSDesktop.boughtshiftpanelclock, "You can now click on the Panel clock option within the main desktop options to modify various features of the desktop panel clock such as the text size, font and colour." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Shift App Launcher - 20 CP", ShiftOSDesktop.boughtshiftapplauncher, "You can now click on the App Launcher option within the main desktop options to modify various features of the App Launcher such as its name, font and colour." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Shift Desktop Panel - 20 CP", ShiftOSDesktop.boughtshiftdesktoppanel, "You can now click on the Desktop Panel option within the main desktop options to modify various features of the desktop panel such as the position, colour and height." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Shift Title Bar - 20 CP", ShiftOSDesktop.boughtshifttitlebar, "You can now click on the Title Bar option within the Windows options to modify various features of the Title Bar such as the colour and height." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Shift Title Text - 20 CP", ShiftOSDesktop.boughtshifttitletext, "You can now click on the Title Text option within the Windows options to modify various features of the Title Text such as the text size, font and colour." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Shift Title Buttons - 20 CP", ShiftOSDesktop.boughtshifttitlebuttons, "You can now click on the Buttons option within the Windows options to modify various features of the Title Buttons such as their colour and size." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Shift Borders - 20 CP", ShiftOSDesktop.boughtshiftborders, "You can now click on the Borders option within the Windows options to modify various features of the Window Borders such as the colour and size." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + handlebuy("Pong - 70 CP", ShiftOSDesktop.boughtpong, "Now, finally time to have a bit of fun! It’s you vs the computer in this mouse controlled game of pong. Simply move your paddle on the left up and down to prevent the ball going past it." & Environment.NewLine & Environment.NewLine & "The longer you survive the faster the ball will get. Survive a minute to make it to the next level. The higher the level you make it to the more codepoints you will earn.") + handlebuy("Knowledge Input Icon - 15 CP", ShiftOSDesktop.boughtknowledgeinputicon, "Fantastic! We now have an icon for knowledge input that will appear on the left side of the knowledge input window. If you have bought an app launcher with knowledge input on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Shifter Icon - 15 CP", ShiftOSDesktop.boughtshiftericon, "Fantastic! We now have an icon for shifter that will appear on the left side of the shifter window. If you have bought an app launcher with shifter on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Shiftorium Icon - 15 CP", ShiftOSDesktop.boughtshiftoriumicon, "Fantastic! We now have an icon for shiftorium that will appear on the left side of the shiftorium window. If you have bought an app launcher with shiftorium on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Clock Icon - 15 CP", ShiftOSDesktop.boughtclockicon, "Fantastic! We now have an icon for clock that will appear on the left side of the clock window. If you have bought an app launcher with clock on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Shutdown Icon - 15 CP", ShiftOSDesktop.boughtshutdownicon, "Fantastic! We now have an icon for shutdown that will appear on the left side of the shutdown window. If you have bought an app launcher with shutdown on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Pong Icon - 15 CP", ShiftOSDesktop.boughtpongicon, "Fantastic! We now have an icon for pong that will appear on the left side of the pong window. If you have bought an app launcher with pong on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Terminal Icon - 15 CP", ShiftOSDesktop.boughtterminalicon, "Fantastic! We now have an icon for terminal that will appear on the left side of the terminal window. If you have bought an app launcher with terminal on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("File Skimmer Icon - 15 CP", ShiftOSDesktop.boughtfileskimmericon, "Fantastic! We now have an icon for file skimmer that will appear on the left side of the file skimmer window. If you have bought an app launcher with file skimmer on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Textpad Icon - 15 CP", ShiftOSDesktop.boughttextpadicon, "Fantastic! We now have an icon for textpad that will appear on the left side of the textpad window. If you have bought an app launcher with textpad on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("AL Pong - 20 CP", ShiftOSDesktop.boughtalpong, "Your App Launcher is now more complete and will allow you to launch Knowledge input at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("AL File Skimmer - 20 CP", ShiftOSDesktop.boughtalfileskimmer, "Your App Launcher is now more complete and will allow you to launch Knowledge input at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("AL Textpad - 20 CP", ShiftOSDesktop.boughtaltextpad, "Your App Launcher is now more complete and will allow you to launch Knowledge input at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("File Skimmer - 60 CP", ShiftOSDesktop.boughtfileskimmer, "With the File Skimmer application you can freely browse through the files stored on your computer as long as they aren’t system files due to the closed source nature of ShiftOS." & Environment.NewLine & Environment.NewLine & "If you had a text or image editing application you could save files onto your storage device and use the file skimmer to load them up whenever you want.") + handlebuy("Textpad - 65 CP", ShiftOSDesktop.boughttextpad, "Now whenever you need to remember something or you just feel like writing stuff down you are free to open the Textpad application and type away." & Environment.NewLine & Environment.NewLine & "If you have a program that allows you to access and manage the files on your storage device then with further upgrades you may be able to save and load text files.") + handlebuy("Textpad New - 25 CP", ShiftOSDesktop.boughttextpadnew, "Gone are the days you need to backspace your text document until all the text is removed. Gone are the days when you used to have to open and close the textpad every time you wanted to write a new document." & Environment.NewLine & Environment.NewLine & "Click the arrow at the bottom of textpad to display a button that will clear your entire text document the moment you click on it.") + handlebuy("Textpad Save - 25 CP", ShiftOSDesktop.boughttextpadsave, "Now you can save your precious text files onto your storage device knowing that they are totally safe unless you throw your computer out of the window or kick it while its running." & Environment.NewLine & Environment.NewLine & "Click the expander arrow at the bottom of textpad to display the save button. After clicking save simply name your file and it’s yours to keep forever.") + handlebuy("Textpad Open - 25 CP", ShiftOSDesktop.boughttextpadopen, "See, I know you couldn’t resist making it a few seconds quicker to open your text documents. Either that or you think Textpad looks better with more options at the bottom…" & Environment.NewLine & Environment.NewLine & "To open a file click the expander arrow at the bottom of textpad to display the open button. After clicking open select the file that you wish to view.") + handlebuy("FS New Folder - 25 CP", ShiftOSDesktop.boughtfileskimmernewfolder, "Now this is more like it! Let’s say you have a few categories of documents. You can now create folders to store them in within the documents folder. Same goes for whatever other files you can think of." & Environment.NewLine & Environment.NewLine & "Simply open File Skimmer and click on the expander arrow at the bottom of the window to find the new folder button.") + handlebuy("FS Delete - 25 CP", ShiftOSDesktop.boughtfileskimmerdelete, "You now have the power to delete files on your hard drive however proceed with caution because deleting system files will corrupt vital parts of your system causing you to lose your save data." & Environment.NewLine & Environment.NewLine & "At the bottom of the file skimmer click the expander arrow to see delete button. Click a folder or file and then click delete to delete it.") + handlebuy("KI Elements - 10 CP", ShiftOSDesktop.boughtkielements, "Now that you have added a list of elements to Knowledge Input open it and start guessing as many elements as you can think of!" & Environment.NewLine & Environment.NewLine & "If you still have your old highschool notes from science class have a little skim through them and I’m sure you will strike gold.") + handlebuy("Colour Picker Icon - 15 CP", ShiftOSDesktop.boughtcolourpickericon, "Fantastic! We now have an icon for colour picker that will appear on the left side of the Colour Picker window. Since the colour picker isn’t a part of the app launcher the icon won’t appear on the app launcher." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Infobox Icon - 15 CP", ShiftOSDesktop.boughtinfoboxicon, "Fantastic! We now have an icon for the Infobox that will appear on the left side of its window. Since the InfoBox isn’t a part of the app launcher the icon won’t appear on the app launcher." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + 'new + handlebuy("Panel Buttons - 75 CP", ShiftOSDesktop.boughtpanelbuttons, "Great! From now on you can simply look at the panel buttons on your desktop panel to see what programs you have open." & Environment.NewLine & Environment.NewLine & "That’s right, the panel buttons don’t do anything when you click them but maybe they will after a few more upgrades…") + handlebuy("Minimize Command - 20 CP", ShiftOSDesktop.boughtminimizecommand, "Now whenever you have a program open that you wish to hide simply type 'minimize [program name]' and it will be hidden." & Environment.NewLine & Environment.NewLine & "To unhide a program just type the same command again and it will be reappear in the same state you left it in earlier.") + handlebuy("Minimize Button - 50 CP", ShiftOSDesktop.boughtminimizebutton, "Isn’t this nifty! Each window now has its own minimize button in its title bar so hiding windows is a breeze." & Environment.NewLine & Environment.NewLine & "Unfortunately to you will still need to use the terminal to make windows reappear but maybe another upgrade could provide an alternative.") + handlebuy("Useful Panel Buttons - 40 CP", ShiftOSDesktop.boughtusefulpanelbuttons, "Finally the panel buttons have a purpose. You can now click on them to unminimize minimized programs." & Environment.NewLine & Environment.NewLine & "Simply click on the panel button labeled with the program you want to unminimize and it will reappear before your eyes.") + handlebuy("Artpad - 75 CP", ShiftOSDesktop.boughtartpad, "Ah, I knew you were an artist at heart. Get your pixel setter ready and your magnifying glass, you’ll need it to see your 2 pixel masterpiece." & Environment.NewLine & Environment.NewLine & "More tools, more pixels and more colours would be helpful though so be on the lookout for more upgrades.") + handlebuy("Artpad Pixel Limit 4 - 10 CP", ShiftOSDesktop.boughtartpadpixellimit4, "This increased pixel limit has unlocked the ability to make canvases in artpad totaling 4 whole pixels." & Environment.NewLine & Environment.NewLine & "You can make a variety of interesting artworks such as um, a 4 pixel high tower or a 4 pixel tower lying on its side and err, other stuff.") + handlebuy("Artpad Pixel Limit 8 - 20 CP", ShiftOSDesktop.boughtartpadpixellimit8, "Great you can now have canvases with a total of 8 pixels." & Environment.NewLine & Environment.NewLine & "It may not seem like much but… oh I give up, it’s still hopeless. On the bright side you can always buy another upgrade.") + handlebuy("Artpad Pixel Limit 16 - 30 CP", ShiftOSDesktop.boughtartpadpixellimit16, "You’ve just doubled your pixel limit from 8 to 16." & Environment.NewLine & Environment.NewLine & "You can now make a very cramped smiley face without a nose or a quarter of a chess board if you put your mind to it.") + handlebuy("Artpad Pixel Limit 64 - 50 CP", ShiftOSDesktop.boughtartpadpixellimit64, "Finally you are starting to make it into deeper waters." & Environment.NewLine & Environment.NewLine & "I’m not quite sure what I meant by that but if you’re drawing ocean scenes you could make them deeper and if you’re up to it you could draw a full chessboard without and pieces on it.") + handlebuy("Artpad Pixel Limit 256 - 75 CP", ShiftOSDesktop.boughtartpadpixellimit256, "Actually I just realized that with 256 pixels the biggest canvas size you can make is 16 by 16 pixels." & Environment.NewLine & Environment.NewLine & "Still that’s enough pixels to make a picture of a grave yard with gravestones and sad faces right?") + handlebuy("Artpad Pixel Limit 1024 - 100 CP", ShiftOSDesktop.boughtartpadpixellimit1024, "Designing things like UI elements should be a breeze with this limit." & Environment.NewLine & Environment.NewLine & "Many icon designers used to make their icons at a resolution of 32 by 32 pixels so if you want to make those kind of icons then you’re all set.") + handlebuy("Artpad Pixel Limit 4096 - 150 CP", ShiftOSDesktop.boughtartpadpixellimit4096, "Finally we are nearing the point where you are able to draw freely at a zoom level of 1x." & Environment.NewLine & Environment.NewLine & "Overall though 4096 pixels is still not good for large free hand sketch-like drawings.") + handlebuy("Artpad Pixel Limit 16384 - 200 CP", ShiftOSDesktop.boughtartpadpixellimit16384, "Awesome! Now you can try and do some free hand drawing at 4x magnification with a canvas size of 160 by 100" & Environment.NewLine & Environment.NewLine & "You may even be able to design tiny website banners.") + handlebuy("Artpad Pixel Limit 65536 - 250 CP", ShiftOSDesktop.boughtartpadpixellimit65536, "Go ahead and celebrate your seemingly limitless pixel limit for a moment and don’t look at the upgrade list." & Environment.NewLine & Environment.NewLine & "You couldn’t resist looking and making this upgrade seem so small could you? That’s right, you’re an upgrade away from truly limitless pixels.") + handlebuy("Artpad Limitless Pixels - 350 CP", ShiftOSDesktop.boughtartpadlimitlesspixels, "Congratulations you now have absolutely no pixel limit and can create canvases as big as you want as long as your own computer can handle it." & Environment.NewLine & Environment.NewLine & "Go ahead and make yourself a native resolution desktop background to celebrate!") + handlebuy("Artpad New - 10 CP", ShiftOSDesktop.boughtartpadnew, "Much better. A new button that looks like a folded page should now be in your tool set." & Environment.NewLine & Environment.NewLine & "By clicking the button you should be able create a new canvas and even type in a new size for it as many times as you like without opening and closing Artpad.") + handlebuy("Artpad Save - 50 CP", ShiftOSDesktop.boughtartpadsave, "Now with your new saving ability you can save all those amazing artpad creations to be viewed at any point in the future" & Environment.NewLine & Environment.NewLine & "Every time you save a picture the amount of codepoints you earned for making it will appear briefly as title text or in an info box.") + handlebuy("Artpad Load - 50 CP", ShiftOSDesktop.boughtartpadload, "You should now be able to load old .pic files by clicking the load button in your tool box and choosing the file you want with the file opener" & Environment.NewLine & Environment.NewLine & "The image will then pop up in artpad and you can get right to editing.") + handlebuy("Artpad Undo - 40 CP", ShiftOSDesktop.boughtartpadundo, "From now on a line draw too long or the wrong splash of colour can’t hurt you anymore." & Environment.NewLine & Environment.NewLine & "An undo button has been added to your toolbox and any time you make a mistake on your canvas you can fix it with a single click of that button.") + handlebuy("Artpad Redo - 40 CP", ShiftOSDesktop.boughtartpadredo, "Now that you can redo any undone actions you are totally free to cycle forwards and backwards through your work." & Environment.NewLine & Environment.NewLine & "If you really wanted you could undo all your work then keep clicking redo to watch the creation of your entire picture.") + handlebuy("Artpad Pixel Placer - 20 CP", ShiftOSDesktop.boughtartpadpixelplacer, "Now with the new Pixel Placer you have the power to simply click any pixel to change its colour." & Environment.NewLine & Environment.NewLine & "Simply left click a colour pallet then click any pixel on your canvas to set it to that colour. You can also right click your colour pallets to change their colour.") + handlebuy("Artpad PP Movement Mode - 20 CP", ShiftOSDesktop.boughtartpadpixelplacermovementmode, "The Pixel Placer now has a movement mode option. Simply Click the Pixel Placer tool and you will see the Movement Mode Switch in the options panel." & Environment.NewLine & Environment.NewLine & "When movement mode is on you can click and drag slowly to draw pixels with the mouse. Be slow otherwise it may skip pixels though.") + handlebuy("Artpad Pencil - 30 CP", ShiftOSDesktop.boughtartpadpencil, "Fantastic! You now have a new pencil tool which you can access from the toolbox." & Environment.NewLine & Environment.NewLine & "You can now draw as fast as you want freehand and it won’t skip a single pixel. You can also draw with three different levels of thickness which can be set in the pencil’s option panel.") + handlebuy("Artpad Paint Brush - 30 CP", ShiftOSDesktop.boughtartpadpaintbrush, "You now have access to the paintbrush tool which you can use simply by clicking on its icon in the tool box." & Environment.NewLine & Environment.NewLine & "A good thing about the paint brush is that you can set its size to a specific value in pixels making it perfect for a variety of different situations.") + handlebuy("Artpad Line Tool - 30 CP", ShiftOSDesktop.boughtartpadlinetool, "Great! You got a line tool. You can begin using it by selecting the tool from your toolbox." & Environment.NewLine & Environment.NewLine & "Simply click and drag on your canvas to draw a horizontal, vertical or diagonal line on your canvas.") + handlebuy("Artpad Oval Tool - 40 CP", ShiftOSDesktop.boughtartpadovaltool, "The new oval tool now allows you to draw circles and ovals with the mouse just by clicking and dragging on the canvas." & Environment.NewLine & Environment.NewLine & "You can also change the inside and outside colour of the ovals and change their border width in the options panel.") + handlebuy("Artpad Rectangle Tool - 40 CP", ShiftOSDesktop.boughtartpadrectangletool, "The new rectangle tool now allows you to draw squares and rectangles with the mouse just by clicking and dragging on the canvas." & Environment.NewLine & Environment.NewLine & "You can also change the inside and outside colour of the rectangles and change their border width in the options panel.") + handlebuy("Artpad Eraser - 20 CP", ShiftOSDesktop.boughtartpaderaser, "Your toolbox now has a new addition to it, An Eraser!" & Environment.NewLine & Environment.NewLine & "The eraser tool can be circular or square and any size you want. Clicking and dragging on the canvas will remove any colour on it and replace it with the default canvas colour which in most cases will be white.") + handlebuy("Artpad Fill Tool - 60 CP", ShiftOSDesktop.boughtartpadfilltool, "Fantastic! You now have a new fill tool which you can access from the toolbox." & Environment.NewLine & Environment.NewLine & "To use the fill tool you simply have to click it, choose a colour then click a pixel on the canvas and it and every surrounding pixel matching its colour will become the new colour you set.") + handlebuy("Artpad Text Tool - 45 CP", ShiftOSDesktop.boughtartpadtexttool, "A text tool is now sitting in your toolbox waiting patiently for you to use it." & Environment.NewLine & Environment.NewLine & "Simply choose a font, colour and size then type something in and click and drag the mouse to move the text around on the canvas until you are happy with its position. Once you’re done release the mouse and the text will be placed in the spot you chose.") + handlebuy("Artpad 4 Color Pallets - 10 CP", ShiftOSDesktop.boughtartpad4colorpallets, "Two new black colour pallets are available for you to use in the artpad." & Environment.NewLine & Environment.NewLine & "If you would like to change the colour of any of the colour pallets you can do so by right clicking them and then selecting a colour you would like to be from the colour picker.") + handlebuy("Artpad 8 Color Pallets - 20 CP", ShiftOSDesktop.boughtartpad8colorpallets, "Four new black colour pallets are available for you to use in the artpad." & Environment.NewLine & Environment.NewLine & "If you would like to change the colour of any of the colour pallets you can do so by right clicking them and then selecting a colour you would like to be from the colour picker.") + handlebuy("Artpad 16 Color Pallets - 35 CP", ShiftOSDesktop.boughtartpad16colorpallets, "Eight new black colour pallets are available for you to use in the artpad." & Environment.NewLine & Environment.NewLine & "If you would like to change the colour of any of the colour pallets you can do so by right clicking them and then selecting a colour you would like to be from the colour picker.") + handlebuy("Artpad 32 Color Pallets - 50 CP", ShiftOSDesktop.boughtartpad32colorpallets, "Sixteen new black colour pallets are available for you to use in the artpad." & Environment.NewLine & Environment.NewLine & "If you would like to change the colour of any of the colour pallets you can do so by right clicking them and then selecting a colour you would like to be from the colour picker.") + handlebuy("Artpad 64 Color Pallets - 100 CP", ShiftOSDesktop.boughtartpad64colorpallets, "Thirty Two new black colour pallets are available for you to use in the artpad." & Environment.NewLine & Environment.NewLine & "If you would like to change the colour of any of the colour pallets you can do so by right clicking them and then selecting a colour you would like to be from the colour picker.") + handlebuy("Artpad 128 Color Pallets - 150 CP", ShiftOSDesktop.boughtartpad128colorpallets, "Sixty Four new black colour pallets are available for you to use in the artpad." & Environment.NewLine & Environment.NewLine & "If you would like to change the colour of any of the colour pallets you can do so by right clicking them and then selecting a colour you would like to be from the colour picker.") + handlebuy("Artpad Custom Pallets - 75 CP", ShiftOSDesktop.boughtartpadcustompallets, "Nice! The colour pallets are now able to be resized any time you like and you can even adjust the spaces between pallets." & Environment.NewLine & Environment.NewLine & "To resize the colour pallets simply middle click any of them and a special settings window will pop up.") + handlebuy("Skinning - 80 CP", ShiftOSDesktop.boughtskinning, "Brilliant! A skinning system is now in place. You now have a new graphic picker and skin loader at your disposal." & Environment.NewLine & Environment.NewLine & "Right click colour boxes in the Shifter to bring up the graphic picker instead of the colour picker.") + handlebuy("Unity Mode - 1000 CP", ShiftOSDesktop.boughtunitymode, "Amazing! A new mode called ‘unity mode’ can be turned on and off in the terminal by typing ‘unity mode on’ or ‘unity mode off’." & Environment.NewLine & Environment.NewLine & "With unity mode on you should be able to run ShiftOS applications and Windows applications side by side.") + handlebuy("AL Artpad - 20 CP", ShiftOSDesktop.boughtalartpad, "Your App Launcher is now more complete and will allow you to launch artpad at any time you like." & Environment.NewLine & Environment.NewLine & "Be sure to buy tweaks to add all your installed programs to the app launcher so you never have to use the terminal to open up a program ever again!") + handlebuy("Artpad Icon - 15 CP", ShiftOSDesktop.boughtartpadicon, "Fantastic! We now have an icon for artpad that will appear on the left side of the artpad window. If you have bought an app launcher with clock on it then an icon will appear there as well." & Environment.NewLine & Environment.NewLine & "The occasional icon here and there looks a little out of place though so be sure to buy more icons for the other programs!") + handlebuy("Shift Panel Buttons - 20 CP", ShiftOSDesktop.boughtshiftpanelbuttons, "You can now click on the Panel Buttons option within the desktop panel options to modify various features of the panel buttons such as the text size, font and colour." & Environment.NewLine & Environment.NewLine & "Modifying these various settings will earn you codepoints. The longer spend tinkering with the options the more codepoints you will earn when you click 'Apply Changes.") + + handleupgradelist() + End If + End Sub + + Private Sub handleupgradelist() + lbupgrades.Items.Clear() + lbcodepoints.Text = "Codepoints: " & ShiftOSDesktop.codepoints + If ShiftOSDesktop.boughtgray = False Then lbupgrades.Items.Add("Gray - 20 CP") + If ShiftOSDesktop.boughtsecondspastmidnight = False Then lbupgrades.Items.Add("Seconds Since Midnight - 10 CP") + If ShiftOSDesktop.boughtcustomusername = False Then lbupgrades.Items.Add("Custom Username - 15 CP") + If ShiftOSDesktop.boughtwindowsanywhere = False Then lbupgrades.Items.Add("Windows Anywhere - 25 CP") + If ShiftOSDesktop.boughtmultitasking = False Then lbupgrades.Items.Add("Multitasking - 50 CP") + If ShiftOSDesktop.boughtautoscrollterminal = False Then lbupgrades.Items.Add("Auto Scroll Terminal - 5 CP") + If ShiftOSDesktop.boughtkiaddons = False Then lbupgrades.Items.Add("KI Addons - 15 CP") + If ShiftOSDesktop.boughtpong = False Then lbupgrades.Items.Add("Pong - 70 CP") + If ShiftOSDesktop.boughtfileskimmer = False Then lbupgrades.Items.Add("File Skimmer - 60 CP") + If ShiftOSDesktop.boughttextpad = False Then lbupgrades.Items.Add("Textpad - 65 CP") + + If ShiftOSDesktop.boughttextpad = True Then + If ShiftOSDesktop.boughttextpadnew = False Then lbupgrades.Items.Add("Textpad New - 25 CP") + If ShiftOSDesktop.boughtfileskimmer = True Then + If ShiftOSDesktop.boughttextpadsave = False Then lbupgrades.Items.Add("Textpad Save - 25 CP") + If ShiftOSDesktop.boughttextpadopen = False Then lbupgrades.Items.Add("Textpad Open - 25 CP") + End If + End If + + If ShiftOSDesktop.boughtfileskimmer = True Then + If ShiftOSDesktop.boughtfileskimmernewfolder = False Then lbupgrades.Items.Add("FS New Folder - 25 CP") + If ShiftOSDesktop.boughtfileskimmerdelete = False Then lbupgrades.Items.Add("FS Delete - 25 CP") + End If + + If ShiftOSDesktop.boughtkiaddons = True Then + If ShiftOSDesktop.boughtkicarbrands = False Then lbupgrades.Items.Add("KI Car Brands - 10 CP") + If ShiftOSDesktop.boughtkigameconsoles = False Then lbupgrades.Items.Add("KI Game Consoles - 10 CP") + If ShiftOSDesktop.boughtkielements = False Then lbupgrades.Items.Add("KI Elements - 10 CP") + End If + + If ShiftOSDesktop.boughtmultitasking = True Then + If ShiftOSDesktop.boughtwindowedterminal = False Then lbupgrades.Items.Add("Windowed Terminal - 45 CP") + If ShiftOSDesktop.boughtwindowedterminal = True Then + If ShiftOSDesktop.boughtterminalscrollbar = False Then lbupgrades.Items.Add("Terminal Scrollbar - 20 CP") + End If + End If + + If ShiftOSDesktop.boughtgray = True Then + If ShiftOSDesktop.boughtshifter = False Then lbupgrades.Items.Add("Shifter - 40 CP") + If ShiftOSDesktop.boughtshifter = True Then + If ShiftOSDesktop.boughtshiftdesktop = False Then lbupgrades.Items.Add("Shift Desktop - 20 CP") + If ShiftOSDesktop.boughtshiftdesktop = True Then + If ShiftOSDesktop.boughtdesktoppanelclock = True Then + If ShiftOSDesktop.boughtshiftpanelclock = False Then lbupgrades.Items.Add("Shift Panel Clock - 20 CP") + End If + If ShiftOSDesktop.boughtapplaunchermenu = True Then + If ShiftOSDesktop.boughtshiftapplauncher = False Then lbupgrades.Items.Add("Shift App Launcher - 20 CP") + End If + If ShiftOSDesktop.boughtdesktoppanel = True Then + If ShiftOSDesktop.boughtshiftdesktoppanel = False Then lbupgrades.Items.Add("Shift Desktop Panel - 20 CP") + End If + If ShiftOSDesktop.boughttitlebar = True Then + If ShiftOSDesktop.boughtshifttitlebar = False Then lbupgrades.Items.Add("Shift Title Bar - 20 CP") + End If + If ShiftOSDesktop.boughttitletext = True Then + If ShiftOSDesktop.boughtshifttitletext = False Then lbupgrades.Items.Add("Shift Title Text - 20 CP") + End If + If ShiftOSDesktop.boughtclosebutton = True OrElse ShiftOSDesktop.boughtrollupbutton = True Then + If ShiftOSDesktop.boughtshifttitlebuttons = False Then lbupgrades.Items.Add("Shift Title Buttons - 20 CP") + End If + If ShiftOSDesktop.boughtwindowborders = True Then + If ShiftOSDesktop.boughtshiftborders = False Then lbupgrades.Items.Add("Shift Borders - 20 CP") + End If + End If + End If + If ShiftOSDesktop.boughttitlebar = False Then lbupgrades.Items.Add("Title Bar - 80 CP") + If ShiftOSDesktop.boughtdesktoppanel = False Then lbupgrades.Items.Add("Desktop Panel - 150 CP") + If ShiftOSDesktop.boughtwindowborders = False Then lbupgrades.Items.Add("Window Borders - 40 CP") + If ShiftOSDesktop.boughtshiftdesktop = True Then + If ShiftOSDesktop.boughtgray2 = False Then lbupgrades.Items.Add("Gray Shades - 40 CP") + End If + If ShiftOSDesktop.boughtgray2 = True Then + If ShiftOSDesktop.boughtgray3 = False Then lbupgrades.Items.Add("Full Gray Shade Set - 60 CP") + If ShiftOSDesktop.boughtgray3 = True Then + If ShiftOSDesktop.boughtgray4 = False Then lbupgrades.Items.Add("Custom Gray Shades - 100 CP") + End If + End If + End If + + If ShiftOSDesktop.boughtgray4 = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpurple = False Then lbupgrades.Items.Add("Purple - 20 CP") + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtpurple2 = False Then lbupgrades.Items.Add("Purple Shades - 40 CP") + If ShiftOSDesktop.boughtpurple2 = True Then + If ShiftOSDesktop.boughtpurple3 = False Then lbupgrades.Items.Add("Full Purple Shade Set - 60 CP") + If ShiftOSDesktop.boughtpurple3 = True Then + If ShiftOSDesktop.boughtpurple4 = False Then lbupgrades.Items.Add("Custom Purple Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtblue = False Then lbupgrades.Items.Add("Blue - 20 CP") + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtblue2 = False Then lbupgrades.Items.Add("Blue Shades - 40 CP") + If ShiftOSDesktop.boughtblue2 = True Then + If ShiftOSDesktop.boughtblue3 = False Then lbupgrades.Items.Add("Full Blue Shade Set - 60 CP") + If ShiftOSDesktop.boughtblue3 = True Then + If ShiftOSDesktop.boughtblue4 = False Then lbupgrades.Items.Add("Custom Blue Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + + If ShiftOSDesktop.boughtgreen = False Then lbupgrades.Items.Add("Green - 20 CP") + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtgreen2 = False Then lbupgrades.Items.Add("Green Shades - 40 CP") + If ShiftOSDesktop.boughtgreen2 = True Then + If ShiftOSDesktop.boughtgreen3 = False Then lbupgrades.Items.Add("Full Green Shade Set - 60 CP") + If ShiftOSDesktop.boughtgreen3 = True Then + If ShiftOSDesktop.boughtgreen4 = False Then lbupgrades.Items.Add("Custom Green Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtyellow = False Then lbupgrades.Items.Add("Yellow - 20 CP") + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtyellow2 = False Then lbupgrades.Items.Add("Yellow Shades - 40 CP") + If ShiftOSDesktop.boughtyellow2 = True Then + If ShiftOSDesktop.boughtyellow3 = False Then lbupgrades.Items.Add("Full Yellow Shade Set - 60 CP") + If ShiftOSDesktop.boughtyellow3 = True Then + If ShiftOSDesktop.boughtyellow4 = False Then lbupgrades.Items.Add("Custom Yellow Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtorange = False Then lbupgrades.Items.Add("Orange - 20 CP") + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtorange2 = False Then lbupgrades.Items.Add("Orange Shades - 40 CP") + If ShiftOSDesktop.boughtorange2 = True Then + If ShiftOSDesktop.boughtorange3 = False Then lbupgrades.Items.Add("Full Orange Shade Set - 60 CP") + If ShiftOSDesktop.boughtorange3 = True Then + If ShiftOSDesktop.boughtorange4 = False Then lbupgrades.Items.Add("Custom Orange Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtbrown = False Then lbupgrades.Items.Add("Brown - 20 CP") + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtbrown2 = False Then lbupgrades.Items.Add("Brown Shades - 40 CP") + If ShiftOSDesktop.boughtbrown2 = True Then + If ShiftOSDesktop.boughtbrown3 = False Then lbupgrades.Items.Add("Full Brown Shade Set - 60 CP") + If ShiftOSDesktop.boughtbrown3 = True Then + If ShiftOSDesktop.boughtbrown4 = False Then lbupgrades.Items.Add("Custom Brown Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtred = False Then lbupgrades.Items.Add("Red - 20 CP") + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtred2 = False Then lbupgrades.Items.Add("Red Shades - 40 CP") + If ShiftOSDesktop.boughtred2 = True Then + If ShiftOSDesktop.boughtred3 = False Then lbupgrades.Items.Add("Full Red Shade Set - 60 CP") + If ShiftOSDesktop.boughtred3 = True Then + If ShiftOSDesktop.boughtred4 = False Then lbupgrades.Items.Add("Custom Red Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtpink = False Then lbupgrades.Items.Add("Pink - 20 CP") + If ShiftOSDesktop.boughtpurple = True Then + If ShiftOSDesktop.boughtblue = True Then + If ShiftOSDesktop.boughtgreen = True Then + If ShiftOSDesktop.boughtyellow = True Then + If ShiftOSDesktop.boughtorange = True Then + If ShiftOSDesktop.boughtbrown = True Then + If ShiftOSDesktop.boughtred = True Then + If ShiftOSDesktop.boughtpink = True Then + If ShiftOSDesktop.boughtpink2 = False Then lbupgrades.Items.Add("Pink Shades - 40 CP") + If ShiftOSDesktop.boughtpink2 = True Then + If ShiftOSDesktop.boughtpink3 = False Then lbupgrades.Items.Add("Full Pink Shade Set - 60 CP") + If ShiftOSDesktop.boughtpink3 = True Then + If ShiftOSDesktop.boughtpink4 = False Then lbupgrades.Items.Add("Custom Pink Shades - 100 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtpurple4 = True Then + If ShiftOSDesktop.boughtblue4 = True Then + If ShiftOSDesktop.boughtgreen4 = True Then + If ShiftOSDesktop.boughtyellow4 = True Then + If ShiftOSDesktop.boughtorange4 = True Then + If ShiftOSDesktop.boughtbrown4 = True Then + If ShiftOSDesktop.boughtred4 = True Then + If ShiftOSDesktop.boughtpink4 = True Then + If ShiftOSDesktop.boughtanycolour = False Then lbupgrades.Items.Add("Basic Custom shade - 50 CP") + If ShiftOSDesktop.boughtanycolour = True Then + If ShiftOSDesktop.boughtanycolour2 = False Then lbupgrades.Items.Add("General Custom Shades - 100 CP") + If ShiftOSDesktop.boughtanycolour2 = True Then + If ShiftOSDesktop.boughtanycolour3 = False Then lbupgrades.Items.Add("Advanced Custom Shades - 250 CP") + If ShiftOSDesktop.boughtanycolour3 = True Then + If ShiftOSDesktop.boughtanycolour4 = False Then lbupgrades.Items.Add("Limitless Custom Shades - 500 CP") + If ShiftOSDesktop.boughtanycolour4 = True Then + If ShiftOSDesktop.boughtunitymode = False Then lbupgrades.Items.Add("Unity Mode - 1000 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + + + If ShiftOSDesktop.boughtdesktoppanel = True Then + If ShiftOSDesktop.boughtapplaunchermenu = False Then lbupgrades.Items.Add("App Launcher Menu - 120 CP") + If ShiftOSDesktop.boughtsecondspastmidnight = True Then + If ShiftOSDesktop.boughtdesktoppanelclock = False Then lbupgrades.Items.Add("Desktop Panel Clock - 75 CP") + End If + If ShiftOSDesktop.boughtpanelbuttons = False Then lbupgrades.Items.Add("Panel Buttons - 75 CP") + If ShiftOSDesktop.boughtpanelbuttons = True Then + If ShiftOSDesktop.boughtusefulpanelbuttons = False Then lbupgrades.Items.Add("Useful Panel Buttons - 40 CP") + If ShiftOSDesktop.boughtshiftpanelbuttons = False Then lbupgrades.Items.Add("Shift Panel Buttons - 20 CP") + End If + End If + + If ShiftOSDesktop.boughtapplaunchermenu = True Then + If ShiftOSDesktop.boughtalknowledgeinput = False Then lbupgrades.Items.Add("AL Knowledge Input - 20 CP") + If ShiftOSDesktop.boughtclock = True Then + If ShiftOSDesktop.boughtalclock = False Then lbupgrades.Items.Add("AL Clock - 20 CP") + End If + If ShiftOSDesktop.boughtpong = True Then + If ShiftOSDesktop.boughtalpong = False Then lbupgrades.Items.Add("AL Pong - 20 CP") + End If + If ShiftOSDesktop.boughtfileskimmer = True Then + If ShiftOSDesktop.boughtalfileskimmer = False Then lbupgrades.Items.Add("AL File Skimmer - 20 CP") + End If + If ShiftOSDesktop.boughttextpad = True Then + If ShiftOSDesktop.boughtaltextpad = False Then lbupgrades.Items.Add("AL Textpad - 20 CP") + End If + If ShiftOSDesktop.boughtartpad = True Then + If ShiftOSDesktop.boughtalartpad = False Then lbupgrades.Items.Add("AL Artpad - 20 CP") + End If + If ShiftOSDesktop.boughtshifter = True Then + If ShiftOSDesktop.boughtalshifter = False Then lbupgrades.Items.Add("AL Shifter - 20 CP") + End If + If ShiftOSDesktop.boughtalshiftorium = False Then lbupgrades.Items.Add("AL Shiftorium - 20 CP") + If ShiftOSDesktop.boughtapplaunchershutdown = False Then lbupgrades.Items.Add("App Launcher Shutdown - 40 CP") + End If + + If ShiftOSDesktop.boughtsecondspastmidnight = True Then + If ShiftOSDesktop.boughtclock = False Then lbupgrades.Items.Add("Clock - 50 CP") + If ShiftOSDesktop.boughtminutespastmidnight = False Then lbupgrades.Items.Add("Minutes Since Midnight - 20 CP") + If ShiftOSDesktop.boughtminutespastmidnight = True Then + If ShiftOSDesktop.boughthourspastmidnight = False Then lbupgrades.Items.Add("Hours Since Midnight - 40 CP") + If ShiftOSDesktop.boughthourspastmidnight = True Then + If ShiftOSDesktop.boughtpmandam = False Then lbupgrades.Items.Add("PM and AM - 60 CP") + If ShiftOSDesktop.boughtpmandam = True Then + If ShiftOSDesktop.boughtminuteaccuracytime = False Then lbupgrades.Items.Add("Minute Accuracy Time - 80 CP") + If ShiftOSDesktop.boughtminuteaccuracytime = True Then + If ShiftOSDesktop.boughtsplitsecondtime = False Then lbupgrades.Items.Add("Split Second Time - 100 CP") + End If + End If + End If + End If + End If + + If ShiftOSDesktop.boughtwindowsanywhere = True Then + If ShiftOSDesktop.boughtmovablewindows = False Then lbupgrades.Items.Add("Movable Windows - 75 CP") + End If + + If ShiftOSDesktop.boughttitlebar = True Then + If ShiftOSDesktop.boughttitletext = False Then lbupgrades.Items.Add("Title Text - 40 CP") + If ShiftOSDesktop.boughtclosebutton = False Then lbupgrades.Items.Add("Close Button - 90 CP") + If ShiftOSDesktop.boughtrollupcommand = False Then lbupgrades.Items.Add("Roll Up Command - 10 CP") + If ShiftOSDesktop.boughtrollupcommand = True Then + If ShiftOSDesktop.boughtrollupbutton = False Then lbupgrades.Items.Add("Roll Up Button - 45 CP") + If ShiftOSDesktop.boughtminimizecommand = False Then lbupgrades.Items.Add("Minimize Command - 20 CP") + If ShiftOSDesktop.boughtminimizecommand = True Then + If ShiftOSDesktop.boughtminimizebutton = False Then lbupgrades.Items.Add("Minimize Button - 50 CP") + End If + End If + If ShiftOSDesktop.boughtmovablewindows = True Then + If ShiftOSDesktop.boughtdraggablewindows = False Then lbupgrades.Items.Add("Draggable Windows - 150 CP") + End If + End If + + If ShiftOSDesktop.boughttitletext = True Then + If ShiftOSDesktop.boughtknowledgeinputicon = False Then lbupgrades.Items.Add("Knowledge Input Icon - 15 CP") + If ShiftOSDesktop.boughtknowledgeinputicon = True Then + If ShiftOSDesktop.boughtshiftoriumicon = False Then lbupgrades.Items.Add("Shiftorium Icon - 15 CP") + If ShiftOSDesktop.boughtterminalicon = False Then lbupgrades.Items.Add("Terminal Icon - 15 CP") + If ShiftOSDesktop.boughtshifter = True Then + If ShiftOSDesktop.boughtshiftericon = False Then lbupgrades.Items.Add("Shifter Icon - 15 CP") + If ShiftOSDesktop.boughtinfoboxicon = False Then lbupgrades.Items.Add("Infobox Icon - 15 CP") + If ShiftOSDesktop.boughtcolourpickericon = False Then lbupgrades.Items.Add("Colour Picker Icon - 15 CP") + End If + If ShiftOSDesktop.boughtclock = True Then + If ShiftOSDesktop.boughtclockicon = False Then lbupgrades.Items.Add("Clock Icon - 15 CP") + End If + If ShiftOSDesktop.boughtapplaunchershutdown = True Then + If ShiftOSDesktop.boughtshutdownicon = False Then lbupgrades.Items.Add("Shutdown Icon - 15 CP") + End If + If ShiftOSDesktop.boughtpong = True Then + If ShiftOSDesktop.boughtpongicon = False Then lbupgrades.Items.Add("Pong Icon - 15 CP") + End If + If ShiftOSDesktop.boughttextpad = True Then + If ShiftOSDesktop.boughttextpadicon = False Then lbupgrades.Items.Add("Textpad Icon - 15 CP") + End If + If ShiftOSDesktop.boughtfileskimmer = True Then + If ShiftOSDesktop.boughtfileskimmericon = False Then lbupgrades.Items.Add("File Skimmer Icon - 15 CP") + End If + If ShiftOSDesktop.boughtartpad = True Then + If ShiftOSDesktop.boughtartpadicon = False Then lbupgrades.Items.Add("Artpad Icon - 15 CP") + End If + End If + End If + + If ShiftOSDesktop.boughtgray = True Then + If ShiftOSDesktop.boughtartpad = False Then lbupgrades.Items.Add("Artpad - 75 CP") + If ShiftOSDesktop.boughtartpad = True Then + If ShiftOSDesktop.boughtartpadnew = False Then lbupgrades.Items.Add("Artpad New - 10 CP") + If ShiftOSDesktop.boughtartpadpixelplacer = False Then lbupgrades.Items.Add("Artpad Pixel Placer - 20 CP") + If ShiftOSDesktop.boughtartpadpixelplacer = True Then + If ShiftOSDesktop.boughtartpadpixelplacermovementmode = False Then lbupgrades.Items.Add("Artpad PP Movement Mode - 20 CP") + If ShiftOSDesktop.boughtartpadpixelplacermovementmode = True Then + If ShiftOSDesktop.boughtartpadpencil = False Then lbupgrades.Items.Add("Artpad Pencil - 30 CP") + If ShiftOSDesktop.boughtartpadpencil = True Then + If ShiftOSDesktop.boughtartpadpaintbrush = False Then lbupgrades.Items.Add("Artpad Paint Brush - 30 CP") + If ShiftOSDesktop.boughtartpadlinetool = False Then lbupgrades.Items.Add("Artpad Line Tool - 30 CP") + If ShiftOSDesktop.boughtartpadovaltool = False Then lbupgrades.Items.Add("Artpad Oval Tool - 40 CP") + If ShiftOSDesktop.boughtartpadrectangletool = False Then lbupgrades.Items.Add("Artpad Rectangle Tool - 40 CP") + If ShiftOSDesktop.boughtartpaderaser = False Then lbupgrades.Items.Add("Artpad Eraser - 20 CP") + If ShiftOSDesktop.boughtartpadfilltool = False Then lbupgrades.Items.Add("Artpad Fill Tool - 60 CP") + If ShiftOSDesktop.boughtartpadtexttool = False Then lbupgrades.Items.Add("Artpad Text Tool - 45 CP") + End If + End If + If ShiftOSDesktop.boughtartpadundo = False Then lbupgrades.Items.Add("Artpad Undo - 40 CP") + If ShiftOSDesktop.boughtartpadundo = True Then + If ShiftOSDesktop.boughtartpadredo = False Then lbupgrades.Items.Add("Artpad Redo - 40 CP") + End If + If ShiftOSDesktop.boughtartpadsave = False Then lbupgrades.Items.Add("Artpad Save - 50 CP") + If ShiftOSDesktop.boughtartpadsave = True Then + If ShiftOSDesktop.boughtartpadload = False Then lbupgrades.Items.Add("Artpad Load - 50 CP") + If ShiftOSDesktop.boughtskinning = False Then lbupgrades.Items.Add("Skinning - 80 CP") + End If + End If + If ShiftOSDesktop.boughtartpadpixellimit4 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 4 - 10 CP") + If ShiftOSDesktop.boughtartpadpixellimit4 = True Then + If ShiftOSDesktop.boughtartpadpixellimit8 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 8 - 20 CP") + If ShiftOSDesktop.boughtartpadpixellimit8 = True Then + If ShiftOSDesktop.boughtartpadpixellimit16 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 16 - 30 CP") + If ShiftOSDesktop.boughtartpadpixellimit16 = True Then + If ShiftOSDesktop.boughtartpadpixellimit64 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 64 - 50 CP") + If ShiftOSDesktop.boughtartpadpixellimit64 = True Then + If ShiftOSDesktop.boughtartpadpixellimit256 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 256 - 75 CP") + If ShiftOSDesktop.boughtartpadpixellimit256 = True Then + If ShiftOSDesktop.boughtartpadpixellimit1024 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 1024 - 100 CP") + If ShiftOSDesktop.boughtartpadpixellimit1024 = True Then + If ShiftOSDesktop.boughtartpadpixellimit4096 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 4096 - 150 CP") + If ShiftOSDesktop.boughtartpadpixellimit4096 = True Then + If ShiftOSDesktop.boughtartpadpixellimit16384 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 16384 - 200 CP") + If ShiftOSDesktop.boughtartpadpixellimit16384 = True Then + If ShiftOSDesktop.boughtartpadpixellimit65536 = False Then lbupgrades.Items.Add("Artpad Pixel Limit 65536 - 250 CP") + If ShiftOSDesktop.boughtartpadpixellimit65536 = True Then + If ShiftOSDesktop.boughtartpadlimitlesspixels = False Then lbupgrades.Items.Add("Artpad Limitless Pixels - 350 CP") + End If + End If + End If + End If + End If + End If + End If + End If + End If + + + If ShiftOSDesktop.boughtartpad4colorpallets = False Then lbupgrades.Items.Add("Artpad 4 Color Pallets - 10 CP") + If ShiftOSDesktop.boughtartpad4colorpallets = True Then + If ShiftOSDesktop.boughtartpad8colorpallets = False Then lbupgrades.Items.Add("Artpad 8 Color Pallets - 20 CP") + If ShiftOSDesktop.boughtartpad8colorpallets = True Then + If ShiftOSDesktop.boughtartpad16colorpallets = False Then lbupgrades.Items.Add("Artpad 16 Color Pallets - 35 CP") + If ShiftOSDesktop.boughtartpad16colorpallets = True Then + If ShiftOSDesktop.boughtartpad32colorpallets = False Then lbupgrades.Items.Add("Artpad 32 Color Pallets - 50 CP") + If ShiftOSDesktop.boughtartpad32colorpallets = True Then + If ShiftOSDesktop.boughtartpadcustompallets = False Then lbupgrades.Items.Add("Artpad Custom Pallets - 75 CP") + If ShiftOSDesktop.boughtartpad64colorpallets = False Then lbupgrades.Items.Add("Artpad 64 Color Pallets - 100 CP") + If ShiftOSDesktop.boughtartpad64colorpallets = True Then + If ShiftOSDesktop.boughtartpad128colorpallets = False Then lbupgrades.Items.Add("Artpad 128 Color Pallets - 150 CP") + End If + + End If + End If + End If + End If + End If + End If + + lbupgrades.Sorted = True + End Sub + + Private Sub handlebuy(ByVal name As String, ByRef bought As Boolean, ByVal boughttutorial As String) + + On Error Resume Next + If lbupgrades.SelectedItem.ToString = name Then + If btnbuy.Text = "Buy" Then + pricegrab = lbprice.Text.Substring(0, lbprice.Text.Length - 3) + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints - Convert.ToInt32(pricegrab) + bought = True + lbupgradename.Font = New Font("teen", 13, FontStyle.Bold) + lbupgradename.Text = "Purchased " & lbupgrades.SelectedItem.ToString.Substring(0, lbupgrades.SelectedItem.ToString.IndexOf("-")) + lbudescription.Text = boughttutorial + lbudescription.Size = New Size(321, 180) + lbudescription.Location = New Point(24, 47) + lbprice.Size = New Size(340, 49) + lbprice.Location = New Point(10, 372) + lbprice.Font = New Font("teen", 16, FontStyle.Bold) + picpreview.Location = New Point(25, 237) + lbprice.Text = "Bought for " & lbprice.Text.Substring(0, lbprice.Text.IndexOf(" ")) & " codepoints" + btnbuy.Hide() + lbupgradename.Location = New Point(5, 10) + checkspecial() + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Used Shiftorium to buy: " & name & Environment.NewLine + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine + End If + End If + End Sub + + Private Sub handleupgradedescription(ByVal itemname As String, ByVal itempic As Image, ByVal itemdescription As String) + On Error Resume Next + If lbupgrades.SelectedItem.ToString = itemname Then + lbupgradename.Font = New Font("teen", 20, FontStyle.Bold) + lbupgradename.Text = lbupgrades.SelectedItem.ToString.Substring(0, lbupgrades.SelectedItem.ToString.IndexOf("-")) + lbudescription.Text = itemdescription + picpreview.Image = itempic + lbprice.Text = lbupgrades.SelectedItem.ToString.Substring(lbupgrades.SelectedItem.ToString.IndexOf("-") + 2, lbupgrades.SelectedItem.ToString.Length - lbupgradename.Text.Length - 2) + lbprice.Size = New Size(139, 59) + lbprice.Location = New Point(3, 362) + lbprice.Font = New Font("teen", 26, FontStyle.Bold) + picpreview.Location = New Point(25, 218) + lbudescription.Location = New Point(24, 61) + lbudescription.Size = New Size(321, 144) + lbupgradename.Location = New Point(5, 17) + btnbuy.Show() + If ShiftOSDesktop.codepoints > Convert.ToInt32(lbprice.Text.Substring(0, lbprice.Text.Length - 3) - 1) Then + btnbuy.Text = "Buy" + Else + btnbuy.Text = "Can't Afford" + End If + End If + End Sub + + Private Sub tmrcodepointsupdate_Tick(sender As Object, e As EventArgs) Handles tmrcodepointsupdate.Tick + lbcodepoints.Text = "Codepoints: " & ShiftOSDesktop.codepoints + End Sub + + Private Sub checkspecial() + If lbupgrades.SelectedItem.ToString = "Title Bar - 80 CP" Then + ShiftOSDesktop.titlebarheight = 30 + ShiftOSDesktop.addtitlebars() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + ShiftOSDesktop.setupdesktop() + End If + If lbupgrades.SelectedItem.ToString = "Window Borders - 40 CP" Then + ShiftOSDesktop.windowbordersize = 2 + ShiftOSDesktop.addborders() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + ShiftOSDesktop.setupdesktop() + End If + If lbupgrades.SelectedItem.ToString = "Title Text - 40 CP" Then + ShiftOSDesktop.setupalltitlebars() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Close Button - 90 CP" Then + ShiftOSDesktop.setupalltitlebars() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Desktop Panel - 150 CP" Then + ShiftOSDesktop.setupdesktop() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "App Launcher Menu - 120 CP" Then + ShiftOSDesktop.setupdesktop() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Desktop Panel Clock - 75 CP" Then + ShiftOSDesktop.setupdesktop() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Skinning - 80 CP" Then + ShiftOSDesktop.setupdesktop() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Panel Buttons - 75 CP" Then + ShiftOSDesktop.setupdesktop() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + Skin_Loader.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Roll Up Button - 45 CP" Then + ShiftOSDesktop.setupalltitlebars() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "Minimize Button - 50 CP" Then + ShiftOSDesktop.setupalltitlebars() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + Skin_Loader.determinevisibleobjects() + End If + If lbupgrades.SelectedItem.ToString = "AL Knowledge Input - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL Clock - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL Shiftorium - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL Shifter - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL Pong - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL File Skimmer - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL Textpad - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "AL Artpad - 20 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "App Launcher Shutdown - 40 CP" Then ShiftOSDesktop.setupdesktop() + If lbupgrades.SelectedItem.ToString = "Windowed Terminal - 45 CP" Then + ShiftOSDesktop.terminalfullscreen = False + Terminal.miniterminal() + End If + If lbupgrades.SelectedItem.ToString = "Terminal Scrollbar - 20 CP" Then + If ShiftOSDesktop.terminalfullscreen = False Then Terminal.txtterm.ScrollBars = ScrollBars.Vertical + End If + + If lbupgrades.SelectedItem.ToString = "KI Car Brands - 10 CP" Then + If System.IO.File.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput/Car Brands.lst") Then + Else + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Car Brands.lst") + fs.Close() + Knowledge_Input.ListBox1.Items.Add("Car Brands") + Knowledge_Input.makecarbrandslist() + End If + End If + If lbupgrades.SelectedItem.ToString = "KI Game Consoles - 10 CP" Then + If System.IO.File.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput/Game Consoles.lst") Then + Else + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Game Consoles.lst") + fs.Close() + Knowledge_Input.ListBox1.Items.Add("Game Consoles") + Knowledge_Input.makegameconsoleslist() + End If + End If + If lbupgrades.SelectedItem.ToString = "KI Elements - 10 CP" Then + If System.IO.File.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput/Elements.lst") Then + Else + fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Elements.lst") + fs.Close() + Knowledge_Input.ListBox1.Items.Add("Elements") + Knowledge_Input.makeelementslist() + End If + End If + If lbupgrades.SelectedItem.ToString = "Knowledge Input Icon - 15 CP" Then + ShiftOSDesktop.titletextside = ShiftOSDesktop.titletextside + 22 + ShiftOSDesktop.setupalltitlebars() + Shifter.setupbuttons() + Shifter.determinevisibleobjects() + ShiftOSDesktop.setupdesktop() + If Knowledge_Input.Visible = True Then Knowledge_Input.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Shifter Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If Shifter.Visible = True Then Shifter.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Shiftorium Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If Me.Visible = True Then Me.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Clock Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If Clock.Visible = True Then Clock.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Shutdown Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + End If + If lbupgrades.SelectedItem.ToString = "Pong Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If Pong.Visible = True Then Pong.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Terminal Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If Terminal.Visible = True Then Terminal.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "File Skimmer Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If File_Skimmer.Visible = True Then File_Skimmer.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Textpad Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If TextPad.Visible = True Then TextPad.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Artpad Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If ArtPad.Visible = True Then ArtPad.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Colour Picker Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If Colour_Picker.Visible = True Then Colour_Picker.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "Infobox Icon - 15 CP" Then + ShiftOSDesktop.setupdesktop() + If infobox.Visible = True Then infobox.pnlicon.Show() + End If + If lbupgrades.SelectedItem.ToString = "FS New Folder - 25 CP" Then + If File_Skimmer.Visible = True Then File_Skimmer.btnnewfolder.Show() + If File_Skimmer.pnlbreak.Visible = False Then File_Skimmer.pnlbreak.Show() + End If + If lbupgrades.SelectedItem.ToString = "FS Delete - 25 CP" Then + If File_Skimmer.Visible = True Then File_Skimmer.btndeletefile.Show() + If File_Skimmer.pnlbreak.Visible = False Then File_Skimmer.pnlbreak.Show() + End If + If lbupgrades.SelectedItem.ToString = "Textpad New - 25 CP" Then + If TextPad.Visible = True Then TextPad.btnnew.Show() + If TextPad.pnlbreak.Visible = False Then TextPad.pnlbreak.Show() + End If + If lbupgrades.SelectedItem.ToString = "Textpad Save - 25 CP" Then + If TextPad.Visible = True Then TextPad.btnsave.Show() + If TextPad.pnlbreak.Visible = False Then TextPad.pnlbreak.Show() + End If + If lbupgrades.SelectedItem.ToString = "Textpad Open - 25 CP" Then + If TextPad.Visible = True Then TextPad.btnopen.Show() + If TextPad.pnlbreak.Visible = False Then TextPad.pnlbreak.Show() + End If + + If lbupgrades.SelectedItem.ToString = "Artpad 4 Color Pallets - 10 CP" Then + ShiftOSDesktop.artpadcolorpalletwidth = 105 + ShiftOSDesktop.artpadcolorpalletheight = 32 + ShiftOSDesktop.artpadcolorpalletsidegap = 4 + ShiftOSDesktop.artpadcolorpallettopgap = 4 + ShiftOSDesktop.artpadvisiblepallets = 4 + ArtPad.determinevisiblepallets() + ArtPad.setuppallets() + End If + If lbupgrades.SelectedItem.ToString = "Artpad 8 Color Pallets - 20 CP" Then + ShiftOSDesktop.artpadcolorpalletwidth = 50 + ShiftOSDesktop.artpadcolorpalletheight = 32 + ShiftOSDesktop.artpadcolorpalletsidegap = 4 + ShiftOSDesktop.artpadcolorpallettopgap = 4 + ShiftOSDesktop.artpadvisiblepallets = 8 + ArtPad.determinevisiblepallets() + ArtPad.setuppallets() + End If + If lbupgrades.SelectedItem.ToString = "Artpad 16 Color Pallets - 35 CP" Then + ShiftOSDesktop.artpadcolorpalletwidth = 50 + ShiftOSDesktop.artpadcolorpalletheight = 14 + ShiftOSDesktop.artpadcolorpalletsidegap = 4 + ShiftOSDesktop.artpadcolorpallettopgap = 4 + ShiftOSDesktop.artpadvisiblepallets = 16 + ArtPad.determinevisiblepallets() + ArtPad.setuppallets() + End If + If lbupgrades.SelectedItem.ToString = "Artpad 32 Color Pallets - 50 CP" Then + ShiftOSDesktop.artpadcolorpalletwidth = 23 + ShiftOSDesktop.artpadcolorpalletheight = 14 + ShiftOSDesktop.artpadcolorpalletsidegap = 4 + ShiftOSDesktop.artpadcolorpallettopgap = 4 + ShiftOSDesktop.artpadvisiblepallets = 32 + ArtPad.determinevisiblepallets() + ArtPad.setuppallets() + End If + If lbupgrades.SelectedItem.ToString = "Artpad 64 Color Pallets - 100 CP" Then + ShiftOSDesktop.artpadcolorpalletwidth = 23 + ShiftOSDesktop.artpadcolorpalletheight = 7 + ShiftOSDesktop.artpadcolorpalletsidegap = 4 + ShiftOSDesktop.artpadcolorpallettopgap = 2 + ShiftOSDesktop.artpadvisiblepallets = 64 + ArtPad.determinevisiblepallets() + ArtPad.setuppallets() + End If + If lbupgrades.SelectedItem.ToString = "Artpad 128 Color Pallets - 150 CP" Then + ShiftOSDesktop.artpadcolorpalletwidth = 12 + ShiftOSDesktop.artpadcolorpalletheight = 8 + ShiftOSDesktop.artpadcolorpalletsidegap = 1 + ShiftOSDesktop.artpadcolorpallettopgap = 1 + ShiftOSDesktop.artpadvisiblepallets = 128 + ArtPad.determinevisiblepallets() + ArtPad.setuppallets() + End If + + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 4 - 10 CP" Then ShiftOSDesktop.artpadpixellimit = 4 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 8 - 20 CP" Then ShiftOSDesktop.artpadpixellimit = 8 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 16 - 30 CP" Then ShiftOSDesktop.artpadpixellimit = 16 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 64 - 50 CP" Then ShiftOSDesktop.artpadpixellimit = 64 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 256 - 75 CP" Then ShiftOSDesktop.artpadpixellimit = 256 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 1024 - 100 CP" Then ShiftOSDesktop.artpadpixellimit = 1024 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 4096 - 150 CP" Then ShiftOSDesktop.artpadpixellimit = 4096 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 16384 - 200 CP" Then ShiftOSDesktop.artpadpixellimit = 16384 + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Limit 65536 - 250 CP" Then ShiftOSDesktop.artpadpixellimit = 65536 + If lbupgrades.SelectedItem.ToString = "Artpad Limitless Pixels - 350 CP" Then ShiftOSDesktop.artpadpixellimit = 1000000 + + If lbupgrades.SelectedItem.ToString = "Artpad New - 10 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Pixel Placer - 20 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad PP Movement Mode - 20 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Pencil - 30 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Paint Brush - 30 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Line Tool - 30 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Oval Tool - 40 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Rectangle Tool - 40 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Eraser - 20 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Fill Tool - 60 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Text Tool - 45 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Undo - 40 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Redo - 40 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Save - 50 CP" Then ArtPad.setuptoolbox() + If lbupgrades.SelectedItem.ToString = "Artpad Load - 50 CP" Then ArtPad.setuptoolbox() + + ShiftOSDesktop.setcolours() + End Sub +End Class \ No newline at end of file diff --git a/Skin Loader.Designer.vb b/Skin Loader.Designer.vb new file mode 100644 index 0000000..5253eba --- /dev/null +++ b/Skin Loader.Designer.vb @@ -0,0 +1,722 @@ + _ +Partial Class Skin_Loader + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.btnapplyskin = New System.Windows.Forms.Button() + Me.btnsaveskin = New System.Windows.Forms.Button() + Me.btnloadskin = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnclose = New System.Windows.Forms.Button() + Me.pnldesktoppreview = New System.Windows.Forms.Panel() + Me.predesktoppanel = New System.Windows.Forms.Panel() + Me.prepnlpanelbuttonholder = New System.Windows.Forms.FlowLayoutPanel() + Me.prepnlpanelbutton = New System.Windows.Forms.Panel() + Me.pretbicon = New System.Windows.Forms.PictureBox() + Me.pretbctext = New System.Windows.Forms.Label() + Me.pretimepanel = New System.Windows.Forms.Panel() + Me.prepaneltimetext = New System.Windows.Forms.Label() + Me.preapplaunchermenuholder = New System.Windows.Forms.Panel() + Me.predesktopappmenu = New System.Windows.Forms.MenuStrip() + Me.ApplicationsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KnowledgeInputToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShiftoriumToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClockToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TerminalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShifterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ShutdownToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnlwindowpreview = New System.Windows.Forms.Panel() + Me.prepgcontent = New System.Windows.Forms.Panel() + Me.prepgbottom = New System.Windows.Forms.Panel() + Me.prepgleft = New System.Windows.Forms.Panel() + Me.prepgbottomlcorner = New System.Windows.Forms.Panel() + Me.prepgright = New System.Windows.Forms.Panel() + Me.prepgbottomrcorner = New System.Windows.Forms.Panel() + Me.pretitlebar = New System.Windows.Forms.Panel() + Me.preminimizebutton = New System.Windows.Forms.Panel() + Me.prepnlicon = New System.Windows.Forms.PictureBox() + Me.prerollupbutton = New System.Windows.Forms.Panel() + Me.preclosebutton = New System.Windows.Forms.Panel() + Me.pretitletext = New System.Windows.Forms.Label() + Me.prepgtoplcorner = New System.Windows.Forms.Panel() + Me.prepgtoprcorner = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pgcontents.SuspendLayout() + Me.pnldesktoppreview.SuspendLayout() + Me.predesktoppanel.SuspendLayout() + Me.prepnlpanelbuttonholder.SuspendLayout() + Me.prepnlpanelbutton.SuspendLayout() + CType(Me.pretbicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pretimepanel.SuspendLayout() + Me.preapplaunchermenuholder.SuspendLayout() + Me.predesktopappmenu.SuspendLayout() + Me.pnlwindowpreview.SuspendLayout() + Me.prepgleft.SuspendLayout() + Me.prepgright.SuspendLayout() + Me.pretitlebar.SuspendLayout() + CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.btnapplyskin) + Me.pgcontents.Controls.Add(Me.btnsaveskin) + Me.pgcontents.Controls.Add(Me.btnloadskin) + Me.pgcontents.Controls.Add(Me.Label2) + Me.pgcontents.Controls.Add(Me.btnclose) + Me.pgcontents.Controls.Add(Me.pnldesktoppreview) + Me.pgcontents.Controls.Add(Me.Label1) + Me.pgcontents.Controls.Add(Me.pnlwindowpreview) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(472, 430) + Me.pgcontents.TabIndex = 20 + ' + 'btnapplyskin + ' + Me.btnapplyskin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnapplyskin.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnapplyskin.Location = New System.Drawing.Point(352, 389) + Me.btnapplyskin.Name = "btnapplyskin" + Me.btnapplyskin.Size = New System.Drawing.Size(107, 32) + Me.btnapplyskin.TabIndex = 9 + Me.btnapplyskin.Text = "Apply Skin" + Me.btnapplyskin.UseVisualStyleBackColor = True + ' + 'btnsaveskin + ' + Me.btnsaveskin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsaveskin.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsaveskin.Location = New System.Drawing.Point(239, 389) + Me.btnsaveskin.Name = "btnsaveskin" + Me.btnsaveskin.Size = New System.Drawing.Size(107, 32) + Me.btnsaveskin.TabIndex = 8 + Me.btnsaveskin.Text = "Save Skin" + Me.btnsaveskin.UseVisualStyleBackColor = True + ' + 'btnloadskin + ' + Me.btnloadskin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnloadskin.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnloadskin.Location = New System.Drawing.Point(126, 389) + Me.btnloadskin.Name = "btnloadskin" + Me.btnloadskin.Size = New System.Drawing.Size(107, 32) + Me.btnloadskin.TabIndex = 7 + Me.btnloadskin.Text = "Load Skin" + Me.btnloadskin.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.Font = New System.Drawing.Font("Century", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(4, 200) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(464, 30) + Me.Label2.TabIndex = 6 + Me.Label2.Text = "Desktop Preview" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnclose + ' + Me.btnclose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnclose.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnclose.Location = New System.Drawing.Point(13, 389) + Me.btnclose.Name = "btnclose" + Me.btnclose.Size = New System.Drawing.Size(107, 32) + Me.btnclose.TabIndex = 5 + Me.btnclose.Text = "Close" + Me.btnclose.UseVisualStyleBackColor = True + ' + 'pnldesktoppreview + ' + Me.pnldesktoppreview.Controls.Add(Me.predesktoppanel) + Me.pnldesktoppreview.Location = New System.Drawing.Point(13, 233) + Me.pnldesktoppreview.Name = "pnldesktoppreview" + Me.pnldesktoppreview.Size = New System.Drawing.Size(448, 148) + Me.pnldesktoppreview.TabIndex = 4 + ' + 'predesktoppanel + ' + Me.predesktoppanel.BackColor = System.Drawing.Color.Gray + Me.predesktoppanel.Controls.Add(Me.prepnlpanelbuttonholder) + Me.predesktoppanel.Controls.Add(Me.pretimepanel) + Me.predesktoppanel.Controls.Add(Me.preapplaunchermenuholder) + Me.predesktoppanel.Dock = System.Windows.Forms.DockStyle.Top + Me.predesktoppanel.Location = New System.Drawing.Point(0, 0) + Me.predesktoppanel.Name = "predesktoppanel" + Me.predesktoppanel.Size = New System.Drawing.Size(448, 25) + Me.predesktoppanel.TabIndex = 1 + ' + 'prepnlpanelbuttonholder + ' + Me.prepnlpanelbuttonholder.BackColor = System.Drawing.Color.Transparent + Me.prepnlpanelbuttonholder.Controls.Add(Me.prepnlpanelbutton) + Me.prepnlpanelbuttonholder.Dock = System.Windows.Forms.DockStyle.Fill + Me.prepnlpanelbuttonholder.Location = New System.Drawing.Point(116, 0) + Me.prepnlpanelbuttonholder.Name = "prepnlpanelbuttonholder" + Me.prepnlpanelbuttonholder.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) + Me.prepnlpanelbuttonholder.Size = New System.Drawing.Size(235, 25) + Me.prepnlpanelbuttonholder.TabIndex = 7 + ' + 'prepnlpanelbutton + ' + Me.prepnlpanelbutton.BackColor = System.Drawing.Color.Black + Me.prepnlpanelbutton.Controls.Add(Me.pretbicon) + Me.prepnlpanelbutton.Controls.Add(Me.pretbctext) + Me.prepnlpanelbutton.Location = New System.Drawing.Point(5, 3) + Me.prepnlpanelbutton.Name = "prepnlpanelbutton" + Me.prepnlpanelbutton.Size = New System.Drawing.Size(126, 20) + Me.prepnlpanelbutton.TabIndex = 18 + Me.prepnlpanelbutton.Visible = False + ' + 'pretbicon + ' + Me.pretbicon.BackColor = System.Drawing.Color.Transparent + Me.pretbicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pretbicon.Image = Global.ShiftOS.My.Resources.Resources.iconShifter + Me.pretbicon.Location = New System.Drawing.Point(4, 2) + Me.pretbicon.Name = "pretbicon" + Me.pretbicon.Size = New System.Drawing.Size(16, 16) + Me.pretbicon.TabIndex = 1 + Me.pretbicon.TabStop = False + ' + 'pretbctext + ' + Me.pretbctext.AutoSize = True + Me.pretbctext.BackColor = System.Drawing.Color.Transparent + Me.pretbctext.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pretbctext.ForeColor = System.Drawing.Color.White + Me.pretbctext.Location = New System.Drawing.Point(24, 2) + Me.pretbctext.Name = "pretbctext" + Me.pretbctext.Size = New System.Drawing.Size(45, 16) + Me.pretbctext.TabIndex = 0 + Me.pretbctext.Text = "Shifter" + ' + 'pretimepanel + ' + Me.pretimepanel.Controls.Add(Me.prepaneltimetext) + Me.pretimepanel.Dock = System.Windows.Forms.DockStyle.Right + Me.pretimepanel.Location = New System.Drawing.Point(351, 0) + Me.pretimepanel.Name = "pretimepanel" + Me.pretimepanel.Size = New System.Drawing.Size(97, 25) + Me.pretimepanel.TabIndex = 5 + ' + 'prepaneltimetext + ' + Me.prepaneltimetext.AutoSize = True + Me.prepaneltimetext.BackColor = System.Drawing.Color.Transparent + Me.prepaneltimetext.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.prepaneltimetext.Location = New System.Drawing.Point(5, 0) + Me.prepaneltimetext.Name = "prepaneltimetext" + Me.prepaneltimetext.Size = New System.Drawing.Size(80, 24) + Me.prepaneltimetext.TabIndex = 1 + Me.prepaneltimetext.Text = "5000023" + Me.prepaneltimetext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'preapplaunchermenuholder + ' + Me.preapplaunchermenuholder.Controls.Add(Me.predesktopappmenu) + Me.preapplaunchermenuholder.Dock = System.Windows.Forms.DockStyle.Left + Me.preapplaunchermenuholder.Location = New System.Drawing.Point(0, 0) + Me.preapplaunchermenuholder.Name = "preapplaunchermenuholder" + Me.preapplaunchermenuholder.Size = New System.Drawing.Size(116, 25) + Me.preapplaunchermenuholder.TabIndex = 4 + ' + 'predesktopappmenu + ' + Me.predesktopappmenu.AutoSize = False + Me.predesktopappmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplicationsToolStripMenuItem}) + Me.predesktopappmenu.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow + Me.predesktopappmenu.Location = New System.Drawing.Point(0, 0) + Me.predesktopappmenu.Name = "predesktopappmenu" + Me.predesktopappmenu.Padding = New System.Windows.Forms.Padding(0) + Me.predesktopappmenu.Size = New System.Drawing.Size(116, 24) + Me.predesktopappmenu.TabIndex = 0 + Me.predesktopappmenu.Text = "MenuStrip1" + ' + 'ApplicationsToolStripMenuItem + ' + Me.ApplicationsToolStripMenuItem.AutoSize = False + Me.ApplicationsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KnowledgeInputToolStripMenuItem, Me.ShiftoriumToolStripMenuItem, Me.ClockToolStripMenuItem, Me.TerminalToolStripMenuItem, Me.ShifterToolStripMenuItem, Me.ToolStripSeparator1, Me.ShutdownToolStripMenuItem}) + Me.ApplicationsToolStripMenuItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.749999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem" + Me.ApplicationsToolStripMenuItem.Padding = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.ApplicationsToolStripMenuItem.ShowShortcutKeys = False + Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(102, 24) + Me.ApplicationsToolStripMenuItem.Text = "Applications" + Me.ApplicationsToolStripMenuItem.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal + Me.ApplicationsToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage + ' + 'KnowledgeInputToolStripMenuItem + ' + Me.KnowledgeInputToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.KnowledgeInputToolStripMenuItem.Name = "KnowledgeInputToolStripMenuItem" + Me.KnowledgeInputToolStripMenuItem.ShowShortcutKeys = False + Me.KnowledgeInputToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.KnowledgeInputToolStripMenuItem.Text = "Knowledge Input" + ' + 'ShiftoriumToolStripMenuItem + ' + Me.ShiftoriumToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShiftoriumToolStripMenuItem.Name = "ShiftoriumToolStripMenuItem" + Me.ShiftoriumToolStripMenuItem.ShowShortcutKeys = False + Me.ShiftoriumToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShiftoriumToolStripMenuItem.Text = "Shiftorium" + ' + 'ClockToolStripMenuItem + ' + Me.ClockToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ClockToolStripMenuItem.Name = "ClockToolStripMenuItem" + Me.ClockToolStripMenuItem.ShowShortcutKeys = False + Me.ClockToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ClockToolStripMenuItem.Text = "Clock" + ' + 'TerminalToolStripMenuItem + ' + Me.TerminalToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.TerminalToolStripMenuItem.Name = "TerminalToolStripMenuItem" + Me.TerminalToolStripMenuItem.ShowShortcutKeys = False + Me.TerminalToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.TerminalToolStripMenuItem.Text = "Terminal" + ' + 'ShifterToolStripMenuItem + ' + Me.ShifterToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem" + Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShifterToolStripMenuItem.Text = "Shifter" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.BackColor = System.Drawing.Color.Transparent + Me.ToolStripSeparator1.ForeColor = System.Drawing.Color.White + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6) + ' + 'ShutdownToolStripMenuItem + ' + Me.ShutdownToolStripMenuItem.BackColor = System.Drawing.Color.Transparent + Me.ShutdownToolStripMenuItem.Name = "ShutdownToolStripMenuItem" + Me.ShutdownToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.ShutdownToolStripMenuItem.Text = "Shut Down" + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Century", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(4, 6) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(464, 30) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Window Preview" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnlwindowpreview + ' + Me.pnlwindowpreview.Controls.Add(Me.prepgcontent) + Me.pnlwindowpreview.Controls.Add(Me.prepgbottom) + Me.pnlwindowpreview.Controls.Add(Me.prepgleft) + Me.pnlwindowpreview.Controls.Add(Me.prepgright) + Me.pnlwindowpreview.Controls.Add(Me.pretitlebar) + Me.pnlwindowpreview.Location = New System.Drawing.Point(13, 39) + Me.pnlwindowpreview.Name = "pnlwindowpreview" + Me.pnlwindowpreview.Size = New System.Drawing.Size(448, 148) + Me.pnlwindowpreview.TabIndex = 1 + ' + 'prepgcontent + ' + Me.prepgcontent.Dock = System.Windows.Forms.DockStyle.Fill + Me.prepgcontent.Location = New System.Drawing.Point(2, 30) + Me.prepgcontent.Name = "prepgcontent" + Me.prepgcontent.Size = New System.Drawing.Size(444, 116) + Me.prepgcontent.TabIndex = 20 + ' + 'prepgbottom + ' + Me.prepgbottom.BackColor = System.Drawing.Color.Gray + Me.prepgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prepgbottom.Location = New System.Drawing.Point(2, 146) + Me.prepgbottom.Name = "prepgbottom" + Me.prepgbottom.Size = New System.Drawing.Size(444, 2) + Me.prepgbottom.TabIndex = 23 + ' + 'prepgleft + ' + Me.prepgleft.BackColor = System.Drawing.Color.Gray + Me.prepgleft.Controls.Add(Me.prepgbottomlcorner) + Me.prepgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.prepgleft.Location = New System.Drawing.Point(0, 30) + Me.prepgleft.Name = "prepgleft" + Me.prepgleft.Size = New System.Drawing.Size(2, 118) + Me.prepgleft.TabIndex = 21 + ' + 'prepgbottomlcorner + ' + Me.prepgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.prepgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prepgbottomlcorner.Location = New System.Drawing.Point(0, 116) + Me.prepgbottomlcorner.Name = "prepgbottomlcorner" + Me.prepgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.prepgbottomlcorner.TabIndex = 14 + ' + 'prepgright + ' + Me.prepgright.BackColor = System.Drawing.Color.Gray + Me.prepgright.Controls.Add(Me.prepgbottomrcorner) + Me.prepgright.Dock = System.Windows.Forms.DockStyle.Right + Me.prepgright.Location = New System.Drawing.Point(446, 30) + Me.prepgright.Name = "prepgright" + Me.prepgright.Size = New System.Drawing.Size(2, 118) + Me.prepgright.TabIndex = 22 + ' + 'prepgbottomrcorner + ' + Me.prepgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.prepgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prepgbottomrcorner.Location = New System.Drawing.Point(0, 116) + Me.prepgbottomrcorner.Name = "prepgbottomrcorner" + Me.prepgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.prepgbottomrcorner.TabIndex = 15 + ' + 'pretitlebar + ' + Me.pretitlebar.BackColor = System.Drawing.Color.Gray + Me.pretitlebar.Controls.Add(Me.preminimizebutton) + Me.pretitlebar.Controls.Add(Me.prepnlicon) + Me.pretitlebar.Controls.Add(Me.prerollupbutton) + Me.pretitlebar.Controls.Add(Me.preclosebutton) + Me.pretitlebar.Controls.Add(Me.pretitletext) + Me.pretitlebar.Controls.Add(Me.prepgtoplcorner) + Me.pretitlebar.Controls.Add(Me.prepgtoprcorner) + Me.pretitlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.pretitlebar.ForeColor = System.Drawing.Color.White + Me.pretitlebar.Location = New System.Drawing.Point(0, 0) + Me.pretitlebar.Name = "pretitlebar" + Me.pretitlebar.Size = New System.Drawing.Size(448, 30) + Me.pretitlebar.TabIndex = 19 + ' + 'preminimizebutton + ' + Me.preminimizebutton.BackColor = System.Drawing.Color.Black + Me.preminimizebutton.Location = New System.Drawing.Point(362, 5) + Me.preminimizebutton.Name = "preminimizebutton" + Me.preminimizebutton.Size = New System.Drawing.Size(22, 22) + Me.preminimizebutton.TabIndex = 32 + ' + 'prepnlicon + ' + Me.prepnlicon.BackColor = System.Drawing.Color.Transparent + Me.prepnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconSkinLoader + Me.prepnlicon.Location = New System.Drawing.Point(8, 8) + Me.prepnlicon.Name = "prepnlicon" + Me.prepnlicon.Size = New System.Drawing.Size(16, 16) + Me.prepnlicon.TabIndex = 32 + Me.prepnlicon.TabStop = False + Me.prepnlicon.Visible = False + ' + 'prerollupbutton + ' + Me.prerollupbutton.BackColor = System.Drawing.Color.Black + Me.prerollupbutton.Location = New System.Drawing.Point(390, 5) + Me.prerollupbutton.Name = "prerollupbutton" + Me.prerollupbutton.Size = New System.Drawing.Size(22, 22) + Me.prerollupbutton.TabIndex = 31 + ' + 'preclosebutton + ' + Me.preclosebutton.BackColor = System.Drawing.Color.Black + Me.preclosebutton.Location = New System.Drawing.Point(419, 5) + Me.preclosebutton.Name = "preclosebutton" + Me.preclosebutton.Size = New System.Drawing.Size(22, 22) + Me.preclosebutton.TabIndex = 20 + ' + 'pretitletext + ' + Me.pretitletext.AutoSize = True + Me.pretitletext.BackColor = System.Drawing.Color.Transparent + Me.pretitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pretitletext.Location = New System.Drawing.Point(29, 7) + Me.pretitletext.Name = "pretitletext" + Me.pretitletext.Size = New System.Drawing.Size(89, 18) + Me.pretitletext.TabIndex = 19 + Me.pretitletext.Text = "Template" + ' + 'prepgtoplcorner + ' + Me.prepgtoplcorner.BackColor = System.Drawing.Color.Red + Me.prepgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.prepgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.prepgtoplcorner.Name = "prepgtoplcorner" + Me.prepgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.prepgtoplcorner.TabIndex = 17 + ' + 'prepgtoprcorner + ' + Me.prepgtoprcorner.BackColor = System.Drawing.Color.Red + Me.prepgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.prepgtoprcorner.Location = New System.Drawing.Point(446, 0) + Me.prepgtoprcorner.Name = "prepgtoprcorner" + Me.prepgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.prepgtoprcorner.TabIndex = 16 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 432) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 430) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(474, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 432) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 430) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(476, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(391, 2) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconSkinLoader + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(419, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(447, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(121, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Skin Loader" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(474, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 460) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(472, 2) + Me.pgbottom.TabIndex = 23 + ' + 'Skin_Loader + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(476, 462) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Skin_Loader" + Me.Text = "Skin_Loader" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pnldesktoppreview.ResumeLayout(False) + Me.predesktoppanel.ResumeLayout(False) + Me.prepnlpanelbuttonholder.ResumeLayout(False) + Me.prepnlpanelbutton.ResumeLayout(False) + Me.prepnlpanelbutton.PerformLayout() + CType(Me.pretbicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pretimepanel.ResumeLayout(False) + Me.pretimepanel.PerformLayout() + Me.preapplaunchermenuholder.ResumeLayout(False) + Me.predesktopappmenu.ResumeLayout(False) + Me.predesktopappmenu.PerformLayout() + Me.pnlwindowpreview.ResumeLayout(False) + Me.prepgleft.ResumeLayout(False) + Me.prepgright.ResumeLayout(False) + Me.pretitlebar.ResumeLayout(False) + Me.pretitlebar.PerformLayout() + CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents pnlwindowpreview As System.Windows.Forms.Panel + Friend WithEvents prepgcontent As System.Windows.Forms.Panel + Friend WithEvents prepgbottom As System.Windows.Forms.Panel + Friend WithEvents prepgleft As System.Windows.Forms.Panel + Friend WithEvents prepgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents prepgright As System.Windows.Forms.Panel + Friend WithEvents prepgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pretitlebar As System.Windows.Forms.Panel + Friend WithEvents prepnlicon As System.Windows.Forms.PictureBox + Friend WithEvents prerollupbutton As System.Windows.Forms.Panel + Friend WithEvents preclosebutton As System.Windows.Forms.Panel + Friend WithEvents pretitletext As System.Windows.Forms.Label + Friend WithEvents prepgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents prepgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents btnapplyskin As System.Windows.Forms.Button + Friend WithEvents btnsaveskin As System.Windows.Forms.Button + Friend WithEvents btnloadskin As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents btnclose As System.Windows.Forms.Button + Friend WithEvents pnldesktoppreview As System.Windows.Forms.Panel + Friend WithEvents predesktoppanel As System.Windows.Forms.Panel + Friend WithEvents pretimepanel As System.Windows.Forms.Panel + Friend WithEvents prepaneltimetext As System.Windows.Forms.Label + Friend WithEvents preapplaunchermenuholder As System.Windows.Forms.Panel + Friend WithEvents predesktopappmenu As System.Windows.Forms.MenuStrip + Friend WithEvents ApplicationsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KnowledgeInputToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShiftoriumToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ClockToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TerminalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShifterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ShutdownToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents preminimizebutton As System.Windows.Forms.Panel + Friend WithEvents prepnlpanelbuttonholder As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents prepnlpanelbutton As System.Windows.Forms.Panel + Friend WithEvents pretbicon As System.Windows.Forms.PictureBox + Friend WithEvents pretbctext As System.Windows.Forms.Label +End Class diff --git a/Skin Loader.resx b/Skin Loader.resx new file mode 100644 index 0000000..d6335c3 --- /dev/null +++ b/Skin Loader.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Skin Loader.vb b/Skin Loader.vb new file mode 100644 index 0000000..e287a6b --- /dev/null +++ b/Skin Loader.vb @@ -0,0 +1,1019 @@ +Public Class Skin_Loader + Public rolldownsize As Integer + Public oldbordersize As Integer + Public oldtitlebarheight As Integer + Public justopened As Boolean = False + Public needtorollback As Boolean = False + Public minimumsizewidth As Integer = 0 + Public minimumsizeheight As Integer = 0 + + Public skinloaded As Boolean = False + + Public savelines(200) As String + Public loadlines(200) As String + + Public titlebarcolour As Color + Public windowbordercolour As Color + Public windowbordersize As Integer + Public titlebarheight As Integer + Public closebuttoncolour As Color + Public closebuttonheight As Integer + Public closebuttonwidth As Integer + Public closebuttonside As Integer + Public closebuttontop As Integer + Public titletextcolour As Color + Public titletexttop As Integer + Public titletextside As Integer + Public titletextsize As Integer + Public titletextfont As String + Public titletextstyle As FontStyle + Public desktoppanelcolour As Color + Public desktopbackgroundcolour As Color + Public desktoppanelheight As Integer + Public desktoppanelposition As String + Public clocktextcolour As Color + Public clockbackgroundcolor As Color + Public panelclocktexttop As Integer + Public panelclocktextsize As Integer + Public panelclocktextfont As String + Public panelclocktextstyle As FontStyle + Public applauncherbuttoncolour As Color + Public applauncherbuttonclickedcolour As Color + Public applauncherbackgroundcolour As Color + Public applaunchermouseovercolour As Color + Public applicationsbuttontextcolour As Color + Public applicationbuttonheight As Integer + Public applicationbuttontextsize As Integer + Public applicationbuttontextfont As String + Public applicationbuttontextstyle As FontStyle + Public applicationlaunchername As String + Public titletextposition As String + Public rollupbuttoncolour As Color + Public rollupbuttonheight As Integer + Public rollupbuttonwidth As Integer + Public rollupbuttonside As Integer + Public rollupbuttontop As Integer + Public titlebariconside As Integer + Public titlebaricontop As Integer + Public showwindowcorners As Boolean + Public titlebarcornerwidth As Integer + Public titlebarrightcornercolour As Color + Public titlebarleftcornercolour As Color + Public applaunchermenuholderwidth As Integer + Public windowborderleftcolour As Color + Public windowborderrightcolour As Color + Public windowborderbottomcolour As Color + Public windowborderbottomrightcolour As Color + Public windowborderbottomleftcolour As Color + Public panelbuttonicontop As Integer + Public panelbuttoniconside As Integer + Public panelbuttoniconsize As Integer + Public panelbuttonheight As Integer + Public panelbuttonwidth As Integer + Public panelbuttoncolour As Color + Public panelbuttontextcolour As Color + Public panelbuttontextsize As Integer + Public panelbuttontextfont As String + Public panelbuttontextstyle As FontStyle + Public panelbuttontextside As Integer + Public panelbuttontexttop As Integer + Public panelbuttongap As Integer + Public panelbuttonfromtop As Integer + Public panelbuttoninitialgap As Integer + Public minimizebuttoncolour As Color + Public minimizebuttonheight As Integer + Public minimizebuttonwidth As Integer + Public minimizebuttonside As Integer + Public minimizebuttontop As Integer + + 'skins + Public skinloaderskinimages(100) As String + Public skinloaderskinclosebutton(2) As Image + Public skinclosebuttonstyle As ImageLayout + Public skinloaderskintitlebar(2) As Image + Public skintitlebarstyle As ImageLayout + Public skinloaderskindesktopbackground(2) As Image + Public skindesktopbackgroundstyle As ImageLayout + Public skinloaderskinrollupbutton(2) As Image + Public skinrollupbuttonstyle As ImageLayout + Public skinloaderskintitlebarrightcorner(2) As Image + Public skintitlebarrightcornerstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskintitlebarleftcorner(2) As Image + Public skintitlebarleftcornerstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskindesktoppanel(2) As Image + Public skindesktoppanelstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskindesktoppaneltime(2) As Image + Public skindesktoppaneltimestyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinapplauncherbutton(2) As Image + Public skinapplauncherbuttonstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinwindowborderleft(2) As Image + Public skinwindowborderleftstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinwindowborderright(2) As Image + Public skinwindowborderrightstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinwindowborderbottom(2) As Image + Public skinwindowborderbottomstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinwindowborderbottomright(2) As Image + Public skinwindowborderbottomrightstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinwindowborderbottomleft(2) As Image + Public skinwindowborderbottomleftstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinpanelbutton(2) As Image + Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch + Public skinloaderskinminimizebutton(2) As Image + Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch + + Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load + justopened = True + setuptitlebar() + setupborders() + ShiftOSDesktop.setcolours() + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + determinevisibleobjects() + setskin() + + ShiftOSDesktop.pnlpanelbuttonskinloader.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonskinloader, ShiftOSDesktop.tbskinloadericon, ShiftOSDesktop.tbskinloadertext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + initialsetup() + setpreviewtocurrentskin() + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'Make terminal appear + If e.KeyCode = Keys.T AndAlso e.Control Then + Terminal.Show() + Terminal.Visible = True + Terminal.BringToFront() + End If + + 'Movable Windows + If ShiftOSDesktop.boughtmovablewindows = True Then + If e.KeyCode = Keys.A AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y) + End If + If e.KeyCode = Keys.D AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y) + End If + If e.KeyCode = Keys.W AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber) + End If + If e.KeyCode = Keys.S AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber) + End If + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine + End If + End Sub + + Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown + ' Handle Draggable Windows + If ShiftOSDesktop.boughtdraggablewindows = True Then + If e.Button = MouseButtons.Left Then + titlebar.Capture = False + lbtitletext.Capture = False + pnlicon.Capture = False + pgtoplcorner.Capture = False + pgtoprcorner.Capture = False + Const WM_NCLBUTTONDOWN As Integer = &HA1S + Const HTCAPTION As Integer = 2 + Dim msg As Message = _ + Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _ + New IntPtr(HTCAPTION), IntPtr.Zero) + Me.DefWndProc(msg) + End If + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine + End If + End Sub + + Public Sub setupborders() + If ShiftOSDesktop.boughtwindowborders = False Then + pgleft.Hide() + pgbottom.Hide() + pgright.Hide() + Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height) + End If + End Sub + + Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click + Me.Close() + End Sub + + Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp + closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1) + End Sub + + Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave + closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0) + End Sub + + Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown + closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2) + End Sub + + Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click + ShiftOSDesktop.minimizeprogram(Me) + End Sub + + Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter + If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1) + End Sub + + Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave + If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0) + End Sub + + Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click + rollupanddown() + End Sub + + Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp + rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1) + End Sub + + Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave + rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0) + End Sub + + Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown + rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2) + End Sub + + Public Sub setuptitlebar() + + If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True + pgleft.Width = ShiftOSDesktop.windowbordersize + pgright.Width = ShiftOSDesktop.windowbordersize + pgbottom.Height = ShiftOSDesktop.windowbordersize + titlebar.Height = ShiftOSDesktop.titlebarheight + + If justopened = True Then + Me.Size = New Size(476, 462) 'put the default size of your window here + Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30) + Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize) + oldbordersize = ShiftOSDesktop.windowbordersize + oldtitlebarheight = ShiftOSDesktop.titlebarheight + justopened = False + Else + If Me.Visible = True Then + Me.Hide() + Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30) + Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) + oldbordersize = ShiftOSDesktop.windowbordersize + oldtitlebarheight = ShiftOSDesktop.titlebarheight + Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30) + Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize) + rolldownsize = Me.Height + If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide() + Me.Show() + End If + End If + + If ShiftOSDesktop.showwindowcorners = True Then + pgtoplcorner.Show() + pgtoprcorner.Show() + pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth + pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth + Else + pgtoplcorner.Hide() + pgtoprcorner.Hide() + End If + + If ShiftOSDesktop.boughttitlebar = False Then + titlebar.Hide() + Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height) + End If + + If ShiftOSDesktop.boughttitletext = False Then + lbtitletext.Hide() + Else + lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle) + lbtitletext.Text = ShiftOSDesktop.skinloadername + lbtitletext.Show() + End If + + If ShiftOSDesktop.boughtclosebutton = False Then + closebutton.Hide() + Else + closebutton.BackColor = ShiftOSDesktop.closebuttoncolour + closebutton.Height = ShiftOSDesktop.closebuttonheight + closebutton.Width = ShiftOSDesktop.closebuttonwidth + closebutton.Show() + End If + + If ShiftOSDesktop.boughtrollupbutton = False Then + rollupbutton.Hide() + Else + rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour + rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight + rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth + rollupbutton.Show() + End If + + If ShiftOSDesktop.boughtminimizebutton = False Then + minimizebutton.Hide() + Else + minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour + minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight + minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth + minimizebutton.Show() + End If + + If ShiftOSDesktop.boughtwindowborders = True Then + closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop) + rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop) + minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop) + Select Case ShiftOSDesktop.titletextposition + Case "Left" + lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop) + End Select + lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour + Else + closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop) + rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop) + minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop) + Select Case ShiftOSDesktop.titletextposition + Case "Left" + lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop) + End Select + lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour + End If + + If ShiftOSDesktop.boughtknowledgeinputicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.skinloadericontitlebar 'Replace with the correct icon for the program. + End If + + End Sub + + Public Sub rollupanddown() + If Me.Height = Me.titlebar.Height Then + pgleft.Show() + pgbottom.Show() + pgright.Show() + Me.Height = rolldownsize + Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight) + Else + Me.MinimumSize = New Size(0, 0) + pgleft.Hide() + pgbottom.Hide() + pgright.Hide() + rolldownsize = Me.Height + Me.Height = Me.titlebar.Height + End If + End Sub + + Public Sub setskin() + If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone + closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle + If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone + titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle + If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone + rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle + If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone + pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle + If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone + pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle + If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone + minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle + + 'remove background colour when image is present + If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent + If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent + If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent + If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent + If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent + If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent + + Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour + End Sub + + Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + End Sub + + 'end of general setup + + Private Sub initialsetup() + titlebarcolour = ShiftOSDesktop.titlebarcolour + windowbordercolour = ShiftOSDesktop.windowbordercolour + windowbordersize = ShiftOSDesktop.windowbordersize + titlebarheight = ShiftOSDesktop.titlebarheight + closebuttoncolour = ShiftOSDesktop.closebuttoncolour + closebuttonheight = ShiftOSDesktop.closebuttonheight + closebuttonwidth = ShiftOSDesktop.closebuttonwidth + closebuttontop = ShiftOSDesktop.closebuttontop + closebuttonside = ShiftOSDesktop.closebuttonside + titletextcolour = ShiftOSDesktop.titletextcolour + titletexttop = ShiftOSDesktop.titletexttop + titletextside = ShiftOSDesktop.titletextside + titletextsize = ShiftOSDesktop.titletextsize + titletextfont = ShiftOSDesktop.titletextfont + titletextstyle = ShiftOSDesktop.titletextstyle + desktoppanelcolour = ShiftOSDesktop.desktoppanelcolour + desktopbackgroundcolour = ShiftOSDesktop.desktopbackgroundcolour + desktoppanelheight = ShiftOSDesktop.desktoppanelheight + desktoppanelposition = ShiftOSDesktop.desktoppanelposition + clocktextcolour = ShiftOSDesktop.clocktextcolour + clockbackgroundcolor = ShiftOSDesktop.clockbackgroundcolor + panelclocktexttop = ShiftOSDesktop.panelclocktexttop + panelclocktextsize = ShiftOSDesktop.panelclocktextsize + panelclocktextfont = ShiftOSDesktop.panelclocktextfont + panelclocktextstyle = ShiftOSDesktop.panelclocktextstyle + applauncherbuttoncolour = ShiftOSDesktop.applauncherbuttoncolour + applauncherbuttonclickedcolour = ShiftOSDesktop.applauncherbuttonclickedcolour + applauncherbackgroundcolour = ShiftOSDesktop.applauncherbackgroundcolour + applaunchermouseovercolour = ShiftOSDesktop.applaunchermouseovercolour + applicationsbuttontextcolour = ShiftOSDesktop.applicationsbuttontextcolour + applicationbuttonheight = ShiftOSDesktop.applicationbuttonheight + applicationbuttontextsize = ShiftOSDesktop.applicationbuttontextsize + applicationbuttontextfont = ShiftOSDesktop.applicationbuttontextfont + applicationbuttontextstyle = ShiftOSDesktop.applicationbuttontextstyle + applicationlaunchername = ShiftOSDesktop.applicationlaunchername + titletextposition = ShiftOSDesktop.titletextposition + rollupbuttoncolour = ShiftOSDesktop.rollupbuttoncolour + rollupbuttonheight = ShiftOSDesktop.rollupbuttonheight + rollupbuttonwidth = ShiftOSDesktop.rollupbuttonwidth + rollupbuttonside = ShiftOSDesktop.rollupbuttonside + rollupbuttontop = ShiftOSDesktop.rollupbuttontop + titlebariconside = ShiftOSDesktop.titlebariconside + titlebaricontop = ShiftOSDesktop.titlebaricontop + titlebarcornerwidth = ShiftOSDesktop.titlebarcornerwidth + titlebarrightcornercolour = ShiftOSDesktop.titlebarrightcornercolour + titlebarleftcornercolour = ShiftOSDesktop.titlebarleftcornercolour + showwindowcorners = ShiftOSDesktop.showwindowcorners + applaunchermenuholderwidth = ShiftOSDesktop.applaunchermenuholderwidth + windowborderleftcolour = ShiftOSDesktop.windowborderleftcolour + windowborderrightcolour = ShiftOSDesktop.windowborderrightcolour + windowborderbottomcolour = ShiftOSDesktop.windowborderbottomcolour + windowborderbottomrightcolour = ShiftOSDesktop.windowborderbottomrightcolour + windowborderbottomleftcolour = ShiftOSDesktop.windowborderbottomleftcolour + panelbuttonicontop = ShiftOSDesktop.panelbuttonicontop + panelbuttoniconside = ShiftOSDesktop.panelbuttoniconside + panelbuttoniconsize = ShiftOSDesktop.panelbuttoniconsize + panelbuttoniconsize = ShiftOSDesktop.panelbuttoniconsize + panelbuttonheight = ShiftOSDesktop.panelbuttonheight + panelbuttonwidth = ShiftOSDesktop.panelbuttonwidth + panelbuttoncolour = ShiftOSDesktop.panelbuttoncolour + panelbuttontextcolour = ShiftOSDesktop.panelbuttontextcolour + panelbuttontextsize = ShiftOSDesktop.panelbuttontextsize + panelbuttontextfont = ShiftOSDesktop.panelbuttontextfont + panelbuttontextstyle = ShiftOSDesktop.panelbuttontextstyle + panelbuttontextside = ShiftOSDesktop.panelbuttontextside + panelbuttontexttop = ShiftOSDesktop.panelbuttontexttop + panelbuttongap = ShiftOSDesktop.panelbuttongap + panelbuttonfromtop = ShiftOSDesktop.panelbuttonfromtop + panelbuttoninitialgap = ShiftOSDesktop.panelbuttoninitialgap + minimizebuttoncolour = ShiftOSDesktop.minimizebuttoncolour + minimizebuttonheight = ShiftOSDesktop.minimizebuttonheight + minimizebuttonwidth = ShiftOSDesktop.minimizebuttonwidth + minimizebuttonside = ShiftOSDesktop.minimizebuttonside + minimizebuttontop = ShiftOSDesktop.minimizebuttontop + + 'skins + Array.Copy(ShiftOSDesktop.skinimages, skinloaderskinimages, skinloaderskinimages.Length) + + If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else skinloaderskinclosebutton(0) = ShiftOSDesktop.skinclosebutton(0).Clone + If ShiftOSDesktop.skinclosebutton(1) Is Nothing Then Else skinloaderskinclosebutton(1) = ShiftOSDesktop.skinclosebutton(1).Clone + If ShiftOSDesktop.skinclosebutton(2) Is Nothing Then Else skinloaderskinclosebutton(2) = ShiftOSDesktop.skinclosebutton(2).Clone + skinclosebuttonstyle = ShiftOSDesktop.skinclosebuttonstyle + + If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else skinloaderskintitlebar(0) = ShiftOSDesktop.skintitlebar(0).Clone + If ShiftOSDesktop.skintitlebar(1) Is Nothing Then Else skinloaderskintitlebar(1) = ShiftOSDesktop.skintitlebar(1).Clone + If ShiftOSDesktop.skintitlebar(2) Is Nothing Then Else skinloaderskintitlebar(2) = ShiftOSDesktop.skintitlebar(2).Clone + skintitlebarstyle = ShiftOSDesktop.skintitlebarstyle + + If ShiftOSDesktop.skindesktopbackground(0) Is Nothing Then Else skinloaderskindesktopbackground(0) = ShiftOSDesktop.skindesktopbackground(0).Clone + If ShiftOSDesktop.skindesktopbackground(1) Is Nothing Then Else skinloaderskindesktopbackground(1) = ShiftOSDesktop.skindesktopbackground(1).Clone + If ShiftOSDesktop.skindesktopbackground(2) Is Nothing Then Else skinloaderskindesktopbackground(2) = ShiftOSDesktop.skindesktopbackground(2).Clone + skindesktopbackgroundstyle = ShiftOSDesktop.skindesktopbackgroundstyle + + If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else skinloaderskinrollupbutton(0) = ShiftOSDesktop.skinrollupbutton(0).Clone + If ShiftOSDesktop.skinrollupbutton(1) Is Nothing Then Else skinloaderskinrollupbutton(1) = ShiftOSDesktop.skinrollupbutton(1).Clone + If ShiftOSDesktop.skinrollupbutton(2) Is Nothing Then Else skinloaderskinrollupbutton(2) = ShiftOSDesktop.skinrollupbutton(2).Clone + skinrollupbuttonstyle = ShiftOSDesktop.skinrollupbuttonstyle + + If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else skinloaderskintitlebarrightcorner(0) = ShiftOSDesktop.skintitlebarrightcorner(0).Clone + If ShiftOSDesktop.skintitlebarrightcorner(1) Is Nothing Then Else skinloaderskintitlebarrightcorner(1) = ShiftOSDesktop.skintitlebarrightcorner(1).Clone + If ShiftOSDesktop.skintitlebarrightcorner(2) Is Nothing Then Else skinloaderskintitlebarrightcorner(2) = ShiftOSDesktop.skintitlebarrightcorner(2).Clone + skintitlebarrightcornerstyle = ShiftOSDesktop.skintitlebarrightcornerstyle + + If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else skinloaderskintitlebarleftcorner(0) = ShiftOSDesktop.skintitlebarleftcorner(0).Clone + If ShiftOSDesktop.skintitlebarleftcorner(1) Is Nothing Then Else skinloaderskintitlebarleftcorner(1) = ShiftOSDesktop.skintitlebarleftcorner(1).Clone + If ShiftOSDesktop.skintitlebarleftcorner(2) Is Nothing Then Else skinloaderskintitlebarleftcorner(2) = ShiftOSDesktop.skintitlebarleftcorner(2).Clone + skintitlebarleftcornerstyle = ShiftOSDesktop.skintitlebarleftcornerstyle + + If ShiftOSDesktop.skindesktoppanel(0) Is Nothing Then Else skinloaderskindesktoppanel(0) = ShiftOSDesktop.skindesktoppanel(0).Clone + If ShiftOSDesktop.skindesktoppanel(1) Is Nothing Then Else skinloaderskindesktoppanel(1) = ShiftOSDesktop.skindesktoppanel(1).Clone + If ShiftOSDesktop.skindesktoppanel(2) Is Nothing Then Else skinloaderskindesktoppanel(2) = ShiftOSDesktop.skindesktoppanel(2).Clone + skindesktoppanelstyle = ShiftOSDesktop.skindesktoppanelstyle + + If ShiftOSDesktop.skindesktoppaneltime(0) Is Nothing Then Else skinloaderskindesktoppaneltime(0) = ShiftOSDesktop.skindesktoppaneltime(0).Clone + If ShiftOSDesktop.skindesktoppaneltime(1) Is Nothing Then Else skinloaderskindesktoppaneltime(1) = ShiftOSDesktop.skindesktoppaneltime(1).Clone + If ShiftOSDesktop.skindesktoppaneltime(2) Is Nothing Then Else skinloaderskindesktoppaneltime(2) = ShiftOSDesktop.skindesktoppaneltime(2).Clone + skindesktoppaneltimestyle = ShiftOSDesktop.skindesktoppaneltimestyle + + If ShiftOSDesktop.skinapplauncherbutton(0) Is Nothing Then Else skinloaderskinapplauncherbutton(0) = ShiftOSDesktop.skinapplauncherbutton(0).Clone + If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then Else skinloaderskinapplauncherbutton(1) = ShiftOSDesktop.skinapplauncherbutton(1).Clone + If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then Else skinloaderskinapplauncherbutton(2) = ShiftOSDesktop.skinapplauncherbutton(2).Clone + skinapplauncherbuttonstyle = ShiftOSDesktop.skinapplauncherbuttonstyle + + If ShiftOSDesktop.skinwindowborderleft(0) Is Nothing Then Else skinloaderskinwindowborderleft(0) = ShiftOSDesktop.skinwindowborderleft(0).Clone + If ShiftOSDesktop.skinwindowborderleft(1) Is Nothing Then Else skinloaderskinwindowborderleft(1) = ShiftOSDesktop.skinwindowborderleft(1).Clone + If ShiftOSDesktop.skinwindowborderleft(2) Is Nothing Then Else skinloaderskinwindowborderleft(2) = ShiftOSDesktop.skinwindowborderleft(2).Clone + skinwindowborderleftstyle = ShiftOSDesktop.skinwindowborderleftstyle + + If ShiftOSDesktop.skinwindowborderright(0) Is Nothing Then Else skinloaderskinwindowborderright(0) = ShiftOSDesktop.skinwindowborderright(0).Clone + If ShiftOSDesktop.skinwindowborderright(1) Is Nothing Then Else skinloaderskinwindowborderright(1) = ShiftOSDesktop.skinwindowborderright(1).Clone + If ShiftOSDesktop.skinwindowborderright(2) Is Nothing Then Else skinloaderskinwindowborderright(2) = ShiftOSDesktop.skinwindowborderright(2).Clone + skinwindowborderrightstyle = ShiftOSDesktop.skinwindowborderrightstyle + + If ShiftOSDesktop.skinwindowborderbottom(0) Is Nothing Then Else skinloaderskinwindowborderbottom(0) = ShiftOSDesktop.skinwindowborderbottom(0).Clone + If ShiftOSDesktop.skinwindowborderbottom(1) Is Nothing Then Else skinloaderskinwindowborderbottom(1) = ShiftOSDesktop.skinwindowborderbottom(1).Clone + If ShiftOSDesktop.skinwindowborderbottom(2) Is Nothing Then Else skinloaderskinwindowborderbottom(2) = ShiftOSDesktop.skinwindowborderbottom(2).Clone + skinwindowborderbottomstyle = ShiftOSDesktop.skinwindowborderbottomstyle + + If ShiftOSDesktop.skinwindowborderbottomright(0) Is Nothing Then Else skinloaderskinwindowborderbottomright(0) = ShiftOSDesktop.skinwindowborderbottomright(0).Clone + If ShiftOSDesktop.skinwindowborderbottomright(1) Is Nothing Then Else skinloaderskinwindowborderbottomright(1) = ShiftOSDesktop.skinwindowborderbottomright(1).Clone + If ShiftOSDesktop.skinwindowborderbottomright(2) Is Nothing Then Else skinloaderskinwindowborderbottomright(2) = ShiftOSDesktop.skinwindowborderbottomright(2).Clone + skinwindowborderbottomrightstyle = ShiftOSDesktop.skinwindowborderbottomrightstyle + + If ShiftOSDesktop.skinwindowborderbottomleft(0) Is Nothing Then Else skinloaderskinwindowborderbottomleft(0) = ShiftOSDesktop.skinwindowborderbottomleft(0).Clone + If ShiftOSDesktop.skinwindowborderbottomleft(1) Is Nothing Then Else skinloaderskinwindowborderbottomleft(1) = ShiftOSDesktop.skinwindowborderbottomleft(1).Clone + If ShiftOSDesktop.skinwindowborderbottomleft(2) Is Nothing Then Else skinloaderskinwindowborderbottomleft(2) = ShiftOSDesktop.skinwindowborderbottomleft(2).Clone + skinwindowborderbottomleftstyle = ShiftOSDesktop.skinwindowborderbottomleftstyle + + If ShiftOSDesktop.skinpanelbutton(0) Is Nothing Then Else skinloaderskinpanelbutton(0) = ShiftOSDesktop.skinpanelbutton(0).Clone + If ShiftOSDesktop.skinpanelbutton(1) Is Nothing Then Else skinloaderskinpanelbutton(1) = ShiftOSDesktop.skinpanelbutton(1).Clone + If ShiftOSDesktop.skinpanelbutton(2) Is Nothing Then Else skinloaderskinpanelbutton(2) = ShiftOSDesktop.skinpanelbutton(2).Clone + skinpanelbuttonstyle = ShiftOSDesktop.skinpanelbuttonstyle + + If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else skinloaderskinminimizebutton(0) = ShiftOSDesktop.skinminimizebutton(0).Clone + If ShiftOSDesktop.skinminimizebutton(1) Is Nothing Then Else skinloaderskinminimizebutton(1) = ShiftOSDesktop.skinminimizebutton(1).Clone + If ShiftOSDesktop.skinminimizebutton(2) Is Nothing Then Else skinloaderskinminimizebutton(2) = ShiftOSDesktop.skinminimizebutton(2).Clone + skinminimizebuttonstyle = ShiftOSDesktop.skinminimizebuttonstyle + End Sub + + Public Sub determinevisibleobjects() + If ShiftOSDesktop.boughttitlebar = True Then pretitlebar.Show() Else pretitlebar.Hide() + If ShiftOSDesktop.boughtwindowborders = True Then + prepgright.Show() + prepgleft.Show() + prepgbottom.Show() + Else + prepgright.Hide() + prepgleft.Hide() + prepgbottom.Hide() + End If + If ShiftOSDesktop.boughtclosebutton = True Then preclosebutton.Show() Else preclosebutton.Hide() + If ShiftOSDesktop.boughttitletext = True Then pretitletext.Show() Else pretitletext.Hide() + If ShiftOSDesktop.boughtdesktoppanel = True Then predesktoppanel.Show() Else predesktoppanel.Hide() + If ShiftOSDesktop.boughtdesktoppanelclock = True Then prepaneltimetext.Show() Else prepaneltimetext.Hide() + If ShiftOSDesktop.boughtapplaunchermenu = True Then preapplaunchermenuholder.Show() Else preapplaunchermenuholder.Hide() + If ShiftOSDesktop.boughtrollupbutton = True Then prerollupbutton.Show() Else prerollupbutton.Hide() + If ShiftOSDesktop.boughtknowledgeinputicon = True Then prepnlicon.Show() Else prepnlicon.Hide() + If ShiftOSDesktop.boughtpanelbuttons = True Then prepnlpanelbutton.Show() Else prepnlpanelbutton.Hide() + If ShiftOSDesktop.boughtminimizebutton = True Then preminimizebutton.Show() Else preminimizebutton.Hide() + End Sub + + Public Sub setpreviewtocurrentskin() + ShiftOSDesktop.loadskinfiles() + + pretitlebar.BackColor = titlebarcolour + prepgtoplcorner.BackColor = titlebarcolour + prepgtoprcorner.BackColor = titlebarcolour + prepgleft.BackColor = windowborderleftcolour + prepgright.BackColor = windowborderrightcolour + prepgbottom.BackColor = windowborderbottomcolour + prepgbottomlcorner.BackColor = windowborderbottomleftcolour + prepgbottomrcorner.BackColor = windowborderbottomrightcolour + pretitlebar.Height = titlebarheight + preclosebutton.BackColor = closebuttoncolour + preclosebutton.Height = closebuttonheight + preclosebutton.Width = closebuttonwidth + prepgleft.Width = windowbordersize + prepgright.Width = windowbordersize + prepgbottom.Height = windowbordersize + preminimizebutton.BackColor = minimizebuttoncolour + preminimizebutton.Height = minimizebuttonheight + preminimizebutton.Width = minimizebuttonwidth + + Select Case titletextposition + Case "Left" + pretitletext.Location = New Point(titletextside, titletexttop) + Case "Centre" + pretitletext.Location = New Point((pretitlebar.Width / 2) - pretitletext.Width / 2, titletexttop) + End Select + pretitletext.ForeColor = titletextcolour + + + pretitletext.Font = New Font(titletextfont, titletextsize, titletextstyle) + + pnldesktoppreview.BackColor = desktopbackgroundcolour + predesktoppanel.Height = desktoppanelheight + setclocktime() + prepaneltimetext.ForeColor = clocktextcolour + pretimepanel.BackColor = clockbackgroundcolor + prepaneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle) + prepaneltimetext.Location = New Point() + pretimepanel.Size = New Size(prepaneltimetext.Width + 3, pretimepanel.Height) + prepaneltimetext.Location = New Point(0, panelclocktexttop) + ApplicationsToolStripMenuItem.Text = applicationlaunchername + ApplicationsToolStripMenuItem.Font = New Font(applicationbuttontextfont, applicationbuttontextsize, applicationbuttontextstyle) + preapplaunchermenuholder.Size = ApplicationsToolStripMenuItem.Size + ToolStripManager.Renderer = New MyPreviewToolStripRenderer() + ApplicationsToolStripMenuItem.BackColor = applauncherbuttoncolour + ApplicationsToolStripMenuItem.ForeColor = applicationsbuttontextcolour + preapplaunchermenuholder.Height = applicationbuttonheight + predesktopappmenu.Height = applicationbuttonheight + ApplicationsToolStripMenuItem.Height = applicationbuttonheight + prerollupbutton.BackColor = rollupbuttoncolour + prerollupbutton.Height = rollupbuttonheight + prerollupbutton.Width = rollupbuttonwidth + predesktoppanel.BackColor = desktoppanelcolour + pnldesktoppreview.BackColor = desktopbackgroundcolour + prepnlicon.Location = New Point(titlebariconside, titlebaricontop) + prepgtoplcorner.BackColor = titlebarleftcornercolour + prepgtoprcorner.BackColor = titlebarrightcornercolour + prepgtoplcorner.Width = titlebarcornerwidth + prepgtoprcorner.Width = titlebarcornerwidth + + If ShiftOSDesktop.boughtpanelbuttons = True Then prepnlpanelbutton.Show() + pretbicon.Location = New Point(panelbuttoniconside, panelbuttonicontop) + pretbicon.Size = New Size(panelbuttoniconsize, panelbuttoniconsize) + prepnlpanelbutton.Size = New Size(panelbuttonwidth, panelbuttonheight) + prepnlpanelbutton.BackColor = panelbuttoncolour + If skinloaderskinpanelbutton(0) Is Nothing Then Else prepnlpanelbutton.BackgroundImage = skinloaderskinpanelbutton(0) + prepnlpanelbutton.BackgroundImageLayout = skinpanelbuttonstyle + pretbctext.ForeColor = panelbuttontextcolour + pretbctext.Font = New Font(panelbuttontextfont, panelbuttontextsize, panelbuttontextstyle) + pretbctext.Location = New Point(panelbuttontextside, panelbuttontexttop) + prepnlpanelbuttonholder.Padding = New Padding(panelbuttoninitialgap, 0, 0, 0) + prepnlpanelbutton.Margin = New Padding(0, panelbuttonfromtop, panelbuttongap, 0) + If skinloaderskinpanelbutton(0) Is Nothing Then Else prepnlpanelbutton.BackColor = Color.Transparent + + Select Case desktoppanelposition + Case "Top" + predesktoppanel.Dock = DockStyle.Top + predesktopappmenu.Dock = DockStyle.Top + Case "Bottom" + predesktoppanel.Dock = DockStyle.Bottom + predesktopappmenu.Dock = DockStyle.Bottom + End Select + + If skinloaderskindesktoppanel(0) Is Nothing Then + predesktoppanel.BackColor = desktoppanelcolour + predesktoppanel.BackgroundImage = Nothing + prepnlpanelbuttonholder.BackgroundImage = Nothing + Else + predesktoppanel.BackgroundImage = skinloaderskindesktoppanel(0) + prepnlpanelbuttonholder.BackgroundImage = skinloaderskindesktoppanel(0) + predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle + predesktoppanel.BackColor = Color.Transparent + End If + + If ShiftOSDesktop.boughtdesktoppanelclock = True Then + setclocktime() + prepaneltimetext.ForeColor = clocktextcolour + If skinloaderskindesktoppaneltime(0) Is Nothing Then + pretimepanel.BackColor = clockbackgroundcolor + Else + pretimepanel.BackColor = Color.Transparent + pretimepanel.BackgroundImage = skinloaderskindesktoppanel(0) + pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle + End If + prepaneltimetext.Font = New Font(panelclocktextfont, panelclocktextsize, panelclocktextstyle) + pretimepanel.Size = New Size(prepaneltimetext.Width + 3, pretimepanel.Height) + prepaneltimetext.Location = New Point(0, panelclocktexttop) + pretimepanel.Show() + Else + pretimepanel.Hide() + End If + + If ShiftOSDesktop.boughtwindowborders = True Then + preclosebutton.Location = New Point(pretitlebar.Size.Width - closebuttonside - preclosebutton.Size.Width, closebuttontop) + prerollupbutton.Location = New Point(pretitlebar.Size.Width - rollupbuttonside - prerollupbutton.Size.Width, rollupbuttontop) + preminimizebutton.Location = New Point(pretitlebar.Size.Width - minimizebuttonside - preminimizebutton.Size.Width, minimizebuttontop) + Else + preclosebutton.Location = New Point(pretitlebar.Size.Width - closebuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - preclosebutton.Size.Width, closebuttontop) + prerollupbutton.Location = New Point(pretitlebar.Size.Width - rollupbuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - prerollupbutton.Size.Width, rollupbuttontop) + preminimizebutton.Location = New Point(pretitlebar.Size.Width - minimizebuttonside - prepgtoplcorner.Width - prepgtoprcorner.Width - preminimizebutton.Size.Width, minimizebuttontop) + End If + + If showwindowcorners = True Then + prepgtoplcorner.Show() + prepgtoprcorner.Show() + Else + prepgtoplcorner.Hide() + prepgtoprcorner.Hide() + End If + + preapplaunchermenuholder.Width = applaunchermenuholderwidth + predesktopappmenu.Width = applaunchermenuholderwidth + ApplicationsToolStripMenuItem.Width = applaunchermenuholderwidth + + If skinloaderskinapplauncherbutton(0) Is Nothing Then + Else + ApplicationsToolStripMenuItem.BackColor = Color.Transparent + predesktopappmenu.BackColor = Color.Transparent + ApplicationsToolStripMenuItem.BackgroundImage = skinloaderskinapplauncherbutton(0) + ApplicationsToolStripMenuItem.Text = "" + End If + + 'skins + If skinloaderskinimages(0) = "" Then Else preclosebutton.BackgroundImage = GetImage(skinloaderskinimages(0)) + preclosebutton.BackgroundImageLayout = skinclosebuttonstyle + If skinloaderskinimages(3) = "" Then Else pretitlebar.BackgroundImage = GetImage(skinloaderskinimages(3)) + pretitlebar.BackgroundImageLayout = skintitlebarstyle + If skinloaderskinimages(6) = "" Then Else pnldesktoppreview.BackgroundImage = GetImage(skinloaderskinimages(6)) + pnldesktoppreview.BackgroundImageLayout = skindesktopbackgroundstyle + If skinloaderskinimages(9) = "" Then Else prerollupbutton.BackgroundImage = GetImage(skinloaderskinimages(9)) + prerollupbutton.BackgroundImageLayout = skinrollupbuttonstyle + If skinloaderskinimages(12) = "" Then Else prepgtoprcorner.BackgroundImage = GetImage(skinloaderskinimages(12)) + prepgtoprcorner.BackgroundImageLayout = skintitlebarrightcornerstyle + If skinloaderskinimages(15) = "" Then Else prepgtoplcorner.BackgroundImage = GetImage(skinloaderskinimages(15)) + prepgtoplcorner.BackgroundImageLayout = skintitlebarleftcornerstyle + If skinloaderskinimages(18) = "" Then Else predesktoppanel.BackgroundImage = GetImage(skinloaderskinimages(18)) + If skinloaderskinimages(18) = "" Then Else prepnlpanelbuttonholder.BackgroundImage = GetImage(skinloaderskinimages(18)) + predesktoppanel.BackgroundImageLayout = skindesktoppanelstyle + prepnlpanelbuttonholder.BackgroundImageLayout = skindesktoppanelstyle + If skinloaderskinimages(21) = "" Then Else pretimepanel.BackgroundImage = GetImage(skinloaderskinimages(21)) + pretimepanel.BackgroundImageLayout = skindesktoppaneltimestyle + If skinloaderskinimages(24) = "" Then Else ApplicationsToolStripMenuItem.BackgroundImage = GetImage(skinloaderskinimages(24)) + ApplicationsToolStripMenuItem.BackgroundImageLayout = skinapplauncherbuttonstyle + If skinloaderskinimages(27) = "" Then Else prepgleft.BackgroundImage = GetImage(skinloaderskinimages(27)) + prepgleft.BackgroundImageLayout = skinwindowborderleftstyle + If skinloaderskinimages(30) = "" Then Else prepgright.BackgroundImage = GetImage(skinloaderskinimages(30)) + prepgright.BackgroundImageLayout = skinwindowborderrightstyle + If skinloaderskinimages(33) = "" Then Else prepgbottom.BackgroundImage = GetImage(skinloaderskinimages(33)) + prepgbottom.BackgroundImageLayout = skinwindowborderbottomstyle + If skinloaderskinimages(36) = "" Then Else prepgbottomrcorner.BackgroundImage = GetImage(skinloaderskinimages(36)) + prepgbottomrcorner.BackgroundImageLayout = skinwindowborderbottomrightstyle + If skinloaderskinimages(39) = "" Then Else prepgbottomlcorner.BackgroundImage = GetImage(skinloaderskinimages(39)) + prepgbottomlcorner.BackgroundImageLayout = skinwindowborderbottomleftstyle + prepgbottomlcorner.Height = windowbordersize + prepgbottomrcorner.Height = windowbordersize + If skinloaderskinimages(42) = "" Then Else preminimizebutton.BackgroundImage = GetImage(skinloaderskinimages(42)) + preminimizebutton.BackgroundImageLayout = skinminimizebuttonstyle + If skinloaderskinimages(45) = "" Then Else prepnlpanelbutton.BackgroundImage = GetImage(skinloaderskinimages(45)) + prepnlpanelbutton.BackgroundImageLayout = skinpanelbuttonstyle + + 'invisible backgrounds + If preclosebutton.BackgroundImage Is Nothing Then Else preclosebutton.BackColor = Color.Transparent + If pretitlebar.BackgroundImage Is Nothing Then Else pretitlebar.BackColor = Color.Transparent + If prerollupbutton.BackgroundImage Is Nothing Then Else prerollupbutton.BackColor = Color.Transparent + If prepgtoplcorner.BackgroundImage Is Nothing Then Else prepgtoplcorner.BackColor = Color.Transparent + If prepgtoprcorner.BackgroundImage Is Nothing Then Else prepgtoprcorner.BackColor = Color.Transparent + + + + ShiftOSDesktop.loadskinfiles() + ShiftOSDesktop.setupdesktop() + ShiftOSDesktop.setupskins() + + Me.Invalidate() + End Sub + + Private Function GetImage(ByVal fileName As String) As Bitmap + Dim ret As Bitmap + Using img As Image = Image.FromFile(fileName) + ret = New Bitmap(img) + End Using + Return ret + End Function + + Private Sub saveskintofile() + File_Saver.savingprogram = "skinloader" + File_Saver.saveextention = ".skn" + File_Saver.Show() + End Sub + + Public Sub loadskintopreview() + ReDim Preserve loadlines(200) + titlebarcolour = Color.FromArgb(loadlines(0)) + windowbordercolour = Color.FromArgb(loadlines(1)) + windowbordersize = loadlines(2) + titlebarheight = loadlines(3) + closebuttoncolour = Color.FromArgb(loadlines(4)) + closebuttonheight = loadlines(5) + closebuttonwidth = loadlines(6) + closebuttonside = loadlines(7) + closebuttontop = loadlines(8) + titletextcolour = Color.FromArgb(loadlines(9)) + titletexttop = loadlines(10) + titletextside = loadlines(11) + titletextsize = loadlines(12) + titletextfont = loadlines(13) + titletextstyle = loadlines(14) + desktoppanelcolour = Color.FromArgb(loadlines(15)) + desktopbackgroundcolour = Color.FromArgb(loadlines(16)) + desktoppanelheight = loadlines(17) + desktoppanelposition = loadlines(18) + clocktextcolour = Color.FromArgb(loadlines(19)) + clockbackgroundcolor = Color.FromArgb(loadlines(20)) + panelclocktexttop = loadlines(21) + panelclocktextsize = loadlines(22) + panelclocktextfont = loadlines(23) + panelclocktextstyle = loadlines(24) + applauncherbuttoncolour = Color.FromArgb(loadlines(25)) + applauncherbuttonclickedcolour = Color.FromArgb(loadlines(26)) + applauncherbackgroundcolour = Color.FromArgb(loadlines(27)) + applaunchermouseovercolour = Color.FromArgb(loadlines(28)) + applicationsbuttontextcolour = Color.FromArgb(loadlines(29)) + applicationbuttonheight = loadlines(30) + applicationbuttontextsize = loadlines(31) + applicationbuttontextfont = loadlines(32) + applicationbuttontextstyle = loadlines(33) + applicationlaunchername = loadlines(34) + titletextposition = loadlines(35) + rollupbuttoncolour = Color.FromArgb(loadlines(36)) + If loadlines(37) = "" Then Else rollupbuttonheight = loadlines(37) + If loadlines(38) = "" Then Else rollupbuttonwidth = loadlines(38) + If loadlines(39) = "" Then Else rollupbuttonside = loadlines(39) + If loadlines(40) = "" Then Else rollupbuttontop = loadlines(40) + If loadlines(41) = "" Then Else titlebariconside = loadlines(41) + If loadlines(42) = "" Then Else titlebaricontop = loadlines(42) + If loadlines(43) = "" Then Else showwindowcorners = loadlines(43) + If loadlines(44) = "" Then Else titlebarcornerwidth = loadlines(44) + If loadlines(45) = "" Then Else titlebarrightcornercolour = Color.FromArgb(loadlines(45)) + If loadlines(46) = "" Then Else titlebarleftcornercolour = Color.FromArgb(loadlines(46)) + If loadlines(47) = "" Then Else applaunchermenuholderwidth = loadlines(47) + If loadlines(48) = "" Then Else windowborderleftcolour = Color.FromArgb(loadlines(48)) + If loadlines(49) = "" Then Else windowborderrightcolour = Color.FromArgb(loadlines(49)) + If loadlines(50) = "" Then Else windowborderbottomcolour = Color.FromArgb(loadlines(50)) + If loadlines(51) = "" Then Else windowborderbottomrightcolour = Color.FromArgb(loadlines(51)) + If loadlines(52) = "" Then Else windowborderbottomleftcolour = Color.FromArgb(loadlines(52)) + If loadlines(53) = "" Then Else panelbuttonicontop = loadlines(53) + If loadlines(54) = "" Then Else panelbuttoniconside = loadlines(54) + If loadlines(55) = "" Then Else panelbuttoniconsize = loadlines(55) + If loadlines(56) = "" Then Else panelbuttoniconsize = loadlines(56) + If loadlines(57) = "" Then Else panelbuttonheight = loadlines(57) + If loadlines(58) = "" Then Else panelbuttonwidth = loadlines(58) + If loadlines(59) = "" Then Else panelbuttoncolour = Color.FromArgb(loadlines(59)) + If loadlines(60) = "" Then Else panelbuttontextcolour = Color.FromArgb(loadlines(60)) + If loadlines(61) = "" Then Else panelbuttontextsize = loadlines(61) + If loadlines(62) = "" Then Else panelbuttontextfont = loadlines(62) + If loadlines(63) = "" Then Else panelbuttontextstyle = loadlines(63) + If loadlines(64) = "" Then Else panelbuttontextside = loadlines(64) + If loadlines(65) = "" Then Else panelbuttontexttop = loadlines(65) + If loadlines(66) = "" Then Else panelbuttongap = loadlines(66) + If loadlines(67) = "" Then Else panelbuttonfromtop = loadlines(67) + If loadlines(68) = "" Then Else panelbuttoninitialgap = loadlines(68) + If loadlines(69) = "" Then Else minimizebuttoncolour = Color.FromArgb(loadlines(69)) + If loadlines(70) = "" Then Else minimizebuttonheight = loadlines(70) + If loadlines(71) = "" Then Else minimizebuttonwidth = loadlines(71) + If loadlines(72) = "" Then Else minimizebuttonside = loadlines(72) + If loadlines(73) = "" Then Else minimizebuttontop = loadlines(73) + + skinloaderskinimages(0) = loadlines(100) + skinloaderskinimages(1) = loadlines(101) + skinloaderskinimages(2) = loadlines(102) + skinloaderskinimages(3) = loadlines(103) + skinloaderskinimages(4) = loadlines(104) + skinloaderskinimages(5) = loadlines(105) + skinloaderskinimages(6) = loadlines(106) + skinloaderskinimages(7) = loadlines(107) + skinloaderskinimages(8) = loadlines(108) + skinloaderskinimages(9) = loadlines(109) + skinloaderskinimages(10) = loadlines(110) + skinloaderskinimages(11) = loadlines(111) + skinloaderskinimages(12) = loadlines(112) + skinloaderskinimages(13) = loadlines(113) + skinloaderskinimages(14) = loadlines(114) + skinloaderskinimages(15) = loadlines(115) + skinloaderskinimages(16) = loadlines(116) + skinloaderskinimages(17) = loadlines(117) + skinloaderskinimages(18) = loadlines(118) + skinloaderskinimages(19) = loadlines(119) + skinloaderskinimages(20) = loadlines(120) + skinloaderskinimages(21) = loadlines(121) + skinloaderskinimages(22) = loadlines(122) + skinloaderskinimages(23) = loadlines(123) + skinloaderskinimages(24) = loadlines(124) + skinloaderskinimages(25) = loadlines(125) + skinloaderskinimages(26) = loadlines(126) + skinloaderskinimages(27) = loadlines(127) + skinloaderskinimages(28) = loadlines(128) + skinloaderskinimages(29) = loadlines(129) + skinloaderskinimages(30) = loadlines(130) + skinloaderskinimages(31) = loadlines(131) + skinloaderskinimages(32) = loadlines(132) + skinloaderskinimages(33) = loadlines(133) + skinloaderskinimages(34) = loadlines(134) + skinloaderskinimages(35) = loadlines(135) + skinloaderskinimages(36) = loadlines(136) + skinloaderskinimages(37) = loadlines(137) + skinloaderskinimages(38) = loadlines(138) + skinloaderskinimages(39) = loadlines(139) + skinloaderskinimages(40) = loadlines(140) + skinloaderskinimages(41) = loadlines(141) + skinloaderskinimages(42) = loadlines(142) + skinloaderskinimages(43) = loadlines(143) + skinloaderskinimages(44) = loadlines(144) + skinloaderskinimages(45) = loadlines(145) + skinloaderskinimages(46) = loadlines(146) + skinloaderskinimages(47) = loadlines(147) + skinloaderskinimages(48) = loadlines(148) + skinloaderskinimages(49) = loadlines(149) + skinloaderskinimages(50) = loadlines(150) + + setpreviewtocurrentskin() + End Sub + + Private Sub setclocktime() + If ShiftOSDesktop.boughtsplitsecondtime = True Then + prepaneltimetext.Text = TimeOfDay + Else + If ShiftOSDesktop.boughtminuteaccuracytime = True Then + If Date.Now.Hour < 12 Then + prepaneltimetext.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM" + Else + prepaneltimetext.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM" + End If + Else + If ShiftOSDesktop.boughtpmandam = True Then + If Date.Now.Hour < 12 Then + prepaneltimetext.Text = TimeOfDay.Hour & " AM" + Else + prepaneltimetext.Text = TimeOfDay.Hour - 12 & " PM" + End If + Else + If ShiftOSDesktop.boughthourspastmidnight = True Then + prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60) + Else + If ShiftOSDesktop.boughtminutespastmidnight = True Then + prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60) + Else + If ShiftOSDesktop.boughtsecondspastmidnight = True Then + prepaneltimetext.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) + End If + End If + End If + End If + End If + End If + End Sub + + Private Sub btnsaveskin_Click(sender As Object, e As EventArgs) Handles btnsaveskin.Click + saveskintofile() + End Sub + + Private Sub btnloadskin_Click(sender As Object, e As EventArgs) Handles btnloadskin.Click + File_Opener.Show() + File_Opener.openingprogram = "skinloader" + File_Opener.openextention = ".skn" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click + Me.Close() + End Sub + + Private Sub btnapplyskin_Click(sender As Object, e As EventArgs) Handles btnapplyskin.Click + If Shifter.Visible = True Then + infobox.title = "Skin Loader - Error" + infobox.textinfo = "It appears that the Shifter application is currently open." & Environment.NewLine & Environment.NewLine & "Due to system stability issues you must close it before applying the skin!" + infobox.Show() + Else + If skinloaded = True Then + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents) + ShiftOSDesktop.disposeoldskindata("skinloaderapplyskin") + ShiftOSDesktop.loadcurrentskin() + ShiftOSDesktop.loadskinfiles() + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setcolours() + ShiftOSDesktop.setupdesktop() + ShiftOSDesktop.setupskins() + ShiftOSDesktop.Invalidate() + skinloaded = False + Else + infobox.title = "Skin Loader - No Skin!" + infobox.textinfo = "It appears you havn't loaded a new skin." & Environment.NewLine & Environment.NewLine & "Please click load skin and choose an existing .skn file to load it in the preview and press apply to apply it to your system." + infobox.Show() + End If + End If + End Sub + + + + 'required to fix flashing applauncher button problem + Public Sub ApplicationsToolStripMenuItem_Paint(sender As Object, e As PaintEventArgs) Handles ApplicationsToolStripMenuItem.Paint + If ApplicationsToolStripMenuItem.BackgroundImage Is Nothing Then + Else + e.Graphics.DrawImage(ApplicationsToolStripMenuItem.BackgroundImage, 0, 0, ApplicationsToolStripMenuItem.BackgroundImage.Width, ApplicationsToolStripMenuItem.BackgroundImage.Height) + End If + End Sub +End Class \ No newline at end of file diff --git a/Skinshifter.Designer.vb b/Skinshifter.Designer.vb new file mode 100644 index 0000000..d8d27bb --- /dev/null +++ b/Skinshifter.Designer.vb @@ -0,0 +1,404 @@ + _ +Partial Class Skinshifter + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.lblsecondstillshift = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnStartStop = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtShift = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnAddSkin = New System.Windows.Forms.Button() + Me.lbskinlist = New System.Windows.Forms.ListBox() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.tmrchangeskin = New System.Windows.Forms.Timer(Me.components) + Me.btnmoveup = New System.Windows.Forms.Button() + Me.btnmovedown = New System.Windows.Forms.Button() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.pgcontents.SuspendLayout() + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.btnmovedown) + Me.pgcontents.Controls.Add(Me.btnmoveup) + Me.pgcontents.Controls.Add(Me.PictureBox1) + Me.pgcontents.Controls.Add(Me.lblsecondstillshift) + Me.pgcontents.Controls.Add(Me.Label3) + Me.pgcontents.Controls.Add(Me.btnStartStop) + Me.pgcontents.Controls.Add(Me.Label2) + Me.pgcontents.Controls.Add(Me.txtShift) + Me.pgcontents.Controls.Add(Me.Label1) + Me.pgcontents.Controls.Add(Me.btnAddSkin) + Me.pgcontents.Controls.Add(Me.lbskinlist) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(455, 199) + Me.pgcontents.TabIndex = 20 + ' + 'lblsecondstillshift + ' + Me.lblsecondstillshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsecondstillshift.Location = New System.Drawing.Point(347, 76) + Me.lblsecondstillshift.Name = "lblsecondstillshift" + Me.lblsecondstillshift.Size = New System.Drawing.Size(100, 42) + Me.lblsecondstillshift.TabIndex = 9 + Me.lblsecondstillshift.Text = "20" + Me.lblsecondstillshift.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(364, 60) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(66, 16) + Me.Label3.TabIndex = 8 + Me.Label3.Text = "Next Shift:" + ' + 'btnStartStop + ' + Me.btnStartStop.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnStartStop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnStartStop.Location = New System.Drawing.Point(346, 160) + Me.btnStartStop.Name = "btnStartStop" + Me.btnStartStop.Size = New System.Drawing.Size(104, 35) + Me.btnStartStop.TabIndex = 7 + Me.btnStartStop.Text = "Enable" + Me.btnStartStop.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(384, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(62, 16) + Me.Label2.TabIndex = 6 + Me.Label2.Text = "Seconds" + ' + 'txtShift + ' + Me.txtShift.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtShift.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtShift.Location = New System.Drawing.Point(351, 28) + Me.txtShift.Multiline = True + Me.txtShift.Name = "txtShift" + Me.txtShift.Size = New System.Drawing.Size(32, 20) + Me.txtShift.TabIndex = 5 + Me.txtShift.Text = "20" + Me.txtShift.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(358, 8) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(79, 16) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "Shift Interval" + ' + 'btnAddSkin + ' + Me.btnAddSkin.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnAddSkin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddSkin.Location = New System.Drawing.Point(371, 121) + Me.btnAddSkin.Name = "btnAddSkin" + Me.btnAddSkin.Size = New System.Drawing.Size(79, 35) + Me.btnAddSkin.TabIndex = 3 + Me.btnAddSkin.Text = "Add Skin" + Me.btnAddSkin.UseVisualStyleBackColor = True + ' + 'lbskinlist + ' + Me.lbskinlist.BackColor = System.Drawing.Color.White + Me.lbskinlist.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lbskinlist.Dock = System.Windows.Forms.DockStyle.Left + Me.lbskinlist.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + Me.lbskinlist.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbskinlist.FormattingEnabled = True + Me.lbskinlist.ItemHeight = 15 + Me.lbskinlist.Location = New System.Drawing.Point(0, 0) + Me.lbskinlist.Name = "lbskinlist" + Me.lbskinlist.Size = New System.Drawing.Size(340, 199) + Me.lbskinlist.TabIndex = 2 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 229) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(455, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(118, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Skin Shifter" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(457, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 199) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(457, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 201) + Me.pgright.TabIndex = 22 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 199) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 201) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(459, 30) + Me.titlebar.TabIndex = 19 + ' + 'tmrchangeskin + ' + Me.tmrchangeskin.Interval = 1000 + ' + 'btnmoveup + ' + Me.btnmoveup.BackgroundImage = Global.ShiftOS.My.Resources.Resources.skinuparrow + Me.btnmoveup.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnmoveup.FlatAppearance.BorderSize = 0 + Me.btnmoveup.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnmoveup.Location = New System.Drawing.Point(346, 121) + Me.btnmoveup.Name = "btnmoveup" + Me.btnmoveup.Size = New System.Drawing.Size(21, 16) + Me.btnmoveup.TabIndex = 11 + Me.btnmoveup.UseVisualStyleBackColor = True + ' + 'btnmovedown + ' + Me.btnmovedown.BackgroundImage = Global.ShiftOS.My.Resources.Resources.skindownarrow + Me.btnmovedown.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnmovedown.FlatAppearance.BorderSize = 0 + Me.btnmovedown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnmovedown.Location = New System.Drawing.Point(346, 140) + Me.btnmovedown.Name = "btnmovedown" + Me.btnmovedown.Size = New System.Drawing.Size(21, 16) + Me.btnmovedown.TabIndex = 12 + Me.btnmovedown.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Black + Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left + Me.PictureBox1.Location = New System.Drawing.Point(340, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(1, 199) + Me.PictureBox1.TabIndex = 10 + Me.PictureBox1.TabStop = False + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'Skinshifter + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(459, 231) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Skinshifter" + Me.Text = "Skinshifter" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents lblsecondstillshift As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btnStartStop As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtShift As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnAddSkin As System.Windows.Forms.Button + Friend WithEvents lbskinlist As System.Windows.Forms.ListBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents tmrchangeskin As System.Windows.Forms.Timer + Friend WithEvents btnmovedown As System.Windows.Forms.Button + Friend WithEvents btnmoveup As System.Windows.Forms.Button +End Class diff --git a/Skinshifter.resx b/Skinshifter.resx new file mode 100644 index 0000000..22d093a --- /dev/null +++ b/Skinshifter.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1347, 18 + + + 1441, 18 + + + 1525, 18 + + + 1638, 18 + + \ No newline at end of file diff --git a/Skinshifter.vb b/Skinshifter.vb new file mode 100644 index 0000000..8827ed8 --- /dev/null +++ b/Skinshifter.vb @@ -0,0 +1,507 @@ +Public Class Skinshifter + 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 'replace with minimum size + Public minimumsizeheight As Integer = 0 'replace with minimum size + + Public timetillchange As Integer + Public moveitemignore As Boolean + + 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() + + ShiftOSDesktop.pnlpanelbuttonskinshifter.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonskinshifter, ShiftOSDesktop.tbskinshiftericon, ShiftOSDesktop.tbskinshiftertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(455, 229) '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.skinshiftername 'Remember to change to name of program!!!! + 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.skinshiftericontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 lbskinlist_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lbskinlist.DrawItem + If lbskinlist.Items.Count > 0 Then + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lbskinlist.GetItemText(lbskinlist.Items(e.Index)), e.Font, b, e.Bounds) + End Using + e.DrawFocusRectangle() + End If + End Sub + + Private Sub lbskinlist_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbskinlist.SelectedIndexChanged + If moveitemignore = False Then + If lbskinlist.SelectedIndex < -1 Then + Else + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents) + System.IO.Compression.ZipFile.ExtractToDirectory(lbskinlist.SelectedItem.ToString, "C:\ShiftOS\Shiftum42\Skins\Preview\") + My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False) + + If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\CurrentCopy\", FileIO.DeleteDirectoryOption.DeleteAllContents) + ShiftOSDesktop.disposeoldskindata("skinloaderapplyskin") + ShiftOSDesktop.loadcurrentskin() + ShiftOSDesktop.loadskinfiles() + ShiftOSDesktop.setupalltitlebars() + ShiftOSDesktop.setcolours() + ShiftOSDesktop.setupdesktop() + ShiftOSDesktop.setupskins() + ShiftOSDesktop.Invalidate() + End If + Else + moveitemignore = False + End If + + End Sub + + Private Sub btnAddSkin_Click(sender As Object, e As EventArgs) Handles btnAddSkin.Click + File_Opener.Show() + File_Opener.openingprogram = "skinshifter" + File_Opener.openextention = ".skn" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Private Sub tmrchangeskin_Tick(sender As Object, e As EventArgs) Handles tmrchangeskin.Tick + If timetillchange = 0 Then + If lbskinlist.SelectedIndex < lbskinlist.Items.Count - 1 Then + lbskinlist.SelectedIndex = lbskinlist.SelectedIndex + 1 + Else + lbskinlist.SelectedIndex = 0 + End If + timetillchange = txtShift.Text + lblsecondstillshift.Text = timetillchange + Else + timetillchange = timetillchange - 1 + lblsecondstillshift.Text = timetillchange + End If + End Sub + + Private Sub btnStartStop_Click(sender As Object, e As EventArgs) Handles btnStartStop.Click + Try + If btnStartStop.Text = "Enable" Then + timetillchange = txtShift.Text + lblsecondstillshift.Text = timetillchange + tmrchangeskin.Start() + btnStartStop.Text = "Disable" + Else + tmrchangeskin.Stop() + timetillchange = txtShift.Text + lblsecondstillshift.Text = timetillchange + btnStartStop.Text = "Enable" + End If + Catch + End Try + End Sub + + Private Sub txtShift_TextChanged(sender As Object, e As EventArgs) Handles txtShift.TextChanged + Try + timetillchange = txtShift.Text + lblsecondstillshift.Text = timetillchange + Catch + End Try + End Sub + + Private Sub btnmoveup_Click(sender As Object, e As EventArgs) Handles btnmoveup.Click + If lbskinlist.SelectedIndex > 0 Then + moveitemignore = True + Dim I = lbskinlist.SelectedIndex - 1 + moveitemignore = True + lbskinlist.Items.Insert(I, lbskinlist.SelectedItem) + moveitemignore = True + lbskinlist.Items.RemoveAt(lbskinlist.SelectedIndex) + moveitemignore = True + lbskinlist.SelectedIndex = I + End If + End Sub + + Private Sub btnmovedown_Click(sender As Object, e As EventArgs) Handles btnmovedown.Click + If lbskinlist.SelectedIndex < lbskinlist.Items.Count - 1 Then + moveitemignore = True +18: Dim I = lbskinlist.SelectedIndex + 2 + moveitemignore = True +19: lbskinlist.Items.Insert(I, lbskinlist.SelectedItem) + moveitemignore = True +20: lbskinlist.Items.RemoveAt(lbskinlist.SelectedIndex) + moveitemignore = True +21: lbskinlist.SelectedIndex = I - 1 +22: End If + End Sub +End Class \ No newline at end of file diff --git a/TanColorScheme.vb b/TanColorScheme.vb new file mode 100644 index 0000000..0ec943a --- /dev/null +++ b/TanColorScheme.vb @@ -0,0 +1,308 @@ +Public Class TanColorScheme + Inherits ProfessionalColorTable + +Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property ButtonPressedBorder() As +System.Drawing.Color + Get + Return Color.FromArgb(&H31, &H6A, &HC5) + End Get + End Property + +Public Overrides ReadOnly Property ButtonPressedGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&H98, &HB5, &HE2) + End Get + End Property + +Public Overrides ReadOnly Property ButtonPressedGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&H98, &HB5, &HE2) + End Get + End Property + +Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As +System.Drawing.Color + Get + Return Color.FromArgb(&H98, &HB5, &HE2) + End Get + End Property + +Public Overrides ReadOnly Property ButtonSelectedBorder() As +System.Drawing.Color + Get + Return MyBase.ButtonSelectedBorder + End Get + End Property + +Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property CheckBackground() As +System.Drawing.Color + Get + Return Color.FromArgb(&HE1, 230, &HE8) + End Get + End Property + +Public Overrides ReadOnly Property CheckPressedBackground() As +System.Drawing.Color + Get + Return Color.FromArgb(&H31, &H6A, &HC5) + End Get + End Property + +Public Overrides ReadOnly Property CheckSelectedBackground() As +System.Drawing.Color + Get + Return Color.FromArgb(&H31, &H6A, &HC5) + End Get + End Property + + Public Overrides ReadOnly Property GripDark() As System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 190, &HB3) + End Get + End Property + + Public Overrides ReadOnly Property GripLight() As System.Drawing.Color + Get + Return Color.FromArgb(&HFF, &HFF, &HFF) + End Get + End Property + +Public Overrides ReadOnly Property ImageMarginGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HFE, &HFE, &HFB) + End Get + End Property + +Public Overrides ReadOnly Property ImageMarginGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&HBD, &HBD, &HA3) + End Get + End Property + +Public Overrides ReadOnly Property ImageMarginGradientMiddle() As +System.Drawing.Color + Get + Return Color.FromArgb(&HEC, &HE7, &HE0) + End Get + End Property + +Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HF7, &HF6, &HEF) + End Get + End Property + +Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(230, &HE3, 210) + End Get + End Property + + Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() +As System.Drawing.Color +Get +Return Color.FromArgb(&HF2, 240, &HE4) +End Get +End Property + + Public Overrides ReadOnly Property MenuBorder() As System.Drawing.Color + Get + Return Color.FromArgb(&H8A, &H86, &H7A) + End Get + End Property + +Public Overrides ReadOnly Property MenuItemBorder() As +System.Drawing.Color + Get + Return Color.FromArgb(&H31, &H6A, &HC5) + End Get + End Property + +Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As +System.Drawing.Color + Get + Return MyBase.MenuItemPressedGradientBegin + End Get + End Property + +Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As +System.Drawing.Color + Get + Return MyBase.MenuItemPressedGradientEnd + End Get + End Property + +Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As +System.Drawing.Color + Get + Return MyBase.MenuItemPressedGradientMiddle + End Get + End Property + +Public Overrides ReadOnly Property MenuItemSelected() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC1, 210, &HEE) + End Get + End Property + +Public Overrides ReadOnly Property MenuStripGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HE5, &HE5, &HD7) + End Get + End Property + +Public Overrides ReadOnly Property MenuStripGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&HF4, &HF2, &HE8) + End Get + End Property + +Public Overrides ReadOnly Property OverflowButtonGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HF3, &HF2, 240) + End Get + End Property + +Public Overrides ReadOnly Property OverflowButtonGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&H92, &H92, &H76) + End Get + End Property + +Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As +System.Drawing.Color + Get + Return Color.FromArgb(&HE2, &HE1, &HDB) + End Get + End Property + +Public Overrides ReadOnly Property RaftingContainerGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HE5, &HE5, &HD7) + End Get + End Property + +Public Overrides ReadOnly Property RaftingContainerGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(&HF4, &HF2, &HE8) + End Get + End Property + +Public Overrides ReadOnly Property SeparatorDark() As +System.Drawing.Color + Get + Return Color.FromArgb(&HC5, &HC2, &HB8) + End Get + End Property + +Public Overrides ReadOnly Property SeparatorLight() As +System.Drawing.Color + Get + Return Color.FromArgb(&HFF, &HFF, &HFF) + End Get + End Property + +Public Overrides ReadOnly Property ToolStripBorder() As +System.Drawing.Color + Get + Return Color.FromArgb(&HA3, &HA3, &H7C) + End Get + End Property + +Public Overrides ReadOnly Property ToolStripDropDownBackground() As +System.Drawing.Color + Get + Return Color.FromArgb(&HFC, &HFC, &HF9) + End Get + End Property + +Public Overrides ReadOnly Property ToolStripGradientBegin() As +System.Drawing.Color + Get + Return Color.FromArgb(&HF7, &HF6, &HEF) + End Get + End Property + +Public Overrides ReadOnly Property ToolStripGradientEnd() As +System.Drawing.Color + Get + Return Color.FromArgb(230, &HE3, 210) + End Get + End Property + +Public Overrides ReadOnly Property ToolStripGradientMiddle() As +System.Drawing.Color + Get + Return Color.FromArgb(&HF2, 240, &HE4) + End Get + End Property +End Class diff --git a/Terminal.Designer.vb b/Terminal.Designer.vb new file mode 100644 index 0000000..43bb373 --- /dev/null +++ b/Terminal.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class Terminal + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.txtterm = New System.Windows.Forms.TextBox() + Me.tmrfirstrun = New System.Windows.Forms.Timer(Me.components) + Me.tmrshutdown = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txtterm + ' + Me.txtterm.BackColor = System.Drawing.Color.Black + Me.txtterm.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtterm.Cursor = System.Windows.Forms.Cursors.No + Me.txtterm.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtterm.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtterm.ForeColor = System.Drawing.Color.White + Me.txtterm.Location = New System.Drawing.Point(2, 30) + Me.txtterm.Multiline = True + Me.txtterm.Name = "txtterm" + Me.txtterm.Size = New System.Drawing.Size(646, 368) + Me.txtterm.TabIndex = 0 + ' + 'tmrfirstrun + ' + Me.tmrfirstrun.Interval = 1000 + ' + 'tmrshutdown + ' + ' + 'pgcontents + ' + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(646, 368) + Me.pgcontents.TabIndex = 20 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 370) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 368) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(648, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 370) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 368) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(650, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTerminal + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(92, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Terminal" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(648, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 398) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(646, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'Terminal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(650, 400) + Me.Controls.Add(Me.txtterm) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.KeyPreview = True + Me.MinimumSize = New System.Drawing.Size(350, 200) + Me.Name = "Terminal" + Me.Text = "Terminal" + Me.TopMost = True + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtterm As System.Windows.Forms.TextBox + Friend WithEvents tmrfirstrun As System.Windows.Forms.Timer + Friend WithEvents tmrshutdown As System.Windows.Forms.Timer + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer +End Class diff --git a/Terminal.resx b/Terminal.resx new file mode 100644 index 0000000..80e6c6c --- /dev/null +++ b/Terminal.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 216, 17 + + + 432, 17 + + + 516, 17 + + + 629, 17 + + \ No newline at end of file diff --git a/Terminal.vb b/Terminal.vb new file mode 100644 index 0000000..6d44991 --- /dev/null +++ b/Terminal.vb @@ -0,0 +1,1385 @@ +Imports System.Net.Mail + +Public Class Terminal + 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 = 350 + Public minimumsizeheight As Integer = 200 + + Dim alltext As String + Dim command As String + Dim trackpos As Integer + Dim firstrun As Integer + Dim testing As Boolean = True + Dim further As Boolean = True + + + + Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load + justopened = True + setskin() + + ShiftOSDesktop.pnlpanelbuttonterminal.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonterminal, ShiftOSDesktop.tbterminalicon, ShiftOSDesktop.tbterminaltext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " + txtterm.Select(txtterm.Text.Length, 0) + txtterm.Cursor = Nothing + + 'transparancy key moved here from set skin to avoid cropped terminal bug + Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour + + If ShiftOSDesktop.terminalfullscreen = True Then + fullterminal() + Else + miniterminal() + End If + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + + '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) + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " left to " & Me.Location.ToString & Environment.NewLine + 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) + e.SuppressKeyPress = True + 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) + e.SuppressKeyPress = True + 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) + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " down to " & Me.Location.ToString & Environment.NewLine + End If + + 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() + lbtitletext.Capture = False + 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.terminalname + 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.boughtterminalicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.terminalicontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 + + + 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 + + Public Sub miniterminal() + Me.WindowState = FormWindowState.Normal + If ShiftOSDesktop.boughttitlebar = True Then + titlebar.Show() + End If + If ShiftOSDesktop.boughtwindowborders = True Then + pgright.Show() + pgleft.Show() + pgbottom.Show() + End If + If ShiftOSDesktop.boughtterminalscrollbar = True Then + txtterm.ScrollBars = ScrollBars.Vertical + End If + setuptitlebar() + setupborders() + ShiftOSDesktop.setcolours() + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + setskin() + End Sub + + Public Sub fullterminal() + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Me.WindowState = FormWindowState.Maximized + txtterm.ScrollBars = ScrollBars.None + titlebar.Hide() + pgright.Hide() + pgleft.Hide() + pgbottom.Hide() + Me.BringToFront() + End Sub + + + Private Sub ReadCommand() + command = txtterm.Lines(txtterm.Lines.Length - 1) + command = command.Replace(ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> ", "") + command = command.ToLower() + End Sub + + Private Sub txtterm_Click(sender As Object, e As EventArgs) Handles txtterm.Click, txtterm.MouseDoubleClick + txtterm.Select(txtterm.TextLength, 0) + txtterm.ScrollToCaret() + End Sub + + Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtterm.KeyDown + If e.KeyCode = Keys.T AndAlso e.Control Then + Me.Hide() + e.SuppressKeyPress = True + End If + + Select Case e.KeyCode + Case Keys.ShiftKey + trackpos = trackpos - 1 + Case Keys.Alt + trackpos = trackpos - 1 + Case Keys.CapsLock + trackpos = trackpos - 1 + Case Keys.ControlKey + trackpos = trackpos - 1 + Case Keys.LWin + trackpos = trackpos - 1 + Case Keys.RWin + trackpos = trackpos - 1 + Case Keys.Right + If txtterm.SelectionStart = txtterm.TextLength Then + trackpos = trackpos - 1 + End If + Case Keys.Left + If trackpos < 1 Then + e.SuppressKeyPress = True + trackpos = trackpos - 1 + Else + trackpos = trackpos - 2 + End If + Case Keys.Up + e.SuppressKeyPress = True + trackpos = trackpos - 1 + Case Keys.Down + e.SuppressKeyPress = True + trackpos = trackpos - 1 + End Select + + If e.KeyCode = Keys.Enter Then + e.SuppressKeyPress = True + ReadCommand() + DoCommand() + + If command = "clear" Then + txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " + txtterm.Select(txtterm.Text.Length, 0) + + Else + txtterm.Text = txtterm.Text + Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " + txtterm.Select(txtterm.Text.Length, 0) + End If + + trackpos = 0 + Else + If e.KeyCode = Keys.Back Then + Else + trackpos = trackpos + 1 + End If + End If + + If e.KeyCode = Keys.Back Then + If trackpos < 1 Then + e.SuppressKeyPress = True + Else + If txtterm.SelectedText.Length < 1 Then + trackpos = trackpos - 1 + Else + e.SuppressKeyPress = True + End If + End If + End If + + If ShiftOSDesktop.boughtautoscrollterminal = True Then + txtterm.Select(txtterm.TextLength, 0) + txtterm.ScrollToCaret() + End If + + End Sub + + Private Sub DoCommand() + + If command Like "join *" Then + coherencemode.setupwindows(command.Substring(5)) + End If + + If command Like "set username *" Then + If ShiftOSDesktop.boughtcustomusername = True Then + ShiftOSDesktop.username = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) + further = False + End If + End If + + If command Like "set osname *" Then + If ShiftOSDesktop.boughtchangeosnamecommand = True Then + ShiftOSDesktop.osname = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) + further = False + End If + End If + + If command Like "give me *" Then + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) + further = False + End If + + If ShiftOSDesktop.boughtwindowsanywhere = True Then + If command Like "move *" Then + command = command.Replace(", ", ",") + Dim coords As String() = command.Split(" ") + Dim xandy As String = coords(coords.Length - 1) + Dim spxandy() As String = xandy.Split(",") + Select Case coords(1) + Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower + Knowledge_Input.Location = New Point(spxandy(0), spxandy(1)) + Case "terminal", ShiftOSDesktop.terminalname.ToLower + Me.Location = New Point(spxandy(0), spxandy(1)) + Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower + Shiftorium.Location = New Point(spxandy(0), spxandy(1)) + Case "clock", ShiftOSDesktop.clockname.ToLower + Clock.Location = New Point(spxandy(0), spxandy(1)) + Case "shifter", ShiftOSDesktop.shiftername.ToLower + Shifter.Location = New Point(spxandy(0), spxandy(1)) + Case "colour", "color", ShiftOSDesktop.colourpickername.ToLower + Colour_Picker.Location = New Point(spxandy(0), spxandy(1)) + Case "info", "infobox" + infobox.Location = New Point(spxandy(0), spxandy(1)) + Case "pong", ShiftOSDesktop.pongname.ToLower + Pong.Location = New Point(spxandy(0), spxandy(1)) + Case "file", ShiftOSDesktop.fileskimmername.ToLower + File_Skimmer.Location = New Point(spxandy(0), spxandy(1)) + Case "textpad", ShiftOSDesktop.textpadname.ToLower + TextPad.Location = New Point(spxandy(0), spxandy(1)) + Case "fileopener", ShiftOSDesktop.fileopenername.ToLower + File_Opener.Location = New Point(spxandy(0), spxandy(1)) + Case "filesaver", ShiftOSDesktop.filesavername.ToLower + File_Saver.Location = New Point(spxandy(0), spxandy(1)) + Case "graphicpicker", "graphic", ShiftOSDesktop.graphicpickername.ToLower + Graphic_Picker.Location = New Point(spxandy(0), spxandy(1)) + Case "skinloader", "skin", ShiftOSDesktop.skinloadername.ToLower + Skin_Loader.Location = New Point(spxandy(0), spxandy(1)) + Case "artpad", "art", ShiftOSDesktop.artpadname.ToLower + ArtPad.Location = New Point(spxandy(0), spxandy(1)) + Case "calculator", "calc", ShiftOSDesktop.calculatorname.ToLower + Calculator.Location = New Point(spxandy(0), spxandy(1)) + Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower + Web_Browser.Location = New Point(spxandy(0), spxandy(1)) + Case "videoplayer", "video", ShiftOSDesktop.videoplayername.ToLower + Web_Browser.Location = New Point(spxandy(0), spxandy(1)) + Case "namechanger", "name", ShiftOSDesktop.namechangername.ToLower + Name_Changer.Location = New Point(spxandy(0), spxandy(1)) + Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower + Icon_Manager.Location = New Point(spxandy(0), spxandy(1)) + End Select + further = False + End If + End If + + If ShiftOSDesktop.boughtmultitasking = True Then + If command Like "switch to *" Then + Dim findwords() As String = command.Split(" ") + Select Case findwords(2) + Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower + Knowledge_Input.BringToFront() + Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower + Shiftorium.BringToFront() + Case "clock", ShiftOSDesktop.clockname.ToLower + Clock.BringToFront() + Case "shifter", ShiftOSDesktop.shiftername.ToLower + Shifter.BringToFront() + Case "colour", ShiftOSDesktop.colourpickername.ToLower + Colour_Picker.BringToFront() + Case "info" + infobox.BringToFront() + Case "pong", ShiftOSDesktop.pongname.ToLower + Pong.BringToFront() + Case "file", ShiftOSDesktop.fileskimmername.ToLower + File_Skimmer.BringToFront() + Case "textpad", ShiftOSDesktop.textpadname.ToLower + TextPad.BringToFront() + Case "fileopener", ShiftOSDesktop.fileopenername.ToLower + File_Opener.BringToFront() + Case "filesaver", ShiftOSDesktop.filesavername.ToLower + File_Saver.BringToFront() + Case "graphic", ShiftOSDesktop.graphicpickername.ToLower + Graphic_Picker.BringToFront() + Case "skin", ShiftOSDesktop.skinloadername.ToLower + Skin_Loader.BringToFront() + Case "artpad", ShiftOSDesktop.artpadname.ToLower + ArtPad.BringToFront() + Case "calculator", ShiftOSDesktop.calculatorname.ToLower + Calculator.BringToFront() + Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower + Web_Browser.BringToFront() + Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower + Video_Player.BringToFront() + Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower + Name_Changer.BringToFront() + Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower + Name_Changer.BringToFront() + End Select + further = False + Me.BringToFront() + End If + End If + + If ShiftOSDesktop.boughtrollupcommand = True Then + If command Like "roll *" Then + Dim findwords() As String = command.Split(" ") + Select Case findwords(1) + Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower + Knowledge_Input.rollupanddown() + Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower + Shiftorium.rollupanddown() + Case "clock", ShiftOSDesktop.clockname.ToLower + Clock.rollupanddown() + Case "shifter", ShiftOSDesktop.shiftername.ToLower + Shifter.rollupanddown() + Case "colour", ShiftOSDesktop.colourpickername.ToLower + Colour_Picker.rollupanddown() + Case "info", "infobox" + infobox.rollupanddown() + Case "pong", ShiftOSDesktop.pongname.ToLower + Pong.rollupanddown() + Case "file", ShiftOSDesktop.fileskimmername.ToLower + File_Skimmer.rollupanddown() + Case "textpad", ShiftOSDesktop.textpadname.ToLower + TextPad.rollupanddown() + Case "fileopener", ShiftOSDesktop.fileopenername.ToLower + File_Opener.rollupanddown() + Case "filesaver", ShiftOSDesktop.filesavername.ToLower + File_Saver.rollupanddown() + Case "graphic", ShiftOSDesktop.graphicpickername.ToLower + Graphic_Picker.rollupanddown() + Case "skin", ShiftOSDesktop.skinloadername.ToLower + Skin_Loader.rollupanddown() + Case "artpad", ShiftOSDesktop.artpadname.ToLower + ArtPad.rollupanddown() + Case "calculator", ShiftOSDesktop.calculatorname.ToLower + Calculator.rollupanddown() + Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower + Web_Browser.rollupanddown() + Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower + Video_Player.rollupanddown() + Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower + Name_Changer.rollupanddown() + Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower + Name_Changer.rollupanddown() + End Select + further = False + Me.BringToFront() + End If + End If + + If ShiftOSDesktop.boughtminimizecommand = True Then + If command Like "minimize *" Then + Dim findwords() As String = command.Split(" ") + Select Case findwords(1) + Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower + ShiftOSDesktop.minimizeprogram(Knowledge_Input) + Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower + ShiftOSDesktop.minimizeprogram(Shiftorium) + Case "clock", ShiftOSDesktop.clockname.ToLower + ShiftOSDesktop.minimizeprogram(Clock) + Case "shifter", ShiftOSDesktop.shiftername.ToLower + ShiftOSDesktop.minimizeprogram(Shifter) + Case "colour", ShiftOSDesktop.colourpickername.ToLower + ShiftOSDesktop.minimizeprogram(Colour_Picker) + Case "info", "infobox" + ShiftOSDesktop.minimizeprogram(infobox) + Case "pong", ShiftOSDesktop.pongname.ToLower + ShiftOSDesktop.minimizeprogram(Pong) + Case "file", ShiftOSDesktop.fileskimmername.ToLower + ShiftOSDesktop.minimizeprogram(File_Skimmer) + Case "textpad", ShiftOSDesktop.textpadname.ToLower + ShiftOSDesktop.minimizeprogram(TextPad) + Case "fileopener", ShiftOSDesktop.fileopenername.ToLower + ShiftOSDesktop.minimizeprogram(File_Opener) + Case "filesaver", ShiftOSDesktop.filesavername.ToLower + ShiftOSDesktop.minimizeprogram(File_Saver) + Case "graphic", ShiftOSDesktop.graphicpickername.ToLower + ShiftOSDesktop.minimizeprogram(Graphic_Picker) + Case "skin", ShiftOSDesktop.skinloadername.ToLower + ShiftOSDesktop.minimizeprogram(Skin_Loader) + Case "artpad", ShiftOSDesktop.artpadname.ToLower + ShiftOSDesktop.minimizeprogram(ArtPad) + Case "calculator", ShiftOSDesktop.calculatorname.ToLower + ShiftOSDesktop.minimizeprogram(Calculator) + Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower + ShiftOSDesktop.minimizeprogram(Web_Browser) + Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower + ShiftOSDesktop.minimizeprogram(Video_Player) + Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower + ShiftOSDesktop.minimizeprogram(Name_Changer) + Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower + ShiftOSDesktop.minimizeprogram(Name_Changer) + End Select + further = False + Me.BringToFront() + End If + End If + + If further = True Then + Select Case command + Case "clear" + txtterm.Text = "" + Case "time" + If ShiftOSDesktop.boughtsplitsecondtime = True Then + txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay & Environment.NewLine + Else + If ShiftOSDesktop.boughtminuteaccuracytime = True Then + If Date.Now.Hour < 12 Then + txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM" & Environment.NewLine + Else + txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM" & Environment.NewLine + End If + Else + If ShiftOSDesktop.boughtpmandam = True Then + If Date.Now.Hour < 12 Then + txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour & " AM" & Environment.NewLine + Else + txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour - 12 & " PM" & Environment.NewLine + End If + Else + If ShiftOSDesktop.boughthourspastmidnight = True Then + txtterm.Text = txtterm.Text & Environment.NewLine & "Since midnight " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60) & " hours have passed" & Environment.NewLine + Else + If ShiftOSDesktop.boughtminutespastmidnight = True Then + txtterm.Text = txtterm.Text & Environment.NewLine & "Since midnight " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60) & " minutes have passed" & Environment.NewLine + Else + If ShiftOSDesktop.boughtsecondspastmidnight = True Then + txtterm.Text = txtterm.Text & Environment.NewLine & "Since midnight " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds have passed" & Environment.NewLine + Else + wrongcommand() + End If + End If + End If + End If + End If + End If + Case "shutdown", "shut down" + ShiftOSDesktop.shutdownshiftos() + Case "save", "save game" + ShiftOSDesktop.savegame() + txtterm.Text = txtterm.Text & Environment.NewLine & "The game has been saved!" & Environment.NewLine + Case "code points" + txtterm.Text = txtterm.Text & Environment.NewLine & "You Have " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine + Case "codepoints" + txtterm.Text = txtterm.Text & Environment.NewLine & "You Have " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine + Case "fullscreen terminal", "full screen terminal" + If ShiftOSDesktop.boughtwindowedterminal = True Then + fullterminal() + ShiftOSDesktop.terminalfullscreen = True + Else + wrongcommand() + End If + Case "windowed terminal" + If ShiftOSDesktop.boughtwindowedterminal = True Then + miniterminal() + ShiftOSDesktop.terminalfullscreen = False + Else + wrongcommand() + End If + Case "open terminal" + txtterm.Text = txtterm.Text & Environment.NewLine & "Terminal is already running!" & Environment.NewLine + Case "open knowledge input", "knowledge input", "open " & ShiftOSDesktop.knowledgeinputname.ToLower, ShiftOSDesktop.knowledgeinputname.ToLower + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Knowledge_Input.Show() + Case "close knowledge input", "close " & ShiftOSDesktop.knowledgeinputname.ToLower, ShiftOSDesktop.knowledgeinputname.ToLower + Knowledge_Input.Close() + Case "open shiftorium", "shiftorium", "open " & ShiftOSDesktop.shiftoriumname.ToLower, ShiftOSDesktop.shiftoriumname.ToLower + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Shiftorium.Show() + Case "close shiftorium", "close " & ShiftOSDesktop.shiftoriumname.ToLower, ShiftOSDesktop.shiftoriumname.ToLower + Shiftorium.Close() + Case "open shifter", "shifter", "open " & ShiftOSDesktop.shiftername.ToLower, ShiftOSDesktop.shiftername.ToLower + If ShiftOSDesktop.boughtshifter = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Shifter.Show() + Else + wrongcommand() + End If + Case "close shifter", "close " & ShiftOSDesktop.shiftername.ToLower, ShiftOSDesktop.shiftername.ToLower + If ShiftOSDesktop.boughtshifter = True Then + Shifter.Close() + Else + wrongcommand() + End If + Case "open pong", "pong", "open " & ShiftOSDesktop.pongname.ToLower, ShiftOSDesktop.pongname.ToLower + If ShiftOSDesktop.boughtpong = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Pong.Show() + Else + wrongcommand() + End If + Case "close pong", "close " & ShiftOSDesktop.pongname.ToLower, ShiftOSDesktop.pongname.ToLower + If ShiftOSDesktop.boughtpong = True Then + Pong.Close() + Else + wrongcommand() + End If + Case "open file skimmer", "file skimmer", "open " & ShiftOSDesktop.fileskimmername.ToLower, ShiftOSDesktop.fileskimmername.ToLower + If ShiftOSDesktop.boughtfileskimmer = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + File_Skimmer.Show() + Else + wrongcommand() + End If + Case "close file skimmer", "close " & ShiftOSDesktop.fileskimmername.ToLower, ShiftOSDesktop.fileskimmername.ToLower + If ShiftOSDesktop.boughtfileskimmer = True Then + File_Skimmer.Close() + Else + wrongcommand() + End If + Case "close file opener", "close " & ShiftOSDesktop.fileopenername.ToLower, ShiftOSDesktop.fileopenername.ToLower + If ShiftOSDesktop.boughtfileskimmer = True Then + File_Opener.Close() + Else + wrongcommand() + End If + Case "close file saver", "close " & ShiftOSDesktop.filesavername.ToLower, ShiftOSDesktop.filesavername.ToLower + If ShiftOSDesktop.boughtfileskimmer = True Then + File_Saver.Close() + Else + wrongcommand() + End If + Case "close graphic picker", "close graphic", "close " & ShiftOSDesktop.graphicpickername.ToLower, ShiftOSDesktop.graphicpickername.ToLower + If ShiftOSDesktop.boughtfileskimmer = True Then + Graphic_Picker.Close() + Else + wrongcommand() + End If + Case "open textpad", "open text pad", "textpad", "text pad", "open " & ShiftOSDesktop.textpadname.ToLower, ShiftOSDesktop.textpadname.ToLower + If ShiftOSDesktop.boughttextpad = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + TextPad.Show() + Else + wrongcommand() + End If + Case "close textpad", "close text pad", "close " & ShiftOSDesktop.textpadname.ToLower, ShiftOSDesktop.textpadname.ToLower + If ShiftOSDesktop.boughttextpad = True Then + TextPad.Close() + Else + wrongcommand() + End If + Case "open skinloader", "open skin loader", "skin loader", "skinloader", "open " & ShiftOSDesktop.skinloadername.ToLower, ShiftOSDesktop.skinloadername.ToLower + If ShiftOSDesktop.boughtskinning = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Skin_Loader.Show() + Else + wrongcommand() + End If + Case "close skinloader", "close skin loader", "close " & ShiftOSDesktop.skinloadername.ToLower, ShiftOSDesktop.skinloadername.ToLower + If ShiftOSDesktop.boughtskinloader = True Then + Skin_Loader.Close() + Else + wrongcommand() + End If + Case "open art", "open artpad", "artpad", "open " & ShiftOSDesktop.artpadname.ToLower, ShiftOSDesktop.artpadname.ToLower + If ShiftOSDesktop.boughtartpad = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + ArtPad.Show() + Else + wrongcommand() + End If + Case "close art", "close artpad", "close " & ShiftOSDesktop.artpadname.ToLower, ShiftOSDesktop.artpadname.ToLower + If ShiftOSDesktop.boughtartpad = True Then + ArtPad.Close() + Else + wrongcommand() + End If + Case "open calc", "open calculator", "calculator", "open " & ShiftOSDesktop.calculatorname.ToLower, ShiftOSDesktop.calculatorname.ToLower + If ShiftOSDesktop.boughtcalculator = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Calculator.Show() + Else + wrongcommand() + End If + Case "close calc", "close calculator", "close " & ShiftOSDesktop.calculatorname.ToLower, ShiftOSDesktop.calculatorname.ToLower + If ShiftOSDesktop.boughtcalculator = True Then + Calculator.Close() + Else + wrongcommand() + End If + Case "open audio", "open audioplayer", "audioplayer", "audio", "open " & ShiftOSDesktop.audioplayername.ToLower, ShiftOSDesktop.audioplayername.ToLower + If ShiftOSDesktop.boughtaudioplayer = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Audio_Player.Show() + Else + wrongcommand() + End If + Case "close audio", "close audioplayer", "close " & ShiftOSDesktop.audioplayername.ToLower, ShiftOSDesktop.audioplayername.ToLower + If ShiftOSDesktop.boughtaudioplayer = True Then + Audio_Player.Close() + Else + wrongcommand() + End If + Case "open web", "open webbrowser", "open web browser", "web", "webbrowser", "web browser", "open " & ShiftOSDesktop.webbrowsername.ToLower, ShiftOSDesktop.webbrowsername.ToLower + If ShiftOSDesktop.boughtwebbrowser = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Web_Browser.Show() + Else + wrongcommand() + End If + Case "close web", "close webbrowser", "close web browser", "close " & ShiftOSDesktop.webbrowsername.ToLower, ShiftOSDesktop.webbrowsername.ToLower + If ShiftOSDesktop.boughtwebbrowser = True Then + Web_Browser.Close() + Else + wrongcommand() + End If + Case "open video", "open videoplayer", "open video player", "open " & ShiftOSDesktop.videoplayername.ToLower, ShiftOSDesktop.videoplayername.ToLower + If ShiftOSDesktop.boughtvideoplayer = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Video_Player.Show() + Else + wrongcommand() + End If + Case "close video", "close videoplayer", "close video player", "close " & ShiftOSDesktop.videoplayername.ToLower, ShiftOSDesktop.videoplayername.ToLower + If ShiftOSDesktop.boughtvideoplayer = True Then + Video_Player.Close() + Else + wrongcommand() + End If + Case "open name", "open namechanger", "open name changer", "open " & ShiftOSDesktop.namechangername.ToLower, ShiftOSDesktop.namechangername.ToLower + If ShiftOSDesktop.boughtnamechanger = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Name_Changer.Show() + Else + wrongcommand() + End If + Case "close name", "close namechanger", "close name changer", "close " & ShiftOSDesktop.namechangername.ToLower, ShiftOSDesktop.namechangername.ToLower + If ShiftOSDesktop.boughtnamechanger = True Then + Name_Changer.Close() + Else + wrongcommand() + End If + Case "open icon", "open iconmanager", "open icon manager", "open " & ShiftOSDesktop.iconmanagername.ToLower, ShiftOSDesktop.iconmanagername.ToLower + If ShiftOSDesktop.boughticonmanager = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Icon_Manager.Show() + Else + wrongcommand() + End If + Case "close icon", "close iconmanager", "close icon manager", "close " & ShiftOSDesktop.iconmanagername.ToLower, ShiftOSDesktop.iconmanagername.ToLower + If ShiftOSDesktop.boughticonmanager = True Then + Icon_Manager.Close() + Else + wrongcommand() + End If + Case "open clock", "clock", "open " & ShiftOSDesktop.clockname.ToLower, ShiftOSDesktop.clockname.ToLower + If ShiftOSDesktop.boughtclock = True Then + ShiftOSDesktop.closeeverything() + If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide() + Clock.Show() + Else + wrongcommand() + End If + Case "close clock", "close " & ShiftOSDesktop.clockname.ToLower, ShiftOSDesktop.clockname.ToLower + Clock.Close() + Case "close colourpicker", "close colour", "close color", "close color picker", "close colour picker", "close colorpicker", "close " & ShiftOSDesktop.colourpickername.ToLower, ShiftOSDesktop.colourpickername.ToLower + Colour_Picker.Close() + Case "close infobox", "close info", "close info box" + infobox.Close() + Case "close terminal", "close " & ShiftOSDesktop.terminalname.ToLower, ShiftOSDesktop.terminalname.ToLower + txtterm.Text = "" + txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " + txtterm.Select(txtterm.Text.Length, 0) + Me.Close() + Case "roll terminal" + txtterm.Text = txtterm.Text & Environment.NewLine & "Terminal has just tried to perform an illegal operation!" & Environment.NewLine + Case "programs", "program" + listprograms() + Case "unity mode on" + If ShiftOSDesktop.boughtunitymode = True Then + ShiftOSDesktop.unitymode = True + ShiftOSDesktop.setupdesktop() + Else + wrongcommand() + End If + Case "unity mode off" + If ShiftOSDesktop.boughtunitymode = True Then + ShiftOSDesktop.unitymode = False + ShiftOSDesktop.setupdesktop() + Else + wrongcommand() + End If + Case "template" + template.Show() + Case "05tray" + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + 500 + txtterm.Text = txtterm.Text & Environment.NewLine & "You have just cheated. Here is your 500 codepoints" & Environment.NewLine + 'txtterm.Text = txtterm.Text & Environment.NewLine & "Due to attempting to cheat you have lost all your codepoints... Kidding, but that command is disabled." & Environment.NewLine + Case "cherryblue" + ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + 1 + Bitnote_Wallet.logtransaction(1.0, "Credit From", "CherryBlue - The Hacker!") + Bitnote_Wallet.setupbitnotestats() + Case "pullme" + ShiftOSDesktop.boughtresizablewindows = True + txtterm.Text = txtterm.Text & Environment.NewLine & "Remember the resize windows feature is not refined yet (Test with Artpad)!" & Environment.NewLine + Case "infect zero.th1" + Viruses.zerogravity = True + Viruses.zerogravitythreatlevel = 1 + Viruses.setupzerovirus() + Case "infect zero.th2" + Viruses.zerogravity = True + Viruses.zerogravitythreatlevel = 2 + Viruses.setupzerovirus() + Case "infect zero.th3" + Viruses.zerogravity = True + Viruses.zerogravitythreatlevel = 3 + Viruses.setupzerovirus() + Case "infect zero.th4" + Viruses.zerogravity = True + Viruses.zerogravitythreatlevel = 4 + Viruses.setupzerovirus() + Case "zero.heal" + Viruses.removezerovirus() + Case "infect mousetrap.th1" + Viruses.mousetrap = True + Viruses.mousetrapthreatlevel = 1 + Viruses.setupmousetrapvirus() + Case "infect mousetrap.th2" + Viruses.mousetrap = True + Viruses.mousetrapthreatlevel = 2 + Viruses.setupmousetrapvirus() + Case "infect mousetrap.th3" + Viruses.mousetrap = True + Viruses.mousetrapthreatlevel = 3 + Viruses.setupmousetrapvirus() + Case "infect mousetrap.th4" + Viruses.mousetrap = True + Viruses.mousetrapthreatlevel = 4 + Viruses.setupmousetrapvirus() + Case "mousetrap.heal" + Viruses.removemousetrapvirus() + Case "infect beeper.th1" + Viruses.beeper = True + Viruses.beeperthreatlevel = 1 + Viruses.setupbeepervirus() + Case "infect beeper.th2" + Viruses.beeper = True + Viruses.beeperthreatlevel = 2 + Viruses.setupbeepervirus() + Case "infect beeper.th3" + Viruses.beeper = True + Viruses.beeperthreatlevel = 3 + Viruses.setupbeepervirus() + Case "infect beeper.th4" + Viruses.beeper = True + Viruses.beeperthreatlevel = 4 + Viruses.setupbeepervirus() + Case "beeper.heal" + Viruses.removebeepervirus() + Case "help" + txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine & ShiftOSDesktop.osname & " Terminal Help:" & _ + Environment.NewLine & Environment.NewLine + txtterm.Text = txtterm.Text & "Tips: " & Environment.NewLine + txtterm.Text = txtterm.Text & "- Click on the desktop then press Ctrl + t to bring up the terminal (only works if you click on the desktop first)!" & Environment.NewLine + txtterm.Text = txtterm.Text & "- The terminal is not case sensitive so using or not using capital letters does not make a difference." & Environment.NewLine + txtterm.Text = txtterm.Text & "- " & ShiftOSDesktop.osname & " saves progress upon shutdown so feel free to open the terminal and type ""Shutdown"" anytime you like." & Environment.NewLine + txtterm.Text = txtterm.Text & "- This guide will evolve as you buy upgrades for " & ShiftOSDesktop.osname & " to help you understand newly unlocked features." & Environment.NewLine + txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine + txtterm.Text = txtterm.Text & "Terminal Commands:" & Environment.NewLine + txtterm.Text = txtterm.Text & "'Programs' - Lists all programs on your computer." & Environment.NewLine + txtterm.Text = txtterm.Text & "'Open [insert program name here]' - Opens the specified program and closes all others." & Environment.NewLine + txtterm.Text = txtterm.Text & "'Close [insert program name here]' - Closes the specified program. For example 'close knowledge input'." & Environment.NewLine + txtterm.Text = txtterm.Text & "'Code Points' - Shows the amount of codepoints you have." & Environment.NewLine + If ShiftOSDesktop.boughtsplitsecondtime = True Then + txtterm.Text = txtterm.Text & "'Time' - Shows the time with split second accuracy." & Environment.NewLine + Else + If ShiftOSDesktop.boughtminuteaccuracytime = True Then + txtterm.Text = txtterm.Text & "'Time' - Shows the time with minute accuracy." & Environment.NewLine + Else + If ShiftOSDesktop.boughtpmandam = True Then + txtterm.Text = txtterm.Text & "'Time' - Shows the time with hour accuracy." & Environment.NewLine + Else + If ShiftOSDesktop.boughthourspastmidnight = True Then + txtterm.Text = txtterm.Text & "'Time' - Shows the amount of hours that have passed since midnight." & Environment.NewLine + Else + If ShiftOSDesktop.boughtminutespastmidnight = True Then + txtterm.Text = txtterm.Text & "'Time' - Shows the amount of minutes that have passed since midnight." & Environment.NewLine + Else + If ShiftOSDesktop.boughtsecondspastmidnight = True Then + txtterm.Text = txtterm.Text & "'Time' - Shows the amount of seconds that have passed since midnight." & Environment.NewLine + End If + End If + End If + End If + End If + End If + If ShiftOSDesktop.boughtcustomusername = True Then + txtterm.Text = txtterm.Text & "'Set Username [insert name here]' - Sets the system username to anything (e.g. Set Username hacker)." & Environment.NewLine + End If + If ShiftOSDesktop.boughtmultitasking = True Then + txtterm.Text = txtterm.Text & "'Switch To [insert program here]' - Brings the specified window to the front of the screen (e.g. Switch To Shiftorium)." & Environment.NewLine + End If + If ShiftOSDesktop.boughtwindowsanywhere = True Then + txtterm.Text = txtterm.Text & "'Move [insert program here] to [x-coordinate, y-coodinate]' - Moves the specified window to the chosen point (e.g. move shiftorium to 120, 300)." & Environment.NewLine + End If + If ShiftOSDesktop.boughtwindowedterminal = True Then + txtterm.Text = txtterm.Text & "'Windowed Terminal' - Turns the terminal into a normal windowed application." & Environment.NewLine + txtterm.Text = txtterm.Text & "'Fullscreen Terminal' - Turns the terminal into a fullscreen application." & Environment.NewLine + End If + If ShiftOSDesktop.boughtrollupcommand = True Then + txtterm.Text = txtterm.Text & "'Roll [insert program here]' - Rolls up a window to it's titlebar or rolls a window down if it's already rolled up." & Environment.NewLine + End If + txtterm.Text = txtterm.Text & "'Clear' - Removes all text displayed on the terminal." & Environment.NewLine + txtterm.Text = txtterm.Text & "'Help' - Shows commands used in terminal and " & ShiftOSDesktop.osname & " tips." & Environment.NewLine + txtterm.Text = txtterm.Text & "'Save' - Saves all data. Note that data will automatically be saved when you shutdown " & ShiftOSDesktop.osname & "" & Environment.NewLine + txtterm.Text = txtterm.Text & "'Shutdown' - Turns off computer safely and saves all data." & Environment.NewLine + txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine + txtterm.Text = txtterm.Text & "" & ShiftOSDesktop.osname & " Usage Tips:" & Environment.NewLine + If ShiftOSDesktop.boughttitlebar = False Then + txtterm.Text = txtterm.Text & "- Open programs have no title bar." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Open programs have a title bar that may have useful features" & Environment.NewLine + End If + If ShiftOSDesktop.boughtwindowborders = False Then + txtterm.Text = txtterm.Text & "- Open programs have no borders making them difficult to distinguish between other open programs." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Open programs have borders making them easy to distinguish between other open programs." & Environment.NewLine + End If + If ShiftOSDesktop.boughtdesktoppanel = True Then + txtterm.Text = txtterm.Text & "- Programs that don't open full screen will be centred on the desktop." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Programs that don't fit full screen will be centred with a black background." & Environment.NewLine + End If + If ShiftOSDesktop.boughtwindowedterminal = True Then + txtterm.Text = txtterm.Text & "- Terminal can run windowed or full screen." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Terminal runs full screen." & Environment.NewLine + End If + If ShiftOSDesktop.boughtmultitasking = False Then + txtterm.Text = txtterm.Text & "- Only one program can be open at a time (excluding terminal) and can not be moved around the screen." & Environment.NewLine + End If + If ShiftOSDesktop.boughtanycolour4 Then + txtterm.Text = txtterm.Text & "- The screen can display the full range of 16,777,216 RGB colours." & Environment.NewLine + Else + If ShiftOSDesktop.boughtgray4 = True Then + txtterm.Text = txtterm.Text & "- The screen can display all shades of gray. It can also display: " + If ShiftOSDesktop.boughtpurple = True Then txtterm.Text = txtterm.Text & "purple, " + If ShiftOSDesktop.boughtblue = True Then txtterm.Text = txtterm.Text & "blue, " + If ShiftOSDesktop.boughtgreen = True Then txtterm.Text = txtterm.Text & "green, " + If ShiftOSDesktop.boughtyellow = True Then txtterm.Text = txtterm.Text & "yellow, " + If ShiftOSDesktop.boughtorange = True Then txtterm.Text = txtterm.Text & "orange, " + If ShiftOSDesktop.boughtbrown = True Then txtterm.Text = txtterm.Text & "brown, " + If ShiftOSDesktop.boughtred = True Then txtterm.Text = txtterm.Text & "red, " + If ShiftOSDesktop.boughtpink = True Then txtterm.Text = txtterm.Text & "pink, " + txtterm.Text = txtterm.Text & " and nothing else" & Environment.NewLine + Else + If ShiftOSDesktop.boughtgray = True Then + txtterm.Text = txtterm.Text & "- Only Black, White and Gray can be displayed on screen, no program can use any other colour." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Only Black and White can be displayed on screen, no program can use any other colour." & Environment.NewLine + End If + End If + End If + If ShiftOSDesktop.boughtapplaunchermenu = True Then + txtterm.Text = txtterm.Text & "- Applications can be opened from the application launcher on the desktop panel." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Applications can be opened by typing ""open (program name)"" in the terminal." & Environment.NewLine + End If + If ShiftOSDesktop.boughtclosebutton = True Then + txtterm.Text = txtterm.Text & "- Applications can be closed by clicking the close button in their title bar." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Applications can be closed by typing ""close (program name)"" in the terminal." & Environment.NewLine + End If + If ShiftOSDesktop.boughtmovablewindows = True Then + If ShiftOSDesktop.boughtdraggablewindows = True Then + txtterm.Text = txtterm.Text & "- Windows can be dragged around the screen by left clicking and holding a window by it's titlebar." & Environment.NewLine + Else + txtterm.Text = txtterm.Text & "- Windows can be moved around the screen by holding Ctrl and pressing the wasd keys." & Environment.NewLine + End If + End If + + txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine + txtterm.Text = txtterm.Text & "CodePoints:" & Environment.NewLine + txtterm.Text = txtterm.Text & "- Codepoints can be earned by performing certain tasks in various programs." & Environment.NewLine + txtterm.Text = txtterm.Text & "- Codepoints can be spent on GUI upgrades and new programs." & Environment.NewLine + txtterm.Text = txtterm.Text & "- Upgrades can be bought in the 'Shiftorium' Program." & Environment.NewLine + txtterm.Text = txtterm.Text & "- You can earn codepoints by playing knowledge input." & Environment.NewLine + If ShiftOSDesktop.boughtshifter = True Then + txtterm.Text = txtterm.Text & "- You can earn codepoints by customizing " & ShiftOSDesktop.osname & " in the 'Shifter' program." & Environment.NewLine + End If + If ShiftOSDesktop.boughtpong = True Then + txtterm.Text = txtterm.Text & "- You can earn heaps of codepoints playing pong if you cash out on a high level." & Environment.NewLine + End If + Case Else + wrongcommand() + End Select + End If + + further = True + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Typed Command In Terminal: " & command & Environment.NewLine + End Sub + + Private Sub wrongcommand() + txtterm.Text = txtterm.Text & Environment.NewLine & "Command not recognized - Type 'help' for a list of commands!" & Environment.NewLine + End Sub + + Private Sub listprograms() + txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine & "Programs Currently Installed:" & Environment.NewLine & _ + ShiftOSDesktop.terminalname & " - A text based command-line interface that allows you to type commands to run programs and manage your computer." & Environment.NewLine & _ + ShiftOSDesktop.knowledgeinputname & " - A game that rewards Code Points when you list enough words within a category such as fruits." & Environment.NewLine & _ + ShiftOSDesktop.shiftoriumname & " - A program that allows you to spend your codepoints on a range of upgrades for " & ShiftOSDesktop.osname & "." & Environment.NewLine + If ShiftOSDesktop.boughtclock = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.clockname & " - An application that displays the time." & Environment.NewLine + End If + If ShiftOSDesktop.boughtshifter = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.shiftername & " - A settings manager that allows you to modify the appearance of " & ShiftOSDesktop.osname & "" & Environment.NewLine + End If + If ShiftOSDesktop.boughtshifter = True Then + txtterm.Text = txtterm.Text & "Infobox - A small box with a message that pops up every now and then to guide you." & Environment.NewLine + End If + If ShiftOSDesktop.boughtshiftdesktop = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.colourpickername & " - A colour manager that allows you to access a range of colours within other programs" & Environment.NewLine + End If + If ShiftOSDesktop.boughtfileskimmer = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.fileskimmername & " - A file manager that allows you to skim through the folders and files on your hard drive." & Environment.NewLine + End If + If ShiftOSDesktop.boughttextpad = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.textpadname & " - A simple text editor that allows you to write basic text files." & Environment.NewLine + End If + If ShiftOSDesktop.boughtpong = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.pongname & " - A game that simulates table tennis that rewards you more codepoints for surviving longer." & Environment.NewLine + End If + If ShiftOSDesktop.boughtskinning = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.skinloadername & " - A program that allows you to load and save skins you have made with the Shifter." & Environment.NewLine + End If + If ShiftOSDesktop.boughtartpad = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.artpadname & " - A bitmap graphics editor that allows you to draw your own images." & Environment.NewLine + End If + If ShiftOSDesktop.boughtcalculator = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.calculatorname & " - A simple calculator application that allows you to perform basic mathematical calculations." & Environment.NewLine + End If + If ShiftOSDesktop.boughtaudioplayer = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.audioplayername & " - A basic application that allows you to load up .mp3 files and output the audio through your speakers." & Environment.NewLine + End If + If ShiftOSDesktop.boughtwebbrowser = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.webbrowsername & " - An application that allows you to access the world wide web also known as the international network (internet)." & Environment.NewLine + End If + If ShiftOSDesktop.boughtvideoplayer = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.videoplayername & " - A simple program that allows you load and watch video files on your pc." & Environment.NewLine + End If + If ShiftOSDesktop.boughtnamechanger = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.namechangername & " - A system modification tool that allows you to alter the names of the programs installed on your pc." & Environment.NewLine + End If + If ShiftOSDesktop.boughticonmanager = True Then + txtterm.Text = txtterm.Text & ShiftOSDesktop.iconmanagername & " - A tool that allows you to modify the icon images and their sizes that are displayed next to programs." & Environment.NewLine + End If + End Sub + + + Private Sub tmrfirstrun_Tick(sender As Object, e As EventArgs) Handles tmrfirstrun.Tick + Select Case firstrun + Case 1 + txtterm.Text = txtterm.Text + "Installation Successfull" & Environment.NewLine + + Case 2 + txtterm.Text = txtterm.Text + "IP 199.108.232.1 Connecting..." & Environment.NewLine & "User@" & ShiftOSDesktop.osname & " $> " + My.Computer.Audio.Play(My.Resources.dial_up_modem_02, AudioPlayMode.Background) + Case 12 + txtterm.Text = txtterm.Text + "IP 199.108.232.1 Connected!" & Environment.NewLine & "User@" & ShiftOSDesktop.osname & " $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + + For i = 0 To 127 + ShiftOSDesktop.artpadcolourpallets(i) = Color.FromArgb(-16777216) + Next + Case 15 + txtterm.Text = txtterm.Text + "DevX: Hi, my name is DevX and you are now using an early version of my operating system ""ShiftOS""." & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 22 + txtterm.Text = txtterm.Text + "DevX: Currently the terminal is open and I am using it to communicate with you remotely." & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 28 + txtterm.Text = txtterm.Text + "DevX: ShiftOS is going to be the most revolutionary operating system in the world that will run on every electronic device you can think of." & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 36 + txtterm.Text = txtterm.Text + "DevX: I can't tell you much about my future plans right now but if you can help me then I may tell you more in future" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 44 + txtterm.Text = txtterm.Text + "DevX: ShiftOS is barely usable in it's current state so I need you to help me evolve it using codepoints" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 50 + txtterm.Text = txtterm.Text + "DevX: Once you acquire codepoints you can use them to upgrade certain components of ShiftOS or add new software" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 59 + txtterm.Text = txtterm.Text + "DevX: I'll close the terminal now and send you to the blank ShiftOS desktop" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 65 + txtterm.Text = txtterm.Text + "DevX: You can open and close the terminal at any time by pressing CTRL + T" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 70 + txtterm.Text = txtterm.Text + "DevX: Once you are on the desktop open the terminal, type ""help"" and then press enter for a guide on using ShiftOS" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 80 + txtterm.Text = txtterm.Text + "DevX: Gotta run now but I'll contact you soon to see how you are going with evolving ShiftOS for me while I... Work on something else" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 89 + txtterm.Text = txtterm.Text + "DevX: Remember to always click the black desktop first and then press press CTRL + T to open the terminal otherwise the terminal won't open!" & Environment.NewLine & "User@ShiftOS $> " + My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background) + Case 94 + My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background) + txtterm.Text = "User@" & ShiftOSDesktop.osname & " $> " + tmrfirstrun.Stop() + Me.Close() + End Select + firstrun = firstrun + 1 + txtterm.SelectionStart = txtterm.TextLength + End Sub + + Private Sub tmrshutdown_Tick(sender As Object, e As EventArgs) Handles tmrshutdown.Tick + ShiftOSDesktop.Close() + Me.Close() + tmrshutdown.Stop() + End Sub +End Class \ No newline at end of file diff --git a/TextPad.Designer.vb b/TextPad.Designer.vb new file mode 100644 index 0000000..21eec4c --- /dev/null +++ b/TextPad.Designer.vb @@ -0,0 +1,358 @@ + _ +Partial Class TextPad + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(TextPad)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.txtuserinput = New System.Windows.Forms.TextBox() + Me.pnlbreak = New System.Windows.Forms.Panel() + Me.pnloptions = New System.Windows.Forms.Panel() + Me.btnsave = New System.Windows.Forms.Button() + Me.btnopen = New System.Windows.Forms.Button() + Me.btnnew = New System.Windows.Forms.Button() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.tmrcodepointcooldown = New System.Windows.Forms.Timer(Me.components) + Me.tmrshowearnedcodepoints = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents.SuspendLayout() + Me.pnloptions.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.Controls.Add(Me.txtuserinput) + Me.pgcontents.Controls.Add(Me.pnlbreak) + Me.pgcontents.Controls.Add(Me.pnloptions) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(526, 298) + Me.pgcontents.TabIndex = 20 + ' + 'txtuserinput + ' + Me.txtuserinput.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtuserinput.BackColor = System.Drawing.Color.White + Me.txtuserinput.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtuserinput.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtuserinput.ForeColor = System.Drawing.Color.Black + Me.txtuserinput.Location = New System.Drawing.Point(4, 2) + Me.txtuserinput.Multiline = True + Me.txtuserinput.Name = "txtuserinput" + Me.txtuserinput.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txtuserinput.Size = New System.Drawing.Size(524, 240) + Me.txtuserinput.TabIndex = 0 + ' + 'pnlbreak + ' + Me.pnlbreak.BackColor = System.Drawing.Color.White + Me.pnlbreak.BackgroundImage = Global.ShiftOS.My.Resources.Resources.uparrow + Me.pnlbreak.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.pnlbreak.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlbreak.ForeColor = System.Drawing.Color.Black + Me.pnlbreak.Location = New System.Drawing.Point(0, 245) + Me.pnlbreak.Name = "pnlbreak" + Me.pnlbreak.Size = New System.Drawing.Size(526, 15) + Me.pnlbreak.TabIndex = 2 + ' + 'pnloptions + ' + Me.pnloptions.BackColor = System.Drawing.Color.White + Me.pnloptions.Controls.Add(Me.btnsave) + Me.pnloptions.Controls.Add(Me.btnopen) + Me.pnloptions.Controls.Add(Me.btnnew) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 260) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(526, 38) + Me.pnloptions.TabIndex = 1 + Me.pnloptions.Visible = False + ' + 'btnsave + ' + Me.btnsave.BackColor = System.Drawing.Color.White + Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnsave.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnsave.Image = Global.ShiftOS.My.Resources.Resources.saveicon + Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsave.Location = New System.Drawing.Point(168, 4) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(76, 31) + Me.btnsave.TabIndex = 2 + Me.btnsave.Text = "Save" + Me.btnsave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsave.UseVisualStyleBackColor = False + ' + 'btnopen + ' + Me.btnopen.BackColor = System.Drawing.Color.White + Me.btnopen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnopen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnopen.Image = Global.ShiftOS.My.Resources.Resources.openicon + Me.btnopen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnopen.Location = New System.Drawing.Point(86, 4) + Me.btnopen.Name = "btnopen" + Me.btnopen.Size = New System.Drawing.Size(76, 31) + Me.btnopen.TabIndex = 1 + Me.btnopen.Text = "Open" + Me.btnopen.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnopen.UseVisualStyleBackColor = False + ' + 'btnnew + ' + Me.btnnew.BackColor = System.Drawing.Color.White + Me.btnnew.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnnew.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnnew.Image = CType(resources.GetObject("btnnew.Image"), System.Drawing.Image) + Me.btnnew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnnew.Location = New System.Drawing.Point(4, 4) + Me.btnnew.Name = "btnnew" + Me.btnnew.Size = New System.Drawing.Size(76, 31) + Me.btnnew.TabIndex = 0 + Me.btnnew.Text = "New" + Me.btnnew.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnnew.UseVisualStyleBackColor = False + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 300) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 298) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(528, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 300) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 298) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(530, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 23 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(82, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "TextPad" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(528, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 328) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(526, 2) + Me.pgbottom.TabIndex = 23 + ' + 'tmrcodepointcooldown + ' + Me.tmrcodepointcooldown.Interval = 10000 + ' + 'tmrshowearnedcodepoints + ' + Me.tmrshowearnedcodepoints.Interval = 3000 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'TextPad + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(530, 330) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(230, 230) + Me.Name = "TextPad" + Me.Text = "TextPad" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.pnloptions.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents txtuserinput As System.Windows.Forms.TextBox + Friend WithEvents pnloptions As System.Windows.Forms.Panel + Friend WithEvents btnnew As System.Windows.Forms.Button + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents btnopen As System.Windows.Forms.Button + Friend WithEvents pnlbreak As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents tmrcodepointcooldown As System.Windows.Forms.Timer + Friend WithEvents tmrshowearnedcodepoints As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer +End Class diff --git a/TextPad.resx b/TextPad.resx new file mode 100644 index 0000000..448bc23 --- /dev/null +++ b/TextPad.resx @@ -0,0 +1,945 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAAYCAYAAAAPtVbGAAAABHNCSVQICAgIfAhkiAAAAAFzUkdCAK7O + HOkAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAAsMAAALDAE/QCLIAAAAHHRFWHRTb2Z0d2FyZQBBZG9i + ZSBGaXJld29ya3MgQ1M1cbXjNgAAABZ0RVh0Q3JlYXRpb24gVGltZQAwMy8wMS8xNIn/b8AAAADwcHJW + V3ic7dvBDYJAEIXht53Ygp3YggfjlQotwGbswDXcTADBALtv2P8le+Ew3+yQSbjwfD9e6tTlnCXlaunx + f49rUkqDc/REf38qHHxrP62Nu6/hPjZ1/wj+XI2pLGkCv66vBfu32v9RpMj98ev7E4Va91Vq/0zvX9Qf + qYZ/XH+8ocHT3fZviV/7/vj47F+788fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx9/f3zb4 + gfzdg+/lfyc1+P/mFnGZm0sf0eIyN5c+osVlbi59RIvL3Fz6KJmLrrrrppPOM18H03GZm0sfkfIB+C6t + LCI1u9UAAABIbWtCRvreyv4AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmkM6EAADvgbWtUU3ic7V1Zd9tGlman4ziStzg9p/thXnTO + zJx5ihsrCT6KpCipo4VNULbsFx8SJGJOvLVsKXHr4L/PXQpbsQACECVRMeJuFQmgCoXv3vruUlXg4c+d + i8vnQ3d+OQ6eDw/nl3rQH3YTxfCfR/NLUx/P2s3mJDg96PqXWvCSixf7Pf/SsIO9/RGUVjDccf3LlhEM + 3ZM5nO7sQgu++C8YHBxcXHYG8Ke7Pfp02dhoTBpe43Vj0Jg13sOneeNtsH90CGc24cx7OKM3foKz88bv + cMXbYNg7nmCj20fU9jZ02Zw5Qae3j93sHELffSjoSTruDl3k9umcu0dF54AOdn6monskGtjp0/fhiC7q + d+hbf0jFER90B/PLdjPojPjkiFsfuXyTQ26Pi/1t7OUR9koLesf6/NKBwsBmescmFX04aEBhcGFiERRC + 5m8qZBpbjW04+hm+/wSf3kI5bnyCM9ObxEy/Imb6dWH2QGC22zgDXD423sC5z41ZLjYWYzPLwUZTYuN5 + KWy0HGw8h7ExjdLo6BbDM2Z4xgyPw/A4DI8TuINXcJdJ4LqiHBwDavYYDogPxQB8KgDsNj6Acn0AGEG1 + QOmSVybBhIYJTcPOQ3NcAE1J0/LQlDRtvNrRSRA2mwoI3UGHz7hcJiH9XkDaofE4b3gC0CcCUBfA9EEX + txpD+HQOx6ZLR60SS923VjtuTa/iuB2XHbdZGD0UGO3B8TNStwM4+/66xm0JO1ACG+16sHmygM0V9WfF + lvL2EXq4MMIqa488tsrozy2PrZDSe4TOG9INxucHgU/iDH1DLZoAyefjZKwpBxk3hNMIRt0cPIm7ipO5 + cpw2Ipw+wGj7fINWLNcn8KyKQ01jaDSGRmNoNIZGY2i0gtA8UapQTFh3UYH0lSvQYyVKwsCVx+jWTX4e + QjYjZDNC9pX0aA/KceOi8eVOOo16OpyxGSabYRozTGOGKR2sPBQwbcMQOgPr3oG/5wiLAOt7AVaxYYYd + T+DTtBggOr8UIMfK4SOK7RIQTa/oGRmMkMEIWYyQxQhZHPChWFMRHz4GhStwoAyGYdw8AhX7HTj9nAO/ + fCSVozEfSL0toDQmecGzDGWp8LkymEa7GJiPBZhdULi3lIL5JUo3fJGU8p8A5RyvSkFp2YylPgnzM1Y6 + QaMxmF4elv64iJUknU1A2RRmEmuXs5OGUxhK0xFhtKlPYyzLYriRGNjv4POHxof8JJcAUTcLBzy6ZpV3 + NWyNISRSRQz9vAzEakCsqn9qUmxNGTrHY+RmK7KrWp5dNSr6Z8UgKwvQdwKgF8Bzn5XgtCS1kixqXqSI + VVP4GMu1qnKoWFSlOiJB2KlEaOFgHMLZCQ3G97kqpbdXq1O3gVkSowcRRm/IUfUAgXGUNg3R6ZLdRLrK + d9IkndINT6lVElm1vPIQWSJXOhYYmVOrsO2szvidMHMqaLI8kgMirs/LZ4MkJH2rAOv7IeujP1EQyMhw + CiDJJ1k9jgifG3ojaDnZLQk/ILLsl4QfhqUhvp9OmJWBlxySpfEEqXNpfGfCqmJlBJiy/CsFeAi4GrMZ + YyZ7JPmYVXGQ1YaDZkqyofOM8mM8co9tg6FjDIthp88Km49I8QxfGch2yWp8IdtQJTZLh2YUIlTMWBcZ + yIYjXGAKSgqiZRoqtJqMVpPRavJQZgLEDxNfGspoh4d7JXC8H1nfcePXJZlIh1FsM4rk/ydQ1K6KosUo + soopYcQ5QcTRyMHRFlk3cBM4XdIWSArFawrNa1pZYEYzcyGYvnqOM1spRzQ97DV+LTOKC2llsdBMrZY0 + mNFQT1bOf2RgaAyHQA6TloZtT7Z6hgzZp4UIONEywtS4pKKM6vvVTkwVzBtoq1mQoIazuTDl3hEoup3F + KfZ8sJIp0DMY0VuNQ/Fp1jgrMrrLaKNuz4rkr9R+43WCx+mrxXikGHZ7FKe8EfHKG/IVz5SLE8io0ljW + UtzIpniBG5VhCXk8RRME42vFrjhUYR75IIIoW9HksNdTZveMnAAudvsqxCfXpmdJUxEHJ+Gw1Z1ZCs/v + BJ7HijUxmDRFnxAn4V2aEhyLCbD8ITtWutAFvBr0VXMye96YkTSERfYMyYOeCi+QvfUlNgTYkvF0BKAO + I+qJpUaewNRzZIuMH4bhh8VFM8PoQ+hCDobC6gyHYRDjLjrkKlH8Re2Gi4z2nCLGZTO1rYqrIgqZHuEd + +WMpRSj02pqkXCNLpdhNSy0IW8xJ2mJSEsp03poN+ZDstusOhR0X39Ge6z4jrftLgd5M6HwxWMcVYSU/ + ZxmspuR0hk5SGIQTLy24nHqBQAeP9gXafUablJmw2yZJkk7jsi/E0GoWxvBBFGffAFeY00JcIUWMEVXk + prAzXHdLuO4WI2l6jCSVJpWEJA95JS2QA4AaS+gOGe2iXLAZwfuZXHxcEfWpiO8Uzg+Ec3/6eHbVuT+h + prakpmmjhv6oS6uus8ENB39RcEPgdD9y2QlAyXV/JPB7QWo4E+kNWuApBUXFJpmlub/IkSo2z4xpipI+ + fKSopOdXSm0ol85Gebc4WCfnNPwwPE5grTHW0grQ5RiXCZF8oat+Wlf98YoY9aquqhpbQxVysrOVdBCi + SFOe2iqup8WCd8NRpuAoalqhloaxuxnm3+ziSqr2Y00VkLT0OGtxsir3MRS0+KHxTlJBXryVT5emCjtp + SloZK5lacU+JqGNRAyfW8hxSxJVSDgm5gtDjDyZ/YF8J3H32lfAD+aFNjZ0lMj3DcLizpS+GaTiV2Ed3 + VIUoPkzCuIdjuox1z91rQBiqcnNq+yMwNVWYeo7a+WyLwKotcpztJrtH5CaFKaNO7HKGKSQpss8GMXSW + cOPB+4aPs7K4y0UFp24LPJtpPMclKLKpHNyaanBzXrPKQp5waKe3bhhibFNpUsmK1xR2RSbF5aP5JcX0 + +QYlzYSF5skKKV96OE+UqzClsEdpULI8n6yMcHrGUega+T6FdS72IP8FQ3dMsWQ+JdpVJ7VLGBOOGRNB + TomJMABaSYl4vC+O9/l4NHzJ2WkJX6fFrBgOYyLFPQ4tVevJTgC/92Srz8kHD33zvwpkn1Pw6NFa80+0 + dw2zdbiVaItmeHGdfv4EpDINxfPlReeEzOWBpZc2QmTHF8NKq1Q4JHwhU6yOhZL0VqTfRZjJdkgQaMrb + JNEkgnknHctnLPDLEsjTyEa9pRVpZXNY6mxgoUWToRh0ZWA6tVJJrLHSH9VnxSMn2XIZjjrAJ+SHUSZq + 0eAXhTTS4+uHdGFeSanaZttJJwZ9JSmrcybSdKenVm6VOyDvQIxTgoJQkikpRh8esGUzaTfLgX9PgG82 + ehXm4Ftl9DaPss20/y9pbas6eyi1do9jqTI4hSbuGI5/JvJdtjFKV7r95Ya6XTxDKkHWXu4ohFPwkle1 + YsBAsWA871Ls+du1A6bkxjRgnjJOCpkx7dPrN6pjDyPX/Q0tfcOZqNnCAkEZtmbVfLFefCIuyh6ZzfJL + PcIMx7KN13thIL63GIgvg+5RlM34QAH5G7AfYt1bvs6tbrdQHq85yjW7mFRJ6JxRJo+ZpXPsxLuLwc8y + BB8nEPydMkJblD0qjSGtVSuxgyHC0VoeQlZ+nQTGiAV0kJJrXkuxyoim2elA+CF0IgciYsJH5Dm4RAhF + +fegf9C7uOwnd+D6JAuXcnLzxI5An2RwRC8MeEfSOck8I2TSZ0D6rIp9Vqj+DoHWH/bokuGQz+1xcYpF + 0E+GdtwhseEXQzipS8kzJ5lnqnXJ4C5BsRv16Cn0x4teQDEVwc7nxPsUPkVD3xMzbOgweo1fQW3D11X0 + d58D8EddbnwfPu8O8B0sfX7Jikb/BYlTenhKvH8Fz73Ec9rV29ErNhGegu8EXZAS3QMhui7tSPJgVL9V + iG8oQFzUqOSZauIzWXxmLb4K4nssxDcEgDx4aEyt/CIJ8XEkKtU1JwWuqSbYMQt2XAu2gmA3o3GJeVi0 + p0nf2E/kaMNzJznnqgnQYgFatQCvMDJZEJ8p9XYWwiaNTPU1JwWuuRLl6not2QqSjd2vMb0ALF7P7Is0 + dnj8JON4NanZLDW7FtoVhDYgd9NL7Fr3RfYwPH6Scbya0FostFYttCsIrU/ATCNYQuHEx08yjlcTmsNC + c2qhVRDaIyG0HbGH9SORXtJ/eSTEpLriZOkV1UTaZpG2a5FWEOl9IdIOTc5+ima9/WhT2Vk0BuWj1cTl + sbi8WlwVxLURBYU4cvidWXI8H5+R4/n4TDXRTVl001p0V7B4L2jx52zB4sXHTzKOVxPajIU2q4V2hVh9 + EM84R0HBZuRHJs+d5JyrJkCfBeinOvYw0qZZY9LokUTe0IR4OGMUao98/mTJ+Wqd1EX2GMuengC23zNS + 38zUNyv1bcQC2KWkeBVt/SGhredw1ZC2rryk+TKeZox11lQqSlvTJkZSUbRndqxteYroCS1KKfR13WR1 + 2l4J56cSzgmEw2NZSD+L+zLRjPE4C4apD6fTJ9tyzVy0V3yjW0Y81Owdmv2l6TlaYbRLS+qgVgLvpqqL + hmZ66S5qzwwnPKtP2i19kj5rRRjpM8uHb6mzzfBkczzzND19smVnN6zLPZKlePe6f8u6sSF0A8+gg4cs + HmuDpepUu2U1dWlImNGQmEwdT8LLic42PWOmN5XPM/OnE2+6KNHb6cItS2VTSCXxmh04t2SUwrM1m80s + NXc0R0N3R63mzSY7Q0o1x4otP0vN+cYZRqcF/ys4Ste6+2uiD+yTLFpJZbdyvIHQi5AFc4V21oTHXHqf + 44XEY0qFa5tt6H+WwlkG/stSuIk9MSd6hsI1m4uaHCvcdIb/lFigkjtFrdpad/+WteFBpA0fxcw1vlD1 + 3XIGlTsGkCZPLjBQ3G9jnElAWE9u1gkS/JPps0dgFKHPde37LevCV5iFqITT44QnOKEY4TO9uEG2NUrt + 0zTTkXUoJiPQsPa4lUVGYEKaOfq3WLWVU1WXe1Ro8Kx1929ZL56kfI8oZlwWq+fxUgKATALBWir5XddN + 1gRl3JL1gVZof24cixcn/LKcqYy2NrbbWV6sMlS+QjtrwugRj8fcvgynkG7zO1fEJy7Szgrzyjv93sXl + Tj8xnTojtPZp4TVmdTrw94JeyMoo/Uj4oQ/0Llq+zteTdyx+GmRn4F5c9ro7+Odn0sOdhk8bfNFr2ofo + kzcJzsWP0fS6z+Gqb4VHBX5gou6juA/RuqQzjmBFvW8arYYt1dkBWYOG0ysDaIsnlDRPL+r8qaFJNbZp + TOAYCX9U6D3V+xTVMFM1HtJbtT6B5c+6Xr5D/Eaunni/zpiWe4TP/+eG3tCkWk+g9beURZnB/c7JfvJP + 08wpGgnvpUu1eO9PSoKxzota9xv/BSj5eM+F+z6mtwX8JhgZZT5dqL8B9bXEP7PhS0+8RyMpvwU/8U9u + 4QllF/HF04Bro0+jcba0H/KzPEhp3yG9z2u/0RO1/6dxCfqDZ5uAP0rAaPwEn/FO+AmPTekHGR041oIz + fA+brmzBXx3O4LcgddeNBPKjxheUYIZmbCaufEH7NGFURbqtL1wd61GkswkNMqWxsJHQILkfhoTTHsW5 + zH4qbUnISqrp0j6gKemMqmaWbDapJtY6Bjn/H8tI1LsH90GP8ZPECA8Ar3OaxEI2cGkcfc5EdyPc0LWA + rXzl0+hKbvMsc6TKNf8XtPRX6H+f8JuRFTkTOB5DzbeAO7/A7B3g/4H46wyOJfXyBK4/4r1U4i4PEjy8 + lWBiIu4SnH1fcHaft6nW7Fyzc83Od4CdZZxqdv4js/OQFv/+UrNzzc41O98BdrZrdv4K2HkjYudzuh/q + S83QNUPXDL3+DN2sGforYuhERrpm6Jqha4a+Awyt1wz9FTD0pmDoV6Q3r+AevzSMmqNrjq45+g5wtFVz + 9FfA0aEXneDomqFrhq4Z+g4wtFkz9B+GoRUjvl55V3N2zdkr4mx9TTi7Xnm33pwdj+KrcHa98q5m55qd + 7x471yvvviZ2rlfe1excs/PdYed65d3XwM71yruaoWuGvpsMXa+8+5oYul55VzN0zdB3i6HrlXdfA0PX + K+9qjq45+q5ydL3y7mvg6HrlXc3QNUPfTYauV979cRi6B1ehlBOSkOYJBU+tlJ2Xj60xjJF2w4J/U2jP + WcnYytc3mQ+aUj7vcaq2WsI47gyFpoa1lq2lTV7L7wSNudrJeZbFEW1CT+wb0bZQg7ZSOlRW254IbYvf + LPw6ddXXpn1jSY+KaN+fGq1r0j3ZJ79LuvdY6F7SJ5C90e+F9uG6YrAb9Zo1cb0h3aH2RW/GF9VLM9ZN + +6KmxB7ZvqisRfWKta/FE30Y8ykwdGIcXIGhh3CHOSFaM3TN0HW2IJuhZdatGbpmaJmhH8V82pjmcvST + FP5b1Fv+3cO3qSjOJcnM6VyyxjP8t8DZ/wkjpQP99umpmEteQ//PSFeRfX6D75+jZ0Y2/3fU+3s0crbw + b8mxOIHoToOzbRpTMxqLFvFUOBYx5hvDPx/GXxiR4dUOfPdhRE7h+vRY/L4xLZgTuNcYS6PqG2jNlq7x + lvCYrOfXoyHLJFpFSzZTe0PDczdtz5sS4sttrVXR/lW3GQb9epAD+gY6BLz7E+kfamSop3hsQpo6je7i + kJXxSaPRcsg2I5utrLVmK7XeVNHAh6mWbi/PZAtL75ONR0+gBf8suL66fMvmmWzJJ6vzTOo4RqUtad17 + CH2cgodxTphtJbAPf615j36l+e/QBvoT53R/tG7IUOtlIU3QLhMs3oT0bUrttIl7kpqJ56fQikZWFDW4 + Td7tlCyl7K0+hd4tPvdrwvoDHH0fsbOsNT+QBWKPVLByoXoPocZbujayphI+av9vE+qdE57L73E9OldE + V8pp319Bj84WUPy7bB/XWg+9SA/1K+nhRIFEEVk/IT1KonV7GlJOnuV05bvkGzbWRhemIFcb9EEX8v2J + rOYUrKEcQTuRdUNdQHs6hf9rpEnBDcgmjV857Dcg+g69yU9rNhrR37DgvE8os7+iA3q2QgJGQQn8AL37 + QPzmUV/Z43wNei1+HTEzlk7XeyPGwmLNP5Pe2Ll3jWtPGvxbjNl1H2f0+AxamGQyR9b9krVUd3tIzMZc + U+ROjxLXF79L9jPNMvOZec8U1yr+TNl3ynqm/Ls8VtxlmVY9Ud6piEbJaIR3TOtT3pMVq/FY2cPlWrsB + VyJHvYO/sgbpuVcm5SIzRvLKRWzlFUvJq+Wn1G+Al1XcWo6dH8D5c8oLbiXbWlOG1iOGtmqGrhm6Zuia + odecobP4tawP3SU5X5Ac1suHTke0syiiNa8Q0T6MJUvP8KExpxjwU7A7ANB2B6OLy9ODLv5i8ksugviY + Ydt8FD8Ekj6QFq68TZxtWmWbD0JdXWmr1+WDLOpmOe3ejI/AWe7d2wX9vpc5v6qai7gPT/SR5r7x+b5E + LKVaLXCdGfEpabhFGVaP5jnGNAPeljLiOGLGqVlymtmn9ZozxSx5uDoAczXTG5+3UMkrLfN70D6+23QW + SfkHkckJ33O6JVhxG2p/xBz02jAacpMJf1FyY8oKeFBaNIea9DltmrcotrLheiSxHNNlUtmkHr0Xs+W8 + /md9vH+fVo9oJA+fUPdp1jqeT9JIEjhGinr/1zUmVDim0f82mh9i7OPv64O3Dud88ietKNoKrXq1aOt6 + 8I6xy8f4Ma0IwZUMOC+yFZ5dMx9qSribNANoEeMY1GtkHItmB2yyHIguSseGc23yvFASPiHvSbj/SEiG + Tx56v2fKDP830NZNWI58aSTv/5fM3v8LynHjbcquf4PauFQTEPlwxul2NOE/CPl4pjB+quy1NmXXWNgg + S4fsUBPabxJn+mJWwaLR7JMu6aQzNq0cwnV86G07dMV4weN4mtnvxZU/7RvSpDxp5mvCw8arBr7p5t3a + 8kFb7NRBqTWj+MkgHsZdPBOSIUq5Sb7lhOTnk7dpkE+JvshN8HA2lunc17/FVWV56KmyZlUO+KGxC/XO + aWZxTrp7Wzzwi9SP5NOFzHcerdX6EaT8jPyg7H/y27rKZVa1KLNqrp2tXy61fKlvRFdvERJnitX26+Fx + GWvscalQTON+X6wlOqOV0+8jtk0dXUMZ6LQq1qcMJs/Dt4l9WwsyCFet3ZYMsrEsIokn0OJ72tXBZ7ai + FaI3yX1/JcaPe/GasrOfaIfs54I7T8qOK2uNx9UyqaS94mzsVmE18tpXWWt7weKqNU8+ui4j3yPZY0YB + VyZzfoH3qyzmF1q3qiUygnJe54iyxLjuL2TdbfIGt+Iza+bjzghFjdb9Tiij4xG+Jvm4nvBE8K9Ne3TC + leLo2c7IP8ZYWJ7ZHdNTvwacw6fO0dyU5qtqnotS3ruQtc7yulg/S5by2ON9h+m14eF7L/aoxx9uYV+C + PP+4fJ+hLtVYts8Qff+yux/k3Y/1TsN6pyFLK71qv/79ktvaa1h9945zA6z8bcaOHTULh++HO6L20ata + nOG86R1i68HEi/sJay6uubjm4vXiYrsyF9/EbEAWF38HCL8l338KfBPuWsOecmtnNNpQf7dSV65LjDSl + nH+LxlKbYqQmzfrFq0ccipFwBqfdSO7rxv/7dK08l3Nd+7uWo5rWNbQIXxSxFY6BNsV2ONfflhDzovay + a7ZpbtQsoAvfraXUfcrJWyLX6Ik5n3ZizTPv5tdAL4ru5r+ufUHrI98faeXFF6F1vE/6C3y2BEK4/nIn + 8sYO6fnIr1qzvAhKV6cR7Yh9gT7tkJ6kclJNWn1k0nwt/uXvWE7p2M3MCCyiWF0mSQ8W53fYk/ljyaZ9 + Y3ych2Z1GT2RZt1H1Bvs9x9LTrxm82ay//mIpmX1F1rZN2/w3I8L/ZmLTxjnoG+XlNb38Uq0OymfFkil + RSuiWrQyCv82yReyySLehHwWMUxL5AFhP6N1xuiBh6thwz3qA/LZP9P4e9Pgd3tiVHJB4y1570X/41vy + qbxEBC9HOMUyBtnRwTI54XzZjKIVn+I2nBmdUY1QTmPyRFo0ajSxT9kQfksbzuD6lZuQUzmk8b9DF4QY + vKK/g+3RxWWnezC/9H2N/gv6/I3/CzqDSOIbNFvxGu7HXu48kvbf4AzmeFCfB3D8d8G+25SNmcNRHr1j + yuBPg2HveHKpBZ3tozkV7vzSnDlBp7c/v9SDzuEhdAAKODwOOu4OXeT26Zy7R0XngA52fqaieyQa2OnT + 9+GILup3uBjSwSM+6A7ml+1m0Bl16OiIWx+5fJNDbo+L/e0J1DjCXmlB71ifXzpQGNhM79ikog8HDSgM + Lkwsgn6M2fc0r/Y6fveSQOxe4sjJwhGBT5/72Oen6mPnDPhGz9Ef9uiS4ZDP7XFxikUwOu1cXIY32hXE + +h4E//PF5YsBXONowZ4oR+4raA/kPtqHXo/2e/PLlj+1fJrfHJ32V9NQsHM6uLjsH0LfraB7QJ0eHNCT + DLZJEQ+O+NiQGxmMxPdjlMH24IALFx96e7tL37Z7VLjQzAyu7GGFXWxUC/4x+Of80sbS5a/HXAyw/m5/ + H4t/uHjNGMod/jrC5v7hdgjYgwEhegSd6x8d4h9xAG5jGsHzfRevDoJd9wCvP3BPsOhxceCSdLruIV60 + 03XxQY9eUpUDl77tjUjJ9kZMpj0yPTiwf6OSFrYHp3269vSQnm00pOagJhanPVLPnf4pNNAIjg6ti0v4 + M79sBlT4XOhcaFIBZR+vB9WyAyrgYY5cjdtydVEaojSp3Dnq4nWjbRp9o8ELLE7xQfSg2zmha7odEm63 + s01He9v0rQcIHvRH/qX2zA5GxwP+MNwXRzrH4kPQPSX4g8Mj6N7hUY/aDPYPSXCD/QMu8PB/UyjlUNjX + JML9iSZULTKmuDhwJhYQtsmAYnKuTRtOTAobcWMDJjZRItC7YP+ABfkSJH6w/RJo8eddPHAyJN07EPHT + C2h2Qgw7Jt/xLDg4IDgOXbrusEvN9Fg/ugdIBTvYZPdnPL5zgPcKQH/g+SIlWrifJu53P74P3FNP3Uvj + e+n599o/3I0OnB73ae8UF7RrSm+FW6loPDd5ONs8mp30YJ7MZhi1jrbxCZa166TatbhdS9mup0/NqN3B + aC9qt7ZOtXW6EevUGQ7IFI2498cj7P0Qqd5vtZzZBCjrFHV5dPwSi0G3j9gPXDo4cPngDn/b4W99/tbn + bx246aADJnDfJdvVcQ/o+KCLg2LQCTcxmuGooZt7jm8C+fZgOLWDzitoo/OKGLiz/YpYJK5oGHJNg2sa + VsGacGFYVS94U3OhppZ7U6jbRSBQAwUQhIANxQICg6ELXQie7yBSz3TDDnonpE4xNMdH1EaidgzD0upG + TnXo/9L6uqK+Wby6ll291LND/eE+YFpWJQ9Hp2BgNQ3vc6jpdEgzqNA1LnQ6p/NBgw8afKVh4Llg2IWu + D3suHiPzbgrjzqYd4CTLDngAaxySYWeaHxzDgLMsy7AcJ9g5pr5v7x6KJ5KsY7A77F1c7vIQ3OUhuIsP + ajahfMllaCXILgS7PYgod3tkJXd7PydO7fbAvsDf56iRxy5x2LFLXkow6HXhtkNi9ufDQ2aybqIY/hO5 + XB/P2s3mJEhvRX6xj4pvB3v7/MTDHYClZQRD94T4erebMFwDtNWFrNemynrdpI3SrmijtAo2qrbr14TZ + A4EZW8uP9FYLnBfNw8ZibGY52GhKbDwvhY2Wg43nMDamURod3WJ4xgzPmOFxGB6H4XECdwD235sEritK + jAgNiP5cV3woBuBTAWC8EZxfuJ28MgkmNExoGnYemuMCaEqaloempGnj1Y5OgrDZVEDoDjp8xuUyCen3 + AtIOjcd5w4sy6wxouEZmqzEUa1anS0etEkvdt1Y7bk2v4rgdlx23WRg9FBjtUUZwKvJ7769r3JawAyWw + 0a4HmycL2FxRf1ZsKW8foYcLI6yy9shjq4z+3PLYCim9R+i8Id0I90YyPokz9A21iGcT8nAy1pSDjBvC + aURzGB/vLE7mynHaiHD6QCvQbs6K5foEnlVxqGkMjcbQaAyNxtBoDI1WEJonShWKCesuKpC+cgV6rERJ + GLjyGN26yc9DyGaEbEbIvpIe7YmZky930mnU0+GMzTDZDNOYYRozTOlg5aGAaRuGEP9S8Bnt33oTrYZg + sIoNM+x4Ap+mxQDR+aUAOVYOH1Fsl4BoekXPyGCEDEbIYoQsRsjigA/Fmor48DEoXIEDZTAM42acnf+9 + wW/xX8brpnI05gOptwWUxiQveJahLBU+VwbTaBcD87EAs0uLL/gHH8J0wxdJKf8JUPLCkSSUls1Y6pMw + P2OlEzQag+nlYemPi1hJ0tkElE1hJrF2OTtpOIWhNB0RRpv6NMayLIYbiYHNWyA+5Ce5BIi6WTjg0TWr + vKthawwhkSpi6OdlIFYDYlX9U5Nia8rQOR4jN1uRXdXy7KpR0T8rBllZgL4TAOF892clOC1JrSSLmhcp + YtUUPsZyraocKhZVqY5IEHYqEVo4GIe0Bg0H4/tclcLJtVXq1G1glsToQYQR79b3aFXdWwmdbrTMJd9J + k3RKNzylVklk1fLKQ2SJXOlYYGROrcK2szrjd8LMqaDJ8kgOeI/j8tkgCUnfKsD6fsj66E8UBDIynAJI + 8klWjyPC54beCFpOdkvCD4gs+yXhh2FpiO+nE2Zl4CWHZGk8QepcGt+ZsKpYGQGmLP9KAR4CrsZsxpjJ + Hkk+ZlUcZLXhoJmSbOg8o/wYj9xj22DoGMNi2OmzwuYjUjzDVwayXbIaX8g2VInN0qEZhQgVM9ZFBrLh + CBeYgpKCaJmGCq0mo9VktJo8lJkA8cPEl4Yy2uHhXgkc70fWd9z4dUkm0mEU24wi+f8JFLWromgxiqxi + ShhxTpCXS2XjaIusG7gJnC5pCySF4jWF5jWtLDCjmbkQTF89x5mtlCOaHvYav5YZxYW0slhoplZLGsxo + qCcr5z8yMDSGQyCHSUvDtidbPUOG7NNChM+0qWXe+CipKKP6frUTUwXzBtpqFiSo4WwuTLl3BIpuZ3GK + PR+sZAr0DEb0lthx9yutuC0wustoo27PiuSv1H7jdYLH6avFeKQYdnviHQDxL27K2IWLE8io0ljWUtzI + pniBG5VhCXk8RRME42vFrjhUYR45fl1CtqLJYa+nzO4ZOQFc7PZViE+uTc+SpiIOTsJhqzuzFJ7fCTyP + FWtiMGn6gTZNJTfmLaqdPGTHShe6gFeDvmpOZs8bM5KGsMieIXnQU+EFsre+xIYAWzKejgDUYUQ9sdTI + E5h6jmyR8cMw/LC4aGYYfQhdyMFQWB1cP81BjLvokKtE8Re1Gy4y2vyeimUzta2KqyIKmR7hHfljKUUo + 9NqapFwjS6XYTUstCFvMSdpiUhLKdN6aDfmQ7LbrDoUdF9/Rnus+I637S4HeTOh8MVjHFWElP2cZrKbk + dIZOUhiEEy8tuJx6gUAHj/YF2n1Gm5SZsNsmSZJO47IvxNBqFsbwQRRn3wBXmNNCXCFFjBFV5KawM1x3 + S7juFiNpeowklSaVhCQPeSUtkAOAGkvoDhntolywGcHLb8R6T++qKOA7hfMD4dyfPp5dde5PqKktqWna + qKE/6tKq62xww8FfFNwQON2PXHYCUHLdHwn8XvB7gkR6I/lbTd9HXlWRSWZp7i9ypIrNM2OaoqQPHykq + 6fmVUhvKpbNR3i0O1sk5DT8MjxNYa4y1tAJ0OcZlQiRf6Kqf1lV/vCJGvaqrqsbWUIWc7GwlHYQo0pSn + torrabHg3XCUKTiKmlaopWHsbob5N7u4kqr9WFMFJC09zlqcrMp9DAUtfmi8k1SQF2/l06Wpwk6aklbG + SqZW3FMi6ljUwIm1PIcUcaWUQ0KuIPT4g8kf2FcCd599JfxAfmhTY2eJTM8wHO5s6YthGk4l9umnCRSI + 4sMkjHs4pstY99y9BoShKjentj8CU1OFqeeonc+2CKzaIsfZbrJ7RG5SmDLqxC5nmEKSIvtsEENnid9x + iW90QHdproJTtwWezTSe4xIU2VQObk01uDmvWWUhTzi001s3DDG2qTSpZMVrCrsik+Ly0fySYvp8g5Jm + wkLzZIWULz2cJ8pVmFLYozQoWZ5PVkY4PeModI18n8I6F3uQ/Lsz9KbUXBDtqpPaJYwJx4yJIKfERBgA + raREPN4Xx/t8PBq+5Oy0hK/TYlYMhzGR4h6Hlqr1ZPgLB+/JVp+TDx6/H4eR5bfWeLTW/JP4/cLwLUcD + 3s+8ZAJSmYbi+fKic0Lm8sDSSxshsuOLYaVVKhwSvpApVsdCSXor0u8izGQ7JAg05W2SaBLBvJOO5TMW + +GUJ5Glko97SirSyOSx1NrDQoslQDLoyMJ1aqSTWWOmP6rPikZNsuQxHHeAT8sMoE7Vo8ItCGunx9UO6 + MK+kVG2z7aQTg76SlNU5E2m601Mrt8odkHcgxilBQSjJlBSjDw/Yspm0m+XAvyfANxu9CnPwrTJ6m0fZ + Ztr/l7S2VZ09lFq7x7FUGZxCE8cvw35bYGOUrnT7yw11u3iGVIKsvdxRCKfgJa9qxYCBYsF4Dt8+fN2A + KbkxDZinjJNCZkz79PqN6tjDyHV/w69uo9e/yQsEZdiaVfPFevGJuCh7ZDbLL/UIMxzLNl7vhYH43mIg + vgy6R1E24wMF5G/ot80/Ld2zrq9ut1AerznKNbuYVEnonFEmj5mlc+zEu4vBzzIEHycQ/J0yQluUPSqN + Ia1VK7GDIcLRWh5CVn6dBMaIBXSQkmteS7HKiKbZ6UD4IXQiByJiwkfkObhECEX596B/0Lu4LPA+pQ04 + Lv8Gxknmmau+X6mfDO24Q2LDL4ZwUpeSZ04yz1TrksFdgmI36tFT6I8XvYBiKoKdz4n3KXyKhr4nZtjQ + YfQav4Lahq+r6O8+xzfydbnxffi8S2+d6fNLVsS7whKn9PCUeP8KnnuJ57Srt6NXbCI8Bd8JuiAlugdC + dF3akeTR73osii/xq9KS+JJnqonPZPGZtfgqiO+xEN9QvHqVfy46LcTHkahU15wUuKaaYMcs2HEt2AqC + 3YzGJeZh0Z4mfWM/kaMNz53knKsmQIsFaNUCvMLIDH8s6gM5TAI2aWSqrzkpcM2VKFfXa8lWkGzsfo3p + BWDxemZfpLHD4ycZx6tJzWap2bXQriC0AbmbXmLXui+yh+Hxk4zj1YTWYqG1aqFdQWh9Aib+WaFQOPHx + k4zj1YTmsNCcWmgVhPZICG1H7GH9SKSX9F8eCTGprjhZekU1kbZZpO1apBVEel+ItEOTs5+iWW8/2lR2 + Fo1B+Wg1cXksLq8WVwVxbURBIY4cfmeWHM/HZ+R4Pj5TTXRTFt20Ft0VLN6LBv82g2zx4uMnGcerCW3G + QpvVQrtCrD6IZ5yjoGAz8iOT505yzlUToM8C9FMdexhpE/6YRI8k8oYmxMMZo1B75PMnS85X66QussdY + 9vTkzy30jNQ3M/XNSn0bsQB2KSleRVt/SGjrOVw1pK0rL2m+jKcZY501lYrS1rSJkVQU/E2RSNvyFNET + WpRS6Ou6yeq0vRLOTyWcEwiHx7KQfhb3ZaIZ43EWDFMfTqdPtuWauWiv+Ea3jHio2Ts0+0vTc7TCaJeW + 1EGtBN5NVRcNzfTSXdSeGU54Vp+0W/okfdaKMNJnlg/fUmeb4cnmeOZpevpky85uWJd7JEvx7nX/lnVj + Q+hGl3667SOxeKwNlqpT7ZbV1KUhYUZDYjJ1PAkvJzrb9IyZ3lQ+z8yfTrzpokRvpwu3LJVNIZXEa3bg + 3JJRCs/WbDaz1NzRHA3dHbWaN5vsDCnVHCu2/Cw15xtnGJ0W/K/gKF3r7q+JPrBPsmglld3K8QZCL0IW + zBXaWRMec+l9jhcSjykVrm22of9ZCmcZ+C9L4Sb2xJzoGQrXbC5qcqxw0xn+U2KBSu4UtWpr3f1b1oYH + kTZ8FDPX+ELVd8sZVO4YQJo8ucBAcb+NcSYBYT25WSdI8E+mzx6BUYQ+17Xvt6wLX2EWohJOjxOe4IRi + hM/04gbZ1ii1T9NMR9ahmIxAw9rjVhYZgQlp5ujfYtVWTlVd7lGhwbPW3b9lvXiS8j2imHFZrJ7HSwkA + MgkEa6nkd103WROUcUvWB1qh/blxLF6c8MtypjLa2thuZ3mxylD5Cu2sCaNHPB5z+zKcQrrN71wRn7hI + OyvMK+/0exeXO/3EdOqM0NqnhdeY1enA3wt6ISuj9CPhhz7Qu2j5Ol9P3rH4aZCdgYu/EF/yp+2/FR5V + +oftH8V9iNYlnXEEK+p902g1bKnODsgaNJxeGUBbPOln5N9C37jOnxqaVGObxgSOkfBHhd5TvU9RDTNV + 4yG9VesTWP6s6+U7xG/k6on364xpuUf4/H9u6A1NqvUEWn9LWZQZ3O+c7Cf/NM2copHwXrpUi/f+pCQY + 67yodb/xX4AS/l60tnDfx/S2gN8EI6PMpwv1N6C+lvhnNnzpifdoJOW34Cf+yS08oewivngacG30aTTO + lvZDfpYHKe07pPd57Td6ovb/NC5Bf/BsE/BHCRiNn+Az3gk/4bEp/SCjA8fwd7n5HjZd2cJf24Yz+C1I + 3XUjgfyo8QUlmKEZm4krX9A+TRhVkW7rC1fHehTpbEKDTGksbCQ0SO6HIeG0R3Eus59KWxKykmq6tA9o + Sjqjqpklm02qibWOQc7/xzIS9e7BfdBj/CQxwgPA65wmsZANXBpHnzPR3Qg3dC1gK1/5NLqS2zzLHKly + zf8FLf0V+t8n/GZkRc4EjsdQ8y3gzi8wewf4fyD+OoNjSb08geuPeC+VuMuDBA9vJZiYiLsEZ98XnN3n + bao1O9fsXLPzHWBnGaeanf/I7Dykxb+/1Oxcs3PNzneAne2anb8Cdt6I2Pmc7of6UjN0zdA1Q68/Qzdr + hv6KGDqRka4ZumbomqHvAEPrNUN/BQy9KRj6FenNK7jHLw2j5uiao2uOvgMcbdUc/RVwdOhFJzi6Zuia + oWuGvgMMbdYM/YdhaMWIr1fe1Zxdc/aKOFtfE86uV96tN2fHo/gqnF2vvKvZuWbnu8fO9cq7r4md65V3 + NTvX7Hx32Lleefc1sHO98q5m6Jqh7yZD1yvvviaGrlfe1QxdM/TdYuh65d3XwND1yruao2uOvqscXa+8 + +xo4ul55VzN0zdB3k6HrlXd/HIbuwVUo5YQkpHlCwVMrZeflY2sMY6TdsODfFNpzVjK28vVN5oOmlM97 + nKqtljCOO0OhqWGtZWtpk9fyO0FjrnZynmVxRJvQE/tGtC3UoK2UDpXVtidC2+I3C79OXfW1ad9Y0qMi + 2venRuuadE/2ye+S7j0Wupf0CWRv9HuhfbiuGOxGvWZNXG9Id6h90ZvxRfXSjHXTvqgpsUe2LyprUb1i + 7WvxRB/GfAoMnRgHV2DoIdxhTojWDF0zdJ0tyGZomXVrhq4ZWmboRzGfNqa5HP0khf8W9ZZ/9/BtKopz + STJzOpes8Qz/LXD2f8JI6UC/fXoq5pLX0P8z0lVkn9/g++fomZHN/x31/h6NnC38W3IsTiC60+Bsm8bU + jMaiRTwVjkWM+cbwz4fxF0ZkeLUD330YkVO4Pj0Wv29MC+YE7jXG0qj6BlqzpWu8JTwm6/n1aMgyiVbR + ks3U3tDw3E3b86aE+HJba1W0f9VthkG/HuSAvoEOAe/+RPqHGhnqKR6bkKZOo7s4ZGV80mi0HLLNyGYr + a63ZSq03VTTwYaql28sz2cLS+2Tj0RNowT8Lrq8u37J5Jlvyyeo8kzqOUWlLWvceQh+n4GGcE2ZbCezD + X2veo19p/ju0gf7EOd0frRsy1HpZSBO0ywSLNyF9m1I7beKepGbi+Sm0opEVRQ1uk3c7JUspe6tPoXeL + z/2asP4AR99H7CxrzQ9kgdgjFaxcqN5DqPGWro2sqYSP2v/bhHrnhOfye1yPzhXRlXLa91fQo7MFFP8u + 28e11kMv0kP9Sno4USBRRNZPSI+SaN2ehpSTZzld+S75ho210YUpyNUGfdCFfH8iqzkFayhH0E5k3VAX + 0J5O4f8aaVJwA7JJ41cO+w2IvkNv8tOajUb0Nyw47xPK7K/ogJ6tkIBRUAI/QO8+EL951Ff2OF+DXotf + R8yMpdP13oixsFjzz6Q3du5d49qTBv8WY3bdxxk9PoMWJpnMkXW/ZC3V3R4SszHXFLnTo8T1xe+S/Uyz + zHxm3jPFtYo/U/adsp4p/y6PFXdZplVPlHcqolEyGuEd0/qU92TFajxW9nC51m7AlchR7+CvrEF67pVJ + uciMkbxyEVt5xVLyavkp9RvgZRW3lmPnB3D+nPKCW8m21pSh9YihrZqha4auGbpm6DVn6Cx+LetDd0nO + FySH9fKh0xHtLIpozStEtA9jydIzfGjMKQb8FOwOALTdweji8vSgi7+Y/JKLID5m2DYfxQ+BpA+khStv + E2ebVtnmg1BXV9rqdfkgi7pZTrs34yNwlnv3dkG/72XOr6rmIu7DE32kuW98vi8RS6lWC1xnRnxKGm5R + htWjeY4xzYC3pYw4jphxapacZvZpveZMMUserg7AXM30xuctVPJKy/wetI/vNp1FUv5BZHLC95xuCVbc + htofMQe9NoyG3GTCX5TcmLICHpQWzaEmfU6b5i2KrWy4Hkksx3SZVDapR+/FbDmv/1kf79+n1SMaycMn + 1H2atY7nkzSSBI6Rot7/dY0JFY5p9L+N5ocY+/j7+uCtwzmf/EkrirZCq14t2roevGPs8jF+TCtCcCUD + zotshWfXzIeaEu4mzQBaxDgG9RoZx6LZAZssB6KL0rHhXJs8L5SET8h7Eu4/EpLhk4fe75kyw/8NtHUT + liNfGsn7/yWz9/+Cctx4m7Lr36A2LtUERD6ccbodTfgPQj6eKYyfKnutTdk1FjbI0iE71IT2m8SZvphV + sGg0+6RLOumMTSuHcB0fetsOXTFe8DieZvZ7ceVP+4Y0KU+a+ZrwsPGqgW+6ebe2fNAWO3VQas0ofjKI + h3EXz4RkiFJukm85Ifn55G0a5FOiL3ITPJyNZTr39W9xVVkeeqqsWZUDfmjsQr1zmlmck+7eFg/8IvUj + +XQh851Ha7V+BCk/Iz8o+5/8tq5ymVUtyqyaa2frl0stX+ob0dVbhMSZYrX9enhcxhp7XCoU07jfF2uJ + zmjl9PuIbVNH11AGOq2K9SmDyfPwbWLf1oIMwlVrtyWDbCyLSOIJtPiednXwma1ohehNct9fifHjXrym + 7Own2iH7ueDOk7LjylrjcbVMKmmvOBu7VViNvPZV1tpesLhqzZOPrsvI90j2mFHAlcmcX+D9Kov5hdat + aomMoJzXOaIsMa77C1l3m7zBrfjMmvm4M0JRo3W/E8roeISvST6uJzwR/GvTHp1wpTh6tjPyjzEWlmd2 + x/TUrwHn8KlzNDel+aqa56KU9y5krbO8LtbPkqU89njfYXptePjeiz3q8Ydb2Jcgzz8u32eoSzWW7TNE + 37/s7gd592O907DeacjSSq/ar3+/5Lb2GlbfvePcACt/m7FjR83C4fvhjqh99KoWZzhveofYejDx4n7C + motrLq65eL242K7MxTcxG5DFxd8Bwm/J958C34S71rCn3NoZjTbU363UlesSI00p59+isdSmGKlJs37x + 6hGHYiScwWk3kvu68f8+XSvP5VzX/q7lqKZ1DS3CF0VshWOgTbEdzvW3JcS8qL3smm2aGzUL6MJ3ayl1 + n3Lylsg1emLOp51Y88y7+TXQi6K7+a9rX9D6yPdHWnnxRWgd75P+Ap8tgRCuv9yJvLFDej7yq9YsL4LS + 1WlEO2JfoE87pCepnFSTVh+ZNF+Lf/k7llM6djMzAosoVpdJ0oPF+R32ZP5YsmnfGB/noVldRk+kWfcR + 9Qb7/ceSE6/ZvJnsfz6iaVn9hVb2zRs89+NCf+biE8Y56NslpfV9vBLtTsqnBVJp0YqoFq2Mwr9N8oVs + sog3IZ9FDNMSeUDYz2idMXrg4WrYcI/6gHz2zzT+3jT43Z4YlVzQeEvee9H/+JZ8Ki8RwcsRTrGMQXZ0 + sExOOF82o2jFp7gNZ0ZnVCOU05g8kRaNGk3sUzaE39KGM7h+5SbkVA5p/G+wPbq47HQP5pe+r9F/QZ+/ + 8X9BZxBJeYNmKF7DPdiznUcS/hucwbwO6vAAjv8uGHebMjBzOMojdkxZ+2kw7B1PLrWgs300p8KdX5oz + J+j09ueXetA5PIQOQAGHx0HH3aGL3D6dc/eo6BzQwc7PVHSPRAM7ffo+HNFF/Q4XQzp4xAfdwfyy3Qw6 + ow4dHXHrI5dvcsjtcbG/PYEaR9grLegd6/NLBwoDm+kdm1T04aABhcGFiUXQjzH7nubSXsfvWxKI3Usc + OVk4IvDpcx/7/FR97JwB3+g5+sMeXTIc8rk9Lk6xCEannYvL8Ea7gkzfB4fuzxeXLwZwjaMFe6Icua+g + PZD7aB96PdrvzS9b/tTyaU5zdNpfTUPBzung4rJ/CH23gu4BdXpwQE8y2IbL4csRHxtyI4OR+H6MMtge + HHDh4kNvb3fp23aPCheamcGVPaywi41qwT8G/5xf2li6/PWYiwHW3+3vY/EPF68ZQ7nDX0fY3D/cDgF7 + MCBEj6Bz/aND/CMOwG1MI3i+7+LVQbDrHuD1B+4JFj0uDlySTtc9xIt2ui4+6NFLqnLg0re9ESnZ3ogJ + tEfmBgfzb1TSYvbgtE/Xnh7Ss42G1BzUxOK0R+q50z+FBhrB0aF1cQl/5pfNgAqfC50LTSqg7OP1oFp2 + QAU8zJGrcVuuLkpDlCaVO0ddvG60TaNvNHiBxSk+iB50Oyd0TbdDwu12tulob5u+9QDBg/7Iv9Se2cHo + eMAfhvviSOdYfAi6pwR/cHgE3Ts86lGbwWD3iAKtQWNMZmgLjO3+IQlzsH/ABV7637RAkFNxbVoU+BMn + GhtTsfDTp7QBh4m2WALqUaJw3OAFohQ8gpSgx8HBSxD/wfZL4Mifd/E2J0OWtphUPIBaXxr8CiGQ7AHh + csgacdglne2xonQPkBN2sLnuz3h65wBusH+4Gx04Pe7TZiYuaBuT3gr3NtFga/JYs3moOemRNpnNMIwc + bUO3g2XtOql2LW7XUrbr6VMzancw2ovarU1HbTpuxHR0hgOyEyPu/fEIez9EHvZbLWc2AT45RV0eHb/E + YtDtI/YDlw4OXD64w992+Fufv/X5WwduOuiAfdp3ybB03AM6PujioBh0wl2FZjhq6Oae45vAjD0YTu2g + 8wra6Lwieuxsv8KxkqhoGHJNg2saVsGacGFYVS94U3OhppZ7U6jbRSBQAwUQhIANxQICg6ELXQie7yBS + z3TDDnonpE4xNMdH1EaidgzD0upGTnXo/9L6uqK+Wby6ll291LND/eE+YFpWJQ9Hp2D9NA3vc6jpdEgz + qNA1LnQ6p/NBgw8afKVh4Llg2IWuD3suHiPbawrLy3YX4CSzC3gAaxyS1WWaHxzDgLMsy7AcJ9g5pr5v + 7x6KJwLXB0Z25P8sWEddWMcNCGlmwO5bsZVMWUidLaSWbyEX7hfs9iBA3O2BIYKPz/GKY5fI7tglXyP4 + f9bjj3J4otwpAAAAvm1rQlN4nF1Oyw6CMBDszd/wEwCD4BHKw4atGqgRvIGxCVdNmpjN/rstIAfnMpOZ + nc3IKjVY1HxEn1rgGj3qZrqJTGMQ7ukolEY/CqjOG42Om+toD9LStvQCgg4MQtIZTKtysPG1Bkdwkm9k + GwasZx/2ZC+2ZT7JZgo52BLPXZNXzshBGhSyXI32XEybZvpbeGntbM+joxP9g1RzHzH2SAn7UYlsxEgf + gtinRYfR0P90H+z2qw7jkChTiUFa8AWnpl9ZIO0EWAAACrVta0JU+s7K/gB/V7oAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHic7Z2N + kds4DEZTSBpJISkkjaSQFJJGUkhukJt38+4LSMlZrx3beDOe1eqHpAgSogCQ+vlzGIZhGIZhGIZhGIZh + eEm+f//+2+/Hjx//HbsnVY57l+HZ+fDhw2+/r1+//qr32r5n/Vc5qgzD+4G8z+L28Jb+ubu2jtVvJ3+u + R1cNez5+/NjW1Ur+7v9sf/r06dffb9++/fzy5ct/+qL2F7Wv8ikqL87lGOeRTv1crtrPsdpv+ZN2nVtp + Wl/VsWHPSs6d/i86+X/+/PnXNvVP/y25lAyQOTJiP+dU/sgUmdf+bBf0a84lP7cT2gLlG/bs5F8y8viv + 6OTPMeRCf7UMkXO1FfdZ5Mc14D6+OoY+AMpjPTHs2cn/rP5P+XfvDOh55F5/qy0g19q2LP3MWMnfegDo + +5WedcPQc035I9eSVV3rPkhf95jAefhZksd2uiHbifWM5V9txGkM/1J14v5ztB9dzVicbR+nX2f7KVlZ + 3ikP+m3mXdd5LJeyrG3aIHqGMcnqmmEYhmEYhmF4RRjH35NHsNen//NvL+9Z8t36Hlzqa7o29a54hMvo + 7WoHz+ZnSJ3wlva+u5b38538z9jxj3yGeZ73db7ELr2V/P+G/vMWXP70s2HPw6aOTSb9d+nbwxfka+kj + nc+Q+iQ/zl35A03nb6SMXI/9yL4s2y/t39qll/K3H+JR20DK3342H3M/KX2Jziy5IBtsvuznnPQL2GdY + ICPsdgXnUee0D5P2Z7cd2gz3Qp6ZFvLu7NmZXsrfdfSo44Gu/wN1aL3gvm0/jn17XYzQLn7IfdB2X/f/ + SjvreOdvzGdK9uv0WV2S3rPrf0C26QMu7KspmeFvcX9Dlvy/kz993z5Ax/tYn8DO35jyJy38AOTTyf8o + vVeRP8/2+puysbyL9MXbF+f63ukG9InbCbrFuhh2/saUv8/r5E+cypn0Uv6c1/nD/nbsW0s/W0F9pT8t + /Xf27eW11G3R1ZH9fTxHyGPlS4SVvzF9iLyndeXxeOZMet6mHh5V/sMwDMMwDMNQY1vsm/w8Pr9nXD32 + gBljvx+2ffGzTb6LC70Vf8P8w2dnZ9Pq/ODWCegOx4Tn3MD0LUJe6/NrX2c/zPKgr0Y/nKOzqyD/ld3X + djB8fNiO0BvYfz3Hp0i/UMbu22fnc+y34y/HaB/YkfFJDcd0/dx+F9d7kfLn+m5ep32Btu9a5vgPunlE + nuuX88/st/M16Ijp/+dYyX+l/1d28PSlp08dGyntIvuxYzDOHMt2WeCT2MULDP/nWvLvfH7guV8lL88F + LM70f3BcgMvJuXnOsOda8i/Qyek7L3iGF9bhznP1/F/pBrc5P/8dq1DM3K813btc7Vu943l83tkCGMPn + 9cSNOJ3Uz934n2cA5Pu/y8qxTHvkPwzDMAzDMAznGF/gazO+wOeGPrSS4/gCnxvb3MYX+HrkGqvJ+AJf + g538xxf4/FxT/uMLfDyuKf9ifIGPxcrnN77AYRiGYRiGYXhuLrWVdOuGHGF/Ej9sxPdeQ+OV3xF2a62s + 2L0jruD93H5l+5DuKf+0MzwzXtcH2xu2ucJr8KxkbPljf8Emt2pLK5uc5W9/ImXy+jwu48qeYJvB6l4o + M3rM8s/26HUKn8GmbNsrNrv633a07ps8mYbXEMOvhw2+azdd/y9s02MbW2D9T9r2+dBufb3X5/KahKvv + C5FHyt/rjrEGmtfEenSQEbhedt/kMil/PztXbcZy9TWd/B1v5GP2H7Of/kl67D/6vpiPkU/u93p494x7 + uSbYxyH7hWW5ei7+qfy7/Z380xfUxSLRr9HtpH/0DbndMfwU1vPkwfFHZ9f/7Xsr0o8Dt5J/1x5s+3c8 + Af09fUfdvezaRsaokF76KR/1nYG27HpJHXDkR7+V/Auv40vsAKzWnM57zXvZyd9lyO8L+5pHlX+RMTLp + x9utr89xr6eZaXVtZheXkz6/Lr/V/t19rK7N6/Kcrn6eYew/DMMwDMMwDLCaW3W0v5sr8Df4U3ZxrMPv + 7ObWrfZ5zoXnCh29P96CkX+PfRi2oeWcGlj553ftxbaR2nbMP9/lsN+p8PdE8P+Bj/la25PwLXEvlj/f + s/E9v+o8EcvMfraMm4cj/d/Z5q3/2ea7PrbT2UZr/4zbInH++HqwAXKtv1Hobwk5xsRypiz4iO6tp27N + WVs7HO2nb+Y6ASl/QA+4LWDXpy3YN4v8KHvOG7Hfr5tT0u2n3fq7QK/CteXf9Z9L5O85H+ju/Nagv8m4 + k38+DzqfbsEz6RXnCl9b/18qf+ttdLBjbezDQz7kcaT/U/60jUyT+BDHCDyyP+cSPG6ij9GvbiH/wj49 + 9+fdPPK8Nsd/O/njx6v0c/z36P7cYRiGYRiGYRiGe+B4y4yZXMV/3ord++pwHXjntj8w14u8FyP/NZ7f + 4Ph65sfRj5mDY79dprOyoXgOXvrqbIfyvKCVD9DHKBPXZvmx/zp+H5+my9PZo14BbKBpD8Vu5zUaOa+z + qReeV8fPfrdcOxTbP3b+bo6X7bv255I2Zcxypd/R/b/zVWJTfnb5p/6jXrn3VQxPN08o6Xw7K/lTz+lH + 9Pw0fD/YZu0ftP/Q97YqP8dyjpf3V37PMs9vxU7+ltmfyn+l/1P+Of/XfmSOYavnmOfy7taH3MnfbRRI + izb27G3AWP9b/91K/oX9kH7Ocy7jEtoDeZzR/5BtgzTZtk/c7e8VfEIe/61k/J7y9/gv5/jZB5j+wWI1 + /tvJv8h5/t3471XkPwzDMAzDMAzDMAzDMAzDMAzDMAzDMLwuxFAWl34PBB/+KtbOMUBHXOKfv+TcS8rw + 3hDfcktY/5i1czJ/4rEo36Xy57qOSuvstxa6OJSOjCc+4pJYQOKWvA7OUaz7Uf0aYqPg2nH0jp3yd3iJ + C+xi9ymTv+vuuF/KS3yVj5F2zhcg3twx547VTbw2EGsIZZ9lLTLHm+/6NfmfOZfzHT9LXo5FuqR+iTny + z7FR77GuWa7XRrk4lut/EQ9OP+V+Ozo9SjyX79vf/qEt7HQA8brEknlOQd4bx+lnu/5D/o4JXOH7Tv3i + WMpL6pdzKSfpXkv/Z1x+4ucyfZs27X3Us7+34e8puR7cbl1Pu/ty3h1eG8z3s2qHfoYit+57H3DmueL5 + Mjl3gDaUHNUv0C4cn3otdu06+yv9x/+j87JNe95Xlx79j/tKWbmvWvetyuq1omAlt4wN7dKkbDmPhbwS + 55XtnraZHNWvzyNPz1V6K+jBVf8/O+79E/lzjufcZJp+Hnbx4E63m4dEnec3Ki5Z56sbK3Y603llO/T4 + OMt9pn7p/918hbeyK8OR3oVO/jl/o+DdwH2Ve0LGniN0Bq/pmNd47pDj1a1zj1jJv2uvjFOsH1btm/wv + 1ee7dUo9b+oMR/2/8DyL1btMJ/+jsvNMrPI6D+REXbI23GqsZp2Z8mdMmOsEep0vryvYvVt7jpnfHbpy + 8N1D9E2uWddxpn7h6Fu7HHuPeYu8o67yzXkaCWMFyHpBv6fe9Lv0kd470+5374SrsYDHOZesE3rJc3pX + v5T7SK6c8+zzVodheDP/AKCC+iDgvyWjAAAO121rQlT6zsr+AH+SgQAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeJztnY2RHCkMhR2I + E3EgDsSJOBAH4kQcyF7p6j7Xu2dJQM/P/livampnu2kQEgjQg56Xl8FgMBgMBoPBYDAYDAaDweA//Pr1 + 6+Xnz59/fOI696rn4nOlrABl+PfB/1Hp+Yr+M3z//v3l06dPf3ziOvcyfPny5d/PLr59+/Y777A3ZQT0 + +0dG1Pu0npWeT/W/AjbR/q72X/VR+naVppPX7d/5nV1U8qzkBF0avV6ly65n7bx7PnBq56t66+wf5Wvf + dbm0b3semg95Bar+r3ll9Y77nz9//vd76C3S/fjx4/e9eIa6qC8LRDq9HukzRP6eJvKIvLkXZateSBfX + 9XnqoGkjL09HHfR6/I3Pqv/H369fv/5+7go6+3NNZdHyI02UzzNZnyM99zL7uwxRntsIm8ff0Jmmie+M + W1xzPUUanfM4tH1FPqRHF8ip6VTu+KAL2rLKHddUH6pnLZ/xfdf++swVrPx/VmbW/+l/nbyBzP7qb6hT + VnfsHHpWfdEu4oMv0D6ofoE8VnJ2ukA+yiE/9xVVnf35kM/L3xn/7zEXuMX+6Dz6I/Xu5KX+lf19HeLA + ttg9/kZbIH/+936GrPRR2otC86FOmS7wty4r7ZG5XmV/ZNTnvfxMbytbXMUt9qcda7vv5A1k9ld/h+/N + +ih93f2P6jbucd39JL4jsz960DaW6ULTqc1pF8jv9sc/8kz85RnNN64h4zPsT19RfdCfAXX17+pvGd8c + mh6Z6Vv6PZ6lD3RrpciL+/hNwP+Rxu8hJ30vA/XGh2S60HIy+clfx0P6h//vsqj8Opep9Om6HQwGg8Fg + MBgMOjj3l91/zfJvwT24hCs4LfM0fcXbnsJj5cSlWM9kcYF7YlX+6tkVn9ZxmI/Cqc6u6Ljibe8hq8a2 + q2cqzqryH1Vcerf8W/m0R0Hl1j0TXqcrcnXx/Hu160xW5dX8/gnnVaU/Kf9WPq3Sk/OGzin6HgXneJCF + fJwDWems0oHGFbtnHml/9OOcXMV5adxeY+ZV+tPyb+HTKj0RowvAs8LzIfPK/sTtVBaVs9NZpQO1P3Jm + 8mf+/8oemhP7V5yXc9bKvVYc2W751PUqn1bZH+5Y+SPlFD3/zEbI3P1/qgPPq5J/lytboRqr4Eb0fsV5 + BUirXEyXfrf8W/m0zk/Sh6OMaA/0NZ7dtb+OGZ72VAen9r8V6m/gGpR3r3xTZheu+9zB05+Ufyuf1ukp + s7fOOxkXtOzMRgHlFrO0Ozp4Dfvr2MnH9+IpL4hPU84LebLrVfqT8m/h0zLezmUDyilWZTMnd66U55Fn + R2eZjj3vSv6uXoPBYDAYDAaDwQrEvoj5nIJ1IGuYVSyqSxNz2x3+5x7YkTWAbh5Z5q4s9wbnYlh3ewx/ + BeIfrL931ibd+vWZ+xkzrlHXlIH4TqzwUWV21x8Jj10HqK/Gt7r2r2djSK/6y57nGe5pvZ33invul/TM + QaYznun0SX/zOIbHaLPyd/LKZMzSddd3y8j0uINVHEn35FfncZSD8Dit7tXX50mjPgedK5ej8UDl7JQP + cJn0HFHFn+HzyEdj/lqXqvyd8lzGqszq+o68xBtVxhOs7N+dtwRdzNL5L/g67f/oys8zZOc7yas6Z0I5 + yFKdjcj073xHV36Vl+7XdxmrMqvrO/JmejxBx4+R34pn7Oxf6X/nbBH5+qfLF3nQ/Y7P0v6exeKz8j2v + nbOEVZnV9R15Mz2eIBv/lVv0Nl/t+7na/zNdVf1fy+7s7xz0qv9r3l3/r+Z/Xf/Xsqsyq+s78t5q/4CO + LT6G4Z90fOn4K5dpNf6r3G7/gJ7hq86fZ7pazVl8PPUxTnnFrHxFN/5r+qrM6vqOvPewP/Wu1v96L2ub + 3Nc+5Dyaz/89jc6RfU6fzeW7GIHOhfmeARn8PuV15Vd5rWSsyqyur9JkehwMBoPBYDAYDCro3Fw/VzjA + R6OSy9cfHwHP4gJZu/sezNU6gv3Sz0QVZ6v2Y75nPIsLzPYyK7K4gO7Z1f3/J+tXtRWxNr2ecW7Yn3ue + B3Lodecid7g80lRr9M4umR70XKBypJW+buUbT+D779U+VeyPmBN+Y4cjVD+j8Suu65559u97vFH5wiyP + LF6dcUYdL1jF+3Y4ui7WqWcT4dczfe3IuOICT1D5f+yPDH5uJeNoVQfeRzQOp+f4KF/7hXNufFd9VGcm + eF5j6/STLEbt/YW2x/kVsMPRrbgO8qv0tSvjigs8wcr/Iyt9L+NVdzhCzlJoX8/K7+TRfLszMyEPbZZy + XDdVOYxt6t8oe8XRnXCdmb52ZdzlAnfQ6Vv7rPp4r+sOR6jvtcz6v47fXf/fsT9nO/Us527f0r0D2m93 + OLpdrrPS15X+r8/fYn/3/8ju4z/6x09W6bw9+bha2V/zzsb/HfujI792Zfw/4eh2uc5OX1fG/52zjhWq + 9b9y3llMgOvabzuOEPmwn84xs2eyOXBWXpVHtX4+mVtf4eh2uE5Pt1P3HRmfFTMYDAaDwWAwGLx/wOfo + 2u9RuJK3vlvjHu++19jACXZlf09cFGteOADWlI+oA3Y8AetaYnq6r7LbB1wBjuEUGk/scKWOrwViFr5u + JH4W8H2svg7Hb+h6lTMY8dGYDW1L4wvoq+N2VcbO/l1eu2m0TroP3uW4Vx1B9rsjtPd4juuUq+kCkeZq + 38p0xPXsHAtxC42zOgejv89FPdANeiXWhd9x+SlDY/HVWQG1RcXR7aRxmbSuynlSR/0toSt1DCgPS1wP + +2isUNMRJ6XcKl7YobK/Xq/sr/Fx2j1tEj15fEvz8vh2xatl/InbXP2YcsiKnTQBtZ/HHz2Om/F7V+q4 + +t0x0vv7BJ07Pd235fJ4HNrrE3D7O29APvqblMiY6QZUXNSO/SseQ7GTBj0q75nJq3yYv0fwSh1PuEPK + 5QNXXfmWFXiOMS6zme+1oA85X0Wf0LGp4g29/Vb9ccf+AfV/yuMpdtIo56jjoMqRfc/sv1tH5QTx+R13 + qJyf7se6Ah3b9ON7LeKDb/S9HNxTHWTXlV/Lnu/O14PK/vgy5dQdO2lUJp93Kt/Od/qHt5mTOgbUBrqn + x8dn1622k1P+T6HjB3PM7N5qj93quu8lWo1bfl/Lr2Tp1q63pPGyK52c1vH0ucx3Xdn/NxgMBoPBYDD4 + u6DrGF3P3Gse2e1JjHWQvitlp0xdqxLvztaC7wFvQV6P57DuOz1HUqGzP5wA6Xbsr7EW1js89xb0eYK3 + IG8WjyRO7jEb57SIPTrfpVDuVuMVAZ51n6M8tMcgPCar/L/qM0ureRNDqbgYLxf5NJajHHLHKWk9tf4q + L3zOjl6QXctRuU7QnTFxjke5CI2ldz7DuXvlleELPEaq9fPzjc7BVv6fcrIyvW7Z3mxv/9iN2KfHfLFt + tm+btgIn4nFi7K3totOLy+5ynWBlf+zqZWax/xWP6DYKMAeobHqSn3NB3l+yvKsYsO4P0ng3sdbst6Mq + 7lV9je6tUq4l8xkrvbi/Q64TrPy/21/nCbfan35JXP1R9td+sWt//AZ5qc8jX7f/am8HfkR5VeUPwK5e + qvqeYDX/o55wjLoH5Rb7a7nuh2+1PzqkHNXLrv3JQ8cOtbnud9nJB3+u/J/L6z4/00t2z+U6Qbb+831F + OrfIzl+rbhwre9H+df/DPeyv87/q3HKgs5v3cc2TvsyzXT4+/8tk0X0YK734/M/lGnxMvIX14uD1MPb/ + uzH8/mAwGAzuhWz9t4plgLf0rvmOZzqFrte68baKnZ5gV9f3LDPLT+M/q72RAV2XvgVcOftQgfjX7n7N + W7Cja0//CPtX+WnsR2MVfsYp4wgdxC08ng53prwu/Y8zccx9lQ/jnn8ndqp18HckVrGSrG4ak9F24fIo + snKyusL/uK41ju8yqb2IUztXuIvK/2uMX89L0c+U8604Qi8H3cGdaPnoRc/VoB+XJ4s56nc/f0s70ng6 + 8ngb8LoFPJbsfEC2D9tjs8TPva4Vh6f5VvrgeeLGFQe7Y3/3/0Dblo5THnfNOEIHHJXyca7D7v9d+6MX + PY/pMgf0bI9C02U2Vn1l9ve5iJ6tq/JS/Si32OnDy+HeCVb+32XK9lpUHKHrhDTd+x/vYX9koq1lMgfe + kv0rbvFZ9s/mf/hC9Ze6jwKfVHGErlP8f9f/A7v+Dt+U6Tybw+/4f61bJs89/H9m/45bfIb/9w/193Ow + eu5Q5ykZR+jl6NnBqn17WteFzjOrs5luN8Vq/hdw+1fzv853ZuV09u+4Rb93z/nfW8e91zuD94Wx/2Bs + PxgMBoPBYDAYDAaDwWAwGAwGg8Fg8PfhEXvR2fv0kcF+E/+s9r2zx9LfaRFgb0z2eYQ+dW+pw99pXHGJ + 7EvzfH3/CO8A0g/7N57JU3Z1Oc1H9+3xqeyvv2PCviP22ek+tyzPam/wrfJ3e/XVhvoeEIfWG92yh0z7 + BPk9q21X6OryyDJ1X6T2jaz/ONivluXpn2pvnj+72huya3/ey0T6+N/fsaH2f228hv39dwfUPvTDDuwj + rqB9qdvLFtf1t0U6rOxP26FPOzz/rP9znfx5l5vuodR9mwHam75riX1++ozusdV8tU2Shu8nOBlDVBf+ + rqGsbyuoW1ee+oLM9oy9+IZVmeSp7+9RmfX9cif2973uXOd/rSfnknScVFm4z3f0isx6LkTzpT2o3Fd8 + 08l+cT1fob4Aeaq+Tbvc8efZ2QHNx/eWr+THj2v+AXSn72JTPTLm+3yl0rHPebRO2l99T6/uZdf5lOaR + vduP9uD98HRM4JxTNp9xYEP/7cxqHGb9tDOWI8vp3LCzP3rVMQv/6e1I7a/+Xfeak+eJ/fVcIu1Xy8ze + XeXzrMr+/E87vjInQL7s40B+dEcbzvw6uqv8qud75d11gcr+6jcBbTGLFeiZUV3fUFedH1bnGzL7U66O + 5Xpdz6V6n9JzH539kcnb1zPQxV125xaR7qrc3Xh30p703Tralz7aeYrBYPCh8Q+IJGqi63e9FgAABHlt + a0JU+s7K/gB/ojYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAHic7ZqJbeswEAVdSBpJISkkjaSQFJJGUog/NvhjPGxI2bFk+JoHDHSQ + 4rHLQyK13yullFJKKaWUUkr91/f39/7r62tKhd+Dsh6XTPsS6V9TVZ/dbjfl8/Nz//r6+nN+y3WnHlXW + LVW+f3l5Odhj6/SvrfT/+/v7L0p1rHo/o/9p+8/g/5k+Pj5+2gBzAW2jriuMdsF1hdWR+BXOvVmadcw4 + s7T6s3VOGdI/pFdQPsoxSnOkildpVv/n/JH9X3VL8EUf/4nPuIgvcpzM+aPCiF/immdLlVdd17Gemc1F + WR7yY2zK8yxbpp9UnFkbSLtUvs/g/w62m/n/7e3t8I6IfXim98dMI31BmyC80uKc9kf8nlYdyze8l5Fe + 930+k2nSnrqyLecc+Oj+n2nm/+w7fZ5MSviw7FjtJsdUylD3M/1U3iOv9N+oHWf/rvBKHx/W+WwOIB5l + 5P0n7z2K1vg/hc2Yb+nn+W6A7bFh9uvsm/S9fDcYjRX5Ppr9P8eQ9FWWJcs7q+8Sj6Kt/I8v8W32tZ5O + fy/o40mOtdn3ZvNR1oP8envI8TzTZMzpNulkmW75O+iv2sr/pbJRvgOWbft7e/c17ST9wPsEadGmeOYU + /2c8xiTyIs1eviU96vyvlFJKKaWeU5fa581072Uv+daU6yCXsGF9G82+a/r31F+19nm1P6w51JrJbM16 + jdL/fW0jv/NH3/xLayGsm/TzayjLOepH/OMxu7+U3uh6ltcsrVG/Ju5szWlW5r+K/bLc+yNf1jzynPbC + M7nOnm0k9145Zw2XezkmsHezJrzbOsuZ64l1j/Vm1pr6ulKF9zrWvUwrbVfH9BmQV16jHqfEeiX3SZe9 + 7qUyn6Pul2xvo/7PWhu2Zj++azT2V7zcxy3oI6zzrQk/Vi/sl2Ne/7ch9yEQexl1zLXKtFWm2fMa2bf/ + E0Gc0f2R/0dlPkd9/j/F/xl/9v6QduKcvRmO+DP/yVgTfmq9+pyXewL4elSn9EG3T17P8sqw0T4T97M/ + c515j8p8rrbwf99HKZ9QpjwvMdYxfjKW0Z7Xhp9SL8IYN/iPABvTvhBzbfd/H3Nyj/KY//l/IvMo9fvd + /7Myn6tj/s+5HTv0fpJ1LfXxKX2Dv4jLPLZV+DG7Zxi25P0652HGcOJi57Q1e534M/coj5WDf2vxIW0n + bcqe2cj/ozKf8y7IflvWKX1H3866Yo/RWEXcTK/n1/3Z+8GacMKW6pVh1IO5pPs35/LRNxjP9+dGefUw + 2kDfi0wbEz/znpW597VLaGm9QD2+9L9SSimllFJKKaWUUkpdTTsRERERERERERERERERERERERERERER + ERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERER + kTvkH4eXjmrZO46cAAABU21rQlT6zsr+AH+lhQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeJzt1uFpg2AUhlEHcREHcRAXcRAHcREH + sbyBC7emIf+KCeeBQ5tP++tNbM5TkiRJkiRJkiRJkiRJkiRJkiRJH9FxHOe+70/nOcu1d/e/uk/3b13X + cxzHc5qmx8/sGP0s99S9dRbLsjxexzAMf76HdO+yY5V9s2F2rc37PbV/1Te//o3uX7bre1Y565/lep19 + +8bZv7pe0/3Lc77vX//X53l+2j/X7P99Zdt67tfv27b9+sz357/9v6/6Htf3q/dArtV3+5xF1Z8d12uS + JEmSJEmSJEn69wYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPhAPwr5rLhS + 2ipmAAAAv21rQlT6zsr+AH++6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeJzt0sEJADAIA0D3X9q2L93Aghe4fyCJrATrZNxkZboP + M/v7wE59fx/Y5+3fTfcBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAA4A8HGDVFOD2SbdgAAAC8bWtCVPrOyv4Af8HTAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4nO3SQQoAIBAC + QP//6Q2iSy8waIS5C5q5E74ySbaTdh9K+58PtPvQ27/dBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4wwIV/0E8QbmIKQAAKhdta0JU+s7K/gB/ + 1PAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAHic7X0ruOwo1vaSSCwSicQikUgkFhmJxCIjkVgkEhmJjYyMjI0smX9R+5zunp7p+dT/ + 1Ihac+k+VXvXCbAu77suVObnfTaeANqzkS3G10Zgh6PDAnBdxQVrAN+FfsPzYh3ggQoQAbYKG9CeJMF3 + 3ZPZsYTB8c18c/zxQ28AlZvdQSvVcTO2vmxPFRTgeJ1A4SjpMPBhua8rP/cJEqDcVCykX40DrzeBuHNc + ndvez5heQmwxKfxDEfOV0g8PK9Rr2yjuRnlOIjj1lmRQQ8xfORbI0j5PBjAmbKs0uI9JbSv+7utukHfu + 20cXj3LFsPiNmeABPFGqg3EJD9EUCSuvl7KFSJN9DPqhrsFlobcdf3GPua5+foJbKS6jNWODiTYs1vq4 + xcDBgm0Onh0EdU+g+O+oOXBc+NP9PC8bDy8/vPy3uE7EOhKek03CmwVwKbYVIBX2xJwtHNUeMnDAJw+H + dUtxYAK+tM1ft+Da5sAf1S+4mfs2/DQdPH4AhQu0Hjc3U+obgcfhTt3VQlHX4dbt8+unqJR1TeD3e4+O + +zXIJS5Cpk7JigsYazoYCWubTsC8bYE52A/85wIqp3WBVcV8MqiG2SU70e8RgZurHbhdRuFh15Ipzwuq + UkUlSFdjME1nA8Y+u/gpL3RpaJNmmPXVCdG4WIY+ysocqBLLRcvF8uMpFZbUPA8s6Tb2czTF4cB/1jWb + euBi8D+kokof8OD2XBs8GU8cTSVPIyg35DbgOqcWPQmdqur904sHWUGj98KDSA22qwiQTKBzNpvOA02D + WOrI+UJjWJ0mx5hKvRN0BGW7Lsr2EvyozwkzLhhqZSiUzz/UPD+dLTHpJHCdTwE9AP1/eBQaEowL/9r9 + CR9dPEp0wqG3VmebmmB8SSw85LiVfeBG8w5Ral3QbyVbUGHR/QGINv0YWBJZv8084ReqPxCoWW9oAIBG + nhf8MDY34YGtHzZKRvGXR1vwhQV3dimazzc/LBzkQHeOCo0Gbk3gx6bdE23MBcprPj/16MlM2mrvD7MV + PYDdD9old4NaiGl6RlR4BoEQ9IQkEYGva1D2OJtFt5Bt8vgJakFPmfHU1/regKueHD5+/pKG5dzg2IaR + ugbpQjn6teIJhgvWpAI4Va2rSxwOQ8N2tGpi6w9MC+jl50O8Au+Aea8FoQvnHo07pG0XagtQLtQFIJf4 + 4+9Ea/EVwup3/qFV/0XCwoAz9NyowZSRlZI4eOtVwIVKyvy5cxKPoxKJnlyEswgO6Mmfjis7Bn0HBHOt + GEYQ4x1RKB5LSa3u96ZY3ZuExqgKuTELy/r+K0uP+qjoZFiMH107SsSjju9jCIh4JJ2nRNHXt94PEJ6i + E1hgadceIOyo69EQQGzMj/tybrBtJIGoxl7XOc6E73pCR8+eoFE9FcZuZhDka4RE6vasZTsKPKj9+BZh + 0/w+LLXiop6basbva4cwQp9bcCj14iS/HQC6h8egkdv2zHD9NAxuyxnLcWCUWMaT+Qn6ds+19ugY2S54 + 9UhujPuNb3KfSr6AzzWs8cHg/0jgHHWpifHq64eXjwtm4KcWDO3X12HsGJWGiVtaFxk6PjzHTUBKoznz + Av0CrOIk03FdFQGhAH09SIUWDGsE0P4zxsoYuuOv+emyunS/UZM9f4IBLAk3xscGtd+7/ezq53MNxD6Q + 46Iz+Lbv3tw2W6bRZ5WolwxSTI3Yjaqo+RGtPxe3KAyNJnfdLjdDI35CewiCXa/TCtfil1XUVwKyDDeZ + 0jF/amt+gmWUY0e7v3IWy8f5H9DjRNguGxI99MtLtNzu6wjFQN1X3cexTRID+zDlgJAD4/vt6OS8MM5c + BtryeH+Q8652z3HfTlqiCz4jBMYNg4SM4EJFlwmZpSmVgromedhBfXTlP0L76gtZ7G0owldJcOGBybHy + gPELuHy9Mpcr6P3gXDK39iDt3imQbNw4t9Z0bBgFHMFAWi5CvYCj7xgElWXxhYuNg1JT3/SBxoNtPmSY + SYHp/mz+9PInTg1hhmTEokczuSWNhrwjqyk/6LzPJAUBcx8c3wkDXzU9E7LtWRzHQlIjLWsicUdQLdBl + Ev4i52atwQjC4SXWqS3PkzMeN+rQ5MzIONRNOZkZgc+KGYosG6zo5F8qbjtIgsH6xkUWQsaxhh3WY2y/ + fvjO7rHnDcudW4OOL3Nhn2e4SRUXRQgy5Sx6A9Ix2hd0gRs6kmtMxtPnzsEGoc3tHMiZCA/lo4tHKeYc + 1HsSN8pv8MvFbmSo+KTot/DhlXtAcvVQmD4QxmvCd4xr172+oQsjuA9rWBdmeZES1kXH95rIQanNQsI5 + wnVNELDb3jRQPblfBNNskpDGZ1ePrtiH3U6VFNUjll9umYdH76RwA3ALLFqFHhL/VXWbNsiT98NWppvT + sLjlMEVLkTcqfLf9GF2ve538NzVGXOnUtrv6elHYFaB6IeGCxwcJdRVIgD7u//OmdXCastr29VTZo7tv + M1ApiPi0W+Be1Tbj1trz42AgLZpkJhLhKj22JcTAymZZkjy/XpKD2LdgXzadqN/IfGgduMzrBTPYoT6A + hDIgGVC6EPpx/9c3BxXPjrML/dUO/CxOc75qu0aZPUK1ivxgC6jtgbOVQ6fy9gRpjlWSKQFS6ZCPQEzF + 3wbSroSL/4kdArfHp21iPDITRkiTUnGwshzDuUa9HuXj+PdYHLppjeSOsvVPbaxHQf3dELf00n06tioa + vssTdQzEZgXYOh1AyqtSSJkuA/LZ74qwNsLxvLHDNo5qkOUBp2PmR09wTy0NEPqtNh1IF9L9+tzKf0ud + yUrm21XAzuwWOrpKx4O+nYr9yXY8Z3qO44zoBPEg8f8IMUYqcW2ZLTuTDUnyjRQANw0/A94e4k/sKFly + DdlkZccKz8lGBsoXDeWZCdL60aX/lnLF2EiWEB/LwWHsx8fboeilPhjGEAAsoZW4rzP/ixtE7FoIi7lF + 8crGrgHScXHw7Ng3cBuBP7iDyIzeS6wGkPfFJQ7IpySBOw/ivD8e/VGschiNNrNwUAM3YLxhmYa46V49 + hAeE/clS57ZfF4b1mbMpbaOExz7ARDMjHsKjDLxfJw3nSf7CHcmtdQ/Ni0PByi1SjW4QZeOvhLOyz/Mf + c3OVwO5Mz8w8yK0vE7XgG1IpfEx0XzG76fLBPHX1fUUKRMh6bMLxJBRI0xEOK+9OCB1fFTLsv3MHYwHb + ry3yckiRVi6gGbOliPQa/87U1o8ngJHvjJmFKH0L4G8Jsu06Xeisp9s2p0ZobHexhrxAjNJ6xns2ulBf + mT8MAbYNResb0t0Y0GizovbfuaODw3ai5kurDC/7QukiTdL+smg7wNfx8foX5wTQsaFvv+spZ1ICbSDD + JKw1vywglEWDePwoP6o6E7ZnwFXrtYUXRrw0npnqwCAJ6OAWCPO137nDRTSMgQYhlrNxPxBs5JgHkPVB + rvUOiJ8WWXa07nM6bVIeqihHB/+wWt952kdxhCt3MBEpTnr79ufhdYhZ9C3FJpWnj+jAIqJZEAk9J0mG + /c4dgzjwt+gYe7uZbYgbTC9+hLmPGYPCIf6Px/v/LuNC767g2NHMQT2onvjnvLFZmcsMfHoE9PA6Zokb + I8Ksf29ouTJYaoH4x7xJfDHW2GkzE0EofPmndhBmMcUDE6XWDU5LgIiaTMDNqxraLp/r0+s/0nLZXcNx + QlOgXiNvFvL+LmyAJQR6AuLigYsNr8T3WdLjfmmI5JSDUK4AiHEQHut1JjcohAUc+VU7QgKhkmwgekbr + eNeOBrOBootNm/fL8gssfFBmDFb11qD2a4KRJ5tOuvRizJQvoSRFTpW5qgpIA0HXad77UQs9gnUtHy9U + 5lFBRDmTo6jSZ9XsV+3w4CVZWu+uXICf2mHUpaTjNZBPrWpyqA/L0fGp+HUiOePWQth6cIPMrNZ2bKWt + bD0LgxCPHhXJuFns6Md5nxXcvjV0A/2FptIRC9dtRYOBep4r/Kod700bsb6LPqhMv2vHPYtycgw0jQP5 + 7Oqn/BQvZ/0PmkXAchL+wH5QhhimbkLfW6CuXGdbFXuhq4eSZxqj41nbA3ZSn1cnG4aHCntGZbBtMe/e + AYx7CwLdd74HA0z/1TuQHTeoJiSR5/54+mPa+MPQMJ8LgY6ebt32ifPtJhH62nXFQDVzQ+gUQ9WxbZzx + HzhIGIPjZWbx77nGdAySzjxQSlr/9I6wQIOP75D5yNz/6B2huxY0nUt8ro8jYA4XfRdhn2sRUk7i/6An + l35JVSHCa/JXAYCBTIybWtf1RJgETkuVwaUF98yhVeMGDKOcz8T3/d07tJpnzBLvTH5hKF3lr94hQmp2 + 6CjRZvLH9R+jv7n0XLfzQuUFfZJBdUj3UqGkoBEGzgIA1Wfr95juGk0f7guoPDeHDE+LtzrI7cpb9202 + de129o7dxzszjua1Pcj87ncd6ad3jG4e6Puv//j6j5cEpKQzcEv+zk2ipLalg6ire/MuAHQLriKhA/Nu + dJoaPxPg641kafGwYsxDNrPzPbDKRQmzGaAerR7VDoUsgKUb0a5PyAqynPUwuWj+dofLRxePkjsePbrv + 9U1WJaUT9vebyqqIcvynAMDkwjSdSBgNHThy5NnUBkvsjYDJeLrtQRz0OsoyDdoRZcAuqawB192fME48 + Z53r5IP4mSeIpsruzTaj6YclwcNHzDHW1rdtfe6hXmqubu3SvdNT/TAMQ3oBi8ftTFiGM/2cyFWD9oRN + O14F4v5eFX5YY7C9joABYQEa6HYDR0gFdSLh5w0xivNrTtdL/VSCPyyI2edygz3u3I6GWH02Q0IQVzbb + uwCQRt8XqFzuM5ZtezQhXTn/4but19xKNG7pFNgTNUrTc4R3gtxeDKpEn/doqA+CjfSMevaCu7aj3/04 + /5XgHFDrlF2Xep0X8PO6MbYbeKXifhcA/LVKOCNjviWBz74TrrdjRntk85cb3d8DHbq9bx33iEB3xTCJ + UXNQr+O5EppfFcyBziA/CDN5QjLEkHt8vv8FNbOnuId9yz54e3EoYb+y29GCYaE/BYCO0P5RkyXyp8xs + waz2NPSCpM+CeG1XSdeGgEftr6ZD6BrS9OwxEuoSkgjbEmvXUdb9jDNpSmgb3CzH/4D64/qJGku6mlKI + 98XE8KIVxMLI9shPAWD6yOeFyrK7ho88IfONWxCeuE532fS2YcTc+LaiWoCOwHiJXFJ0dpoB0l5aSu3d + YVwoAcoeyFqZUEWWj+v/7iAxipreowWhaI7g953seQYw91MAkEwhyHkOzVEDUA/MnhDtI1JA07EmNK9h + nzkQAicyyQGexIvgtkkVrEXHOFjJ+Ely1cQKNKgTlip5nv1iH89/i8u80xovI4kNeLDd0dw7xjJSfhcA + qosB9eIZ1uFPN8/tomjvk9WYVY7zXginawT0DbuapeOnKOS+oCyliJ8yGIf81ynPQwf3OijZkDuXHFEz + Pr3+NOEp+iWI+dRiNu4XQjgB/VygFB+zAHC19ZrJ7KtlPOq67VPpuRCQgtjs2ivTanPwxHCMhLgI3yU8 + Jhl0ezM/jKMIrHxOBilwNxFimdQCf+7j6T/UYaRp5EQTtVdsCH+SFgGhvfCIWJefAsBa2j47dfidKaRr + bwMpI1fhyM1Tmm6uY1K9ePSUe1vAc1h2MaSsOTWJEV+sGqwwS+kY9cEYihG21Zk32j6eAFRwoTWHi7jZ + tKRsGjOlU/wi2J3qTO69iFiQ6oXnnatb4TVt9qH4Dgy6v1EAPSJ1ffaRxnDPmCp4jWL21Ym67uOX4yNp + TSuz+UC7WiGQCf63z65+auDSWZTdrBUYkaG00iQePzWKlaBtBnTqdYhdIIcljkCO992FOg40aDjbg7iY + obt0dewXM8A7+grOkU+kMUEvcou/BL6ZBQobxhHPUio1wMf7/8vsadwmaiMEWR4yOrokWggoYa1k5kDf + Pid6Cp4UBoTXTBCsr7Os2wIX64e2qb02WpDRwDh8YBvGNt0iAuWMWAEx31+AD3oFJxAN7kYtqfe70Y/7 + P7D6WF4C8gtBOj8xCKIHO9jMaC9LGJ5WQif1Bwz8dk9uEh8ZzwRGU/KCvMkM9QbGpOqw78zeUXs9a2g3 + mcAXTeWvwHdYUflw/Fx2782Tzk8v/7Yuxfba8bkK9I1OM7fNSEtS8MlsikuWIptxHQ/ylB6JXlfcBLNo + gbwxd3T5HuOgC2hABwKnrNEz8GUSHzb+TnyWkhe2wamLSTt57o/zPx8DOHRbBoNb6SGRC/qltSQsH86u + TK23ZZYijwV6puUlSd6GQepr3MwXEVLkbCEzdfo44NqBeRPf6z8TX55Xxem9KYNBYkPS9en1T/khcnq/ + hGGipDVTsc1u1pejs4gRI8IUPP00M3mP3DYiqhWg0lL96tH034NDgYJRBOW/Jj64W4+8IwpCAEjNx73f + e3ahZeAF12tPw9dUyWxxKI9VSAPwzbVojw8Mu92UOBC6LEB0sLX2yMPVgkzbe3AItBmV/B+JL9gqy0wi + jRRkX3kMH+9/n2ssNO4LR8yW/dFiRD4swc8ub2sSIv1EO4Z8N5ZbLhUctUTWQ+0XQZyfEeQjiWnH5uls + //yvic+foUnWrNAW8gji894fRL9xvV0r3hhlRQmV8pZfqy0toJmDpgvasGOpHJuz6OeAXvi/pUz0Ephx + sTF+EesQQ5DfQ5P/lPieQ5M5oY4IZ06NEeTz/f/7GpP1SMgEOEIWa2jq56tKwY4jWqQtYPpWgW+nmU3L + YSA5chgRFyQAE+7VuhQDWi28aPNraPIfCh8/Q5Mktwn7XpbxdMSP9785ZCiROBZQ3YVd2raao9d3WxKi + AXdsGOnPO7WMZJXUbpfXhvRvzkur6I1k+QxIGqbehChE+q+Fr5+hSW78ScwgTe/j/F8oAPmBvA4Z8Bqc + khju8DUpNhJIL/b1zFnNMYe4ILFRUuaMax8sbsvW+1hIva0GyonwDpGDyss/FD7/GJpkZpMEAecmNrN/ + /Py9XkV/FUqWbYsSFKrpdN7Ie6VDl7WbvcxDrAJjYL3u2TDKhXYeNR3Dwng85IPzXDlZArfd/2Ph+9fQ + 5H0x2jA2Ite0IdaP85/rOepkbDonlgz7MUgiwTxITrYCJl0LxDXP9o82tjnHIRZJ7TE7IpDJHvjuWXhB + z9dLLZd59X9tfGh/H5oMZBwNoiJd8M/X/9vruQhVuS5ha6tnYmJ3MjSsjab9mIPAai25IFEOqszCAE9k + li3WBNbBOk6KFAlkR6eXy6VN2f6l8eX496FJCVb4Rz2zV/h/IQFyNumbd9FIM/OxGLsW+9JwIvEd19uL + FwwBuaGCoyNnNip4pTkf8K6E72t7SJCuPFeQqPYI7dxCFlHfjU/nvw9NVgQR+YV7S2j1n148zEZ/FYlX + DR085LVMwIbH/Tp3JHywb1mAnC1RXTwTyqvN2iHhIeWeufvwRs8ecUAQfTNmoVL4JR27mI1vFcS/D02O + o9AGcq9E9fLx/g8ry0587FnNWfyZjjb9ahuXcgMx0TEVazT4+mknWMkZ/GaDXDrcZa7evPcg3H65UDma + 5dIx7d+Nj7MK9h+GJjeOOFGhYXBl9cfx74bo9og1IDlvc6ZN2nmXCfVLBC3R23WKpHUWOebcB0JkeDdI + h1aZvtbYJqZfD6ivnSFD8qNsARhnTA4g/zA0ibF/t3lT9wKlfXz+cdmz3mvQ8OwB2frMYq5zOgFmuicv + 0PyCwA4d47yzQCH+XSW5g9x6I9c9xEqkc8dgM5d/VyBlejyNUElH8g9Dk4Ku+zCoQOg07cf7vwsD1d4e + +zW4AjVntZV4/2OO7VS/R/Tc+1UZ9COvUtQbQ0PGP3RkeMcc9Ib4TGCMxoE4p/Xr6WRnc1TiPw9NNn0s + DAJfnZqTIB+WXIJr2awE3viebHTOhGyvc6CLOm0iMtfjNbdiAWVcXQhc8gzLm9zke3hh30xvuYtR039s + UHdLN43s6T8PTe6liQBeYSzVH1/+bGIo1MAxhz/xv+uDBu3zDs8zkx2E3YxeN6Lb9jrwEIXL3oPDw166 + dXOsz5pxQrk4KsGN6GiAR3iMH7BZ/g9Dk201AoNNfu17Ux9nwDlu6JFSWJYdQ31b+auLF59oB0/OdEOb + lzEjVzPoByqa+zo7vSZfGIdHFNvbgrQmnEh8id3Q4MHoNYJMkYn/PDTJg+/yXGIFpvvH+7+GEZdEP11m + TXtWNiqCU+Q8h5vZ22WZjTAsoCGr2A1BtMvYvrzn9oXkofaMS7gIn22knG2dwcbfjcNyi529T/dvQ5Ot + pJr8vDKJCggf93/W4SODw3AnJLRGkMu/QCHSezCeF1aEEaZZV6nYwm9lrSypiieqi0gnur/3YOdy/THO + 4troFYMjms2/D01SU5Ya3RATWbqP33+SWkId0GjEfJZ4srdI80ANNttZemlXH2yEd1ETwQwRHOF9gnlx + Dxdz4K3ssyFgq7Mffnkjoi1PGN0L1ZGq9rehSaJYlfeQbdbLERR/vP4H8ajMec/xgdH1n3zv/Cowb0Ci + gRtd25OJXihgUA8RynHtq8KDdratZWa3AenPdu4nmk9BPUKA+x6Mg92CcOTvQ5NKIwq8qBAM1p6ej6f/ + cZXmNbENUtHD7he6gOuBd1Ym7YUpDNSpg9luQHBv743nsl3dzHszrHa2Ogv6DhjH+rWG3sNZkejNZiph + V+/SX4cmJwpKazBupYmir0S4eOiP+38LlFwvSJPczMlEDOF1A85xD1qWXNqMRyvllbVYC3/sWqVUPnon + ETf5UYeBcRGbhLmOvrnJjO0CI0viUi7yL0OTuwdW1txnx1HXyKyo5enj8x9cC+IQ7GC4tz9k3NsXMXmz + lOV1Tds2xrU4WlhdOMP4XnCFqndR6xZFvucNJgjvjIetMRZmchNSmgPBS2n78efQJBBHpBbOE9Pw1N2c + nY/bxwHQlRgejK/waDMngcCuwviUt5MGx3u8HBQBsZoeHjs71n5GoPZL7jM30GuaFJbMdTwIcPa1ZMqO + 5eiIK0OofxmapAiZDI1S4Q+R9016ucaP5783GyluANKACKnmBPbUIGxFAw5HHRt5zWy9hzoSzJH/SY3e + 7ZJvH7FC7DxBXI6Mmlw2j2Tw6P1GpuBxH+DPocmFUYlb4rUxPGuo7t1Owz7e/5dTJXzrgs7Qle9zAVR1 + xmxlwfWSYppBfUG46+btFp7NtP4x4/0bMMBBex/JS/mTypgbFNO6vHRq0Qfyx9BkFkxJPXKeCREPolBS + Z/P7x/NfTGK4UrOj6Q3FnusQbD+r4pCUnikhsNZbq4lGwuYIb9bnC3dpJgJrXpRDVih0QHD8VzLT97IO + 83to0niBSJdHUm6yBM2JjGURBENi+ngF1ImwgarpNkfBs6n3HZGsjVGF1mQyN1zM2KtknFORG8k9XLtG + AqdmKrww6ZEdA9ujANwOT1ADkPrHNShyhFrfmRN4UZEQWhY+CKV+R6BBZR5OLfXj+f9qWfTcN5fSvm47 + +m4/07kiULeveNJ9Foe3lRoWEB0v4E7k9hgA3lc63YomtJfXvobZOngiDOqtpdGDEDuGxFLnFO2OlLkX + DIGuY+SbhdGZ9bHx3BX9/P0XRWxtR8KnYT2PCxdoCPIWwqhCR1/mdYWz11luWuyrrUZZcyD0Vem1IhV6 + TRsmyzrL3UduuAHPde0u9URYiRqDyTVYbhQcmsGh9gKbO959ttSrJVhPP71+Mib53dgc7rgHRnJqaqIR + GKIdhTiImwt5QcrG5BcqsVcQCRGhsxOJgKnSEEmQ0hGY9wSTOS+5p3WCYin1gVqzbBg66wxz4bwOuSA4 + sgg1wMBK9Zo+fv9ptIGcgZDQ85hJPJBrne0OwrYNiNmk416iU9d4mluL6Aey1nMOgK1HRBe44RbA4yiG + ACuJlyJFo7mzSG7WhkFfm+FcRrALWvm92Rkl0swbi5LE0j/e/zRgtQSsrHed1x5fe9k3oRwcErkQIvTd + MKtZ7QbxrkCTZn2YpbbJ/+fFUEVqr23I2nY671HIHh2IvwTv0t5yTr6vW3fM9J164Cr2sYo1HAiLYz+i + ah+f/+UYlKyUZp03tbWXP0tf0RpQndEnLCBzWihvVA18kerDk1wtJerolJL7aISS7HmDwfjF88pcCWNL + LxcJy6dZR9S72pD+ho0S0XomYyIMKscoLN/Rf9z/t3ntRZ9xKJp5B5hb9byyHHFg5WGgN1jEvN3gfhD/ + wf6kvlKupdAv5sl7aJJohfHMIqZn+MMaET13CJiO992g+9WXiIqEP/rT6f/MtpF1Ek4daHvcZxcP8/o/ + dHGqnoht7SzlonWiW/dZwvPab3T/BqEr9IAUIatoZtrnLjJd7N25P4cmlZx3QeFSiLS+RsPEvuu2vhFV + Za2Cqwcl/Z1kz8tsAhuzafiBi9r+cf6XTXMm5zaZWJt3Fi0mzh4WWe2+hTMopa2ZRzmRrHtj14HM1qzH + vw9N5t07o6Kt6Rx23vD6gG6BIpfOCAHtYrUduSkEvTyD177N3PGHZV/wMbYVHfyccOjo9+d996sxMfTd + RiOR31lYg4FwFaRxFBpdl9xzjn8fmixbwiUqJhyhBrFAgx1EvGbzw9K5QYfZmWZzlAy9yyyog94+v/4z + Wc8c1JUXCDvnOiNoRUys151bAVJPZIvKEV5H6ZpBjcupZt9+WSH9y9DkReXqGPEIbhe3DvT8MK9+xeAv + q0EO3fKBCpZL5W33ggGxED5e/91XWaJxhiK1ARITpeI8GAjRhkaKss7rKmMHub06Gnjbd4R8pM2ed62X + Jf1laFJnsOXY+gHm3OZkvznntPzMlarLw3aeM8B2DURnmY1o5z4+P//yM+mJaJ9ZRGuQZ0PjKAPKuRDC + g6rUlY3011PJAbeGrNScfOgNETJRwfw5NKko8b0/T0cUlVEzNIUNZutjY7O2UG9wA1SAWWGDllcooz4f + x/9ArXTjWDSIYPBMR6bZnnCVCIvJhONh7+OaxbBsHlykWzmCY/syNvPiVQ5/DE02Ziy6ivK8ywAnmxek + EYUGnkPQ1vE0+Gk8RPduBLLvoSP4ePyX0LMNSHo1574PW6oKsl+pz8G36Bu0UXScwW2Jdk7LQ1/M8WCg + h3jo0fzifg1NYggNcwAW1xRQRXi7hsfYhzviwPdjV8EXjCpuXAKY1j+Z/4/Xv3aDOk8I9bEzQGa+H4PC + 0lLPJsZl2/L18x0V78dtBZZbbdmcQweEh+o1Zhco/AxN1uTW2U5pA7+OWVjQeNCoE6Xm1T2nNAp5xEgY + T5E85J4wfJqP538cEzP0pcwQCMxb//ZCCTp/ZDGRIlrZTyQrS3j3acySPe9zmOVKuP6A1GemiMgMBX7f + aVtSeieGGLyaB8ZHFZ4jr3aRl33aPqU/V35wH69zz6A/nv9rs95B99dLw3LFtcTFzmtAlknwfD5eePBz + uD/9XNXwYCxEG+jk9cySAamMsI77Na8H6Z1XAxeP2/zJXqMT6PjndwuARNMZtU0HiOEW+FhmXzg8JXwe + ABM4X+yZiXASUPMxhoXj7oRX/sBsbd+DmJOKZj80nv28uzq98syBD5Nfo9SUdiD7jx37TeA7a546cM3W + f7IfDuIcjV/W+eFzatiOcXddJEaHo30c/6IVu3mrDdfX+yxiGCfV6LBOh87+PdRvufbW9NQwLAr1qMf/ + urvifpbGTYseg8T7ClmVUrSJpTTiNishj5R9QH51h2qwY3SdQ9T64PVQLsVZKP14/9eOj6C913q1PzcS + MMZXWEbco75vGwOMG723r4szeg6LgYqAMAh/sBauEMFjOKhSo+pHsaJnH5sw4PYTDAKmVJdV6xr48oS9 + uwSLnXetIi80s97Wj4/3v77uQ75RYFsFe0+zkwS6Y8hur12VA7YrlXvbe63nvN7VzgtOESGBM5WBPK7e + x1btgux5eOksIUMK5plisi6g6ghsZtbX5cH4Jw6E0sFcINefzs/t4+tndSwQzry3uJp3LS8W9N8z26X5 + uvHtTrDt4lgom2MNg47T4m/1TRFE8JFzyhmiYbcj/CMwe2MNwcjA8CW1dURXQ0IBE6VagEHpzVo2uyzY + j+f7eP0LKFolh7G12Od3gNHA4YpIYgZoVGIy+f48JPfGKmPAvOYIbmv3s5Rf99eQlfCr0Pe/I3tEK0IQ + PJkh4sf8Uy+8Z/8Dw49g+DmUrS5eB12fj8OfmcZD7cwrPpnsM++DK5UF/TXG612kBnGdh4TEcKZqJwpy + rzm1vEZEyKwpfjoM4+gTup+XOUdt3OyTeDKSpfktP3MGlnJhRyJ5dlWzgXBhO1IPDwKr5+P498SDnBcg + zEGfXCYX+rmTCv8/jSPEB+xuCdvtMNplZY29tJNkfm+SceW2ra8hACHHslBeSCk+vm+168iRLq7EvAiR + 1LY9SHm7GTe0U7QtTQK9CuE/3v/0OHmjY7bOEZnfp3EThHzcIwjeNSL5MtCRC4dstW0jl/1VidHKDrvs + /WX8zqTOVobOyGIXTZAUg6TNmAX3akHMYzcGvlofCuRdPgs0vWdi9grEFf3x9XMJMldScxVLZwPtNt4I + 5ucNJ3M4cR8bevFUVFuUUptbd8QAzSlJi5c5+DV4pY7cV2r92g0jlCFuTit6UJLE2pQT4gnBSxBn4rLB + 3lRFjCwHwgHB+cfrP7Ole+leUn+oRN2lPbQEUqV1XnrDrmOvkqezzAelJkQOvASJJ2k3NPhTFctKvRzf + lI/tJkil5lWpG0fguxxbEfuC4WNyCMPNpoGKPPqSi6Ee179+Hv6JNH3ahRie7WiisM47r/zybHBBWvC0 + JZJY1FoWO3SuUT+EE7H39x0OnvN5me9rMSvGs3U2wh1bq6nM1uiGDOFE9ZljNL/GnNrz0N0qZISVQiMh + fd7/ZT7Hc2FtaKG5/+pHM2Ne5x7mlzh1OfO8tZUb4riI34LPVel5h4dCO2YLIlmQaT3WRKcLPcriHILB + NJHtiiahjpLe13y+Q/2T0jO7xPeaZ13Yfvz+m1dnagZoU0lYVQ6TkSIxQTVGHn9yNAbXEnv84dzrQeSX + 6Wxqn3e4VPDO4ZbddDY8He8vTsGgII1c+6T186tSpXTH+w6YYXwMxmmozM0+iVQumldvPj7/eIyVz6+8 + WbzmyHvnt7cAbSwHSrJ7Z2d9yXZ+KepdDxfR5nMhP3f46PdYm4mB5uiYHkeXRrClbCE3joZVnNZ8Q27h + Fmbvs4U6LkBtcSWuweiHlLF/3P/TUgYXdT8HLpaPOq/oYULrvNa6zMwPRSNHHINnJ3lYq0Tl/3WHU1e6 + 5JnHikQpjJgyMdfRtRmJVrWIYWdXrOBQjrOycY2956vPyJLPCwPNFnOUHz9/wraVQOVnIimq7arnqXNc + 1lTy4vR73gHqq2YzZ/eJbwLR/s8dXhB3Ol7rvCIAld17uRiqZCOzFRghz4Z04H2pLG7GeVdGS3YIj8KE + WJQSNJaDfDz7jUIrBKDorsI4iGk9jy07tAizWAk1HGw9L3hs6vOOd5WW5fcdbrNd7CAKGeArU9vTvCx7 + 1Z4Ary/QlOJWAKH7uys8PA3YzAikrsBvIB6f4t7n6NSHZU5w+V5P//4WvNn5jk92C3FStiCjE3dIAUYz + +92B3z1v/Y87/GB+a5JSzwN3Q9/P7bKUdcKm4xlroWpFmBN8+4lxz6mO1BQEgktWLM8L4M8qP97//nhr + 4dx9UZB4wVW56RMGnC9N2/zeA8TC4YE9nQuk1bBw/b7K5j3nipAIHs5eePpCFsuP9xfe2kt4q6fTQPBb + kPLOSZm+1FlCXRZUqqbinpAHmY/n//rRS3EFyS4C4b2AUNbbdxv/vMPTQUdc9JpXws+LgdjiOfnjDs8y + Ux6zl+VBXOiTWVyc33k9x6jwR2r3vszpx/XVosJN7kAa4ox01IK2hHYDRH++/IMOes4rstnMQg7Euly3 + n6z8vMPVrIX32es2y9trmTZM/rjKptpS319y/W6dbHxVQc+vEDwRCqK5y3ymsiGCuDu6EsE4mV8x3Gfp + c96N+cZDn4f/v+QgCz7qVkKJfuYstrmuGaDLmF//JmaZ5NVqcPEvV9nUjcp3YQD5TyC8mrBIDBIzydv7 + /r4BSWCYyPJ12PkVu/W4MerNpMn7twjIz/f/f+UrX/nKV77yla985Stf+cpXvvKVr3zlK1/5yle+8pWv + fOUrX/nKV77yla985Stf+cpXvvKVr3zlK1/5yle+8pWvfOUrX/nKV77yla985Stf+cpXvvKVr3zlK1/5 + yle+8pWvfOUrX/nKV77yla985Stf+cpXvvKVr3zlK1/5yle+8pWvfOUrX/nKV77yla985Stf+cpXvvKV + r3zlK1/5yle+8pWvfOUrX/nKV77yFYD/B92aGZl3Kab3AAAyIWlUWHRYTUw6Y29tLmFkb2JlLnhtcAAA + AAAAPD94cGFja2V0IGJlZ2luPSLvu78iIGlkPSJXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQiPz4KPHg6 + eG1wbWV0YSB4bWxuczp4PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNS4w + LWMwNjAgNjEuMTM0Nzc3LCAyMDEwLzAyLzEyLTE3OjMyOjAwICAgICAgICAiPgogICA8cmRmOlJERiB4 + bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiPgogICAg + ICA8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0iIgogICAgICAgICAgICB4bWxuczp4bXA9Imh0dHA6 + Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iPgogICAgICAgICA8eG1wOkNyZWF0b3JUb29sPkFkb2JlIEZp + cmV3b3JrcyBDUzUgMTEuMC4wLjQ4NCBXaW5kb3dzPC94bXA6Q3JlYXRvclRvb2w+CiAgICAgICAgIDx4 + bXA6Q3JlYXRlRGF0ZT4yMDE0LTAzLTAxVDExOjI1OjU0WjwveG1wOkNyZWF0ZURhdGU+CiAgICAgICAg + IDx4bXA6TW9kaWZ5RGF0ZT4yMDE0LTAzLTAxVDExOjMxOjMzWjwveG1wOk1vZGlmeURhdGU+CiAgICAg + IDwvcmRmOkRlc2NyaXB0aW9uPgogICAgICA8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0iIgogICAg + ICAgICAgICB4bWxuczpkYz0iaHR0cDovL3B1cmwub3JnL2RjL2VsZW1lbnRzLzEuMS8iPgogICAgICAg + ICA8ZGM6Zm9ybWF0PmltYWdlL3BuZzwvZGM6Zm9ybWF0PgogICAgICA8L3JkZjpEZXNjcmlwdGlvbj4K + ICAgPC9yZGY6UkRGPgo8L3g6eG1wbWV0YT4KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAK + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAog + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + IAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAK + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAog + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + IAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAKPD94cGFja2V0IGVuZD0idyI/PtgBTlwAAABcSURBVEhLY/iPBBgYGP4zMjKS + hZHNQWczIAuALCAHgBwHwrgAVS3BZRHVLcFmEU0sQQ92qliCHhejlpCUskeDazS4wCEwmhnxJoTRfDKa + TwYon1DSJEJuSqHX8wDL/1D5/L+gqQAAAABJRU5ErkJggg== + + + + 17, 17 + + + 197, 17 + + + 1347, 18 + + + 1431, 18 + + + 1544, 18 + + \ No newline at end of file diff --git a/TextPad.vb b/TextPad.vb new file mode 100644 index 0000000..4c2718f --- /dev/null +++ b/TextPad.vb @@ -0,0 +1,492 @@ +Public Class TextPad + 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 = 230 + Public minimumsizeheight As Integer = 230 + + Public needtosave As Boolean = False + Public codepointsearned As Integer + Public codepointscooldown As Boolean = False + + 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() + txtuserinput.Size = New Size(txtuserinput.Size.Width, txtuserinput.Size.Height + pnloptions.Height) + setupoptions() + setskin() + + ShiftOSDesktop.pnlpanelbuttontextpad.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttontextpad, ShiftOSDesktop.tbtextpadicon, ShiftOSDesktop.tbtextpadtext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown, txtuserinput.KeyDown, btnnew.KeyDown, btnopen.KeyDown, btnsave.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(530, 330) '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.textpadname + 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.boughttextpadicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.textpadicontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 + + If needtosave = True Then + If ShiftOSDesktop.boughttextpadsave Then + e.Cancel = True + infobox.title = "Textpad - Save?" + infobox.textinfo = "It appears that your text document currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to close textpad without saving the changes?" + infobox.Show() + infobox.showyesno() + infobox.sendyesno = "textpad" + Else + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + End If + Else + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + End If + + End Sub + + 'end of general setup + + Private Sub pnlbreak_MouseEnter(sender As Object, e As EventArgs) Handles pnlbreak.Click + If pnloptions.Visible = False Then + pnlbreak.BackgroundImage = My.Resources.downarrow + pnloptions.Show() + txtuserinput.Size = New Size(txtuserinput.Size.Width, txtuserinput.Size.Height - pnloptions.Height) + Else + pnlbreak.BackgroundImage = My.Resources.uparrow + pnloptions.Hide() + txtuserinput.Size = New Size(txtuserinput.Size.Width, txtuserinput.Size.Height + pnloptions.Height) + End If + End Sub + + Private Sub btnnew_Click(sender As Object, e As EventArgs) Handles btnnew.Click + If needtosave = True Then + infobox.title = "Textpad - Save?" + infobox.textinfo = "It appears that your text document currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to start a new document without saving the changes?" + infobox.Show() + infobox.showyesno() + infobox.sendyesno = "textpadnew" + Else + makenewdoc() + End If + End Sub + + Public Sub makenewdoc() + txtuserinput.Text = "" + needtosave = False + codepointsearned = 0 + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + showsavedialog() + End Sub + + Public Sub showsavedialog() + File_Saver.Show() + File_Saver.savingprogram = "textpad" + File_Saver.saveextention = ".txt" + End Sub + + Private Sub btnopen_Click(sender As Object, e As EventArgs) Handles btnopen.Click + File_Opener.Show() + File_Opener.openingprogram = "textpad" + File_Opener.openextention = ".txt" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Public Sub setupoptions() + If ShiftOSDesktop.boughttextpadnew = True Then btnnew.Show() Else btnnew.Hide() + If ShiftOSDesktop.boughttextpadopen = True Then btnopen.Show() Else btnopen.Hide() + If ShiftOSDesktop.boughttextpadsave = True Then btnsave.Show() Else btnsave.Hide() + If ShiftOSDesktop.boughttextpadnew = False AndAlso ShiftOSDesktop.boughttextpadsave = False AndAlso ShiftOSDesktop.boughttextpadopen = False Then pnlbreak.Hide() + End Sub + + Private Sub txtuserinput_TextChanged(sender As Object, e As EventArgs) Handles txtuserinput.TextChanged + needtosave = True + If codepointscooldown = True Then + Else + codepointsearned = codepointsearned + 1 + codepointscooldown = True + tmrcodepointcooldown.Start() + End If + End Sub + + Private Sub tmrcodepointcooldown_Tick(sender As Object, e As EventArgs) Handles tmrcodepointcooldown.Tick + codepointscooldown = False + tmrcodepointcooldown.Stop() + End Sub + + Private Sub tmrshowearnedcodepoints_Tick(sender As Object, e As EventArgs) Handles tmrshowearnedcodepoints.Tick + lbtitletext.Text = "Textpad" + Me.setuptitlebar() + tmrshowearnedcodepoints.Stop() + End Sub +End Class \ No newline at end of file diff --git a/Video Player.Designer.vb b/Video Player.Designer.vb new file mode 100644 index 0000000..0fa68fb --- /dev/null +++ b/Video Player.Designer.vb @@ -0,0 +1,366 @@ + _ +Partial Class Video_Player + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Video_Player)) + Me.pgcontents = New System.Windows.Forms.Panel() + Me.AxWindowsMediaPlayer1 = New AxWMPLib.AxWindowsMediaPlayer() + Me.pnlcontrols = New System.Windows.Forms.Panel() + Me.picsongtrack = New System.Windows.Forms.PictureBox() + Me.btnplay = New System.Windows.Forms.Button() + Me.lbltotallength = New System.Windows.Forms.Label() + Me.btnload = New System.Windows.Forms.Button() + Me.lblcurrenttime = New System.Windows.Forms.Label() + Me.btnstop = New System.Windows.Forms.Button() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.tmrsongtrack = New System.Windows.Forms.Timer(Me.components) + Me.pgcontents.SuspendLayout() + CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlcontrols.SuspendLayout() + CType(Me.picsongtrack, System.ComponentModel.ISupportInitialize).BeginInit() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgright.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.AxWindowsMediaPlayer1) + Me.pgcontents.Controls.Add(Me.pnlcontrols) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(347, 193) + Me.pgcontents.TabIndex = 20 + ' + 'AxWindowsMediaPlayer1 + ' + Me.AxWindowsMediaPlayer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.AxWindowsMediaPlayer1.Enabled = True + Me.AxWindowsMediaPlayer1.Location = New System.Drawing.Point(0, 0) + Me.AxWindowsMediaPlayer1.Name = "AxWindowsMediaPlayer1" + Me.AxWindowsMediaPlayer1.OcxState = CType(resources.GetObject("AxWindowsMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State) + Me.AxWindowsMediaPlayer1.Size = New System.Drawing.Size(347, 167) + Me.AxWindowsMediaPlayer1.TabIndex = 0 + ' + 'pnlcontrols + ' + Me.pnlcontrols.BackColor = System.Drawing.Color.White + Me.pnlcontrols.Controls.Add(Me.picsongtrack) + Me.pnlcontrols.Controls.Add(Me.btnplay) + Me.pnlcontrols.Controls.Add(Me.lbltotallength) + Me.pnlcontrols.Controls.Add(Me.btnload) + Me.pnlcontrols.Controls.Add(Me.lblcurrenttime) + Me.pnlcontrols.Controls.Add(Me.btnstop) + Me.pnlcontrols.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlcontrols.Location = New System.Drawing.Point(0, 167) + Me.pnlcontrols.Name = "pnlcontrols" + Me.pnlcontrols.Size = New System.Drawing.Size(347, 26) + Me.pnlcontrols.TabIndex = 10 + ' + 'picsongtrack + ' + Me.picsongtrack.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.picsongtrack.Location = New System.Drawing.Point(90, 3) + Me.picsongtrack.Name = "picsongtrack" + Me.picsongtrack.Size = New System.Drawing.Size(145, 20) + Me.picsongtrack.TabIndex = 9 + Me.picsongtrack.TabStop = False + ' + 'btnplay + ' + Me.btnplay.BackgroundImage = Global.ShiftOS.My.Resources.Resources.pausebutton + Me.btnplay.FlatAppearance.BorderSize = 0 + Me.btnplay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnplay.Location = New System.Drawing.Point(3, 2) + Me.btnplay.Name = "btnplay" + Me.btnplay.Size = New System.Drawing.Size(22, 22) + Me.btnplay.TabIndex = 2 + Me.btnplay.UseVisualStyleBackColor = True + ' + 'lbltotallength + ' + Me.lbltotallength.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbltotallength.BackColor = System.Drawing.Color.Transparent + Me.lbltotallength.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotallength.Location = New System.Drawing.Point(237, 1) + Me.lbltotallength.Name = "lbltotallength" + Me.lbltotallength.Size = New System.Drawing.Size(60, 24) + Me.lbltotallength.TabIndex = 8 + Me.lbltotallength.Text = "0:00" + Me.lbltotallength.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnload + ' + Me.btnload.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnload.BackgroundImage = Global.ShiftOS.My.Resources.Resources.loadbutton + Me.btnload.FlatAppearance.BorderSize = 0 + Me.btnload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnload.Location = New System.Drawing.Point(323, 2) + Me.btnload.Name = "btnload" + Me.btnload.Size = New System.Drawing.Size(22, 22) + Me.btnload.TabIndex = 3 + Me.btnload.UseVisualStyleBackColor = True + ' + 'lblcurrenttime + ' + Me.lblcurrenttime.BackColor = System.Drawing.Color.Transparent + Me.lblcurrenttime.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcurrenttime.Location = New System.Drawing.Point(27, 1) + Me.lblcurrenttime.Name = "lblcurrenttime" + Me.lblcurrenttime.Size = New System.Drawing.Size(60, 24) + Me.lblcurrenttime.TabIndex = 7 + Me.lblcurrenttime.Text = "0:00" + Me.lblcurrenttime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'btnstop + ' + Me.btnstop.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnstop.BackgroundImage = Global.ShiftOS.My.Resources.Resources.stopbutton + Me.btnstop.FlatAppearance.BorderSize = 0 + Me.btnstop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnstop.Location = New System.Drawing.Point(299, 2) + Me.btnstop.Name = "btnstop" + Me.btnstop.Size = New System.Drawing.Size(22, 22) + Me.btnstop.TabIndex = 4 + Me.btnstop.UseVisualStyleBackColor = True + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 223) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(347, 2) + Me.pgbottom.TabIndex = 23 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(351, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconVideoPlayer + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(126, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Video Player" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(349, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 193) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(349, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 195) + Me.pgright.TabIndex = 22 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 195) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 193) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'tmrsongtrack + ' + Me.tmrsongtrack.Enabled = True + Me.tmrsongtrack.Interval = 200 + ' + 'Video_Player + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(351, 225) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(251, 125) + Me.Name = "Video_Player" + Me.Text = "Video Player" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlcontrols.ResumeLayout(False) + CType(Me.picsongtrack, System.ComponentModel.ISupportInitialize).EndInit() + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgright.ResumeLayout(False) + Me.pgleft.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents btnplay As System.Windows.Forms.Button + Friend WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer + Friend WithEvents btnstop As System.Windows.Forms.Button + Friend WithEvents btnload As System.Windows.Forms.Button + Friend WithEvents lbltotallength As System.Windows.Forms.Label + Friend WithEvents lblcurrenttime As System.Windows.Forms.Label + Friend WithEvents tmrsongtrack As System.Windows.Forms.Timer + Friend WithEvents picsongtrack As System.Windows.Forms.PictureBox + Friend WithEvents pnlcontrols As System.Windows.Forms.Panel +End Class diff --git a/Video Player.resx b/Video Player.resx new file mode 100644 index 0000000..92dc047 --- /dev/null +++ b/Video Player.resx @@ -0,0 +1,143 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAtwAAAAIB + AAAAAQAAAAAAAAAAAAAAAKIAAAAAAwAACAAAAAAABQAAAAAAAADwPwMAAAAAAAUAAAAAAAAAAAAIAAIA + AAAAAAMAAQAAAAsA//8DAAAAAAALAP//CAACAAAAAAADADIAAAALAAAACAAKAAAAbgBvAG4AZQAAAAsA + AAALAAAACwD//wsA//8LAAAACAACAAAAAAAIAAIAAAAAAAgAAgAAAAAACAACAAAAAAALAAAA3SMAAEMR + AAAL + + + + 141, 17 + + + 235, 17 + + + 348, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Video Player.vb b/Video Player.vb new file mode 100644 index 0000000..b98d9c2 --- /dev/null +++ b/Video Player.vb @@ -0,0 +1,458 @@ +Public Class Video_Player + 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 = 251 + Public minimumsizeheight As Integer = 125 + + Public clickedstop = False + Public cancelindex = False + Public trackbarcurrentwidth As Single + Public trackcurrent As Single + Public tracktotal As Single + Public cooldown As Boolean = False + + 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() + + ShiftOSDesktop.pnlpanelbuttonvideoplayer.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonvideoplayer, ShiftOSDesktop.tbvideoplayericon, ShiftOSDesktop.tbvideoplayertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + AxWindowsMediaPlayer1.uiMode = "none" + AxWindowsMediaPlayer1.URL = "" + AxWindowsMediaPlayer1.stretchToFit = True + 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(750, 480) '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.videoplayername + 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.videoplayericontitlebar '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 + + Private Sub resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 btnplay_Click(sender As Object, e As EventArgs) Handles btnplay.Click + If AxWindowsMediaPlayer1.URL = "" Then + Else + If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then + AxWindowsMediaPlayer1.Ctlcontrols.pause() + btnplay.BackgroundImage = My.Resources.playbutton + Else + AxWindowsMediaPlayer1.Ctlcontrols.play() + btnplay.BackgroundImage = My.Resources.pausebutton + End If + End If + End Sub + + Private Sub btnload_Click(sender As Object, e As EventArgs) Handles btnload.Click + File_Opener.Show() + File_Opener.openingprogram = "videoplayer" + File_Opener.openextention = ".mp4" + File_Opener.lbextention.Text = File_Opener.openextention + File_Opener.showcontents() + End Sub + + Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click + If AxWindowsMediaPlayer1.URL = "" Then + Else + AxWindowsMediaPlayer1.Ctlcontrols.stop() + lblcurrenttime.Text = "00:00" + btnplay.BackgroundImage = My.Resources.playbutton + End If + End Sub + + Private Sub tmrsongtrack_Tick(sender As Object, e As EventArgs) Handles tmrsongtrack.Tick + If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then + picsongtrack.Refresh() + lbltotallength.Text = AxWindowsMediaPlayer1.currentMedia.durationString + lblcurrenttime.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString + Dim TrackBrush = New SolidBrush(Color.FromArgb(255, Color.Black)) + trackcurrent = Math.Round(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition, 1) + tracktotal = Math.Round(AxWindowsMediaPlayer1.currentMedia.duration, 1) + If tracktotal = 0 Then Else trackbarcurrentwidth = (trackcurrent / tracktotal) * 100 + trackbarcurrentwidth = trackbarcurrentwidth * (picsongtrack.Width / 100) + picsongtrack.CreateGraphics.FillRectangle(TrackBrush, 0, 0, trackbarcurrentwidth, picsongtrack.Height) + TrackBrush.Dispose() + End If + End Sub + + Private Sub picsongtrack_MouseDown(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseDown + trackjumpto(e) + End Sub + + Private Sub trackjumpto(ByVal e As MouseEventArgs) + Dim xposition As Integer + xposition = e.X + AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = (AxWindowsMediaPlayer1.currentMedia.duration / picsongtrack.Width) * xposition + End Sub +End Class \ No newline at end of file diff --git a/Viruses.vb b/Viruses.vb new file mode 100644 index 0000000..c5c70b8 --- /dev/null +++ b/Viruses.vb @@ -0,0 +1,322 @@ +Module Viruses + 'Zero Varibles + Public WithEvents zerogravitytimer As New Timer + Public zerogravity As Boolean = True + Public zerogravitythreatlevel As Integer = 1 + Public zerogravityxspeed(20) As Integer + Public zerogravityyspeed(20) As Integer + Public zerogravityspeedth1 = 1 + Public zerogravityspeedth2 = 2 + Public zerogravityspeedth3 = 4 + Public zerogravityspeedth4 = 8 + + + 'Mouse Trap Varibles + Public WithEvents mousetraptimer As New Timer + Public WithEvents cooldowntraptimer As New Timer + Public mousetrap As Boolean = True + Public mousetrapthreatlevel As Integer = 1 + Public mousetraped As Boolean = False + Public bangstoescape As Integer = 20 + Public trappedwindow As Integer = 0 + Public bangvelocity As Integer + Public bangforceneeded As Integer = 30 + Public trapcooldown As Integer = 20 + Public trap1 As Boolean = False + Public trap2 As Boolean = False + Public trap3 As Boolean = False + Public trap4 As Boolean = False + Public alreadytrapped As Boolean = False + Public trappedprogram As Form + Public bangstoescapeth1 As Integer = 20 + Public bangstoescapeth2 As Integer = 40 + Public bangstoescapeth3 As Integer = 60 + Public bangstoescapeth4 As Integer = 80 + Public bangforceneeded1 As Integer = 30 + Public bangforceneeded2 As Integer = 50 + Public bangforceneeded3 As Integer = 80 + Public bangforceneeded4 As Integer = 120 + Public trapcooldown1 As Integer = 60 + Public trapcooldown2 As Integer = 30 + Public trapcooldown3 As Integer = 15 + Public trapcooldown4 As Integer = 10 + + 'Beeper Varibles + Public WithEvents beepertimer As New Timer + Public beeper As Boolean = True + Public beeperthreatlevel As Integer = 1 + Public beepercountdown As Integer + Dim ResourceFilePath As String + Dim soundplayer As AxWMPLib.AxWindowsMediaPlayer + Dim beeperinterval As Integer = 5 + + 'Zero Virus + Public Sub setupzerovirus() + setupzerogravityspeeds() + zerogravitytimer.Start() + zerogravitytimer.Interval = 20 + End Sub + + Public Sub setupzerogravityspeeds() + For i = 0 To 20 + If i Mod 2 <> 0 Then + Select Case zerogravitythreatlevel + Case 1 + zerogravityxspeed(i) = zerogravityspeedth1 + zerogravityyspeed(i) = zerogravityspeedth1 + Case 2 + zerogravityxspeed(i) = zerogravityspeedth2 + zerogravityyspeed(i) = zerogravityspeedth2 + Case 3 + zerogravityxspeed(i) = zerogravityspeedth3 + zerogravityyspeed(i) = zerogravityspeedth3 + Case 4 + zerogravityxspeed(i) = zerogravityspeedth4 + zerogravityyspeed(i) = zerogravityspeedth4 + End Select + + Else + Select Case zerogravitythreatlevel + Case 1 + zerogravityxspeed(i) = -zerogravityspeedth1 + zerogravityyspeed(i) = -zerogravityspeedth1 + Case 2 + zerogravityxspeed(i) = -zerogravityspeedth2 + zerogravityyspeed(i) = -zerogravityspeedth2 + Case 3 + zerogravityxspeed(i) = -zerogravityspeedth3 + zerogravityyspeed(i) = -zerogravityspeedth3 + Case 4 + zerogravityxspeed(i) = -zerogravityspeedth4 + zerogravityyspeed(i) = -zerogravityspeedth4 + End Select + End If + Next + End Sub + + Public Sub floatingwindows() Handles zerogravitytimer.Tick + If Knowledge_Input.Visible = True Then calculatelocations(Knowledge_Input, 0) + If Shiftorium.Visible = True Then calculatelocations(Shiftorium, 1) + If Clock.Visible = True Then calculatelocations(Clock, 2) + If Shifter.Visible = True Then calculatelocations(Shifter, 3) + If Colour_Picker.Visible = True Then calculatelocations(Colour_Picker, 4) + If infobox.Visible = True Then calculatelocations(infobox, 5) + If Pong.Visible = True Then calculatelocations(Pong, 6) + If File_Skimmer.Visible = True Then calculatelocations(File_Skimmer, 7) + If File_Opener.Visible = True Then calculatelocations(File_Opener, 8) + If File_Saver.Visible = True Then calculatelocations(File_Saver, 9) + If TextPad.Visible = True Then calculatelocations(TextPad, 10) + If Graphic_Picker.Visible = True Then calculatelocations(Graphic_Picker, 11) + If Skin_Loader.Visible = True Then calculatelocations(Skin_Loader, 12) + If ArtPad.Visible = True Then calculatelocations(ArtPad, 13) + If Calculator.Visible = True Then calculatelocations(Calculator, 14) + If Audio_Player.Visible = True Then calculatelocations(Audio_Player, 15) + If Web_Browser.Visible = True Then calculatelocations(Web_Browser, 16) + If Video_Player.Visible = True Then calculatelocations(Video_Player, 17) + If Name_Changer.Visible = True Then calculatelocations(Name_Changer, 18) + If Icon_Manager.Visible = True Then calculatelocations(Icon_Manager, 19) + If Terminal.Visible = True Then calculatelocations(Terminal, 20) + End Sub + + Public Sub calculatelocations(ByVal program As Form, ByVal number As Integer) + If zerogravityxspeed(number) > 0 Then + If (program.Location.X + program.Size.Width) > Screen.PrimaryScreen.Bounds.Width Then + zerogravityxspeed(number) = zerogravityxspeed(number) * -1 + End If + End If + If zerogravityxspeed(number) < 0 Then + If program.Location.X < 0 Then + zerogravityxspeed(number) = zerogravityxspeed(number) * -1 + End If + End If + If zerogravityyspeed(number) > 0 Then + If (program.Location.Y + program.Size.Height) > Screen.PrimaryScreen.Bounds.Height Then + zerogravityyspeed(number) = zerogravityyspeed(number) * -1 + End If + End If + If zerogravityyspeed(number) < 0 Then + If program.Location.Y < 0 Then + zerogravityyspeed(number) = zerogravityyspeed(number) * -1 + End If + End If + program.Location = New Point(program.Location.X + zerogravityxspeed(number), program.Location.Y + zerogravityyspeed(number)) + End Sub + + Public Sub removezerovirus() + zerogravitytimer.Stop() + Viruses.zerogravity = False + End Sub + + 'Mouse Trap Virus + Public Sub setupmousetrapvirus() + mousetraptimer.Start() + mousetraptimer.Interval = 20 + cooldowntraptimer.Start() + cooldowntraptimer.Interval = 1000 + Select Case mousetrapthreatlevel + Case 1 + trapcooldown = trapcooldown1 + bangforceneeded = bangforceneeded1 + bangstoescape = bangstoescapeth1 + Case 2 + trapcooldown = trapcooldown2 + bangforceneeded = bangforceneeded2 + bangstoescape = bangstoescapeth2 + Case 3 + trapcooldown = trapcooldown3 + bangforceneeded = bangforceneeded3 + bangstoescape = bangstoescapeth3 + Case 4 + trapcooldown = trapcooldown4 + bangforceneeded = bangforceneeded4 + bangstoescape = bangstoescapeth4 + End Select + + End Sub + + Public Sub seeifcantrap(ByVal sender As Object, ByVal e As EventArgs) Handles cooldowntraptimer.Tick + If trapcooldown < 0 Then + mousetraped = True + Else + trapcooldown = trapcooldown - 1 + End If + End Sub + + Public Sub trapmouse(ByVal sender As Object, ByVal e As EventArgs) Handles mousetraptimer.Tick + If mousetraped = True Then + If alreadytrapped = False Then detectprogramtotrap(Knowledge_Input) + If alreadytrapped = False Then detectprogramtotrap(Shiftorium) + If alreadytrapped = False Then detectprogramtotrap(Clock) + If alreadytrapped = False Then detectprogramtotrap(Shifter) + If alreadytrapped = False Then detectprogramtotrap(Colour_Picker) + If alreadytrapped = False Then detectprogramtotrap(infobox) + If alreadytrapped = False Then detectprogramtotrap(Pong) + If alreadytrapped = False Then detectprogramtotrap(File_Skimmer) + If alreadytrapped = False Then detectprogramtotrap(File_Opener) + If alreadytrapped = False Then detectprogramtotrap(File_Saver) + If alreadytrapped = False Then detectprogramtotrap(TextPad) + If alreadytrapped = False Then detectprogramtotrap(Graphic_Picker) + If alreadytrapped = False Then detectprogramtotrap(Skin_Loader) + If alreadytrapped = False Then detectprogramtotrap(ArtPad) + If alreadytrapped = False Then detectprogramtotrap(Calculator) + If alreadytrapped = False Then detectprogramtotrap(Audio_Player) + If alreadytrapped = False Then detectprogramtotrap(Web_Browser) + If alreadytrapped = False Then detectprogramtotrap(Video_Player) + If alreadytrapped = False Then detectprogramtotrap(Name_Changer) + If alreadytrapped = False Then detectprogramtotrap(Icon_Manager) + If alreadytrapped = False Then detectprogramtotrap(Terminal) + + If trappedprogram Is Nothing Then Else trapmouseinprogram(trappedprogram) + If bangstoescape < 0 Then + mousetraped = False + Select Case mousetrapthreatlevel + Case 1 + trapcooldown = trapcooldown1 + bangstoescape = bangstoescapeth1 + Case 2 + trapcooldown = trapcooldown2 + bangstoescape = bangstoescapeth2 + Case 3 + trapcooldown = trapcooldown3 + bangstoescape = bangstoescapeth3 + Case 4 + trapcooldown = trapcooldown4 + bangstoescape = bangstoescapeth4 + End Select + alreadytrapped = False + trappedprogram = Nothing + End If + End If + End Sub + + Private Sub detectprogramtotrap(ByVal program As Form) + If program.Visible = True Then + If Cursor.Position.X < program.Location.X + program.Width - ShiftOSDesktop.windowbordersize Then + trap1 = True + End If + If Cursor.Position.X > program.Location.X + ShiftOSDesktop.windowbordersize Then + trap2 = True + End If + If Cursor.Position.Y > program.Location.Y + ShiftOSDesktop.titlebarheight Then + trap3 = True + End If + If Cursor.Position.Y < program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize Then + trap4 = True + End If + If trap1 = True AndAlso trap2 = True AndAlso trap3 = True AndAlso trap4 = True Then + alreadytrapped = True + trappedprogram = program + End If + End If + trap1 = False + trap2 = False + trap3 = False + trap4 = False + End Sub + + Public Sub trapmouseinprogram(ByVal program As Form) + If Cursor.Position.X > program.Location.X + program.Width - ShiftOSDesktop.windowbordersize Then + bangvelocity = Math.Abs(Cursor.Position.X - (program.Location.X + program.Width - ShiftOSDesktop.windowbordersize)) + Cursor.Position = New Point(program.Location.X + program.Width - ShiftOSDesktop.windowbordersize, Cursor.Position.Y) + If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 + End If + If Cursor.Position.X < program.Location.X + ShiftOSDesktop.windowbordersize Then + bangvelocity = Math.Abs(Cursor.Position.X - (program.Location.X + ShiftOSDesktop.windowbordersize)) + Cursor.Position = New Point(program.Location.X + ShiftOSDesktop.windowbordersize, Cursor.Position.Y) + If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 + End If + If Cursor.Position.Y < program.Location.Y + ShiftOSDesktop.titlebarheight Then + bangvelocity = Math.Abs(Cursor.Position.Y - (program.Location.Y + ShiftOSDesktop.titlebarheight)) + Cursor.Position = New Point(Cursor.Position.X, program.Location.Y + ShiftOSDesktop.titlebarheight) + If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 + End If + If Cursor.Position.Y > program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize Then + bangvelocity = Math.Abs(Cursor.Position.Y - (program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize)) + Cursor.Position = New Point(Cursor.Position.X, program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize) + If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 + End If + End Sub + + Public Sub removemousetrapvirus() + Viruses.mousetrap = False + mousetraptimer.Stop() + mousetraped = False + cooldowntraptimer.Stop() + End Sub + + 'Beeper Virus + Public Sub setupbeepervirus() + setupbeeperintervals() + 'If System.Diagnostics.Debugger.IsAttached() Then + ' ResourceFilePath = System.IO.Path.GetFullPath(Application.StartupPath & "\..\..\resources\") + 'Else + ' ResourceFilePath = Application.StartupPath & "\resources\" + 'End If + beepertimer.Start() + beepertimer.Interval = 500 + beepercountdown = beeperinterval + End Sub + + Private Sub setupbeeperintervals() + Select Case beeperthreatlevel + Case 1 : beeperinterval = 60 + Case 2 : beeperinterval = 24 + Case 3 : beeperinterval = 8 + Case 4 : beeperinterval = 1 + End Select + End Sub + + Public Sub beepermakesound(ByVal sender As Object, ByVal e As EventArgs) Handles beepertimer.Tick + If beepercountdown = 0 Then + My.Computer.Audio.Play(My.Resources._3beepvirus, AudioPlayMode.Background) + beepercountdown = beeperinterval + Else + beepercountdown = beepercountdown - 1 + End If + End Sub + + Public Sub removebeepervirus() + Viruses.beeper = False + beepertimer.Stop() + End Sub +End Module diff --git a/Web Browser.Designer.vb b/Web Browser.Designer.vb new file mode 100644 index 0000000..6c0575f --- /dev/null +++ b/Web Browser.Designer.vb @@ -0,0 +1,342 @@ + _ +Partial Class Web_Browser + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.webwindow = New System.Windows.Forms.WebBrowser() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnhome = New System.Windows.Forms.Button() + Me.txtlocation = New System.Windows.Forms.TextBox() + Me.btnforward = New System.Windows.Forms.Button() + Me.btnback = New System.Windows.Forms.Button() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.pgleft = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.pgright.SuspendLayout() + Me.pgcontents.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.pgleft.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 598) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(796, 2) + Me.pgbottom.TabIndex = 23 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 568) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(798, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 570) + Me.pgright.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(130, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Web Browser" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(798, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 568) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.webwindow) + Me.pgcontents.Controls.Add(Me.Panel1) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(796, 568) + Me.pgcontents.TabIndex = 20 + ' + 'webwindow + ' + Me.webwindow.Dock = System.Windows.Forms.DockStyle.Fill + Me.webwindow.Location = New System.Drawing.Point(0, 35) + Me.webwindow.MinimumSize = New System.Drawing.Size(20, 20) + Me.webwindow.Name = "webwindow" + Me.webwindow.ScriptErrorsSuppressed = True + Me.webwindow.Size = New System.Drawing.Size(796, 533) + Me.webwindow.TabIndex = 1 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.btnhome) + Me.Panel1.Controls.Add(Me.txtlocation) + Me.Panel1.Controls.Add(Me.btnforward) + Me.Panel1.Controls.Add(Me.btnback) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(796, 35) + Me.Panel1.TabIndex = 0 + ' + 'btnhome + ' + Me.btnhome.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnhome.BackColor = System.Drawing.Color.White + Me.btnhome.BackgroundImage = Global.ShiftOS.My.Resources.Resources.webhome + Me.btnhome.FlatAppearance.BorderSize = 0 + Me.btnhome.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnhome.Location = New System.Drawing.Point(761, 5) + Me.btnhome.Name = "btnhome" + Me.btnhome.Size = New System.Drawing.Size(30, 25) + Me.btnhome.TabIndex = 10 + Me.btnhome.UseVisualStyleBackColor = False + ' + 'txtlocation + ' + Me.txtlocation.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtlocation.BackColor = System.Drawing.Color.White + Me.txtlocation.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtlocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlocation.Location = New System.Drawing.Point(73, 5) + Me.txtlocation.Multiline = True + Me.txtlocation.Name = "txtlocation" + Me.txtlocation.Size = New System.Drawing.Size(684, 25) + Me.txtlocation.TabIndex = 9 + ' + 'btnforward + ' + Me.btnforward.BackColor = System.Drawing.Color.White + Me.btnforward.BackgroundImage = Global.ShiftOS.My.Resources.Resources.webforward + Me.btnforward.FlatAppearance.BorderSize = 0 + Me.btnforward.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnforward.Location = New System.Drawing.Point(39, 5) + Me.btnforward.Name = "btnforward" + Me.btnforward.Size = New System.Drawing.Size(30, 25) + Me.btnforward.TabIndex = 8 + Me.btnforward.UseVisualStyleBackColor = False + ' + 'btnback + ' + Me.btnback.BackColor = System.Drawing.Color.White + Me.btnback.BackgroundImage = Global.ShiftOS.My.Resources.Resources.webback + Me.btnback.FlatAppearance.BorderSize = 0 + Me.btnback.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnback.Location = New System.Drawing.Point(5, 5) + Me.btnback.Name = "btnback" + Me.btnback.Size = New System.Drawing.Size(30, 25) + Me.btnback.TabIndex = 7 + Me.btnback.UseVisualStyleBackColor = False + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.Black + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 34) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(796, 1) + Me.Panel2.TabIndex = 6 + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 570) + Me.pgleft.TabIndex = 21 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(800, 30) + Me.titlebar.TabIndex = 19 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconWebBrowser + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'Web_Browser + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 600) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MinimumSize = New System.Drawing.Size(300, 200) + Me.Name = "Web_Browser" + Me.Text = "Web_Browser" + Me.TopMost = True + Me.pgright.ResumeLayout(False) + Me.pgcontents.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.pgleft.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents webwindow As System.Windows.Forms.WebBrowser + Friend WithEvents btnhome As System.Windows.Forms.Button + Friend WithEvents txtlocation As System.Windows.Forms.TextBox + Friend WithEvents btnforward As System.Windows.Forms.Button + Friend WithEvents btnback As System.Windows.Forms.Button + Friend WithEvents Panel2 As System.Windows.Forms.Panel +End Class diff --git a/Web Browser.resx b/Web Browser.resx new file mode 100644 index 0000000..b8db819 --- /dev/null +++ b/Web Browser.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 57 + + + 111, 57 + + + 195, 57 + + \ No newline at end of file diff --git a/Web Browser.vb b/Web Browser.vb new file mode 100644 index 0000000..df328a5 --- /dev/null +++ b/Web Browser.vb @@ -0,0 +1,464 @@ +Public Class Web_Browser + 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 = 300 + Public minimumsizeheight As Integer = 200 + + 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() + + ShiftOSDesktop.pnlpanelbuttonwebbrowser.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonwebbrowser, ShiftOSDesktop.tbwebbrowsericon, ShiftOSDesktop.tbwebbrowsertext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + gohome() + 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(800, 600) '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) + If webwindow.DocumentTitle = "" Then lbtitletext.Text = ShiftOSDesktop.webbrowsername Else lbtitletext.Text = ShiftOSDesktop.webbrowsername & " - " & webwindow.DocumentTitle + 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.webbrowsericontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 txtlocation_KeyDown(sender As Object, e As KeyEventArgs) Handles txtlocation.KeyDown + If e.KeyCode = Keys.Enter Then + If txtlocation.Text.Contains(".") Then webwindow.Navigate(txtlocation.Text) Else webwindow.Navigate("http://www.google.co.uk/search?q=" & txtlocation.Text) + End If + End Sub + + Private Sub webwindow_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles webwindow.Navigated + txtlocation.Text = webwindow.Url.ToString + If webwindow.DocumentTitle = "" Then lbtitletext.Text = ShiftOSDesktop.webbrowsername Else lbtitletext.Text = ShiftOSDesktop.webbrowsername & " - " & webwindow.DocumentTitle + centretitletext() + End Sub + + Private Sub centretitletext() + If ShiftOSDesktop.boughttitletext = False Then + lbtitletext.Hide() + Else + lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle) + lbtitletext.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 + End Sub + + Private Sub btnback_Click(sender As Object, e As EventArgs) Handles btnback.Click + If webwindow.CanGoBack = True Then webwindow.GoBack() + End Sub + + Private Sub btnforward_Click(sender As Object, e As EventArgs) Handles btnforward.Click + If webwindow.CanGoForward = True Then webwindow.GoForward() + End Sub + + Private Sub gohome() + webwindow.Navigate(ShiftOSDesktop.webbrowserhomepage) + centretitletext() + End Sub + + Private Sub btnhome_Click(sender As Object, e As EventArgs) Handles btnhome.Click + gohome() + End Sub + + Private Sub txtlocation_MouseClick(sender As Object, e As MouseEventArgs) Handles txtlocation.MouseClick + txtlocation.SelectAll() + End Sub + + Private Sub txtlocation_TextChanged(sender As Object, e As EventArgs) Handles txtlocation.TextChanged + + End Sub +End Class \ No newline at end of file diff --git a/Window.vb b/Window.vb new file mode 100644 index 0000000..094f6a1 --- /dev/null +++ b/Window.vb @@ -0,0 +1,1123 @@ +Public Class Window + +#Region "NATIVE" + Private Enum GW + NONE = -1 + HWNDFIRST = 0 + HWNDLAST = 1 + HWNDNEXT = 2 + HWNDPREV = 3 + OWNER = 4 + CHILD = 5 + ENABLEDPOPUP = 6 + End Enum + Private Declare Function GetWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal uCmd As GW) As IntPtr + Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Integer + Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer + Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String) As Boolean + Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Integer, ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer + Private Declare Function GetParent Lib "user32" (ByVal hWnd As IntPtr) As IntPtr + Private Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer + Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As System.Runtime.InteropServices.HandleRef, ByRef lpRect As API.WRECT) As Boolean + Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As System.Runtime.InteropServices.HandleRef, ByRef lpRect As API.WRECT) As Boolean + Private Enum SWP As UInteger + ''' If the calling thread and the thread that owns the window are attached to different input queues, + ''' the system posts the request to the thread that owns the window. This prevents the calling thread from + ''' blocking its execution while other threads process the request. + ''' SWP_ASYNCWINDOWPOS + SynchronousWindowPosition = &H4000 + ''' Prevents generation of the WM_SYNCPAINT message. + ''' SWP_DEFERERASE + DeferErase = &H2000 + ''' Draws a frame (defined in the window's class description) around the window. + ''' SWP_DRAWFRAME + DrawFrame = &H20 + ''' Applies new frame styles set using the SetWindowLong function. Sends a WM_NCCALCSIZE message to + ''' the window, even if the window's size is not being changed. If this flag is not specified, WM_NCCALCSIZE + ''' is sent only when the window's size is being changed. + ''' SWP_FRAMECHANGED + FrameChanged = &H20 + ''' Hides the window. + ''' SWP_HIDEWINDOW + HideWindow = &H80 + ''' Does not activate the window. If this flag is not set, the window is activated and moved to the + ''' top of either the topmost or non-topmost group (depending on the setting of the hWndInsertAfter + ''' parameter). + ''' SWP_NOACTIVATE + DoNotActivate = &H10 + ''' Discards the entire contents of the client area. If this flag is not specified, the valid + ''' contents of the client area are saved and copied back into the client area after the window is sized or + ''' repositioned. + ''' SWP_NOCOPYBITS + DoNotCopyBits = &H100 + ''' Retains the current position (ignores X and Y parameters). + ''' SWP_NOMOVE + IgnoreMove = &H2 + ''' Does not change the owner window's position in the Z order. + ''' SWP_NOOWNERZORDER + DoNotChangeOwnerZOrder = &H200 + ''' Does not redraw changes. If this flag is set, no repainting of any kind occurs. This applies to + ''' the client area, the nonclient area (including the title bar and scroll bars), and any part of the parent + ''' window uncovered as a result of the window being moved. When this flag is set, the application must + ''' explicitly invalidate or redraw any parts of the window and parent window that need redrawing. + ''' SWP_NOREDRAW + DoNotRedraw = &H8 + ''' Same as the SWP_NOOWNERZORDER flag. + ''' SWP_NOREPOSITION + DoNotReposition = &H200 + ''' Prevents the window from receiving the WM_WINDOWPOSCHANGING message. + ''' SWP_NOSENDCHANGING + DoNotSendChangingEvent = &H400 + ''' Retains the current size (ignores the cx and cy parameters). + ''' SWP_NOSIZE + IgnoreResize = &H1 + ''' Retains the current Z order (ignores the hWndInsertAfter parameter). + ''' SWP_NOZORDER + IgnoreZOrder = &H4 + ''' Displays the window. + ''' SWP_SHOWWINDOW + ShowWindow = &H40 + End Enum + Private Enum HWNDafter As Integer + BOTTOM = 1 + NOTOPMOST = -2 + TOP = 0 + TOPMOST = -1 + End Enum + Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As IntPtr, ByVal hWndInsertAfter As HWNDafter, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As SWP) As Boolean + + Private Declare Function IsWindow Lib "user32" (ByVal hWnd As IntPtr) As Boolean + Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As IntPtr) As Boolean + Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As AnimateFlags) As Boolean + Private Declare Function RedrawWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal lprcUpdate As IntPtr, ByVal hrgnUpdate As IntPtr, ByVal flags As RedrawFlags) As Boolean + Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal bInvert As Boolean) As Boolean + Private Declare Function PrintWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean + Private Declare Function GetDC Lib "user32" (ByVal hwnd As IntPtr) As IntPtr + Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As IntPtr) As IntPtr + Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean + Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean + Private Declare Function SetCapture Lib "user32" (ByVal hwnd As IntPtr) As IntPtr + Private Declare Function ReleaseCapture Lib "user32" () As IntPtr + Private Declare Function GetCapture Lib "user32" () As IntPtr + + Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr + Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal className As String, ByVal windowTitle As IntPtr) As IntPtr + Private Declare Function WindowFromPoint Lib "user32" (ByVal Point As API.WPOINT) As IntPtr + Private Declare Function ChildWindowFromPoint Lib "user32" (ByVal hWndParent As IntPtr, ByVal point As API.WPOINT) As IntPtr + Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr + Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As IntPtr) As Boolean + Private Declare Function GetDesktopWindow Lib "user32" () As IntPtr + Private Declare Function GetTopWindow Lib "user32" (ByVal hwnd As IntPtr) As IntPtr + Private Declare Function GetFocus Lib "user32" () As IntPtr + Private Declare Function GetActiveWindow Lib "user32.dll" () As IntPtr + Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer + + Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr + Private Declare Function GetMenu Lib "user32" (ByVal hWnd As IntPtr) As IntPtr + Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPos As Integer) As IntPtr + + Private Enum GWL As Integer + WNDPROC = -4 + HINSTANCE = -6 + HWNDPARENT = -8 + STYLE = -16 + EXSTYLE = -20 + USERDATA = -21 + ID = -12 + End Enum + Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As IntPtr, ByVal nIndex As GWL, ByVal dwNewLong As Long) As Integer + _ + Private Shared Function GetWindowLongPtr32(ByVal hWnd As Runtime.InteropServices.HandleRef, ByVal nIndex As Integer) As Long + End Function + _ + Private Shared Function GetWindowLongPtr64(ByVal hWnd As Runtime.InteropServices.HandleRef, ByVal nIndex As Integer) As Long + End Function + Private Shared Function GetWindowLong(ByVal hwnd As Runtime.InteropServices.HandleRef, ByVal nIndex As GWL) As Long + If IntPtr.Size = 8 Then + Return GetWindowLongPtr64(hwnd, nIndex) + Else + Return GetWindowLongPtr32(hwnd, nIndex) + End If + End Function + + Private Structure LayeredWindowAttributes + Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As IntPtr, ByVal crKey As Integer, ByVal alpha As Byte, ByVal dwFlags As LWA) As Boolean + Private Declare Function GetLayeredWindowAttributes Lib "user32" (ByVal hWnd As IntPtr, ByRef crKey As Integer, ByRef alpha As Byte, ByRef dwFlags As LWA) As Boolean + Public Sub New(ByVal hwnd As IntPtr) + Me.hwnd = hwnd + GetLayeredWindowAttributes(Me.hwnd, Me.crKey, Me.alpha, Me.dwFlags) + End Sub + Private hwnd As IntPtr + Public crKey As Integer + Public alpha As Byte + Private dwFlags As LWA + Private Enum LWA As Integer + ColorKey = &H1 + Alpha = &H2 + End Enum + Public Property UseColorKey() As Boolean + Get + Return (Me.dwFlags And LWA.ColorKey) = LWA.ColorKey + End Get + Set(ByVal value As Boolean) + If (Me.dwFlags And LWA.ColorKey) = LWA.ColorKey <> value Then + If value = True Then Me.dwFlags += LWA.ColorKey Else Me.dwFlags -= LWA.ColorKey + End If + End Set + End Property + Public Property UseAlpha() As Boolean + Get + Return (Me.dwFlags And LWA.Alpha) = LWA.Alpha + End Get + Set(ByVal value As Boolean) + If (Me.dwFlags And LWA.Alpha) = LWA.Alpha <> value Then + If value = True Then Me.dwFlags += LWA.Alpha Else Me.dwFlags -= LWA.Alpha + End If + End Set + End Property + Public Function Apply() As Boolean + Return SetLayeredWindowAttributes(Me.hwnd, Me.crKey, Me.alpha, Me.dwFlags) + End Function + End Structure + + Private Structure WindowPlacement + Private Declare Function SetWindowPlacement Lib "user32" (ByVal hWnd As IntPtr, ByRef lpwndpl As WindowPlacement) As Boolean + Private Declare Function GetWindowPlacement Lib "user32" (ByVal hWnd As IntPtr, ByRef lpwndpl As WindowPlacement) As Boolean + Sub New(ByVal hWnd As IntPtr) + Me.length = System.Runtime.InteropServices.Marshal.SizeOf(Me) + GetWindowPlacement(hWnd, Me) + End Sub + Public Function Send(ByVal hWnd As IntPtr) As Boolean + Return SetWindowPlacement(hWnd, Me) + End Function + Public length As Integer + Public flags As WPF + Public showCmd As State + Public minimizedPosition As API.WPOINT + Public maximizedPosition As API.WPOINT + Public normalPosition As API.WRECT + Public Enum WPF As Integer + ASyncWindowPlacement = 4 + RestoreToMaximized = 2 + SetMinimizedPosition = 1 + End Enum + End Structure + Private Class Enumerator + Private Delegate Function EnumCallBackDelegate(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer + Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer + Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Integer, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer + Private Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As UInteger, ByVal lpfn As EnumCallBackDelegate, ByVal lParam As Integer) As Boolean + Private Declare Function EnumDesktopWindows Lib "user32" (ByVal hDesktop As IntPtr, ByVal lpfn As EnumCallBackDelegate, ByVal lparam As Integer) As Boolean + + Private Function EnumProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32 + If lParam = 1 AndAlso GetParent(hwnd) = 0 AndAlso IsWindowVisible(hwnd) Then _list.Add(hwnd) 'toplevel + If lParam = 2 Then _list.Add(hwnd) 'childwindows + If lParam = 3 Then _list.Add(hwnd) 'threadwindows + If lParam = 4 Then _list.Add(hwnd) 'desktopwindows + Return 1 + End Function + + Private _list As List(Of IntPtr) + Public Function GetTopLevelWindows() As List(Of IntPtr) + _list = New List(Of IntPtr) + EnumWindows(AddressOf EnumProc, 1) + Return _list + End Function + Public Function GetChildWindows(ByVal hwnd As Int32) As List(Of IntPtr) + _list = New List(Of IntPtr) + EnumChildWindows(hwnd, AddressOf EnumProc, 2) + Return _list + End Function + Public Function GetThreadWindows(ByVal threadID As Integer) As List(Of IntPtr) + _list = New List(Of IntPtr) + EnumThreadWindows(threadID, AddressOf EnumProc, 3) + Return _list + End Function + Public Function GetDesktopWindows(ByVal desktop As IntPtr) As List(Of IntPtr) + _list = New List(Of IntPtr) + EnumDesktopWindows(desktop, AddressOf EnumProc, 4) + Return _list + End Function + End Class + + Public Structure KeyCommand + Sub New(ByVal Key As Keys, ByVal EventType As KeyEvent) + Dim Up As Boolean = EventType = KeyEvent.Up + Dim Alt As Boolean = (Key And Keys.Alt) = Keys.Alt + Dim F10 As Boolean = (Key And Keys.F10) = Keys.F10 + If Alt Or F10 Then EventType += 4 'offset to sys_ + + Me.Key = Key + Me.EventType = EventType + Me.Flags = EventFlag.None + If Up Then Me.Flags = EventFlag.PrevWasDown + If Up And Not Alt And Not F10 Then Me.Flags += EventFlag.Transition + If Alt And Not Up Then Me.Flags += EventFlag.AltKeyDown + + Dim extended As Boolean = False + If Key = Keys.LControlKey Or Key = Keys.RControlKey Then extended = True + If Key = Keys.LShiftKey Or Key = Keys.RShiftKey Then extended = True + If Key = Keys.LMenu Or Key = Keys.RMenu Then extended = True + If extended Then Me.Flags += EventFlag.ExtendedKey + Me.RepeatCount = 0 + Me.scancode = 0 + End Sub + Sub New(ByVal Character As Char) + Me.Key = Asc(Character) + Me.EventType = KeyEvent.CharPress + Me.Flags = EventFlag.None + End Sub + Public EventType As KeyEvent + Public Key As Keys + Public RepeatCount As UShort + Public scancode As Byte + Public Flags As Byte + Public Enum EventFlag As Byte + None = 0 + ExtendedKey = 1 + AltKeyDown = 32 + PrevWasDown = 64 + Transition = 128 + End Enum + Public Function Post(ByVal hwnd As IntPtr) As Boolean + Return API.PostMessage(hwnd, EventType, Key, API.DWORD.FromSBB(Me.RepeatCount, Me.scancode, Me.Flags)) + End Function + End Structure + Public Structure MouseCommand + Sub New(ByVal X As UShort, ByVal Y As UShort, Optional ByVal Button As MouseButtons = MouseButtons.None, Optional ByVal EventType As MouseEvent = MouseEvent.Move) + Me.EventType = EventType + Me.Button = Button + Me.Modifier = MK.NONE + Me.x = X + Me.y = Y + End Sub + Sub New(ByVal Location As Point, Optional ByVal Button As MouseButtons = MouseButtons.None, Optional ByVal EventType As MouseEvent = MouseEvent.Move) + Me.EventType = EventType + Me.Button = Button + Me.Modifier = MK.NONE + Me.x = Location.X + Me.y = Location.Y + End Sub + Public EventType As MouseEvent + Public Button As MouseButtons + Public x As UShort + Public y As UShort + Public Modifier As MK + Public Function Post(ByVal hwnd As IntPtr) As Boolean + Dim msg1 As msg = 0 + Dim msg2 As msg = 0 + Dim add As Boolean = EventType >= 0 And EventType <= 2 + Select Case Button + Case MouseButtons.Left + msg1 = msg.LBUTTONDOWN + Case MouseButtons.Middle + msg1 = msg.MBUTTONDOWN + Case MouseButtons.Right + msg1 = msg.RBUTTONDOWN + Case Else + add = False + msg1 = msg.MOUSEMOVE + End Select + If EventType = MouseEvent.DoubleClick Then + msg2 = msg1 + MouseEvent.Up + msg1 = msg1 + MouseEvent.DoubleClick + ElseIf EventType = MouseEvent.Click Then + msg2 = msg1 + MouseEvent.Up + msg1 = msg1 + MouseEvent.Down + ElseIf add Then + msg1 += EventType + End If + + Dim success As Boolean = True + If msg1 <> 0 AndAlso Not API.PostMessage(hwnd, msg1, Modifier, New API.DWORD(Me.x, Me.y)) Then success = False + If msg2 <> 0 AndAlso Not API.PostMessage(hwnd, msg2, Modifier, New API.DWORD(Me.x, Me.y)) Then success = False + Return success + End Function + Public Enum MK As Integer + 'No keys are down + NONE = &H0 + 'The CTRL key is down. + CONTROL = &H8 + 'The left mouse button is down. + LBUTTON = &H1 + 'The middle mouse button is down. + MBUTTON = &H10 + 'The right mouse button is down. + RBUTTON = &H2 + 'The SHIFT key is down. + SHIFT = &H4 + 'The first X button is down. + XBUTTON1 = &H20 + 'The second X button is down. + XBUTTON2 = &H40 + End Enum + + Private Enum msg As UInteger + MOUSEACTIVATE = &H21 + MOUSEMOVE = &H200 + LBUTTONDOWN = 513 + LBUTTONUP = 514 + LBUTTONDBLCLK = 515 + RBUTTONDOWN = 516 + RBUTTONUP = 517 + RBUTTONDBLCLK = 518 + MBUTTONDOWN = 519 + MBUTTONUP = 520 + MBUTTONDBLCLK = 521 + End Enum + End Structure +#End Region + + Public Enum KeyEvent + Down = &H100 + Up = &H101 + CharPress = &H102 + End Enum + Public Enum MouseEvent + Down = 0 + Up = 1 + DoubleClick = 2 + Click = 3 + Move = 4 + End Enum + Public Enum RedrawFlags As UInteger + ''' + ''' Invalidates the rectangle or region that you specify in lprcUpdate or hrgnUpdate. + ''' You can set only one of these parameters to a non-NULL value. If both are NULL, RDW_INVALIDATE invalidates the entire window. + ''' + Invalidate = &H1 + ''' Causes the OS to post a WM_PAINT message to the window regardless of whether a portion of the window is invalid. + InternalPaint = &H2 + ''' + ''' Causes the window to receive a WM_ERASEBKGND message when the window is repainted. + ''' Specify this value in combination with the RDW_INVALIDATE value; otherwise, RDW_ERASE has no effect. + ''' + [Erase] = &H4 + ''' + ''' Validates the rectangle or region that you specify in lprcUpdate or hrgnUpdate. + ''' You can set only one of these parameters to a non-NULL value. If both are NULL, RDW_VALIDATE validates the entire window. + ''' This value does not affect internal WM_PAINT messages. + ''' + Validate = &H8 + NoInternalPaint = &H10 + ''' Suppresses any pending WM_ERASEBKGND messages. + NoErase = &H20 + ''' Excludes child windows, if any, from the repainting operation. + NoChildren = &H40 + ''' Includes child windows, if any, in the repainting operation. + AllChildren = &H80 + ''' Causes the affected windows, which you specify by setting the RDW_ALLCHILDREN and RDW_NOCHILDREN values, to receive WM_ERASEBKGND and WM_PAINT messages before the RedrawWindow returns, if necessary. + UpdateNow = &H100 + ''' + ''' Causes the affected windows, which you specify by setting the RDW_ALLCHILDREN and RDW_NOCHILDREN values, to receive WM_ERASEBKGND messages before RedrawWindow returns, if necessary. + ''' The affected windows receive WM_PAINT messages at the ordinary time. + ''' + EraseNow = &H200 + Frame = &H400 + NoFrame = &H800 + End Enum + Public Enum AnimateFlags + HOR_POSITIVE = &H1 + HOR_NEGATIVE = &H2 + VER_POSITIVE = &H4 + VER_NEGATIVE = &H8 + CENTER = &H10 + HIDE = &H10000 + ACTIVATE = &H20000 + SLIDE = &H40000 + BLEND = &H80000 + End Enum + Public Enum State + Hidden = 0 + Normal = 1 + Minimized = 2 + Maximized = 3 + Shown = 5 + End Enum + Public Enum Styles As Long + ControlBox = &H80000L + MinimizeBox = &H20000L + MaximizeBox = &H10000L + Sizable = ThickFrame + Border = &H800000L + Caption = &HC00000L + Visible = &H10000000L + Disabled = &H8000000L + Child = &H40000000L + VScrollBar = &H200000L + HScrollBar = &H100000L + TabStop = &H10000L + Group = &H20000L + ClipSiblings = &H4000000L + ClipChildren = &H2000000L + ThickFrame = &H40000L + DialogFrame = &H400000L + + 'initial start state + Minimize = &H20000000L + Maximize = &H1000000L + + Overlapped = &H0L + Tiled = Overlapped + OverlappedWindow = (Overlapped Or Caption Or Styles.ControlBox Or ThickFrame Or MinimizeBox Or MaximizeBox) + TiledWindow = OverlappedWindow + + PopUp = &H80000000L + PopUpWindow = (PopUp Or Border Or Styles.ControlBox) + End Enum + Public Enum ExStyles As Long + AllowDrop = &H10L + TopMost = &H8L + Layered = &H80000 + Composited = &H2000000L + NoActivate = &H8000000L + NoInheritLayout = &H100000L + NoParentNotify = &H4L + ToolWindow = &H80L + MDIChild = &H40L + Transparent = &H20L + WindowEdge = &H100L + ClientEdge = &H200L + HelpButton = &H400L + RightToLeft = &H400000L + DialogModalFrame = &H1L + End Enum + + Public Enum CMD + Close = 0 + Destroy = 1 + BringToFront = 2 + SendToBack = 3 + Show = 4 + Hide = 5 + Flash = 6 + Focus = 7 + Clear = 8 + Undo = 9 + Copy = 10 + Paste = 11 + Cut = 12 + End Enum + + Private hwnd As IntPtr + Sub New() + Me.hwnd = IntPtr.Zero + End Sub + Sub New(ByVal hWnd As IntPtr) + Me.hwnd = hWnd + End Sub + Sub New(ByVal c As Control) + Me.hwnd = c.Handle + End Sub + Sub New(ByVal WindowName As String, Optional ByVal ClassName As String = Nothing) + Me.hwnd = FindWindow(ClassName, WindowName) + End Sub + Sub New(ByVal p As Process, Optional ByVal UseMainHandle As Boolean = True) + If UseMainHandle Then Me.hwnd = p.MainWindowHandle Else Me.hwnd = p.Handle + End Sub + + Public Property Handle() As IntPtr + Get + Return Me.hwnd + End Get + Set(ByVal value As IntPtr) + Me.hwnd = value + End Set + End Property + Public Property HandleRef() As Runtime.InteropServices.HandleRef + Get + Return New Runtime.InteropServices.HandleRef(Me, Me.hwnd) + End Get + Set(ByVal value As Runtime.InteropServices.HandleRef) + Me.hwnd = value.Handle + End Set + End Property + + Public Function GetDC() As API.DC + Return New API.DC(Me.hwnd, GetDC(Me.hwnd)) + End Function + Public Function GetWindowDC() As API.DC + Return New API.DC(Me.hwnd, GetWindowDC(Me.hwnd)) + End Function + + Public Property Text() As String + Get + Return API.WM.TEXT(Me.hwnd) + End Get + Set(ByVal value As String) + API.WM.TEXT(Me.hwnd) = value + End Set + End Property + Public Property Name() As String + Get + Dim length As Integer = GetWindowTextLength(Me.hwnd) + 1 + Dim s As New System.Text.StringBuilder(length) + GetWindowText(Me.hwnd, s, s.Capacity) + Return s.ToString + End Get + Set(ByVal value As String) + SetWindowText(Me.hwnd, value) + End Set + End Property + Public Property Bounds() As Rectangle + Get + Dim r As API.WRECT + If (GetWindowRect(Me.HandleRef, r)) Then + Return r.Value + Else + Return Nothing + End If + End Get + Set(ByVal value As Rectangle) + SetWindowPos(Me.hwnd, -2, value.X, value.Y, value.Width, value.Height, SWP.IgnoreZOrder) + End Set + End Property + Public ReadOnly Property ClientSize() As Size + Get + Dim r As API.WRECT + GetClientRect(Me.HandleRef, r) + Return r.Value.Size + End Get + End Property + Public ReadOnly Property ClientRectangle() As Rectangle + Get + Return New Rectangle(ClientToScreen(New Point(0, 0)), ClientSize) + End Get + End Property + Public Property Location() As Point + Get + Return Bounds.Location + End Get + Set(ByVal value As Point) + SetWindowPos(Me.hwnd, -2, value.X, value.Y, 0, 0, SWP.IgnoreResize Or SWP.IgnoreZOrder) + End Set + End Property + Public Property Size() As Size + Get + Return Bounds.Size + End Get + Set(ByVal value As Size) + SetWindowPos(Me.hwnd, -2, 0, 0, value.Width, value.Height, SWP.IgnoreMove Or SWP.IgnoreZOrder) + End Set + End Property + Public Property WindowState() As State + Get + Return New WindowPlacement(Me.hwnd).showCmd + End Get + Set(ByVal value As State) + Dim d As New WindowPlacement(Me.hwnd) + d.showCmd = value + d.Send(Me.hwnd) + End Set + End Property + Public ReadOnly Property Exists() + Get + Return IsWindow(Me.hwnd) + End Get + End Property + Public Property Visible() As Boolean + Get + Return IsWindowVisible(Me.hwnd) + End Get + Set(ByVal value As Boolean) + If value = False Then Command(CMD.Hide) + If value = True Then Command(CMD.Show) + End Set + End Property + Public Property Font() As Font + Get + Return API.WM.FONT(Me.hwnd) + End Get + Set(ByVal value As Font) + API.WM.FONT(Me.hwnd) = value + End Set + End Property + Public Property Enabled() As Boolean + Get + Return Me.Style(Styles.Disabled) = False + End Get + Set(ByVal value As Boolean) + Me.Style(Styles.Disabled) = value = False + End Set + End Property + Public Property Focused() As Boolean + Get + Return GetFocus = Me.hwnd + End Get + Set(ByVal value As Boolean) + If value Then + API.WM.SETFOCUS(Me.hwnd) + Else + API.WM.KILLFOCUS(Me.hwnd) + End If + End Set + End Property + Public Property Captured() As Boolean + Get + Return GetCapture() = Me.hwnd + End Get + Set(ByVal value As Boolean) + If value Then + SetCapture(Me.hwnd) + ElseIf Me.Captured Then + ReleaseCapture() + End If + End Set + End Property + + Public Function ScreenToClient(ByVal p As Point) As Point + ScreenToClient(Me.hwnd, p) + Return p + End Function + Public Function ScreenToClient(ByVal r As Rectangle) As Rectangle + Return New Rectangle(ScreenToClient(r.Location), r.Size) + End Function + Public Function ClientToScreen(ByVal p As Point) As Point + ClientToScreen(Me.hwnd, p) + Return p + End Function + Public Function ClientToScreen(ByVal r As Rectangle) As Rectangle + Return New Rectangle(ClientToScreen(r.Location), r.Size) + End Function + + Public Sub Animate(ByVal flags As AnimateFlags, Optional ByVal Time As Integer = 1000) + AnimateWindow(Me.hwnd, Time, flags) + End Sub + Public Sub Invalidate() + Redraw(RedrawFlags.Invalidate Or RedrawFlags.UpdateNow) + End Sub + Public Sub Redraw(ByVal flags As RedrawFlags) + RedrawWindow(Me.hwnd, Nothing, Nothing, flags) + End Sub + Public Function CreateGraphics() As Graphics + Return Graphics.FromHwnd(Me.hwnd) + End Function + + Public Sub CaptureClient(ByVal g As Graphics, ByVal srcrect As Rectangle, Optional ByVal DestX As Integer = 0, Optional ByVal DestY As Integer = 0) + Dim gdc As New API.DC(g) + Dim hdc As API.DC = Me.GetDC + hdc.CopyTo(gdc) + gdc.Dispose() + hdc.Dispose() + End Sub + Public Function CaptureClient() As Image + Return CaptureClient(New Rectangle(New Point(), Me.ClientSize)) + End Function + Public Function CaptureClient(ByVal rect As Rectangle) As Image + If rect.Width < 1 Or rect.Height < 1 Then Return Nothing + Dim img As New Bitmap(rect.Width, rect.Height) + Dim g As Graphics = Graphics.FromImage(img) + CaptureClient(g, rect) + g.Dispose() + Return img + End Function + Public Sub CaptureWindow(ByVal g As Graphics) + 'Dim Hdc As IntPtr = g.GetHdc() + 'PrintWindow(Me.hwnd, Hdc, 0) + 'g.ReleaseHdc(Hdc) + + Dim gdc As New API.DC(g) + Dim hdc As API.DC = Me.GetWindowDC + hdc.CopyTo(gdc) + gdc.Dispose() + hdc.Dispose() + End Sub + Public Function CaptureWindow() As Image + Dim s As Size = Me.Size + If s.Width < 1 Or s.Height < 1 Then Return Nothing + Dim img As New Bitmap(s.Width, s.Height) + Dim g As Graphics = Graphics.FromImage(img) + CaptureWindow(g) + g.Dispose() + Return img + End Function + + Public Property Opacity(Optional ByVal SetLayered As Boolean = True) As Byte + Get + If SetLayered Then Me.ExStyle(ExStyles.Layered) = True + Dim lwa As New LayeredWindowAttributes(Me.hwnd) + If lwa.UseAlpha = False Then Return 255 + Return lwa.alpha + End Get + Set(ByVal value As Byte) + If SetLayered Then Me.ExStyle(ExStyles.Layered) = True + Dim lwa As New LayeredWindowAttributes(Me.hwnd) + If value = 255 Then + lwa.UseAlpha = False + Else + lwa.UseAlpha = True + lwa.alpha = value + End If + lwa.Apply() + End Set + End Property + Public Property TransparencyKey(Optional ByVal SetLayered As Boolean = True) As Color + Get + If SetLayered Then Me.ExStyle(ExStyles.Layered) = True + Return ColorTranslator.FromOle(New LayeredWindowAttributes(Me.hwnd).crKey) + End Get + Set(ByVal value As Color) + If SetLayered Then Me.ExStyle(ExStyles.Layered) = True + Dim lwa As New LayeredWindowAttributes(Me.hwnd) + If IsNothing(value) Then + lwa.UseColorKey = False + Else + lwa.UseColorKey = True + lwa.crKey = value.ToArgb + End If + lwa.Apply() + End Set + End Property + + Public Property ExStyle(ByVal ex As ExStyles) As Boolean + Get + Return (Me.ExStyle And ex) = ex + End Get + Set(ByVal value As Boolean) + Dim exs As ExStyles = Me.ExStyle + If (exs And ex) = ex <> value Then + If value = True Then exs += ex Else exs -= ex + Me.ExStyle = exs + End If + End Set + End Property + Public Property ExStyle() As ExStyles + Get + Return GetWindowLong(Me.HandleRef, GWL.EXSTYLE) + End Get + Set(ByVal value As ExStyles) + SetWindowLong(Me.hwnd, GWL.EXSTYLE, value) + End Set + End Property + Public Property Style(ByVal st As Styles) As Boolean + Get + Return (Me.Style And st) = st + End Get + Set(ByVal value As Boolean) + Dim sty As Styles = Me.Style + If (sty And st) = st <> value Then + If value = True Then sty += st Else sty -= st + Me.Style = sty + End If + End Set + End Property + Public Property Style() As Styles + Get + Return GetWindowLong(Me.HandleRef, GWL.STYLE) + End Get + Set(ByVal value As Styles) + SetWindowLong(Me.hwnd, GWL.STYLE, value) + End Set + End Property + + Public Property AllowDrop() As Boolean + Get + Return ExStyle(ExStyles.AllowDrop) + End Get + Set(ByVal value As Boolean) + ExStyle(ExStyles.AllowDrop) = value + End Set + End Property + Public Property TopMost() As Boolean + Get + Return ExStyle(ExStyles.TopMost) + End Get + Set(ByVal value As Boolean) + ExStyle(ExStyles.TopMost) = value + End Set + End Property + Public Property TabStop() As Boolean + Get + Return Style(Styles.TabStop) + End Get + Set(ByVal value As Boolean) + Style(Styles.TabStop) = value + End Set + End Property + + Public Function SendKey(ByVal Key As Keys, ByVal EventType As KeyEvent) + Dim k As New KeyCommand(Key, EventType) + k.RepeatCount = 0 + Return SendKey(k) + End Function + Public Function SendPressedKey(ByVal key As Keys, Optional ByVal SendCount As Integer = 1) + Dim success As Boolean = True + Dim k_down As New KeyCommand(key, KeyEvent.Down) + Dim k_up As New KeyCommand(key, KeyEvent.Up) + For i As Integer = 1 To SendCount + If SendKey(k_down) = False Then success = False + If SendKey(k_up) = False Then success = False + Next + Return success + End Function + Public Function SendKey(ByVal k As KeyCommand) + Return k.Post(Me.hwnd) + End Function + Public Function SendChar(ByVal character As Char, Optional ByVal SendCount As Integer = 1) As Boolean + Dim k As New KeyCommand(character) + k.RepeatCount = SendCount - 1 + Return SendKey(k) + End Function + Public Function SendChars(ByVal text() As Char) + Dim success As Boolean = True + For Each character As Char In text + If SendChar(character) = False Then success = False + Next + Return success + End Function + Public Function SendMouse(ByVal Location As Point, Optional ByVal Buttons As MouseButtons = MouseButtons.None, Optional ByVal EventType As MouseEvent = MouseEvent.Move) + Return SendMouse(New MouseCommand(Location, Buttons, EventType)) + End Function + Public Function SendMouse(ByVal X As Integer, ByVal Y As Integer, Optional ByVal Buttons As MouseButtons = MouseButtons.None, Optional ByVal EventType As MouseEvent = MouseEvent.Move) + Return SendMouse(New MouseCommand(X, Y, Buttons, EventType)) + End Function + Public Function SendMouse(ByVal m As MouseCommand) As Boolean + Return m.Post(Me.hwnd) + End Function + + Public Sub Command(ByVal command As CMD) + Select Case command + Case CMD.Close + API.WM.CLOSE(Me.hwnd) + Case CMD.Destroy + API.WM.DESTROY(Me.hwnd) + Case CMD.BringToFront + SetWindowPos(Me.hwnd, HWNDafter.BOTTOM, 0, 0, 0, 0, SWP.IgnoreResize Or SWP.IgnoreMove) + Case CMD.SendToBack + SetWindowPos(Me.hwnd, HWNDafter.BOTTOM, 0, 0, 0, 0, SWP.IgnoreResize Or SWP.IgnoreMove Or SWP.DoNotActivate) + Case CMD.Show + Dim d As New WindowPlacement(Me.hwnd) + d.showCmd = 5 + d.Send(Me.hwnd) + Case CMD.Flash + FlashWindow(Me.hwnd, True) + Case CMD.Hide + Dim d As New WindowPlacement(Me.hwnd) + d.showCmd = 0 + d.Send(Me.hwnd) + Case CMD.Focus + Me.Focused = True + Case CMD.Clear + API.WM.CLEAR(Me.hwnd) + Case CMD.Undo + API.WM.UNDO(Me.hwnd) + Case CMD.Copy + API.WM.Copy(Me.hwnd) + Case CMD.Paste + API.WM.PASTE(Me.hwnd) + Case CMD.Cut + API.WM.CUT(Me.hwnd) + End Select + End Sub + + '-------------not sure if these work-------------- + Public ReadOnly Property SystemMenu() As Window + Get + Return New Window(GetSystemMenu(Me.hwnd, False)) + End Get + End Property + Public ReadOnly Property Menu() As Window + Get + Return New Window(GetMenu(Me.hwnd)) + End Get + End Property + Public ReadOnly Property SubMenus(ByVal index As Integer) As Window + Get + Return New Window(GetSubMenu(Me.hwnd, index)) + End Get + End Property + Public ReadOnly Property SubMenus() As Window() + Get + Dim menus As New List(Of IntPtr) + Dim currm As IntPtr = 0 + For i As Integer = 0 To Integer.MaxValue + currm = GetSubMenu(Me.hwnd, i) + If currm = 0 Then + Exit For + Else + menus.Add(currm) + End If + Next + Return All(menus) + End Get + End Property + '------------------------------------------------- + + Public ReadOnly Property Process() As Process + Get + Try + Dim ID As UInteger + GetWindowThreadProcessId(Me.hwnd, ID) + Return Process.GetProcessById(ID) + Catch + Return Nothing + End Try + End Get + End Property + Public ReadOnly Property ClassName(Optional ByVal length As Integer = 64) As String + Get + Dim s As New System.Text.StringBuilder(length) + GetClassName(Me.hwnd, s, s.Capacity) + Return s.ToString() + End Get + End Property + Public Property Parent() As Window + Get + Dim Phwnd As IntPtr = GetParent(Me.hwnd) + If Phwnd = 0 Then Return Nothing + Return New Window(Phwnd) + End Get + Set(ByVal value As Window) + SetParent(Me.hwnd, value.Handle) + End Set + End Property + Public ReadOnly Property Children() As Window() + Get + Return Window.All(New Enumerator().GetChildWindows(Me.hwnd)) + End Get + End Property + Public ReadOnly Property Children(ByVal index As Integer) As Window + Get + Return New Window(New Enumerator().GetChildWindows(Me.hwnd)(index)) + End Get + End Property + Public ReadOnly Property Children(ByVal name As String) As Window + Get + Dim hwnd As IntPtr = FindWindowEx(Me.hwnd, 0, name, vbNullString) + If hwnd = 0 Then + For Each c As Window In Me.Children + If c.Name = name Then Return c + Next + Return Nothing + End If + Return New Window(hwnd) + End Get + End Property + Public ReadOnly Property Children(ByVal Location As Point) As Window + Get + Return New Window(ChildWindowFromPoint(Me.hwnd, New API.WPOINT(Location.X, Location.Y))) + End Get + End Property + Public ReadOnly Property ChildIndex(ByVal name As String) As Integer + Get + Dim w() As Window = Me.Children + For i As Integer = 0 To w.Count - 1 + If w(i).Name = name Then Return i + Next + Return -1 + End Get + End Property + Public ReadOnly Property TopSibling() As Window + Get + Return New Window(GetWindow(Me.hwnd, GW.HWNDFIRST)) + End Get + End Property + Public ReadOnly Property BottomSibling() As Window + Get + Return New Window(GetWindow(Me.hwnd, GW.HWNDLAST)) + End Get + End Property + Public ReadOnly Property PreviousSibling() As Window + Get + Return New Window(GetWindow(Me.hwnd, GW.HWNDPREV)) + End Get + End Property + Public ReadOnly Property NextSibling() As Window + Get + Return New Window(GetWindow(Me.hwnd, GW.HWNDNEXT)) + End Get + End Property + Public Function FindChild(ByVal name As String, Optional ByVal matchcase As Boolean = False) As Window + If matchcase = False Then name = name.ToLower + For Each w As Window In Me.Children + Dim wn As String = w.Name + If matchcase = False Then wn = wn.ToLower + If wn.Contains(name) Then Return w + Next + Return Nothing + End Function + Public Property FocusedWindow() As Window + Get + Me.AttachInput() + FocusedWindow = New Window(GetFocus) + Me.DetachInput() + End Get + Set(ByVal value As Window) + value.Command(CMD.Focus) + End Set + End Property + + Public Function AttachInput(Optional ByVal attach As Boolean = True) As Boolean + Return CBool(API.AttachThreadInput(GetWindowThreadProcessId(Me.hwnd, 0), API.GetCurrentThreadId(), CInt(attach))) + End Function + Public Function DetachInput() As Boolean + Return AttachInput(False) + End Function + + Public Shared Function All(ByVal p() As Process) As Window() + Dim w As New List(Of Window) + For Each proc As Process In p + If proc.MainWindowHandle <> 0 Then w.Add(New Window(proc.MainWindowHandle)) + Next + Return w.ToArray + End Function + Public Shared Function All() As Window() + Return New Window(IntPtr.Zero).Children + End Function + Public Shared Function All(ByVal ParamArray hwnd() As IntPtr) As Window() + Dim w(hwnd.Count - 1) As Window + For i As Integer = 0 To w.Count - 1 + w(i) = New Window(hwnd(i)) + Next + Return w + End Function + Public Shared Function All(ByVal hwnd As List(Of IntPtr)) As Window() + Dim w(hwnd.Count - 1) As Window + For i As Integer = 0 To w.Count - 1 + w(i) = New Window(hwnd(i)) + Next + Return w + End Function + Public Shared Function All(ByVal p As Process) As Window() + Return All(New Enumerator().GetThreadWindows(p.Id)) + End Function + Public Shared Function AllFromDesktop(ByVal desktophwnd As IntPtr) As Window() + Return All(New Enumerator().GetDesktopWindows(desktophwnd)) + End Function + Public Shared Function AllFromDesktop() As Window() + Return AllFromDesktop(Nothing) + End Function + Public Shared Function AllFromProcessList() As Window() + Return All(Process.GetProcesses) + End Function + Public Shared Function FromControl(ByVal c As Control) As Window + Return New Window(c.Handle) + End Function + Public Shared Function FromPoint(ByVal p As Point) As Window + Return New Window(WindowFromPoint(New API.WPOINT(p.X, p.Y))) + End Function + Public Shared Function FromHandle(ByVal hwnd As IntPtr) As Window + Return New Window(hwnd) + End Function + Public Shared Function Find(ByVal name As String, Optional ByVal matchcase As Boolean = False) As Window + Return New Window(IntPtr.Zero).FindChild(name, matchcase) + End Function + Public Shared Function GetActive() As Window + Return New Window(GetForegroundWindow) + End Function + Public Shared Function GetDesktop() As Window + Return New Window(GetDesktopWindow()) + End Function + Public Shared Function GetTop(ByVal parent As Window) As Window + Return New Window(GetTopWindow(parent.hwnd)) + End Function + Public Shared Function GetTop() As Window + Return New Window(GetTopWindow(Nothing)) + End Function + Public Shared Function GetForeground() As Window + Return New Window(GetForegroundWindow()) + End Function + Public Shared Function GetFocused() As Window + Return GetForeground.FocusedWindow + End Function +End Class \ No newline at end of file diff --git a/app.manifest b/app.manifest new file mode 100644 index 0000000..0ed877a --- /dev/null +++ b/app.manifest @@ -0,0 +1,52 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/coherencemode.vb b/coherencemode.vb new file mode 100644 index 0000000..5868bf1 --- /dev/null +++ b/coherencemode.vb @@ -0,0 +1,19 @@ +Module coherencemode + Dim fakeform As New template + + Public Sub setupwindows(ByVal programname As String) + Dim win As Window = Window.Find(programname) + win.Style(Window.Styles.Border) = False + win.Style(Window.Styles.Sizable) = False + win.Size = New Size(win.Size.Width + 1, win.Size.Height + 1) + win.Invalidate() + + fakeform.Show() + fakeform.Location = win.Location + fakeform.Size = win.Size + fakeform.lbtitletext.Text = win.Text + fakeform.resettitlebar() + fakeform.pgcontents.BackColor = Color.FromArgb(1, 0, 1) + End Sub + +End Module diff --git a/defaultdropdownmenu.vb b/defaultdropdownmenu.vb new file mode 100644 index 0000000..f217104 --- /dev/null +++ b/defaultdropdownmenu.vb @@ -0,0 +1,293 @@ +' +' This code was generated by the .NET ToolStrip Customizer. +' http://toolstripcustomizer.codeplex.com/ +' + +Imports System.Drawing +Imports System.Windows.Forms + +Namespace MyNamespace + Class defaultdropdownmenu + Inherits ProfessionalColorTable + Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color + Get + Return ButtonSelectedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlight() As Color + Get + Return ButtonPressedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color + Get + Return ButtonPressedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color + Get + Return ButtonCheckedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckSelectedBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckPressedBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripDark() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripLight() As Color + Get + Return Color.FromName("Window") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color + Get + Return Color.FromArgb(255, 249, 249, 249) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color + Get + Return Color.FromArgb(255, 242, 242, 242) + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelected() As Color + Get + Return Color.FromName("White") + End Get + End Property + Public Overrides ReadOnly Property MenuItemBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuBorder() As Color + Get + Return Color.FromArgb(255, 128, 128, 128) + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color + Get + Return Color.FromArgb(255, 248, 248, 248) + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property SeparatorDark() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property SeparatorLight() As Color + Get + Return Color.FromName("ButtonHighlight") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property ToolStripBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color + Get + Return Color.FromArgb(255, 248, 248, 248) + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientEnd() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color + Get + Return Color.FromName("ButtonFace") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color + Get + Return Color.FromArgb(255, 252, 252, 252) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color + Get + Return Color.FromArgb(255, 242, 242, 242) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + End Class +End Namespace \ No newline at end of file diff --git a/infobox.Designer.vb b/infobox.Designer.vb new file mode 100644 index 0000000..e4f3dc9 --- /dev/null +++ b/infobox.Designer.vb @@ -0,0 +1,343 @@ + _ +Partial Class infobox + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnlyesno = New System.Windows.Forms.Panel() + Me.btnno = New System.Windows.Forms.Button() + Me.btnyes = New System.Windows.Forms.Button() + Me.lblintructtext = New System.Windows.Forms.Label() + Me.txtuserinput = New System.Windows.Forms.TextBox() + Me.btnok = New System.Windows.Forms.Button() + Me.txtmessage = New System.Windows.Forms.Label() + Me.pboximage = New System.Windows.Forms.PictureBox() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pgcontents.SuspendLayout() + Me.pnlyesno.SuspendLayout() + CType(Me.pboximage, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgcontents + ' + Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.pnlyesno) + Me.pgcontents.Controls.Add(Me.lblintructtext) + Me.pgcontents.Controls.Add(Me.txtuserinput) + Me.pgcontents.Controls.Add(Me.btnok) + Me.pgcontents.Controls.Add(Me.txtmessage) + Me.pgcontents.Controls.Add(Me.pboximage) + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(367, 122) + Me.pgcontents.TabIndex = 20 + ' + 'pnlyesno + ' + Me.pnlyesno.Controls.Add(Me.btnno) + Me.pnlyesno.Controls.Add(Me.btnyes) + Me.pnlyesno.Location = New System.Drawing.Point(57, 83) + Me.pnlyesno.Name = "pnlyesno" + Me.pnlyesno.Size = New System.Drawing.Size(265, 33) + Me.pnlyesno.TabIndex = 10 + Me.pnlyesno.Visible = False + ' + 'btnno + ' + Me.btnno.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnno.Font = New System.Drawing.Font("Lucida Bright", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnno.ForeColor = System.Drawing.Color.Black + Me.btnno.Location = New System.Drawing.Point(142, 2) + Me.btnno.Name = "btnno" + Me.btnno.Size = New System.Drawing.Size(105, 30) + Me.btnno.TabIndex = 9 + Me.btnno.TabStop = False + Me.btnno.Text = "No" + Me.btnno.UseVisualStyleBackColor = True + ' + 'btnyes + ' + Me.btnyes.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnyes.Font = New System.Drawing.Font("Lucida Bright", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnyes.ForeColor = System.Drawing.Color.Black + Me.btnyes.Location = New System.Drawing.Point(29, 2) + Me.btnyes.Name = "btnyes" + Me.btnyes.Size = New System.Drawing.Size(105, 30) + Me.btnyes.TabIndex = 8 + Me.btnyes.TabStop = False + Me.btnyes.Text = "Yes" + Me.btnyes.UseVisualStyleBackColor = True + ' + 'lblintructtext + ' + Me.lblintructtext.Font = New System.Drawing.Font("Lucida Sans", 8.25!) + Me.lblintructtext.Location = New System.Drawing.Point(101, 7) + Me.lblintructtext.Name = "lblintructtext" + Me.lblintructtext.Size = New System.Drawing.Size(256, 44) + Me.lblintructtext.TabIndex = 9 + Me.lblintructtext.Text = "Please enter a name for your new folder:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Or " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.lblintructtext.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.lblintructtext.Visible = False + ' + 'txtuserinput + ' + Me.txtuserinput.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtuserinput.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtuserinput.Location = New System.Drawing.Point(101, 54) + Me.txtuserinput.Multiline = True + Me.txtuserinput.Name = "txtuserinput" + Me.txtuserinput.Size = New System.Drawing.Size(256, 23) + Me.txtuserinput.TabIndex = 8 + Me.txtuserinput.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.txtuserinput.Visible = False + ' + 'btnok + ' + Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnok.Font = New System.Drawing.Font("Lucida Bright", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnok.ForeColor = System.Drawing.Color.Black + Me.btnok.Location = New System.Drawing.Point(134, 86) + Me.btnok.Name = "btnok" + Me.btnok.Size = New System.Drawing.Size(105, 30) + Me.btnok.TabIndex = 7 + Me.btnok.TabStop = False + Me.btnok.Text = "Ok" + Me.btnok.UseVisualStyleBackColor = True + ' + 'txtmessage + ' + Me.txtmessage.Font = New System.Drawing.Font("Lucida Sans", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtmessage.Location = New System.Drawing.Point(98, 7) + Me.txtmessage.Name = "txtmessage" + Me.txtmessage.Size = New System.Drawing.Size(266, 70) + Me.txtmessage.TabIndex = 2 + Me.txtmessage.Text = "It appears that this application may be infected. It is highly recommended that y" & _ + "ou close it immediatly with a terminal emulator such as Sterm. To close this app" & _ + "lication just type ""Close""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.txtmessage.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pboximage + ' + Me.pboximage.Image = Global.ShiftOS.My.Resources.Resources.Symbolinfo + Me.pboximage.Location = New System.Drawing.Point(12, 7) + Me.pboximage.Name = "pboximage" + Me.pboximage.Size = New System.Drawing.Size(80, 70) + Me.pboximage.TabIndex = 0 + Me.pboximage.TabStop = False + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 124) + Me.pgleft.TabIndex = 21 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 122) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(369, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 124) + Me.pgright.TabIndex = 22 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 122) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(371, 30) + Me.titlebar.TabIndex = 19 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 3) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconInfoBox + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(48, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Info" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(369, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 152) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(367, 2) + Me.pgbottom.TabIndex = 23 + ' + 'infobox + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(371, 154) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.titlebar) + Me.DoubleBuffered = True + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.KeyPreview = True + Me.Name = "infobox" + Me.Text = "infobox" + Me.TopMost = True + Me.pgcontents.ResumeLayout(False) + Me.pgcontents.PerformLayout() + Me.pnlyesno.ResumeLayout(False) + CType(Me.pboximage, System.ComponentModel.ISupportInitialize).EndInit() + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents btnok As System.Windows.Forms.Button + Friend WithEvents txtmessage As System.Windows.Forms.Label + Friend WithEvents pboximage As System.Windows.Forms.PictureBox + Friend WithEvents lblintructtext As System.Windows.Forms.Label + Friend WithEvents txtuserinput As System.Windows.Forms.TextBox + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pnlyesno As System.Windows.Forms.Panel + Friend WithEvents btnno As System.Windows.Forms.Button + Friend WithEvents btnyes As System.Windows.Forms.Button +End Class diff --git a/infobox.resx b/infobox.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/infobox.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/infobox.vb b/infobox.vb new file mode 100644 index 0000000..3c93c14 --- /dev/null +++ b/infobox.vb @@ -0,0 +1,380 @@ +Public Class infobox + 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 textinfo As String + Public title As String + Public state As String + Public sendyesno As String + + Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load + justopened = True + makeinfobox() + setuptitlebar() + setupborders() + ShiftOSDesktop.setcolours() + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + setskin() + + ShiftOSDesktop.pnlpanelbuttoninfobox.SendToBack() + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttoninfobox, ShiftOSDesktop.tbinfoboxicon, ShiftOSDesktop.tbinfoboxtext, True) + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + + My.Computer.Audio.Play(My.Resources.infobox, AudioPlayMode.Background) + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown, btnok.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 + 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(371, 154) '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.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.boughtinfoboxicon = True Then + pnlicon.Visible = True + pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.infoboxicontitlebar '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 makeinfobox() + txtmessage.Text = textinfo + lbtitletext.Text = title + End Sub + + Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click + If txtuserinput.Visible = True Then + txtuserinput.Hide() + lblintructtext.Hide() + If state = "makingfolder" Then + File_Skimmer.makefolder() + Else + Me.Close() + End If + Else + Me.Close() + End If + End Sub + + Public Sub showyesno() + pnlyesno.Show() + End Sub + + Private Sub btnyes_Click(sender As Object, e As EventArgs) Handles btnyes.Click + Select Case sendyesno + Case "textpad" + TextPad.needtosave = False + TextPad.Close() + Me.Close() + Case "textpadnew" + TextPad.makenewdoc() + Me.Close() + Case "artpad" + ArtPad.needtosave = False + ArtPad.Close() + Me.Close() + Case "fileskimmertextpad" + TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(File_Skimmer.lbllocation.Text & "/" & File_Skimmer.lvfiles.SelectedItems(0).Text) + TextPad.needtosave = False + Me.Close() + Case "fileopenertextpad" + TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(File_Opener.lbllocation.Text & "/" & File_Opener.lvfiles.SelectedItems(0).Text) + TextPad.needtosave = False + File_Opener.Close() + Me.Close() + Case "fileskimmerartpad" + ArtPad.savelocation = File_Skimmer.lbllocation.Text & "/" & File_Skimmer.lvfiles.SelectedItems(0).Text + ArtPad.openpic() + ArtPad.needtosave = False + Me.Close() + Case "fileopenerartpad" + ArtPad.savelocation = File_Skimmer.lbllocation.Text & "/" & File_Skimmer.lvfiles.SelectedItems(0).Text + ArtPad.needtosave = False + File_Opener.Close() + Me.Close() + End Select + End Sub + + Private Sub btnno_Click(sender As Object, e As EventArgs) Handles btnno.Click + Select Case sendyesno + Case "textpad" + TextPad.showsavedialog() + Me.Close() + Case "textpadnew" + TextPad.showsavedialog() + Me.Close() + Case "artpad" + ArtPad.showsavedialog() + Me.Close() + Case "fileskimmertextpad" + TextPad.showsavedialog() + Me.Close() + Case "fileopenertextpad" + File_Opener.Close() + Me.Close() + Case "fileskimmerartpad" + ArtPad.showsavedialog() + Me.Close() + Case "fileopenerartpad" + ArtPad.showsavedialog() + Me.Close() + End Select + End Sub +End Class \ No newline at end of file diff --git a/integer.vb b/integer.vb new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/integer.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/template.Designer.vb b/template.Designer.vb new file mode 100644 index 0000000..da477d0 --- /dev/null +++ b/template.Designer.vb @@ -0,0 +1,237 @@ + _ +Partial Class template + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pgcontents = New System.Windows.Forms.Panel() + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 313) + Me.pgleft.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 311) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(807, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 313) + Me.pgright.TabIndex = 17 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 311) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(809, 30) + Me.titlebar.TabIndex = 14 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(246, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(274, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(302, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(89, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Template" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(807, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 341) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(805, 2) + Me.pgbottom.TabIndex = 18 + ' + 'pgcontents + ' + Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill + Me.pgcontents.Location = New System.Drawing.Point(2, 30) + Me.pgcontents.Name = "pgcontents" + Me.pgcontents.Size = New System.Drawing.Size(805, 311) + Me.pgcontents.TabIndex = 15 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'template + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(809, 343) + Me.Controls.Add(Me.pgcontents) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "template" + Me.Text = "template" + Me.TopMost = True + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents pgcontents As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer +End Class diff --git a/template.resx b/template.resx new file mode 100644 index 0000000..79f713a --- /dev/null +++ b/template.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1056, 18 + + + 1140, 18 + + + 1253, 18 + + \ No newline at end of file diff --git a/template.vb b/template.vb new file mode 100644 index 0000000..76ea190 --- /dev/null +++ b/template.vb @@ -0,0 +1,444 @@ +Public Class template + 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 'replace with minimum size + Public minimumsizeheight As Integer = 0 'replace with minimum size + + 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() + + ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'modfiy to proper name + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + 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(800, 600) '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.knowledgeinputname 'Remember to change to name of program!!!! + 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.knowledgeinputicontitlebar '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 resettitlebar() + 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 + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + 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 pgbottom_Paint(sender As Object, e As PaintEventArgs) Handles pgbottom.Paint + + End Sub + + Private Sub pgtoprcorner_Paint(sender As Object, e As PaintEventArgs) Handles pgtoprcorner.Paint + + End Sub + + Private Sub pgtoplcorner_Paint(sender As Object, e As PaintEventArgs) Handles pgtoplcorner.Paint + + End Sub + + Private Sub lbtitletext_Click(sender As Object, e As EventArgs) Handles lbtitletext.Click + + End Sub + + Private Sub closebutton_Paint(sender As Object, e As PaintEventArgs) Handles closebutton.Paint + + End Sub + + Private Sub rollupbutton_Paint(sender As Object, e As PaintEventArgs) Handles rollupbutton.Paint + + End Sub + + Private Sub pnlicon_Click(sender As Object, e As EventArgs) Handles pnlicon.Click + + End Sub + + Private Sub minimizebutton_Paint(sender As Object, e As PaintEventArgs) Handles minimizebutton.Paint + + End Sub + + Private Sub pgbottomrcorner_Paint(sender As Object, e As PaintEventArgs) Handles pgbottomrcorner.Paint + + End Sub + + Private Sub pgright_Paint(sender As Object, e As PaintEventArgs) Handles pgright.Paint + + End Sub + + Private Sub pgbottomlcorner_Paint(sender As Object, e As PaintEventArgs) Handles pgbottomlcorner.Paint + + End Sub + + Private Sub pgleft_Paint(sender As Object, e As PaintEventArgs) Handles pgleft.Paint + + End Sub + + Private Sub pgcontents_Paint(sender As Object, e As PaintEventArgs) Handles pgcontents.Paint + + End Sub +End Class diff --git a/undo.vb b/undo.vb new file mode 100644 index 0000000..ed3a483 --- /dev/null +++ b/undo.vb @@ -0,0 +1,6 @@ +Public Class undo + + Public undoStack As New Stack(Of Image) + Public redoStack As New Stack(Of Image) + +End Class