Setting interface-inspecific selection shortcuts in DFM

Source commit: e0c7837aa240f813ec8c6e71f132518ade62ad79

source/forms/NonVisual.cpp

@@ -879,13 +879,6 @@ void __fastcall TNonVisualDataModule::ExplorerShortcuts()
   // selected operation
   CurrentDeleteAlternativeAction->ShortCut = ShortCut(VK_DELETE, SHIFT);
   RemoteMoveToAction->ShortCut = ShortCut(L'M', CTRLALT);
-  // selection
-  SelectAction->ShortCut = ShortCut(VK_ADD, NONE);
-  UnselectAction->ShortCut = ShortCut(VK_SUBTRACT, NONE);
-  SelectAllAction->ShortCut = ShortCut(L'A', CTRL);
-  InvertSelectionAction->ShortCut = ShortCut(VK_MULTIPLY, NONE);
-  ClearSelectionAction->ShortCut = ShortCut(L'L', CTRLSHIFT);
-  RestoreSelectionAction->ShortCut = ShortCut(L'R', CTRLSHIFT);
   // commands
   NewFileAction->ShortCut = ShortCut(L'E', CTRLSHIFT);
   RemoteFindFilesAction2->ShortCut = ShortCut(VK_F3, NONE);
@@ -935,12 +928,6 @@ void __fastcall TNonVisualDataModule::CommanderShortcuts()
   RemoteCopyToAction->ShortCut = ShortCut(VK_F5, SHIFT);
   // selection
   SelectOneAction->ShortCut = VK_INSERT;
-  SelectAction->ShortCut = ShortCut(VK_ADD, NONE);
-  UnselectAction->ShortCut = ShortCut(VK_SUBTRACT, NONE);
-  SelectAllAction->ShortCut = ShortCut(L'A', CTRL);
-  InvertSelectionAction->ShortCut = ShortCut(VK_MULTIPLY, NONE);
-  ClearSelectionAction->ShortCut = ShortCut(L'L', CTRLSHIFT);
-  RestoreSelectionAction->ShortCut = ShortCut(L'R', CTRLSHIFT);
   // commands
   NewFileAction->ShortCut = ShortCut(VK_F4, SHIFT);
   RemoteFindFilesAction2->ShortCut =

source/forms/NonVisual.dfm

@@ -523,6 +523,7 @@ object NonVisualDataModule: TNonVisualDataModule
       HelpKeyword = 'ui_select'
       Hint = 'Select|Select files by mask'
       ImageIndex = 19
+      ShortCut = 107
     end
     object UnselectAction: TAction
       Tag = 15
@@ -531,6 +532,7 @@ object NonVisualDataModule: TNonVisualDataModule
       HelpKeyword = 'ui_select'
       Hint = 'Unselect|Unselect files by mask'
       ImageIndex = 20
+      ShortCut = 109
     end
     object SelectAllAction: TAction
       Tag = 15
@@ -539,6 +541,7 @@ object NonVisualDataModule: TNonVisualDataModule
       HelpKeyword = 'ui_file_panel#selecting_files'
       Hint = 'Select all files'
       ImageIndex = 21
+      ShortCut = 16449
     end
     object InvertSelectionAction: TAction
       Tag = 15
@@ -547,6 +550,7 @@ object NonVisualDataModule: TNonVisualDataModule
       HelpKeyword = 'ui_file_panel#selecting_files'
       Hint = 'Invert selection'
       ImageIndex = 22
+      ShortCut = 106
     end
     object ExplorerSelectionBandAction: TAction
       Tag = 7
@@ -562,6 +566,7 @@ object NonVisualDataModule: TNonVisualDataModule
       HelpKeyword = 'ui_file_panel#selecting_files'
       Hint = 'Clear selection'
       ImageIndex = 23
+      ShortCut = 24652
     end
     object ExplorerSessionBandAction: TAction
       Tag = 7
@@ -1856,6 +1861,7 @@ object NonVisualDataModule: TNonVisualDataModule
       HelpKeyword = 'ui_file_panel#selecting_files'
       Hint = 'Restore previous selection'
       ImageIndex = 86
+      ShortCut = 24658
     end
     object LocalSelectAction2: TAction
       Tag = 12