shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-22 16:12:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Advanced App Launcher added

Browse source 
A very beta Advanced App Launcher has been added. It's in a functional
state, and I'm still working on it.
This commit is contained in:
TheUltimateHacker 2015-03-15 08:29:50 -04:00
parent 55795509e5
commit c8d95621fb
12 changed files with 1438 additions and 97 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ShiftOS/ArtPad.vb
View file

@ -13,7 +13,7 @@
Dim canvaswidth As Integer = 150 Dim canvaswidth As Integer = 150
Dim canvasheight As Integer = 100 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 canvascolor As Color = Color.White
Dim previewcanvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight) Dim previewcanvasbitmap As New Drawing.Bitmap(canvaswidth, canvasheight)

2
ShiftOS/Colour Picker.vb
View file

@ -1646,6 +1646,8 @@
Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click
Select Case colourtochange Select Case colourtochange
Case "Username Text Color"
Shifter.usernametextcolor = pnlnewcolour.BackColor
Case "Desktop Icon Text Color" Case "Desktop Icon Text Color"
Shifter.icontextcolor = pnlnewcolour.BackColor Shifter.icontextcolor = pnlnewcolour.BackColor

4
ShiftOS/File Saver.vb
View file

@ -695,6 +695,7 @@ Public Class File_Saver
Case "artpad" Case "artpad"
ArtPad.savelocation = lbllocation.Text & "/" & filename ArtPad.savelocation = lbllocation.Text & "/" & filename
ArtPad.saveimage() ArtPad.saveimage()
ArtPad.canvasbitmap.Save("C:\ShiftOS\SoftwareData\AdvStart\Recent\" & txtfilename.Text & ".pic", Imaging.ImageFormat.Bmp)
ArtPad.needtosave = False ArtPad.needtosave = False
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + ArtPad.codepointsearned ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + ArtPad.codepointsearned
If ShiftOSDesktop.boughttitletext = True Then If ShiftOSDesktop.boughttitletext = True Then
@ -710,6 +711,9 @@ Public Class File_Saver
Case "orcwrite" Case "orcwrite"
OrcWrite.savepath = lbllocation.Text & "/" & filename OrcWrite.savepath = lbllocation.Text & "/" & filename
OrcWrite.savedocument() 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 End Select
Me.Close() Me.Close()
End If End If

4
ShiftOS/File Skimmer.vb
View file

@ -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 'Check if selected item is a file or folder. It it's a folder check its extension
If path Like "*.owd" Then If path Like "*.owd" Then
If ShiftOSDesktop.boughtorcwrite = True Then If ShiftOSDesktop.installedorcwrite = True Then
Dim sr As New IO.StreamReader(path) Dim sr As New IO.StreamReader(path)
OrcWrite.RichTextBox1.Rtf = sr.ReadToEnd() OrcWrite.RichTextBox1.Rtf = sr.ReadToEnd()
sr.Close() sr.Close()
OrcWrite.Show() OrcWrite.Show()
OrcWrite.TopMost = True OrcWrite.TopMost = True
Else 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 End If
ElseIf path Like "*.txt" Then ElseIf path Like "*.txt" Then
If TextPad.needtosave = False Then If TextPad.needtosave = False Then

4
ShiftOS/Icon Manager.vb
View file

@ -733,10 +733,10 @@
icontochange.BackgroundImage = GetImage(openedfilelocation) icontochange.BackgroundImage = GetImage(openedfilelocation)
If over64 = True Then If over64 = True Then
icontochange.backgroundimagelayout = BackgroundImageLayout.Stretch icontochange.backgroundimagelayout = ImageLayout.Stretch
over64 = False over64 = False
Else Else
icontochange.backgroundimagelayout = BackgroundImageLayout.Center icontochange.backgroundimagelayout = ImageLayout.Center
End If End If
End Sub End Sub

463
ShiftOS/ShiftOSDesktop.Designer.vb generated
View file

@ -194,6 +194,52 @@ Partial Class ShiftOSDesktop
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.fileActionsSeparator = New System.Windows.Forms.ToolStripSeparator() Me.fileActionsSeparator = New System.Windows.Forms.ToolStripSeparator()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 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.desktoppanel.SuspendLayout()
Me.pnlpanelbuttonholder.SuspendLayout() Me.pnlpanelbuttonholder.SuspendLayout()
Me.pnlpanelbuttonclock.SuspendLayout() Me.pnlpanelbuttonclock.SuspendLayout()
@ -272,6 +318,15 @@ Partial Class ShiftOSDesktop
Me.pnlpanelbuttonfloatybird.SuspendLayout() Me.pnlpanelbuttonfloatybird.SuspendLayout()
CType(Me.tbfloatybirdicon, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.tbfloatybirdicon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout() 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() Me.SuspendLayout()
' '
'desktoppanel '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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.ToolStripMenuItem3, Me.TileViewToolStripMenuItem, Me.fileActionsSeparator, Me.AboutToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(170, 104) Me.ContextMenuStrip1.Size = New System.Drawing.Size(170, 82)
' '
'NewToolStripMenuItem 'NewToolStripMenuItem
' '
@ -2002,12 +2057,360 @@ Partial Class ShiftOSDesktop
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.AboutToolStripMenuItem.Text = "About Desktop++" 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 'ShiftOSDesktop
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Black Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(1268, 685) Me.ClientSize = New System.Drawing.Size(1268, 685)
Me.Controls.Add(Me.pnladvapplauncher)
Me.Controls.Add(Me.desktopicons) Me.Controls.Add(Me.desktopicons)
Me.Controls.Add(Me.desktoppanel) Me.Controls.Add(Me.desktoppanel)
Me.KeyPreview = True Me.KeyPreview = True
@ -2131,6 +2534,18 @@ Partial Class ShiftOSDesktop
Me.pnlpanelbuttonfloatybird.PerformLayout() Me.pnlpanelbuttonfloatybird.PerformLayout()
CType(Me.tbfloatybirdicon, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.tbfloatybirdicon, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False) 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) Me.ResumeLayout(False)
End Sub End Sub
@ -2305,4 +2720,50 @@ Partial Class ShiftOSDesktop
Friend WithEvents NewSkin As System.Windows.Forms.ToolStripMenuItem Friend WithEvents NewSkin As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents RenameToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents RenameToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DeleteToolStripMenuItem 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 End Class

3
ShiftOS/ShiftOSDesktop.resx
View file

@ -138,6 +138,9 @@
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>50</value> <value>50</value>
</metadata> </metadata>

408
ShiftOS/ShiftOSDesktop.vb
View file

@ -234,6 +234,9 @@
Public virusscannergrade As Integer = 0 Public virusscannergrade As Integer = 0
Public boughttextpadtrm As Boolean = False Public boughttextpadtrm As Boolean = False
Public boughtshiftapplauncheritems As Boolean = False Public boughtshiftapplauncheritems As Boolean = False
Public boughtadvapplauncher As Boolean = False
'Apps bought through shiftnet 'Apps bought through shiftnet
Public installedcalculator As Boolean = False Public installedcalculator As Boolean = False
@ -1058,6 +1061,7 @@
SortOutBooleans(VirusScannerCorrupted, 612, False) SortOutBooleans(VirusScannerCorrupted, 612, False)
SortOutBooleans(WebBrowserCorrupted, 613, False) SortOutBooleans(WebBrowserCorrupted, 613, False)
If boughtdesktopicons = True Then savelines(614) = 11 Else savelines(614) = 10 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) IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", savelines)
File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey) File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey)
Try Try
@ -1578,6 +1582,11 @@
Catch Catch
boughtdesktopicons = False boughtdesktopicons = False
End Try End Try
Try
If loadlines(615) = 11 Then boughtadvapplauncher = True Else boughtadvapplauncher = False
Catch
boughtadvapplauncher = False
End Try
Viruses.startactiveviruses() Viruses.startactiveviruses()
If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin() If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin()
If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons() If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons()
@ -1592,6 +1601,10 @@
loadgame() loadgame()
Terminal.runterminalfile(ShiftOSPath + "Shiftum42\autorun.trm") Terminal.runterminalfile(ShiftOSPath + "Shiftum42\autorun.trm")
End If 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() ToolStripManager.Renderer = New MyToolStripRenderer()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized Me.WindowState = FormWindowState.Maximized
@ -1974,6 +1987,56 @@
ApplicationsToolStripMenuItem.Visible = False ApplicationsToolStripMenuItem.Visible = False
End If 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.ForeColor = Skins.launcheritemcolour
ContextMenuStrip1.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle) ContextMenuStrip1.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
For Each Item In NewToolStripMenuItem.DropDownItems For Each Item In NewToolStripMenuItem.DropDownItems
@ -1985,6 +2048,9 @@
Item.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle) Item.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
Next Next
'End Desktop++ Code
If boughtalclock = True Then If boughtalclock = True Then
ClockToolStripMenuItem.Visible = True ClockToolStripMenuItem.Visible = True
If boughtclockicon = True Then If boughtclockicon = True Then
@ -4675,6 +4741,30 @@
desktopicons.Items.Add(item) desktopicons.Items.Add(item)
Next Next
End If 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 End Sub
Private Sub ClickDesktopIcon(sender As Object, e As EventArgs) Handles desktopicons.DoubleClick Private Sub ClickDesktopIcon(sender As Object, e As EventArgs) Handles desktopicons.DoubleClick
@ -4797,4 +4887,322 @@
End If End If
refreshIcons() refreshIcons()
End Sub 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 End Class

