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

LCL, windows, while TEdit/TComboBox edit don't play sound on pressing ESCAPE key, issue #25847

Browse Source 
git-svn-id: trunk@44414 -
This commit is contained in:
jesus 2014-03-13 00:06:02 +00:00
parent c20f74439d
commit 156692fdcd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -2542,7 +2542,7 @@ begin
if WinProcess then if WinProcess then
begin begin
if (Msg=WM_CHAR) and (WParam=VK_RETURN) and if (Msg=WM_CHAR) and ((WParam=VK_RETURN) or (WPARAM=VK_ESCAPE)) and
((lWinControl is TCustomCombobox) or ((lWinControl is TCustomCombobox) or
((lWinControl is TCustomEdit) and not (lWinControl is TCustomMemo )) ((lWinControl is TCustomEdit) and not (lWinControl is TCustomMemo ))
) )