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

Cocoa: TCocoaWidgetSet.IsWindow should return true for any widget handle and not just TCocoaWindowContent.

Browse Source
This commit is contained in:
David Jenkins 2024-11-07 16:47:38 +00:00 committed by rich2014
parent 759b07932a
commit 0fac0c3e01
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1526,7 +1526,9 @@ begin
Result := Assigned(cbi);
if not Result then Exit;
Result:= NSObject(handle).isKindOfClass(TCocoaWindowContent);
obj := cbi.GetCallbackObject;
Result := (obj is TLCLCommonCallback)
and (HWND(TLCLCommonCallback(obj).HandleFrame)=handle);
end
else
Result := False;