paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 00:22:01 +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 f2ebd044c9
commit 558e9d1a58
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

@ -744,13 +744,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