Added the SOS code (VB and C#)

Very, very incomplete (C# isn't *remotely* complete.)

1 files changed, 226 insertions, 0 deletions

diff --git a/ShiftOS/FullScreenLogin Customizer.vb b/ShiftOS/FullScreenLogin Customizer.vb
new file mode 100644
index 0000000..7cc49db
--- /dev/null
+++ b/ShiftOS/FullScreenLogin Customizer.vb
@@ -0,0 +1,226 @@
+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