diff --git a/ShiftOS/ArtPad.vb b/ShiftOS/ArtPad.vb index 1bace0d..b249c2f 100644 --- a/ShiftOS/ArtPad.vb +++ b/ShiftOS/ArtPad.vb @@ -2346,4 +2346,8 @@ Private Sub txtdrawstringtext_TextChanged(sender As Object, e As EventArgs) Handles txtdrawstringtext.TextChanged setuppreview() End Sub + + Private Sub titlebar_Paint(sender As Object, e As PaintEventArgs) Handles titlebar.Paint + + End Sub End Class diff --git a/ShiftOS/DockEngine.vb b/ShiftOS/DockEngine.vb new file mode 100644 index 0000000..5c8721e --- /dev/null +++ b/ShiftOS/DockEngine.vb @@ -0,0 +1,89 @@ +Public Class DockEngine + + Public docktop As Integer + Public topbottom As String + + Dim allLines As List(Of String) = New List(Of String) + Public Function ReadLine(lineNumber As Integer, lines As List(Of String)) As String + Return lines(lineNumber - 1) + End Function + + Public Sub readFile(ByVal file As String) + + If My.Computer.FileSystem.FileExists(file) Then + + allLines.Clear() + + Dim reader As New System.IO.StreamReader(file) + Do While Not reader.EndOfStream + allLines.Add(reader.ReadLine()) + Loop + reader.Close() + + For Each item As String In allLines + Dim tileinfo() As String + tileinfo = item.Split("#") + DockWindow.createtile(tileinfo(0), tileinfo(1)) + + Next + Else + Dim filepath As String = file + If Not System.IO.File.Exists(filepath) Then + If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath + "\SoftwareData\ShiftDock") Then + My.Computer.FileSystem.CreateDirectory(Application.StartupPath + "\SoftwareData\ShiftDock") + End If + System.IO.File.Create(filepath).Dispose() + End If + End If + + End Sub + + Public Sub readConfFile(ByVal file As String) + + If My.Computer.FileSystem.FileExists(file) Then + + allLines.Clear() + + Dim reader As New System.IO.StreamReader(file) + Do While Not reader.EndOfStream + allLines.Add(reader.ReadLine()) + Loop + reader.Close() + + + docktop = allLines(0) + topbottom = allLines(1) + + DockWindow.Top = docktop + + Else + Dim filepath As String = file + If Not System.IO.File.Exists(filepath) Then + System.IO.File.Create(filepath).Dispose() + End If + End If + + + End Sub + + Public Sub writeFile(ByVal path As String, color As String) + Dim file As System.IO.StreamWriter + file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat", True) + file.WriteLine(path + "#" + color) + file.Close() + End Sub + + Public Sub writeConfFile(ByVal top As String, updown As String) + My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat") + Dim filepath As String = Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat" + If Not System.IO.File.Exists(filepath) Then + System.IO.File.Create(filepath).Dispose() + End If + Dim file As System.IO.StreamWriter + file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat", True) + file.WriteLine(top) + file.WriteLine(updown) + file.Close() + End Sub + +End Class diff --git a/ShiftOS/DockSettingsMenu.Designer.vb b/ShiftOS/DockSettingsMenu.Designer.vb new file mode 100644 index 0000000..1b3c66a --- /dev/null +++ b/ShiftOS/DockSettingsMenu.Designer.vb @@ -0,0 +1,814 @@ + _ +Partial Class DockSettingsMenu + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pgleft = New System.Windows.Forms.Panel() + Me.pgbottomlcorner = New System.Windows.Forms.Panel() + Me.pgright = New System.Windows.Forms.Panel() + Me.pgbottomrcorner = New System.Windows.Forms.Panel() + Me.titlebar = New System.Windows.Forms.Panel() + Me.minimizebutton = New System.Windows.Forms.Panel() + Me.pnlicon = New System.Windows.Forms.PictureBox() + Me.rollupbutton = New System.Windows.Forms.Panel() + Me.closebutton = New System.Windows.Forms.Panel() + Me.lbtitletext = New System.Windows.Forms.Label() + Me.pgtoplcorner = New System.Windows.Forms.Panel() + Me.pgtoprcorner = New System.Windows.Forms.Panel() + Me.pgbottom = New System.Windows.Forms.Panel() + Me.pullbs = New System.Windows.Forms.Timer(Me.components) + Me.pullbottom = New System.Windows.Forms.Timer(Me.components) + Me.pullside = New System.Windows.Forms.Timer(Me.components) + Me.tilecolor = New System.Windows.Forms.ColorDialog() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnQuitDock = New System.Windows.Forms.Button() + Me.btnQuitSet = New System.Windows.Forms.Button() + Me.btnSetBottom = New System.Windows.Forms.Button() + Me.btnSetTop = New System.Windows.Forms.Button() + Me.btnTake = New System.Windows.Forms.Button() + Me.btnPlus = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnAdd = New System.Windows.Forms.Button() + Me.pnlPrograms = New System.Windows.Forms.Panel() + Me.lblShiftNet = New System.Windows.Forms.Label() + Me.lblIconManager = New System.Windows.Forms.Label() + Me.lblWebBrowser = New System.Windows.Forms.Label() + Me.lblVirusScanner = New System.Windows.Forms.Label() + Me.lblVideoPlayer = New System.Windows.Forms.Label() + Me.lblTextPad = New System.Windows.Forms.Label() + Me.lblTerminal = New System.Windows.Forms.Label() + Me.lblShiftorium = New System.Windows.Forms.Label() + Me.lblShifter = New System.Windows.Forms.Label() + Me.lblPong = New System.Windows.Forms.Label() + Me.lblOrcWrite = New System.Windows.Forms.Label() + Me.lblNameChanger = New System.Windows.Forms.Label() + Me.lblLabyrinth = New System.Windows.Forms.Label() + Me.lblKnowledgeInput = New System.Windows.Forms.Label() + Me.lblInstaller = New System.Windows.Forms.Label() + Me.lblSnakey = New System.Windows.Forms.Label() + Me.lblFloodGateManager = New System.Windows.Forms.Label() + Me.lblFileSkimmer = New System.Windows.Forms.Label() + Me.lblDManager = New System.Windows.Forms.Label() + Me.lblDownloader = New System.Windows.Forms.Label() + Me.lblDodge = New System.Windows.Forms.Label() + Me.lblClock = New System.Windows.Forms.Label() + Me.lblCatlyst = New System.Windows.Forms.Label() + Me.lblCalc = New System.Windows.Forms.Label() + Me.lblBitNoteWallet = New System.Windows.Forms.Label() + Me.lblBitNoteDigger = New System.Windows.Forms.Label() + Me.lblAudioPlayer = New System.Windows.Forms.Label() + Me.lblArtpad = New System.Windows.Forms.Label() + Me.lblToTile = New System.Windows.Forms.Label() + Me.Udate = New System.Windows.Forms.Timer(Me.components) + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.pgleft.SuspendLayout() + Me.pgright.SuspendLayout() + Me.titlebar.SuspendLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlPrograms.SuspendLayout() + Me.SuspendLayout() + ' + 'pgleft + ' + Me.pgleft.BackColor = System.Drawing.Color.Gray + Me.pgleft.Controls.Add(Me.pgbottomlcorner) + Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left + Me.pgleft.Location = New System.Drawing.Point(0, 30) + Me.pgleft.Name = "pgleft" + Me.pgleft.Size = New System.Drawing.Size(2, 679) + Me.pgleft.TabIndex = 16 + ' + 'pgbottomlcorner + ' + Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 677) + Me.pgbottomlcorner.Name = "pgbottomlcorner" + Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomlcorner.TabIndex = 14 + ' + 'pgright + ' + Me.pgright.BackColor = System.Drawing.Color.Gray + Me.pgright.Controls.Add(Me.pgbottomrcorner) + Me.pgright.Dock = System.Windows.Forms.DockStyle.Right + Me.pgright.Location = New System.Drawing.Point(265, 30) + Me.pgright.Name = "pgright" + Me.pgright.Size = New System.Drawing.Size(2, 679) + Me.pgright.TabIndex = 17 + ' + 'pgbottomrcorner + ' + Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red + Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 677) + Me.pgbottomrcorner.Name = "pgbottomrcorner" + Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2) + Me.pgbottomrcorner.TabIndex = 15 + ' + 'titlebar + ' + Me.titlebar.BackColor = System.Drawing.Color.Gray + Me.titlebar.Controls.Add(Me.minimizebutton) + Me.titlebar.Controls.Add(Me.pnlicon) + Me.titlebar.Controls.Add(Me.rollupbutton) + Me.titlebar.Controls.Add(Me.closebutton) + Me.titlebar.Controls.Add(Me.lbtitletext) + Me.titlebar.Controls.Add(Me.pgtoplcorner) + Me.titlebar.Controls.Add(Me.pgtoprcorner) + Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top + Me.titlebar.ForeColor = System.Drawing.Color.White + Me.titlebar.Location = New System.Drawing.Point(0, 0) + Me.titlebar.Name = "titlebar" + Me.titlebar.Size = New System.Drawing.Size(267, 30) + Me.titlebar.TabIndex = 14 + ' + 'minimizebutton + ' + Me.minimizebutton.BackColor = System.Drawing.Color.Black + Me.minimizebutton.Location = New System.Drawing.Point(170, 5) + Me.minimizebutton.Name = "minimizebutton" + Me.minimizebutton.Size = New System.Drawing.Size(22, 22) + Me.minimizebutton.TabIndex = 24 + ' + 'pnlicon + ' + Me.pnlicon.BackColor = System.Drawing.Color.Transparent + Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad + Me.pnlicon.Location = New System.Drawing.Point(8, 8) + Me.pnlicon.Name = "pnlicon" + Me.pnlicon.Size = New System.Drawing.Size(16, 16) + Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pnlicon.TabIndex = 24 + Me.pnlicon.TabStop = False + Me.pnlicon.Visible = False + ' + 'rollupbutton + ' + Me.rollupbutton.BackColor = System.Drawing.Color.Black + Me.rollupbutton.Location = New System.Drawing.Point(198, 3) + Me.rollupbutton.Name = "rollupbutton" + Me.rollupbutton.Size = New System.Drawing.Size(22, 22) + Me.rollupbutton.TabIndex = 22 + ' + 'closebutton + ' + Me.closebutton.BackColor = System.Drawing.Color.Black + Me.closebutton.Location = New System.Drawing.Point(226, 3) + Me.closebutton.Name = "closebutton" + Me.closebutton.Size = New System.Drawing.Size(22, 22) + Me.closebutton.TabIndex = 20 + ' + 'lbtitletext + ' + Me.lbtitletext.AutoSize = True + Me.lbtitletext.BackColor = System.Drawing.Color.Transparent + Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbtitletext.Location = New System.Drawing.Point(26, 7) + Me.lbtitletext.Name = "lbtitletext" + Me.lbtitletext.Size = New System.Drawing.Size(83, 18) + Me.lbtitletext.TabIndex = 19 + Me.lbtitletext.Text = "Settings" + ' + 'pgtoplcorner + ' + Me.pgtoplcorner.BackColor = System.Drawing.Color.Red + Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left + Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0) + Me.pgtoplcorner.Name = "pgtoplcorner" + Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoplcorner.TabIndex = 17 + ' + 'pgtoprcorner + ' + Me.pgtoprcorner.BackColor = System.Drawing.Color.Red + Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right + Me.pgtoprcorner.Location = New System.Drawing.Point(265, 0) + Me.pgtoprcorner.Name = "pgtoprcorner" + Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30) + Me.pgtoprcorner.TabIndex = 16 + ' + 'pgbottom + ' + Me.pgbottom.BackColor = System.Drawing.Color.Gray + Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pgbottom.Location = New System.Drawing.Point(2, 707) + Me.pgbottom.Name = "pgbottom" + Me.pgbottom.Size = New System.Drawing.Size(263, 2) + Me.pgbottom.TabIndex = 18 + ' + 'pullbs + ' + Me.pullbs.Interval = 1 + ' + 'pullbottom + ' + Me.pullbottom.Interval = 1 + ' + 'pullside + ' + Me.pullside.Interval = 1 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(27, 101) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(118, 13) + Me.Label3.TabIndex = 50 + Me.Label3.Text = "Choose Program CLICK" + ' + 'btnQuitDock + ' + Me.btnQuitDock.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnQuitDock.Location = New System.Drawing.Point(16, 619) + Me.btnQuitDock.Name = "btnQuitDock" + Me.btnQuitDock.Size = New System.Drawing.Size(235, 75) + Me.btnQuitDock.TabIndex = 49 + Me.btnQuitDock.Text = "Quit ShiftDock" + Me.btnQuitDock.UseVisualStyleBackColor = True + ' + 'btnQuitSet + ' + Me.btnQuitSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnQuitSet.Location = New System.Drawing.Point(16, 538) + Me.btnQuitSet.Name = "btnQuitSet" + Me.btnQuitSet.Size = New System.Drawing.Size(235, 75) + Me.btnQuitSet.TabIndex = 48 + Me.btnQuitSet.Text = "Quit Settings" + Me.btnQuitSet.UseVisualStyleBackColor = True + ' + 'btnSetBottom + ' + Me.btnSetBottom.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSetBottom.Location = New System.Drawing.Point(16, 444) + Me.btnSetBottom.Name = "btnSetBottom" + Me.btnSetBottom.Size = New System.Drawing.Size(235, 75) + Me.btnSetBottom.TabIndex = 47 + Me.btnSetBottom.Text = "Set Dock To Bottom" + Me.btnSetBottom.UseVisualStyleBackColor = True + ' + 'btnSetTop + ' + Me.btnSetTop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSetTop.Location = New System.Drawing.Point(17, 282) + Me.btnSetTop.Name = "btnSetTop" + Me.btnSetTop.Size = New System.Drawing.Size(235, 75) + Me.btnSetTop.TabIndex = 46 + Me.btnSetTop.Text = "Set Dock To Top" + Me.btnSetTop.UseVisualStyleBackColor = True + ' + 'btnTake + ' + Me.btnTake.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTake.Location = New System.Drawing.Point(16, 363) + Me.btnTake.Name = "btnTake" + Me.btnTake.Size = New System.Drawing.Size(235, 75) + Me.btnTake.TabIndex = 45 + Me.btnTake.Text = "Top -5" + Me.btnTake.UseVisualStyleBackColor = True + ' + 'btnPlus + ' + Me.btnPlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPlus.Location = New System.Drawing.Point(17, 201) + Me.btnPlus.Name = "btnPlus" + Me.btnPlus.Size = New System.Drawing.Size(235, 75) + Me.btnPlus.TabIndex = 44 + Me.btnPlus.Text = "Top + 5" + Me.btnPlus.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(13, 177) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(244, 18) + Me.Label2.TabIndex = 43 + Me.Label2.Text = "Dock Location (Does not save)" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(15, 60) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(44, 18) + Me.Label1.TabIndex = 42 + Me.Label1.Text = "Tiles" + ' + 'btnAdd + ' + Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAdd.Location = New System.Drawing.Point(17, 123) + Me.btnAdd.Name = "btnAdd" + Me.btnAdd.Size = New System.Drawing.Size(234, 51) + Me.btnAdd.TabIndex = 41 + Me.btnAdd.Text = "Add a tile" + Me.btnAdd.UseVisualStyleBackColor = True + ' + 'pnlPrograms + ' + Me.pnlPrograms.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.pnlPrograms.Controls.Add(Me.lblShiftNet) + Me.pnlPrograms.Controls.Add(Me.lblIconManager) + Me.pnlPrograms.Controls.Add(Me.lblWebBrowser) + Me.pnlPrograms.Controls.Add(Me.lblVirusScanner) + Me.pnlPrograms.Controls.Add(Me.lblVideoPlayer) + Me.pnlPrograms.Controls.Add(Me.lblTextPad) + Me.pnlPrograms.Controls.Add(Me.lblTerminal) + Me.pnlPrograms.Controls.Add(Me.lblShiftorium) + Me.pnlPrograms.Controls.Add(Me.lblShifter) + Me.pnlPrograms.Controls.Add(Me.lblPong) + Me.pnlPrograms.Controls.Add(Me.lblOrcWrite) + Me.pnlPrograms.Controls.Add(Me.lblNameChanger) + Me.pnlPrograms.Controls.Add(Me.lblLabyrinth) + Me.pnlPrograms.Controls.Add(Me.lblKnowledgeInput) + Me.pnlPrograms.Controls.Add(Me.lblInstaller) + Me.pnlPrograms.Controls.Add(Me.lblSnakey) + Me.pnlPrograms.Controls.Add(Me.lblFloodGateManager) + Me.pnlPrograms.Controls.Add(Me.lblFileSkimmer) + Me.pnlPrograms.Controls.Add(Me.lblDManager) + Me.pnlPrograms.Controls.Add(Me.lblDownloader) + Me.pnlPrograms.Controls.Add(Me.lblDodge) + Me.pnlPrograms.Controls.Add(Me.lblClock) + Me.pnlPrograms.Controls.Add(Me.lblCatlyst) + Me.pnlPrograms.Controls.Add(Me.lblCalc) + Me.pnlPrograms.Controls.Add(Me.lblBitNoteWallet) + Me.pnlPrograms.Controls.Add(Me.lblBitNoteDigger) + Me.pnlPrograms.Controls.Add(Me.lblAudioPlayer) + Me.pnlPrograms.Controls.Add(Me.lblArtpad) + Me.pnlPrograms.Location = New System.Drawing.Point(30, 117) + Me.pnlPrograms.Name = "pnlPrograms" + Me.pnlPrograms.Size = New System.Drawing.Size(172, 521) + Me.pnlPrograms.TabIndex = 51 + Me.pnlPrograms.Visible = False + ' + 'lblShiftNet + ' + Me.lblShiftNet.AutoSize = True + Me.lblShiftNet.BackColor = System.Drawing.Color.Transparent + Me.lblShiftNet.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblShiftNet.Location = New System.Drawing.Point(6, 366) + Me.lblShiftNet.Name = "lblShiftNet" + Me.lblShiftNet.Size = New System.Drawing.Size(68, 18) + Me.lblShiftNet.TabIndex = 80 + Me.lblShiftNet.Text = "ShiftNet" + ' + 'lblIconManager + ' + Me.lblIconManager.AutoSize = True + Me.lblIconManager.BackColor = System.Drawing.Color.Transparent + Me.lblIconManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblIconManager.Location = New System.Drawing.Point(6, 221) + Me.lblIconManager.Name = "lblIconManager" + Me.lblIconManager.Size = New System.Drawing.Size(110, 18) + Me.lblIconManager.TabIndex = 79 + Me.lblIconManager.Text = "Icon Manager" + ' + 'lblWebBrowser + ' + Me.lblWebBrowser.AutoSize = True + Me.lblWebBrowser.BackColor = System.Drawing.Color.Transparent + Me.lblWebBrowser.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWebBrowser.Location = New System.Drawing.Point(6, 492) + Me.lblWebBrowser.Name = "lblWebBrowser" + Me.lblWebBrowser.Size = New System.Drawing.Size(105, 18) + Me.lblWebBrowser.TabIndex = 78 + Me.lblWebBrowser.Text = "WebBrowser" + ' + 'lblVirusScanner + ' + Me.lblVirusScanner.AutoSize = True + Me.lblVirusScanner.BackColor = System.Drawing.Color.Transparent + Me.lblVirusScanner.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVirusScanner.Location = New System.Drawing.Point(6, 474) + Me.lblVirusScanner.Name = "lblVirusScanner" + Me.lblVirusScanner.Size = New System.Drawing.Size(108, 18) + Me.lblVirusScanner.TabIndex = 77 + Me.lblVirusScanner.Text = "VirusScanner" + ' + 'lblVideoPlayer + ' + Me.lblVideoPlayer.AutoSize = True + Me.lblVideoPlayer.BackColor = System.Drawing.Color.Transparent + Me.lblVideoPlayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVideoPlayer.Location = New System.Drawing.Point(6, 456) + Me.lblVideoPlayer.Name = "lblVideoPlayer" + Me.lblVideoPlayer.Size = New System.Drawing.Size(102, 18) + Me.lblVideoPlayer.TabIndex = 76 + Me.lblVideoPlayer.Text = "Video Player" + ' + 'lblTextPad + ' + Me.lblTextPad.AutoSize = True + Me.lblTextPad.BackColor = System.Drawing.Color.Transparent + Me.lblTextPad.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTextPad.Location = New System.Drawing.Point(6, 438) + Me.lblTextPad.Name = "lblTextPad" + Me.lblTextPad.Size = New System.Drawing.Size(69, 18) + Me.lblTextPad.TabIndex = 75 + Me.lblTextPad.Text = "TextPad" + ' + 'lblTerminal + ' + Me.lblTerminal.AutoSize = True + Me.lblTerminal.BackColor = System.Drawing.Color.Transparent + Me.lblTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTerminal.Location = New System.Drawing.Point(6, 420) + Me.lblTerminal.Name = "lblTerminal" + Me.lblTerminal.Size = New System.Drawing.Size(73, 18) + Me.lblTerminal.TabIndex = 74 + Me.lblTerminal.Text = "Terminal" + ' + 'lblShiftorium + ' + Me.lblShiftorium.AutoSize = True + Me.lblShiftorium.BackColor = System.Drawing.Color.Transparent + Me.lblShiftorium.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblShiftorium.Location = New System.Drawing.Point(6, 384) + Me.lblShiftorium.Name = "lblShiftorium" + Me.lblShiftorium.Size = New System.Drawing.Size(85, 18) + Me.lblShiftorium.TabIndex = 72 + Me.lblShiftorium.Text = "Shiftorium" + ' + 'lblShifter + ' + Me.lblShifter.AutoSize = True + Me.lblShifter.BackColor = System.Drawing.Color.Transparent + Me.lblShifter.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblShifter.Location = New System.Drawing.Point(5, 348) + Me.lblShifter.Name = "lblShifter" + Me.lblShifter.Size = New System.Drawing.Size(57, 18) + Me.lblShifter.TabIndex = 71 + Me.lblShifter.Text = "Shifter" + ' + 'lblPong + ' + Me.lblPong.AutoSize = True + Me.lblPong.BackColor = System.Drawing.Color.Transparent + Me.lblPong.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblPong.Location = New System.Drawing.Point(6, 330) + Me.lblPong.Name = "lblPong" + Me.lblPong.Size = New System.Drawing.Size(47, 18) + Me.lblPong.TabIndex = 70 + Me.lblPong.Text = "Pong" + ' + 'lblOrcWrite + ' + Me.lblOrcWrite.AutoSize = True + Me.lblOrcWrite.BackColor = System.Drawing.Color.Transparent + Me.lblOrcWrite.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblOrcWrite.Location = New System.Drawing.Point(6, 312) + Me.lblOrcWrite.Name = "lblOrcWrite" + Me.lblOrcWrite.Size = New System.Drawing.Size(76, 18) + Me.lblOrcWrite.TabIndex = 69 + Me.lblOrcWrite.Text = "OrcWrite" + ' + 'lblNameChanger + ' + Me.lblNameChanger.AutoSize = True + Me.lblNameChanger.BackColor = System.Drawing.Color.Transparent + Me.lblNameChanger.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblNameChanger.Location = New System.Drawing.Point(5, 294) + Me.lblNameChanger.Name = "lblNameChanger" + Me.lblNameChanger.Size = New System.Drawing.Size(120, 18) + Me.lblNameChanger.TabIndex = 68 + Me.lblNameChanger.Text = "Name Changer" + ' + 'lblLabyrinth + ' + Me.lblLabyrinth.AutoSize = True + Me.lblLabyrinth.BackColor = System.Drawing.Color.Transparent + Me.lblLabyrinth.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLabyrinth.Location = New System.Drawing.Point(5, 276) + Me.lblLabyrinth.Name = "lblLabyrinth" + Me.lblLabyrinth.Size = New System.Drawing.Size(76, 18) + Me.lblLabyrinth.TabIndex = 67 + Me.lblLabyrinth.Text = "Labyrinth" + ' + 'lblKnowledgeInput + ' + Me.lblKnowledgeInput.AutoSize = True + Me.lblKnowledgeInput.BackColor = System.Drawing.Color.Transparent + Me.lblKnowledgeInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKnowledgeInput.Location = New System.Drawing.Point(5, 258) + Me.lblKnowledgeInput.Name = "lblKnowledgeInput" + Me.lblKnowledgeInput.Size = New System.Drawing.Size(131, 18) + Me.lblKnowledgeInput.TabIndex = 66 + Me.lblKnowledgeInput.Text = "Knowledge Input" + ' + 'lblInstaller + ' + Me.lblInstaller.AutoSize = True + Me.lblInstaller.BackColor = System.Drawing.Color.Transparent + Me.lblInstaller.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInstaller.Location = New System.Drawing.Point(5, 240) + Me.lblInstaller.Name = "lblInstaller" + Me.lblInstaller.Size = New System.Drawing.Size(67, 18) + Me.lblInstaller.TabIndex = 65 + Me.lblInstaller.Text = "Installer" + ' + 'lblSnakey + ' + Me.lblSnakey.AutoSize = True + Me.lblSnakey.BackColor = System.Drawing.Color.Transparent + Me.lblSnakey.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSnakey.Location = New System.Drawing.Point(6, 402) + Me.lblSnakey.Name = "lblSnakey" + Me.lblSnakey.Size = New System.Drawing.Size(63, 18) + Me.lblSnakey.TabIndex = 64 + Me.lblSnakey.Text = "Snakey" + ' + 'lblFloodGateManager + ' + Me.lblFloodGateManager.AutoSize = True + Me.lblFloodGateManager.BackColor = System.Drawing.Color.Transparent + Me.lblFloodGateManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFloodGateManager.Location = New System.Drawing.Point(5, 203) + Me.lblFloodGateManager.Name = "lblFloodGateManager" + Me.lblFloodGateManager.Size = New System.Drawing.Size(157, 18) + Me.lblFloodGateManager.TabIndex = 63 + Me.lblFloodGateManager.Text = "FloodGate Manager" + ' + 'lblFileSkimmer + ' + Me.lblFileSkimmer.AutoSize = True + Me.lblFileSkimmer.BackColor = System.Drawing.Color.Transparent + Me.lblFileSkimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFileSkimmer.Location = New System.Drawing.Point(5, 185) + Me.lblFileSkimmer.Name = "lblFileSkimmer" + Me.lblFileSkimmer.Size = New System.Drawing.Size(107, 18) + Me.lblFileSkimmer.TabIndex = 62 + Me.lblFileSkimmer.Text = "File Skimmer" + ' + 'lblDManager + ' + Me.lblDManager.AutoSize = True + Me.lblDManager.BackColor = System.Drawing.Color.Transparent + Me.lblDManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDManager.Location = New System.Drawing.Point(5, 167) + Me.lblDManager.Name = "lblDManager" + Me.lblDManager.Size = New System.Drawing.Size(148, 18) + Me.lblDManager.TabIndex = 61 + Me.lblDManager.Text = "DownloadManager" + ' + 'lblDownloader + ' + Me.lblDownloader.AutoSize = True + Me.lblDownloader.BackColor = System.Drawing.Color.Transparent + Me.lblDownloader.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDownloader.Location = New System.Drawing.Point(5, 149) + Me.lblDownloader.Name = "lblDownloader" + Me.lblDownloader.Size = New System.Drawing.Size(98, 18) + Me.lblDownloader.TabIndex = 60 + Me.lblDownloader.Text = "Downloader" + ' + 'lblDodge + ' + Me.lblDodge.AutoSize = True + Me.lblDodge.BackColor = System.Drawing.Color.Transparent + Me.lblDodge.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDodge.Location = New System.Drawing.Point(5, 131) + Me.lblDodge.Name = "lblDodge" + Me.lblDodge.Size = New System.Drawing.Size(57, 18) + Me.lblDodge.TabIndex = 59 + Me.lblDodge.Text = "Dodge" + ' + 'lblClock + ' + Me.lblClock.AutoSize = True + Me.lblClock.BackColor = System.Drawing.Color.Transparent + Me.lblClock.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblClock.Location = New System.Drawing.Point(5, 113) + Me.lblClock.Name = "lblClock" + Me.lblClock.Size = New System.Drawing.Size(52, 18) + Me.lblClock.TabIndex = 58 + Me.lblClock.Text = "Clock" + ' + 'lblCatlyst + ' + Me.lblCatlyst.AutoSize = True + Me.lblCatlyst.BackColor = System.Drawing.Color.Transparent + Me.lblCatlyst.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblCatlyst.Location = New System.Drawing.Point(5, 95) + Me.lblCatlyst.Name = "lblCatlyst" + Me.lblCatlyst.Size = New System.Drawing.Size(60, 18) + Me.lblCatlyst.TabIndex = 57 + Me.lblCatlyst.Text = "Catlyst" + ' + 'lblCalc + ' + Me.lblCalc.AutoSize = True + Me.lblCalc.BackColor = System.Drawing.Color.Transparent + Me.lblCalc.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblCalc.Location = New System.Drawing.Point(5, 77) + Me.lblCalc.Name = "lblCalc" + Me.lblCalc.Size = New System.Drawing.Size(85, 18) + Me.lblCalc.TabIndex = 56 + Me.lblCalc.Text = "Calculator" + ' + 'lblBitNoteWallet + ' + Me.lblBitNoteWallet.AutoSize = True + Me.lblBitNoteWallet.BackColor = System.Drawing.Color.Transparent + Me.lblBitNoteWallet.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBitNoteWallet.Location = New System.Drawing.Point(5, 60) + Me.lblBitNoteWallet.Name = "lblBitNoteWallet" + Me.lblBitNoteWallet.Size = New System.Drawing.Size(121, 18) + Me.lblBitNoteWallet.TabIndex = 55 + Me.lblBitNoteWallet.Text = "Bit Note Wallet" + ' + 'lblBitNoteDigger + ' + Me.lblBitNoteDigger.AutoSize = True + Me.lblBitNoteDigger.BackColor = System.Drawing.Color.Transparent + Me.lblBitNoteDigger.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBitNoteDigger.Location = New System.Drawing.Point(5, 42) + Me.lblBitNoteDigger.Name = "lblBitNoteDigger" + Me.lblBitNoteDigger.Size = New System.Drawing.Size(123, 18) + Me.lblBitNoteDigger.TabIndex = 54 + Me.lblBitNoteDigger.Text = "Bit Note Digger" + ' + 'lblAudioPlayer + ' + Me.lblAudioPlayer.AutoSize = True + Me.lblAudioPlayer.BackColor = System.Drawing.Color.Transparent + Me.lblAudioPlayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAudioPlayer.Location = New System.Drawing.Point(5, 24) + Me.lblAudioPlayer.Name = "lblAudioPlayer" + Me.lblAudioPlayer.Size = New System.Drawing.Size(102, 18) + Me.lblAudioPlayer.TabIndex = 53 + Me.lblAudioPlayer.Text = "Audio Player" + ' + 'lblArtpad + ' + Me.lblArtpad.AutoSize = True + Me.lblArtpad.BackColor = System.Drawing.Color.Transparent + Me.lblArtpad.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblArtpad.Location = New System.Drawing.Point(5, 6) + Me.lblArtpad.Name = "lblArtpad" + Me.lblArtpad.Size = New System.Drawing.Size(58, 18) + Me.lblArtpad.TabIndex = 52 + Me.lblArtpad.Text = "ArtPad" + ' + 'lblToTile + ' + Me.lblToTile.AutoSize = True + Me.lblToTile.BackColor = System.Drawing.Color.Transparent + Me.lblToTile.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblToTile.Location = New System.Drawing.Point(138, 78) + Me.lblToTile.Name = "lblToTile" + Me.lblToTile.Size = New System.Drawing.Size(44, 18) + Me.lblToTile.TabIndex = 52 + Me.lblToTile.Text = "Tiles" + ' + 'Udate + ' + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.Transparent + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(15, 78) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(117, 18) + Me.Label4.TabIndex = 53 + Me.Label4.Text = "Make Tile For:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.Transparent + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(51, 37) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(165, 18) + Me.Label5.TabIndex = 54 + Me.Label5.Text = "NOT FINAL DESIGN!" + ' + 'DockSettingsMenu + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(267, 709) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.lblToTile) + Me.Controls.Add(Me.pnlPrograms) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.btnQuitDock) + Me.Controls.Add(Me.btnQuitSet) + Me.Controls.Add(Me.btnSetBottom) + Me.Controls.Add(Me.btnSetTop) + Me.Controls.Add(Me.btnTake) + Me.Controls.Add(Me.btnPlus) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.btnAdd) + Me.Controls.Add(Me.pgbottom) + Me.Controls.Add(Me.pgright) + Me.Controls.Add(Me.pgleft) + Me.Controls.Add(Me.titlebar) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "DockSettingsMenu" + Me.Text = "template" + Me.TopMost = True + Me.pgleft.ResumeLayout(False) + Me.pgright.ResumeLayout(False) + Me.titlebar.ResumeLayout(False) + Me.titlebar.PerformLayout() + CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlPrograms.ResumeLayout(False) + Me.pnlPrograms.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pgleft As System.Windows.Forms.Panel + Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel + Friend WithEvents pgright As System.Windows.Forms.Panel + Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel + Friend WithEvents titlebar As System.Windows.Forms.Panel + Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel + Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel + Friend WithEvents pgbottom As System.Windows.Forms.Panel + Friend WithEvents lbtitletext As System.Windows.Forms.Label + Friend WithEvents closebutton As System.Windows.Forms.Panel + Friend WithEvents rollupbutton As System.Windows.Forms.Panel + Friend WithEvents pnlicon As System.Windows.Forms.PictureBox + Friend WithEvents minimizebutton As System.Windows.Forms.Panel + Friend WithEvents pullbs As System.Windows.Forms.Timer + Friend WithEvents pullbottom As System.Windows.Forms.Timer + Friend WithEvents pullside As System.Windows.Forms.Timer + Friend WithEvents tilecolor As System.Windows.Forms.ColorDialog + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btnQuitDock As System.Windows.Forms.Button + Friend WithEvents btnQuitSet As System.Windows.Forms.Button + Friend WithEvents btnSetBottom As System.Windows.Forms.Button + Friend WithEvents btnSetTop As System.Windows.Forms.Button + Friend WithEvents btnTake As System.Windows.Forms.Button + Friend WithEvents btnPlus As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnAdd As System.Windows.Forms.Button + Friend WithEvents pnlPrograms As System.Windows.Forms.Panel + Friend WithEvents lblSnakey As System.Windows.Forms.Label + Friend WithEvents lblFloodGateManager As System.Windows.Forms.Label + Friend WithEvents lblFileSkimmer As System.Windows.Forms.Label + Friend WithEvents lblDManager As System.Windows.Forms.Label + Friend WithEvents lblDownloader As System.Windows.Forms.Label + Friend WithEvents lblDodge As System.Windows.Forms.Label + Friend WithEvents lblClock As System.Windows.Forms.Label + Friend WithEvents lblCatlyst As System.Windows.Forms.Label + Friend WithEvents lblCalc As System.Windows.Forms.Label + Friend WithEvents lblBitNoteWallet As System.Windows.Forms.Label + Friend WithEvents lblBitNoteDigger As System.Windows.Forms.Label + Friend WithEvents lblAudioPlayer As System.Windows.Forms.Label + Friend WithEvents lblArtpad As System.Windows.Forms.Label + Friend WithEvents lblOrcWrite As System.Windows.Forms.Label + Friend WithEvents lblNameChanger As System.Windows.Forms.Label + Friend WithEvents lblLabyrinth As System.Windows.Forms.Label + Friend WithEvents lblKnowledgeInput As System.Windows.Forms.Label + Friend WithEvents lblInstaller As System.Windows.Forms.Label + Friend WithEvents lblShiftorium As System.Windows.Forms.Label + Friend WithEvents lblShifter As System.Windows.Forms.Label + Friend WithEvents lblPong As System.Windows.Forms.Label + Friend WithEvents lblIconManager As System.Windows.Forms.Label + Friend WithEvents lblWebBrowser As System.Windows.Forms.Label + Friend WithEvents lblVirusScanner As System.Windows.Forms.Label + Friend WithEvents lblVideoPlayer As System.Windows.Forms.Label + Friend WithEvents lblTextPad As System.Windows.Forms.Label + Friend WithEvents lblTerminal As System.Windows.Forms.Label + Friend WithEvents lblToTile As System.Windows.Forms.Label + Friend WithEvents Udate As System.Windows.Forms.Timer + Friend WithEvents lblShiftNet As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label +End Class diff --git a/ShiftOS/DockSettingsMenu.resx b/ShiftOS/DockSettingsMenu.resx new file mode 100644 index 0000000..f4ddaa8 --- /dev/null +++ b/ShiftOS/DockSettingsMenu.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1056, 18 + + + 1140, 18 + + + 1253, 18 + + + 1347, 18 + + + 17, 57 + + \ No newline at end of file diff --git a/ShiftOS/DockSettingsMenu.vb b/ShiftOS/DockSettingsMenu.vb new file mode 100644 index 0000000..0bc8050 --- /dev/null +++ b/ShiftOS/DockSettingsMenu.vb @@ -0,0 +1,607 @@ +Public Class DockSettingsMenu +#Region "Template Code" + Public rolldownsize As Integer + Public oldbordersize As Integer + Public oldtitlebarheight As Integer + Public justopened As Boolean = False + Public needtorollback As Boolean = False + Public minimumsizewidth As Integer = 100 'replace with minimum size + Public minimumsizeheight As Integer = 654 + + Private Sub DockSettingsMenu_Click(sender As Object, e As EventArgs) Handles Me.Click + pnlPrograms.Hide() + End Sub 'replace with minimum size + + Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Udate.Start() + justopened = True + Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 + Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + setupall() + ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME + ShiftOSDesktop.setuppanelbuttons() + ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1 + Me.Height = 700 + End Sub + + Public Sub setupall() + setuptitlebar() + setupborders() + setskin() + End Sub + + Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'Make terminal appear + If e.KeyCode = Keys.T AndAlso e.Control Then + Terminal.Show() + Terminal.Visible = True + Terminal.BringToFront() + End If + + 'Movable Windows + If ShiftOSDesktop.boughtmovablewindows = True Then + If e.KeyCode = Keys.A AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y) + End If + If e.KeyCode = Keys.D AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y) + End If + If e.KeyCode = Keys.W AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber) + End If + If e.KeyCode = Keys.S AndAlso e.Control Then + e.Handled = True + Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber) + End If + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine + End If + End Sub + + Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown + ' Handle Draggable Windows + If ShiftOSDesktop.boughtdraggablewindows = True Then + If e.Button = MouseButtons.Left Then + titlebar.Capture = False + lbtitletext.Capture = False + pnlicon.Capture = False + pgtoplcorner.Capture = False + pgtoprcorner.Capture = False + Const WM_NCLBUTTONDOWN As Integer = &HA1S + Const HTCAPTION As Integer = 2 + Dim msg As Message = _ + Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _ + New IntPtr(HTCAPTION), IntPtr.Zero) + Me.DefWndProc(msg) + End If + ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine + End If + End Sub + + Public Sub setupborders() + If ShiftOSDesktop.boughtwindowborders = False Then + pgleft.Hide() + pgbottom.Hide() + pgright.Hide() + Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height) + End If + End Sub + + Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click + Me.Close() + End Sub + + Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp + closebutton.BackgroundImage = Skins.closebtnhover + End Sub + + Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave + closebutton.BackgroundImage = Skins.closebtn + End Sub + + Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown + closebutton.BackgroundImage = Skins.closebtnclick + End Sub + + Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click + ShiftOSDesktop.minimizeprogram(Me, False) + End Sub + + Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click + rollupanddown() + End Sub + + Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp + rollupbutton.BackgroundImage = Skins.rollbtnhover + End Sub + + Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave + rollupbutton.BackgroundImage = Skins.rollbtn + End Sub + + Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown + rollupbutton.BackgroundImage = Skins.rollbtnclick + End Sub + + Public Sub setuptitlebar() + + setupborders() + + If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True + pgleft.Width = Skins.borderwidth + pgright.Width = Skins.borderwidth + pgbottom.Height = Skins.borderwidth + titlebar.Height = Skins.titlebarheight + + If justopened = True Then + Me.Size = New Size(420, 510) 'put the default size of your window here + Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30) + Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth) + oldbordersize = Skins.borderwidth + oldtitlebarheight = Skins.titlebarheight + justopened = False + Else + If Me.Visible = True Then + Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth) + oldbordersize = Skins.borderwidth + oldtitlebarheight = Skins.titlebarheight + rolldownsize = Me.Height + If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide() + End If + End If + + If Skins.enablecorners = True Then + pgtoplcorner.Show() + pgtoprcorner.Show() + pgtoprcorner.Width = Skins.titlebarcornerwidth + pgtoplcorner.Width = Skins.titlebarcornerwidth + Else + pgtoplcorner.Hide() + pgtoprcorner.Hide() + End If + + If ShiftOSDesktop.boughttitlebar = False Then + titlebar.Hide() + Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height) + End If + + If ShiftOSDesktop.boughttitletext = False Then + lbtitletext.Hide() + Else + lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point) + lbtitletext.Text = ShiftOSDesktop.dodgename 'Remember to change to name of program!!!! + lbtitletext.Show() + End If + + If ShiftOSDesktop.boughtclosebutton = False Then + closebutton.Hide() + Else + closebutton.BackColor = Skins.closebtncolour + closebutton.Size = Skins.closebtnsize + closebutton.Show() + End If + + If ShiftOSDesktop.boughtrollupbutton = False Then + rollupbutton.Hide() + Else + rollupbutton.BackColor = Skins.rollbtncolour + rollupbutton.Size = Skins.rollbtnsize + rollupbutton.Show() + End If + + If ShiftOSDesktop.boughtminimizebutton = False Then + minimizebutton.Hide() + Else + minimizebutton.BackColor = Skins.minbtncolour + minimizebutton.Size = Skins.minbtnsize + minimizebutton.Show() + End If + + If ShiftOSDesktop.boughtwindowborders = True Then + closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop) + rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop) + minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop) + Select Case Skins.titletextpos + Case "Left" + lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop) + End Select + lbtitletext.ForeColor = Skins.titletextcolour + Else + closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop) + rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop) + minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop) + Select Case Skins.titletextpos + Case "Left" + lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop) + End Select + lbtitletext.ForeColor = Skins.titletextcolour + End If + + 'Change when Icon skinning complete + If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon + pnlicon.Visible = True + pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop) + pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize) + pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar 'Replace with the correct icon for the program. + End If + + End Sub + + Public Sub rollupanddown() + If Me.Height = Me.titlebar.Height Then + pgleft.Show() + pgbottom.Show() + pgright.Show() + Me.Height = rolldownsize + Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight) + Else + Me.MinimumSize = New Size(0, 0) + pgleft.Hide() + pgbottom.Hide() + pgright.Hide() + rolldownsize = Me.Height + Me.Height = Me.titlebar.Height + End If + End Sub + + Public Sub resettitlebar() + If ShiftOSDesktop.boughtwindowborders = True Then + closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop) + rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop) + minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop) + Select Case Skins.titletextpos + Case "Left" + lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop) + End Select + lbtitletext.ForeColor = Skins.titletextcolour + Else + closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop) + rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop) + minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop) + Select Case Skins.titletextpos + Case "Left" + lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop) + Case "Centre" + lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop) + End Select + lbtitletext.ForeColor = Skins.titletextcolour + End If + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + resettitlebar() + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + resettitlebar() + End Sub + + 'delete this for non-resizable windows + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Start() + End If + End Sub + + Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeWE + End If + End Sub + + Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNS + End If + End Sub + + Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.SizeNWSE + End If + End Sub + + Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave + If ShiftOSDesktop.boughtresizablewindows = True Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullside.Stop() + End If + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Start() + End If + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbottom.Stop() + End If + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Start() + End If + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp + If ShiftOSDesktop.boughtresizablewindows = True Then + pullbs.Stop() + End If + End Sub + + Public Sub setskin() + 'disposals + closebutton.BackgroundImage = Nothing + titlebar.BackgroundImage = Nothing + rollupbutton.BackgroundImage = Nothing + pgtoplcorner.BackgroundImage = Nothing + pgtoprcorner.BackgroundImage = Nothing + minimizebutton.BackgroundImage = Nothing + 'apply new skin + If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn + closebutton.BackgroundImageLayout = Skins.closebtnlayout + If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar + titlebar.BackgroundImageLayout = Skins.titlebarlayout + If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn + rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout + If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner + pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout + If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner + pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout + If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn + minimizebutton.BackgroundImageLayout = Skins.minbtnlayout + If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft + pgleft.BackgroundImageLayout = Skins.borderleftlayout + If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright + pgleft.BackgroundImageLayout = Skins.borderrightlayout + If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom + pgbottom.BackgroundImageLayout = Skins.borderbottomlayout + If enablebordercorners = True Then + If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner + pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout + If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner + pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout + Else + pgbottomlcorner.BackColor = Skins.borderrightcolour + pgbottomrcorner.BackColor = Skins.borderrightcolour + pgbottomlcorner.BackgroundImage = Nothing + pgbottomrcorner.BackgroundImage = Nothing + End If + + 'set bottom border corner size + pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth) + pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth) + pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth) + pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth) + + Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour + End Sub + + Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1 + Me.Hide() + ShiftOSDesktop.setuppanelbuttons() + End Sub + + 'end of general setup +#End Region + + + Dim totile As String + + Private Sub lblArtpad_Click(sender As Object, e As EventArgs) Handles lblArtpad.Click + pnlPrograms.Hide() + totile = lblArtpad.Text + End Sub + + Private Sub lblAudioPlayer_Click(sender As Object, e As EventArgs) Handles lblAudioPlayer.Click + pnlPrograms.Hide() + totile = lblAudioPlayer.Text + End Sub + + Private Sub lblBitNoteDigger_Click(sender As Object, e As EventArgs) Handles lblBitNoteDigger.Click + pnlPrograms.Hide() + totile = lblBitNoteDigger.Text + End Sub + + Private Sub lblBitNoteWallet_Click(sender As Object, e As EventArgs) Handles lblBitNoteWallet.Click + pnlPrograms.Hide() + totile = lblBitNoteWallet.Text + End Sub + + Private Sub lblCalc_Click(sender As Object, e As EventArgs) Handles lblCalc.Click + pnlPrograms.Hide() + totile = lblCalc.Text + End Sub + + Private Sub lblCatlyst_Click(sender As Object, e As EventArgs) Handles lblCatlyst.Click + pnlPrograms.Hide() + totile = lblCatlyst.Text + End Sub + + Private Sub lblClock_Click(sender As Object, e As EventArgs) Handles lblClock.Click + pnlPrograms.Hide() + totile = lblClock.Text + End Sub + + Private Sub lblDodge_Click(sender As Object, e As EventArgs) Handles lblDodge.Click + pnlPrograms.Hide() + totile = lblDodge.Text + End Sub + + Private Sub lblDownloader_Click(sender As Object, e As EventArgs) Handles lblDownloader.Click + pnlPrograms.Hide() + totile = lblDownloader.Text + End Sub + + Private Sub lblDManager_Click(sender As Object, e As EventArgs) Handles lblDManager.Click + pnlPrograms.Hide() + totile = lblDManager.Text + End Sub + + Private Sub lblFileSkimmer_Click(sender As Object, e As EventArgs) Handles lblFileSkimmer.Click + pnlPrograms.Hide() + totile = lblFileSkimmer.Text + End Sub + + Private Sub lblFloodGateManager_Click(sender As Object, e As EventArgs) Handles lblFloodGateManager.Click + pnlPrograms.Hide() + totile = lblFloodGateManager.Text + End Sub + + Private Sub lblIconManager_Click(sender As Object, e As EventArgs) Handles lblIconManager.Click + pnlPrograms.Hide() + totile = lblIconManager.Text + End Sub + + Private Sub lblInstaller_Click(sender As Object, e As EventArgs) Handles lblInstaller.Click + pnlPrograms.Hide() + totile = lblInstaller.Text + End Sub + + Private Sub lblKnowledgeInput_Click(sender As Object, e As EventArgs) Handles lblKnowledgeInput.Click + pnlPrograms.Hide() + totile = lblKnowledgeInput.Text + End Sub + + Private Sub lblLabyrinth_Click(sender As Object, e As EventArgs) Handles lblLabyrinth.Click + pnlPrograms.Hide() + totile = lblLabyrinth.Text + End Sub + + Private Sub lblNameChanger_Click(sender As Object, e As EventArgs) Handles lblNameChanger.Click + pnlPrograms.Hide() + totile = lblNameChanger.Text + End Sub + + Private Sub lblOrcWrite_Click(sender As Object, e As EventArgs) Handles lblOrcWrite.Click + pnlPrograms.Hide() + totile = lblOrcWrite.Text + End Sub + + Private Sub lblPong_Click(sender As Object, e As EventArgs) Handles lblPong.Click + pnlPrograms.Hide() + totile = lblPong.Text + End Sub + + Private Sub lblShifter_Click(sender As Object, e As EventArgs) Handles lblShifter.Click + pnlPrograms.Hide() + totile = lblShifter.Text + End Sub + + Private Sub lblShiftorium_Click(sender As Object, e As EventArgs) Handles lblShiftorium.Click + pnlPrograms.Hide() + totile = lblShiftorium.Text + End Sub + + Private Sub lblSnakey_Click(sender As Object, e As EventArgs) Handles lblSnakey.Click + pnlPrograms.Hide() + totile = lblSnakey.Text + End Sub + + Private Sub lblTerminal_Click(sender As Object, e As EventArgs) Handles lblTerminal.Click + pnlPrograms.Hide() + totile = lblTerminal.Text + End Sub + + Private Sub lblTextPad_Click(sender As Object, e As EventArgs) Handles lblTextPad.Click + pnlPrograms.Hide() + totile = lblTextPad.Text + End Sub + + Private Sub lblVideoPlayer_Click(sender As Object, e As EventArgs) Handles lblVideoPlayer.Click + pnlPrograms.Hide() + totile = lblVideoPlayer.Text + End Sub + + Private Sub lblVirusScanner_Click(sender As Object, e As EventArgs) Handles lblVirusScanner.Click + pnlPrograms.Hide() + totile = lblVirusScanner.Text + End Sub + + Private Sub lblWebBrowser_Click(sender As Object, e As EventArgs) Handles lblWebBrowser.Click + pnlPrograms.Hide() + totile = lblVirusScanner.Text + End Sub + + Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click + If Not totile = "" Then + pnlPrograms.Hide() + tilecolor.ShowDialog() + DockWindow.createtile(totile, tilecolor.Color.ToString.Replace("Color", "").Replace("[", "").Replace("]", "")) + DockWindow.loadevents.writeFile(totile, tilecolor.Color.ToString.Replace("Color", "").Replace("[", "").Replace("]", "")) + End If + End Sub + + Private Sub Udate_Tick(sender As Object, e As EventArgs) Handles Udate.Tick + lblToTile.Text = totile + End Sub + + Private Sub lblShiftNet_Click(sender As Object, e As EventArgs) Handles lblShiftNet.Click + totile = lblShiftNet.Text + End Sub + + Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click + pnlPrograms.Show() + End Sub + + Private Sub btnPlus_Click_1(sender As Object, e As EventArgs) Handles btnPlus.Click + DockWindow.Top = DockWindow.Top + 5 + DockWindow.loadevents.writeConfFile(DockWindow.Top, DockWindow.docktopbot) + End Sub + + Private Sub btnSetTop_Click_1(sender As Object, e As EventArgs) Handles btnSetTop.Click + DockWindow.Top = -30 + DockWindow.picBoarder.Top = 31 + DockWindow.picBoarder.BringToFront() + DockWindow.loadevents.writeConfFile(DockWindow.Top, "Top") + DockWindow.docktopbot = "Top" + End Sub + + Private Sub btnTake_Click_1(sender As Object, e As EventArgs) Handles btnTake.Click + DockWindow.Top = DockWindow.Top - 5 + DockWindow.loadevents.writeConfFile(DockWindow.Top, DockWindow.docktopbot) + End Sub + + Private Sub btnSetBottom_Click_1(sender As Object, e As EventArgs) Handles btnSetBottom.Click + DockWindow.Top = DockWindow.screenHeight - DockWindow.Height - 42 + DockWindow.picBoarder.Top = 96 + DockWindow.picBoarder.BringToFront() + DockWindow.loadevents.writeConfFile(DockWindow.Top, "Bottom") + DockWindow.docktopbot = "Bottom" + End Sub + + Private Sub btnQuitSet_Click_1(sender As Object, e As EventArgs) Handles btnQuitSet.Click + Me.Close() + End Sub + + Private Sub btnQuitDock_Click_1(sender As Object, e As EventArgs) Handles btnQuitDock.Click + Me.Close() + DockWindow.Close() + End Sub +End Class diff --git a/ShiftOS/DockWindow.Designer.vb b/ShiftOS/DockWindow.Designer.vb new file mode 100644 index 0000000..38403f1 --- /dev/null +++ b/ShiftOS/DockWindow.Designer.vb @@ -0,0 +1,69 @@ + _ +Partial Class DockWindow + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.pnlTiles = New System.Windows.Forms.Panel() + Me.picBoarder = New System.Windows.Forms.PictureBox() + CType(Me.picBoarder, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnlTiles + ' + Me.pnlTiles.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlTiles.BackColor = System.Drawing.Color.Transparent + Me.pnlTiles.Location = New System.Drawing.Point(-1, 0) + Me.pnlTiles.Name = "pnlTiles" + Me.pnlTiles.Size = New System.Drawing.Size(125, 112) + Me.pnlTiles.TabIndex = 3 + ' + 'picBoarder + ' + Me.picBoarder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.picBoarder.BackColor = System.Drawing.Color.Gray + Me.picBoarder.Location = New System.Drawing.Point(-1, 107) + Me.picBoarder.Name = "picBoarder" + Me.picBoarder.Size = New System.Drawing.Size(125, 21) + Me.picBoarder.TabIndex = 2 + Me.picBoarder.TabStop = False + ' + 'DockWindow + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer)) + Me.ClientSize = New System.Drawing.Size(124, 149) + Me.Controls.Add(Me.pnlTiles) + Me.Controls.Add(Me.picBoarder) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "DockWindow" + Me.Text = "Dock" + Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer)) + CType(Me.picBoarder, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnlTiles As System.Windows.Forms.Panel + Friend WithEvents picBoarder As System.Windows.Forms.PictureBox +End Class diff --git a/ShiftOS/DockWindow.resx b/ShiftOS/DockWindow.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS/DockWindow.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ShiftOS/DockWindow.vb b/ShiftOS/DockWindow.vb new file mode 100644 index 0000000..af3e072 --- /dev/null +++ b/ShiftOS/DockWindow.vb @@ -0,0 +1,297 @@ +Public Class DockWindow + + Public screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width + Public screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height + Dim toleft As Integer = 30 + Dim tileprogram(100) As String + Dim currenttile As String = 0 + Public loadevents As New DockEngine + Public docktopbot As String = "Bottom" + + Public Sub colours() + 'Dim img As New Bitmap(picBackColor.Width, picBackColor.Height) + 'Dim brush As New Drawing.Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(img.Width, img.Height), SystemColors.Window, SystemColors.ControlLight) + ' Dim gr As Graphics = Graphics.FromImage(img) + 'gr.FillRectangle(brush, New RectangleF(0, 0, img.Width, img.Height)) + 'picBackColor.BackgroundImage = img + End Sub + + Private Sub Dock_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Me.TopMost = True + Me.ShowInTaskbar = False + toleft = toleft + 40 + Dim tile As New PictureBox + tile.BackColor = Color.Silver + tile.Height = 40 + tile.Width = 40 + tile.Top = 54 + tile.Left = toleft + 'tile.Image = My.Resources.settings + tile.SizeMode = PictureBoxSizeMode.Zoom + tile.Name = currenttile + toleft = toleft + 45 + tile.BringToFront() + 'picBackColor.SendToBack() + tile.SizeMode = PictureBoxSizeMode.CenterImage + Me.Width = Me.Width + tile.Width + 5 + Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2) + pnlTiles.Controls.Add(tile) + currenttile = currenttile + 1 + AddHandler tile.Click, AddressOf tilesets_click + AddHandler tile.MouseHover, AddressOf tile_hover + AddHandler tile.MouseLeave, AddressOf tile_leave + colours() + loadevents.readFile(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat") + loadevents.readConfFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat") + loadevents.writeConfFile(Me.Top, docktopbot) + Me.Top = loadevents.docktop + docktopbot = loadevents.topbottom + If docktopbot = "Bottom" Then + 'Me.Top = screenHeight - Me.Height - 42 + Me.picBoarder.Top = 96 + Me.picBoarder.BringToFront() + loadevents.writeConfFile(Me.Top, "Bottom") + Else + Me.picBoarder.Top = 31 + Me.picBoarder.BringToFront() + loadevents.writeConfFile(Me.Top, "Top") + End If + Me.TopMost = True + 'tmr_faid.Start() + End Sub + + Public Sub createtile(ByVal openPath As String, backcolor As String) + Dim tile As New PictureBox + If backcolor.Contains("A=") Then + Dim newcolor() As String + newcolor = backcolor.Split(",") + tile.BackColor = Color.FromArgb(newcolor(0).Replace("A=", "").Replace(" ", ""), newcolor(1).Replace("R=", "").Replace(" ", ""), newcolor(2).Replace("G=", "").Replace(" ", ""), newcolor(3).Replace("B=", "").Replace(" ", "")) + Else + Try + tile.BackColor = Color.FromName(backcolor.Replace(" ", "")) + Catch + Try + tile.BackColor = Color.FromKnownColor(backcolor) + Catch + tile.BackColor = Color.Red + End Try + End Try + End If + tile.Height = 40 + tile.Width = 40 + tile.Top = 54 + tile.Left = toleft + If openPath = "ArtPad" Then + tile.Image = ShiftOSDesktop.artpadiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Audio Player" Then + tile.Image = ShiftOSDesktop.audioplayericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Bit Note Digger" Then + tile.Image = ShiftOSDesktop.bitnotediggericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Bit Note Wallet" Then + tile.Image = ShiftOSDesktop.bitnotewalleticonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Calculator" Then + tile.Image = ShiftOSDesktop.calculatoriconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Catlyst" Then + tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Clock" Then + tile.Image = ShiftOSDesktop.clockiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Dodge" Then + tile.Image = ShiftOSDesktop.dodgeiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Downloader" Then + tile.Image = ShiftOSDesktop.downloadericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Downloader Manager" Then + tile.Image = ShiftOSDesktop.downloadmanagericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "File Skimmer" Then + tile.Image = ShiftOSDesktop.fileskimmericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "FloodGate Manager" Then + tile.Image = ShiftOSDesktop.floodgateiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Icon Manager" Then + tile.Image = ShiftOSDesktop.iconmanagericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Installer" Then + tile.Image = ShiftOSDesktop.installericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Knowledge Input" Then + tile.Image = ShiftOSDesktop.knowledgeinputiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Labyrinth" Then + tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Name Changer" Then + tile.Image = ShiftOSDesktop.namechangericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "OrcWrite" Then + tile.Image = ShiftOSDesktop.orcwriteiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Pong" Then + tile.Image = ShiftOSDesktop.pongiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Shifter" Then + tile.Image = ShiftOSDesktop.shiftericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Shiftorium" Then + tile.Image = ShiftOSDesktop.shiftoriumiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Snakey" Then + tile.Image = ShiftOSDesktop.snakeyiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Terminal" Then + tile.Image = ShiftOSDesktop.terminaliconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "TextPad" Then + tile.Image = ShiftOSDesktop.textpadiconlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "Video Player" Then + tile.Image = ShiftOSDesktop.videoplayericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "VirusScanner" Then + tile.Image = ShiftOSDesktop.virusscannericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "WebBrowser" Then + tile.Image = ShiftOSDesktop.webbrowsericonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + ElseIf openPath = "ShiftNet" Then + tile.Image = ShiftOSDesktop.shiftneticonlauncher + tile.SizeMode = PictureBoxSizeMode.StretchImage + End If + tile.Name = currenttile + tileprogram(currenttile) = openPath + toleft = toleft + 45 + tile.BringToFront() + 'picBackColor.SendToBack() + tile.SizeMode = PictureBoxSizeMode.CenterImage + Me.Width = Me.Width + tile.Width + 5 + Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2) + pnlTiles.Controls.Add(tile) + currenttile = currenttile + 1 + AddHandler tile.Click, AddressOf tile_click + AddHandler tile.MouseHover, AddressOf tile_hover + AddHandler tile.MouseLeave, AddressOf tile_leave + End Sub + + 'Private Sub btnAddIcon_Click(sender As Object, e As EventArgs) Handles btnAddIcon.Click + ' createtile(txtURL.Text) + 'colours() + ' End Sub + + Private Sub tile_click(sender As Object, e As EventArgs) + Dim tle As PictureBox = DirectCast(sender, PictureBox) + Dim open As String = tle.Name + If tileprogram(open) = "ArtPad" Then + ArtPad.Show() + ElseIf tileprogram(open) = "Audio Player" Then + Audio_Player.Show() + ElseIf tileprogram(open) = "Bit Note Digger" Then + Bitnote_Digger.Show() + ElseIf tileprogram(open) = "Bit Note Wallet" Then + Bitnote_Wallet.Show() + ElseIf tileprogram(open) = "Calculator" Then + Calculator.Show() + ElseIf tileprogram(open) = "Catlyst" Then + Catalyst_Main.Show() + ElseIf tileprogram(open) = "Clock" Then + Clock.Show() + ElseIf tileprogram(open) = "Dodge" Then + Dodge.Show() + ElseIf tileprogram(open) = "Downloader" Then + Downloader.Show() + ElseIf tileprogram(open) = "Downloader Manager" Then + Downloadmanager.Show() + ElseIf tileprogram(open) = "File Skimmer" Then + File_Skimmer.Show() + ElseIf tileprogram(open) = "FloodGate Manager" Then + FloodGate_Manager.Show() + ElseIf tileprogram(open) = "Icon Manager" Then + Icon_Manager.Show() + ElseIf tileprogram(open) = "Installer" Then + Installer.Show() + ElseIf tileprogram(open) = "Knowledge Input" Then + Knowledge_Input.Show() + ElseIf tileprogram(open) = "Labyrinth" Then + Labyrinth.Show() + ElseIf tileprogram(open) = "Name Changer" Then + Name_Changer.Show() + ElseIf tileprogram(open) = "OrcWrite" Then + OrcWrite.Show() + ElseIf tileprogram(open) = "Pong" Then + Pong.Show() + ElseIf tileprogram(open) = "Shifter" Then + Shifter.Show() + ElseIf tileprogram(open) = "Shiftorium" Then + Shiftorium.Show() + ElseIf tileprogram(open) = "Snakey" Then + Snakey.Show() + ElseIf tileprogram(open) = "Terminal" Then + Terminal.Show() + ElseIf tileprogram(open) = "TextPad" Then + TextPad.Show() + ElseIf tileprogram(open) = "Video Pad" Then + Video_Player.Show() + ElseIf tileprogram(open) = "VirusScanner" Then + VirusScanner.Show() + ElseIf tileprogram(open) = "WebBrowser" Then + Web_Browser.Show() + ElseIf tileprogram(open) = "ShiftNet" Then + Shiftnet.Show() + End If + End Sub + + Dim dtop As Integer + + Private Sub tile_hover(sender As Object, e As EventArgs) + Dim tle As PictureBox = DirectCast(sender, PictureBox) + If docktopbot = "Bottom" Then + Dim open As String = tle.Name + tle.Top = tle.Top - 10 + Try + 'lblApp.Text = open + Catch + 'lblApp.Text = "Error" + End Try + End If + If docktopbot = "Top" Then + dtop = tle.Top + Dim open As String = tle.Name + tle.Top = tle.Top + 10 + Try + 'lblApp.Text = open + Catch + 'lblApp.Text = "Error" + End Try + End If + + End Sub + + Private Sub tile_leave(sender As Object, e As EventArgs) + Dim tle As PictureBox = DirectCast(sender, PictureBox) + If docktopbot = "Bottom" Then + tle.Top = tle.Top + 10 + If tle.Top > 54 Then + tle.Top = 54 + End If + End If + If docktopbot = "Top" Then + tle.Top = tle.Top - 10 + If tle.Top < dtop Then + tle.Top = dtop + End If + End If + End Sub + + Private Sub tilesets_click(sender As Object, e As EventArgs) + DockSettingsMenu.Show() + End Sub + +End Class \ No newline at end of file diff --git a/ShiftOS/FullScreenLogin Customizer.Designer.vb b/ShiftOS/FullScreenLogin Customizer.Designer.vb index be29c88..c341c7d 100644 --- a/ShiftOS/FullScreenLogin Customizer.Designer.vb +++ b/ShiftOS/FullScreenLogin Customizer.Designer.vb @@ -23,11 +23,11 @@ Partial Class FullScreenLoginCustomizer _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FullScreenLoginCustomizer)) - Me.txtusername = New MichaelsMovableControlSuite.MovableTextBox() - Me.txtpassword = New MichaelsMovableControlSuite.MovableTextBox() - Me.userpic = New MichaelsMovableControlSuite.MovablePictureBox() - Me.loginbtn = New MichaelsMovableControlSuite.MovableButton() - Me.shutdown = New MichaelsMovableControlSuite.MovableButton() + Me.txtusername = New TextBox 'MichaelsMovableControlSuite.MovableTextBox() + Me.txtpassword = New TextBox 'MichaelsMovableControlSuite.MovableTextBox() + Me.userpic = New PictureBox ' MichaelsMovableControlSuite.MovablePictureBox() + Me.loginbtn = New Button ' MichaelsMovableControlSuite.MovableButton() + Me.shutdown = New Button 'MichaelsMovableControlSuite.MovableButton() Me.preview = New System.Windows.Forms.Panel() Me.pnldefault = New System.Windows.Forms.Panel() Me.Label3 = New System.Windows.Forms.Label() @@ -281,11 +281,11 @@ Partial Class FullScreenLoginCustomizer Me.ResumeLayout(False) End Sub - Friend WithEvents txtusername As MichaelsMovableControlSuite.MovableTextBox - Friend WithEvents txtpassword As MichaelsMovableControlSuite.MovableTextBox - Friend WithEvents userpic As MichaelsMovableControlSuite.MovablePictureBox - Friend WithEvents loginbtn As MichaelsMovableControlSuite.MovableButton - Friend WithEvents shutdown As MichaelsMovableControlSuite.MovableButton + Friend WithEvents txtusername As TextBox 'MichaelsMovableControlSuite.MovableTextBox + Friend WithEvents txtpassword As TextBox 'MichaelsMovableControlSuite.MovableTextBox + Friend WithEvents userpic As PictureBox 'MichaelsMovableControlSuite.MovablePictureBox + Friend WithEvents loginbtn As Button 'MichaelsMovableControlSuite.MovableButton + Friend WithEvents shutdown As Button ' MichaelsMovableControlSuite.MovableButton Friend WithEvents preview As System.Windows.Forms.Panel Friend WithEvents pnldefault As System.Windows.Forms.Panel Friend WithEvents Titlebar As System.Windows.Forms.Panel diff --git a/ShiftOS/ShiftOS.vbproj b/ShiftOS/ShiftOS.vbproj index 1429ea4..e7b49c0 100644 --- a/ShiftOS/ShiftOS.vbproj +++ b/ShiftOS/ShiftOS.vbproj @@ -88,7 +88,8 @@ bin\debug\MichaelsMovableControlSuite.dll - + + False bin\debug\Skybound.Gecko.dll @@ -157,6 +158,13 @@ Form + + DockWindow.vb + + + Form + + FullScreenLogin Customizer.vb @@ -325,6 +333,12 @@ Form + + DockSettingsMenu.vb + + + Form + Video Player.vb @@ -492,6 +506,9 @@ coherencemodeform.vb + + DockWindow.vb + FullScreenLogin Customizer.vb @@ -562,6 +579,9 @@ SystemInfo.vb + + DockSettingsMenu.vb + Video Player.vb diff --git a/ShiftOS/ShiftOSDesktop.vb b/ShiftOS/ShiftOSDesktop.vb index 447d01a..05571d6 100644 --- a/ShiftOS/ShiftOSDesktop.vb +++ b/ShiftOS/ShiftOSDesktop.vb @@ -1638,7 +1638,7 @@ Catch ex As Exception 'Do nothing -- Haven't found a good startup sound End Try - + DockWindow.Show() End Sub Public Sub loadcurrentskin()