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

LCL, windows, fix 'After changes by commits 33328 and 33359 it becomes impossible to use Enter key in TMemo. Even TStrings property editor does not allow it' reported by Anton

Browse Source 
git-svn-id: trunk@33482 -
This commit is contained in:
jesus 2011-11-12 09:08:48 +00:00
parent 58aeeace3a
commit 5c5bd65faa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2461,8 +2461,9 @@ begin
begin begin
if (Msg=WM_CHAR) and (WParam=VK_RETURN) and if (Msg=WM_CHAR) and (WParam=VK_RETURN) and
((lWinControl is TCustomEdit) or (lWinControl is TCustomCombobox)) ((lWinControl is TCustomCombobox) or
// and not TCustomEdit(lWinControl).WindowsSpecificOptionToEnableBeep ((lWinControl is TCustomEdit) and not (lWinControl is TCustomMemo ))
)
then then
// this thing will beep, don't call defaultWindowProc // this thing will beep, don't call defaultWindowProc
else else