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

Cocoa: TCocoaWidgetSet.GetWindowRect() fixed, returns the correct Window rectangle

Browse Source 
Forms are now correctly vertically centered
This commit is contained in:
rich2014 2023-10-19 23:43:13 +08:00
parent 998bfc4e21
commit 132d374870
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1085,21 +1085,21 @@ end;
------------------------------------------------------------------------------}
function TCocoaWidgetSet.GetWindowRect(Handle: hwnd; var ARect: TRect): Integer;
var
dx, dy: Integer;
contentView: TCocoaWindowContent;
begin
if Handle <> 0 then
begin
ARect := NSObject(Handle).lclFrame;
if not NSObject(Handle).isKindOfClass_(NSWindow) then
begin
dx := 0;
dy := 0;
NSObject(Handle).lclLocalToScreen(dx, dy);
MoveRect(ARect, dx, dy);
end;
Result := 1;
end else
Result := 0;
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
NSToLCLRect(contentView.window.frame, NSGlobalScreenHeight, ARect)
else
ARect := contentView.lclFrame;
Result := 1;
end;
function TCocoaWidgetSet.IsWindowEnabled(Handle: HWND): boolean;
@ -1364,6 +1364,12 @@ begin
NSObject(handle).lclRelativePos(Left, Top);
end;
// 1. not only for Window, but also for other controls
// 2. for a Window, according to this function specification, Width and Height
// should be returned. but ClientWidth and ClientHeight were returned
// actually before.
// 3. after the LCL FORM specification determined, corresponding modifications
// need to be made.
function TCocoaWidgetSet.GetWindowSize(Handle: hwnd; var Width, Height: Integer): boolean;
var
r: TRect;