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

Fixed crash with icons. Fixed icon dragging. Dragged icons don't save

Browse source
This commit is contained in:
pfg github 2015-03-10 15:49:47 -07:00
parent a2361f8ea1
commit 8ab947a2fc
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

@ -1573,7 +1573,11 @@
SortOutBooleans(VideoPlayerCorrupted, 610, True)
SortOutBooleans(VirusScannerCorrupted, 612, True)
SortOutBooleans(WebBrowserCorrupted, 613, True)
If loadlines(614) = 11 Then boughtdesktopicons = True Else boughtdesktopicons = False
Try
If loadlines(614) = 11 Then boughtdesktopicons = True Else boughtdesktopicons = False
Catch
boughtdesktopicons = False
End Try
Viruses.startactiveviruses()
If IO.File.Exists(ShiftOSPath + "Shiftum42\Skins\Current\skindata.dat") Then loadcurrentskin()
If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Icons") Then setupicons()
@ -4775,7 +4779,11 @@
If Skins.enabledraggableicons = True Then
Dim lvi As ListViewItem = CType(e.Data.GetData("System.Windows.Forms.ListViewItem"), ListViewItem)
Dim Offset As Size = Size.Subtract(Cursor.Size, New Size(Cursor.HotSpot.X, Cursor.HotSpot.Y))
lvi.Position = Point.Subtract(desktopicons.PointToClient(New Point(e.X, e.Y)), Offset)
If (e.X < 53) Then
lvi.Position = Point.Subtract(desktopicons.PointToClient(New Point(53, e.Y)), Offset)
Else
lvi.Position = Point.Subtract(desktopicons.PointToClient(New Point(e.X, e.Y)), Offset)
End If
e.Effect = DragDropEffects.Move
End If