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

IDEIntf: shortcut editor: added VK_ESCAPE

Browse Source 
git-svn-id: trunk@35079 -
This commit is contained in:
mattias 2012-02-01 21:46:18 +00:00
parent 99c440046b
commit 79639787db
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/propedits.pp
View File

@ -4443,11 +4443,8 @@ end;
{ TShortCutPropertyEditor }
// MG: this is the Delphi way. Not very useful. This needs a Edit override
// and a nice dialog with grab, checkboxes...
// XXX
const
ShortCuts: array[0..134] of TShortCut = (
ShortCuts: array[0..135] of TShortCut = (
scNone,
Byte('A') or scCtrl,
Byte('B') or scCtrl,
@ -4582,7 +4579,8 @@ const
VK_DELETE or scShift,
VK_DELETE or scCtrl,
VK_BACK or scAlt,
VK_BACK or scShift or scAlt);
VK_BACK or scShift or scAlt,
VK_ESCAPE);
procedure TShortCutPropertyEditor.Edit;
var