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

cocoa: update RectToViewCoord to take into consideration if NSView has flipped coordinate system. #32884

Browse Source 
git-svn-id: trunk@56853 -
This commit is contained in:
dmitry 2017-12-27 02:53:20 +00:00
parent 71b6f936e7
commit 6f0194962a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -2461,13 +2461,13 @@ var
begin
if not Assigned(view) then Exit;
b := view.bounds;
with r do
begin
Result.origin.x := Left;
Result.origin.y := b.size.height - Bottom;
Result.size.width := Right - Left;
Result.size.height := Bottom - Top;
end;
Result.origin.x := r.Left;
Result.size.width := r.Right - r.Left;
Result.size.height := r.Bottom - r.Top;
if view.isFlipped then
Result.origin.y := r.Top
else
Result.origin.y := b.size.height - r.Bottom;
end;
function LCLControlExtension.lclIsEnabled:Boolean;