Merged revision(s) 53421 #cd7e9994c2 from trunk:

Packager: Open a loaded package also by pressing Return key.
........

git-svn-id: branches/fixes_1_6@53586 -
This commit is contained in:
maxim 2016-12-06 23:01:06 +00:00
parent 680574a5b3
commit 6718c3d2fd
2 changed files with 12 additions and 2 deletions

View File

@ -48,6 +48,7 @@ object OpenLoadedPackagesDlg: TOpenLoadedPackagesDlg
TabOrder = 1 TabOrder = 1
ViewStyle = vsReport ViewStyle = vsReport
OnDblClick = PkgListViewDblClick OnDblClick = PkgListViewDblClick
OnKeyPress = PkgListViewKeyPress
OnSelectItem = PkgListViewSelectItem OnSelectItem = PkgListViewSelectItem
end end
object Splitter1: TSplitter object Splitter1: TSplitter

View File

@ -31,8 +31,10 @@ unit OpenInstalledPkgDlg;
interface interface
uses uses
SysUtils, Forms, Controls, ComCtrls, StdCtrls, ExtCtrls, LCLProc, ButtonPanel, SysUtils,
IDEHelpIntf, IDEWindowIntf, PackageIntf, ListViewFilterEdit, Forms, Controls, ComCtrls, StdCtrls, ExtCtrls, LCLType, LCLProc, ButtonPanel,
ListViewFilterEdit,
IDEHelpIntf, IDEWindowIntf, PackageIntf,
PackageDefs, LazarusIDEStrConsts, PackageSystem; PackageDefs, LazarusIDEStrConsts, PackageSystem;
type type
@ -50,6 +52,7 @@ type
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure OpenButtonClick(Sender: TObject); procedure OpenButtonClick(Sender: TObject);
procedure PkgListViewDblClick(Sender: TObject); procedure PkgListViewDblClick(Sender: TObject);
procedure PkgListViewKeyPress(Sender: TObject; var Key: char);
procedure PkgListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean); procedure PkgListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
private private
public public
@ -90,6 +93,12 @@ begin
OpenButtonClick(Sender); OpenButtonClick(Sender);
end; end;
procedure TOpenLoadedPackagesDlg.PkgListViewKeyPress(Sender: TObject; var Key: char);
begin
if Key = Char(VK_RETURN) then
OpenButtonClick(Nil);
end;
procedure TOpenLoadedPackagesDlg.PkgListViewSelectItem(Sender: TObject; procedure TOpenLoadedPackagesDlg.PkgListViewSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean); Item: TListItem; Selected: Boolean);
begin begin