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