diff options
Diffstat (limited to 'ShiftOS/FullScreenLogin Customizer.vb')
| -rw-r--r-- | ShiftOS/FullScreenLogin Customizer.vb | 226 |
1 files changed, 0 insertions, 226 deletions
diff --git a/ShiftOS/FullScreenLogin Customizer.vb b/ShiftOS/FullScreenLogin Customizer.vb deleted file mode 100644 index 7cc49db..0000000 --- a/ShiftOS/FullScreenLogin Customizer.vb +++ /dev/null @@ -1,226 +0,0 @@ -Public Class FullScreenLoginCustomizer - -#Region "Declarations" - Public autologin As Boolean - Public fullScreen As Boolean - Public inputfont As String - Public inputfontsize As Integer - Public inputfontstyle As FontStyle - Public inputforecolor As Color - Public inputbackcolor As Color - Public buttonfont As String - Public buttonfontsize As Integer - Public buttonfontstyle As FontStyle - - Public userimagesize As Integer - Public userimagelocation As Point - Public userimage As Image - Public userimagelayout As ImageLayout - - Public loginbg As Image - Public loginbgcolor As Color - Public loginbglayout As ImageLayout - - 'Locations... - - Public userTextboxX As Integer - Public userTextBoxY As Integer - Public passTextBoxX As Integer - Public passTextBoxY As Integer - Public loginbtnX As Integer - Public loginbtnY As Integer - Public shutdownbtnX As Integer - Public shutdownbtnY As Integer - - 'Codepoint Stuff - - Public earnedCP As Integer = 0 - - -#End Region - - Dim currentControl As String = "None" - - 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() - preview.BackColor = Skins.loginbgcolor - preview.BackgroundImage = Skins.loginbg - preview.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 - 'buggy - 'txtusername.ForeColor = Skins.inputforecolor - 'txtpassword.ForeColor = Skins.inputforecolor - 'txtusername.BackColor = Skins.inputbackcolor - 'txtpassword.BackColor = Skins.inputbackcolor - 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) - If shutdown.Location.X > preview.Height Then - shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY - pnldefault.Height) - End If - Titlebar.Height = Skins.titlebarheight - lbtitletext.ForeColor = Skins.titletextcolour - lbtitletext.BackColor = Skins.titlebarcolour - If Skins.titlebar Is Nothing Then lbtitletext.BackgroundImage = Nothing Else lbtitletext.BackgroundImage = Skins.titlebar - lbtitletext.BackgroundImageLayout = Skins.titlebarlayout - Select Case Skins.titletextpos - Case "Left" - lbtitletext.TextAlign = ContentAlignment.MiddleLeft - Case "Centre" - lbtitletext.TextAlign = ContentAlignment.MiddleCenter - End Select - lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point) - Me.TopMost = True - End Sub - - - Private Sub userpic_Click(sender As Object, e As EventArgs) Handles userpic.Click - currentControl = "User Picture" - determineSettings() - End Sub - - Private Sub userpic_UserMove(sender As Object, e As MouseEventArgs) Handles userpic.MouseUp - userimagelocation = userpic.Location - setNewSkin() - End Sub - - Public Sub determineSettings() - 'Sets what settings panel is visible: - Select Case currentControl - Case "None" - pnldefault.Show() - Case "User Picture" - pnluserpicture.Show() - End Select - End Sub - - Public Sub applySettings() - Skins.userimage = userimage - Skins.userimagesize = userimagesize - Skins.userimagelayout = userimagelayout - Skins.userimagelocation = userimagelocation - Skins.inputforecolor = inputforecolor - Skins.inputbackcolor = inputbackcolor - Skins.inputfont = inputfont - Skins.inputfontsize = inputfontsize - Skins.inputfontstyle = inputfontstyle - Skins.buttonfont = buttonfont - Skins.buttonfontsize = buttonfontsize - Skins.buttonfontstyle = buttonfontstyle - Skins.loginbg = loginbg - Skins.loginbglayout = loginbglayout - Skins.loginbgcolor = loginbgcolor - Skins.userTextboxX = userTextboxX - Skins.userTextBoxY = userTextBoxY - Skins.passTextBoxX = passTextBoxX - Skins.passTextBoxY = passTextBoxY - Skins.shutdownbtnX = shutdownbtnX - Skins.shutdownbtnY = shutdownbtnY - Skins.loginbtnX = loginbtnX - Skins.loginbtnY = loginbtnY - Skins.saveskinfiles(True) - infobox.showinfo("Login Screen Customizer", "You have earned " & earnedCP & " Code points for all customizations made to your login screen.") - Helper.addCP(earnedCP) - End Sub - - Public Sub setDefaults() - userimage = Skins.userimage - userimagesize = Skins.userimagesize - userimagelayout = Skins.userimagelayout - userimagelocation = Skins.userimagelocation - inputforecolor = Skins.inputforecolor - inputbackcolor = Skins.inputbackcolor - inputfont = Skins.inputfont - inputfontsize = Skins.inputfontsize - inputfontstyle = Skins.inputfontstyle - buttonfont = Skins.buttonfont - buttonfontsize = Skins.buttonfontsize - buttonfontstyle = Skins.buttonfontstyle - loginbg = Skins.loginbg - loginbgcolor = Skins.loginbgcolor - loginbglayout = Skins.loginbglayout - userTextboxX = Skins.userTextboxX - userTextBoxY = Skins.userTextBoxY - passTextBoxX = Skins.passTextBoxX - passTextBoxY = Skins.passTextBoxY - shutdownbtnX = Skins.shutdownbtnX - shutdownbtnY = Skins.shutdownbtnY - loginbtnX = Skins.loginbtnX - loginbtnY = Skins.loginbtnY - End Sub - - Public Sub setNewSkin() - preview.BackColor = loginbgcolor - If loginbg Is Nothing Then preview.BackgroundImage = Nothing Else preview.BackgroundImage = loginbg - preview.BackgroundImageLayout = loginbglayout - - userpic.BackgroundImage = userimage - userpic.Size = New Size(userimagesize, userimagesize) - userpic.BackgroundImageLayout = userimagelayout - - txtusername.ForeColor = inputforecolor - txtpassword.ForeColor = inputforecolor - txtusername.BackColor = inputbackcolor - txtpassword.BackColor = inputbackcolor - addRandomCP() - - End Sub - - Public Sub addRandomCP() - Dim rand As New Random - Dim numToAdd As Integer = rand.Next(1, 5) - earnedCP = earnedCP + numToAdd - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - Graphic_Picker.graphictochange = "User Account Picture" - Graphic_Picker.Show() - End Sub - - Private Sub txtusername_UserMove(sender As Object, e As MouseEventArgs) Handles txtusername.MouseUp - currentControl = "Username Input" - determineSettings() - userTextboxX = txtusername.Location.X - userTextBoxY = txtusername.Location.Y - setNewSkin() - End Sub - - Private Sub txtpassword_MouseUp(sender As Object, e As MouseEventArgs) Handles txtpassword.MouseUp - currentControl = "Password Input" - determineSettings() - passTextBoxX = txtpassword.Location.X - passTextBoxY = txtpassword.Location.Y - setNewSkin() - End Sub - - Private Sub shutdown_MouseUp(sender As Object, e As MouseEventArgs) Handles shutdown.MouseUp - currentControl = "Shutdown Button" - determineSettings() - shutdownbtnX = shutdown.Location.X - shutdownbtnY = shutdown.Location.Y - setNewSkin() - End Sub - - Private Sub loginbtn_MouseUp(sender As Object, e As MouseEventArgs) Handles loginbtn.MouseUp - currentControl = "Log In Button" - determineSettings() - loginbtnX = loginbtn.Location.X - loginbtnY = loginbtn.Location.Y - setNewSkin() - End Sub - - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - applySettings() - Me.Close() - End Sub -End Class
\ No newline at end of file |