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

Cocoa/Cursor: Cursor should be forced to default when mouse not in the content frame of KeyWindow

Browse Source
This commit is contained in:
rich2014 2023-09-17 17:15:35 +08:00
parent d4eab24dde
commit 3e85b9f34e
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -521,8 +521,16 @@ begin
kw := app.keyWindow;
// mouse move was consumed by the focused window
if Assigned(kw) and NSPointInRect( theEvent.mouseLocation, kw.frame) then
p := theEvent.mouseLocation;
if Assigned(kw) and NSPointInRect(p, kw.frame) then
begin
wfr := kw.contentRectForFrameRect(kw.frame);
// if mouse in the keyWindow and not in content frame (eg. in the titlebar)
// Cursor should be forced to default.
if not NSPointInRect(p, wfr) then
CursorHelper.ForceSetDefaultCursor;
Exit;
end;
for w in app.windows do
begin