diff options
Diffstat (limited to 'ShiftOS/DockWindow.vb')
| -rw-r--r-- | ShiftOS/DockWindow.vb | 297 |
1 files changed, 297 insertions, 0 deletions
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 |