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

ProjectInspector: Add shortcuts for VK_RETURN, VK_DELETE and VK_INSERT, like package editor has.

Browse Source 
git-svn-id: trunk@43638 -
This commit is contained in:
juha 2014-01-03 00:15:05 +00:00
parent 3fb2dd4469
commit 7d8d504dd4
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/projectinspector.pas
View File

@ -225,11 +225,24 @@ end;
procedure TProjectInspectorForm.ItemsTreeViewKeyDown(Sender: TObject; procedure TProjectInspectorForm.ItemsTreeViewKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState); var Key: Word; Shift: TShiftState);
var
Handled: Boolean;
begin begin
if Key = 27 then Handled := True;
begin try
Key:=0; if Key = VK_ESCAPE then
Close; Close
else if Key = VK_RETURN then
OpenButtonClick(Nil)
else if Key = VK_DELETE then
RemoveBitBtnClick(Nil)
else if Key = VK_INSERT then
AddBitBtnClick(Nil)
else
Handled := False;
finally
if Handled then
Key := VK_UNKNOWN;
end; end;
end; end;