mirror of
https://github.com/TheUltimateHacker/ShiftOS.git
synced 2025-01-22 16:12:14 +00:00
f796e83362
This pull request fixes a few issues with the dock and adds unlimited tabs to the webbrowser
302 lines
No EOL
13 KiB
VB.net
302 lines
No EOL
13 KiB
VB.net
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 |