Merge pull request #21 from pcnerd97/master

ShiftDock

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