diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index e9c28a1..9ea241f 100644 --- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb @@ -147,4 +147,11 @@ '>>>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) End Class 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 8e816a4..fdfc3db 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 @@ -24,7 +24,7 @@ Partial Class Uni_FileSkimmer Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Uni_FileSkimmer)) - Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0) + Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0) Me.msn_Options = New System.Windows.Forms.MenuStrip() Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -32,8 +32,12 @@ Partial Class Uni_FileSkimmer Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl_Ribbon = New System.Windows.Forms.Panel() - Me.Button1 = New System.Windows.Forms.Button() + 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() @@ -48,6 +52,7 @@ Partial Class Uni_FileSkimmer Me.txt_AddressBar = New System.Windows.Forms.TextBox() 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.msn_Options.SuspendLayout() Me.pnl_Ribbon.SuspendLayout() Me.pnl_Properties.SuspendLayout() @@ -102,29 +107,69 @@ Partial Class Uni_FileSkimmer 'pnl_Ribbon ' Me.pnl_Ribbon.BackColor = System.Drawing.Color.Silver - Me.pnl_Ribbon.Controls.Add(Me.Button1) + 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, 69) + Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 70) Me.pnl_Ribbon.TabIndex = 1 ' - 'Button1 + 'cmb_Layout ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Font = New System.Drawing.Font("Segoe UI", 7.0!) - Me.Button1.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(142, 0) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(116, 26) - Me.Button1.TabIndex = 0 - Me.Button1.Text = "Rename" - Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText - Me.Button1.UseVisualStyleBackColor = True + Me.cmb_Layout.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + 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.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.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(51, 19) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Layout" ' 'btn_Delete ' @@ -134,13 +179,28 @@ Partial Class Uni_FileSkimmer 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, 69) + 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 @@ -149,7 +209,7 @@ Partial Class Uni_FileSkimmer 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, 69) + 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 @@ -165,9 +225,9 @@ Partial Class Uni_FileSkimmer Me.pnl_Properties.Controls.Add(Me.lbl_filename) Me.pnl_Properties.Controls.Add(Me.lbl_Properties) Me.pnl_Properties.Dock = System.Windows.Forms.DockStyle.Right - Me.pnl_Properties.Location = New System.Drawing.Point(600, 132) + Me.pnl_Properties.Location = New System.Drawing.Point(600, 133) Me.pnl_Properties.Name = "pnl_Properties" - Me.pnl_Properties.Size = New System.Drawing.Size(200, 318) + Me.pnl_Properties.Size = New System.Drawing.Size(200, 317) Me.pnl_Properties.TabIndex = 2 Me.pnl_Properties.Visible = False ' @@ -241,7 +301,7 @@ Partial Class Uni_FileSkimmer Me.pnl_AddressBar.Controls.Add(Me.txt_AddressBar) Me.pnl_AddressBar.Controls.Add(Me.lbl_Address) Me.pnl_AddressBar.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 96) + Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 97) Me.pnl_AddressBar.Name = "pnl_AddressBar" Me.pnl_AddressBar.Size = New System.Drawing.Size(800, 36) Me.pnl_AddressBar.TabIndex = 4 @@ -293,16 +353,31 @@ Partial Class Uni_FileSkimmer Me.lsv_Content.Dock = System.Windows.Forms.DockStyle.Fill Me.lsv_Content.Font = New System.Drawing.Font("Segoe UI", 8.0!) Me.lsv_Content.HideSelection = False - Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1}) + Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem2}) Me.lsv_Content.LargeImageList = Me.iml_icons - Me.lsv_Content.Location = New System.Drawing.Point(0, 132) + Me.lsv_Content.Location = New System.Drawing.Point(0, 133) Me.lsv_Content.MultiSelect = False Me.lsv_Content.Name = "lsv_Content" - Me.lsv_Content.Size = New System.Drawing.Size(600, 318) + Me.lsv_Content.Size = New System.Drawing.Size(600, 317) + Me.lsv_Content.SmallImageList = Me.iml_smallicons Me.lsv_Content.Sorting = System.Windows.Forms.SortOrder.Ascending Me.lsv_Content.TabIndex = 5 Me.lsv_Content.UseCompatibleStateImageBehavior = False ' + 'iml_smallicons + ' + Me.iml_smallicons.ImageStream = CType(resources.GetObject("iml_smallicons.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.iml_smallicons.TransparentColor = System.Drawing.Color.Transparent + Me.iml_smallicons.Images.SetKeyName(0, "ico_folder.bmp") + Me.iml_smallicons.Images.SetKeyName(1, "ico_textfile.bmp") + Me.iml_smallicons.Images.SetKeyName(2, "ico_unknown.bmp") + Me.iml_smallicons.Images.SetKeyName(3, "ico_picture.bmp") + Me.iml_smallicons.Images.SetKeyName(4, "ico_up.bmp") + Me.iml_smallicons.Images.SetKeyName(5, "ico_url.bmp") + Me.iml_smallicons.Images.SetKeyName(6, "ico_video.bmp") + Me.iml_smallicons.Images.SetKeyName(7, "ico_sfp.png") + Me.iml_smallicons.Images.SetKeyName(8, "ico_exe.png") + ' 'Uni_FileSkimmer ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -323,6 +398,7 @@ Partial Class Uni_FileSkimmer Me.msn_Options.ResumeLayout(False) Me.msn_Options.PerformLayout() Me.pnl_Ribbon.ResumeLayout(False) + Me.pnl_Ribbon.PerformLayout() Me.pnl_Properties.ResumeLayout(False) Me.pnl_Properties.PerformLayout() CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit() @@ -355,5 +431,10 @@ Partial Class Uni_FileSkimmer Friend WithEvents btn_Up As Button Friend WithEvents btn_Refresh As Button Friend WithEvents btn_Delete As Button - Friend WithEvents Button1 As Button + Friend WithEvents btn_Rename As Button + Friend WithEvents btn_Properties 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 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 aa2fe9c..231bd82 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 - FwAAAk1TRnQBSQFMAgEBCQEAAUABAAFAAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + FwAAAk1TRnQBSQFMAgEBCQEAAVgBAAFYAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz @@ -229,6 +229,96 @@ AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcCgABfwL/AfwEAAF/BAABHAoA A/8B/AQAAX8EAAEcCQABAQP/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf Bf8DAAX/AfwEAAF/BAABHwX/AwAL + + + + 250, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC6 + EgAAAk1TRnQBSQFMAgEBCQEAARABAAEQAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/8IAAfQV80oAAe8U/wEH + SgAB7xT/AQdKAAHvFP8BB0oAAe8U/wEHSgAB7xT/AQdKAAHvFP8BB0oAAe8U/wEHSgAB7xT/AQdKAAHv + FP8BB0oAAe8U/wEHSgAB7xT/AQcB70kAAe8U/wEHAfJJAAHvFP8BBwHySQAB7xT/AQcB8kkAAe8Q7AEU + AesBFAESAW0B8kkAAe8Q7AEQAW0BEAEVARIB8ksAAfMT/wHySwAB8xP/AfJLAAHzD+wBFAHsARQBbQES + SwAB8w/sARAB7AEQARIBFcUABQcBbQb/ARMBBwHsNAAY7wUABf8B7Ab/ARQCBx4AAe8WAAjsBm0I7AFt + BQAE/wFtAf8BvAX/ARQCBx4AAe8WAAjsARAE/wnsAW0FAAT/AQcB7AEUAf8BBwHsAf8BAAEUAgceAAHv + AQAQ/wUACOwBEAT/CewBbQUABP8BvAHwARQB/wEHAewB/wEAAeoB9AEHBQAW/wEHAgAB7wEAEP8FAAjs + ARAE/wnsAW0FAAb/ARQB/wJtAewBBwL/AQcFABb/AQcCAAHvAQAQ/wUACOwBEAT/CewBbQUABv8BFAH/ + AW0F/wEHBQAI/wEUAfEM/wEHAgAB7wEAEP8FAAjsARAE/wnsAW0FAAb/ARQB/wFtBf8BBwUACP8BFAEA + DP8BBwIAAe8BABD/BQAI7AEQBP8J7AFtBQAB/wXIARQB/wFtBf8BBwUACP8BFAEAAQ4L/wEHAgAB7wEA + EP8FAAjsARAE/wnsAW0FAAH/Ad0C1gH/Ad0B8QHsAd0F/wEHBQAI/wEUAwAB8Qn/AQcCAAHvAQAQ/wUA + COwBEAT/CewBbQUAAf8B1gL/Ad0B1gL/Ad0F/wEHBQAI/wEUBAAB8Qj/AQcCAAHvAQAQ/wUACOwBEAT/ + CewBbQUAAf8B1gL/Ad0B/AL/Ad0F/wEHBQAI/wEUBQAI/wEHAgAB7wEAEP8FAAXsARQDBwT/AfEDBwEU + BOwBbQUAAf8B1gL/Ad0BGQHdAf8B3QX/AQcFAAj/ARQEAAFtCP8BBwIAAe8BABD/BQAG7AESCf8BEgXs + AW0FAAH/AdYC/wHdA/8B3QX/AQcFAAj/ARQDAAFtCf8BBwIAAe8BABDsBQAH7AEQAfMF/wHzARAG7AFt + BQAB/wHWAv8B3QP/Ad0F/wEHBQAI/wEUAgABFAr/AQcCAAHvFgAI7AEQBf8BEAfsAW0FAA7/AQcFAAj/ + ARQBAAEUC/8BBwIAAe8WAAnsARID/wESCOwBbQUADv8BBwUACP8BFAFtDP8BBwIAAe8DAAHsB/8B9wIU + Af8HAArsARIB/wESCewBbQUADv8BBwUACP8B9w3/AQcCAAHvAwAB7Af/AewCAAH/BwAL7AEQCuwBbQUA + Dv8BBwUAFv8BBwIAAe8DAAHsB/8B7AIAAf8DAAESAwAW7AFtBQAO/wEHBQAW/wEHAgAB7wMAAewH/wHs + AgAB/wcACG0BDw7yBQAL/wEAAQcBbQESBAAY8gIAAe8DAAHsC/8HAAgUAfQTAAv/AQAB7QHsUgAL/wEA + AW2wAAHvEwcB7wMAAe8TBwHvGQAY7wIAAe8T/wHvAwAB7xP/Ae8BABjvAQAW7AFtAgAB7wL/AQcO9wL/ + Ae8DAAHvE/8B7wIAFuwBbQEAFuwBbQIAAe8T/wHvAwAB7wj/AuwB8gj/Ae8CABbsAW0BABbsAW0CAAHv + Av8O8gHzAv8B7wMAAe8I/wLsAfII/wHvAgAW7AFtAQAW7AFtAgAB7wL/AfAOBwL/Ae8DAAHvCP8CBwH0 + CP8B7wIAFOwB7wEHAe0BABbsAW0CAAHvE/8B7wMAAe8T/wHvAgAC9wGSDuwB7QEHA/8BBwEAFuwBbQIA + Ae8C/w7sAfcC/wHvAwAB7wj/Ae0B7AHyCP8B7wIABP8B9wzsA/8B8gH/AQcBABbsAW0CAAHvE/8B7wMA + Ae8I/wHtAewB8Aj/Ae8CAAj/AfMF8gHzAv8B8AL/AZIB/wEHAQAW7AFtAgAB7wL/AfAOBwL/Ae8DAAHv + CP8BBwHsAfcI/wHvAgAN/wEHAfAC/wH3AfAB/wHwAgcBABbsAW0CAAHvAv8O8gHzAv8B7wMAAe8I/wHy + AuwBvAf/Ae8CAA7/AZID/wH3Av8CBwEAFuwBbQIAAe8T/wHvAwAB7wn/AbwC7AEHBv8B7wIADv8B8gHs + Av8B9wL/AewBBwEAFuwBbQIAAe8C/wEHDvcC/wHvAwAB7wr/AbwC7AHvBf8B7wIAC/8B8gGSAfAB/wHy + Ae8E/wH0AQcBABbsAW0CAAHvE/8B7wMAAe8L/wHwAuwB8QT/Ae8CAA3/AfcD/wHyAe8D7AHtAQAW7AFt + AgAB7wL/DvcBBwL/Ae8DAAHvDP8BBwHsAZIE/wHvAgAJ/wHvAfMC/wHwAZIB/wHzBewBbQEAFuwBbQIA + Ae8T/wHvAwAB7wP/AfQB7wHsAfMF/wHyAuwE/wHvAgAK/wLsBP8G7AFtAQAW7AFtAgAB7wL/AfMO8gL/ + Ae8DAAHvBP8C7AHwBf8B8ALsBP8B7wIAC/8B8gGSAv8B9wbsAW0BABbsAW0CAAHvAv8OBwHwAv8B7wMA + Ae8E/wEHAewB7QHzA/8B8wHtAewBBwT/Ae8CAAf/AgcB9wL/AfABBwH/B+wBbQEAFuwBbQIAAe8T/wHv + AwAB7wT/AfQB7QLsAbwB8gG8AuwB7QH0BP8B7wIACf8BBwTyAf8H7AFtAQAW7AFtAgAB7wL/AfcO7AL/ + Ae8DAAHvBv8BkgXsAZIG/wHvAgAP/wfsAW0BAAhtAQ8O8gIAAe8T/wHvAwAB7wf/AfMD8gHzB/8B7wIA + EP8G7AFtAQAIFAH0EAAB7wL/DgcB8AL/Ae8DAAHvE/8B7wEAGO8aAAHvE/8B7wMAAe8T/wHvMwAB7xMA + Ae8DAAHvEwAB7xkAAUIBTQE+BwABPgMAASgDAAFgAwABSAMAAQEBAAEBBQABYAEDFgAD/wEAA/8JAAP/ + CQABgAEAAQEJAAGAAQABAQkAAYABAAEBCQABgAEAAQEJAAGAAQABAQkAAYABAAEBCQABgAEAAQEJAAGA + AQABAQkAAYABAAEBCQABgAEAAQEJAAGAAQABAQkAAYALAAGACwABgAsAAYALAAGACwABgAsAAeALAAHg + CwAB4AsAAeALAAP/CQAD/wHwAQABDwb/AwAB8AEAAQ8D/wHAAQABAwMAAfABAAEPA/8BwAEAAQMDAAHw + AQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABAwMAAfABAAEPAwABwAEAAQMDAAHwAQABDwMAAcABAAED + AwAB8AEAAQ8DAAHAAQABAwMAAfABAAEPAwABwAEAAQMDAAHwAQABDwMAAcABAAEDAwAB8AEAAQ8DAAHA + AQABAwMAAfABAAEPAwABwAEAAQMDAAHwAQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABAwMAAfABAAEP + AwABwAEAAQMDAAHwAQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABAwMAAfABAAEPAwABwAEAAQMDAAHw + AQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABBwMAAfABAAEPAwABwAEAAQ8BAAE/Af8B8AEAAR8J/wHw + AQABPwn/AfABAAF/Cf8BwAEAAQEBwAEAAQED/wMAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHA + AQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEB + AcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEA + AQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYA + AcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEA + AQEBwAEAAQEEAAE/Af8BwAEAAQEBwAEAAQEDAAP/AcABAAEBAcABAAEBBv8BwAEAAQEBwAEAAQED/ws= \ No newline at end of file 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 75d97f9..1095248 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb @@ -17,8 +17,8 @@ Public Class Uni_FileSkimmer End Sub Private Sub CheckAvailable() - btn_NewFolder.Text = "???" - btn_NewFolder.Image = Nothing + 'btn_NewFolder.Text = "???" + 'btn_NewFolder.Image = Nothing End Sub Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click @@ -33,15 +33,36 @@ Public Class Uni_FileSkimmer Dispose() 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" + lsv_Content.View = View.LargeIcon + Case "Small Icons" + lsv_Content.View = View.SmallIcon + Case "List" + lsv_Content.View = View.List + End Select + End Sub + + Private Sub cmb_Layout_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Layout.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(cmb_Layout.GetItemText(cmb_Layout.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + Private Sub btn_Up_Click(sender As Object, e As EventArgs) Handles btn_Up.Click Try - If txt_AddressBar.Text = "!\" Or txt_AddressBar.Text = "!\" Then + If txt_AddressBar.Text = "!\" Or txt_AddressBar.Text = "!" Then Else Dim directoryInfo As System.IO.DirectoryInfo - MsgBox(CurrentDir.Replace("!\", Strings.OnceInfo(1) & "\")) directoryInfo = System.IO.Directory.GetParent(CurrentDir.Replace("!\", Strings.OnceInfo(1) & "\")) - MsgBox(directoryInfo.FullName) 'Dim endloop As Boolean = False 'lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1) @@ -60,7 +81,7 @@ Public Class Uni_FileSkimmer ' End Try 'End While Dim DirFullName As String = directoryInfo.FullName - txt_AddressBar.Text = DirFullName.Replace(Strings.OnceInfo(1), "!\") + txt_AddressBar.Text = DirFullName.Replace(Strings.OnceInfo(1), "!") CurrentDir = DirFullName ShowContent() End If @@ -73,6 +94,24 @@ Public Class Uni_FileSkimmer ShowContent() End Sub + Private Sub txt_AddressBar_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_AddressBar.KeyDown + If e.KeyCode = Keys.Enter Then + If txt_AddressBar.Text Like "!*" Then + Dim BackupCurrentDir As String = txt_AddressBar.Text + BackupCurrentDir = BackupCurrentDir.Replace("!", Strings.OnceInfo(1)) + If BackupCurrentDir Like "*.*" Then + + Else + If Directory.Exists(BackupCurrentDir) = True Then + txt_AddressBar.Text = BackupCurrentDir.Replace(Strings.OnceInfo(1), "!") + CurrentDir = BackupCurrentDir + ShowContent() + End If + End If + End If + End If + End Sub + Private Sub lsv_Content_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseDoubleClick If txt_AddressBar.Text Like "*\" Then Else @@ -87,16 +126,25 @@ Public Class Uni_FileSkimmer If pnl_Properties.Visible = True Then Dim IsFile As Boolean = False If lsv_Content.SelectedItems(0).Text = Nothing Then - + pic_Icon.Image = Nothing + lbl_filename.Visible = False + lbl_filetype.Visible = False + lbl_filesize.Visible = False Else + lbl_filename.Visible = True + lbl_filetype.Visible = True If lsv_Content.SelectedItems(0).Text Like "*.txt" Then pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile lbl_filetype.Text = "Text 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" + IsFile = True End If If IsFile = True Then - lbl_filesize.Visible = False - Dim filinf As New IO.FileInfo(CurrentDir & lsv_Content.SelectedItems(0).Text) + lbl_filesize.Visible = True + Dim filinf As New IO.FileInfo(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text) Dim filsize As Long = filinf.Length / 1024 Dim thesize As Integer = 1 Do @@ -116,6 +164,7 @@ Public Class Uni_FileSkimmer lbl_filesize.Text = filsize & " GB" End Select Else + pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder lbl_filetype.Text = "Folder" lbl_filesize.Visible = False End If @@ -250,7 +299,7 @@ Public Class Uni_FileSkimmer End If End Function - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click, Button1.Click + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click DeleteFile(CurrentDir & lsv_Content.SelectedItems(0).Text) End Sub End Class \ No newline at end of file