458
ShiftOS/Shifter.Designer.vb generated
View file

@ -45,6 +45,7 @@ Partial Class Shifter
Me.btnapply = New System.Windows.Forms.Button() Me.btnapply = New System.Windows.Forms.Button()
Me.catholder = New System.Windows.Forms.Panel() Me.catholder = New System.Windows.Forms.Panel()
Me.btnreset = New System.Windows.Forms.Button() Me.btnreset = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btndeskdoubleplus = New System.Windows.Forms.Button() Me.btndeskdoubleplus = New System.Windows.Forms.Button()
Me.btnprograms = New System.Windows.Forms.Button() Me.btnprograms = New System.Windows.Forms.Button()
Me.btnicons = 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.Label109 = New System.Windows.Forms.Label()
Me.Label111 = New System.Windows.Forms.Label() Me.Label111 = New System.Windows.Forms.Label()
Me.pgcontents = New System.Windows.Forms.Panel() 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.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.Panel2 = New System.Windows.Forms.Panel()
Me.desktopiconspreview = New System.Windows.Forms.ListView() Me.desktopiconspreview = New System.Windows.Forms.ListView()
Me.btndppicons = New System.Windows.Forms.Button() Me.pnldppoptions = New System.Windows.Forms.Panel()
Me.btndppfiles = New System.Windows.Forms.Button() Me.pnldppicons = New System.Windows.Forms.Panel()
Me.btndppappearance = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.btndppfunctions = New System.Windows.Forms.Button() Me.Label117 = New System.Windows.Forms.Label()
Me.pnldppfunctions = New System.Windows.Forms.Panel() Me.pnldppfunctions = New System.Windows.Forms.Panel()
Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.pnldppicons = New System.Windows.Forms.Panel() Me.btndppfunctions = New System.Windows.Forms.Button()
Me.Label117 = New System.Windows.Forms.Label() Me.btndppappearance = New System.Windows.Forms.Button()
Me.Button1 = 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.pgleft.SuspendLayout()
Me.pgright.SuspendLayout() Me.pgright.SuspendLayout()
Me.titlebar.SuspendLayout() Me.titlebar.SuspendLayout()
@ -370,11 +392,14 @@ Partial Class Shifter
CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.prepnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlreset.SuspendLayout() Me.pnlreset.SuspendLayout()
Me.pgcontents.SuspendLayout() Me.pgcontents.SuspendLayout()
Me.pnlshiftadvapplauncher.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.nudusrsize, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnldeskdoubleplus.SuspendLayout() Me.pnldeskdoubleplus.SuspendLayout()
Me.pnldppoptions.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.pnldppfunctions.SuspendLayout() Me.pnldppoptions.SuspendLayout()
Me.pnldppicons.SuspendLayout() Me.pnldppicons.SuspendLayout()
Me.pnldppfunctions.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pgleft 'pgleft
@ -533,6 +558,7 @@ Partial Class Shifter
' '
'btnapply '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.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.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnapply.Location = New System.Drawing.Point(7, 270) Me.btnapply.Location = New System.Drawing.Point(7, 270)
@ -545,8 +571,11 @@ Partial Class Shifter
' '
'catholder '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.BackColor = System.Drawing.Color.White
Me.catholder.Controls.Add(Me.btnreset) Me.catholder.Controls.Add(Me.btnreset)
Me.catholder.Controls.Add(Me.Button2)
Me.catholder.Controls.Add(Me.btndeskdoubleplus) Me.catholder.Controls.Add(Me.btndeskdoubleplus)
Me.catholder.Controls.Add(Me.btnprograms) Me.catholder.Controls.Add(Me.btnprograms)
Me.catholder.Controls.Add(Me.btnicons) Me.catholder.Controls.Add(Me.btnicons)
@ -563,7 +592,7 @@ Partial Class Shifter
Me.btnreset.Dock = System.Windows.Forms.DockStyle.Top Me.btnreset.Dock = System.Windows.Forms.DockStyle.Top
Me.btnreset.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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.Name = "btnreset"
Me.btnreset.Size = New System.Drawing.Size(119, 29) Me.btnreset.Size = New System.Drawing.Size(119, 29)
Me.btnreset.TabIndex = 8 Me.btnreset.TabIndex = 8
@ -571,6 +600,20 @@ Partial Class Shifter
Me.btnreset.Text = "Reset" Me.btnreset.Text = "Reset"
Me.btnreset.UseVisualStyleBackColor = False 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 'btndeskdoubleplus
' '
Me.btndeskdoubleplus.BackColor = System.Drawing.Color.White Me.btndeskdoubleplus.BackColor = System.Drawing.Color.White
@ -3464,6 +3507,7 @@ Partial Class Shifter
'pgcontents 'pgcontents
' '
Me.pgcontents.BackColor = System.Drawing.Color.White Me.pgcontents.BackColor = System.Drawing.Color.White
Me.pgcontents.Controls.Add(Me.pnlshiftadvapplauncher)
Me.pgcontents.Controls.Add(Me.pnldeskdoubleplus) Me.pgcontents.Controls.Add(Me.pnldeskdoubleplus)
Me.pgcontents.Controls.Add(Me.pnlreset) Me.pgcontents.Controls.Add(Me.pnlreset)
Me.pgcontents.Controls.Add(Me.pnlwindowsoptions) Me.pgcontents.Controls.Add(Me.pnlwindowsoptions)
@ -3478,6 +3522,215 @@ Partial Class Shifter
Me.pgcontents.Size = New System.Drawing.Size(596, 307) Me.pgcontents.Size = New System.Drawing.Size(596, 307)
Me.pgcontents.TabIndex = 0 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 'pnldeskdoubleplus
' '
Me.pnldeskdoubleplus.Controls.Add(Me.Panel2) Me.pnldeskdoubleplus.Controls.Add(Me.Panel2)
@ -3487,26 +3740,6 @@ Partial Class Shifter
Me.pnldeskdoubleplus.Size = New System.Drawing.Size(457, 292) Me.pnldeskdoubleplus.Size = New System.Drawing.Size(457, 292)
Me.pnldeskdoubleplus.TabIndex = 19 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 'Panel2
' '
Me.Panel2.Controls.Add(Me.desktopiconspreview) Me.Panel2.Controls.Add(Me.desktopiconspreview)
@ -3524,45 +3757,45 @@ Partial Class Shifter
Me.desktopiconspreview.TabIndex = 0 Me.desktopiconspreview.TabIndex = 0
Me.desktopiconspreview.UseCompatibleStateImageBehavior = False Me.desktopiconspreview.UseCompatibleStateImageBehavior = False
' '
'btndppicons 'pnldppoptions
' '
Me.btndppicons.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.pnldppoptions.Controls.Add(Me.pnldppicons)
Me.btndppicons.Location = New System.Drawing.Point(7, 35) Me.pnldppoptions.Controls.Add(Me.pnldppfunctions)
Me.btndppicons.Name = "btndppicons" Me.pnldppoptions.Controls.Add(Me.btndppfunctions)
Me.btndppicons.Size = New System.Drawing.Size(75, 23) Me.pnldppoptions.Controls.Add(Me.btndppappearance)
Me.btndppicons.TabIndex = 0 Me.pnldppoptions.Controls.Add(Me.btndppfiles)
Me.btndppicons.Text = "Icons" Me.pnldppoptions.Controls.Add(Me.btndppicons)
Me.btndppicons.UseVisualStyleBackColor = True 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.pnldppicons.Controls.Add(Me.Button1)
Me.btndppfiles.Location = New System.Drawing.Point(7, 58) Me.pnldppicons.Controls.Add(Me.Label117)
Me.btndppfiles.Name = "btndppfiles" Me.pnldppicons.Location = New System.Drawing.Point(89, 6)
Me.btndppfiles.Size = New System.Drawing.Size(75, 23) Me.pnldppicons.Name = "pnldppicons"
Me.btndppfiles.TabIndex = 1 Me.pnldppicons.Size = New System.Drawing.Size(352, 100)
Me.btndppfiles.Text = "Files" Me.pnldppicons.TabIndex = 5
Me.btndppfiles.UseVisualStyleBackColor = True
' '
'btndppappearance 'Button1
' '
Me.btndppappearance.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btndppappearance.Location = New System.Drawing.Point(7, 81) Me.Button1.Location = New System.Drawing.Point(88, 6)
Me.btndppappearance.Name = "btndppappearance" Me.Button1.Name = "Button1"
Me.btndppappearance.Size = New System.Drawing.Size(75, 23) Me.Button1.Size = New System.Drawing.Size(29, 23)
Me.btndppappearance.TabIndex = 2 Me.Button1.TabIndex = 1
Me.btndppappearance.Text = "Appearance" Me.Button1.UseVisualStyleBackColor = True
Me.btndppappearance.UseVisualStyleBackColor = True
' '
'btndppfunctions 'Label117
' '
Me.btndppfunctions.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Label117.AutoSize = True
Me.btndppfunctions.Location = New System.Drawing.Point(7, 12) Me.Label117.Location = New System.Drawing.Point(7, 12)
Me.btndppfunctions.Name = "btndppfunctions" Me.Label117.Name = "Label117"
Me.btndppfunctions.Size = New System.Drawing.Size(75, 23) Me.Label117.Size = New System.Drawing.Size(82, 13)
Me.btndppfunctions.TabIndex = 3 Me.Label117.TabIndex = 0
Me.btndppfunctions.Text = "Functions" Me.Label117.Text = "Icon Text Color:"
Me.btndppfunctions.UseVisualStyleBackColor = True
' '
'pnldppfunctions 'pnldppfunctions
' '
@ -3582,32 +3815,52 @@ Partial Class Shifter
Me.CheckBox1.Text = "Icons are Draggable" Me.CheckBox1.Text = "Icons are Draggable"
Me.CheckBox1.UseVisualStyleBackColor = True Me.CheckBox1.UseVisualStyleBackColor = True
' '
'pnldppicons 'btndppfunctions
' '
Me.pnldppicons.Controls.Add(Me.Button1) Me.btndppfunctions.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.pnldppicons.Controls.Add(Me.Label117) Me.btndppfunctions.Location = New System.Drawing.Point(7, 12)
Me.pnldppicons.Location = New System.Drawing.Point(89, 6) Me.btndppfunctions.Name = "btndppfunctions"
Me.pnldppicons.Name = "pnldppicons" Me.btndppfunctions.Size = New System.Drawing.Size(75, 23)
Me.pnldppicons.Size = New System.Drawing.Size(352, 100) Me.btndppfunctions.TabIndex = 3
Me.pnldppicons.TabIndex = 5 Me.btndppfunctions.Text = "Functions"
Me.btndppfunctions.UseVisualStyleBackColor = True
' '
'Label117 'btndppappearance
' '
Me.Label117.AutoSize = True Me.btndppappearance.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Label117.Location = New System.Drawing.Point(7, 12) Me.btndppappearance.Location = New System.Drawing.Point(7, 81)
Me.Label117.Name = "Label117" Me.btndppappearance.Name = "btndppappearance"
Me.Label117.Size = New System.Drawing.Size(82, 13) Me.btndppappearance.Size = New System.Drawing.Size(75, 23)
Me.Label117.TabIndex = 0 Me.btndppappearance.TabIndex = 2
Me.Label117.Text = "Icon Text Color:" 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 'Shifter
' '
@ -3685,13 +3938,18 @@ Partial Class Shifter
Me.pnlreset.ResumeLayout(False) Me.pnlreset.ResumeLayout(False)
Me.pgcontents.ResumeLayout(False) Me.pgcontents.ResumeLayout(False)
Me.pgcontents.PerformLayout() 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.pnldeskdoubleplus.ResumeLayout(False)
Me.pnldppoptions.ResumeLayout(False)
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.pnldppfunctions.ResumeLayout(False) Me.pnldppoptions.ResumeLayout(False)
Me.pnldppfunctions.PerformLayout()
Me.pnldppicons.ResumeLayout(False) Me.pnldppicons.ResumeLayout(False)
Me.pnldppicons.PerformLayout() Me.pnldppicons.PerformLayout()
Me.pnldppfunctions.ResumeLayout(False)
Me.pnldppfunctions.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -4001,4 +4259,26 @@ Partial Class Shifter
Friend WithEvents pnldppicons As System.Windows.Forms.Panel Friend WithEvents pnldppicons As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label117 As System.Windows.Forms.Label 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 End Class

