mirror of
https://github.com/TheUltimateHacker/ShiftOS.git
synced 2025-01-22 16:12:14 +00:00
.. how did I manage to upload everything but the code
This commit is contained in:
AlphaBeta0110
parent
bcf104ffcf
commit
bfb1b2199e
2 changed files with 426 additions and 0 deletions
237
ShiftOS/ShiftOSWindow.Designer.vb
generated
Normal file
237
ShiftOS/ShiftOSWindow.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,237 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class ShiftOSWindow
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 313)
|
||||
Me.pgleft.TabIndex = 16
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 311)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(807, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 313)
|
||||
Me.pgright.TabIndex = 17
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 311)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(809, 30)
|
||||
Me.titlebar.TabIndex = 14
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(89, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Template"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(807, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 341)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(805, 2)
|
||||
Me.pgbottom.TabIndex = 18
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(805, 311)
|
||||
Me.pgcontents.TabIndex = 15
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'ShiftOSWindow
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(809, 343)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "ShiftOSWindow"
|
||||
Me.Text = "ShiftOSWindow"
|
||||
Me.TopMost = True
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
End Class
|
||||
189
ShiftOS/ShiftOSWindow.vb
Normal file
189
ShiftOS/ShiftOSWindow.vb
Normal file
|
|
@ -0,0 +1,189 @@
|
|||
Public Class ShiftOSWindow
|
||||
Public Property RolledUp As Boolean = False
|
||||
Public Property Resizable As Boolean = True
|
||||
Public Shadows Property MinimumSize As Size = New Size(0, 0)
|
||||
Private _heightBeforeRollup As Integer
|
||||
|
||||
' Window title changed
|
||||
Private Sub Me_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
|
||||
lbtitletext.Text = Text
|
||||
End Sub
|
||||
#Region "Close Button"
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = Skins.closebtnhover
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = Skins.closebtn
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = Skins.closebtnclick
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Minimize Button"
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me, False)
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Rollup Button"
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = Skins.rollbtnhover
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = Skins.rollbtn
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = Skins.rollbtnclick
|
||||
End Sub
|
||||
Private Sub rollupanddown()
|
||||
If RolledUp Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = _heightBeforeRollup
|
||||
Me.MinimumSize = New Size(MinimumSize.Width, MinimumSize.Height)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
_heightBeforeRollup = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Resizing"
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
End Sub
|
||||
|
||||
'delete this for non-resizable windows
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If Resizable Then
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Me_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
|
||||
Select Case Skins.titletextpos
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = Skins.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
|
||||
Select Case Skins.titletextpos
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = Skins.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Moveable Windows"
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message =
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN,
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
Loading…
Reference in a new issue