diff --git a/VECTO/File Browser/FileBrowserDialog.designer.vb b/VECTO/File Browser/FileBrowserDialog.designer.vb
index a9fcb89c3dbcd99c861c97a92dae1d804ef26d61..aa35f198093775bf4c1ce29c296b378e8776763e 100644
--- a/VECTO/File Browser/FileBrowserDialog.designer.vb
+++ b/VECTO/File Browser/FileBrowserDialog.designer.vb
@@ -35,397 +35,419 @@ Partial Class FileBrowserDialog
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<DebuggerStepThrough()> _
Private Sub InitializeComponent()
- Me.components = New System.ComponentModel.Container()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FileBrowserDialog))
- Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.ButtonNewDir = New System.Windows.Forms.Button()
- Me.ButtonDesktop = New System.Windows.Forms.Button()
- Me.ButtonHisFolder = New System.Windows.Forms.Button()
- Me.ButtonFolderBack = New System.Windows.Forms.Button()
- Me.TextBoxSearchFolder = New System.Windows.Forms.TextBox()
- Me.ListViewFolder = New System.Windows.Forms.ListView()
- Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
- Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
- Me.ComboBoxDrive = New System.Windows.Forms.ComboBox()
- Me.Label5 = New System.Windows.Forms.Label()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.ButtonAll = New System.Windows.Forms.Button()
- Me.ComboBoxExt = New System.Windows.Forms.ComboBox()
- Me.ButtonHisFile = New System.Windows.Forms.Button()
- Me.TextBoxSearchFile = New System.Windows.Forms.TextBox()
- Me.ListViewFiles = New System.Windows.Forms.ListView()
- Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
- Me.ContextMenuFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
- Me.RenameFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.DeleteFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.TextBoxPath = New System.Windows.Forms.TextBox()
- Me.ContextMenuHisFolder = New System.Windows.Forms.ContextMenuStrip(Me.components)
- Me.ContextMenuHisFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
- Me.ButtonOK = New System.Windows.Forms.Button()
- Me.ButtonCancel = New System.Windows.Forms.Button()
- Me.TextBoxCurrent = New System.Windows.Forms.TextBox()
- Me.Label3 = New System.Windows.Forms.Label()
- Me.Label4 = New System.Windows.Forms.Label()
- Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
- CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit
- Me.SplitContainer1.Panel1.SuspendLayout
- Me.SplitContainer1.Panel2.SuspendLayout
- Me.SplitContainer1.SuspendLayout
- Me.ContextMenuFile.SuspendLayout
- Me.SuspendLayout
- '
- 'SplitContainer1
- '
- Me.SplitContainer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FileBrowserDialog))
+ Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+ Me.ListViewFolder = New System.Windows.Forms.ListView()
+ Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
+ Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.ButtonNewDir = New System.Windows.Forms.Button()
+ Me.ButtonDesktop = New System.Windows.Forms.Button()
+ Me.ButtonHisFolder = New System.Windows.Forms.Button()
+ Me.ButtonFolderBack = New System.Windows.Forms.Button()
+ Me.TextBoxSearchFolder = New System.Windows.Forms.TextBox()
+ Me.ComboBoxDrive = New System.Windows.Forms.ComboBox()
+ Me.ListViewFiles = New System.Windows.Forms.ListView()
+ Me.ColumnFileName = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
+ Me.ColumnType = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
+ Me.ColumnSize = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
+ Me.ColumnChangedOn = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
+ Me.ContextMenuFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.RenameFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.DeleteFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ButtonAll = New System.Windows.Forms.Button()
+ Me.ComboBoxExt = New System.Windows.Forms.ComboBox()
+ Me.ButtonHisFile = New System.Windows.Forms.Button()
+ Me.TextBoxSearchFile = New System.Windows.Forms.TextBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.TextBoxPath = New System.Windows.Forms.TextBox()
+ Me.ContextMenuHisFolder = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.ContextMenuHisFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.ButtonOK = New System.Windows.Forms.Button()
+ Me.ButtonCancel = New System.Windows.Forms.Button()
+ Me.TextBoxCurrent = New System.Windows.Forms.TextBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+ CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit
+ Me.SplitContainer1.Panel1.SuspendLayout
+ Me.SplitContainer1.Panel2.SuspendLayout
+ Me.SplitContainer1.SuspendLayout
+ Me.ContextMenuFile.SuspendLayout
+ Me.SuspendLayout
+ '
+ 'SplitContainer1
+ '
+ Me.SplitContainer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
- Me.SplitContainer1.Location = New System.Drawing.Point(0, 46)
- Me.SplitContainer1.Name = "SplitContainer1"
- '
- 'SplitContainer1.Panel1
- '
- Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
- Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonNewDir)
- Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonDesktop)
- Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonHisFolder)
- Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonFolderBack)
- Me.SplitContainer1.Panel1.Controls.Add(Me.TextBoxSearchFolder)
- Me.SplitContainer1.Panel1.Controls.Add(Me.ListViewFolder)
- Me.SplitContainer1.Panel1.Controls.Add(Me.ComboBoxDrive)
- '
- 'SplitContainer1.Panel2
- '
- Me.SplitContainer1.Panel2.Controls.Add(Me.Label5)
- Me.SplitContainer1.Panel2.Controls.Add(Me.Label2)
- Me.SplitContainer1.Panel2.Controls.Add(Me.ButtonAll)
- Me.SplitContainer1.Panel2.Controls.Add(Me.ComboBoxExt)
- Me.SplitContainer1.Panel2.Controls.Add(Me.ButtonHisFile)
- Me.SplitContainer1.Panel2.Controls.Add(Me.TextBoxSearchFile)
- Me.SplitContainer1.Panel2.Controls.Add(Me.ListViewFiles)
- Me.SplitContainer1.Size = New System.Drawing.Size(663, 308)
- Me.SplitContainer1.SplitterDistance = 329
- Me.SplitContainer1.TabIndex = 5
- Me.SplitContainer1.TabStop = false
- '
- 'Label1
- '
- Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
- Me.Label1.AutoSize = true
- Me.Label1.Location = New System.Drawing.Point(3, 284)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(32, 13)
- Me.Label1.TabIndex = 28
- Me.Label1.Text = "Filter:"
- '
- 'ButtonNewDir
- '
- Me.ButtonNewDir.Image = Global.TUGraz.VECTO.My.Resources.Resources.new_dir
- Me.ButtonNewDir.Location = New System.Drawing.Point(119, 1)
- Me.ButtonNewDir.Name = "ButtonNewDir"
- Me.ButtonNewDir.Size = New System.Drawing.Size(26, 25)
- Me.ButtonNewDir.TabIndex = 21
- Me.ButtonNewDir.TabStop = false
- Me.ToolTip1.SetToolTip(Me.ButtonNewDir, "Create new Directory")
- Me.ButtonNewDir.UseVisualStyleBackColor = true
- '
- 'ButtonDesktop
- '
- Me.ButtonDesktop.Image = Global.TUGraz.VECTO.My.Resources.Resources.desktop
- Me.ButtonDesktop.Location = New System.Drawing.Point(90, 1)
- Me.ButtonDesktop.Name = "ButtonDesktop"
- Me.ButtonDesktop.Size = New System.Drawing.Size(26, 25)
- Me.ButtonDesktop.TabIndex = 22
- Me.ButtonDesktop.TabStop = false
- Me.ToolTip1.SetToolTip(Me.ButtonDesktop, "Go to Desktop")
- Me.ButtonDesktop.UseVisualStyleBackColor = true
- '
- 'ButtonHisFolder
- '
- Me.ButtonHisFolder.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonHisFolder.Image = Global.TUGraz.VECTO.My.Resources.Resources.file_history
- Me.ButtonHisFolder.Location = New System.Drawing.Point(298, 1)
- Me.ButtonHisFolder.Name = "ButtonHisFolder"
- Me.ButtonHisFolder.Size = New System.Drawing.Size(26, 25)
- Me.ButtonHisFolder.TabIndex = 24
- Me.ButtonHisFolder.TabStop = false
- Me.ToolTip1.SetToolTip(Me.ButtonHisFolder, "History / Favorites")
- Me.ButtonHisFolder.UseVisualStyleBackColor = true
- '
- 'ButtonFolderBack
- '
- Me.ButtonFolderBack.Image = CType(resources.GetObject("ButtonFolderBack.Image"),System.Drawing.Image)
- Me.ButtonFolderBack.Location = New System.Drawing.Point(61, 1)
- Me.ButtonFolderBack.Name = "ButtonFolderBack"
- Me.ButtonFolderBack.Size = New System.Drawing.Size(26, 25)
- Me.ButtonFolderBack.TabIndex = 20
- Me.ButtonFolderBack.TabStop = false
- Me.ToolTip1.SetToolTip(Me.ButtonFolderBack, "Move up one directory")
- Me.ButtonFolderBack.UseVisualStyleBackColor = true
- '
- 'TextBoxSearchFolder
- '
- Me.TextBoxSearchFolder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxSearchFolder.Location = New System.Drawing.Point(37, 281)
- Me.TextBoxSearchFolder.Name = "TextBoxSearchFolder"
- Me.TextBoxSearchFolder.Size = New System.Drawing.Size(288, 20)
- Me.TextBoxSearchFolder.TabIndex = 15
- Me.ToolTip1.SetToolTip(Me.TextBoxSearchFolder, "Filter the directories")
- '
- 'ListViewFolder
- '
- Me.ListViewFolder.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+ Me.SplitContainer1.Location = New System.Drawing.Point(-1, 46)
+ Me.SplitContainer1.Margin = New System.Windows.Forms.Padding(0)
+ Me.SplitContainer1.Name = "SplitContainer1"
+ '
+ 'SplitContainer1.Panel1
+ '
+ Me.SplitContainer1.Panel1.Controls.Add(Me.ListViewFolder)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonNewDir)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonDesktop)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonHisFolder)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonFolderBack)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.TextBoxSearchFolder)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.ComboBoxDrive)
+ Me.SplitContainer1.Panel1MinSize = 179
+ '
+ 'SplitContainer1.Panel2
+ '
+ Me.SplitContainer1.Panel2.Controls.Add(Me.ListViewFiles)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.ButtonAll)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.ComboBoxExt)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.ButtonHisFile)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.TextBoxSearchFile)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.Label5)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.Label2)
+ Me.SplitContainer1.Size = New System.Drawing.Size(713, 273)
+ Me.SplitContainer1.SplitterDistance = 179
+ Me.SplitContainer1.TabIndex = 5
+ Me.SplitContainer1.TabStop = false
+ '
+ 'ListViewFolder
+ '
+ Me.ListViewFolder.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ListViewFolder.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3})
- Me.ListViewFolder.FullRowSelect = true
- Me.ListViewFolder.GridLines = true
- Me.ListViewFolder.HideSelection = false
- Me.ListViewFolder.Location = New System.Drawing.Point(-2, 27)
- Me.ListViewFolder.MultiSelect = false
- Me.ListViewFolder.Name = "ListViewFolder"
- Me.ListViewFolder.Size = New System.Drawing.Size(327, 253)
- Me.ListViewFolder.SmallImageList = Me.ImageList1
- Me.ListViewFolder.TabIndex = 10
- Me.ListViewFolder.UseCompatibleStateImageBehavior = false
- Me.ListViewFolder.View = System.Windows.Forms.View.Details
- '
- 'ColumnHeader3
- '
- Me.ColumnHeader3.Text = "Sub-Directories:"
- Me.ColumnHeader3.Width = 368
- '
- 'ImageList1
- '
- Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
- Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
- Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
- '
- 'ComboBoxDrive
- '
- Me.ComboBoxDrive.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
- Me.ComboBoxDrive.FormattingEnabled = true
- Me.ComboBoxDrive.Location = New System.Drawing.Point(3, 3)
- Me.ComboBoxDrive.Name = "ComboBoxDrive"
- Me.ComboBoxDrive.Size = New System.Drawing.Size(54, 21)
- Me.ComboBoxDrive.TabIndex = 5
- '
- 'Label5
- '
- Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.Label5.AutoSize = true
- Me.Label5.Location = New System.Drawing.Point(256, 284)
- Me.Label5.Name = "Label5"
- Me.Label5.Size = New System.Drawing.Size(10, 13)
- Me.Label5.TabIndex = 30
- Me.Label5.Text = "."
- '
- 'Label2
- '
- Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
- Me.Label2.AutoSize = true
- Me.Label2.Location = New System.Drawing.Point(3, 284)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(32, 13)
- Me.Label2.TabIndex = 29
- Me.Label2.Text = "Filter:"
- '
- 'ButtonAll
- '
- Me.ButtonAll.Location = New System.Drawing.Point(2, 2)
- Me.ButtonAll.Name = "ButtonAll"
- Me.ButtonAll.Size = New System.Drawing.Size(71, 23)
- Me.ButtonAll.TabIndex = 19
- Me.ButtonAll.Text = "Select All"
- Me.ToolTip1.SetToolTip(Me.ButtonAll, "Select all shown files")
- Me.ButtonAll.UseVisualStyleBackColor = true
- '
- 'ComboBoxExt
- '
- Me.ComboBoxExt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ComboBoxExt.FormattingEnabled = true
- Me.ComboBoxExt.Location = New System.Drawing.Point(268, 281)
- Me.ComboBoxExt.Name = "ComboBoxExt"
- Me.ComboBoxExt.Size = New System.Drawing.Size(57, 21)
- Me.ComboBoxExt.TabIndex = 20
- Me.ToolTip1.SetToolTip(Me.ComboBoxExt, "Filter the file type")
- '
- 'ButtonHisFile
- '
- Me.ButtonHisFile.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonHisFile.Image = Global.TUGraz.VECTO.My.Resources.Resources.file_history
- Me.ButtonHisFile.Location = New System.Drawing.Point(299, 1)
- Me.ButtonHisFile.Name = "ButtonHisFile"
- Me.ButtonHisFile.Size = New System.Drawing.Size(26, 25)
- Me.ButtonHisFile.TabIndex = 24
- Me.ButtonHisFile.TabStop = false
- Me.ToolTip1.SetToolTip(Me.ButtonHisFile, "History")
- Me.ButtonHisFile.UseVisualStyleBackColor = true
- '
- 'TextBoxSearchFile
- '
- Me.TextBoxSearchFile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+ Me.ListViewFolder.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3})
+ Me.ListViewFolder.FullRowSelect = true
+ Me.ListViewFolder.GridLines = true
+ Me.ListViewFolder.HideSelection = false
+ Me.ListViewFolder.Location = New System.Drawing.Point(-1, 22)
+ Me.ListViewFolder.MultiSelect = false
+ Me.ListViewFolder.Name = "ListViewFolder"
+ Me.ListViewFolder.Size = New System.Drawing.Size(179, 232)
+ Me.ListViewFolder.SmallImageList = Me.ImageList1
+ Me.ListViewFolder.TabIndex = 10
+ Me.ListViewFolder.UseCompatibleStateImageBehavior = false
+ Me.ListViewFolder.View = System.Windows.Forms.View.Details
+ '
+ 'ColumnHeader3
+ '
+ Me.ColumnHeader3.Text = "Sub-Directories:"
+ Me.ColumnHeader3.Width = 368
+ '
+ 'ImageList1
+ '
+ Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
+ Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
+ Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+ '
+ 'Label1
+ '
+ Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
+ Me.Label1.AutoSize = true
+ Me.Label1.Location = New System.Drawing.Point(2, 257)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(32, 13)
+ Me.Label1.TabIndex = 28
+ Me.Label1.Text = "Filter:"
+ '
+ 'ButtonNewDir
+ '
+ Me.ButtonNewDir.Image = Global.TUGraz.VECTO.My.Resources.Resources.new_dir
+ Me.ButtonNewDir.Location = New System.Drawing.Point(103, -2)
+ Me.ButtonNewDir.Name = "ButtonNewDir"
+ Me.ButtonNewDir.Size = New System.Drawing.Size(26, 25)
+ Me.ButtonNewDir.TabIndex = 21
+ Me.ButtonNewDir.TabStop = false
+ Me.ToolTip1.SetToolTip(Me.ButtonNewDir, "Create new Directory")
+ Me.ButtonNewDir.UseVisualStyleBackColor = true
+ '
+ 'ButtonDesktop
+ '
+ Me.ButtonDesktop.Image = Global.TUGraz.VECTO.My.Resources.Resources.desktop
+ Me.ButtonDesktop.Location = New System.Drawing.Point(78, -2)
+ Me.ButtonDesktop.Name = "ButtonDesktop"
+ Me.ButtonDesktop.Size = New System.Drawing.Size(26, 25)
+ Me.ButtonDesktop.TabIndex = 22
+ Me.ButtonDesktop.TabStop = false
+ Me.ToolTip1.SetToolTip(Me.ButtonDesktop, "Go to Desktop")
+ Me.ButtonDesktop.UseVisualStyleBackColor = true
+ '
+ 'ButtonHisFolder
+ '
+ Me.ButtonHisFolder.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonHisFolder.Image = Global.TUGraz.VECTO.My.Resources.Resources.file_history
+ Me.ButtonHisFolder.Location = New System.Drawing.Point(153, -2)
+ Me.ButtonHisFolder.Name = "ButtonHisFolder"
+ Me.ButtonHisFolder.Size = New System.Drawing.Size(26, 25)
+ Me.ButtonHisFolder.TabIndex = 24
+ Me.ButtonHisFolder.TabStop = false
+ Me.ToolTip1.SetToolTip(Me.ButtonHisFolder, "History / Favorites")
+ Me.ButtonHisFolder.UseVisualStyleBackColor = true
+ '
+ 'ButtonFolderBack
+ '
+ Me.ButtonFolderBack.Image = CType(resources.GetObject("ButtonFolderBack.Image"),System.Drawing.Image)
+ Me.ButtonFolderBack.Location = New System.Drawing.Point(53, -2)
+ Me.ButtonFolderBack.Name = "ButtonFolderBack"
+ Me.ButtonFolderBack.Size = New System.Drawing.Size(26, 25)
+ Me.ButtonFolderBack.TabIndex = 20
+ Me.ButtonFolderBack.TabStop = false
+ Me.ToolTip1.SetToolTip(Me.ButtonFolderBack, "Move up one directory")
+ Me.ButtonFolderBack.UseVisualStyleBackColor = true
+ '
+ 'TextBoxSearchFolder
+ '
+ Me.TextBoxSearchFolder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxSearchFile.Location = New System.Drawing.Point(36, 281)
- Me.TextBoxSearchFile.Name = "TextBoxSearchFile"
- Me.TextBoxSearchFile.Size = New System.Drawing.Size(218, 20)
- Me.TextBoxSearchFile.TabIndex = 15
- Me.ToolTip1.SetToolTip(Me.TextBoxSearchFile, "Filter the files")
- '
- 'ListViewFiles
- '
- Me.ListViewFiles.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Me.TextBoxSearchFolder.Location = New System.Drawing.Point(35, 252)
+ Me.TextBoxSearchFolder.Name = "TextBoxSearchFolder"
+ Me.TextBoxSearchFolder.Size = New System.Drawing.Size(143, 20)
+ Me.TextBoxSearchFolder.TabIndex = 15
+ Me.ToolTip1.SetToolTip(Me.TextBoxSearchFolder, "Filter the directories")
+ '
+ 'ComboBoxDrive
+ '
+ Me.ComboBoxDrive.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.ComboBoxDrive.Font = New System.Drawing.Font("Segoe UI", 11!)
+ Me.ComboBoxDrive.FormattingEnabled = true
+ Me.ComboBoxDrive.Location = New System.Drawing.Point(0, -1)
+ Me.ComboBoxDrive.Name = "ComboBoxDrive"
+ Me.ComboBoxDrive.Size = New System.Drawing.Size(54, 28)
+ Me.ComboBoxDrive.TabIndex = 5
+ '
+ 'ListViewFiles
+ '
+ Me.ListViewFiles.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ListViewFiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
- Me.ListViewFiles.ContextMenuStrip = Me.ContextMenuFile
- Me.ListViewFiles.FullRowSelect = true
- Me.ListViewFiles.GridLines = true
- Me.ListViewFiles.HideSelection = false
- Me.ListViewFiles.Location = New System.Drawing.Point(0, 27)
- Me.ListViewFiles.Name = "ListViewFiles"
- Me.ListViewFiles.Size = New System.Drawing.Size(328, 253)
- Me.ListViewFiles.SmallImageList = Me.ImageList1
- Me.ListViewFiles.TabIndex = 10
- Me.ListViewFiles.UseCompatibleStateImageBehavior = false
- Me.ListViewFiles.View = System.Windows.Forms.View.Details
- '
- 'ColumnHeader1
- '
- Me.ColumnHeader1.Text = "Files:"
- Me.ColumnHeader1.Width = 367
- '
- 'ContextMenuFile
- '
- Me.ContextMenuFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RenameFileToolStripMenuItem, Me.DeleteFileToolStripMenuItem})
- Me.ContextMenuFile.Name = "ContextMenuFile"
- Me.ContextMenuFile.Size = New System.Drawing.Size(148, 48)
- '
- 'RenameFileToolStripMenuItem
- '
- Me.RenameFileToolStripMenuItem.Name = "RenameFileToolStripMenuItem"
- Me.RenameFileToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
- Me.RenameFileToolStripMenuItem.Text = "Rename File..."
- '
- 'DeleteFileToolStripMenuItem
- '
- Me.DeleteFileToolStripMenuItem.Name = "DeleteFileToolStripMenuItem"
- Me.DeleteFileToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
- Me.DeleteFileToolStripMenuItem.Text = "Delete File..."
- '
- 'TextBoxPath
- '
- Me.TextBoxPath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+ Me.ListViewFiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnFileName, Me.ColumnType, Me.ColumnSize, Me.ColumnChangedOn})
+ Me.ListViewFiles.ContextMenuStrip = Me.ContextMenuFile
+ Me.ListViewFiles.FullRowSelect = true
+ Me.ListViewFiles.GridLines = true
+ Me.ListViewFiles.HideSelection = false
+ Me.ListViewFiles.Location = New System.Drawing.Point(-1, 22)
+ Me.ListViewFiles.Name = "ListViewFiles"
+ Me.ListViewFiles.Size = New System.Drawing.Size(530, 232)
+ Me.ListViewFiles.SmallImageList = Me.ImageList1
+ Me.ListViewFiles.TabIndex = 10
+ Me.ListViewFiles.UseCompatibleStateImageBehavior = false
+ Me.ListViewFiles.View = System.Windows.Forms.View.Details
+ '
+ 'ColumnFileName
+ '
+ Me.ColumnFileName.Text = "Files:"
+ Me.ColumnFileName.Width = 191
+ '
+ 'ColumnType
+ '
+ Me.ColumnType.Text = "Type"
+ '
+ 'ColumnSize
+ '
+ Me.ColumnSize.Text = "Size"
+ Me.ColumnSize.Width = 48
+ '
+ 'ColumnChangedOn
+ '
+ Me.ColumnChangedOn.Text = "Changed on"
+ Me.ColumnChangedOn.Width = 42
+ '
+ 'ContextMenuFile
+ '
+ Me.ContextMenuFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RenameFileToolStripMenuItem, Me.DeleteFileToolStripMenuItem})
+ Me.ContextMenuFile.Name = "ContextMenuFile"
+ Me.ContextMenuFile.Size = New System.Drawing.Size(148, 48)
+ '
+ 'RenameFileToolStripMenuItem
+ '
+ Me.RenameFileToolStripMenuItem.Name = "RenameFileToolStripMenuItem"
+ Me.RenameFileToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
+ Me.RenameFileToolStripMenuItem.Text = "Rename File..."
+ '
+ 'DeleteFileToolStripMenuItem
+ '
+ Me.DeleteFileToolStripMenuItem.Name = "DeleteFileToolStripMenuItem"
+ Me.DeleteFileToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
+ Me.DeleteFileToolStripMenuItem.Text = "Delete File..."
+ '
+ 'Label2
+ '
+ Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
+ Me.Label2.AutoSize = true
+ Me.Label2.Location = New System.Drawing.Point(2, 257)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(32, 13)
+ Me.Label2.TabIndex = 29
+ Me.Label2.Text = "Filter:"
+ '
+ 'ButtonAll
+ '
+ Me.ButtonAll.Location = New System.Drawing.Point(-2, -2)
+ Me.ButtonAll.Name = "ButtonAll"
+ Me.ButtonAll.Size = New System.Drawing.Size(71, 25)
+ Me.ButtonAll.TabIndex = 19
+ Me.ButtonAll.Text = "Select All"
+ Me.ToolTip1.SetToolTip(Me.ButtonAll, "Select all shown files")
+ Me.ButtonAll.UseVisualStyleBackColor = true
+ '
+ 'ComboBoxExt
+ '
+ Me.ComboBoxExt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ComboBoxExt.FormattingEnabled = true
+ Me.ComboBoxExt.Location = New System.Drawing.Point(433, 252)
+ Me.ComboBoxExt.Name = "ComboBoxExt"
+ Me.ComboBoxExt.Size = New System.Drawing.Size(96, 21)
+ Me.ComboBoxExt.TabIndex = 20
+ Me.ToolTip1.SetToolTip(Me.ComboBoxExt, "Filter the file type")
+ '
+ 'ButtonHisFile
+ '
+ Me.ButtonHisFile.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonHisFile.Image = Global.TUGraz.VECTO.My.Resources.Resources.file_history
+ Me.ButtonHisFile.Location = New System.Drawing.Point(504, -2)
+ Me.ButtonHisFile.Name = "ButtonHisFile"
+ Me.ButtonHisFile.Size = New System.Drawing.Size(26, 25)
+ Me.ButtonHisFile.TabIndex = 24
+ Me.ButtonHisFile.TabStop = false
+ Me.ToolTip1.SetToolTip(Me.ButtonHisFile, "History")
+ Me.ButtonHisFile.UseVisualStyleBackColor = true
+ '
+ 'TextBoxSearchFile
+ '
+ Me.TextBoxSearchFile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.TextBoxSearchFile.Location = New System.Drawing.Point(33, 252)
+ Me.TextBoxSearchFile.Name = "TextBoxSearchFile"
+ Me.TextBoxSearchFile.Size = New System.Drawing.Size(389, 20)
+ Me.TextBoxSearchFile.TabIndex = 15
+ Me.ToolTip1.SetToolTip(Me.TextBoxSearchFile, "Filter the files")
+ '
+ 'Label5
+ '
+ Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.Label5.AutoSize = true
+ Me.Label5.Location = New System.Drawing.Point(423, 257)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(10, 13)
+ Me.Label5.TabIndex = 30
+ Me.Label5.Text = "."
+ '
+ 'TextBoxPath
+ '
+ Me.TextBoxPath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxPath.Location = New System.Drawing.Point(47, 370)
- Me.TextBoxPath.Name = "TextBoxPath"
- Me.TextBoxPath.Size = New System.Drawing.Size(609, 20)
- Me.TextBoxPath.TabIndex = 15
- '
- 'ContextMenuHisFolder
- '
- Me.ContextMenuHisFolder.Name = "ContextMenuFolderHis"
- Me.ContextMenuHisFolder.Size = New System.Drawing.Size(61, 4)
- '
- 'ContextMenuHisFile
- '
- Me.ContextMenuHisFile.Name = "ContextMenuFileHis"
- Me.ContextMenuHisFile.Size = New System.Drawing.Size(61, 4)
- '
- 'ButtonOK
- '
- Me.ButtonOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonOK.DialogResult = System.Windows.Forms.DialogResult.OK
- Me.ButtonOK.Location = New System.Drawing.Point(503, 399)
- Me.ButtonOK.Name = "ButtonOK"
- Me.ButtonOK.Size = New System.Drawing.Size(75, 23)
- Me.ButtonOK.TabIndex = 20
- Me.ButtonOK.TabStop = false
- Me.ButtonOK.Text = "OK"
- Me.ButtonOK.UseVisualStyleBackColor = true
- '
- 'ButtonCancel
- '
- Me.ButtonCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
- Me.ButtonCancel.Location = New System.Drawing.Point(581, 399)
- Me.ButtonCancel.Name = "ButtonCancel"
- Me.ButtonCancel.Size = New System.Drawing.Size(75, 23)
- Me.ButtonCancel.TabIndex = 25
- Me.ButtonCancel.TabStop = false
- Me.ButtonCancel.Text = "Cancel"
- Me.ButtonCancel.UseVisualStyleBackColor = true
- '
- 'TextBoxCurrent
- '
- Me.TextBoxCurrent.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Me.TextBoxPath.Font = New System.Drawing.Font("Segoe UI", 11!)
+ Me.TextBoxPath.Location = New System.Drawing.Point(46, 329)
+ Me.TextBoxPath.Name = "TextBoxPath"
+ Me.TextBoxPath.Size = New System.Drawing.Size(666, 27)
+ Me.TextBoxPath.TabIndex = 15
+ '
+ 'ContextMenuHisFolder
+ '
+ Me.ContextMenuHisFolder.Name = "ContextMenuFolderHis"
+ Me.ContextMenuHisFolder.Size = New System.Drawing.Size(61, 4)
+ '
+ 'ContextMenuHisFile
+ '
+ Me.ContextMenuHisFile.Name = "ContextMenuFileHis"
+ Me.ContextMenuHisFile.Size = New System.Drawing.Size(61, 4)
+ '
+ 'ButtonOK
+ '
+ Me.ButtonOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonOK.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.ButtonOK.Location = New System.Drawing.Point(550, 364)
+ Me.ButtonOK.Name = "ButtonOK"
+ Me.ButtonOK.Size = New System.Drawing.Size(75, 23)
+ Me.ButtonOK.TabIndex = 20
+ Me.ButtonOK.TabStop = false
+ Me.ButtonOK.Text = "OK"
+ Me.ButtonOK.UseVisualStyleBackColor = true
+ '
+ 'ButtonCancel
+ '
+ Me.ButtonCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.ButtonCancel.Location = New System.Drawing.Point(628, 364)
+ Me.ButtonCancel.Name = "ButtonCancel"
+ Me.ButtonCancel.Size = New System.Drawing.Size(75, 23)
+ Me.ButtonCancel.TabIndex = 25
+ Me.ButtonCancel.TabStop = false
+ Me.ButtonCancel.Text = "Cancel"
+ Me.ButtonCancel.UseVisualStyleBackColor = true
+ '
+ 'TextBoxCurrent
+ '
+ Me.TextBoxCurrent.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxCurrent.Cursor = System.Windows.Forms.Cursors.Hand
- Me.TextBoxCurrent.Location = New System.Drawing.Point(5, 17)
- Me.TextBoxCurrent.Name = "TextBoxCurrent"
- Me.TextBoxCurrent.ReadOnly = true
- Me.TextBoxCurrent.Size = New System.Drawing.Size(651, 20)
- Me.TextBoxCurrent.TabIndex = 0
- Me.TextBoxCurrent.TabStop = false
- Me.ToolTip1.SetToolTip(Me.TextBoxCurrent, "Click for changing the directory")
- '
- 'Label3
- '
- Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
- Me.Label3.AutoSize = true
- Me.Label3.Location = New System.Drawing.Point(5, 373)
- Me.Label3.Name = "Label3"
- Me.Label3.Size = New System.Drawing.Size(38, 13)
- Me.Label3.TabIndex = 29
- Me.Label3.Text = "Name:"
- '
- 'Label4
- '
- Me.Label4.AutoSize = true
- Me.Label4.Location = New System.Drawing.Point(4, 3)
- Me.Label4.Name = "Label4"
- Me.Label4.Size = New System.Drawing.Size(89, 13)
- Me.Label4.TabIndex = 30
- Me.Label4.Text = "Current Directory:"
- '
- 'FileBrowserDialog
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.CancelButton = Me.ButtonCancel
- Me.ClientSize = New System.Drawing.Size(663, 428)
- Me.Controls.Add(Me.Label4)
- Me.Controls.Add(Me.Label3)
- Me.Controls.Add(Me.TextBoxCurrent)
- Me.Controls.Add(Me.ButtonCancel)
- Me.Controls.Add(Me.ButtonOK)
- Me.Controls.Add(Me.TextBoxPath)
- Me.Controls.Add(Me.SplitContainer1)
- Me.MinimizeBox = false
- Me.MinimumSize = New System.Drawing.Size(341, 272)
- Me.Name = "FileBrowserDialog"
- Me.ShowIcon = false
- Me.ShowInTaskbar = false
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "File Browser"
- Me.SplitContainer1.Panel1.ResumeLayout(false)
- Me.SplitContainer1.Panel1.PerformLayout
- Me.SplitContainer1.Panel2.ResumeLayout(false)
- Me.SplitContainer1.Panel2.PerformLayout
- CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
- Me.SplitContainer1.ResumeLayout(false)
- Me.ContextMenuFile.ResumeLayout(false)
- Me.ResumeLayout(false)
- Me.PerformLayout
+ Me.TextBoxCurrent.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.TextBoxCurrent.Location = New System.Drawing.Point(5, 17)
+ Me.TextBoxCurrent.Name = "TextBoxCurrent"
+ Me.TextBoxCurrent.ReadOnly = true
+ Me.TextBoxCurrent.Size = New System.Drawing.Size(701, 20)
+ Me.TextBoxCurrent.TabIndex = 0
+ Me.TextBoxCurrent.TabStop = false
+ Me.ToolTip1.SetToolTip(Me.TextBoxCurrent, "Click for changing the directory")
+ '
+ 'Label3
+ '
+ Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
+ Me.Label3.AutoSize = true
+ Me.Label3.Location = New System.Drawing.Point(5, 335)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(38, 13)
+ Me.Label3.TabIndex = 29
+ Me.Label3.Text = "Name:"
+ '
+ 'Label4
+ '
+ Me.Label4.AutoSize = true
+ Me.Label4.Location = New System.Drawing.Point(4, 3)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(89, 13)
+ Me.Label4.TabIndex = 30
+ Me.Label4.Text = "Current Directory:"
+ '
+ 'FileBrowserDialog
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.ButtonCancel
+ Me.ClientSize = New System.Drawing.Size(711, 393)
+ Me.Controls.Add(Me.Label4)
+ Me.Controls.Add(Me.Label3)
+ Me.Controls.Add(Me.TextBoxCurrent)
+ Me.Controls.Add(Me.ButtonCancel)
+ Me.Controls.Add(Me.ButtonOK)
+ Me.Controls.Add(Me.TextBoxPath)
+ Me.Controls.Add(Me.SplitContainer1)
+ Me.MinimizeBox = false
+ Me.MinimumSize = New System.Drawing.Size(341, 272)
+ Me.Name = "FileBrowserDialog"
+ Me.ShowIcon = false
+ Me.ShowInTaskbar = false
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "File Browser"
+ Me.SplitContainer1.Panel1.ResumeLayout(false)
+ Me.SplitContainer1.Panel1.PerformLayout
+ Me.SplitContainer1.Panel2.ResumeLayout(false)
+ Me.SplitContainer1.Panel2.PerformLayout
+ CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
+ Me.SplitContainer1.ResumeLayout(false)
+ Me.ContextMenuFile.ResumeLayout(false)
+ Me.ResumeLayout(false)
+ Me.PerformLayout
End Sub
Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents ComboBoxDrive As ComboBox
Friend WithEvents ListViewFolder As ListView
Friend WithEvents ListViewFiles As ListView
- Friend WithEvents ColumnHeader1 As ColumnHeader
+ Friend WithEvents ColumnFileName As ColumnHeader
Friend WithEvents TextBoxSearchFolder As TextBox
Friend WithEvents TextBoxPath As TextBox
Friend WithEvents ButtonFolderBack As Button
@@ -452,5 +474,7 @@ End Sub
Friend WithEvents Label2 As Label
Friend WithEvents ComboBoxExt As ComboBox
Friend WithEvents TextBoxSearchFile As TextBox
-
+ Friend WithEvents ColumnType As ColumnHeader
+ Friend WithEvents ColumnSize As ColumnHeader
+ Friend WithEvents ColumnChangedOn As ColumnHeader
End Class
diff --git a/VECTO/File Browser/FileBrowserDialog.resx b/VECTO/File Browser/FileBrowserDialog.resx
index 3bb6aef32120c20f345acef6d958efffa1985f9c..c6f64c57d648e8960720a6303bd9a25004241a2b 100644
--- a/VECTO/File Browser/FileBrowserDialog.resx
+++ b/VECTO/File Browser/FileBrowserDialog.resx
@@ -117,6 +117,9 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
+ <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>473, 17</value>
+ </metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>583, 17</value>
</metadata>
@@ -141,9 +144,6 @@
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>583, 17</value>
</metadata>
- <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
- <value>473, 17</value>
- </metadata>
<metadata name="ContextMenuFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 17</value>
</metadata>
diff --git a/VECTO/File Browser/FileBrowserDialog.vb b/VECTO/File Browser/FileBrowserDialog.vb
index 8cc48694109058979b1d1ec28f06a1aabc21b073..e8fe7db02b77caa525953b6fcbab15eb2ac6434f 100644
--- a/VECTO/File Browser/FileBrowserDialog.vb
+++ b/VECTO/File Browser/FileBrowserDialog.vb
@@ -71,17 +71,24 @@ Public Class FileBrowserDialog
'Shown
Private Sub FileBrowser_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Resized()
+ ListViewFiles.ListViewItemSorter = currentSorter
TextBoxPath.Focus()
TextBoxPath.SelectAll()
End Sub
'Resized ListView Format
Private Sub Resized()
- 'To autosize to the width of the column heading, set the Width property to -2
- ListViewFolder.Columns(0).Width = -2
- 'ListViewFolder.Columns(0).Width -= 1
- ListViewFiles.Columns(0).Width = -2
- 'ListViewFiles.Columns(0).Width -= 1
+
+ ListViewFolder.Columns(0).Width = ListViewFolder.Width - 4
+ ListViewFiles.AutoResizeColumn(1, ColumnHeaderAutoResizeStyle.ColumnContent)
+ ListViewFiles.AutoResizeColumn(2, ColumnHeaderAutoResizeStyle.ColumnContent)
+ ListViewFiles.AutoResizeColumn(3, ColumnHeaderAutoResizeStyle.ColumnContent)
+
+ if ColumnType.Width < 41 Then ColumnType.Width = 41
+ if ColumnSize.Width < 33 Then ColumnSize.Width = 33
+ if ColumnChangedOn.Width < 73 Then ColumnChangedOn.Width = 73
+
+ ColumnFileName.Width = ListViewFiles.Width - ColumnType.Width - ColumnSize.Width - ColumnChangedOn.Width - 21
End Sub
'SplitterMoved
@@ -800,16 +807,14 @@ Public Class FileBrowserDialog
SHGetFileInfo(Path.Combine(_myFolder, fi.ToString()), 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
Dim myIcon = Icon.FromHandle(shinfo.hIcon)
ImageList1.Images.Add(myIcon)
- 'For Each fi In aryFi
- ListViewFolder.Items.Add(fi.ToString, x)
+ ListViewFolder.Items.Add(fi.Name, x)
Next
Catch ex As Exception
ListViewFolder.Items.Add("<ERROR: " & ex.Message.ToString & ">")
End Try
_directorySortColumn = 0
-
ListViewFolder.Sorting = SortOrder.Ascending
- ListViewFolder.ListViewItemSorter = new ListViewFilesItemComparer(_directorySortColumn, ListViewFolder.Sorting)
+ ListViewFolder.ListViewItemSorter = new ListViewFilesItemComparer(_directorySortColumn, ListViewFolder.Sorting, CompareType.AsString)
End Sub
@@ -850,19 +855,33 @@ Public Class FileBrowserDialog
SHGFI_ICON Or SHGFI_SMALLICON)
Dim myIcon = Icon.FromHandle(shinfo.hIcon)
ImageList1.Images.Add(myIcon)
- ListViewFiles.Items.Add(fi.ToString, x)
+
+ Dim item = New ListViewItem(fi.Name, fi.Extension)
+ item.SubItems.Add(fi.Extension.Substring(1))
+ item.SubItems.Add(fnFileSize(fi.Length)).Tag = fi.Length
+ item.SubItems.Add(fi.LastWriteTime.ToString()).Tag = fi.LastWriteTime
+ item.ImageIndex = x
+ ListViewFiles.Items.Add(item)
Next
Next
Catch ex As Exception
ListViewFiles.Items.Add("<ERROR: " & ex.Message.ToString & ">")
End Try
+ Resized()
ListViewFiles.EndUpdate()
- _filesSortColumn = 0
- ListViewFiles.Sorting = SortOrder.Ascending
- ListViewFiles.ListViewItemSorter = new ListViewFilesItemComparer(_filesSortColumn, ListViewFiles.Sorting)
End Sub
+ <DllImport("shlwapi", CharSet:=CharSet.Auto)>
+ Private Shared Function StrFormatByteSize(fileSize As Long, buffer As StringBuilder, bufferSize As Integer) As long
+ End Function
+
+ Private Function fnFileSize(size1 As Long) As String
+ Dim sb As New StringBuilder(20)
+ StrFormatByteSize(size1, sb, sb.Capacity)
+ Return sb.ToString()
+ End Function
+
'Rename File
Private Sub RenameFileToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles RenameFileToolStripMenuItem.Click
@@ -962,68 +981,60 @@ lb10:
End Set
End Property
+ ReadOnly currentSorter As New ListViewFilesItemComparer(0, SortOrder.Ascending, CompareType.AsString)
+
Private Sub ListViewFiles_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListViewFiles.ColumnClick
- If e.Column <> _filesSortColumn Then
- _filesSortColumn = e.Column
- ListViewFiles.Sorting = SortOrder.Ascending
+ If currentSorter.col = e.Column Then
+ If currentSorter.sortOrder = SortOrder.Ascending Then
+ currentSorter.sortOrder = SortOrder.Descending
+ Else
+ currentSorter.sortOrder = SortOrder.Ascending
+ End If
Else
- If ListViewFiles.Sorting = SortOrder.Ascending Then
- ListViewFiles.Sorting = SortOrder.Descending
+ currentSorter.col = e.Column
+ currentSorter.sortOrder = SortOrder.Ascending
+ If e.Column = 0 Or e.Column = 1 Then
+ currentSorter.compareType = CompareType.AsString
+ ElseIf e.Column = 3 Then
+ currentSorter.compareType = CompareType.AsDate
Else
- ListViewFiles.Sorting = SortOrder.Ascending
+ currentSorter.compareType = CompareType.AsNumber
End If
- End If
-
- ListViewFiles.ListViewItemSorter = new ListViewFilesItemComparer(e.Column, ListViewFiles.Sorting)
+ End If
ListViewFiles.Sort()
End Sub
- Private Sub ListViewFolder_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListViewFolder.ColumnClick
- if e.Column <> _directorySortColumn Then
- _directorySortColumn = e.Column
- ListViewFolder.Sorting = SortOrder.Ascending
- Else
- if ListViewFolder.Sorting = SortOrder.Ascending Then
- ListViewFolder.Sorting = SortOrder.Descending
- Else
- ListViewFolder.Sorting=SortOrder.Ascending
- End If
- End If
- ListViewFolder.ListViewItemSorter = new ListViewFilesItemComparer(e.Column, ListViewFolder.Sorting)
- ListViewFolder.Sort()
- End Sub
+ Public Enum CompareType
+ AsString
+ AsNumber
+ AsDate
+ End Enum
- Private Class ListViewFilesItemComparer
+ Private Class ListViewFilesItemComparer
Implements IComparer
- Private _col As Integer
- Private _order As SortOrder
-
- Public Sub New()
- _col = 0
- End Sub
+ public col As Integer
+ public compareType As CompareType
+ public sortOrder As SortOrder
- Public Sub New(column As Integer, sortOrder As SortOrder)
- _col = column
- _order = sortOrder
+ Sub New(column As Integer, sortOrder As SortOrder, compareType As CompareType)
+ col = column
+ Me.sortOrder = sortOrder
+ Me.compareType = compareType
End Sub
- Public Function Compare(x As Object, y As Object) As Integer _
- Implements IComparer.Compare
- Dim returnVal as Integer = -1
- returnVal = [String].Compare(CType(x, ListViewItem).SubItems(_col).Text, _
- CType(y, ListViewItem).SubItems(_col).Text)
- ' Determine whether the sort order is descending.
- If _order = SortOrder.Descending Then
- ' Invert the value returned by String.Compare.
- returnVal *= -1
+ Function Compare(x1 As Object, y1 As Object) As Integer Implements IComparer.Compare
+ Dim x = CType(x1, ListViewItem)
+ Dim y = CType(y1, ListViewItem)
+ If compareType = CompareType.AsString Then
+ Return String.Compare(x.SubItems(col).Text, y.SubItems(col).Text) * (sortOrder * -2 + 3)
+ ElseIf compareType = CompareType.AsDate Then
+ Return CType(x.SubItems(col).Tag, Date).CompareTo(CType(y.SubItems(col).Tag, Date)) * (sortOrder * -2 + 3)
+ Else
+ Return CType(x.SubItems(col).Tag, integer).CompareTo(CType(y.SubItems(col).Tag, integer)) * (sortOrder * -2 + 3)
End If
-
- Return returnVal
End Function
End Class
-
-
End Class