paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:19:22 +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;
var Key: Word; Shift: TShiftState);
var
Handled: Boolean;
begin
if Key = 27 then
begin
Key:=0;
Close;
Handled := True;
try
if Key = VK_ESCAPE then
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;