From c8d95621fb1f8ebab23cd7e3eeacb26b6e018e20 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Sun, 15 Mar 2015 08:29:50 -0400 Subject: [PATCH] Advanced App Launcher added A very beta Advanced App Launcher has been added. It's in a functional state, and I'm still working on it. --- ShiftOS/ArtPad.vb | 2 +- ShiftOS/Colour Picker.vb | 2 + ShiftOS/File Saver.vb | 4 + ShiftOS/File Skimmer.vb | 4 +- ShiftOS/Icon Manager.vb | 4 +- ShiftOS/ShiftOSDesktop.Designer.vb | 463 ++++++++++++++++++++++++++++- ShiftOS/ShiftOSDesktop.resx | 3 + ShiftOS/ShiftOSDesktop.vb | 408 +++++++++++++++++++++++++ ShiftOS/Shifter.Designer.vb | 458 ++++++++++++++++++++++------ ShiftOS/Shifter.resx | 3 + ShiftOS/Shifter.vb | 105 +++++++ ShiftOS/skins.vb | 79 ++++- 12 files changed, 1438 insertions(+), 97 deletions(-) diff --git a/ShiftOS/ArtPad.vb b/ShiftOS/ArtPad.vb index 355d29e..1bace0d 100644 --- a/ShiftOS/ArtPad.vb +++ b/ShiftOS/ArtPad.vb @@ -13,7 +13,7 @@ Dim canvaswidth As Integer = 150 Dim canvasheight As Integer = 100 - Dim canvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight) + Public canvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight) Dim canvascolor As Color = Color.White Dim previewcanvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight) diff --git a/ShiftOS/Colour Picker.vb b/ShiftOS/Colour Picker.vb index e7e7d47..ee4676c 100644 --- a/ShiftOS/Colour Picker.vb +++ b/ShiftOS/Colour Picker.vb @@ -1646,6 +1646,8 @@ Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click Select Case colourtochange + Case "Username Text Color" + Shifter.usernametextcolor = pnlnewcolour.BackColor Case "Desktop Icon Text Color" Shifter.icontextcolor = pnlnewcolour.BackColor diff --git a/ShiftOS/File Saver.vb b/ShiftOS/File Saver.vb index bf7a0e3..dda9175 100644 --- a/ShiftOS/File Saver.vb +++ b/ShiftOS/File Saver.vb @@ -695,6 +695,7 @@ Public Class File_Saver Case "artpad" ArtPad.savelocation = lbllocation.Text & "/" & filename ArtPad.saveimage() + ArtPad.canvasbitmap.Save("C:\ShiftOS\SoftwareData\AdvStart\Recent\" & txtfilename.Text & ".pic", Imaging.ImageFormat.Bmp) ArtPad.needtosave = False ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + ArtPad.codepointsearned If ShiftOSDesktop.boughttitletext = True Then @@ -710,6 +711,9 @@ Public Class File_Saver Case "orcwrite" OrcWrite.savepath = lbllocation.Text & "/" & filename OrcWrite.savedocument() + Dim sw As New IO.StreamWriter("C:\ShiftOS\SoftwareData\AdvStart\Recent\" & txtfilename.Text + ".owd") + sw.Write(OrcWrite.RichTextBox1.Rtf) + sw.Close() End Select Me.Close() End If diff --git a/ShiftOS/File Skimmer.vb b/ShiftOS/File Skimmer.vb index 56fccc8..9d242cc 100644 --- a/ShiftOS/File Skimmer.vb +++ b/ShiftOS/File Skimmer.vb @@ -617,14 +617,14 @@ Public Class File_Skimmer 'Check if selected item is a file or folder. It it's a folder check its extension If path Like "*.owd" Then - If ShiftOSDesktop.boughtorcwrite = True Then + If ShiftOSDesktop.installedorcwrite = True Then Dim sr As New IO.StreamReader(path) OrcWrite.RichTextBox1.Rtf = sr.ReadToEnd() sr.Close() OrcWrite.Show() OrcWrite.TopMost = True Else - infobox.showinfo("Application Not Found", "ShiftOS could not find an application able the open .owd files.") + infobox.showinfo("Application Not Found", "ShiftOS could not find an application able to open .owd files.") End If ElseIf path Like "*.txt" Then If TextPad.needtosave = False Then diff --git a/ShiftOS/Icon Manager.vb b/ShiftOS/Icon Manager.vb index b1c1df7..82e81a3 100644 --- a/ShiftOS/Icon Manager.vb +++ b/ShiftOS/Icon Manager.vb @@ -733,10 +733,10 @@ icontochange.BackgroundImage = GetImage(openedfilelocation) If over64 = True Then - icontochange.backgroundimagelayout = BackgroundImageLayout.Stretch + icontochange.backgroundimagelayout = ImageLayout.Stretch over64 = False Else - icontochange.backgroundimagelayout = BackgroundImageLayout.Center + icontochange.backgroundimagelayout = ImageLayout.Center End If End Sub diff --git a/ShiftOS/ShiftOSDesktop.Designer.vb b/ShiftOS/ShiftOSDesktop.Designer.vb index 76aabc2..edc4d5e 100644 --- a/ShiftOS/ShiftOSDesktop.Designer.vb +++ b/ShiftOS/ShiftOSDesktop.Designer.vb @@ -194,6 +194,52 @@ Partial Class ShiftOSDesktop Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.fileActionsSeparator = New System.Windows.Forms.ToolStripSeparator() Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.pnladvapplauncher = New System.Windows.Forms.Panel() + Me.pnladvmain = New System.Windows.Forms.Panel() + Me.tscadvmainframe = New System.Windows.Forms.ToolStripContainer() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.UtilitiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TerminalToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.FileSkimmerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.SystemInformationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShifterToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.SkinLoaderToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.SkinShifterToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.IconManagerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.NameChangerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.InternetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShiftnetToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShiftoriumToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.WebBrowserToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.DownloadManagerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.InstallerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.BitnoteDiggerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.BitnoteWalletToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.FloodGateManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VirusScannerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.GamesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DodgeToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.SnakeyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.PongToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.KnowledgeInputToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.LabyrinthToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AccessoriesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ArtpadToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.TextpadToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.OrcWriteToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.AudioPlayerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.VideoPlayerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ClockToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.CalculatorToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lvadvfiles = New System.Windows.Forms.ListView() + Me.pnladvplaces = New System.Windows.Forms.Panel() + Me.lvadvplaces = New System.Windows.Forms.ListView() + Me.pnladvbottombar = New System.Windows.Forms.Panel() + Me.btnadvshutdown = New System.Windows.Forms.Button() + Me.pnladvtopbar = New System.Windows.Forms.Panel() + Me.lbuser = New System.Windows.Forms.Label() Me.desktoppanel.SuspendLayout() Me.pnlpanelbuttonholder.SuspendLayout() Me.pnlpanelbuttonclock.SuspendLayout() @@ -272,6 +318,15 @@ Partial Class ShiftOSDesktop Me.pnlpanelbuttonfloatybird.SuspendLayout() CType(Me.tbfloatybirdicon, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() + Me.pnladvapplauncher.SuspendLayout() + Me.pnladvmain.SuspendLayout() + Me.tscadvmainframe.BottomToolStripPanel.SuspendLayout() + Me.tscadvmainframe.ContentPanel.SuspendLayout() + Me.tscadvmainframe.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.pnladvplaces.SuspendLayout() + Me.pnladvbottombar.SuspendLayout() + Me.pnladvtopbar.SuspendLayout() Me.SuspendLayout() ' 'desktoppanel @@ -1906,7 +1961,7 @@ Partial Class ShiftOSDesktop ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.ToolStripMenuItem3, Me.TileViewToolStripMenuItem, Me.fileActionsSeparator, Me.AboutToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(170, 104) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(170, 82) ' 'NewToolStripMenuItem ' @@ -2002,12 +2057,360 @@ Partial Class ShiftOSDesktop Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.AboutToolStripMenuItem.Text = "About Desktop++" ' + 'pnladvapplauncher + ' + Me.pnladvapplauncher.BackColor = System.Drawing.Color.Gray + Me.pnladvapplauncher.Controls.Add(Me.pnladvmain) + Me.pnladvapplauncher.Controls.Add(Me.pnladvplaces) + Me.pnladvapplauncher.Controls.Add(Me.pnladvbottombar) + Me.pnladvapplauncher.Controls.Add(Me.pnladvtopbar) + Me.pnladvapplauncher.Location = New System.Drawing.Point(0, 24) + Me.pnladvapplauncher.Name = "pnladvapplauncher" + Me.pnladvapplauncher.Size = New System.Drawing.Size(320, 526) + Me.pnladvapplauncher.TabIndex = 2 + Me.pnladvapplauncher.Visible = False + ' + 'pnladvmain + ' + Me.pnladvmain.BackColor = System.Drawing.Color.Black + Me.pnladvmain.Controls.Add(Me.tscadvmainframe) + Me.pnladvmain.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnladvmain.Location = New System.Drawing.Point(0, 55) + Me.pnladvmain.Name = "pnladvmain" + Me.pnladvmain.Size = New System.Drawing.Size(184, 427) + Me.pnladvmain.TabIndex = 3 + ' + 'tscadvmainframe + ' + ' + 'tscadvmainframe.BottomToolStripPanel + ' + Me.tscadvmainframe.BottomToolStripPanel.Controls.Add(Me.ToolStrip1) + ' + 'tscadvmainframe.ContentPanel + ' + Me.tscadvmainframe.ContentPanel.Controls.Add(Me.lvadvfiles) + Me.tscadvmainframe.ContentPanel.Size = New System.Drawing.Size(184, 377) + Me.tscadvmainframe.Dock = System.Windows.Forms.DockStyle.Fill + Me.tscadvmainframe.Location = New System.Drawing.Point(0, 0) + Me.tscadvmainframe.Name = "tscadvmainframe" + Me.tscadvmainframe.Size = New System.Drawing.Size(184, 427) + Me.tscadvmainframe.TabIndex = 0 + Me.tscadvmainframe.Text = "ToolStripContainer1" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(184, 25) + Me.ToolStrip1.Stretch = True + Me.ToolStrip1.TabIndex = 0 + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UtilitiesToolStripMenuItem, Me.SettingsToolStripMenuItem, Me.InternetToolStripMenuItem, Me.GamesToolStripMenuItem, Me.AccessoriesToolStripMenuItem}) + Me.ToolStripButton1.Image = Global.ShiftOS.My.Resources.Resources.iconFileSkimmer + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(104, 22) + Me.ToolStripButton1.Text = "All Programs" + ' + 'UtilitiesToolStripMenuItem + ' + Me.UtilitiesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TerminalToolStripMenuItem1, Me.FileSkimmerToolStripMenuItem1, Me.SystemInformationToolStripMenuItem}) + Me.UtilitiesToolStripMenuItem.Name = "UtilitiesToolStripMenuItem" + Me.UtilitiesToolStripMenuItem.Size = New System.Drawing.Size(135, 22) + Me.UtilitiesToolStripMenuItem.Text = "Utilities" + ' + 'TerminalToolStripMenuItem1 + ' + Me.TerminalToolStripMenuItem1.Name = "TerminalToolStripMenuItem1" + Me.TerminalToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.TerminalToolStripMenuItem1.Text = "Terminal" + ' + 'FileSkimmerToolStripMenuItem1 + ' + Me.FileSkimmerToolStripMenuItem1.Name = "FileSkimmerToolStripMenuItem1" + Me.FileSkimmerToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.FileSkimmerToolStripMenuItem1.Text = "File Skimmer" + ' + 'SystemInformationToolStripMenuItem + ' + Me.SystemInformationToolStripMenuItem.Name = "SystemInformationToolStripMenuItem" + Me.SystemInformationToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.SystemInformationToolStripMenuItem.Text = "System Information" + ' + 'SettingsToolStripMenuItem + ' + Me.SettingsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShifterToolStripMenuItem1, Me.SkinLoaderToolStripMenuItem1, Me.SkinShifterToolStripMenuItem1, Me.IconManagerToolStripMenuItem1, Me.NameChangerToolStripMenuItem1}) + Me.SettingsToolStripMenuItem.Name = "SettingsToolStripMenuItem" + Me.SettingsToolStripMenuItem.Size = New System.Drawing.Size(135, 22) + Me.SettingsToolStripMenuItem.Text = "Settings" + ' + 'ShifterToolStripMenuItem1 + ' + Me.ShifterToolStripMenuItem1.Name = "ShifterToolStripMenuItem1" + Me.ShifterToolStripMenuItem1.Size = New System.Drawing.Size(154, 22) + Me.ShifterToolStripMenuItem1.Text = "Shifter" + ' + 'SkinLoaderToolStripMenuItem1 + ' + Me.SkinLoaderToolStripMenuItem1.Name = "SkinLoaderToolStripMenuItem1" + Me.SkinLoaderToolStripMenuItem1.Size = New System.Drawing.Size(154, 22) + Me.SkinLoaderToolStripMenuItem1.Text = "Skin Loader" + ' + 'SkinShifterToolStripMenuItem1 + ' + Me.SkinShifterToolStripMenuItem1.Name = "SkinShifterToolStripMenuItem1" + Me.SkinShifterToolStripMenuItem1.Size = New System.Drawing.Size(154, 22) + Me.SkinShifterToolStripMenuItem1.Text = "Skin Shifter" + ' + 'IconManagerToolStripMenuItem1 + ' + Me.IconManagerToolStripMenuItem1.Name = "IconManagerToolStripMenuItem1" + Me.IconManagerToolStripMenuItem1.Size = New System.Drawing.Size(154, 22) + Me.IconManagerToolStripMenuItem1.Text = "Icon Manager" + ' + 'NameChangerToolStripMenuItem1 + ' + Me.NameChangerToolStripMenuItem1.Name = "NameChangerToolStripMenuItem1" + Me.NameChangerToolStripMenuItem1.Size = New System.Drawing.Size(154, 22) + Me.NameChangerToolStripMenuItem1.Text = "Name Changer" + ' + 'InternetToolStripMenuItem + ' + Me.InternetToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShiftnetToolStripMenuItem1, Me.ShiftoriumToolStripMenuItem1, Me.WebBrowserToolStripMenuItem1, Me.DownloadManagerToolStripMenuItem1, Me.InstallerToolStripMenuItem1, Me.BitnoteDiggerToolStripMenuItem1, Me.BitnoteWalletToolStripMenuItem1, Me.FloodGateManagerToolStripMenuItem, Me.VirusScannerToolStripMenuItem1}) + Me.InternetToolStripMenuItem.Name = "InternetToolStripMenuItem" + Me.InternetToolStripMenuItem.Size = New System.Drawing.Size(135, 22) + Me.InternetToolStripMenuItem.Text = "Internet" + ' + 'ShiftnetToolStripMenuItem1 + ' + Me.ShiftnetToolStripMenuItem1.Name = "ShiftnetToolStripMenuItem1" + Me.ShiftnetToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.ShiftnetToolStripMenuItem1.Text = "Shiftnet" + ' + 'ShiftoriumToolStripMenuItem1 + ' + Me.ShiftoriumToolStripMenuItem1.Name = "ShiftoriumToolStripMenuItem1" + Me.ShiftoriumToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.ShiftoriumToolStripMenuItem1.Text = "Shiftorium" + ' + 'WebBrowserToolStripMenuItem1 + ' + Me.WebBrowserToolStripMenuItem1.Name = "WebBrowserToolStripMenuItem1" + Me.WebBrowserToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.WebBrowserToolStripMenuItem1.Text = "Web Browser" + ' + 'DownloadManagerToolStripMenuItem1 + ' + Me.DownloadManagerToolStripMenuItem1.Name = "DownloadManagerToolStripMenuItem1" + Me.DownloadManagerToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.DownloadManagerToolStripMenuItem1.Text = "Download Manager" + ' + 'InstallerToolStripMenuItem1 + ' + Me.InstallerToolStripMenuItem1.Name = "InstallerToolStripMenuItem1" + Me.InstallerToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.InstallerToolStripMenuItem1.Text = "Installer" + ' + 'BitnoteDiggerToolStripMenuItem1 + ' + Me.BitnoteDiggerToolStripMenuItem1.Name = "BitnoteDiggerToolStripMenuItem1" + Me.BitnoteDiggerToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.BitnoteDiggerToolStripMenuItem1.Text = "Bitnote Digger" + ' + 'BitnoteWalletToolStripMenuItem1 + ' + Me.BitnoteWalletToolStripMenuItem1.Name = "BitnoteWalletToolStripMenuItem1" + Me.BitnoteWalletToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.BitnoteWalletToolStripMenuItem1.Text = "Bitnote Wallet" + ' + 'FloodGateManagerToolStripMenuItem + ' + Me.FloodGateManagerToolStripMenuItem.Name = "FloodGateManagerToolStripMenuItem" + Me.FloodGateManagerToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.FloodGateManagerToolStripMenuItem.Text = "FloodGate Manager" + ' + 'VirusScannerToolStripMenuItem1 + ' + Me.VirusScannerToolStripMenuItem1.Name = "VirusScannerToolStripMenuItem1" + Me.VirusScannerToolStripMenuItem1.Size = New System.Drawing.Size(178, 22) + Me.VirusScannerToolStripMenuItem1.Text = "Virus Scanner" + ' + 'GamesToolStripMenuItem + ' + Me.GamesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DodgeToolStripMenuItem1, Me.SnakeyToolStripMenuItem1, Me.PongToolStripMenuItem1, Me.KnowledgeInputToolStripMenuItem1, Me.LabyrinthToolStripMenuItem}) + Me.GamesToolStripMenuItem.Name = "GamesToolStripMenuItem" + Me.GamesToolStripMenuItem.Size = New System.Drawing.Size(135, 22) + Me.GamesToolStripMenuItem.Text = "Games" + ' + 'DodgeToolStripMenuItem1 + ' + Me.DodgeToolStripMenuItem1.Name = "DodgeToolStripMenuItem1" + Me.DodgeToolStripMenuItem1.Size = New System.Drawing.Size(164, 22) + Me.DodgeToolStripMenuItem1.Text = "Dodge" + ' + 'SnakeyToolStripMenuItem1 + ' + Me.SnakeyToolStripMenuItem1.Name = "SnakeyToolStripMenuItem1" + Me.SnakeyToolStripMenuItem1.Size = New System.Drawing.Size(164, 22) + Me.SnakeyToolStripMenuItem1.Text = "Snakey" + ' + 'PongToolStripMenuItem1 + ' + Me.PongToolStripMenuItem1.Name = "PongToolStripMenuItem1" + Me.PongToolStripMenuItem1.Size = New System.Drawing.Size(164, 22) + Me.PongToolStripMenuItem1.Text = "Pong" + ' + 'KnowledgeInputToolStripMenuItem1 + ' + Me.KnowledgeInputToolStripMenuItem1.Name = "KnowledgeInputToolStripMenuItem1" + Me.KnowledgeInputToolStripMenuItem1.Size = New System.Drawing.Size(164, 22) + Me.KnowledgeInputToolStripMenuItem1.Text = "Knowledge Input" + ' + 'LabyrinthToolStripMenuItem + ' + Me.LabyrinthToolStripMenuItem.Name = "LabyrinthToolStripMenuItem" + Me.LabyrinthToolStripMenuItem.Size = New System.Drawing.Size(164, 22) + Me.LabyrinthToolStripMenuItem.Text = "Labyrinth" + ' + 'AccessoriesToolStripMenuItem + ' + Me.AccessoriesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ArtpadToolStripMenuItem1, Me.TextpadToolStripMenuItem1, Me.OrcWriteToolStripMenuItem1, Me.AudioPlayerToolStripMenuItem1, Me.VideoPlayerToolStripMenuItem1, Me.ClockToolStripMenuItem1, Me.CalculatorToolStripMenuItem1}) + Me.AccessoriesToolStripMenuItem.Name = "AccessoriesToolStripMenuItem" + Me.AccessoriesToolStripMenuItem.Size = New System.Drawing.Size(135, 22) + Me.AccessoriesToolStripMenuItem.Text = "Accessories" + ' + 'ArtpadToolStripMenuItem1 + ' + Me.ArtpadToolStripMenuItem1.Name = "ArtpadToolStripMenuItem1" + Me.ArtpadToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.ArtpadToolStripMenuItem1.Text = "Artpad" + ' + 'TextpadToolStripMenuItem1 + ' + Me.TextpadToolStripMenuItem1.Name = "TextpadToolStripMenuItem1" + Me.TextpadToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.TextpadToolStripMenuItem1.Text = "Textpad" + ' + 'OrcWriteToolStripMenuItem1 + ' + Me.OrcWriteToolStripMenuItem1.Name = "OrcWriteToolStripMenuItem1" + Me.OrcWriteToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.OrcWriteToolStripMenuItem1.Text = "OrcWrite" + ' + 'AudioPlayerToolStripMenuItem1 + ' + Me.AudioPlayerToolStripMenuItem1.Name = "AudioPlayerToolStripMenuItem1" + Me.AudioPlayerToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.AudioPlayerToolStripMenuItem1.Text = "Audio Player" + ' + 'VideoPlayerToolStripMenuItem1 + ' + Me.VideoPlayerToolStripMenuItem1.Name = "VideoPlayerToolStripMenuItem1" + Me.VideoPlayerToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.VideoPlayerToolStripMenuItem1.Text = "Video Player" + ' + 'ClockToolStripMenuItem1 + ' + Me.ClockToolStripMenuItem1.Name = "ClockToolStripMenuItem1" + Me.ClockToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.ClockToolStripMenuItem1.Text = "Clock" + ' + 'CalculatorToolStripMenuItem1 + ' + Me.CalculatorToolStripMenuItem1.Name = "CalculatorToolStripMenuItem1" + Me.CalculatorToolStripMenuItem1.Size = New System.Drawing.Size(141, 22) + Me.CalculatorToolStripMenuItem1.Text = "Calculator" + ' + 'lvadvfiles + ' + Me.lvadvfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.lvadvfiles.Location = New System.Drawing.Point(0, 0) + Me.lvadvfiles.Name = "lvadvfiles" + Me.lvadvfiles.Size = New System.Drawing.Size(184, 377) + Me.lvadvfiles.TabIndex = 0 + Me.lvadvfiles.UseCompatibleStateImageBehavior = False + ' + 'pnladvplaces + ' + Me.pnladvplaces.BackColor = System.Drawing.Color.White + Me.pnladvplaces.Controls.Add(Me.lvadvplaces) + Me.pnladvplaces.Dock = System.Windows.Forms.DockStyle.Right + Me.pnladvplaces.Location = New System.Drawing.Point(184, 55) + Me.pnladvplaces.Name = "pnladvplaces" + Me.pnladvplaces.Size = New System.Drawing.Size(136, 427) + Me.pnladvplaces.TabIndex = 2 + ' + 'lvadvplaces + ' + Me.lvadvplaces.Dock = System.Windows.Forms.DockStyle.Fill + Me.lvadvplaces.Location = New System.Drawing.Point(0, 0) + Me.lvadvplaces.Name = "lvadvplaces" + Me.lvadvplaces.Size = New System.Drawing.Size(136, 427) + Me.lvadvplaces.TabIndex = 0 + Me.lvadvplaces.UseCompatibleStateImageBehavior = False + Me.lvadvplaces.View = System.Windows.Forms.View.SmallIcon + ' + 'pnladvbottombar + ' + Me.pnladvbottombar.Controls.Add(Me.btnadvshutdown) + Me.pnladvbottombar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnladvbottombar.Location = New System.Drawing.Point(0, 482) + Me.pnladvbottombar.Name = "pnladvbottombar" + Me.pnladvbottombar.Size = New System.Drawing.Size(320, 44) + Me.pnladvbottombar.TabIndex = 1 + ' + 'btnadvshutdown + ' + Me.btnadvshutdown.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnadvshutdown.FlatAppearance.BorderSize = 0 + Me.btnadvshutdown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnadvshutdown.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic) + Me.btnadvshutdown.ForeColor = System.Drawing.Color.White + Me.btnadvshutdown.Image = Global.ShiftOS.My.Resources.Resources.iconshutdown + Me.btnadvshutdown.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnadvshutdown.Location = New System.Drawing.Point(0, 0) + Me.btnadvshutdown.Name = "btnadvshutdown" + Me.btnadvshutdown.Size = New System.Drawing.Size(320, 44) + Me.btnadvshutdown.TabIndex = 0 + Me.btnadvshutdown.Text = "Shut Down ShiftOS" + Me.btnadvshutdown.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnadvshutdown.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText + Me.btnadvshutdown.UseVisualStyleBackColor = True + ' + 'pnladvtopbar + ' + Me.pnladvtopbar.Controls.Add(Me.lbuser) + Me.pnladvtopbar.Dock = System.Windows.Forms.DockStyle.Top + Me.pnladvtopbar.Location = New System.Drawing.Point(0, 0) + Me.pnladvtopbar.Name = "pnladvtopbar" + Me.pnladvtopbar.Size = New System.Drawing.Size(320, 55) + Me.pnladvtopbar.TabIndex = 0 + ' + 'lbuser + ' + Me.lbuser.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbuser.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic) + Me.lbuser.ForeColor = System.Drawing.Color.White + Me.lbuser.Location = New System.Drawing.Point(0, 0) + Me.lbuser.Name = "lbuser" + Me.lbuser.Size = New System.Drawing.Size(320, 55) + Me.lbuser.TabIndex = 0 + Me.lbuser.Text = "Username" + Me.lbuser.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' 'ShiftOSDesktop ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.Black Me.ClientSize = New System.Drawing.Size(1268, 685) + Me.Controls.Add(Me.pnladvapplauncher) Me.Controls.Add(Me.desktopicons) Me.Controls.Add(Me.desktoppanel) Me.KeyPreview = True @@ -2131,6 +2534,18 @@ Partial Class ShiftOSDesktop Me.pnlpanelbuttonfloatybird.PerformLayout() CType(Me.tbfloatybirdicon, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) + Me.pnladvapplauncher.ResumeLayout(False) + Me.pnladvmain.ResumeLayout(False) + Me.tscadvmainframe.BottomToolStripPanel.ResumeLayout(False) + Me.tscadvmainframe.BottomToolStripPanel.PerformLayout() + Me.tscadvmainframe.ContentPanel.ResumeLayout(False) + Me.tscadvmainframe.ResumeLayout(False) + Me.tscadvmainframe.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.pnladvplaces.ResumeLayout(False) + Me.pnladvbottombar.ResumeLayout(False) + Me.pnladvtopbar.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -2305,4 +2720,50 @@ Partial Class ShiftOSDesktop Friend WithEvents NewSkin As System.Windows.Forms.ToolStripMenuItem Friend WithEvents RenameToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnladvapplauncher As System.Windows.Forms.Panel + Friend WithEvents pnladvmain As System.Windows.Forms.Panel + Friend WithEvents tscadvmainframe As System.Windows.Forms.ToolStripContainer + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents UtilitiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TerminalToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FileSkimmerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SystemInformationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SettingsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShifterToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SkinLoaderToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SkinShifterToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents IconManagerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents NameChangerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InternetToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShiftnetToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShiftoriumToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents WebBrowserToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DownloadManagerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InstallerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BitnoteDiggerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BitnoteWalletToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FloodGateManagerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VirusScannerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GamesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DodgeToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SnakeyToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PongToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KnowledgeInputToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LabyrinthToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AccessoriesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ArtpadToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TextpadToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OrcWriteToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AudioPlayerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VideoPlayerToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ClockToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CalculatorToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnladvplaces As System.Windows.Forms.Panel + Friend WithEvents pnladvbottombar As System.Windows.Forms.Panel + Friend WithEvents pnladvtopbar As System.Windows.Forms.Panel + Friend WithEvents btnadvshutdown As System.Windows.Forms.Button + Friend WithEvents lvadvplaces As System.Windows.Forms.ListView + Friend WithEvents lvadvfiles As System.Windows.Forms.ListView + Friend WithEvents lbuser As System.Windows.Forms.Label End Class diff --git a/ShiftOS/ShiftOSDesktop.resx b/ShiftOS/ShiftOSDesktop.resx index dec383d..286b65c 100644 --- a/ShiftOS/ShiftOSDesktop.resx +++ b/ShiftOS/ShiftOSDesktop.resx @@ -138,6 +138,9 @@ 17, 56 + + 174, 56 + 50 diff --git a/ShiftOS/ShiftOSDesktop.vb b/ShiftOS/ShiftOSDesktop.vb index 9a23926..063cd03 100644 --- a/ShiftOS/ShiftOSDesktop.vb +++ b/ShiftOS/ShiftOSDesktop.vb @@ -234,6 +234,9 @@ Public virusscannergrade As Integer = 0 Public boughttextpadtrm As Boolean = False Public boughtshiftapplauncheritems As Boolean = False + Public boughtadvapplauncher As Boolean = False + + 'Apps bought through shiftnet Public installedcalculator As Boolean = False @@ -1058,6 +1061,7 @@ SortOutBooleans(VirusScannerCorrupted, 612, False) SortOutBooleans(WebBrowserCorrupted, 613, False) If boughtdesktopicons = True Then savelines(614) = 11 Else savelines(614) = 10 + If boughtadvapplauncher = True Then savelines(615) = 11 Else savelines(615) = 10 IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", savelines) File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey) Try @@ -1578,6 +1582,11 @@ Catch boughtdesktopicons = False End Try + Try + If loadlines(615) = 11 Then boughtadvapplauncher = True Else boughtadvapplauncher = False + Catch + boughtadvapplauncher = False + End Try Viruses.startactiveviruses() If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin() If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons() @@ -1592,6 +1601,10 @@ loadgame() Terminal.runterminalfile(ShiftOSPath + "Shiftum42\autorun.trm") End If + + If Not My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "\SoftwareData\AdvStart\Recent") Then + IO.Directory.CreateDirectory(ShiftOSPath + "\SoftwareData\AdvStart\Recent") + End If ToolStripManager.Renderer = New MyToolStripRenderer() Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Me.WindowState = FormWindowState.Maximized @@ -1974,6 +1987,56 @@ ApplicationsToolStripMenuItem.Visible = False End If + 'Adv. App Launcher Bug Fix Code + + + + + 'DevX's Advanced App Launcher Skin Code + lbuser.Font = New Font(Skins.usernamefont, Skins.usernamefontsize, Skins.usernamefontstyle) + lbuser.ForeColor = Skins.usernametextcolor + If Skins.recentIconsHorizontal = True Then + lvadvfiles.Alignment = ListViewAlignment.Top + lvadvfiles.View = View.LargeIcon + Else + lvadvfiles.Alignment = ListViewAlignment.Left + lvadvfiles.View = View.SmallIcon + End If + + Select Case Skins.placesSide + Case "Left" + pnladvplaces.Dock = DockStyle.Left + Case "Right" + pnladvplaces.Dock = DockStyle.Right + End Select + + + pnladvtopbar.Height = Skins.topBarHeight + pnladvbottombar.Height = Skins.bottomBarHeight + Select Case Skins.userNamePosition + Case "Top, Left" + lbuser.TextAlign = ContentAlignment.TopLeft + Case "Top, Middle" + lbuser.TextAlign = ContentAlignment.TopCenter + Case "Top, Right" + lbuser.TextAlign = ContentAlignment.TopRight + Case "Middle, Left" + lbuser.TextAlign = ContentAlignment.MiddleLeft + Case "Middle, Middle" + lbuser.TextAlign = ContentAlignment.MiddleCenter + Case "Middle, Right" + lbuser.TextAlign = ContentAlignment.MiddleRight + Case "Bottom, Left" + lbuser.TextAlign = ContentAlignment.BottomLeft + Case "Bottom, Middle" + lbuser.TextAlign = ContentAlignment.BottomCenter + Case "Bottom. Right" + lbuser.TextAlign = ContentAlignment.BottomRight + End Select + + 'End ADV App Launcher Code + + 'Desktop++ Skin Code ContextMenuStrip1.ForeColor = Skins.launcheritemcolour ContextMenuStrip1.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle) For Each Item In NewToolStripMenuItem.DropDownItems @@ -1985,6 +2048,9 @@ Item.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle) Next + 'End Desktop++ Code + + If boughtalclock = True Then ClockToolStripMenuItem.Visible = True If boughtclockicon = True Then @@ -4675,6 +4741,30 @@ desktopicons.Items.Add(item) Next End If + lvadvplaces.Items.Clear() + lvadvplaces.SmallImageList = File_Skimmer.ImageList1 + lvadvplaces.LargeImageList = File_Skimmer.ImageList1 + + For Each folder In My.Computer.FileSystem.GetDirectories("C:\ShiftOS\Home") + Dim placeinfo As New IO.DirectoryInfo(folder) + Dim place As New ListViewItem + place.Text = placeinfo.Name + place.Tag = placeinfo.FullName + place.ImageIndex = 0 + lvadvplaces.Items.Add(place) + Next + lvadvfiles.Items.Clear() + lvadvfiles.LargeImageList = File_Skimmer.ImageList1 + lvadvfiles.SmallImageList = File_Skimmer.ImageList1 + For Each File In My.Computer.FileSystem.GetFiles("C:\ShiftOS\SoftwareData\AdvStart\Recent") + Dim fileinfo As New IO.FileInfo(File) + Dim item As New ListViewItem + item.Text = fileinfo.Name + item.Tag = fileinfo.FullName + Dim fileex As String = fileinfo.Extension + item.ImageIndex = File_Skimmer.getExType(fileex)(0) + lvadvfiles.Items.Add(item) + Next End Sub Private Sub ClickDesktopIcon(sender As Object, e As EventArgs) Handles desktopicons.DoubleClick @@ -4797,4 +4887,322 @@ End If refreshIcons() End Sub + + Private Sub TerminalToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TerminalToolStripMenuItem1.Click + Terminal.Show() + Terminal.TopMost = True + hideStart() + End Sub + + Private Sub FileSkimmerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FileSkimmerToolStripMenuItem1.Click + If boughtfileskimmer = True Then + File_Skimmer.Show() + File_Skimmer.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'File Skimmer'.") + End If + End Sub + + Private Sub SystemInformationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SystemInformationToolStripMenuItem.Click + If installedsysinfo = True Then + systeminfo.Show() + systeminfo.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'System Information'.") + End If + End Sub + + Private Sub ShifterToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ShifterToolStripMenuItem1.Click + If boughtshifter = True Then + Shifter.Show() + Shifter.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Shifter'.") + End If + End Sub + + Private Sub SkinLoaderToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SkinLoaderToolStripMenuItem1.Click + If boughtskinloader = True Then + Skin_Loader.Show() + Skin_Loader.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Skin Loader'.") + End If + End Sub + + Private Sub SkinShifterToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SkinShifterToolStripMenuItem1.Click + If boughtskinshifter Then + Skinshifter.Show() + Skinshifter.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'skinshifter.saa'.") + End If + End Sub + + Private Sub IconManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles IconManagerToolStripMenuItem1.Click + If boughticonmanager = True Then + Icon_Manager.Show() + Icon_Manager.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'icon_manager.saa'.") + End If + End Sub + + Private Sub NameChangerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NameChangerToolStripMenuItem1.Click + If boughtnamechanger = True Then + Name_Changer.Show() + Name_Changer.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'namechanger.saa'.") + End If + End Sub + + Private Sub ShiftnetToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ShiftnetToolStripMenuItem1.Click + If boughtshiftnet = True Then + Shiftnet.Show() + Shiftnet.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'shiftnet.dri'.") + End If + End Sub + + Private Sub ShiftoriumToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ShiftoriumToolStripMenuItem1.Click + Shiftorium.Show() + Shiftorium.TopMost = True + hideStart() + End Sub + + Private Sub WebBrowserToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles WebBrowserToolStripMenuItem1.Click + If boughtwebbrowser = True Then + Web_Browser.Show() + Web_Browser.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'webbrowser.saa'.") + End If + End Sub + + Private Sub DownloadManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DownloadManagerToolStripMenuItem1.Click + If boughtshiftnet = True Then + Downloadmanager.Show() + Downloadmanager.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'shiftnet.dri'.") + End If + End Sub + + Private Sub InstallerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles InstallerToolStripMenuItem1.Click + If boughtshiftnet = True Then + Installer.Show() + Installer.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'shiftnet.dri'.") + End If + End Sub + + Private Sub BitnoteDiggerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BitnoteDiggerToolStripMenuItem1.Click + If boughtbitnotedigger = True Then + Bitnote_Digger.Show() + Bitnote_Digger.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'btn_dig.dri'.") + End If + End Sub + + Private Sub BitnoteWalletToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BitnoteWalletToolStripMenuItem1.Click + If boughtbitnotewallet = True Then + Bitnote_Wallet.Show() + Bitnote_Wallet.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'btn_wallet.saa'.") + End If + End Sub + + Private Sub FloodGateManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FloodGateManagerToolStripMenuItem.Click + If boughtfloodgate = True Then + FloodGate_Manager.Show() + FloodGate_Manager.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'floodgateman.saa'.") + End If + End Sub + + Private Sub VirusScannerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles VirusScannerToolStripMenuItem1.Click + If installedvirusscanner = True Then + VirusScanner.Show() + VirusScanner.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'virusscanner.saa'.") + End If + End Sub + + Private Sub DodgeToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DodgeToolStripMenuItem1.Click + If installeddodge = True Then + Dodge.Show() + Dodge.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Dodge'.") + End If + End Sub + + Private Sub SnakeyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SnakeyToolStripMenuItem1.Click + If boughtsnakey = True Then + Snakey.Show() + Snakey.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Snakey'.") + End If + End Sub + + Private Sub PongToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PongToolStripMenuItem1.Click + If boughtpong = True Then + Pong.Show() + Pong.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Pong'.") + End Sub + + Private Sub KnowledgeInputToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles KnowledgeInputToolStripMenuItem1.Click + Knowledge_Input.Show() + Knowledge_Input.TopMost = True + hideStart() + End Sub + + Private Sub LabyrinthToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LabyrinthToolStripMenuItem.Click + Labyrinth.Show() + Labyrinth.TopMost = True + hideStart() + End Sub + + Private Sub ArtpadToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ArtpadToolStripMenuItem1.Click + If boughtartpad = True Then + ArtPad.Show() + ArtPad.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Artpad'.") + End If + End Sub + + Private Sub TextpadToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TextpadToolStripMenuItem1.Click + If boughttextpad = True Then + TextPad.Show() + TextPad.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'TextPad'.") + End If + + End Sub + + Private Sub OrcWriteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OrcWriteToolStripMenuItem1.Click + If installedorcwrite = True Then + OrcWrite.Show() + OrcWrite.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find driver 'OWDHandler.dri'.") + End If + End Sub + + Private Sub AudioPlayerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AudioPlayerToolStripMenuItem1.Click + If boughtaudioplayer = True Then + Audio_Player.Show() + Audio_Player.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'audplay.saa'.") + End If + End Sub + + Private Sub VideoPlayerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles VideoPlayerToolStripMenuItem1.Click + If boughtvideoplayer = True Then + Video_Player.Show() + Video_Player.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find file 'video_player.saa'.") + End If + End Sub + + Private Sub ClockToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ClockToolStripMenuItem1.Click + If boughtclock = True Then + Clock.Show() + Clock.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Clock'.") + End If + End Sub + + Private Sub CalculatorToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CalculatorToolStripMenuItem1.Click + If boughtcalculator = True Then + Calculator.Show() + Calculator.TopMost = True + hideStart() + Else + infobox.showinfo("Error", "Could not find app 'Calculator'.") + End If + End Sub + + Public Sub hideStart() + pnladvapplauncher.Hide() + End Sub + + Private Sub btnadvshutdown_Click(sender As Object, e As EventArgs) Handles btnadvshutdown.Click + savegame() + shutdownshiftos() + End Sub + + Private Sub lvadvplaces_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvadvplaces.SelectedIndexChanged + If lvadvplaces.SelectedItems.Count > 0 Then + Dim fName As String = lvadvplaces.SelectedItems(0).Tag + fName = fName.Replace("\", "/") + File_Skimmer.OpenFile(fName) + End If + pnladvapplauncher.Hide() + End Sub + + Private Sub lvadvfiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvadvfiles.SelectedIndexChanged + If lvadvfiles.SelectedItems.Count > 0 Then + File_Skimmer.OpenFile(lvadvfiles.SelectedItems(0).Tag) + End If + pnladvapplauncher.Hide() + End Sub + + Private Sub ApplicationsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ApplicationsToolStripMenuItem.Click + If boughtadvapplauncher = False Then + ApplicationsToolStripMenuItem.DropDownItems.Clear() + If pnladvapplauncher.Visible = False Then + pnladvapplauncher.Show() + Else + pnladvapplauncher.Hide() + End If + lbuser.Text = username + Select Case Skins.desktoppanelposition + Case "Top" + pnladvapplauncher.Location = New Point(0, desktoppanel.Height) + Case "Bottom" + pnladvapplauncher.Location = New Point(0, Me.Height - desktoppanel.Height - pnladvapplauncher.Height) + End Select + setupdesktop() + End If + End Sub End Class \ No newline at end of file diff --git a/ShiftOS/Shifter.Designer.vb b/ShiftOS/Shifter.Designer.vb index 73ded5a..55f529f 100644 --- a/ShiftOS/Shifter.Designer.vb +++ b/ShiftOS/Shifter.Designer.vb @@ -45,6 +45,7 @@ Partial Class Shifter Me.btnapply = New System.Windows.Forms.Button() Me.catholder = New System.Windows.Forms.Panel() Me.btnreset = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() Me.btndeskdoubleplus = New System.Windows.Forms.Button() Me.btnprograms = New System.Windows.Forms.Button() Me.btnicons = New System.Windows.Forms.Button() @@ -315,21 +316,42 @@ Partial Class Shifter Me.Label109 = New System.Windows.Forms.Label() Me.Label111 = New System.Windows.Forms.Label() Me.pgcontents = New System.Windows.Forms.Panel() + Me.pnlshiftadvapplauncher = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnaalpwrpnlbg = New System.Windows.Forms.Button() + Me.Label124 = New System.Windows.Forms.Label() + Me.btnaalusrpnlbg = New System.Windows.Forms.Button() + Me.Label123 = New System.Windows.Forms.Label() + Me.btnaalshutdowntextcolor = New System.Windows.Forms.Button() + Me.Label122 = New System.Windows.Forms.Label() + Me.cmbaalusrstyle = New System.Windows.Forms.ComboBox() + Me.nudusrsize = New System.Windows.Forms.NumericUpDown() + Me.cmbaalusrfont = New System.Windows.Forms.ComboBox() + Me.Label121 = New System.Windows.Forms.Label() + Me.btnaalusrtextcolor = New System.Windows.Forms.Button() + Me.Label120 = New System.Windows.Forms.Label() + Me.Label119 = New System.Windows.Forms.Label() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Label118 = New System.Windows.Forms.Label() Me.pnldeskdoubleplus = New System.Windows.Forms.Panel() - Me.tmrfix = New System.Windows.Forms.Timer(Me.components) - Me.tmrdelay = New System.Windows.Forms.Timer(Me.components) - Me.pnldppoptions = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() Me.desktopiconspreview = New System.Windows.Forms.ListView() - Me.btndppicons = New System.Windows.Forms.Button() - Me.btndppfiles = New System.Windows.Forms.Button() - Me.btndppappearance = New System.Windows.Forms.Button() - Me.btndppfunctions = New System.Windows.Forms.Button() + Me.pnldppoptions = New System.Windows.Forms.Panel() + Me.pnldppicons = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label117 = New System.Windows.Forms.Label() Me.pnldppfunctions = New System.Windows.Forms.Panel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.pnldppicons = New System.Windows.Forms.Panel() - Me.Label117 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() + Me.btndppfunctions = New System.Windows.Forms.Button() + Me.btndppappearance = New System.Windows.Forms.Button() + Me.btndppfiles = New System.Windows.Forms.Button() + Me.btndppicons = New System.Windows.Forms.Button() + Me.tmrfix = New System.Windows.Forms.Timer(Me.components) + Me.tmrdelay = New System.Windows.Forms.Timer(Me.components) Me.pgleft.SuspendLayout() Me.pgright.SuspendLayout() Me.titlebar.SuspendLayout() @@ -370,11 +392,14 @@ Partial Class Shifter CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlreset.SuspendLayout() Me.pgcontents.SuspendLayout() + Me.pnlshiftadvapplauncher.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.nudusrsize, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnldeskdoubleplus.SuspendLayout() - Me.pnldppoptions.SuspendLayout() Me.Panel2.SuspendLayout() - Me.pnldppfunctions.SuspendLayout() + Me.pnldppoptions.SuspendLayout() Me.pnldppicons.SuspendLayout() + Me.pnldppfunctions.SuspendLayout() Me.SuspendLayout() ' 'pgleft @@ -533,6 +558,7 @@ Partial Class Shifter ' 'btnapply ' + Me.btnapply.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnapply.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnapply.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnapply.Location = New System.Drawing.Point(7, 270) @@ -545,8 +571,11 @@ Partial Class Shifter ' 'catholder ' + Me.catholder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.catholder.BackColor = System.Drawing.Color.White Me.catholder.Controls.Add(Me.btnreset) + Me.catholder.Controls.Add(Me.Button2) Me.catholder.Controls.Add(Me.btndeskdoubleplus) Me.catholder.Controls.Add(Me.btnprograms) Me.catholder.Controls.Add(Me.btnicons) @@ -563,7 +592,7 @@ Partial Class Shifter Me.btnreset.Dock = System.Windows.Forms.DockStyle.Top Me.btnreset.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnreset.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnreset.Location = New System.Drawing.Point(0, 145) + Me.btnreset.Location = New System.Drawing.Point(0, 193) Me.btnreset.Name = "btnreset" Me.btnreset.Size = New System.Drawing.Size(119, 29) Me.btnreset.TabIndex = 8 @@ -571,6 +600,20 @@ Partial Class Shifter Me.btnreset.Text = "Reset" Me.btnreset.UseVisualStyleBackColor = False ' + 'Button2 + ' + Me.Button2.BackColor = System.Drawing.Color.White + Me.Button2.Dock = System.Windows.Forms.DockStyle.Top + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Font = New System.Drawing.Font("Cambria", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button2.Location = New System.Drawing.Point(0, 145) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(119, 48) + Me.Button2.TabIndex = 10 + Me.Button2.TabStop = False + Me.Button2.Text = "Adv. App Launcher" + Me.Button2.UseVisualStyleBackColor = False + ' 'btndeskdoubleplus ' Me.btndeskdoubleplus.BackColor = System.Drawing.Color.White @@ -3464,6 +3507,7 @@ Partial Class Shifter 'pgcontents ' Me.pgcontents.BackColor = System.Drawing.Color.White + Me.pgcontents.Controls.Add(Me.pnlshiftadvapplauncher) Me.pgcontents.Controls.Add(Me.pnldeskdoubleplus) Me.pgcontents.Controls.Add(Me.pnlreset) Me.pgcontents.Controls.Add(Me.pnlwindowsoptions) @@ -3478,6 +3522,215 @@ Partial Class Shifter Me.pgcontents.Size = New System.Drawing.Size(596, 307) Me.pgcontents.TabIndex = 0 ' + 'pnlshiftadvapplauncher + ' + Me.pnlshiftadvapplauncher.Controls.Add(Me.Panel1) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Label119) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Button7) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Button6) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Button5) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Button4) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Button3) + Me.pnlshiftadvapplauncher.Controls.Add(Me.Label118) + Me.pnlshiftadvapplauncher.Location = New System.Drawing.Point(134, 9) + Me.pnlshiftadvapplauncher.Name = "pnlshiftadvapplauncher" + Me.pnlshiftadvapplauncher.Size = New System.Drawing.Size(452, 292) + Me.pnlshiftadvapplauncher.TabIndex = 20 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.btnaalpwrpnlbg) + Me.Panel1.Controls.Add(Me.Label124) + Me.Panel1.Controls.Add(Me.btnaalusrpnlbg) + Me.Panel1.Controls.Add(Me.Label123) + Me.Panel1.Controls.Add(Me.btnaalshutdowntextcolor) + Me.Panel1.Controls.Add(Me.Label122) + Me.Panel1.Controls.Add(Me.cmbaalusrstyle) + Me.Panel1.Controls.Add(Me.nudusrsize) + Me.Panel1.Controls.Add(Me.cmbaalusrfont) + Me.Panel1.Controls.Add(Me.Label121) + Me.Panel1.Controls.Add(Me.btnaalusrtextcolor) + Me.Panel1.Controls.Add(Me.Label120) + Me.Panel1.Location = New System.Drawing.Point(4, 104) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(444, 157) + Me.Panel1.TabIndex = 7 + ' + 'btnaalpwrpnlbg + ' + Me.btnaalpwrpnlbg.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnaalpwrpnlbg.Location = New System.Drawing.Point(346, 84) + Me.btnaalpwrpnlbg.Name = "btnaalpwrpnlbg" + Me.btnaalpwrpnlbg.Size = New System.Drawing.Size(34, 23) + Me.btnaalpwrpnlbg.TabIndex = 11 + Me.btnaalpwrpnlbg.UseVisualStyleBackColor = True + ' + 'Label124 + ' + Me.Label124.AutoSize = True + Me.Label124.Location = New System.Drawing.Point(213, 90) + Me.Label124.Name = "Label124" + Me.Label124.Size = New System.Drawing.Size(131, 13) + Me.Label124.TabIndex = 10 + Me.Label124.Text = "Power Panel Background:" + ' + 'btnaalusrpnlbg + ' + Me.btnaalusrpnlbg.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnaalusrpnlbg.Location = New System.Drawing.Point(167, 84) + Me.btnaalusrpnlbg.Name = "btnaalusrpnlbg" + Me.btnaalusrpnlbg.Size = New System.Drawing.Size(34, 23) + Me.btnaalusrpnlbg.TabIndex = 9 + Me.btnaalusrpnlbg.UseVisualStyleBackColor = True + ' + 'Label123 + ' + Me.Label123.AutoSize = True + Me.Label123.Location = New System.Drawing.Point(14, 89) + Me.Label123.Name = "Label123" + Me.Label123.Size = New System.Drawing.Size(149, 13) + Me.Label123.TabIndex = 8 + Me.Label123.Text = "Username Panel Background:" + ' + 'btnaalshutdowntextcolor + ' + Me.btnaalshutdowntextcolor.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnaalshutdowntextcolor.Location = New System.Drawing.Point(310, 7) + Me.btnaalshutdowntextcolor.Name = "btnaalshutdowntextcolor" + Me.btnaalshutdowntextcolor.Size = New System.Drawing.Size(34, 23) + Me.btnaalshutdowntextcolor.TabIndex = 7 + Me.btnaalshutdowntextcolor.UseVisualStyleBackColor = True + ' + 'Label122 + ' + Me.Label122.AutoSize = True + Me.Label122.Location = New System.Drawing.Point(164, 12) + Me.Label122.Name = "Label122" + Me.Label122.Size = New System.Drawing.Size(143, 13) + Me.Label122.TabIndex = 6 + Me.Label122.Text = "Shutdown Button Text Color:" + ' + 'cmbaalusrstyle + ' + Me.cmbaalusrstyle.FormattingEnabled = True + Me.cmbaalusrstyle.Items.AddRange(New Object() {"Regular", "Bold", "Italic", "Underline"}) + Me.cmbaalusrstyle.Location = New System.Drawing.Point(295, 44) + Me.cmbaalusrstyle.Name = "cmbaalusrstyle" + Me.cmbaalusrstyle.Size = New System.Drawing.Size(60, 21) + Me.cmbaalusrstyle.TabIndex = 5 + Me.cmbaalusrstyle.Text = "Regular" + ' + 'nudusrsize + ' + Me.nudusrsize.Location = New System.Drawing.Point(243, 44) + Me.nudusrsize.Name = "nudusrsize" + Me.nudusrsize.Size = New System.Drawing.Size(39, 20) + Me.nudusrsize.TabIndex = 4 + ' + 'cmbaalusrfont + ' + Me.cmbaalusrfont.FormattingEnabled = True + Me.cmbaalusrfont.Location = New System.Drawing.Point(119, 44) + Me.cmbaalusrfont.Name = "cmbaalusrfont" + Me.cmbaalusrfont.Size = New System.Drawing.Size(121, 21) + Me.cmbaalusrfont.TabIndex = 3 + Me.cmbaalusrfont.Text = "[Insert Font Here]" + ' + 'Label121 + ' + Me.Label121.AutoSize = True + Me.Label121.Location = New System.Drawing.Point(14, 47) + Me.Label121.Name = "Label121" + Me.Label121.Size = New System.Drawing.Size(106, 13) + Me.Label121.TabIndex = 2 + Me.Label121.Text = "Username Text Font:" + ' + 'btnaalusrtextcolor + ' + Me.btnaalusrtextcolor.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnaalusrtextcolor.Location = New System.Drawing.Point(124, 7) + Me.btnaalusrtextcolor.Name = "btnaalusrtextcolor" + Me.btnaalusrtextcolor.Size = New System.Drawing.Size(34, 23) + Me.btnaalusrtextcolor.TabIndex = 1 + Me.btnaalusrtextcolor.UseVisualStyleBackColor = True + ' + 'Label120 + ' + Me.Label120.AutoSize = True + Me.Label120.Location = New System.Drawing.Point(11, 12) + Me.Label120.Name = "Label120" + Me.Label120.Size = New System.Drawing.Size(109, 13) + Me.Label120.TabIndex = 0 + Me.Label120.Text = "Username Text Color:" + ' + 'Label119 + ' + Me.Label119.Location = New System.Drawing.Point(9, 46) + Me.Label119.Name = "Label119" + Me.Label119.Size = New System.Drawing.Size(437, 58) + Me.Label119.TabIndex = 6 + Me.Label119.Text = resources.GetString("Label119.Text") + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(351, 264) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(75, 23) + Me.Button7.TabIndex = 5 + Me.Button7.Text = "Misc." + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(273, 264) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(75, 23) + Me.Button6.TabIndex = 4 + Me.Button6.Text = "Behavior" + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(194, 264) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(75, 23) + Me.Button5.TabIndex = 3 + Me.Button5.Text = "Icons" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(113, 264) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(75, 23) + Me.Button4.TabIndex = 2 + Me.Button4.Text = "Positions" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(4, 264) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(105, 23) + Me.Button3.TabIndex = 1 + Me.Button3.Text = "Colors and Fonts" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label118 + ' + Me.Label118.AutoSize = True + Me.Label118.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.Label118.Location = New System.Drawing.Point(5, 13) + Me.Label118.Name = "Label118" + Me.Label118.Size = New System.Drawing.Size(292, 24) + Me.Label118.TabIndex = 0 + Me.Label118.Text = "Advanced App Launcher Settings" + ' 'pnldeskdoubleplus ' Me.pnldeskdoubleplus.Controls.Add(Me.Panel2) @@ -3487,26 +3740,6 @@ Partial Class Shifter Me.pnldeskdoubleplus.Size = New System.Drawing.Size(457, 292) Me.pnldeskdoubleplus.TabIndex = 19 ' - 'tmrfix - ' - Me.tmrfix.Interval = 5000 - ' - 'tmrdelay - ' - ' - 'pnldppoptions - ' - Me.pnldppoptions.Controls.Add(Me.pnldppicons) - Me.pnldppoptions.Controls.Add(Me.pnldppfunctions) - Me.pnldppoptions.Controls.Add(Me.btndppfunctions) - Me.pnldppoptions.Controls.Add(Me.btndppappearance) - Me.pnldppoptions.Controls.Add(Me.btndppfiles) - Me.pnldppoptions.Controls.Add(Me.btndppicons) - Me.pnldppoptions.Location = New System.Drawing.Point(5, 176) - Me.pnldppoptions.Name = "pnldppoptions" - Me.pnldppoptions.Size = New System.Drawing.Size(446, 110) - Me.pnldppoptions.TabIndex = 0 - ' 'Panel2 ' Me.Panel2.Controls.Add(Me.desktopiconspreview) @@ -3524,45 +3757,45 @@ Partial Class Shifter Me.desktopiconspreview.TabIndex = 0 Me.desktopiconspreview.UseCompatibleStateImageBehavior = False ' - 'btndppicons + 'pnldppoptions ' - Me.btndppicons.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btndppicons.Location = New System.Drawing.Point(7, 35) - Me.btndppicons.Name = "btndppicons" - Me.btndppicons.Size = New System.Drawing.Size(75, 23) - Me.btndppicons.TabIndex = 0 - Me.btndppicons.Text = "Icons" - Me.btndppicons.UseVisualStyleBackColor = True + Me.pnldppoptions.Controls.Add(Me.pnldppicons) + Me.pnldppoptions.Controls.Add(Me.pnldppfunctions) + Me.pnldppoptions.Controls.Add(Me.btndppfunctions) + Me.pnldppoptions.Controls.Add(Me.btndppappearance) + Me.pnldppoptions.Controls.Add(Me.btndppfiles) + Me.pnldppoptions.Controls.Add(Me.btndppicons) + Me.pnldppoptions.Location = New System.Drawing.Point(5, 176) + Me.pnldppoptions.Name = "pnldppoptions" + Me.pnldppoptions.Size = New System.Drawing.Size(446, 110) + Me.pnldppoptions.TabIndex = 0 ' - 'btndppfiles + 'pnldppicons ' - Me.btndppfiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btndppfiles.Location = New System.Drawing.Point(7, 58) - Me.btndppfiles.Name = "btndppfiles" - Me.btndppfiles.Size = New System.Drawing.Size(75, 23) - Me.btndppfiles.TabIndex = 1 - Me.btndppfiles.Text = "Files" - Me.btndppfiles.UseVisualStyleBackColor = True + Me.pnldppicons.Controls.Add(Me.Button1) + Me.pnldppicons.Controls.Add(Me.Label117) + Me.pnldppicons.Location = New System.Drawing.Point(89, 6) + Me.pnldppicons.Name = "pnldppicons" + Me.pnldppicons.Size = New System.Drawing.Size(352, 100) + Me.pnldppicons.TabIndex = 5 ' - 'btndppappearance + 'Button1 ' - Me.btndppappearance.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btndppappearance.Location = New System.Drawing.Point(7, 81) - Me.btndppappearance.Name = "btndppappearance" - Me.btndppappearance.Size = New System.Drawing.Size(75, 23) - Me.btndppappearance.TabIndex = 2 - Me.btndppappearance.Text = "Appearance" - Me.btndppappearance.UseVisualStyleBackColor = True + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(88, 6) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(29, 23) + Me.Button1.TabIndex = 1 + Me.Button1.UseVisualStyleBackColor = True ' - 'btndppfunctions + 'Label117 ' - Me.btndppfunctions.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btndppfunctions.Location = New System.Drawing.Point(7, 12) - Me.btndppfunctions.Name = "btndppfunctions" - Me.btndppfunctions.Size = New System.Drawing.Size(75, 23) - Me.btndppfunctions.TabIndex = 3 - Me.btndppfunctions.Text = "Functions" - Me.btndppfunctions.UseVisualStyleBackColor = True + Me.Label117.AutoSize = True + Me.Label117.Location = New System.Drawing.Point(7, 12) + Me.Label117.Name = "Label117" + Me.Label117.Size = New System.Drawing.Size(82, 13) + Me.Label117.TabIndex = 0 + Me.Label117.Text = "Icon Text Color:" ' 'pnldppfunctions ' @@ -3582,32 +3815,52 @@ Partial Class Shifter Me.CheckBox1.Text = "Icons are Draggable" Me.CheckBox1.UseVisualStyleBackColor = True ' - 'pnldppicons + 'btndppfunctions ' - Me.pnldppicons.Controls.Add(Me.Button1) - Me.pnldppicons.Controls.Add(Me.Label117) - Me.pnldppicons.Location = New System.Drawing.Point(89, 6) - Me.pnldppicons.Name = "pnldppicons" - Me.pnldppicons.Size = New System.Drawing.Size(352, 100) - Me.pnldppicons.TabIndex = 5 + Me.btndppfunctions.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndppfunctions.Location = New System.Drawing.Point(7, 12) + Me.btndppfunctions.Name = "btndppfunctions" + Me.btndppfunctions.Size = New System.Drawing.Size(75, 23) + Me.btndppfunctions.TabIndex = 3 + Me.btndppfunctions.Text = "Functions" + Me.btndppfunctions.UseVisualStyleBackColor = True ' - 'Label117 + 'btndppappearance ' - Me.Label117.AutoSize = True - Me.Label117.Location = New System.Drawing.Point(7, 12) - Me.Label117.Name = "Label117" - Me.Label117.Size = New System.Drawing.Size(82, 13) - Me.Label117.TabIndex = 0 - Me.Label117.Text = "Icon Text Color:" + Me.btndppappearance.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndppappearance.Location = New System.Drawing.Point(7, 81) + Me.btndppappearance.Name = "btndppappearance" + Me.btndppappearance.Size = New System.Drawing.Size(75, 23) + Me.btndppappearance.TabIndex = 2 + Me.btndppappearance.Text = "Appearance" + Me.btndppappearance.UseVisualStyleBackColor = True ' - 'Button1 + 'btndppfiles + ' + Me.btndppfiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndppfiles.Location = New System.Drawing.Point(7, 58) + Me.btndppfiles.Name = "btndppfiles" + Me.btndppfiles.Size = New System.Drawing.Size(75, 23) + Me.btndppfiles.TabIndex = 1 + Me.btndppfiles.Text = "Files" + Me.btndppfiles.UseVisualStyleBackColor = True + ' + 'btndppicons + ' + Me.btndppicons.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btndppicons.Location = New System.Drawing.Point(7, 35) + Me.btndppicons.Name = "btndppicons" + Me.btndppicons.Size = New System.Drawing.Size(75, 23) + Me.btndppicons.TabIndex = 0 + Me.btndppicons.Text = "Icons" + Me.btndppicons.UseVisualStyleBackColor = True + ' + 'tmrfix + ' + Me.tmrfix.Interval = 5000 + ' + 'tmrdelay ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(88, 6) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(29, 23) - Me.Button1.TabIndex = 1 - Me.Button1.UseVisualStyleBackColor = True ' 'Shifter ' @@ -3685,13 +3938,18 @@ Partial Class Shifter Me.pnlreset.ResumeLayout(False) Me.pgcontents.ResumeLayout(False) Me.pgcontents.PerformLayout() + Me.pnlshiftadvapplauncher.ResumeLayout(False) + Me.pnlshiftadvapplauncher.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.nudusrsize, System.ComponentModel.ISupportInitialize).EndInit() Me.pnldeskdoubleplus.ResumeLayout(False) - Me.pnldppoptions.ResumeLayout(False) Me.Panel2.ResumeLayout(False) - Me.pnldppfunctions.ResumeLayout(False) - Me.pnldppfunctions.PerformLayout() + Me.pnldppoptions.ResumeLayout(False) Me.pnldppicons.ResumeLayout(False) Me.pnldppicons.PerformLayout() + Me.pnldppfunctions.ResumeLayout(False) + Me.pnldppfunctions.PerformLayout() Me.ResumeLayout(False) End Sub @@ -4001,4 +4259,26 @@ Partial Class Shifter Friend WithEvents pnldppicons As System.Windows.Forms.Panel Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label117 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents pnlshiftadvapplauncher As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents btnaalpwrpnlbg As System.Windows.Forms.Button + Friend WithEvents Label124 As System.Windows.Forms.Label + Friend WithEvents btnaalusrpnlbg As System.Windows.Forms.Button + Friend WithEvents Label123 As System.Windows.Forms.Label + Friend WithEvents btnaalshutdowntextcolor As System.Windows.Forms.Button + Friend WithEvents Label122 As System.Windows.Forms.Label + Friend WithEvents cmbaalusrstyle As System.Windows.Forms.ComboBox + Friend WithEvents nudusrsize As System.Windows.Forms.NumericUpDown + Friend WithEvents cmbaalusrfont As System.Windows.Forms.ComboBox + Friend WithEvents Label121 As System.Windows.Forms.Label + Friend WithEvents btnaalusrtextcolor As System.Windows.Forms.Button + Friend WithEvents Label120 As System.Windows.Forms.Label + Friend WithEvents Label119 As System.Windows.Forms.Label + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Label118 As System.Windows.Forms.Label End Class diff --git a/ShiftOS/Shifter.resx b/ShiftOS/Shifter.resx index 1d5e95b..129a7a4 100644 --- a/ShiftOS/Shifter.resx +++ b/ShiftOS/Shifter.resx @@ -160,6 +160,9 @@ The preview window above will track your modifications live until you click "App + + Welcome to the Advanced App Launcher Settings! Here, you can customize your Advanced App Launcher to look anyway you like! Be creative! Use the buttons at the bottom to cycle through the different options, and when you're done, click "Apply Changes"! + 1115, 17 diff --git a/ShiftOS/Shifter.vb b/ShiftOS/Shifter.vb index 5f7ac35..bee2b97 100644 --- a/ShiftOS/Shifter.vb +++ b/ShiftOS/Shifter.vb @@ -124,6 +124,28 @@ Public customizationsdone As Integer Public customizationpointsearned As Integer Dim bmp As Bitmap + + 'DevX's ADV. App Launcher + + Public usernametextcolor As Color = Skins.usernametextcolor + Public shutdowntextcolor As Color = Skins.shutdownTextColor + Public usernamebgcolor As Color = Skins.userNamePanelBackgroundColor + Public powerpanelbgcolor As Color = Skins.powerPanelBackgroundColor + Public powerpanelbgimage As Image = Skins.powerPanelBackgroundImage + Public usernamebgimage As Image = Skins.userNamePanelBackground + Public usernamefont As String = Skins.usernamefont + Public usernamefontsize As Integer = Skins.usernamefontsize + Public usernamefontstyle As FontStyle = Skins.usernamefontstyle + Public ShutDownString As String = Skins.shutdownstring + Public powerpanelfont As String = Skins.shutdownTextFont + Public powerpanelfontsize As Integer = Skins.shutdownTextSize + Public powerpanelfontstyle As FontStyle = Skins.shutdownTextStyle + Public usrbglayout As ImageLayout = Skins.usrPanelBackgroundLayout + Public pwrbglayout As ImageLayout = Skins.pwrPanelBackgroundLayout + + + + #Region "Template Code" Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load justopened = True @@ -615,6 +637,34 @@ CheckBox1.Checked = Skins.enabledraggableicons refreshIcons() + 'Adv. App Launcher Setup Code + + Dim fStyleForAAL As String 'Just for simplicity, ignore. + cmbaalusrfont.Text = usernamefont + Select Case usernamefontstyle + Case FontStyle.Regular + fStyleForAAL = "Regular" + Case FontStyle.Bold + fStyleForAAL = "Bold" + Case FontStyle.Italic + fStyleForAAL = "Italic" + Case FontStyle.Underline + fStyleForAAL = "Underline" + Case Else + fStyleForAAL = "Regular" + End Select + cmbaalusrstyle.Text = fStyleForAAL + nudusrsize.Value = usernamefontsize + btnaalpwrpnlbg.BackColor = powerpanelbgcolor + If powerpanelbgimage Is Nothing Then btnaalpwrpnlbg.BackgroundImage = Nothing Else btnaalpwrpnlbg.BackgroundImage = powerpanelbgimage + btnaalpwrpnlbg.BackgroundImageLayout = pwrbglayout + btnaalusrpnlbg.BackColor = usernamebgcolor + If usernamebgimage Is Nothing Then btnaalusrpnlbg.BackgroundImage = Nothing Else btnaalusrpnlbg.BackgroundImage = usernamebgimage + btnaalusrpnlbg.BackgroundImageLayout = usrbglayout + + + + 'skins @@ -1232,6 +1282,7 @@ comboappbuttontextfont.Items.Add(myFont.Name) cbpanelbuttonfont.Items.Add(myFont.Name) launcheritemfont.Items.Add(myFont.Name) + cmbaalusrfont.Items.Add(myFont.Name) Next 'font_family End Sub @@ -1389,6 +1440,14 @@ Skins.enabledraggableicons = CheckBox1.Checked Skins.icontextcolor = icontextcolor + 'Adv App Launcher - Suggested by DevX + + Skins.usernametextcolor = usernametextcolor + Skins.usernamefont = usernamefont + Skins.usernamefontsize = usernamefontsize + Skins.usernamefontstyle = usernamefontstyle + + ' APPLY Skins.saveskinfiles(True) 'windows resize fix @@ -1897,13 +1956,17 @@ pnlwindowsoptions.Size = New Size(458, 297) pnlwindowsoptions.Show() pnlwindowsoptions.BringToFront() + End Sub + + Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click pnlreset.Location = New Point(133, 6) pnlreset.Size = New Size(458, 297) pnlreset.Show() pnlreset.BringToFront() + End Sub Private Sub pnltitlebarcolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarcolour.Click @@ -3101,4 +3164,46 @@ Button1.BackColor = icontextcolor desktopiconspreview.ForeColor = icontextcolor End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + pnlshiftadvapplauncher.BringToFront() + + End Sub + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles btnaalusrtextcolor.Click + Colour_Picker.colourtochange = "Username Text Color" + Colour_Picker.oldcolour = usernametextcolor + Colour_Picker.Show() + btnaalusrtextcolor.BackColor = usernametextcolor + End Sub + + Private Sub cmbaalusrfont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbaalusrfont.SelectedIndexChanged + usernamefont = cmbaalusrfont.SelectedItem + End Sub + + Private Sub nudusrsize_ValueChanged(sender As Object, e As EventArgs) Handles nudusrsize.ValueChanged + If Not nudusrsize.Value = 0 Then + usernamefontsize = nudusrsize.Value + Else + nudusrsize.Value = 1 + End If + + End Sub + + Private Sub cmbaalusrstyle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbaalusrstyle.SelectedIndexChanged + Select Case cmbaalusrstyle.SelectedItem + Case "Regular" + usernamefontstyle = FontStyle.Regular + Case "Bold" + usernamefontstyle = FontStyle.Bold + Case "Italic" + usernamefontstyle = FontStyle.Italic + Case "Underline" + usernamefontstyle = FontStyle.Underline + Case Else + usernamefontstyle = FontStyle.Regular + End Select + End Sub + + End Class \ No newline at end of file diff --git a/ShiftOS/skins.vb b/ShiftOS/skins.vb index 6615eff..ef2f9f1 100644 --- a/ShiftOS/skins.vb +++ b/ShiftOS/skins.vb @@ -146,6 +146,32 @@ Module Skins Public iconview1 As View = View.LargeIcon Public iconview2 As View = View.Tile + 'DevX's Advanced App Launcher (coded by The Ultimate Hacker) + + Public topBarHeight As Integer = 50 + Public bottomBarHeight As Integer = 50 + Public placesSide As String = "Left" + Public startHeight As Integer = 526 + Public startWidth As Integer = 320 + Public shutdownstring As String = "Shut Down ShiftOS" + Public userNamePosition = "Middle, Right" + Public recentIconsHorizontal As Boolean = False + Public usernametextcolor As Color = Color.White + Public usernamefont As String = "Trebuchet MS" + Public usernamefontsize As Integer = 12 + Public usernamefontstyle As FontStyle = FontStyle.Bold + Public userNamePanelBackgroundColor As Color = Color.Gray + Public userNamePanelBackground As Image + Public powerPanelBackgroundColor As Color = Color.Gray + Public powerPanelBackgroundImage As Image + Public shutdownTextColor As Color = Color.White + Public shutdownTextFont As String = "Trebuchet MS" + Public shutdownTextSize As Integer = 12 + Public shutdownTextStyle As FontStyle = FontStyle.Italic + Public usrPanelBackgroundLayout As ImageLayout = ImageLayout.Stretch + Public pwrPanelBackgroundLayout As ImageLayout = ImageLayout.Stretch + + Private Function GetImage(ByVal fileName As String) As Bitmap Dim ret As Bitmap Using img As Image = Image.FromFile(fileName) @@ -165,6 +191,12 @@ Module Skins End Sub ' LOAD SKIN FROM SAVE FOLDER Public Sub loadimages() + If File.Exists(savepath + "Shiftum42\Skins\Loaded\userbar") Then + userNamePanelBackground = GetImage(savepath + "Shiftum42\Skins\Loaded\userbar") + End If + If File.Exists(savepath + "Shiftum42\Skins\Loaded\powerbar") Then + userNamePanelBackground = GetImage(savepath + "Shiftum42\Skins\Loaded\powerbar") + End If If File.Exists(savepath + "Shiftum42\Skins\Loaded\titlebar") Then titlebar = GetImage(savepath + "Shiftum42\Skins\Loaded\titlebar") Else : titlebar = Nothing @@ -381,7 +413,28 @@ Module Skins If loaddata(111) = "" Or loaddata(111) = "End of skin data" Then loaddata(111) = icontextcolor.ToArgb Else icontextcolor = Color.FromArgb(loaddata(111)) If loaddata(112) = "" Or loaddata(112) = "End of skin data" Then loaddata(112) = showicons Else showicons = loaddata(112) If loaddata(113) = "" Or loaddata(113) = "End of skin data" Then loaddata(113) = iconview1 Else iconview1 = loaddata(113) - If loaddata(114) = "" Or loaddata(114) = "End of skin data" Then loaddata(114) = iconview2 Else iconview2 = loaddata(114) + If loaddata(114) = "" Then topBarHeight = 50 Else topBarHeight = loaddata(114) + If loaddata(115) = "" Then bottomBarHeight = 50 Else bottomBarHeight = loaddata(115) + If loaddata(116) = "" Then placesSide = "Left" Else placesSide = loaddata(116) + If loaddata(117) = "" Then startHeight = 526 Else startHeight = loaddata(117) + If loaddata(118) = "" Then startWidth = 320 Else startWidth = loaddata(118) + If loaddata(119) = "" Then shutdownstring = "Shut Down ShiftOS" Else shutdownstring = loaddata(119) + If loaddata(120) = "" Then userNamePosition = "Middle, Right" Else userNamePosition = loaddata(200) + If loaddata(121) = "" Then recentIconsHorizontal = False Else recentIconsHorizontal = loaddata(201) + If loaddata(122) = "" Then usernametextcolor = Color.White Else usernametextcolor = Color.FromArgb(loaddata(202)) + If loaddata(123) = "" Then usernamefont = "Trebuchet MS" Else usernamefont = loaddata(203) + If loaddata(124) = "" Then usernamefontsize = 12 Else usernamefontsize = loaddata(204) + If loaddata(125) = "" Then usernamefontstyle = FontStyle.Bold Else usernamefontstyle = loaddata(125) + If loaddata(126) = "" Then userNamePanelBackgroundColor = Color.Gray Else userNamePanelBackgroundColor = Color.FromArgb(loaddata(126)) + If loaddata(127) = "" Then powerPanelBackgroundColor = Color.Gray Else powerPanelBackgroundColor = Color.FromArgb(loaddata(127)) + If loaddata(128) = "" Then shutdownTextColor = Color.White Else shutdownTextColor = Color.FromArgb(loaddata(128)) + If loaddata(129) = "" Then shutdownTextFont = "Trebuchet MS" Else shutdownTextFont = loaddata(129) + If loaddata(130) = "" Then shutdownTextSize = 12 Else shutdownTextSize = loaddata(130) + If loaddata(131) = "" Then shutdownTextStyle = FontStyle.Italic Else shutdownTextStyle = loaddata(132) + If loaddata(132) = "" Then usrPanelBackgroundLayout = ImageLayout.Stretch Else usrPanelBackgroundLayout = loaddata(132) + If loaddata(133) = "" Then pwrPanelBackgroundLayout = ImageLayout.Stretch Else pwrPanelBackgroundLayout = loaddata(133) + + Else setupdefaults() End If @@ -447,6 +500,8 @@ Module Skins saveimage(panelbutton, "panelbutton") saveimage(bottomleftcorner, "bottomleftcorner") saveimage(bottomrightcorner, "bottomrightcorner") + saveimage(userNamePanelBackground, "userbar") + saveimage(powerPanelBackgroundImage, "powerbar") 'save settings to dat file Dim savedata(200) As String ' setting and colour as saved in the order they are declared, image's are saved in sepporate preset files, @@ -558,7 +613,27 @@ Module Skins savedata(111) = icontextcolor.ToArgb savedata(112) = showicons savedata(113) = iconview1 - savedata(114) = iconview2 + savedata(114) = topBarHeight + savedata(115) = bottomBarHeight + savedata(116) = placesSide + savedata(117) = startHeight + savedata(118) = startWidth + savedata(119) = shutdownstring + savedata(120) = userNamePosition + savedata(121) = recentIconsHorizontal + savedata(122) = usernametextcolor.ToArgb + savedata(123) = usernamefont + savedata(124) = usernamefontsize + savedata(125) = usernamefontstyle + savedata(126) = userNamePanelBackgroundColor.ToArgb + savedata(127) = powerPanelBackgroundColor.ToArgb + savedata(128) = shutdownTextColor.ToArgb + savedata(129) = shutdownTextFont + savedata(130) = shutdownTextSize + savedata(131) = shutdownTextStyle + savedata(132) = usrPanelBackgroundLayout + savedata(133) = pwrPanelBackgroundLayout + ' End of skin data text was at line 110, if adding future items, check for "End of skin data" on line 110 savedata(200) = "End of skin data" File.WriteAllLines(savepath + "Shiftum42\Skins\Loaded\data.dat", savedata)