paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids: Stop processing the key VK_ESCAPE in the editor if the user has already handled the event, issue #30044

Browse Source 
git-svn-id: trunk@52749 -
This commit is contained in:
jesus 2016-07-25 18:49:56 +00:00
parent d447c14966
commit 12693f48c3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -9689,8 +9689,10 @@ begin
VK_ESCAPE: VK_ESCAPE:
begin begin
doGridKeyDown; doGridKeyDown;
SetEditText(FGrid.FEditorOldValue); if key<>0 then begin
FGrid.EditorHide; SetEditText(FGrid.FEditorOldValue);
FGrid.EditorHide;
end;
end; end;
else else
doEditorKeyDown; doEditorKeyDown;