shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-22 09:01:58 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed a skinning bug with the Desktop Context Menu.

Browse source
This commit is contained in:
TheUltimateHacker 2015-03-09 16:44:14 -04:00
parent 696d91e75c
commit ba170856e2
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
ShiftOS/ShiftOSDesktop.vb
View file

@ -251,6 +251,7 @@
'new 0.0.9 features 'new 0.0.9 features
Public boughtskinstates As Boolean = False Public boughtskinstates As Boolean = False
Public boughtdesktopicons As Boolean = False
'Colour Picker Memories 'Colour Picker Memories
Public anymemory(15) As Color Public anymemory(15) As Color
@ -1056,7 +1057,7 @@
SortOutBooleans(VideoPlayerCorrupted, 610, False) SortOutBooleans(VideoPlayerCorrupted, 610, False)
SortOutBooleans(VirusScannerCorrupted, 612, False) SortOutBooleans(VirusScannerCorrupted, 612, False)
SortOutBooleans(WebBrowserCorrupted, 613, False) SortOutBooleans(WebBrowserCorrupted, 613, False)
If boughtdesktopicons = True Then savelines(614) = 11 Else savelines(614) = 10
IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", savelines) IO.File.WriteAllLines(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", savelines)
File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey) File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey)
Try Try
@ -1572,7 +1573,7 @@
SortOutBooleans(VideoPlayerCorrupted, 610, True) SortOutBooleans(VideoPlayerCorrupted, 610, True)
SortOutBooleans(VirusScannerCorrupted, 612, True) SortOutBooleans(VirusScannerCorrupted, 612, True)
SortOutBooleans(WebBrowserCorrupted, 613, True) SortOutBooleans(WebBrowserCorrupted, 613, True)
If loadlines(614) = 11 Then boughtdesktopicons = True Else boughtdesktopicons = False
Viruses.startactiveviruses() Viruses.startactiveviruses()
If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin() If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin()
If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons() If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons()
@ -1969,6 +1970,13 @@
ApplicationsToolStripMenuItem.Visible = False ApplicationsToolStripMenuItem.Visible = False
End If End If
ContextMenuStrip1.ForeColor = Skins.launcheritemcolour
ContextMenuStrip1.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
For Each Item In NewToolStripMenuItem.DropDownItems
Item.ForeColor = Skins.launcheritemcolour
Item.Font = New Font(Skins.launcheritemfont, Skins.launcheritemsize, Skins.launcheritemstyle)
Next
If boughtalclock = True Then If boughtalclock = True Then
ClockToolStripMenuItem.Visible = True ClockToolStripMenuItem.Visible = True
If boughtclockicon = True Then If boughtclockicon = True Then