From 245fadfa72caeb1643e97aa49c871e6bc4ff5792 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sat, 3 Dec 2022 07:10:41 +0700 Subject: [PATCH] so far functional file skimmer --- .../Functions/InGame/ROMs/Strings.vb | 29 +- .../InGame/StoreManager/Shiftoriums.vb | 19 +- .../Functions/OutGame/SaveLoadSystem.vb | 30 ++ .../FileSkimmerFunctionIcons.Designer.vb | 60 ++++ .../Icons/FileSkimmerFunctionIcons.resx | 18 ++ .../File Skimmer/Uni_FileSkimmer.Designer.vb | 287 ++++++++++-------- .../File Skimmer/Uni_FileSkimmer.resx | 4 +- .../Universal/File Skimmer/Uni_FileSkimmer.vb | 172 ++++++++++- .../Resources/ico_deletefile.png | Bin 0 -> 7236 bytes ShiftOS-TheRevival/Resources/ico_refresh.png | Bin 0 -> 2466 bytes .../Resources/largeico_compress.png | Bin 0 -> 676 bytes .../Resources/largeico_rename.png | Bin 0 -> 7236 bytes .../Resources/largeico_uncompress.png | Bin 0 -> 7236 bytes ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj | 5 + 14 files changed, 480 insertions(+), 144 deletions(-) create mode 100644 ShiftOS-TheRevival/Resources/ico_deletefile.png create mode 100644 ShiftOS-TheRevival/Resources/ico_refresh.png create mode 100644 ShiftOS-TheRevival/Resources/largeico_compress.png create mode 100644 ShiftOS-TheRevival/Resources/largeico_rename.png create mode 100644 ShiftOS-TheRevival/Resources/largeico_uncompress.png 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 0000000000000000000000000000000000000000..17a9af2cbc647443763debabc1e33a1de7b96277 GIT binary patch literal 7236 zcmeI0KWh|07{=cf5sjo0R7_)IV`V2;opRB;!XUv$EDZPo6hsiKLn{j#8%6BxYz3pU587$UKECXcX0KP=MhbmbGCzSaS(KI~|mFsMIE)dj^MqRpP>3bp<+b z>uZD(6dzzhyx1&!=2ETQ}UqukRYoP13H3KfWG>~_TO+mpX;PS zYsm3@9Ft#!sx3>rW(FIBC^(;%?|lP$w=-*PX&&}wz+NDG>QgtA^$ zUoz3D(Kj)08i&9nhFU-KA{gYETtsNtUg zEaL7CEBrP$!Ds^?NPZ zC`K?1sr&G$R7FSaRUL;ZT^!@oMV~M>-ml}70NX3V?=rBPks=;C!68)T-NY2=>P;T7TKLQOCB9R7ef=tEIrh#;y z^V8ZSXin8GkkblxosU7)NoF!A5J4vV=zkDx_AmhqryE5V4GD%=QCO{7_Qh`J;C(1p ztf+cDE`yR(A+0E9b-N%XiO>#o!H|G$2g=)8V7oG)_Ao8M66Y3eWfVQSp!@=pTf)%Z z*5CXT3EoIy&it6aLY+t3!a5nhO+_yl{t1Kb9X9CHI@!VsADR7>B~ pTxhdPAI>h(_~@ScgIWaq@1Xp9{ruOrpGWUeWVpH2|8i^R)jxycIVJ!A literal 0 HcmV?d00001 diff --git a/ShiftOS-TheRevival/Resources/ico_refresh.png b/ShiftOS-TheRevival/Resources/ico_refresh.png new file mode 100644 index 0000000000000000000000000000000000000000..780904e1c91a26aaf666de80e9975752a5af616d GIT binary patch literal 2466 zcmeAS@N?(olHy`uVBq!ia0vp^5+KaM1|%Pp+x`GjoCO|{#S9GG!XV7ZFl!D-g+j7N zkS_y6l_~>6Lo)-z&;LOBB?CjL0RzLU1O^7H84L{K`IF+0x&ifTc)B=-R4_6~a6bRW z`2RmpDGdP&ve}G`jL2LV8{`745-1Qt|;EQG1Ua1SmYz!VZP7^V&gMbY5~EZ8~Q7>TL3IA|Ns9S WEo9XFK literal 0 HcmV?d00001 diff --git a/ShiftOS-TheRevival/Resources/largeico_compress.png b/ShiftOS-TheRevival/Resources/largeico_compress.png new file mode 100644 index 0000000000000000000000000000000000000000..d56bf19c9cd19859d28ebc3804b168f8b07d542b GIT binary patch literal 676 zcmV;V0$crwP)(_`g8%^e{{R4h=>PzAFaQARU;qF*m;eA5Z<1fd zMgRZ;DoI2^RCwC#S=(}iFbE|XKU%&3|C&B@vlEePX6w{xeQ`}B9&&&~+Q!WAgsa0t zuEzjv0Ie?9egUMBUeH5jF9{;fSn z;~q=Q9NHnGP5o>r7l}a5VKV==zL9aRSK~AKsK$f@F4xPf-!lfD$I?b)LXKGsd4PKs zkOwTYBXT$8J^FrGnKbV!VC62$B(>IAme5Rsc@;s6Q!OkmKs`!6aYc?rtaOV;&wE2o zmz^7SVT{VSi@etWY42$D)Uvgl9OGS!kEmcjV@022{w&vM+FkM67X0Ko5lbZ+$! zart>Lqs@=qT3NrnkY73-D~YUktTrzj(_TeD#P7yA>J1|&qDoOsE)8_go{==Q%9fa_ zYK`yBHr)f~dFV9|QL~Y8aM+xbDXR_@z0QV7R+>}PXF95C+gEAv-ltHlxDpW{A{@t& zK7?6aS7euQYMX&c&_t9vCTA$s)`^bG^Y|tw=3+exueRH(dLA7|Ec;W8N=1?2X7!0m z&?g#cwT?>Jit1`+H!H_%E2hWTrgcXez5BlZSo>#X{p`%<#oauXiAyahti+L$tL>&4 zqbpr}R1uwnpAexR^En$nhu;$hw5_BSMrG zr4vtLO3D)!WgCf7F;1?i;-lm(F%e4Q!{e+(DG^V`ZJj{+XuOECl_<5Ix1ZZY zgh*pdz1H8GC!q8uliZ;Wj1D{&cTyG~5hlz=kZTOU_MtE818 ze{IV(!U@wj`Er}C>HCDEiXNU#wL1AYJn5q2#kXpz`jiTD}v0c<6O zevW`>Z(%jQGx0Z^xz0;=Cu`URA8gM3bMC$8&6}BQ$lLqtcNZ5fFQk+f*H)J|GG5c? z?3w&?@AH>O8O}XhefT`3^B43Pqz@l2<=~Yks~h)HdU-Xatv4zCsxp30>BWtder%?6 z^L=7cB8cqfsgzJt9@?c9*Z150lMun;1x6ka!msg*y4LVel9h1uO3LvfWpG^y%r? z5?U%igcoAR8s}nzs*&wJF=6bb7^@{THh|<9o2e$oobR@Ha3hL$*!-4IZ(6cx#vlf` zU#f-Mg^H<1sn5hh)ldt;2j1U4aZm!hCJG|&9BPG)PzobD`8akI(B(6`YfdfH32GqU z8+kr9At%I+oTGf|d}gevg^GYc5n@5~y$LxXw&%yOV;#c1wsrKw;jnd8^c%q!K8^6< z$XCwu*y6w^h9Bz@9`n`C&W?Up=6t>^8Ka-Sd`y&&{OBLmKk}ui`BK6zv^(v1*8Ezi zi;~b;Te@(~JvwXRqMrE_%G1bhX31}^s6^$bt$DR{`T1!*H2+WQ^VO@r#%l;m@2|eT zHmLV;SG{t2aQpPHpL&|o2*F?}PTnzcqc85bF}T`zbMy+9UQ?yGYFHYs1vmQeoZ~Us z)OehJEul{EB5crk*fcEp#Jf;^RUdmew-KuQ1|hP&2pjYUvc=b;zIOijF-Fd@)YmzU zPz7T_X-JH7kH>ljMLvE+_#k=t_22a*BI+h)>D445Ts`6vsTfFH$Ob$nn+-)Q@f2@e z(MXi9Vfr9if)N0U$L`^KO!g#;US4ygP$$dgs=CO?!RLzMJ9dd7=5@rHqt{@Lm1Cwc zWchGF1k;>2wd0`rtDYXz_}tbDA3|T0NQBb^5fRCQh>BvBSKo<`p2iUw6ypqzD4y4l zkM;O1p(^y^acmlCkZzf{Vo%RUaqjzU)znAt#j|Sv|M$(bPo{N`PP_Ru`{jGIs|z5oCK literal 0 HcmV?d00001 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 @@ + + + + +