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

Cocoa: Control supported in TCocoaWidgetSet.GetWindowRect()

Browse Source
This commit is contained in:
rich2014 2023-12-04 23:30:33 +08:00
parent 2b2754ab98
commit a5869ce7fd
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1063,21 +1063,30 @@ end;
------------------------------------------------------------------------------}
function TCocoaWidgetSet.GetWindowRect(Handle: hwnd; var ARect: TRect): Integer;
var
contentView: TCocoaWindowContent;
view: NSObject;
contentView: TCocoaWindowContent absolute view;
dx, dy: Integer;
begin
Result := 0;
if Handle=0 then
exit;
if not NSObject(Handle).isKindOfClass(TCocoaWindowContent) then
exit;
contentView := TCocoaWindowContent(Handle);
if (not contentView.isembedded) and Assigned(contentView.window) then
ARect := ScreenRectFromNSToLCL( contentView.window.frame )
else
ARect := contentView.lclFrame;
Result := 1;
view := NSObject(Handle);
if view.isKindOfClass(TCocoaWindowContent) then begin
// handle is Form / Window
if (not contentView.isembedded) and Assigned(contentView.window) then
ARect := ScreenRectFromNSToLCL( contentView.window.frame )
else
ARect := contentView.lclFrame;
end else begin
// handle is Control
ARect := view.lclFrame;
dx := 0;
dy := 0;
view.lclLocalToScreen( dx, dy );
MoveRect( ARect, dx, dy );
end;
end;
function TCocoaWidgetSet.IsWindowEnabled(Handle: HWND): boolean;