From 376bf8fdde5dacda3a1b296807cb64e060a6ae74 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 8 Jan 2020 16:41:25 +0000
Subject: [PATCH] ProjectGroups: more key shortcuts

git-svn-id: trunk@62511 -
---
 .../projectgroups/projectgroupeditor.pas      | 44 ++++++++++++++-----
 1 file changed, 32 insertions(+), 12 deletions(-)

diff --git a/components/projectgroups/projectgroupeditor.pas b/components/projectgroups/projectgroupeditor.pas
index a1bbea8b02..566741ab1c 100644
--- a/components/projectgroups/projectgroupeditor.pas
+++ b/components/projectgroups/projectgroupeditor.pas
@@ -749,19 +749,39 @@ end;
 procedure TProjectGroupEditorForm.TVPGKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
-  if Shift=[ssCtrl] then
-    case Key of
-      VK_UP:
-      begin
-        TBTargetUp.Click;
-        Key := 0;
-      end;
-      VK_DOWN:
-      begin
-        TBTargetLater.Click;
-        Key := 0;
-      end;
+  case Key of
+    VK_RETURN:
+    begin
+      TVPGDblClick(Sender);
+      Key := 0;
     end;
+    VK_F5:
+    begin
+      TBReload.Click;
+      Key := 0;
+    end;
+    VK_UP:
+    if Shift=[ssCtrl] then
+    begin
+      TBTargetUp.Click;
+      Key := 0;
+    end;
+    VK_DOWN:
+    if Shift=[ssCtrl] then
+    begin
+      TBTargetLater.Click;
+      Key := 0;
+    end;
+    Ord('S'):
+    begin
+      if Shift=[ssCtrl] then
+        TBSave.Click
+      else
+      if Shift=[ssCtrl, ssShift] then
+        PMISaveAs.Click;
+      Key := 0;
+    end;
+  end;
 end;
 
 procedure TProjectGroupEditorForm.TVPGMouseDown(Sender: TObject;