From cd7e9994c2fb44fe93a4ed87ce54da4fe8417da3 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 23 Nov 2016 10:24:03 +0000
Subject: [PATCH] Packager: Open a loaded package also by pressing Return key.

git-svn-id: trunk@53421 -
---
 packager/openinstalledpkgdlg.lfm |  1 +
 packager/openinstalledpkgdlg.pas | 13 +++++++++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/packager/openinstalledpkgdlg.lfm b/packager/openinstalledpkgdlg.lfm
index f0ddf9c6a3..0fba07d3e1 100644
--- a/packager/openinstalledpkgdlg.lfm
+++ b/packager/openinstalledpkgdlg.lfm
@@ -48,6 +48,7 @@ object OpenLoadedPackagesDlg: TOpenLoadedPackagesDlg
     TabOrder = 1
     ViewStyle = vsReport
     OnDblClick = PkgListViewDblClick
+    OnKeyPress = PkgListViewKeyPress
     OnSelectItem = PkgListViewSelectItem
   end
   object Splitter1: TSplitter
diff --git a/packager/openinstalledpkgdlg.pas b/packager/openinstalledpkgdlg.pas
index 6ad3180b3c..a83730f8d0 100644
--- a/packager/openinstalledpkgdlg.pas
+++ b/packager/openinstalledpkgdlg.pas
@@ -31,8 +31,10 @@ unit OpenInstalledPkgDlg;
 interface
 
 uses
-  SysUtils, Forms, Controls, ComCtrls, StdCtrls, ExtCtrls, LCLProc, ButtonPanel,
-  IDEHelpIntf, IDEWindowIntf, PackageIntf, ListViewFilterEdit,
+  SysUtils,
+  Forms, Controls, ComCtrls, StdCtrls, ExtCtrls, LCLType, LCLProc, ButtonPanel,
+  ListViewFilterEdit,
+  IDEHelpIntf, IDEWindowIntf, PackageIntf,
   PackageDefs, LazarusIDEStrConsts, PackageSystem;
 
 type
@@ -50,6 +52,7 @@ type
     procedure HelpButtonClick(Sender: TObject);
     procedure OpenButtonClick(Sender: TObject);
     procedure PkgListViewDblClick(Sender: TObject);
+    procedure PkgListViewKeyPress(Sender: TObject; var Key: char);
     procedure PkgListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
   private
   public
@@ -90,6 +93,12 @@ begin
   OpenButtonClick(Sender);
 end;
 
+procedure TOpenLoadedPackagesDlg.PkgListViewKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = Char(VK_RETURN) then
+    OpenButtonClick(Nil);
+end;
+
 procedure TOpenLoadedPackagesDlg.PkgListViewSelectItem(Sender: TObject;
   Item: TListItem; Selected: Boolean);
 begin