3
ShiftOS/Shifter.resx
View file

@ -160,6 +160,9 @@ The preview window above will track your modifications live until you click "App
</value> </value>
</data> </data>
<data name="Label119.Text" xml:space="preserve">
<value>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"!</value>
</data>
<metadata name="tmrfix.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="tmrfix.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1115, 17</value> <value>1115, 17</value>
</metadata> </metadata>

105
ShiftOS/Shifter.vb
View file

@ -124,6 +124,28 @@
Public customizationsdone As Integer Public customizationsdone As Integer
Public customizationpointsearned As Integer Public customizationpointsearned As Integer
Dim bmp As Bitmap 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" #Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True justopened = True
@ -615,6 +637,34 @@
CheckBox1.Checked = Skins.enabledraggableicons CheckBox1.Checked = Skins.enabledraggableicons
refreshIcons() 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 'skins
@ -1232,6 +1282,7 @@
comboappbuttontextfont.Items.Add(myFont.Name) comboappbuttontextfont.Items.Add(myFont.Name)
cbpanelbuttonfont.Items.Add(myFont.Name) cbpanelbuttonfont.Items.Add(myFont.Name)
launcheritemfont.Items.Add(myFont.Name) launcheritemfont.Items.Add(myFont.Name)
cmbaalusrfont.Items.Add(myFont.Name)
Next 'font_family Next 'font_family
End Sub End Sub
@ -1389,6 +1440,14 @@
Skins.enabledraggableicons = CheckBox1.Checked Skins.enabledraggableicons = CheckBox1.Checked
Skins.icontextcolor = icontextcolor Skins.icontextcolor = icontextcolor
'Adv App Launcher - Suggested by DevX
Skins.usernametextcolor = usernametextcolor
Skins.usernamefont = usernamefont
Skins.usernamefontsize = usernamefontsize
Skins.usernamefontstyle = usernamefontstyle
' APPLY ' APPLY
Skins.saveskinfiles(True) Skins.saveskinfiles(True)
'windows resize fix 'windows resize fix
@ -1897,13 +1956,17 @@
pnlwindowsoptions.Size = New Size(458, 297) pnlwindowsoptions.Size = New Size(458, 297)
pnlwindowsoptions.Show() pnlwindowsoptions.Show()
pnlwindowsoptions.BringToFront() pnlwindowsoptions.BringToFront()
End Sub End Sub
Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
pnlreset.Location = New Point(133, 6) pnlreset.Location = New Point(133, 6)
pnlreset.Size = New Size(458, 297) pnlreset.Size = New Size(458, 297)
pnlreset.Show() pnlreset.Show()
pnlreset.BringToFront() pnlreset.BringToFront()
End Sub End Sub
Private Sub pnltitlebarcolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarcolour.Click Private Sub pnltitlebarcolour_Click(sender As Object, e As MouseEventArgs) Handles pnltitlebarcolour.Click
@ -3101,4 +3164,46 @@
Button1.BackColor = icontextcolor Button1.BackColor = icontextcolor
desktopiconspreview.ForeColor = icontextcolor desktopiconspreview.ForeColor = icontextcolor
End Sub 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 End Class

