ADDED: Allow Ctrl-A to select all items in Unpack package listing.

ZeqMacaw · Dec 2, 2020 · e54a3af · e54a3af
1 parent 8e3d12b
commit e54a3af
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Crowbar/Widgets/Main Tabs/UnpackUserControl.vb b/Crowbar/Widgets/Main Tabs/UnpackUserControl.vb
@@ -368,6 +368,16 @@ Public Class UnpackUserControl
 	'	End If
 	'End Sub
 
+	Private Sub PackageListView_KeyDown(sender As Object, e As KeyEventArgs) Handles PackageListView.KeyDown
+		If e.KeyCode = Keys.A And e.Control Then
+			Me.PackageListView.BeginUpdate()
+			For Each i As ListViewItem In Me.PackageListView.Items
+				i.Selected = True
+			Next
+			Me.PackageListView.EndUpdate()
+		End If
+	End Sub
+
 	Private Sub PackageListView_SelectedIndexChanged(sender As Object, e As EventArgs) Handles PackageListView.SelectedIndexChanged
 		Me.UpdateSelectionCounts()
 	End Sub