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

LCL, dbedit, ESC key should have effect only when control is being edited, from Erwin van den Bosch, isse 25472

Browse Source 
git-svn-id: trunk@46281 -
This commit is contained in:
jesus 2014-09-21 22:53:57 +00:00
parent a23a0688fb
commit b8f0b91210
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/dbedit.inc
View File

@ -113,9 +113,12 @@ begin
case key of
VK_ESCAPE:
begin
//cancel out of editing by reset on esc
FDataLink.Reset;
SelectAll;
//cancel out of editing by reset on esc, but only when in editing mode
if FDataLink.Editing then begin
FDataLink.Reset;
SelectAll;
Key := VK_UNKNOWN;
end;
end;
VK_DELETE, VK_BACK:
begin