From 9107510c4985ceb781640163bbb82ab6de2fa35e Mon Sep 17 00:00:00 2001 From: AShifter Date: Sun, 24 Sep 2017 12:32:50 -0600 Subject: Add proper WM and Remove old source Added a proper, working WM. I also got rid of the old source as we could just make a new repo for that. --- ShiftOS/FullScreenLogin.vb | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 ShiftOS/FullScreenLogin.vb (limited to 'ShiftOS/FullScreenLogin.vb') diff --git a/ShiftOS/FullScreenLogin.vb b/ShiftOS/FullScreenLogin.vb deleted file mode 100644 index f9deb1b..0000000 --- a/ShiftOS/FullScreenLogin.vb +++ /dev/null @@ -1,40 +0,0 @@ -Public Class FullScreenLogin - - Private Sub FullScreenLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None - Me.WindowState = FormWindowState.Maximized - setskin() - End Sub - - Public Sub setskin() - Me.BackColor = Color.Black - Me.BackgroundImage = Skins.loginbg - Me.BackgroundImageLayout = Skins.loginbglayout - userpic.Size = New Size(Skins.userimagesize, Skins.userimagesize) - userpic.BackgroundImage = Skins.userimage - userpic.BackColor = Color.Transparent - userpic.BackgroundImageLayout = Skins.userimagelayout - If Not IsNothing(Skins.userimagelocation) Then userpic.Location = Skins.userimagelocation - txtusername.Location = New Point(Skins.userTextboxX, Skins.userTextBoxY) - txtpassword.Location = New Point(Skins.passTextBoxX, Skins.passTextBoxY) - loginbtn.Location = New Point(Skins.loginbtnX, Skins.loginbtnY) - shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY) - Me.TopMost = True - End Sub - - Private Sub loginbtn_Click(sender As Object, e As EventArgs) Handles loginbtn.Click - If txtusername.Text = ShiftOSDesktop.username And txtpassword.Text = ShiftOSDesktop.password Then - Me.Close() - infobox.showinfo("Login Screen", "The Login Screen has completed with no errors!") - End If - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles shutdown.Click - ShiftOSDesktop.shutdownshiftos() - End Sub - - Private Sub clearChars(sender As Object, e As MouseEventArgs) Handles txtusername.MouseDown, txtpassword.MouseDown - txtusername.Text = "" - txtpassword.Text = "" - End Sub -End Class \ No newline at end of file -- cgit v1.2.3