shiftos-next/shiftos_next/BWM User Controls/Titlebar.vb

Public Class Titlebar

    Friend WithEvents tmrcheckskin As New Timer

    Public Property AppName As String
        Set(value As String)
            lbtitle.Text = value
        End Set
        Get
            Return lbtitle.Text
        End Get
    End Property

    Friend WithEvents prnt As Form = ParentForm

    Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Dock = DockStyle.Top
        Me.SendToBack()
        tmrcheckskin.Interval = 200
        tmrcheckskin.Start()
    End Sub

    Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown
        ' Handle Draggable Windows
        If boughtdraggablewindows = True Then
            If e.Button = MouseButtons.Left Then
                Me.Capture = False
                lbtitle.Capture = False
                Const WM_NCLBUTTONDOWN As Integer = &HA1S
                Const HTCAPTION As Integer = 2
                Dim msg As Message = _
                    Message.Create(ParentForm.Handle, WM_NCLBUTTONDOWN, _
                        New IntPtr(HTCAPTION), IntPtr.Zero)
                Me.DefWndProc(msg)
            End If
        End If
    End Sub

    Public Sub DetermineMyVisibility()
        If boughtbasicwm = True Then
            Me.Show()
            ParentForm.WindowState = FormWindowState.Normal
            ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - ParentForm.Width) / 2
            ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - ParentForm.Height) / 2
            ParentForm.TopMost = True
        Else
            Me.Hide()
            ParentForm.WindowState = FormWindowState.Maximized
            ParentForm.TopMost = False
        End If
    End Sub

    Public Sub shiftorium_special()
        If boughtbasicwm = True Then
            lbtitle.TextAlign = ContentAlignment.MiddleLeft
            lbtitle.BackColor = Color.Gray
            ParentForm.TopMost = True
            ParentForm.WindowState = FormWindowState.Normal
        Else
            lbtitle.TextAlign = ContentAlignment.MiddleCenter
            lbtitle.BackColor = Color.Black
            ParentForm.WindowState = FormWindowState.Maximized
        End If
    End Sub

    Private Sub tmrcheckskin_Tick(sender As Object, e As EventArgs) Handles tmrcheckskin.Tick
        lbtitle.BackColor = titlebarcolor
        lbtitle.ForeColor = titlebartextcolor
    End Sub
End Class