paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +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 ShowRoot = False
TabOrder = 1 TabOrder = 1
OnDblClick = AvailableTreeViewDblClick OnDblClick = AvailableTreeViewDblClick
OnKeyPress = AvailableTreeViewKeyPress
OnSelectionChanged = AvailableTreeViewSelectionChanged OnSelectionChanged = AvailableTreeViewSelectionChanged
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoToolTips, tvoThemedDraw] Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoToolTips, tvoThemedDraw]
end end
@ -141,7 +142,6 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Height = 20 Height = 20
Top = 7 Top = 7
Width = 247 Width = 247
FilteredTreeview = AvailableTreeView
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 0
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -149,6 +149,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
MaxLength = 0 MaxLength = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
FilteredTreeview = AvailableTreeView
end end
end end
object PkgInfoGroupBox: TGroupBox object PkgInfoGroupBox: TGroupBox

14
packager/installpkgsetdlg.pas
View File

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