diff options
Diffstat (limited to 'shiftos_next/BWM User Controls')
| -rw-r--r-- | shiftos_next/BWM User Controls/Titlebar.vb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/shiftos_next/BWM User Controls/Titlebar.vb b/shiftos_next/BWM User Controls/Titlebar.vb index 7e380d5..2d4e6e6 100644 --- a/shiftos_next/BWM User Controls/Titlebar.vb +++ b/shiftos_next/BWM User Controls/Titlebar.vb @@ -11,6 +11,11 @@ Friend WithEvents prnt As Form = ParentForm + Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.Dock = DockStyle.Top + Me.BringToFront() + End Sub + Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown ' Handle Draggable Windows If boughtdraggablewindows = True Then @@ -31,8 +36,8 @@ If boughtbasicwm = True Then Me.Show() ParentForm.WindowState = FormWindowState.Normal - ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2 - ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 + ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - ParentForm.Width) / 2 + ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - ParentForm.Height) / 2 ParentForm.TopMost = True Else Me.Hide() |