paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: improve Enter key on the numeric keypad handled in KeyDown(), avoid beep

Browse Source
This commit is contained in:
rich2014 2023-07-26 19:43:16 +08:00
parent 04b3d4b5d2
commit 705a74b957
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/interfaces/cocoa/cocoawindows.pas
View File

@ -386,10 +386,12 @@ begin
// If the form has a default or cancel button, capture Return and Escape to // If the form has a default or cancel button, capture Return and Escape to
// prevent further processing. Actually clicking the buttons is handled in // prevent further processing. Actually clicking the buttons is handled in
// the LCL in response to the keyUp // the LCL in response to the keyUp
if Assigned(wincallback) and (event.modifierFlags_ = 0) then // add NumericPadEnter supported.
if Assigned(wincallback) and ((event.modifierFlags_=0) or (event.modifierFlags_=$200000)) then
begin begin
ch := NSEventRawKeyChar(event); ch := NSEventRawKeyChar(event);
if (((ch = System.WideChar(NSCarriageReturnCharacter)) and wincallback.HasDefaultControl) if (((ch = System.WideChar(NSCarriageReturnCharacter)) and wincallback.HasDefaultControl)
or ((ch = System.WideChar(NSEnterCharacter)) and wincallback.HasDefaultControl)
or ((ch = #27{Escape}) and wincallback.HasCancelControl)) then or ((ch = #27{Escape}) and wincallback.HasCancelControl)) then
begin begin
Result := true; Result := true;