paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 08:19:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: double click in the listview of the open installed package dialog opens the selected package.

Browse Source 
git-svn-id: trunk@12843 -
This commit is contained in:
vincents 2007-11-12 21:07:05 +00:00
parent f1d7bb44a0
commit b28396e73a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packager/openinstalledpkgdlg.pas
View File

@ -44,6 +44,9 @@ uses
PackageDefs, LazarusIDEStrConsts, IDEWindowIntf, PackageSystem;
type
{ TOpenInstalledPackagesDlg }
TOpenInstalledPackagesDlg = class(TCustomForm)
PkgListView: TListView;
HintMemo: TMemo;
@ -51,6 +54,7 @@ type
CancelButton: TButton;
procedure OpenButtonClick(Sender: TObject);
procedure OpenInstalledPackagesDlgResize(Sender: TObject);
procedure PkgListViewDblClick(Sender: TObject);
procedure PkgListViewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
private
@ -106,6 +110,11 @@ begin
SetBounds(Parent.ClientWidth-90,Parent.ClientHeight-Height-5,80,Height);
end;
procedure TOpenInstalledPackagesDlg.PkgListViewDblClick(Sender: TObject);
begin
OpenButtonClick(Sender);
end;
procedure TOpenInstalledPackagesDlg.PkgListViewSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
begin
@ -167,6 +176,7 @@ begin
NewColumn.Caption:=lisOIPState;
NewColumn.Width:=300;
OnSelectItem:=@PkgListViewSelectItem;
OnDblClick:=@PkgListViewDblClick;
end;
HintMemo:=TMemo.Create(Self);