paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 03:48:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 53421 #cd7e9994c2 from trunk:

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packager/openinstalledpkgdlg.lfm
View File

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

13
packager/openinstalledpkgdlg.pas
View File

@ -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