mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 09:19:22 +02:00
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:
parent
680574a5b3
commit
6718c3d2fd
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user