diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
index 9ea241f..685b484 100644
--- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
@@ -3,7 +3,7 @@
Public Shared ComputerInfo(7) As String
Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String
- Public Shared AvailableFeature(42) As String
+ Public Shared AvailableFeature(52) As String
Public Shared CLIInterpreter As String
Public Shared SaveFile As String
Public Shared Achievement As String
@@ -97,6 +97,16 @@
'40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
'41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
'42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0)
+ '43 = DuWM Advanced Read and Write [Expands read and write support for DuWM] (default : 0)
+ '44 = File Skimmer [A file manager for ShiftOS] (default : 0)
+ '45 = File Skimmer Folder Support [Supports for reading and writing folder in File Skimmer] (default : 0)
+ '46 = File Skimmer File Support [Supports for reading and writing file in File Skimmer] (default : 0)
+ '47 = File Skimmer Delete Support [Adds file deletion function into ShiftOS] (default : 0)
+ '48 = File Skimmer ZIP Support [Adds ZIP compression function into ShiftOS] (default : 0)
+ '49 = File Skimmer Properties Pane [Adds a sidebar contains file/directory informations] (default : 0)
+ '50 = File Skimmer JobBar [Adds a top bar for actions on File Skimmer] (default : 0)
+ '51 = File Skimmer Small Icons [Adds small icons layout on File Skimmer] (default : 0)
+ '52 = File Skimmer List [Adds small icons layout on File Skimmer] (default : 0)
'
'Features bought hierarchy :
'
@@ -147,11 +157,14 @@
'>>>KI Animals (KI_ANIMALS) (300 CP)
'>>>KI Fruits (KI_FRUITS) (300 CP)
'>>>KI US States (KI_US) (300 CP)
- '>>DuWM Read and Write support (250 CP)
- '>>>File Skimmer (300 CP)
- '>>>>FS Properties Pane (325 CP)
- '>>>>FS Small Images Layout (350 CP)
- '>>>>FS List Layout (350 CP)
- '>>>>FS Delete (350 CP)
- '>>>>FS ZIP support (400 CP)
+ '>>DuWM Advanced Read and Write support (DUWM_RW) (250 CP)
+ '>>>File Skimmer (FILESKIMMER) (300 CP)
+ '>>>>FS Folder Support (FS_FOLDER) (325 CP)
+ '>>>>>FS File Support (FS_FILE) (350 CP)
+ '>>>>>>FS Delete Support (FS_DELETE) (400 CP)
+ '>>>>>>FS ZIP Support (FS_ZIP) (500 CP)
+ '>>>>FS Properties Pane (FS_PPANE) (350 CP)
+ '>>>>FS JobBar (FS_JOBBAR) (400 CP)
+ '>>>>>FS Small Icons Layout (FS_SMALLICONS) (425 CP)
+ '>>>>>FS List Layout (FS_LIST) (425 CP)
End Class
diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
index d13c40c..f8bb31f 100644
--- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
@@ -150,7 +150,7 @@
End If
End If
End If
- If Strings.AvailableFeature(37) = 0 Then
+ If Strings.AvailableFeature(37) = 0 Then
NewLine("(knowledge | 275 CP) Knowledge Input")
Else
If Strings.AvailableFeature(38) = 0 Then
@@ -163,6 +163,12 @@
NewLine("(ki_us | 300 CP) KI US States")
End If
End If
+ If Strings.AvailableFeature(43) = 0 Then
+ NewLine("(duwm_rw | 250 CP) DuWM Advanced Read and Write support")
+ Else
+ If Strings.AvailableFeature(44) = 0 Then
+ NewLine("(fileskimmer | 300 CP) File Skimmer")
+ End If
End If
End Sub
@@ -553,6 +559,17 @@
NewLine(ManHeader(1))
NormalCommand()
End If
+ Case "duwm_rw"
+ If Strings.AvailableFeature(43) = 0 Then
+ ManHeader(0) = "DuWM Advanced Read and Write support"
+ ManHeader(1) = "250 CP"
+ NewLine(ManHeader(0))
+ NewLine(Nothing)
+ NewLine("Adds US States category into Knowledge Input")
+ NewLine(Nothing)
+ NewLine(ManHeader(1))
+ NormalCommand()
+ End If
Case Else
NormalCommand()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
index 97721fe..550d01d 100644
--- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
+++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
@@ -113,6 +113,16 @@ Module SaveLoadSystem
Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
+ Strings.AvailableFeature(43) = "2"
+ Strings.AvailableFeature(44) = "2"
+ Strings.AvailableFeature(45) = "2"
+ Strings.AvailableFeature(46) = "2"
+ Strings.AvailableFeature(47) = "2"
+ Strings.AvailableFeature(48) = "2"
+ Strings.AvailableFeature(49) = "2"
+ Strings.AvailableFeature(50) = "2"
+ Strings.AvailableFeature(51) = "2"
+ Strings.AvailableFeature(52) = "2"
End Select
End Sub
@@ -171,6 +181,16 @@ Module SaveLoadSystem
Strings.AvailableFeature(41) = "1"
'0.2.8 Features
Strings.AvailableFeature(42) = "1"
+ Strings.AvailableFeature(43) = "1"
+ Strings.AvailableFeature(44) = "1"
+ Strings.AvailableFeature(45) = "1"
+ Strings.AvailableFeature(46) = "1"
+ Strings.AvailableFeature(47) = "1"
+ Strings.AvailableFeature(48) = "1"
+ Strings.AvailableFeature(49) = "1"
+ Strings.AvailableFeature(50) = "1"
+ Strings.AvailableFeature(51) = "1"
+ Strings.AvailableFeature(52) = "1"
End Sub
Public Sub GodMode()
@@ -226,6 +246,16 @@ Module SaveLoadSystem
Strings.AvailableFeature(41) = "2"
'0.2.8 Features
Strings.AvailableFeature(42) = "2"
+ Strings.AvailableFeature(43) = "2"
+ Strings.AvailableFeature(44) = "2"
+ Strings.AvailableFeature(45) = "2"
+ Strings.AvailableFeature(46) = "2"
+ Strings.AvailableFeature(47) = "2"
+ Strings.AvailableFeature(48) = "2"
+ Strings.AvailableFeature(49) = "2"
+ Strings.AvailableFeature(50) = "2"
+ Strings.AvailableFeature(51) = "2"
+ Strings.AvailableFeature(52) = "2"
End Sub
Public Sub SaveGame()
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb
index 725b336..589c9e7 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb
@@ -64,6 +64,16 @@ Namespace My.Resources
End Set
End Property
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend Shared ReadOnly Property ico_refresh() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("ico_refresh", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
'''
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''
@@ -73,5 +83,55 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
+
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend Shared ReadOnly Property largeico_compress() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("largeico_compress", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend Shared ReadOnly Property largeico_deletefile() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("largeico_deletefile", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend Shared ReadOnly Property largeico_rename() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("largeico_rename", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend Shared ReadOnly Property largeico_uncompress() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("largeico_uncompress", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend Shared ReadOnly Property largeico_unknown() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("largeico_unknown", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
End Class
End Namespace
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx
index e3944a1..1557f2e 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx
@@ -118,7 +118,25 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ ..\..\..\..\..\Resources\ico_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
..\..\..\..\..\Resources\ico_up1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\..\..\..\..\Resources\largeico_compress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\..\..\..\..\Resources\ico_deletefile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\..\..\..\..\Resources\largeico_rename.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\..\..\..\..\Resources\largeico_uncompress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ico_unknown.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb
index fdfc3db..058f86c 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb
@@ -29,18 +29,13 @@ Partial Class Uni_FileSkimmer
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.JobBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.pnl_Ribbon = New System.Windows.Forms.Panel()
+ Me.pnl_JobBar = New System.Windows.Forms.Panel()
Me.cmb_Layout = New System.Windows.Forms.ComboBox()
- Me.btn_Properties = New System.Windows.Forms.Button()
- Me.btn_Rename = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
- Me.btn_Delete = New System.Windows.Forms.Button()
- Me.btn_Compress = New System.Windows.Forms.Button()
- Me.btn_NewFolder = New System.Windows.Forms.Button()
Me.pnl_Properties = New System.Windows.Forms.Panel()
- Me.pic_Icon = New System.Windows.Forms.PictureBox()
Me.lbl_filesize = New System.Windows.Forms.Label()
Me.lbl_filetype = New System.Windows.Forms.Label()
Me.lbl_filename = New System.Windows.Forms.Label()
@@ -53,11 +48,21 @@ Partial Class Uni_FileSkimmer
Me.lbl_Address = New System.Windows.Forms.Label()
Me.lsv_Content = New System.Windows.Forms.ListView()
Me.iml_smallicons = New System.Windows.Forms.ImageList(Me.components)
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.pic_Icon = New System.Windows.Forms.PictureBox()
+ Me.btn_CopyPath = New System.Windows.Forms.Button()
+ Me.btn_Rename = New System.Windows.Forms.Button()
+ Me.btn_Delete = New System.Windows.Forms.Button()
+ Me.btn_Compress = New System.Windows.Forms.Button()
+ Me.btn_NewFolder = New System.Windows.Forms.Button()
+ Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.CompressToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.msn_Options.SuspendLayout()
- Me.pnl_Ribbon.SuspendLayout()
+ Me.pnl_JobBar.SuspendLayout()
Me.pnl_Properties.SuspendLayout()
- CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl_AddressBar.SuspendLayout()
+ CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'msn_Options
@@ -73,7 +78,7 @@ Partial Class Uni_FileSkimmer
'
'FileToolStripMenuItem
'
- Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CloseToolStripMenuItem})
+ Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CompressToolStripMenuItem, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator1, Me.CloseToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(41, 23)
Me.FileToolStripMenuItem.Text = "File"
@@ -86,16 +91,23 @@ Partial Class Uni_FileSkimmer
'
'OptionsToolStripMenuItem
'
- Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PropertyPaneToolStripMenuItem})
+ Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.JobBarToolStripMenuItem, Me.PropertyPaneToolStripMenuItem})
Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(70, 23)
Me.OptionsToolStripMenuItem.Text = "Options"
'
+ 'JobBarToolStripMenuItem
+ '
+ Me.JobBarToolStripMenuItem.CheckOnClick = True
+ Me.JobBarToolStripMenuItem.Name = "JobBarToolStripMenuItem"
+ Me.JobBarToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+ Me.JobBarToolStripMenuItem.Text = "JobBar"
+ '
'PropertyPaneToolStripMenuItem
'
Me.PropertyPaneToolStripMenuItem.CheckOnClick = True
Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem"
- Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(165, 24)
+ Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
Me.PropertyPaneToolStripMenuItem.Text = "Property Pane"
'
'AboutToolStripMenuItem
@@ -104,21 +116,22 @@ Partial Class Uni_FileSkimmer
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(59, 23)
Me.AboutToolStripMenuItem.Text = "About"
'
- 'pnl_Ribbon
+ 'pnl_JobBar
'
- Me.pnl_Ribbon.BackColor = System.Drawing.Color.Silver
- Me.pnl_Ribbon.Controls.Add(Me.cmb_Layout)
- Me.pnl_Ribbon.Controls.Add(Me.btn_Properties)
- Me.pnl_Ribbon.Controls.Add(Me.btn_Rename)
- Me.pnl_Ribbon.Controls.Add(Me.Label1)
- Me.pnl_Ribbon.Controls.Add(Me.btn_Delete)
- Me.pnl_Ribbon.Controls.Add(Me.btn_Compress)
- Me.pnl_Ribbon.Controls.Add(Me.btn_NewFolder)
- Me.pnl_Ribbon.Dock = System.Windows.Forms.DockStyle.Top
- Me.pnl_Ribbon.Location = New System.Drawing.Point(0, 27)
- Me.pnl_Ribbon.Name = "pnl_Ribbon"
- Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 70)
- Me.pnl_Ribbon.TabIndex = 1
+ Me.pnl_JobBar.BackColor = System.Drawing.Color.Silver
+ Me.pnl_JobBar.Controls.Add(Me.cmb_Layout)
+ Me.pnl_JobBar.Controls.Add(Me.Label1)
+ Me.pnl_JobBar.Controls.Add(Me.Label2)
+ Me.pnl_JobBar.Controls.Add(Me.btn_CopyPath)
+ Me.pnl_JobBar.Controls.Add(Me.btn_Rename)
+ Me.pnl_JobBar.Controls.Add(Me.btn_Delete)
+ Me.pnl_JobBar.Controls.Add(Me.btn_Compress)
+ Me.pnl_JobBar.Controls.Add(Me.btn_NewFolder)
+ Me.pnl_JobBar.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnl_JobBar.Location = New System.Drawing.Point(0, 27)
+ Me.pnl_JobBar.Name = "pnl_JobBar"
+ Me.pnl_JobBar.Size = New System.Drawing.Size(800, 70)
+ Me.pnl_JobBar.TabIndex = 1
'
'cmb_Layout
'
@@ -126,96 +139,21 @@ Partial Class Uni_FileSkimmer
Me.cmb_Layout.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.cmb_Layout.FormattingEnabled = True
Me.cmb_Layout.Items.AddRange(New Object() {"Large Icons", "Small Icons", "List"})
- Me.cmb_Layout.Location = New System.Drawing.Point(335, 38)
+ Me.cmb_Layout.Location = New System.Drawing.Point(369, 36)
Me.cmb_Layout.Name = "cmb_Layout"
Me.cmb_Layout.Size = New System.Drawing.Size(121, 26)
Me.cmb_Layout.TabIndex = 1
'
- 'btn_Properties
- '
- Me.btn_Properties.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btn_Properties.Font = New System.Drawing.Font("Segoe UI", 7.0!)
- Me.btn_Properties.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
- Me.btn_Properties.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btn_Properties.Location = New System.Drawing.Point(142, 34)
- Me.btn_Properties.Name = "btn_Properties"
- Me.btn_Properties.Size = New System.Drawing.Size(116, 35)
- Me.btn_Properties.TabIndex = 0
- Me.btn_Properties.Text = "Properties"
- Me.btn_Properties.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btn_Properties.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
- Me.btn_Properties.UseVisualStyleBackColor = True
- '
- 'btn_Rename
- '
- Me.btn_Rename.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btn_Rename.Font = New System.Drawing.Font("Segoe UI", 7.0!)
- Me.btn_Rename.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
- Me.btn_Rename.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btn_Rename.Location = New System.Drawing.Point(142, 0)
- Me.btn_Rename.Name = "btn_Rename"
- Me.btn_Rename.Size = New System.Drawing.Size(116, 35)
- Me.btn_Rename.TabIndex = 0
- Me.btn_Rename.Text = "Rename"
- Me.btn_Rename.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btn_Rename.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
- Me.btn_Rename.UseVisualStyleBackColor = True
- '
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
- Me.Label1.Location = New System.Drawing.Point(331, 10)
+ Me.Label1.Location = New System.Drawing.Point(365, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(51, 19)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Layout"
'
- 'btn_Delete
- '
- Me.btn_Delete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btn_Delete.Font = New System.Drawing.Font("Segoe UI", 7.0!)
- Me.btn_Delete.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
- Me.btn_Delete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.btn_Delete.Location = New System.Drawing.Point(71, 0)
- Me.btn_Delete.Name = "btn_Delete"
- Me.btn_Delete.Size = New System.Drawing.Size(72, 70)
- Me.btn_Delete.TabIndex = 0
- Me.btn_Delete.Text = "Delete"
- Me.btn_Delete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
- Me.btn_Delete.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- Me.btn_Delete.UseVisualStyleBackColor = True
- '
- 'btn_Compress
- '
- Me.btn_Compress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btn_Compress.Font = New System.Drawing.Font("Segoe UI", 7.0!)
- Me.btn_Compress.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
- Me.btn_Compress.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.btn_Compress.Location = New System.Drawing.Point(257, 0)
- Me.btn_Compress.Name = "btn_Compress"
- Me.btn_Compress.Size = New System.Drawing.Size(72, 70)
- Me.btn_Compress.TabIndex = 0
- Me.btn_Compress.Text = "Compress"
- Me.btn_Compress.TextAlign = System.Drawing.ContentAlignment.BottomCenter
- Me.btn_Compress.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- Me.btn_Compress.UseVisualStyleBackColor = True
- '
- 'btn_NewFolder
- '
- Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btn_NewFolder.Font = New System.Drawing.Font("Segoe UI", 7.0!)
- Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
- Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0)
- Me.btn_NewFolder.Name = "btn_NewFolder"
- Me.btn_NewFolder.Size = New System.Drawing.Size(72, 70)
- Me.btn_NewFolder.TabIndex = 0
- Me.btn_NewFolder.Text = "New Folder"
- Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter
- Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- Me.btn_NewFolder.UseVisualStyleBackColor = True
- '
'pnl_Properties
'
Me.pnl_Properties.BackColor = System.Drawing.Color.Gray
@@ -231,20 +169,11 @@ Partial Class Uni_FileSkimmer
Me.pnl_Properties.TabIndex = 2
Me.pnl_Properties.Visible = False
'
- 'pic_Icon
- '
- Me.pic_Icon.Location = New System.Drawing.Point(10, 42)
- Me.pic_Icon.Name = "pic_Icon"
- Me.pic_Icon.Size = New System.Drawing.Size(64, 64)
- Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
- Me.pic_Icon.TabIndex = 2
- Me.pic_Icon.TabStop = False
- '
'lbl_filesize
'
Me.lbl_filesize.AutoSize = True
Me.lbl_filesize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
- Me.lbl_filesize.Location = New System.Drawing.Point(8, 155)
+ Me.lbl_filesize.Location = New System.Drawing.Point(8, 181)
Me.lbl_filesize.Name = "lbl_filesize"
Me.lbl_filesize.Size = New System.Drawing.Size(26, 13)
Me.lbl_filesize.TabIndex = 1
@@ -254,7 +183,7 @@ Partial Class Uni_FileSkimmer
'
Me.lbl_filetype.AutoSize = True
Me.lbl_filetype.Font = New System.Drawing.Font("Segoe UI", 8.25!)
- Me.lbl_filetype.Location = New System.Drawing.Point(9, 139)
+ Me.lbl_filetype.Location = New System.Drawing.Point(9, 165)
Me.lbl_filetype.Name = "lbl_filetype"
Me.lbl_filetype.Size = New System.Drawing.Size(45, 13)
Me.lbl_filetype.TabIndex = 1
@@ -262,13 +191,13 @@ Partial Class Uni_FileSkimmer
'
'lbl_filename
'
- Me.lbl_filename.AutoSize = True
Me.lbl_filename.Font = New System.Drawing.Font("Segoe UI", 11.0!)
Me.lbl_filename.Location = New System.Drawing.Point(7, 117)
Me.lbl_filename.Name = "lbl_filename"
- Me.lbl_filename.Size = New System.Drawing.Size(67, 20)
+ Me.lbl_filename.Size = New System.Drawing.Size(181, 44)
Me.lbl_filename.TabIndex = 1
Me.lbl_filename.Text = "filename"
+ Me.lbl_filename.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lbl_Properties
'
@@ -378,6 +307,115 @@ Partial Class Uni_FileSkimmer
Me.iml_smallicons.Images.SetKeyName(7, "ico_sfp.png")
Me.iml_smallicons.Images.SetKeyName(8, "ico_exe.png")
'
+ 'Label2
+ '
+ Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Tahoma", 30.0!)
+ Me.Label2.ForeColor = System.Drawing.Color.Gray
+ Me.Label2.Location = New System.Drawing.Point(567, 35)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(247, 48)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "File Skimmer"
+ '
+ 'pic_Icon
+ '
+ Me.pic_Icon.Location = New System.Drawing.Point(10, 42)
+ Me.pic_Icon.Name = "pic_Icon"
+ Me.pic_Icon.Size = New System.Drawing.Size(64, 64)
+ Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+ Me.pic_Icon.TabIndex = 2
+ Me.pic_Icon.TabStop = False
+ '
+ 'btn_CopyPath
+ '
+ Me.btn_CopyPath.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btn_CopyPath.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+ Me.btn_CopyPath.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+ Me.btn_CopyPath.Location = New System.Drawing.Point(213, 0)
+ Me.btn_CopyPath.Name = "btn_CopyPath"
+ Me.btn_CopyPath.Size = New System.Drawing.Size(72, 70)
+ Me.btn_CopyPath.TabIndex = 0
+ Me.btn_CopyPath.Text = "Copy path"
+ Me.btn_CopyPath.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ Me.btn_CopyPath.UseVisualStyleBackColor = True
+ '
+ 'btn_Rename
+ '
+ Me.btn_Rename.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btn_Rename.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+ Me.btn_Rename.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+ Me.btn_Rename.Location = New System.Drawing.Point(142, 0)
+ Me.btn_Rename.Name = "btn_Rename"
+ Me.btn_Rename.Size = New System.Drawing.Size(72, 70)
+ Me.btn_Rename.TabIndex = 0
+ Me.btn_Rename.Text = "Rename"
+ Me.btn_Rename.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ Me.btn_Rename.UseVisualStyleBackColor = True
+ '
+ 'btn_Delete
+ '
+ Me.btn_Delete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btn_Delete.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+ Me.btn_Delete.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+ Me.btn_Delete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+ Me.btn_Delete.Location = New System.Drawing.Point(71, 0)
+ Me.btn_Delete.Name = "btn_Delete"
+ Me.btn_Delete.Size = New System.Drawing.Size(72, 70)
+ Me.btn_Delete.TabIndex = 0
+ Me.btn_Delete.Text = "Delete"
+ Me.btn_Delete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+ Me.btn_Delete.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ Me.btn_Delete.UseVisualStyleBackColor = True
+ '
+ 'btn_Compress
+ '
+ Me.btn_Compress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btn_Compress.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+ Me.btn_Compress.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+ Me.btn_Compress.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+ Me.btn_Compress.Location = New System.Drawing.Point(284, 0)
+ Me.btn_Compress.Name = "btn_Compress"
+ Me.btn_Compress.Size = New System.Drawing.Size(72, 70)
+ Me.btn_Compress.TabIndex = 0
+ Me.btn_Compress.Text = "Compress"
+ Me.btn_Compress.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+ Me.btn_Compress.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ Me.btn_Compress.UseVisualStyleBackColor = True
+ '
+ 'btn_NewFolder
+ '
+ Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btn_NewFolder.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+ Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+ Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+ Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0)
+ Me.btn_NewFolder.Name = "btn_NewFolder"
+ Me.btn_NewFolder.Size = New System.Drawing.Size(72, 70)
+ Me.btn_NewFolder.TabIndex = 0
+ Me.btn_NewFolder.Text = "New Folder"
+ Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+ Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ Me.btn_NewFolder.UseVisualStyleBackColor = True
+ '
+ 'DeleteToolStripMenuItem
+ '
+ Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
+ Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+ Me.DeleteToolStripMenuItem.Text = "Delete"
+ '
+ 'CompressToolStripMenuItem
+ '
+ Me.CompressToolStripMenuItem.Name = "CompressToolStripMenuItem"
+ Me.CompressToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+ Me.CompressToolStripMenuItem.Text = "Compress"
+ '
+ 'ToolStripSeparator1
+ '
+ Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+ Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+ '
'Uni_FileSkimmer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -387,7 +425,7 @@ Partial Class Uni_FileSkimmer
Me.Controls.Add(Me.lsv_Content)
Me.Controls.Add(Me.pnl_Properties)
Me.Controls.Add(Me.pnl_AddressBar)
- Me.Controls.Add(Me.pnl_Ribbon)
+ Me.Controls.Add(Me.pnl_JobBar)
Me.Controls.Add(Me.msn_Options)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MainMenuStrip = Me.msn_Options
@@ -397,13 +435,13 @@ Partial Class Uni_FileSkimmer
Me.Text = "Uni_FileSkimmer"
Me.msn_Options.ResumeLayout(False)
Me.msn_Options.PerformLayout()
- Me.pnl_Ribbon.ResumeLayout(False)
- Me.pnl_Ribbon.PerformLayout()
+ Me.pnl_JobBar.ResumeLayout(False)
+ Me.pnl_JobBar.PerformLayout()
Me.pnl_Properties.ResumeLayout(False)
Me.pnl_Properties.PerformLayout()
- CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl_AddressBar.ResumeLayout(False)
Me.pnl_AddressBar.PerformLayout()
+ CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -412,7 +450,7 @@ Partial Class Uni_FileSkimmer
Friend WithEvents msn_Options As MenuStrip
Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
- Friend WithEvents pnl_Ribbon As Panel
+ Friend WithEvents pnl_JobBar As Panel
Friend WithEvents pnl_Properties As Panel
Friend WithEvents pnl_AddressBar As Panel
Friend WithEvents lbl_Address As Label
@@ -432,9 +470,14 @@ Partial Class Uni_FileSkimmer
Friend WithEvents btn_Refresh As Button
Friend WithEvents btn_Delete As Button
Friend WithEvents btn_Rename As Button
- Friend WithEvents btn_Properties As Button
+ Friend WithEvents btn_CopyPath As Button
Friend WithEvents btn_Compress As Button
Friend WithEvents cmb_Layout As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents iml_smallicons As ImageList
+ Friend WithEvents JobBarToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents Label2 As Label
+ Friend WithEvents CompressToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents DeleteToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
End Class
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx
index 231bd82..e2de425 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx
@@ -128,7 +128,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACA
- FwAAAk1TRnQBSQFMAgEBCQEAAVgBAAFYAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ FwAAAk1TRnQBSQFMAgEBCQEAAagBAAGoAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
@@ -239,7 +239,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC6
- EgAAAk1TRnQBSQFMAgEBCQEAARABAAEQAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ EgAAAk1TRnQBSQFMAgEBCQEAAWABAAFgAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb
index 1095248..33ee27a 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb
@@ -1,4 +1,5 @@
Imports System.IO
+Imports System.IO.Compression
Public Class Uni_FileSkimmer
Public CurrentDir As String
@@ -7,8 +8,6 @@ Public Class Uni_FileSkimmer
Private Sub Uni_FileSkimmer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckAvailable()
- 'Sets icons for buttons in here, for some reason
- btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
'End thingy
CurrentDir = Strings.OnceInfo(1)
txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
@@ -17,8 +16,55 @@ Public Class Uni_FileSkimmer
End Sub
Private Sub CheckAvailable()
- 'btn_NewFolder.Text = "???"
- 'btn_NewFolder.Image = Nothing
+ If Strings.AvailableFeature(47) = 1 Then
+ btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_deletefile
+ DeleteToolStripMenuItem.Visible = True
+ Else
+ btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+ btn_Delete.Text = "???"
+ DeleteToolStripMenuItem.Visible = False
+ End If
+ If Strings.AvailableFeature(48) = 1 Then
+ btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
+ CompressToolStripMenuItem.Visible = True
+ Else
+ btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+ btn_Compress.Text = "???"
+ CompressToolStripMenuItem.Visible = False
+ End If
+ If Strings.AvailableFeature(49) = 1 Then
+ PropertyPaneToolStripMenuItem.Checked = True
+ pnl_Properties.Visible = True
+ Else
+ PropertyPaneToolStripMenuItem.Checked = False
+ PropertyPaneToolStripMenuItem.Visible = False
+ pnl_Properties.Visible = False
+ End If
+ If Strings.AvailableFeature(50) = 1 Then
+ JobBarToolStripMenuItem.Checked = True
+ pnl_JobBar.Visible = True
+ Else
+ JobBarToolStripMenuItem.Checked = False
+ JobBarToolStripMenuItem.Visible = False
+ pnl_JobBar.Visible = False
+ End If
+ 'Sets icons for buttons in here, for some reason
+ btn_NewFolder.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+ btn_NewFolder.Text = "???"
+ btn_Rename.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+ btn_Rename.Text = "???"
+ btn_CopyPath.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+ btn_CopyPath.Text = "???"
+ If Strings.AvailableFeature(51) = 1 Then
+ Else
+ cmb_Layout.Items.Remove("Small Icons")
+ End If
+ If Strings.AvailableFeature(52) = 1 Then
+ Else
+ cmb_Layout.Items.Remove("List")
+ End If
+ btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
+ btn_Refresh.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_refresh
End Sub
Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click
@@ -29,10 +75,40 @@ Public Class Uni_FileSkimmer
End If
End Sub
+ Private Sub JobBarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JobBarToolStripMenuItem.Click
+ If JobBarToolStripMenuItem.CheckState = False Then
+ pnl_JobBar.Visible = False
+ Else
+ pnl_JobBar.Visible = True
+ End If
+ End Sub
+
+ Private Sub CompressToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CompressToolStripMenuItem.Click
+ If Strings.AvailableFeature(48) = 1 Then
+ FS_Compression()
+ End If
+ End Sub
+
+ Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
+ FS_Delete()
+ End Sub
+
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
Dispose()
End Sub
+ Private Sub btn_Delete_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
+ FS_Delete()
+ End Sub
+
+ Private Sub btn_Compress_Click(sender As Object, e As EventArgs) Handles btn_Compress.Click
+ If Strings.AvailableFeature(48) = 1 Then
+ FS_Compression()
+ Else
+
+ End If
+ End Sub
+
Private Sub cmb_Layout_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Layout.SelectedIndexChanged
Select Case cmb_Layout.SelectedItem.ToString
Case "Large Icons"
@@ -108,7 +184,11 @@ Public Class Uni_FileSkimmer
ShowContent()
End If
End If
- End If
+ Else
+ txt_AddressBar.Text = "!\"
+ CurrentDir = Strings.OnceInfo(1)
+ ShowContent()
+ End If
End If
End Sub
@@ -123,6 +203,10 @@ Public Class Uni_FileSkimmer
Private Sub lsv_Content_MouseClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseClick
Select Case e.Button
Case MouseButtons.Left
+ Dim IsCompressed As Boolean = False
+ If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+ IsCompressed = True
+ End If
If pnl_Properties.Visible = True Then
Dim IsFile As Boolean = False
If lsv_Content.SelectedItems(0).Text = Nothing Then
@@ -137,6 +221,9 @@ Public Class Uni_FileSkimmer
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile
lbl_filetype.Text = "Text File"
IsFile = True
+ ElseIf lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+ lbl_filetype.Text = "Compressed ZIP File"
+ IsFile = True
ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
lbl_filetype.Text = "Unknown File Type"
@@ -171,6 +258,17 @@ Public Class Uni_FileSkimmer
lbl_filename.Text = lsv_Content.SelectedItems(0).Text
End If
End If
+ If Strings.AvailableFeature(48) = 1 Then
+ If IsCompressed = True Then
+ btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_uncompress
+ btn_Compress.Text = "Extract"
+ CompressToolStripMenuItem.Text = "Extract"
+ Else
+ btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
+ btn_Compress.Text = "Compress"
+ CompressToolStripMenuItem.Text = "Compress"
+ End If
+ End If
End Select
End Sub
@@ -207,16 +305,22 @@ Public Class Uni_FileSkimmer
For Each Folder In Folders
Dim FolderName As String = Folder.Name
- lsv_Content.Items.Add(FolderName, 0)
+ If Strings.AvailableFeature(45) = 1 Then
+ lsv_Content.Items.Add(FolderName, 0)
+ Else
+ lsv_Content.Items.Add("???", 2)
+ End If
Next
For Each File In Files
Dim filename As String = File.Name
Dim fileex As String = File.Extension
-
FileType = GetFileType(fileex)(0)
-
- lsv_Content.Items.Add(filename, FileType)
+ If Strings.AvailableFeature(46) = 1 Then
+ lsv_Content.Items.Add(filename, FileType)
+ Else
+ lsv_Content.Items.Add("???", 2)
+ End If
Next
End Sub
@@ -299,7 +403,53 @@ Public Class Uni_FileSkimmer
End If
End Function
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
- DeleteFile(CurrentDir & lsv_Content.SelectedItems(0).Text)
+ Private Sub FS_Compression()
+ Dim NothingIn As Boolean = True
+ Dim ZipRandomInt As Integer
+ Dim ZipRandom As New Random
+ Dim UnzipRandomInt As Integer
+ Dim UnzipRandom As New Random
+ If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+ UnzipRandomInt = UnzipRandom.Next(1, 1000000)
+ Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
+ ZipFile.ExtractToDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
+ Directory.CreateDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace(".zip", ""))
+ CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace("zip", ""))
+ Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, True)
+ ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
+ ZipRandomInt = ZipRandom.Next(1, 1000000)
+ Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt)
+ File.Copy(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt & "\" & lsv_Content.SelectedItems(0).Text)
+ Dim Numbering As String = lsv_Content.SelectedItems(0).Text.Length
+ Dim TheNaming As String = lsv_Content.SelectedItems(0).Text.Substring(0, Numbering - 3) & "zip"
+ ZipFile.CreateFromDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, CurrentDir & "\" & TheNaming)
+ Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, True)
+ NothingIn = False
+ ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
+ If Directory.Exists(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text) = True Then
+ ZipFile.CreateFromDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text & ".zip")
+ NothingIn = False
+ Else
+
+ End If
+ End If
+ ShowContent()
+ End Sub
+
+ Private Sub FS_Delete()
+ If Strings.AvailableFeature(47) = 0 Then
+
+ Else
+ Try
+ If lsv_Content.SelectedItems(0).Text Like "*.*" Then
+ File.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+ ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
+ Directory.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+ End If
+ ShowContent()
+ Catch ex As Exception
+
+ End Try
+ End If
End Sub
End Class
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/ico_deletefile.png b/ShiftOS-TheRevival/Resources/ico_deletefile.png
new file mode 100644
index 0000000..17a9af2
Binary files /dev/null and b/ShiftOS-TheRevival/Resources/ico_deletefile.png differ
diff --git a/ShiftOS-TheRevival/Resources/ico_refresh.png b/ShiftOS-TheRevival/Resources/ico_refresh.png
new file mode 100644
index 0000000..780904e
Binary files /dev/null and b/ShiftOS-TheRevival/Resources/ico_refresh.png differ
diff --git a/ShiftOS-TheRevival/Resources/largeico_compress.png b/ShiftOS-TheRevival/Resources/largeico_compress.png
new file mode 100644
index 0000000..d56bf19
Binary files /dev/null and b/ShiftOS-TheRevival/Resources/largeico_compress.png differ
diff --git a/ShiftOS-TheRevival/Resources/largeico_rename.png b/ShiftOS-TheRevival/Resources/largeico_rename.png
new file mode 100644
index 0000000..580169a
Binary files /dev/null and b/ShiftOS-TheRevival/Resources/largeico_rename.png differ
diff --git a/ShiftOS-TheRevival/Resources/largeico_uncompress.png b/ShiftOS-TheRevival/Resources/largeico_uncompress.png
new file mode 100644
index 0000000..a8a7fca
Binary files /dev/null and b/ShiftOS-TheRevival/Resources/largeico_uncompress.png differ
diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
index b504241..decc558 100644
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
@@ -396,6 +396,11 @@
+
+
+
+
+