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

Cocoa: Fixed Key Modifiers handling in TCocoaApplication.nextEventMatchingMask_untilDate_inMode_dequeue()

Browse Source
This commit is contained in:
rich2014 2024-02-07 16:14:09 +08:00
parent abac1d0235
commit 246652ca2a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/cocoa/cocoaint.pas
View File

@ -670,13 +670,14 @@ begin
if not Assigned(Result) then
begin
SavedKeyModifiers := Result.modifierFlags;
{$ifdef COCOALOOPNATIVE}
if Assigned(Application) then Application.Idle(true);
{$endif}
Exit;
end;
SavedKeyModifiers := Result.modifierFlags;
if ((mode = NSEventTrackingRunLoopMode) or mode.isEqualToString(NSEventTrackingRunLoopMode))
and Assigned(TrackedControl)
then