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

IDE: Support ENTER also in FilterEdits of ProjectInspector and PackageEditor. Issue #30523, patch from Markus.

Browse Source 
git-svn-id: trunk@52877 -
This commit is contained in:
juha 2016-08-26 18:24:42 +00:00
parent 12c5653dde
commit c334d3f20a
4 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/projectinspector.lfm
View File

@ -118,6 +118,7 @@ object ProjectInspectorForm: TProjectInspectorForm
MaxLength = 0
ParentFont = False
TabOrder = 0
OnKeyDown = FilterEditKeyDown
FilteredTreeview = ItemsTreeView
end
end

11
ide/projectinspector.pas
View File

@ -109,6 +109,7 @@ type
HelpBitBtn: TToolButton;
procedure CopyMoveToDirMenuItemClick(Sender: TObject);
procedure DirectoryHierarchyButtonClick(Sender: TObject);
procedure FilterEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure ItemsPopupMenuPopup(Sender: TObject);
procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
@ -517,6 +518,16 @@ begin
ShowDirectoryHierarchy:=DirectoryHierarchyButton.Down;
end;
procedure TProjectInspectorForm.FilterEditKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
OpenButtonClick(Nil);
Key := VK_UNKNOWN;
end;
end;
procedure TProjectInspectorForm.FormDropFiles(Sender: TObject;
const FileNames: array of String);
var

1
packager/packageeditor.lfm
View File

@ -255,6 +255,7 @@ object PackageEditorForm: TPackageEditorForm
MaxLength = 0
ParentFont = False
TabOrder = 0
OnKeyDown = FilterEditKeyDown
FilteredTreeview = ItemsTreeView
end
object OpenButton: TSpeedButton

11
packager/packageeditor.pas
View File

@ -250,6 +250,7 @@ type
procedure DisableI18NForLFMCheckBoxChange(Sender: TObject);
procedure EditVirtualUnitMenuItemClick(Sender: TObject);
procedure ExpandDirectoryMenuItemClick(Sender: TObject);
procedure FilterEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FindInFilesMenuItemClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@ -1409,6 +1410,16 @@ begin
DoExpandCollapseDirectory(True);
end;
procedure TPackageEditorForm.FilterEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
OpenFileMenuItemClick(Nil);
Key := VK_UNKNOWN;
end;
end;
procedure TPackageEditorForm.FindInFilesMenuItemClick(Sender: TObject);
begin
DoFindInFiles;