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

Cocoa: GetCocoaWindowAtPos() added

Browse Source 
ensure that gets the correct window at mouse pos
1. in Z-Order
2. on the active Space
3. in current App
4. is visible window
5. is not the misc window like Menu Bar
This commit is contained in:
rich2014 2023-09-29 17:23:00 +08:00
parent cc97670486
commit 5ba8780a48
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -279,6 +279,8 @@ function CocoaPromptUser(const DialogCaption, DialogMessage: String;
EscapeResult: Longint;
sheetOfWindow: NSWindow = nil; modalSheet: Boolean = false): Longint;
function GetCocoaWindowAtPos(p: NSPoint): TCocoaWindow;
// The function tries to initialize the proper application class.
// The desired application class can be specified in info.plit
// by specifying NSPrincipalClass property.
@ -510,6 +512,34 @@ begin
end;
{$endif}
// ensure that gets the correct window at mouse pos
// 1. in Z-Order
// 2. on the active Space
// 3. in current App
// 4. is visible window
// 5. is not the misc window like Menu Bar
function GetCocoaWindowAtPos(p: NSPoint): TCocoaWindow;
var
windowNumber: NSInteger;
windowNumbers: NSArray;
window: NSWindow;
begin
Result := nil;
// ensure 1
windowNumber := NSWindow.windowNumberAtPoint_belowWindowWithWindowNumber(p,0);
windowNumbers := NSWindow.windowNumbersWithOptions(0);
// ensure 2, 3, 4
if not windowNumbers.containsObject(NSNumber.numberWithInt(windowNumber)) then
exit;
// ensure 5
window := NSApp.windowWithWindowNumber(windowNumber);
if Assigned(window) and window.isKindOfClass(TCocoaWindow) then
Result := TCocoaWindow(window);
end;
procedure ForwardMouseMove(app: NSApplication; theEvent: NSEvent);
var
w : NSWindow;