diff options
| author | TheUltimateHacker <[email protected]> | 2015-05-29 09:57:53 -0400 |
|---|---|---|
| committer | TheUltimateHacker <[email protected]> | 2015-05-29 09:57:53 -0400 |
| commit | ccdbbbed1898c5073dc460a737cdd4b7c7036bb5 (patch) | |
| tree | 8116d7794ad400533939128f958994e0782f7678 /shiftos_next/BWM User Controls | |
| parent | 424931951bf55c2db7a7cb3228bfccc03ea62287 (diff) | |
| download | shiftos-next-ccdbbbed1898c5073dc460a737cdd4b7c7036bb5.tar.gz shiftos-next-ccdbbbed1898c5073dc460a737cdd4b7c7036bb5.tar.bz2 shiftos-next-ccdbbbed1898c5073dc460a737cdd4b7c7036bb5.zip | |
BWM - Skinning!
Yay! ShiftOS Next can finally be Shifted! Yes, that's true. I've added
basic skinning to the Basic Window Manager. Currently, the only way to
get to it is by typing "open shifter" in the Terminal, and the Shifter
will open. Choose the settings you want and hit Apply!
This is also the Alpha 3 commit, so after this I'll make the next
release.
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 |