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

Packager: Select a package to install also with Enter key in InstallPkgSetDlg

Browse Source 
git-svn-id: trunk@35470 -
This commit is contained in:
juha 2012-02-18 23:10:25 +00:00
parent 1a743bf4bc
commit efa58a1062
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/installpkgsetdlg.lfm
View File

@ -122,6 +122,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
ShowRoot = False
TabOrder = 1
OnDblClick = AvailableTreeViewDblClick
OnKeyPress = AvailableTreeViewKeyPress
OnSelectionChanged = AvailableTreeViewSelectionChanged
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoToolTips, tvoThemedDraw]
end
@ -141,7 +142,6 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Height = 20
Top = 7
Width = 247
FilteredTreeview = AvailableTreeView
ButtonWidth = 23
NumGlyphs = 0
Anchors = [akTop, akLeft, akRight]
@ -149,6 +149,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
MaxLength = 0
ParentFont = False
TabOrder = 0
FilteredTreeview = AvailableTreeView
end
end
object PkgInfoGroupBox: TGroupBox

14
packager/installpkgsetdlg.pas
View File

@ -40,9 +40,10 @@ interface
uses
Classes, SysUtils, contnrs, LCLProc, Forms, Controls, Graphics, Dialogs,
KeywordFuncLists, StdCtrls, Buttons, FileUtil, ExtCtrls, ComCtrls, EditBtn,
AVL_Tree, Laz_XMLCfg, TreeFilterEdit, PackageIntf, IDEImagesIntf, IDEHelpIntf,
IDEDialogs, LazarusIDEStrConsts, EnvironmentOpts, InputHistory, LazConf,
IDEProcs, PackageDefs, PackageSystem, PackageLinks, IDEContextHelpEdit;
LCLType, AVL_Tree, Laz_XMLCfg, TreeFilterEdit, PackageIntf, IDEImagesIntf,
IDEHelpIntf, IDEDialogs, LazarusIDEStrConsts, EnvironmentOpts, InputHistory,
LazConf, IDEProcs, PackageDefs, PackageSystem, PackageLinks,
IDEContextHelpEdit;
type
TOnCheckInstallPackageList =
@ -71,6 +72,7 @@ type
UninstallButton: TBitBtn;
procedure AddToInstallButtonClick(Sender: TObject);
procedure AvailableTreeViewDblClick(Sender: TObject);
procedure AvailableTreeViewKeyPress(Sender: TObject; var Key: char);
procedure AvailableTreeViewSelectionChanged(Sender: TObject);
procedure ExportButtonClick(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
@ -272,6 +274,12 @@ begin
AddToInstall;
end;
procedure TInstallPkgSetDialog.AvailableTreeViewKeyPress(Sender: TObject; var Key: char);
begin
if Key = char(VK_RETURN) then
AddToInstall;
end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogDestroy(Sender: TObject);
begin
ClearNewInstalledPackages;