From 9145938bbc620c16b3d84be8a75a6a665d16fab1 Mon Sep 17 00:00:00 2001 From: moisesmcardona Date: Mon, 12 Aug 2019 18:55:28 -0400 Subject: [PATCH] v1.13.2: Bug fixes and can now copy the current folder name in the Google Drive form. --- opus_gui/Form1.Designer.vb | 2 +- opus_gui/GoogleDriveForm.Designer.vb | 82 ++++++++++++++++------------ opus_gui/GoogleDriveForm.vb | 5 ++ opus_gui/My Project/AssemblyInfo.vb | 4 +- 4 files changed, 55 insertions(+), 38 deletions(-) diff --git a/opus_gui/Form1.Designer.vb b/opus_gui/Form1.Designer.vb index e5a5a89..032c4c9 100644 --- a/opus_gui/Form1.Designer.vb +++ b/opus_gui/Form1.Designer.vb @@ -159,7 +159,7 @@ Partial Class Form1 Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(43, 13) Me.Label6.TabIndex = 12 - Me.Label6.Text = "v1.13.1" + Me.Label6.Text = "v1.13.2" ' 'OpusVersionLabel ' diff --git a/opus_gui/GoogleDriveForm.Designer.vb b/opus_gui/GoogleDriveForm.Designer.vb index 34f9486..2b1f873 100644 --- a/opus_gui/GoogleDriveForm.Designer.vb +++ b/opus_gui/GoogleDriveForm.Designer.vb @@ -33,29 +33,31 @@ Partial Class GoogleDriveForm Me.EncodeAll = New System.Windows.Forms.Button() Me.FilesListBox = New System.Windows.Forms.ListBox() Me.label2 = New System.Windows.Forms.Label() - Me.tableLayoutPanel1.SuspendLayout() - Me.panel1.SuspendLayout() - Me.panel2.SuspendLayout() - Me.SuspendLayout() + Me.FolderName = New System.Windows.Forms.Label() + Me.tableLayoutPanel1.SuspendLayout + Me.panel1.SuspendLayout + Me.panel2.SuspendLayout + Me.SuspendLayout ' 'tableLayoutPanel1 ' Me.tableLayoutPanel1.ColumnCount = 2 - Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) - Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50!)) + Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50!)) Me.tableLayoutPanel1.Controls.Add(Me.panel1, 0, 0) Me.tableLayoutPanel1.Controls.Add(Me.panel2, 1, 0) Me.tableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.tableLayoutPanel1.Location = New System.Drawing.Point(0, 0) Me.tableLayoutPanel1.Name = "tableLayoutPanel1" Me.tableLayoutPanel1.RowCount = 1 - Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) - Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50!)) + Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50!)) Me.tableLayoutPanel1.Size = New System.Drawing.Size(800, 454) Me.tableLayoutPanel1.TabIndex = 2 ' 'panel1 ' + Me.panel1.Controls.Add(Me.FolderName) Me.panel1.Controls.Add(Me.GoBackButton) Me.panel1.Controls.Add(Me.GoToRootButton) Me.panel1.Controls.Add(Me.FoldersListBox) @@ -68,30 +70,30 @@ Partial Class GoogleDriveForm ' 'GoBackButton ' - Me.GoBackButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GoBackButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles) Me.GoBackButton.Location = New System.Drawing.Point(209, 416) Me.GoBackButton.Name = "GoBackButton" Me.GoBackButton.Size = New System.Drawing.Size(182, 23) Me.GoBackButton.TabIndex = 2 Me.GoBackButton.Text = "Go Back" - Me.GoBackButton.UseVisualStyleBackColor = True + Me.GoBackButton.UseVisualStyleBackColor = true ' 'GoToRootButton ' - Me.GoToRootButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GoToRootButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles) Me.GoToRootButton.Location = New System.Drawing.Point(9, 416) Me.GoToRootButton.Name = "GoToRootButton" Me.GoToRootButton.Size = New System.Drawing.Size(194, 23) Me.GoToRootButton.TabIndex = 3 Me.GoToRootButton.Text = "Go to Root" - Me.GoToRootButton.UseVisualStyleBackColor = True + Me.GoToRootButton.UseVisualStyleBackColor = true ' 'FoldersListBox ' - Me.FoldersListBox.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.FoldersListBox.FormattingEnabled = True + Me.FoldersListBox.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.FoldersListBox.FormattingEnabled = true Me.FoldersListBox.Location = New System.Drawing.Point(9, 22) Me.FoldersListBox.Name = "FoldersListBox" Me.FoldersListBox.Size = New System.Drawing.Size(379, 381) @@ -99,7 +101,7 @@ Partial Class GoogleDriveForm ' 'label1 ' - Me.label1.AutoSize = True + Me.label1.AutoSize = true Me.label1.Location = New System.Drawing.Point(9, 6) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(44, 13) @@ -120,31 +122,31 @@ Partial Class GoogleDriveForm ' 'EncodeSelected ' - Me.EncodeSelected.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.EncodeSelected.Enabled = False + Me.EncodeSelected.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.EncodeSelected.Enabled = false Me.EncodeSelected.Location = New System.Drawing.Point(6, 416) Me.EncodeSelected.Name = "EncodeSelected" Me.EncodeSelected.Size = New System.Drawing.Size(182, 23) Me.EncodeSelected.TabIndex = 6 Me.EncodeSelected.Text = "Encode Selected File(s)" - Me.EncodeSelected.UseVisualStyleBackColor = True + Me.EncodeSelected.UseVisualStyleBackColor = true ' 'EncodeAll ' - Me.EncodeAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.EncodeAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Me.EncodeAll.Location = New System.Drawing.Point(202, 416) Me.EncodeAll.Name = "EncodeAll" Me.EncodeAll.Size = New System.Drawing.Size(182, 23) Me.EncodeAll.TabIndex = 4 Me.EncodeAll.Text = "Encode All Files" - Me.EncodeAll.UseVisualStyleBackColor = True + Me.EncodeAll.UseVisualStyleBackColor = true ' 'FilesListBox ' - Me.FilesListBox.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.FilesListBox.FormattingEnabled = True + Me.FilesListBox.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.FilesListBox.FormattingEnabled = true Me.FilesListBox.Location = New System.Drawing.Point(6, 22) Me.FilesListBox.Name = "FilesListBox" Me.FilesListBox.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended @@ -153,29 +155,38 @@ Partial Class GoogleDriveForm ' 'label2 ' - Me.label2.AutoSize = True + Me.label2.AutoSize = true Me.label2.Location = New System.Drawing.Point(3, 6) Me.label2.Name = "label2" Me.label2.Size = New System.Drawing.Size(31, 13) Me.label2.TabIndex = 4 Me.label2.Text = "Files:" ' + 'FolderName + ' + Me.FolderName.AutoSize = true + Me.FolderName.Location = New System.Drawing.Point(59, 6) + Me.FolderName.Name = "FolderName" + Me.FolderName.Size = New System.Drawing.Size(67, 13) + Me.FolderName.TabIndex = 4 + Me.FolderName.Text = "Folder Name" + ' 'GoogleDriveForm ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 454) Me.Controls.Add(Me.tableLayoutPanel1) Me.Name = "GoogleDriveForm" Me.Text = "Google Drive Browser" - Me.tableLayoutPanel1.ResumeLayout(False) - Me.panel1.ResumeLayout(False) - Me.panel1.PerformLayout() - Me.panel2.ResumeLayout(False) - Me.panel2.PerformLayout() - Me.ResumeLayout(False) + Me.tableLayoutPanel1.ResumeLayout(false) + Me.panel1.ResumeLayout(false) + Me.panel1.PerformLayout + Me.panel2.ResumeLayout(false) + Me.panel2.PerformLayout + Me.ResumeLayout(false) - End Sub +End Sub Private WithEvents tableLayoutPanel1 As TableLayoutPanel Private WithEvents panel1 As Panel @@ -188,4 +199,5 @@ Partial Class GoogleDriveForm Private WithEvents EncodeAll As Button Private WithEvents FilesListBox As ListBox Private WithEvents label2 As Label + Friend WithEvents FolderName As Label End Class diff --git a/opus_gui/GoogleDriveForm.vb b/opus_gui/GoogleDriveForm.vb index 6295a4a..9ae72c3 100644 --- a/opus_gui/GoogleDriveForm.vb +++ b/opus_gui/GoogleDriveForm.vb @@ -42,6 +42,7 @@ GoBackButton.Enabled = True End If Me.Text = "Google Drive Browser - " + drive.currentFolderName + FolderName.Text = drive.currentFolderName Catch MessageBox.Show("Error loading Google Drive contents") End Try @@ -113,4 +114,8 @@ PopulateListBoxes(drive, drive.currentFolder, True) End If End Sub + + Private Sub FolderName_Click(sender As Object, e As EventArgs) Handles FolderName.Click + Clipboard.SetText(drive.currentFolderName) + End Sub End Class \ No newline at end of file diff --git a/opus_gui/My Project/AssemblyInfo.vb b/opus_gui/My Project/AssemblyInfo.vb index c36241c..2c9de35 100644 --- a/opus_gui/My Project/AssemblyInfo.vb +++ b/opus_gui/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + +