1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
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
|