79
ShiftOS/skins.vb
View file

@ -146,6 +146,32 @@ Module Skins
Public iconview1 As View = View.LargeIcon Public iconview1 As View = View.LargeIcon
Public iconview2 As View = View.Tile 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 Private Function GetImage(ByVal fileName As String) As Bitmap
Dim ret As Bitmap Dim ret As Bitmap
Using img As Image = Image.FromFile(fileName) Using img As Image = Image.FromFile(fileName)
@ -165,6 +191,12 @@ Module Skins
End Sub End Sub
' LOAD SKIN FROM SAVE FOLDER ' LOAD SKIN FROM SAVE FOLDER
Public Sub loadimages() 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 If File.Exists(savepath + "Shiftum42\Skins\Loaded\titlebar") Then
titlebar = GetImage(savepath + "Shiftum42\Skins\Loaded\titlebar") titlebar = GetImage(savepath + "Shiftum42\Skins\Loaded\titlebar")
Else : titlebar = Nothing 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(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(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(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 Else
setupdefaults() setupdefaults()
End If End If
@ -447,6 +500,8 @@ Module Skins
saveimage(panelbutton, "panelbutton") saveimage(panelbutton, "panelbutton")
saveimage(bottomleftcorner, "bottomleftcorner") saveimage(bottomleftcorner, "bottomleftcorner")
saveimage(bottomrightcorner, "bottomrightcorner") saveimage(bottomrightcorner, "bottomrightcorner")
saveimage(userNamePanelBackground, "userbar")
saveimage(powerPanelBackgroundImage, "powerbar")
'save settings to dat file 'save settings to dat file
Dim savedata(200) As String Dim savedata(200) As String
' setting and colour as saved in the order they are declared, image's are saved in sepporate preset files, ' 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(111) = icontextcolor.ToArgb
savedata(112) = showicons savedata(112) = showicons
savedata(113) = iconview1 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 ' 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" savedata(200) = "End of skin data"
File.WriteAllLines(savepath + "Shiftum42\Skins\Loaded\data.dat", savedata) File.WriteAllLines(savepath + "Shiftum42\Skins\Loaded\data.dat", savedata)