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

merge r51088 #c93f1b0a8b: lcl: grids: don't apply editor value if ESC is pressed.

Browse Source 
git-svn-id: branches/fixes_1_6@51091 -
This commit is contained in:
ondrej 2015-12-31 09:34:50 +00:00
parent 387f3f55df
commit 27cafa3cab
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -9613,7 +9613,10 @@ begin
VK_END, VK_HOME: VK_END, VK_HOME:
; ;
VK_ESCAPE: VK_ESCAPE:
FGrid.EditorHide; begin
doGridKeyDown;
FGrid.EditorHide;
end;
else else
doEditorKeyDown; doEditorKeyDown;
end; end;
@ -12233,7 +12236,10 @@ begin
VK_END, VK_HOME: VK_END, VK_HOME:
; ;
VK_ESCAPE: VK_ESCAPE:
FGrid.EditorHide; begin
doGridKeyDown;
FGrid.EditorHide;
end;
else else
doEditorKeyDown; doEditorKeyDown;
end; end;