diff options
Diffstat (limited to 'ShiftOS/DockWindow.vb')
| -rw-r--r-- | ShiftOS/DockWindow.vb | 302 |
1 files changed, 0 insertions, 302 deletions
diff --git a/ShiftOS/DockWindow.vb b/ShiftOS/DockWindow.vb deleted file mode 100644 index 666abfe..0000000 --- a/ShiftOS/DockWindow.vb +++ /dev/null @@ -1,302 +0,0 @@ -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 firststart As Boolean - - 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 firststart = True Then - docktopbot = "Bottom" - Me.Top = screenHeight - Me.Height + 25 - End If - 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 |