diff options
Diffstat (limited to 'shiftos_next/BWM User Controls')
| -rw-r--r-- | shiftos_next/BWM User Controls/Titlebar.vb | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/shiftos_next/BWM User Controls/Titlebar.vb b/shiftos_next/BWM User Controls/Titlebar.vb index 2d4e6e6..549b129 100644 --- a/shiftos_next/BWM User Controls/Titlebar.vb +++ b/shiftos_next/BWM User Controls/Titlebar.vb @@ -1,5 +1,7 @@ Public Class Titlebar + Friend WithEvents tmrcheckskin As New Timer + Public Property AppName As String Set(value As String) lbtitle.Text = value @@ -13,7 +15,9 @@ Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load Me.Dock = DockStyle.Top - Me.BringToFront() + Me.SendToBack() + tmrcheckskin.Interval = 200 + tmrcheckskin.Start() End Sub Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown @@ -46,4 +50,21 @@ 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 |