aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS/Shifter.vb
diff options
context:
space:
mode:
Diffstat (limited to 'ShiftOS/Shifter.vb')
-rw-r--r--ShiftOS/Shifter.vb57
1 files changed, 55 insertions, 2 deletions
diff --git a/ShiftOS/Shifter.vb b/ShiftOS/Shifter.vb
index bee2b97..dcf1092 100644
--- a/ShiftOS/Shifter.vb
+++ b/ShiftOS/Shifter.vb
@@ -119,6 +119,8 @@
Public skinpanelbuttonstyle As ImageLayout = ImageLayout.Stretch
Public skinminimizebutton(2) As Image
Public skinminimizebuttonstyle As ImageLayout = ImageLayout.Stretch
+ Public skinuserpanel(2) As Image
+ Public skinshutdownbutton(2) As Image
Public customizationtimepoints As Integer
Public customizationsdone As Integer
@@ -127,6 +129,8 @@
'DevX's ADV. App Launcher
+ Public startWidth As Integer = Skins.startWidth
+ Public startHeight As Integer = Skins.startHeight
Public usernametextcolor As Color = Skins.usernametextcolor
Public shutdowntextcolor As Color = Skins.shutdownTextColor
Public usernamebgcolor As Color = Skins.userNamePanelBackgroundColor
@@ -623,6 +627,9 @@
launcheritemfont.Text = Skins.launcheritemfont
icontextcolor = Skins.icontextcolor
+ skinuserpanel(0) = userNamePanelBackground
+ skinshutdownbutton(0) = powerpanelbgimage
+
'Uncomment when I (The Ultimate Hacker) have gotten the Shiftnet Download for
'Desktop++ Done:
@@ -1446,8 +1453,19 @@
Skins.usernamefont = usernamefont
Skins.usernamefontsize = usernamefontsize
Skins.usernamefontstyle = usernamefontstyle
-
-
+ Skins.userNamePanelBackgroundColor = usernamebgcolor
+ Try
+ Skins.userNamePanelBackground = skinuserpanel(0)
+ Catch
+ Skins.userNamePanelBackground = Nothing
+ End Try
+ Skins.powerPanelBackgroundColor = powerpanelbgcolor
+ Try
+ Skins.powerPanelBackgroundImage = skinshutdownbutton(0)
+ Catch
+ Skins.powerPanelBackgroundImage = Nothing
+ End Try
+ Skins.pwrPanelBackgroundLayout = pwrbglayout
' APPLY
Skins.saveskinfiles(True)
'windows resize fix
@@ -3206,4 +3224,39 @@
End Sub
+ Private Sub btnaalusrpnlbg_Click(sender As Object, e As MouseEventArgs) Handles btnaalusrpnlbg.MouseDown
+ If e.Button = Windows.Forms.MouseButtons.Right Then
+ Graphic_Picker.graphictochange = "Username Panel Background"
+ Graphic_Picker.ShowDialog()
+ Try
+ btnaalusrpnlbg.BackgroundImage = skinuserpanel(0)
+ Catch
+ btnaalusrpnlbg.BackgroundImage = Nothing
+ End Try
+ btnaalusrpnlbg.BackgroundImageLayout = usrbglayout
+ Else
+ Colour_Picker.colourtochange = "Username Panel Background"
+ Colour_Picker.oldcolour = usernamebgcolor
+ Colour_Picker.ShowDialog()
+ btnaalusrpnlbg.BackColor = usernamebgcolor
+ End If
+ End Sub
+
+ Private Sub btnaalpwrpnlbg_Click(sender As Object, e As MouseEventArgs) Handles btnaalpwrpnlbg.MouseDown
+ If e.Button = Windows.Forms.MouseButtons.Right Then
+ Graphic_Picker.graphictochange = "Shutdown Button Background"
+ Graphic_Picker.ShowDialog()
+ Try
+ btnaalpwrpnlbg.BackgroundImage = skinshutdownbutton(0)
+ Catch
+ btnaalpwrpnlbg.BackgroundImage = Nothing
+ End Try
+ btnaalpwrpnlbg.BackgroundImageLayout = usrbglayout
+ Else
+ Colour_Picker.colourtochange = "Shutdown Button Background"
+ Colour_Picker.oldcolour = powerpanelbgcolor
+ Colour_Picker.ShowDialog()
+ btnaalpwrpnlbg.BackColor = usernamebgcolor
+ End If
+ End Sub
End Class \ No newline at end of file