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

cocoa - patch - TCocoaWSPopupMenu.Popup positions menu in wrong place

Browse Source 
git-svn-id: trunk@52524 -
This commit is contained in:
sekelsenmat 2016-06-19 20:21:51 +00:00
parent b2399e3114
commit e67083d91e
1 changed files with 8 additions and 1 deletions

9
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -585,6 +585,13 @@ end;
{ TCocoaWSPopupMenu }
function LCLCoordsToCocoa(AControl: TControl; X, Y: Integer): NSPoint;
begin
Result.x := X;
Result.y := Screen.Height - Y;
if AControl <> nil then Result.y := Result.y - AControl.Height;
end;
{------------------------------------------------------------------------------
Method: TCocoaWSPopupMenu.Popup
Params: APopupMenu - LCL popup menu
@ -609,7 +616,7 @@ begin
// New method for 10.6+
TCocoaMenu(APopupMenu.Handle).popUpMenuPositioningItem_atLocation_inView(
nil, GetNSPoint(X, Y), nil);
nil, LCLCoordsToCocoa(nil, X, Y), nil);
APopupMenu.Close; // notify LCL popup menu
end;