From 424931951bf55c2db7a7cb3228bfccc03ea62287 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Thu, 28 May 2015 21:42:26 -0400 Subject: Shiftorium - Draggable Windows upgrade + Bugfixes Alright, I've added the Draggable Windows upgrade to the Shiftorium, as well as fixed a quick bug causing "No Items Available" to display when there were items clearly available. I've also fixed a positioning bug with BWM windows causing them to start in the center of the screen, relative to the titlebar, rather than the form. I've also re-arranged the code a bit, organizing files in folders. APIs are in the APIs folder, Desktop Environments are in the Desktop Environments folder, etc. The shiftorium still doesn't have draggable window functionality yet... --- shiftos_next/BWM User Controls/Titlebar.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'shiftos_next/BWM User Controls') 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() -- cgit v1.2.3