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

cocoa: update ScreenToLocal to support flipped controls

Browse Source 
git-svn-id: trunk@61705 -
This commit is contained in:
dmitry 2019-08-16 14:13:39 +00:00
parent 1437ddef5a
commit db5060e608
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -1060,7 +1060,10 @@ begin
// 2. convert from window to local // 2. convert from window to local
P := convertPoint_FromView(P, nil); P := convertPoint_FromView(P, nil);
X := Round(P.x); X := Round(P.x);
Y := Round(frame.size.height-P.y); // convert to Cocoa system if isFlipped then
Y := Round(p.y)
else
Y := Round(frame.size.height-P.y); // convert to Cocoa system
end; end;
function LCLViewExtension.lclParent:id; function LCLViewExtension.lclParent:id;