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 and CMD Apps/ColorPicker.vb | 38 ++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 shiftos_next/BWM and CMD Apps/ColorPicker.vb (limited to 'shiftos_next/BWM and CMD Apps/ColorPicker.vb') diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.vb b/shiftos_next/BWM and CMD Apps/ColorPicker.vb new file mode 100644 index 0000000..d569c65 --- /dev/null +++ b/shiftos_next/BWM and CMD Apps/ColorPicker.vb @@ -0,0 +1,38 @@ +Namespace BasicWM + Public Class ColorPicker + + Public Color As Color + Public oldcolor As Color + + Private Sub btnwhite_Click(sender As Object, e As EventArgs) Handles btnwhite.Click, btnblack.Click, btngray.Click, btnred.Click, btngreen.Click, btnblue.Click, btnyellow.Click, btnorange.Click, btnpink.Click, btnpurple.Click, btnbrown.Click + Color = sender.backcolor + lbselectedcolor.Text = "Selected color: " & Color.ToKnownColor.ToString + End Sub + + Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click + Me.Close() + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + Color = oldcolor + Me.Close() + End Sub + + Private Sub ColorPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load + loadcolors() + End Sub + + + Public Sub loadcolors() + If boughtgray Then btngray.Show() + If boughtred Then btnred.Show() + If boughtgreen Then btngreen.Show() + If boughtblue Then btnblue.Show() + If boughtyellow Then btnyellow.Show() + If boughtorange Then btnorange.Show() + If boughtpink Then btnpink.Show() + If boughtpurple Then btnpurple.Show() + If boughtbrown Then btnbrown.Show() + End Sub + End Class +End Namespace \ No newline at end of file -- cgit v1.2.3