paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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 TabOrder = 1
ViewStyle = vsReport ViewStyle = vsReport
OnDblClick = PkgListViewDblClick OnDblClick = PkgListViewDblClick
OnKeyPress = PkgListViewKeyPress
OnSelectItem = PkgListViewSelectItem OnSelectItem = PkgListViewSelectItem
end end
object Splitter1: TSplitter object Splitter1: TSplitter

13
packager/openinstalledpkgdlg.pas
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